Changeset 868

Timestamp:

Dec 4, 2009 5:13:25 PM (14 years ago)

Author:

toby

Message:

# on 2006/02/22 00:29:58, toby did:
no significant changes -- allow KRATIO to be edited, but restore as the variable is not read from an instrument parameter file

File:

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

trunk/instedit.tcl

@@ -198 +198 @@
             -column [incr col] -row 5 -sticky ew 
     grid [label $bnkfr.l4e -text Secondary] -column $col -row 4 -sticky ew
-    grid [entry $bnkfr.e4f -textvariable instdat(kratio$b) -width 10] \
+    # at present, the ratio is not read from the INST file, so 
+    # there is no point in allowing the use to change it.
+#    grid [entry $bnkfr.e4f -textvariable instdat(kratio$b) -width 10] \
+#           -column [incr col] -row 5 -sticky ew 
+    grid [label $bnkfr.e4f -textvariable instdat(kratio$b) -width 10] \
             -column [incr col] -row 5 -sticky ew 
     grid [label $bnkfr.l4f -text ratio] -column $col -row 4 -sticky ew
@@ -563 +567 @@
         set color black
     }
-    foreach w {e4e e4f} {
-        $frame.$w config -state $mode -fg $color
-    }
-    foreach w {l4e l4f} {
-        $frame.$w config -fg $color
+    foreach w {e4e e4f l4e l4f} {
+        catch {$frame.$w config -state $mode}
+        catch {$frame.$w config -fg $color}
     }
     # for now leave kratio gray, since the value is not used
-    $frame.e4f config -state disabled -fg gray
+    foreach w {e4f l4f} {
+        catch {$frame.$w config -state disabled}
+        catch {$frame.$w config -fg gray}
+    }
 }