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

[bob1961]

Revision: 54525
          http://brlcad.svn.sourceforge.net/brlcad/?rev=54525&view=rev
Author:   bob1961
Date:     2013-03-04 12:23:54 +0000 (Mon, 04 Mar 2013)
Log Message:
-----------
Expose rt_bot_mintie in Archer via the preferences panel.

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       2013-03-01 22:08:17 UTC 
(rev 54524)
+++ brlcad/trunk/src/tclscripts/archer/Archer.tcl       2013-03-04 12:23:54 UTC 
(rev 54525)
@@ -2915,6 +2915,19 @@
        "Comp Select Mode:" \
        $COMP_SELECT_MODE_NAMES
 
+    itk_component add rtbotmintieL {
+       ::ttk::label $itk_component(generalF).rtbotmintieL \
+           -anchor e \
+           -text "rt_bot_mintie"
+    } {}
+    itk_component add rtbotmintieE {
+       ::ttk::entry $itk_component(generalF).rtbotmintieE \
+           -width 12 \
+           -textvariable [::itcl::scope mRtBotMintiePref] \
+           -validate key \
+           -validatecommand {::cadwidgets::Ged::validateDigit %P}
+    } {}
+
     itk_component add affectedTreeNodesModeCB {
        ::ttk::checkbutton $itk_component(generalF).affectedTreeNodesModeCB \
            -text "Highlight Affected Tree/List Nodes" \
@@ -3002,6 +3015,9 @@
     grid $itk_component(selGroupModeL) -column 0 -row $i -sticky e
     grid $itk_component(selGroupModeF) -column 1 -row $i -sticky ew
     incr i
+    grid $itk_component(rtbotmintieL) -column 0 -row $i -sticky e
+    grid $itk_component(rtbotmintieE) -column 1 -row $i -sticky ew
+    incr i
     set i [buildOtherGeneralPreferences $i]
     grid $itk_component(affectedTreeNodesModeCB) \
        -columnspan 2 \
@@ -8425,6 +8441,10 @@
        units $mDbUnits
     }
 
+    if {$mRtBotMintiePref != $mRtBotMintie} {
+       set mRtBotMintie $mRtBotMintiePref
+    }
+
     if {$mCompSelectGroupPref != $mCompSelectGroup} {
        set mCompSelectGroup $mCompSelectGroupPref
     }
@@ -8878,6 +8898,7 @@
     set mEnableAffectedNodeHighlightPref $mEnableAffectedNodeHighlight
     set mSeparateCommandWindowPref $mSeparateCommandWindow
     set mDbUnits [gedCmd units -s]
+    set mRtBotMintiePref $mRtBotMintie
     set mCompSelectGroupPref $mCompSelectGroup
 
     # Convert mCompSelectMode to a string for the preferences panel
@@ -9046,6 +9067,7 @@
     puts $_pfile "set mEnableListViewAllAffected $mEnableListViewAllAffected"
     puts $_pfile "set mEnableAffectedNodeHighlight 
$mEnableAffectedNodeHighlight"
     puts $_pfile "set mSeparateCommandWindow $mSeparateCommandWindow"
+    puts $_pfile "set mRtBotMintie $mRtBotMintie"
     puts $_pfile "set mCompSelectGroup $mCompSelectGroup"
     puts $_pfile "set mCompSelectMode $mCompSelectMode"
 

Modified: brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl   2013-03-01 22:08:17 UTC 
(rev 54524)
+++ brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl   2013-03-04 12:23:54 UTC 
(rev 54525)
@@ -402,6 +402,9 @@
        variable mSeparateCommandWindowPref ""
        variable mSepCmdPrefix "sepcmd_"
 
+       variable mRtBotMintie 0
+       variable mRtBotMintiePref ""
+
        variable mCompPickMode $COMP_PICK_TREE_SELECT_MODE
        variable mCompSelectMode $COMP_SELECT_LIST_MODE
        variable mCompSelectModePref ""
@@ -1186,6 +1189,7 @@
     trace add variable [::itcl::scope mRayColorVoid] write watchVar
 
     trace add variable [::itcl::scope mDisplayFontSize] write watchVar
+    trace add variable [::itcl::scope mRtBotMintie] write watchVar
 
     eval itk_initialize $args
 
@@ -6773,6 +6777,8 @@
 }
 
 ::itcl::body ArcherCore::watchVar {_name1 _name2 _op} {
+    global rt_bot_mintie
+
     if {![info exists itk_component(ged)]} {
        return
     }
@@ -6833,6 +6839,9 @@
        mRayColorVoid {
            $itk_component(ged) configure -rayColorVoid $mRayColorVoid
        }
+       mRtBotMintie {
+           set rt_bot_mintie $mRtBotMintie
+       }
     }
 }
 

This was sent by the SourceForge.net collaborative development platform, the 
world's largest Open Source development site.


------------------------------------------------------------------------------
Everyone hates slow websites. So do we.
Make your web apps faster with AppDynamics
Download AppDynamics Lite for free today:
http://p.sf.net/sfu/appdyn_d2d_feb
_______________________________________________
BRL-CAD Source Commits mailing list
brlcad-commits@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/brlcad-commits