Revision: 42459
http://brlcad.svn.sourceforge.net/brlcad/?rev=42459&view=rev
Author: bob1961
Date: 2011-01-19 18:02:22 +0000 (Wed, 19 Jan 2011)
Log Message:
-----------
Added a preference for the framebuffer's background color.
Modified Paths:
--------------
brlcad/trunk/src/tclscripts/archer/Archer.tcl
brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl
Modified: brlcad/trunk/src/tclscripts/archer/Archer.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/archer/Archer.tcl 2011-01-19 18:01:03 UTC
(rev 42458)
+++ brlcad/trunk/src/tclscripts/archer/Archer.tcl 2011-01-19 18:02:22 UTC
(rev 42459)
@@ -3398,6 +3398,12 @@
mBackgroundColorPref \
"Background Color:" \
$mColorListNoTriple
+ buildComboBox $itk_component(generalF) \
+ fbbackgroundColor \
+ fbbcolor \
+ mFBBackgroundColorPref \
+ "FB Background Color:" \
+ $mColorListNoTriple
buildComboBox $itk_component(generalF) \
binding \
@@ -3504,6 +3510,9 @@
grid $itk_component(backgroundColorL) -column 0 -row $i -sticky ne
grid $itk_component(backgroundColorF) -column 1 -row $i -sticky ew
incr i
+ grid $itk_component(fbbackgroundColorL) -column 0 -row $i -sticky ne
+ grid $itk_component(fbbackgroundColorF) -column 1 -row $i -sticky ew
+ incr i
grid $itk_component(measuringStickColorL) -column 0 -row $i -sticky e
grid $itk_component(measuringStickColorF) -column 1 -row $i -sticky ew
incr i
@@ -7955,6 +7964,7 @@
}
backgroundColor $mBackgroundColor
+ $itk_component(rtcntrl) configure -color [cadwidgets::Ged::get_rgb_color
$mFBBackgroundColor]
gedCmd configure -measuringStickColor $mMeasuringStickColor
gedCmd configure -measuringStickMode $mMeasuringStickMode
gedCmd configure -primitiveLabelColor $mPrimitiveLabelColor
@@ -7983,7 +7993,12 @@
if {$mBackgroundColor != $mBackgroundColorPref} {
set mBackgroundColor $mBackgroundColorPref
backgroundColor $mBackgroundColor
+
}
+ if {$mFBBackgroundColor != $mFBBackgroundColorPref} {
+ set mFBBackgroundColor $mFBBackgroundColorPref
+ $itk_component(rtcntrl) configure -color
[cadwidgets::Ged::get_rgb_color $mFBBackgroundColor]
+ }
if {$mPrimitiveLabelColor != $mPrimitiveLabelColorPref} {
set mPrimitiveLabelColor $mPrimitiveLabelColorPref
@@ -8479,6 +8494,7 @@
set mBackgroundColorPref $mBackgroundColor
set mBindingModePref $mBindingMode
set mEnableBigEPref $mEnableBigE
+ set mFBBackgroundColorPref $mFBBackgroundColor
set mMeasuringStickColorPref $mMeasuringStickColor
set mMeasuringStickModePref $mMeasuringStickMode
set mPrimitiveLabelColorPref $mPrimitiveLabelColor
@@ -8623,6 +8639,7 @@
puts $_pfile "set mBackgroundColor \"$mBackgroundColor\""
puts $_pfile "set mBindingMode $mBindingMode"
puts $_pfile "set mEnableBigE $mEnableBigE"
+ puts $_pfile "set mFBBackgroundColor \"$mFBBackgroundColor\""
puts $_pfile "set mMeasuringStickColor \"$mMeasuringStickColor\""
puts $_pfile "set mMeasuringStickMode $mMeasuringStickMode"
puts $_pfile "set mPrimitiveLabelColor \"$mPrimitiveLabelColor\""
Modified: brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl 2011-01-19 18:01:03 UTC
(rev 42458)
+++ brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl 2011-01-19 18:02:22 UTC
(rev 42459)
@@ -343,6 +343,8 @@
variable mBackground "0 0 0"
variable mBackgroundColor Black
variable mBackgroundColorPref ""
+ variable mFBBackgroundColor Black
+ variable mFBBackgroundColorPref ""
variable mPrimitiveLabelColor Yellow
variable mPrimitiveLabelColorPref
variable mViewingParamsColor Yellow
@@ -5691,6 +5693,9 @@
::itcl::body ArcherCore::watchVar {_name1 _name2 _op} {
switch -- $_name1 {
+ mFBBackgroundColor {
+ $itk_component(rtcntrl) configure -color
[cadwidgets::Ged::get_rgb_color $mFBBackgroundColor]
+ }
mMeasuringStickColor {
$itk_component(ged) configure -measuringStickColor
$mMeasuringStickColor
}
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
[email protected]
https://lists.sourceforge.net/lists/listinfo/brlcad-commits
