Changeset 83


Ignore:
Timestamp:
Dec 4, 2009 5:00:07 PM (11 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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/gsascmds.tcl

    • Property rcs:date changed from 1999/03/19 17:07:59 to 1999/04/08 20:44:22
    • Property rcs:lines changed from +53 -35 to +5 -2
    • Property rcs:rev changed from 1.10 to 1.11
    r72 r83  
     1# $Id$
    12# platform-specific code
    23if {$tcl_platform(platform) == "windows"} {
     
    949950# set options for liveplot
    950951proc liveplotopt {} {
    951     global liveplot
     952    global liveplot expmap
    952953    set frm .file
    953954    catch {destroy $frm}
    954955    toplevel $frm
    955956    pack [frame [set frmA $frm.1] -bd 2 -relief groove] -padx 3 -pady 3 -side left
    956     pack [scale  $frmA.1 -label "Histogram number" -from 1 -to 9 \
     957    set last [lindex [lsort -integer $expmap(powderlist)] end]
     958    if {$last == ""} {set last 1}
     959    pack [scale  $frmA.1 -label "Histogram number" -from 1 -to $last \
    957960            -length  150 -orient horizontal -variable liveplot(hst)] -side top
    958961    pack [checkbutton $frmA.2 -text {include plot legend}\
Note: See TracChangeset for help on using the changeset viewer.