From: <ro...@us...> - 2012-01-03 15:50:23
|
Revision: 1964 http://nsclspectcl.svn.sourceforge.net/nsclspectcl/?rev=1964&view=rev Author: ron-fox Date: 2012-01-03 15:50:17 +0000 (Tue, 03 Jan 2012) Log Message: ----------- Make this start the rewritten treegui. Modified Paths: -------------- trunk/SpecTcl/TreeParam/SpecTclGui.tcl Modified: trunk/SpecTcl/TreeParam/SpecTclGui.tcl =================================================================== --- trunk/SpecTcl/TreeParam/SpecTclGui.tcl 2012-01-03 15:42:12 UTC (rev 1963) +++ trunk/SpecTcl/TreeParam/SpecTclGui.tcl 2012-01-03 15:50:17 UTC (rev 1964) @@ -53,6 +53,9 @@ } set answer 0; # In case we never prompt. +source $SpecTclHome/Script/treeGui.tcl +if {0} { + if {![info exists NoPromptForNewGui] || (!$NoPromptForNewGui)} { set answer [tk_dialog .newgui "New Gui" \ {This is the old SpecTcl GUI. If you want to use the new GUI, click "New (folder) otherwise click Old(multicolored)" below} \ @@ -124,3 +127,4 @@ trace variable gateMask w DynamicGateList puts "SpecTcl GUI loaded." +} \ No newline at end of file This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |