Changeset 349


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

# on 2000/11/21 21:23:45, toby did:
change appearance of negative contraint values from red to beige bkg

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/atomcons.tcl

    • Property rcs:date changed from 2000/10/12 21:30:14 to 2000/11/21 21:23:45
    • Property rcs:lines changed from +14 -10 to +5 -6
    • Property rcs:rev changed from 1.7 to 1.8
    r318 r349  
    173173            grid [label $top.c${col}$row -text $var] \
    174174                    -column [incr col] -row $row
    175             if {$mult > 0} {
    176                 grid [label $top.c${col}$row -text "x $mult"] \
     175            set vallbl $top.c${col}$row
     176            grid [label $vallbl -text "x $mult"] \
    177177                        -column [incr col] -row $row
    178             } else {
    179                 grid [label $top.c${col}$row -text "x $mult" -fg red] \
    180                         -column [incr col] -row $row
     178            if {$mult < 0} {
     179                $vallbl config -bg beige
    181180            }
    182181        }
Note: See TracChangeset for help on using the changeset viewer.