diff options
Diffstat (limited to 'sandbox/testbezier.tcl')
| -rw-r--r-- | sandbox/testbezier.tcl | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/sandbox/testbezier.tcl b/sandbox/testbezier.tcl index 3f1f25b..528ddac 100644 --- a/sandbox/testbezier.tcl +++ b/sandbox/testbezier.tcl @@ -124,5 +124,7 @@ focus .r bind .r "<a>" toggle_arrows bind .r "<c>" toggle_closed +bind .r "<Shift-1>" {set it [.r find closest %x %y]; puts "$it [.r verticeat $it %x %y]"} +bind .r "<Shift-ButtonRelease-1>" {break} source "controls.tcl" |