Changeset 492 for trunk/excledt.tcl

Timestamp:

Dec 4, 2009 5:07:04 PM (14 years ago)

Author:

toby

Message:

# on 2001/12/16 18:06:53, toby did:
make -outline BLT version dependent (bug fix)
fix manual zoom reset

File:

• trunk/excledt.tcl (modified) (2 diffs, 3 props)

trunk/excledt.tcl

@@ -669 +669 @@
         $graph(plot) marker create line -under 1 -name excl[incr i] \
                 -coords "$x1 -Inf $x2 -Inf" \
-                -outline $graph(color_excl) -linewidth 3
+                $graph(MarkerColorOpt) $graph(color_excl) -linewidth 3
         # copy any points that should be excluded
         set l [lsort -integer [xvec search $x1 $x2]]
@@ -1481 +1481 @@
     }
     foreach item {xmin ymin xmax ymax} {
-        set $item {}
-        catch {set $item [expr $graph($item)]}  
+        if {[catch {expr $graph($item)}]} {
+            set $item ""
+        } else {
+            set $item $graph($item)
+        }
     }
     # reset the zoomstack