diff options
Diffstat (limited to 'library/demos/plot.tcl')
-rw-r--r-- | library/demos/plot.tcl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/library/demos/plot.tcl b/library/demos/plot.tcl index e7f0361..453b7a6 100644 --- a/library/demos/plot.tcl +++ b/library/demos/plot.tcl @@ -55,9 +55,9 @@ foreach point { $c addtag point withtag $item } -$c bind point <Any-Enter> "$c itemconfig current -fill red" -$c bind point <Any-Leave> "$c itemconfig current -fill SkyBlue2" -$c bind point <1> "plotDown $c %x %y" +$c bind point <Enter> "$c itemconfig current -fill red" +$c bind point <Leave> "$c itemconfig current -fill SkyBlue2" +$c bind point <Button-1> "plotDown $c %x %y" $c bind point <ButtonRelease-1> "$c dtag selected" bind $c <B1-Motion> "plotMove $c %x %y" |