Changeset 83 for trunk/gsascmds.tcl

Timestamp:

Dec 4, 2009 5:00:07 PM (14 years ago)

Author:

toby

Message:

# on 1999/04/08 20:44:22, toby did:
define histogram slider to reach all maximum histogram for liveplot options
Add Id

File:

• trunk/gsascmds.tcl (modified) (2 diffs, 3 props)

trunk/gsascmds.tcl

@@ +1 @@
+# $Id$
 # platform-specific code
 if {$tcl_platform(platform) == "windows"} {
@@ -949 +950 @@
 # set options for liveplot
 proc liveplotopt {} {
-    global liveplot
+    global liveplot expmap
     set frm .file
     catch {destroy $frm}
     toplevel $frm
     pack [frame [set frmA $frm.1] -bd 2 -relief groove] -padx 3 -pady 3 -side left
-    pack [scale  $frmA.1 -label "Histogram number" -from 1 -to 9 \
+    set last [lindex [lsort -integer $expmap(powderlist)] end]
+    if {$last == ""} {set last 1}
+    pack [scale  $frmA.1 -label "Histogram number" -from 1 -to $last \
             -length  150 -orient horizontal -variable liveplot(hst)] -side top
     pack [checkbutton $frmA.2 -text {include plot legend}\