Changeset 492


Ignore:
Timestamp:
Dec 4, 2009 5:07:04 PM (11 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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/excledt.tcl

    • Property rcs:date changed from 2001/11/07 18:12:46 to 2001/12/16 18:06:53
    • Property rcs:lines changed from +32 -30 to +7 -4
    • Property rcs:rev changed from 1.6 to 1.7
    r483 r492  
    669669        $graph(plot) marker create line -under 1 -name excl[incr i] \
    670670                -coords "$x1 -Inf $x2 -Inf" \
    671                 -outline $graph(color_excl) -linewidth 3
     671                $graph(MarkerColorOpt) $graph(color_excl) -linewidth 3
    672672        # copy any points that should be excluded
    673673        set l [lsort -integer [xvec search $x1 $x2]]
     
    14811481    }
    14821482    foreach item {xmin ymin xmax ymax} {
    1483         set $item {}
    1484         catch {set $item [expr $graph($item)]} 
     1483        if {[catch {expr $graph($item)}]} {
     1484            set $item ""
     1485        } else {
     1486            set $item $graph($item)
     1487        }
    14851488    }
    14861489    # reset the zoomstack
Note: See TracChangeset for help on using the changeset viewer.