From: Ron F. <ro...@us...> - 2006-02-21 19:38:12
|
Update of /cvsroot/nsclspectcl/SpecTcl/Gui In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27287 Modified Files: applygate.tcl Log Message: Turn off some debug printing. Index: applygate.tcl =================================================================== RCS file: /cvsroot/nsclspectcl/SpecTcl/Gui/applygate.tcl,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** applygate.tcl 20 Feb 2006 19:18:13 -0000 1.2 --- applygate.tcl 21 Feb 2006 19:38:09 -0000 1.3 *************** *** 240,246 **** # path -Path to a spectrum. method selectSpectrum path { - puts $path set name [pathToName $path] - puts $name $win.spectra insert end $name --- 240,244 ---- |