Greetings Daniel,
I use the following little sub to get keypresses in TK.
sub get_key{
my ($widget) = @_;
my $e = $widget->XEvent; # get event object
my $key_num = $e->N;
}
Sunday, January 27, 2008, 6:37:11 AM, you wrote:
DB> Hi,
DB> I just realized Term::ReadKey does not work with TK, or is it?
DB> Is there any way for me to read keypresses from TK?
DB> My TK application is mostly a Canvasand I need to plot/draw the
DB> keypressed characters directly into this canvas.
DB> Thus far the solution I am using is IsKeyPressed (Win32::GuiTest) but this
does
DB> not probe to be efficient and likewise, I found a bug with IsKeyPressed
DB> and SendRawKey
DB> Any help is appreciated.
DB> Dan
--
Best regards,
Spencer 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
