Changeset 868 for trunk/instedit.tcl


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

Legend:

Unmodified
Added
Removed
  • trunk/instedit.tcl

    • Property rcs:date changed from 2004/05/04 17:18:41 to 2006/02/22 00:29:58
    • Property rcs:lines changed from +4 -2 to +13 -8
    • Property rcs:rev changed from 1.5 to 1.6
    r790 r868  
    198198            -column [incr col] -row 5 -sticky ew
    199199    grid [label $bnkfr.l4e -text Secondary] -column $col -row 4 -sticky ew
    200     grid [entry $bnkfr.e4f -textvariable instdat(kratio$b) -width 10] \
     200    # at present, the ratio is not read from the INST file, so
     201    # there is no point in allowing the use to change it.
     202#    grid [entry $bnkfr.e4f -textvariable instdat(kratio$b) -width 10] \
     203#           -column [incr col] -row 5 -sticky ew
     204    grid [label $bnkfr.e4f -textvariable instdat(kratio$b) -width 10] \
    201205            -column [incr col] -row 5 -sticky ew
    202206    grid [label $bnkfr.l4f -text ratio] -column $col -row 4 -sticky ew
     
    563567        set color black
    564568    }
    565     foreach w {e4e e4f} {
    566         $frame.$w config -state $mode -fg $color
    567     }
    568     foreach w {l4e l4f} {
    569         $frame.$w config -fg $color
     569    foreach w {e4e e4f l4e l4f} {
     570        catch {$frame.$w config -state $mode}
     571        catch {$frame.$w config -fg $color}
    570572    }
    571573    # for now leave kratio gray, since the value is not used
    572     $frame.e4f config -state disabled -fg gray
     574    foreach w {e4f l4f} {
     575        catch {$frame.$w config -state disabled}
     576        catch {$frame.$w config -fg gray}
     577    }
    573578}
    574579
Note: See TracChangeset for help on using the changeset viewer.