Changeset 793 for trunk/excledt.tcl


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

# on 2004/05/13 23:38:46, toby did:
add new zoom binding

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/excledt.tcl

    • Property rcs:date changed from 2004/04/26 21:18:57 to 2004/05/13 23:38:46
    • Property rcs:lines changed from +37 -4 to +4 -2
    • Property rcs:rev changed from 1.12 to 1.13
    r778 r793  
    439439        set zoom(bindtag) $graph(plot)
    440440        catch {
    441             if {[bind bltZoomGraph] != ""} {
     441            if {[bind zoom-$graph(plot)] != ""} {
     442                set zoom(bindtag) zoom=$graph(plot)
     443            } elseif {[bind bltZoomGraph] != ""} {
    442444                set zoom(bindtag) bltZoomGraph
    443445            }
Note: See TracChangeset for help on using the changeset viewer.