From: <ro...@us...> - 2010-11-08 12:03:17
|
Revision: 1725 http://nsclspectcl.svn.sourceforge.net/nsclspectcl/?rev=1725&view=rev Author: ron-fox Date: 2010-11-08 12:03:11 +0000 (Mon, 08 Nov 2010) Log Message: ----------- Integrate the multiplicity gate GUI with SpecTcl's button bar and gui Gate menu. Modified Paths: -------------- branches/LLNLMadcChainSpecTcl/SpecTclRC.tcl Modified: branches/LLNLMadcChainSpecTcl/SpecTclRC.tcl =================================================================== --- branches/LLNLMadcChainSpecTcl/SpecTclRC.tcl 2010-11-08 11:43:54 UTC (rev 1724) +++ branches/LLNLMadcChainSpecTcl/SpecTclRC.tcl 2010-11-08 12:03:11 UTC (rev 1725) @@ -118,10 +118,28 @@ puts -nonewline "Loading projection GUI" source [file join $here project.tcl] puts " Done" +# +# Source the multiplicity gates stuff: +# +puts -nonewline "Loading multiplicity gate selection GUI ..." +source [file join $here multiplicityGates.tcl] +# +# Put this is on the button bar.. +# +button .multgates -text {Neutron Gates} -command [list promptMultiplicityGates .mult] +pack .multgates +# +# And the gates menu: +# +.topmenu.gate add separator +.topmenu.gate add command -label {Neutron Gates...} \ + -command [list promptMultiplicityGates .mult] +puts Done # # Load the figure of merit tcl code: # puts -nonewline "Loading FOM Tcl Scripts " source [file join $here fom.tcl] -puts Done \ No newline at end of file +puts Done + This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |