Changeset 304 for trunk/odf.tcl


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

# on 2000/10/03 23:29:29, toby did:
Add definitions and implementation for entrybox array so that invalid
numbers are set to red. Valid ones, or when numbers are reread from
the .EXP are turned back to black

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/odf.tcl

    • Property rcs:date changed from 2000/10/02 16:52:08 to 2000/10/03 23:29:29
    • Property rcs:lines changed from +3 -2 to +7 -3
    • Property rcs:rev changed from 1.3 to 1.4
    r288 r304  
    115115
    116116proc MakeODFPane {} {
    117     global expgui
     117    global expgui entryvar entrycmd entrybox
    118118    if $expgui(haveBW) {
    119119        pack [TitleFrame $expgui(odfFrame).f1 -bd 4 \
     
    156156                -textvariable entryvar(ODF$var) -width 10] \
    157157                -column $col -row $row -padx 5
     158        set entrybox(ODF$var) $angframe.e$var
    158159    }
    159160    grid [label $angframe.lDamp -text "Damping  "] \
     
    264265
    265266proc SelectODFPhase {num} {
    266     global entryvar entrycmd expmap expgui
     267    global entryvar entrycmd entrybox expmap expgui
    267268    set crsPhase {}
    268269    foreach n $expmap(phaselist) type $expmap(phasetype) {
     
    318319        set entrycmd(ODF$var) "phaseinfo $expgui(curPhase) ODF$var"
    319320        set entryvar(ODF$var) [eval $entrycmd(ODF$var)]
     321        # reset to black
     322        catch {$entrybox(ODF$var) config -fg black}
    320323    }
    321324    #
     
    345348        set entrycmd(ODFcoef$term) "phaseinfo $expgui(curPhase) ODFcoef$term"
    346349        set entryvar(ODFcoef$term) [eval $entrycmd(ODFcoef$term)]
     350        set entrybox(ODFcoef$term) $expgui(odfFrameCanvas).fr.e$term
    347351        grid columnconfig $expgui(odfFrameCanvas).fr $col -pad 12
    348352        set textureindex [expr {$textureindex + \
Note: See TracChangeset for help on using the changeset viewer.