diff options
| author | lecoanet | 2000-06-21 13:50:05 +0000 |
|---|---|---|
| committer | lecoanet | 2000-06-21 13:50:05 +0000 |
| commit | 63cac955e941894fe2e705db1bb98bfbc786a8a5 (patch) | |
| tree | 61c603334c679c6c15aaba2150d0632e83360750 /sandbox/controls.tcl | |
| parent | a3f8b8bf667fbd6d7ea9e74e26c4e561b02ddafc (diff) | |
| download | tkzinc-63cac955e941894fe2e705db1bb98bfbc786a8a5.zip tkzinc-63cac955e941894fe2e705db1bb98bfbc786a8a5.tar.gz tkzinc-63cac955e941894fe2e705db1bb98bfbc786a8a5.tar.bz2 tkzinc-63cac955e941894fe2e705db1bb98bfbc786a8a5.tar.xz | |
*** empty log message ***
Diffstat (limited to 'sandbox/controls.tcl')
| -rw-r--r-- | sandbox/controls.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/sandbox/controls.tcl b/sandbox/controls.tcl index 9301d1a..d865020 100644 --- a/sandbox/controls.tcl +++ b/sandbox/controls.tcl @@ -129,7 +129,7 @@ proc showbox {} { } proc hidebox {lx ly} { - set next [.r find atpoint $lx $ly] + set next [.r find closest $lx $ly] if {[llength $next] > 1} { set next [lindex $next 0] } @@ -143,7 +143,7 @@ proc hidebox {lx ly} { bind .r "<ButtonPress-1>" "start_lasso %x %y" bind .r "<ButtonRelease-1>" fin_lasso -bind .r "<ButtonPress-2>" {puts "at point='[.r find atpoint %x %y]'"} +bind .r "<ButtonPress-2>" {puts "at point='[.r find closest %x %y]'"} bind .r "<ButtonPress-3>" "press %x %y motion" bind .r "<ButtonRelease-3>" release |