diff options
Diffstat (limited to 'Master/tlpkg/tltcl/lib/tk8.6/demos/twind.tcl')
-rw-r--r-- | Master/tlpkg/tltcl/lib/tk8.6/demos/twind.tcl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Master/tlpkg/tltcl/lib/tk8.6/demos/twind.tcl b/Master/tlpkg/tltcl/lib/tk8.6/demos/twind.tcl index 45d1da87348..74f11ebf075 100644 --- a/Master/tlpkg/tltcl/lib/tk8.6/demos/twind.tcl +++ b/Master/tlpkg/tltcl/lib/tk8.6/demos/twind.tcl @@ -265,9 +265,9 @@ proc createPlot {t} { $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> "embPlotDown $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> "embPlotDown $c %x %y" $c bind point <ButtonRelease-1> "$c dtag selected" bind $c <B1-Motion> "embPlotMove $c %x %y" return $c |