From 2cfaf5bc920b79624f5315f83991de9ee8ba5f84 Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Mon, 20 Jan 2003 09:53:21 +0000
Subject: *** empty log message ***

---
 sandbox/testshape.pl | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'sandbox')

diff --git a/sandbox/testshape.pl b/sandbox/testshape.pl
index e14d341..5897912 100644
--- a/sandbox/testshape.pl
+++ b/sandbox/testshape.pl
@@ -120,8 +120,11 @@ $zinc->Tk::bind('<1>', sub {
 		  my $ev = $zinc->XEvent();
 		  my $it = $zinc->find('closest', $ev->x, $ev->y);
 		  print "Closest: $it\n";
-		  my @t = $zinc->vertexat($it, $ev->x, $ev->y);
-		  print "VertexAt: ", join(', ', @t), "\n";
+#		  my @t = $zinc->vertexat($it, $ev->x, $ev->y);
+#		  print "VertexAt: ", join(', ', @t), "\n";
+		  $zinc->bind($cv2, '<1>', sub { print "zou\n";});
+		  $zinc->coords($cv2, 0, [[100,0]]);
+		  print $zinc->bind($cv2, '<1>'), "\n";
 		});
 
 $zinc->focusFollowsMouse();
-- 
cgit v1.1