How to create hotkeys with Tk? 1

[kmarris]

I know Perl, but I don't know Tk. I have a Perl script that someone else wrote. When it runs, there is a GUI with an Exit button.

Rather than click the Exit button, I want to assign a keyboard shortcut to exit the GUI. Can someone tell me how to add this functionality to the Perl script?

 

[feherke]

Hi

[gray]# Tcl[/gray]

[b]button[/b] .be [b]-text[/b] [i]Exit[/i] [b]-underline[/b] [i]1[/i] [b]-command[/b] [i]exit[/i]
[b]pack[/b] .be

[b]bind[/b] . [i]<Alt-Key-x>[/i] [i]exit[/i]

[gray]# Perl[/gray]

[b]use[/b] Tk;

$wi=[b]MainWindow[/b]->[b]new[/b];
$be=$wi->[b]Button[/b]([b]-text[/b]=>[i]"Exit"[/i],[b]-underline[/b]=>[i]"1"[/i],[b]-command[/b]=>[i]"exit"[/i]);
$be->[b]pack[/b];

$wi->[b]bind[/b]([i]"<Alt-Key-x>"[/i]=>[i]"exit"[/i]);

[b]MainLoop[/b];

Feherke.

http://rootshell.be/~feherke/

 

[kmarris]

Thanks, Feherke. That worked perfectly.