[brlcad-commits] SF.net SVN: brlcad:[42523] brlcad/trunk/src/tclscripts/archer

[<bo...@us...>]

Revision: 42523
          http://brlcad.svn.sourceforge.net/brlcad/?rev=42523&view=rev
Author:   bob1961
Date:     2011-01-22 01:29:45 +0000 (Sat, 22 Jan 2011)

Log Message:
-----------
Added a preference to Archer for setting the display font size.

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-21 22:34:45 UTC (rev 42522)
+++ brlcad/trunk/src/tclscripts/archer/Archer.tcl	2011-01-22 01:29:45 UTC (rev 42523)
@@ -3398,6 +3398,7 @@
 	mBackgroundColorPref \
 	"Background Color:" \
 	$mColorListNoTriple
+
     buildComboBox $itk_component(generalF) \
 	fbbackgroundColor \
 	fbbcolor \
@@ -3406,6 +3407,13 @@
 	$mColorListNoTriple
 
     buildComboBox $itk_component(generalF) \
+	fontsize \
+	fontsize \
+	mDisplayFontSizePref \
+	"Font Size:" \
+	$mDisplayFontSizes
+
+    buildComboBox $itk_component(generalF) \
 	binding \
 	binding \
 	mBindingModePref \
@@ -3513,6 +3521,9 @@
     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(fontsizeL) -column 0 -row $i -sticky e
+    grid $itk_component(fontsizeF) -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
@@ -7970,6 +7981,8 @@
     gedCmd configure -primitiveLabelColor $mPrimitiveLabelColor
     gedCmd configure -scaleColor $mScaleColor
     gedCmd configure -viewingParamsColor $mViewingParamsColor
+
+    $itk_component(ged) fontsize $mDisplayFontSize
 }
 
 
@@ -7995,11 +8008,15 @@
 	backgroundColor $mBackgroundColor
 
     }
+
     if {$mFBBackgroundColor != $mFBBackgroundColorPref} {
 	set mFBBackgroundColor $mFBBackgroundColorPref
-	$itk_component(rtcntrl) configure -color [cadwidgets::Ged::get_rgb_color $mFBBackgroundColor]
     }
 
+    if {$mDisplayFontSize != $mDisplayFontSizePref} {
+	set mDisplayFontSize $mDisplayFontSizePref
+    }
+
     if {$mPrimitiveLabelColor != $mPrimitiveLabelColorPref} {
 	set mPrimitiveLabelColor $mPrimitiveLabelColorPref
     }
@@ -8495,6 +8512,7 @@
     set mBindingModePref $mBindingMode
     set mEnableBigEPref $mEnableBigE
     set mFBBackgroundColorPref $mFBBackgroundColor
+    set mDisplayFontSizePref $mDisplayFontSize
     set mMeasuringStickColorPref $mMeasuringStickColor
     set mMeasuringStickModePref $mMeasuringStickMode
     set mPrimitiveLabelColorPref $mPrimitiveLabelColor
@@ -8640,6 +8658,7 @@
     puts $_pfile "set mBindingMode $mBindingMode"
     puts $_pfile "set mEnableBigE $mEnableBigE"
     puts $_pfile "set mFBBackgroundColor \"$mFBBackgroundColor\""
+    puts $_pfile "set mDisplayFontSize \"$mDisplayFontSize\""
     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-21 22:34:45 UTC (rev 42522)
+++ brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl	2011-01-22 01:29:45 UTC (rev 42523)
@@ -359,6 +359,10 @@
 	variable mEnableBigE 0
 	variable mEnableBigEPref ""
 
+	variable mDisplayFontSize 0
+	variable mDisplayFontSizePref ""
+	variable mDisplayFontSizes {}
+
 	variable mGridAnchor "0 0 0"
 	variable mGridAnchorXPref ""
 	variable mGridAnchorYPref ""
@@ -805,6 +809,12 @@
     global env
     global tcl_platform
 
+    if {$tcl_platform(platform) == "windows"} {
+	set mDisplayFontSizes {0 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29}
+    } else {
+	set mDisplayFontSizes {0 5 6 7 8 9 10 12}
+    }
+
     set mLastSelectedDir [pwd]
 
     set mFontText [list $SystemWindowFont 8]
@@ -1024,6 +1034,9 @@
     trace add variable [::itcl::scope mViewAxesColor] write watchVar
     trace add variable [::itcl::scope mViewAxesLabelColor] write watchVar
 
+    trace add variable [::itcl::scope mFBBackgroundColor] write watchVar
+    trace add variable [::itcl::scope mDisplayFontSize] write watchVar
+
     eval itk_initialize $args
 
     $this configure -background $LABEL_BACKGROUND_COLOR
@@ -5696,6 +5709,9 @@
 	mFBBackgroundColor {
 	    $itk_component(rtcntrl) configure -color [cadwidgets::Ged::get_rgb_color $mFBBackgroundColor]
 	}
+	mDisplayFontSize {
+	    $itk_component(ged) fontsize $mDisplayFontSize
+	}
 	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.