Changeset 304

Timestamp:

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

• trunk/odf.tcl (modified) (5 diffs, 3 props)

trunk/odf.tcl

@@ -115 +115 @@
 
 proc MakeODFPane {} {
-    global expgui
+    global expgui entryvar entrycmd entrybox
     if $expgui(haveBW) {
         pack [TitleFrame $expgui(odfFrame).f1 -bd 4 \
@@ -156 +156 @@
                 -textvariable entryvar(ODF$var) -width 10] \
                 -column $col -row $row -padx 5
+        set entrybox(ODF$var) $angframe.e$var
     }
     grid [label $angframe.lDamp -text "Damping  "] \
@@ -264 +265 @@
 
 proc SelectODFPhase {num} {
-    global entryvar entrycmd expmap expgui
+    global entryvar entrycmd entrybox expmap expgui
     set crsPhase {}
     foreach n $expmap(phaselist) type $expmap(phasetype) {
@@ -318 +319 @@
         set entrycmd(ODF$var) "phaseinfo $expgui(curPhase) ODF$var"
         set entryvar(ODF$var) [eval $entrycmd(ODF$var)]
+        # reset to black
+        catch {$entrybox(ODF$var) config -fg black}
     }
     #
@@ -345 +348 @@
         set entrycmd(ODFcoef$term) "phaseinfo $expgui(curPhase) ODFcoef$term"
         set entryvar(ODFcoef$term) [eval $entrycmd(ODFcoef$term)]
+        set entrybox(ODFcoef$term) $expgui(odfFrameCanvas).fr.e$term
         grid columnconfig $expgui(odfFrameCanvas).fr $col -pad 12
         set textureindex [expr {$textureindex + \