Revision: 40663
http://brlcad.svn.sourceforge.net/brlcad/?rev=40663&view=rev
Author: bob1961
Date: 2010-09-23 15:26:06 +0000 (Thu, 23 Sep 2010)
Log Message:
-----------
Minor tweaks to ArcherCore. Initialize mLighting to 2. Added Navy to the color
lineup and capitalized color names passed to backgroundColor for consistency.
Modified Paths:
--------------
brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl
Modified: brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl 2010-09-23 15:04:05 UTC
(rev 40662)
+++ brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl 2010-09-23 15:26:06 UTC
(rev 40663)
@@ -287,7 +287,7 @@
variable mTargetCopy ""
variable mTargetOldCopy ""
variable mDisplayType
- variable mLighting 1
+ variable mLighting 2
variable mRenderMode -1
variable mActivePane
variable mActivePaneName
@@ -1246,17 +1246,17 @@
}
$itk_component(canvas_menu) menuconfigure .background.black \
- -command [::itcl::code $this backgroundColor black]
+ -command [::itcl::code $this backgroundColor Black]
$itk_component(canvas_menu) menuconfigure .background.grey \
- -command [::itcl::code $this backgroundColor grey]
+ -command [::itcl::code $this backgroundColor Grey]
$itk_component(canvas_menu) menuconfigure .background.white \
- -command [::itcl::code $this backgroundColor white]
+ -command [::itcl::code $this backgroundColor White]
$itk_component(canvas_menu) menuconfigure .background.cyan \
- -command [::itcl::code $this backgroundColor cyan]
+ -command [::itcl::code $this backgroundColor Cyan]
$itk_component(canvas_menu) menuconfigure .background.blue \
- -command [::itcl::code $this backgroundColor blue]
+ -command [::itcl::code $this backgroundColor Blue]
$itk_component(canvas_menu) menuconfigure .background.navy \
- -command [::itcl::code $this backgroundColor navy]
+ -command [::itcl::code $this backgroundColor Navy]
# Raytrace Menu
$itk_component(canvas_menu) add menubutton raytrace \
@@ -2763,6 +2763,9 @@
"Black" {
$cmd configure $colorOption {0 0 0}
}
+ "Navy" {
+ $cmd configure $colorOption {0 0 50}
+ }
"Blue" {
$cmd configure $colorOption {100 100 255}
}
@@ -4551,6 +4554,9 @@
"Black" {
return "000000"
}
+ "Navy" {
+ return "000032"
+ }
"Blue" {
return "0000ff"
}
This was sent by the SourceForge.net collaborative development platform, the
world's largest Open Source development site.
------------------------------------------------------------------------------
Nokia and AT&T present the 2010 Calling All Innovators-North America contest
Create new apps & games for the Nokia N8 for consumers in U.S. and Canada
$10 million total in prizes - $4M cash, 500 devices, nearly $6M in marketing
Develop with Nokia Qt SDK, Web Runtime, or Java and Publish to Ovi Store
http://p.sf.net/sfu/nokia-dev2dev
_______________________________________________
BRL-CAD Source Commits mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/brlcad-commits
