From: Ron F. <ro...@us...> - 2006-09-28 22:06:59
|
Update of /cvsroot/nsclspectcl/SpecTcl/Gui In directory sc8-pr-cvs7.sourceforge.net:/tmp/cvs-serv19851 Modified Files: browser.tcl Log Message: Display m2 spectra correctly. Index: browser.tcl =================================================================== RCS file: /cvsroot/nsclspectcl/SpecTcl/Gui/browser.tcl,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** browser.tcl 16 Aug 2006 14:27:38 -0000 1.6 --- browser.tcl 28 Sep 2006 22:06:57 -0000 1.7 *************** *** 947,950 **** --- 947,975 ---- } + + # set2dMultipleSubInfo id parameters axes + # Fills in the required sub info for a 2d multiply incremented + # spectrum. We add 2 axes named arbitrarily X and Y + # and list all the parameters and their information as well. + # + # Parameters: + # id : Id of the spectrum node. + # parameters : list of parameter names. + # axes : 2 axis specifications. + # + method set2dMultipleSubInfo {id parameters axes} { + set axisid [$self addAxis $id X "" [lindex $axes 0]] + $win.tree entry configure $axisid -label X + set axisid [$self addAxis $id Y "" [lindex $axes 1]] + $win.tree entry configure $axisid -label Y + + + set i 0 + foreach parameter $parameters { + $self addEntryParameter $id $i $parameter" + incr i + } + } + # # setSpectrumSubInfo id type parameters axes *************** *** 988,991 **** --- 1013,1019 ---- $self setStripchartSubInfo $id $parameters $axes } + m2 { + $self set2dMultipleSubInfo $id $parameters $axes + } default {} } |