Changeset 349

Timestamp:

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

• trunk/atomcons.tcl (modified) (1 diff, 3 props)

trunk/atomcons.tcl

@@ -173 +173 @@
             grid [label $top.c${col}$row -text $var] \
                     -column [incr col] -row $row
-            if {$mult > 0} {
-                grid [label $top.c${col}$row -text "x $mult"] \
+            set vallbl $top.c${col}$row
+            grid [label $vallbl -text "x $mult"] \
                         -column [incr col] -row $row
-            } else {
-                grid [label $top.c${col}$row -text "x $mult" -fg red] \
-                        -column [incr col] -row $row
+            if {$mult < 0} {
+                $vallbl config -bg beige
             }
         }