From 63cac955e941894fe2e705db1bb98bfbc786a8a5 Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Wed, 21 Jun 2000 13:50:05 +0000
Subject: *** empty log message ***

---
 sandbox/testbezier.tcl | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'sandbox/testbezier.tcl')

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"
-- 
cgit v1.1