Import Tk 8.6.11
This commit is contained in:
@@ -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"
|
||||
|
||||
|
||||
Reference in New Issue
Block a user