[brlcad-commits] SF.net SVN: brlcad:[39971] brlcad/trunk/src/tclscripts/archer/Archer.tcl
Open Source Solid Modeling CAD
Brought to you by:
brlcad
From: <bo...@us...> - 2010-07-29 21:07:36
|
Revision: 39971 http://brlcad.svn.sourceforge.net/brlcad/?rev=39971&view=rev Author: bob1961 Date: 2010-07-29 21:07:30 +0000 (Thu, 29 Jul 2010) Log Message: ----------- Putting back the updateCreationButtons method minus the lines to configure the primitive creation buttons. Modified Paths: -------------- brlcad/trunk/src/tclscripts/archer/Archer.tcl Modified: brlcad/trunk/src/tclscripts/archer/Archer.tcl =================================================================== --- brlcad/trunk/src/tclscripts/archer/Archer.tcl 2010-07-29 20:01:17 UTC (rev 39970) +++ brlcad/trunk/src/tclscripts/archer/Archer.tcl 2010-07-29 21:07:30 UTC (rev 39971) @@ -315,6 +315,7 @@ method rtEdgeMenuStatusCB {_w} method rtMenuStatusCB {_w} + method updateCreationButtons {_on} method updatePrimaryToolbar {} method updateRaytraceButtons {_on} @@ -516,6 +517,7 @@ updateToggleMode setTreeView + updateCreationButtons 0 updateRaytraceButtons 0 updateCheckpointMode updateSaveMode @@ -1526,6 +1528,7 @@ deleteTargetOldCopy # createTargetLedger + updateCreationButtons 1 # updateRaytraceButtons 1 buildGroundPlane @@ -4624,6 +4627,16 @@ } } +::itcl::body Archer::updateCreationButtons {_on} { + if {$_on} { + $itk_component(primaryToolbar) itemconfigure other -state normal + $itk_component(primaryToolbar) itemconfigure comb -state normal + } else { + $itk_component(primaryToolbar) itemconfigure other -state disabled + $itk_component(primaryToolbar) itemconfigure comb -state disabled + } +} + ::itcl::body Archer::updateRaytraceButtons {_on} { if {$_on} { $itk_component(primaryToolbar) itemconfigure toggle_fb \ This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |