diff options
| author | lecoanet | 2003-01-20 09:53:21 +0000 |
|---|---|---|
| committer | lecoanet | 2003-01-20 09:53:21 +0000 |
| commit | 2cfaf5bc920b79624f5315f83991de9ee8ba5f84 (patch) | |
| tree | 1ef2655c0fb17e2f9f6510da2432aedc827afb37 /sandbox | |
| parent | 3311eb03958d862b149fdd86ee6471e0f6d9795e (diff) | |
| download | tkzinc-2cfaf5bc920b79624f5315f83991de9ee8ba5f84.zip tkzinc-2cfaf5bc920b79624f5315f83991de9ee8ba5f84.tar.gz tkzinc-2cfaf5bc920b79624f5315f83991de9ee8ba5f84.tar.bz2 tkzinc-2cfaf5bc920b79624f5315f83991de9ee8ba5f84.tar.xz | |
*** empty log message ***
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(); |