Revision: 45928
http://brlcad.svn.sourceforge.net/brlcad/?rev=45928&view=rev
Author: bob1961
Date: 2011-08-11 20:55:30 +0000 (Thu, 11 Aug 2011)
Log Message:
-----------
The backgroundColor routine should be calling ::cadwidgets::Ged::get_rgb_color
instead of getRgbColor 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 2011-08-11 20:10:20 UTC
(rev 45927)
+++ brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl 2011-08-11 20:55:30 UTC
(rev 45928)
@@ -2786,12 +2786,8 @@
::itcl::body ArcherCore::backgroundColor {_color} {
set mCurrentPaneName ""
set mBackgroundColor $_color
+ set mBackground [::cadwidgets::Ged::get_rgb_color $mBackgroundColor]
- if {[catch {getRgbColor $mBackgroundColor} mBackground]} {
- set mBackgroundColor black
- set mBackground {0 0 0}
- }
-
if {[info exists itk_component(ged)]} {
eval $itk_component(ged) bg_all $mBackground
}
This was sent by the SourceForge.net collaborative development platform, the
world's largest Open Source development site.
------------------------------------------------------------------------------
Get a FREE DOWNLOAD! and learn more about uberSVN rich system,
user administration capabilities and model configuration. Take
the hassle out of deploying and managing Subversion and the
tools developers use with it.
http://p.sf.net/sfu/wandisco-dev2dev
_______________________________________________
BRL-CAD Source Commits mailing list
brlcad-commits@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/brlcad-commits
