Changeset 931 for trunk/excledt.tcl

Timestamp:

Dec 4, 2009 7:39:46 PM (16 years ago)

Author:

toby

Message:

include rest of files

File:

• trunk/excledt.tcl (modified) (2 diffs)

trunk/excledt.tcl ¶

@@ -1176 +1176 @@
                 set rng [tod $rng $hst]
                 if {$col == 0} {
-                    set lbl ">[format %.4f [lindex $rng 1]]"
+                    set lbl "<[format %.4f [lindex $rng 1]]"
                 } else {
                     set lbl "[format %.4f [lindex $rng 0]]\nto [format %.4f [lindex $rng 1]]"
@@ -1182 +1182 @@
                 incr col
                 if {$col == [llength $exclist]} {
-                    set lbl "<[format %.4f [lindex $rng 0]]"
+                    set lbl ">[format %.4f [lindex $rng 0]]"
                 }
             } else {