Changeset 305

Timestamp:

Dec 4, 2009 5:03:50 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/orient.tcl (modified) (4 diffs, 3 props)

trunk/orient.tcl

@@ -54 +54 @@
 # are selected
 proc DisplayOrient {} {
-    global expgui entrycmd entryvar expmap
+    global expgui entrycmd entryvar entrybox expmap
         
     # identify the frame and kill the old contents
@@ -145 +145 @@
                             -textvariable entryvar(${var}$phax) -width 4] \
                             -column [incr col] -row $row
+                    set entrybox(${var}$phax) $pOrientf1.e${var}$row
                 }
                 # Ratio
@@ -150 +151 @@
                         -textvariable entryvar(ratio$phax) -width 10] \
                         -column 10 -row $row -sticky e
+                set entrybox(ratio$phax) $pOrientf1.erat$row
                 # ratio refine
                 grid [checkbutton $pOrientf1.ratref$row \
@@ -159 +161 @@
                             -textvariable entryvar(fraction$phax) -width 10] \
                             -column 13 -row $row -sticky e
+                    set entrybox(fraction$phax) $pOrientf1.efrac$row
                     # fraction refine
                     grid [checkbutton $pOrientf1.fracref$row \