From: Ron F. <ro...@us...> - 2005-03-09 22:32:46
|
Update of /cvsroot/nscldaq/clients/ScalerDisplay In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32756 Modified Files: scaler.tcl Log Message: - Put legend at the top of the plot. - adjust the rate formats so that things line up better at higher rates. Index: scaler.tcl =================================================================== RCS file: /cvsroot/nscldaq/clients/ScalerDisplay/scaler.tcl,v retrieving revision 4.7 retrieving revision 4.8 diff -C2 -d -r4.7 -r4.8 *** scaler.tcl 9 Mar 2005 13:50:56 -0000 4.7 --- scaler.tcl 9 Mar 2005 22:32:34 -0000 4.8 *************** *** 100,104 **** # # timeVector - Vector of elapsed run times at scaler readouts. ! # set stripchartChannels "" set stripchartRatios "" --- 100,104 ---- # # timeVector - Vector of elapsed run times at scaler readouts. ! # legendPosition - Position of legend (top bottom, left or right). set stripchartChannels "" set stripchartRatios "" *************** *** 111,114 **** --- 111,115 ---- set stripColorIndex 0 set stripStyleIndex 0 + set legendPosition top vector create timeVector *************** *** 306,310 **** --- 307,313 ---- global xAxisLength global logButton + global legendPosition + $stripchartWidget legend configure -position $legendPosition set shiftby [expr $xAxisLength * 0.1] $stripchartWidget axis configure x -autorange $xAxisLength \ *************** *** 997,1001 **** -font -b&h-lucidatypewriter-bold-r-normal-sans-*-100-*-*-m-* $table columnconfigure 2 -align right \ ! -formatcommand {FormatColumn "% 5.2f"} $table columnconfigure 3 -align right \ -formatcommand {FormatColumn "% 10.0f"} --- 1000,1004 ---- -font -b&h-lucidatypewriter-bold-r-normal-sans-*-100-*-*-m-* $table columnconfigure 2 -align right \ ! -formatcommand {FormatColumn "% 8.1f"} $table columnconfigure 3 -align right \ -formatcommand {FormatColumn "% 10.0f"} |