Opened by Rambo at 2003-12-19 10:26
User since
2003-08-04
5866 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5866 Artikel
ModeratorIn
Das ist aber nicht für Alt-E, sondern Ctrl-E, aber das Prinzip dürfte klar sein.
Allerdings würde ich den Wert nicht auf \&exit setzen, sondern auf sub { $mybutton->invoke() }.
Ergebnis:
Allerdings würde ich den Wert nicht auf \&exit setzen, sondern auf sub { $mybutton->invoke() }.
Ergebnis:
Code: (dl
)
$mw->bind( $mw, '<Alt-e>' => sub { $mybutton->invoke() });s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
use strict; use warnings; Link zu meiner Perlseite
use strict; use warnings; Link zu meiner Perlseite