Changeset 458 for trunk/addcmds.tcl

Timestamp:

Dec 4, 2009 5:06:30 PM (14 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:

• trunk/addcmds.tcl (modified) (4 diffs, 3 props)

trunk/addcmds.tcl

@@ -734 +734 @@
             $np.$w config -fg grey
         }
+        $np.d1.m1 config -text {}
+        $np.d1.m2 config -text {}
         $np.b1 config -state disabled
         grid forget $np.l3 $np.e3 $np.cb3 $np.cb4  $np.bank $np.f6a
@@ -754 +756 @@
             $np.d1.m1 config -text >0.
             $np.d1.m2 config -text <180.
-        } else {
+        } elseif {$newhist(insttype) == "ED"} {
             $np.dl1 config -text "Data range:\n(Energy)"
             $np.d1.lu config -text KeV
@@ -760 +762 @@
             $np.d1.m2 config -text 200.
             grid $np.dl2 -column 0 -row 9
+        } else {
+            $np.dl1 config -text "No file\nselected"
+            $np.d1.lu config -text {}
         }
     } else {
@@ -1984 +1989 @@
 }
 # default
-set newhist(insttype) CW
+set newhist(insttype) {}
 set newhist(dummy) 0