Changeset 458 for trunk/addcmds.tcl


Ignore:
Timestamp:
Dec 4, 2009 5:06:30 PM (11 years ago)
Author:
toby
Message:

# on 2001/10/14 05:36:29, toby did:
blank out dummy histogram ranges until a set is selected

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/addcmds.tcl

    • Property rcs:date changed from 2001/09/25 23:25:21 to 2001/10/14 05:36:29
    • Property rcs:lines changed from +350 -56 to +8 -3
    • Property rcs:rev changed from 1.22 to 1.23
    r447 r458  
    734734            $np.$w config -fg grey
    735735        }
     736        $np.d1.m1 config -text {}
     737        $np.d1.m2 config -text {}
    736738        $np.b1 config -state disabled
    737739        grid forget $np.l3 $np.e3 $np.cb3 $np.cb4  $np.bank $np.f6a
     
    754756            $np.d1.m1 config -text >0.
    755757            $np.d1.m2 config -text <180.
    756         } else {
     758        } elseif {$newhist(insttype) == "ED"} {
    757759            $np.dl1 config -text "Data range:\n(Energy)"
    758760            $np.d1.lu config -text KeV
     
    760762            $np.d1.m2 config -text 200.
    761763            grid $np.dl2 -column 0 -row 9
     764        } else {
     765            $np.dl1 config -text "No file\nselected"
     766            $np.d1.lu config -text {}
    762767        }
    763768    } else {
     
    19841989}
    19851990# default
    1986 set newhist(insttype) CW
     1991set newhist(insttype) {}
    19871992set newhist(dummy) 0
Note: See TracChangeset for help on using the changeset viewer.