Changeset 305 for trunk/orient.tcl


Ignore:
Timestamp:
Dec 4, 2009 5:03:50 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/orient.tcl

    • Property rcs:date changed from 2000/07/20 22:13:40 to 2000/10/03 23:29:29
    • Property rcs:lines changed from +2 -130 to +5 -2
    • Property rcs:rev changed from 1.4 to 1.5
    r240 r305  
    5454# are selected
    5555proc DisplayOrient {} {
    56     global expgui entrycmd entryvar expmap
     56    global expgui entrycmd entryvar entrybox expmap
    5757       
    5858    # identify the frame and kill the old contents
     
    145145                            -textvariable entryvar(${var}$phax) -width 4] \
    146146                            -column [incr col] -row $row
     147                    set entrybox(${var}$phax) $pOrientf1.e${var}$row
    147148                }
    148149                # Ratio
     
    150151                        -textvariable entryvar(ratio$phax) -width 10] \
    151152                        -column 10 -row $row -sticky e
     153                set entrybox(ratio$phax) $pOrientf1.erat$row
    152154                # ratio refine
    153155                grid [checkbutton $pOrientf1.ratref$row \
     
    159161                            -textvariable entryvar(fraction$phax) -width 10] \
    160162                            -column 13 -row $row -sticky e
     163                    set entrybox(fraction$phax) $pOrientf1.efrac$row
    161164                    # fraction refine
    162165                    grid [checkbutton $pOrientf1.fracref$row \
Note: See TracChangeset for help on using the changeset viewer.