Revision: 42458
http://brlcad.svn.sourceforge.net/brlcad/?rev=42458&view=rev
Author: bob1961
Date: 2011-01-19 18:01:03 +0000 (Wed, 19 Jan 2011)
Log Message:
-----------
Added a configbody for the -color option.
Modified Paths:
--------------
brlcad/trunk/src/tclscripts/lib/RtControl.tcl
Modified: brlcad/trunk/src/tclscripts/lib/RtControl.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/lib/RtControl.tcl 2011-01-19 18:00:09 UTC
(rev 42457)
+++ brlcad/trunk/src/tclscripts/lib/RtControl.tcl 2011-01-19 18:01:03 UTC
(rev 42458)
@@ -357,6 +357,12 @@
############################### Configuration Options
###############################
+::itcl::configbody RtControl::color {\
+ set rtColor $itk_option(-color)
+ set bg [eval ::cadwidgets::Ged::rgb_to_tk $rtColor]
+ $itk_component(bgcolorpatchL) configure -background $bg
+}
+
::itcl::configbody RtControl::nproc {
if {![regexp "^\[0-9\]+$" $itk_option(-nproc)]} {
error "Bad value - $itk_option(-nproc)"
This was sent by the SourceForge.net collaborative development platform, the
world's largest Open Source development site.
------------------------------------------------------------------------------
Protect Your Site and Customers from Malware Attacks
Learn about various malware tactics and how to avoid them. Understand
malware threats, the impact they can have on your business, and how you
can protect your company and customers by using code signing.
http://p.sf.net/sfu/oracle-sfdevnl
_______________________________________________
BRL-CAD Source Commits mailing list
brlcad-commits@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/brlcad-commits
