Use this script to find out:
#!/usr/bin/perl -w
#
# $Source: ptkkeysym $ $Revision: 1.1 $
#
use strict;
use Tk 'Ev';
my $keysym;
my $mw = MainWindow->new;
$mw->Label(-text=>"-- Press any key --\n\nKeysym is:\n\n")->pack;
$mw->Label(-textvariable=>\$keysym)->pack;
$mw->Button(-text=>'Exit', -command=>[$mw => 'destroy'])
->pack(-side=>'bottom');
$mw->geometry('300x200');
$mw->packPropagate(0);
sub PrintKeySym { $keysym = $_[1]; }
$mw->bind('all','<Any-Key>', [\&PrintKeySym, Ev('K')]);
MainLoop;
__END__
Jack
--------
"The views expressed here are mine and do not reflect the official
position of my employer or the organization through which the Internet
was accessed".
-----Original Message-----
From: Swartwood, Larry H [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, January 16, 2002 11:35 AM
To: Perl-Win32-Users (E-mail)
Subject: Binding events to tk::comboentry
I need to bind the down and up arrow keys to my tk::comboentry. I'm not sure
what the text string would be for those keys. Anyone have an example?
Thanks,
Larry S.
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
