diff options
Diffstat (limited to 'sandbox')
-rw-r--r-- | sandbox/testshape.pl | 7 |
1 files changed, 5 insertions, 2 deletions
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(); |