Greetings perl-win32-users,
This is really a TK question but I can't find a way to join the TK
list in order to post. It does not show up in the subscriptions list.
I have a TK Canvas on which I have drawn 128 polygons representing the
extended MIDI piano keyboard. I have tried everything I can think of,
consulting the documentation etc but I can not figure out a way to
tell which polygon the mouse cursor has entered. Using TK widget, I
only get a reference to the Canvas itself and not the individual
polygon. Nothing else I have tried has worked either.
my $poly0 = $c->createPolygon($NSt + $xadd,$top, $NSt + $xadd,$bot,
$NSt + $NSp + $xadd,$bot, $NSt + $NSp + $xadd,$mid, $SSt +$xadd,$mid,
$SSt + $xadd,$top, -outline=> 'black', -fill=> 'white', -tags=>
'note0');
$c -> bind($c ->$poly0, "<ButtonPress-1>", sub {send_note_on (0)});
$c -> -> bind($poly0, "<ButtonRelease-1>", sub {send_note_off (0)});
--
Best regards,
Spencer_Lists Chase mailto:[EMAIL PROTECTED]
67550 Bell Springs Rd.
Garberville, CA 95542 Postal service only.
Laytonville, CA 95454 UPS only.
[EMAIL PROTECTED]
http://www.spencerserolls.com
http://www.spencerserolls.com/MidiValve.htm
(707) 984-8356
_______________________________________________
Perl-Win32-Users mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
