Shortcuts für Buttons: Shortcuts in TK für buttons (Graphische Oberflächen)

Rambo

2003-12-19 10:26

User since
2003-08-14
803 Artikel
BenutzerIn

user image

Hallo,

wie kann ich für ein Butten einen shortcut unter Perl TK einrichten?
z.B. Alt+E für exit?

Gruß Remo

Robby

2003-12-19 10:49

User since
2003-08-11
409 Artikel
BenutzerIn
[default_avatar]

Code: (dl )

$mw->bind( $mw, "<Control-e>" => \&exit );

Gruß
Robby\n\n

Kaum macht man es richtig - schon funktioniert es!

Crian

2003-12-19 10:55

User since
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:

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

Rambo

2003-12-19 11:14

User since
2003-08-14
803 Artikel
BenutzerIn

user image

Danke funktionieren tut das aber das E für Exit ist nicht
unterlegt so das man es wissen muss das man mit Alt+E das
Prg. auch beenden kann.
geht das auch?

Robby

2003-12-19 11:59

User since
2003-08-11
409 Artikel
BenutzerIn
[default_avatar]

Probier mal ein & davor zu setzen, im Menü klappt so was glaub ich :)

Ansonsten leg einfach ein Balloon-Tooltip auf diesen Button und schreib in dieses gelbe Popup-Ding einfach Alt+E rein ;)\n\n

Kaum macht man es richtig - schon funktioniert es!

Strat

2003-12-19 12:39

User since
2003-08-04
5246 Artikel
ModeratorIn

@Rambo: welches OS verwendest du?

schau dir mal das Attribut -underline => 0 oder 1
fuer den Button an\n\n

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

Rambo

2003-12-19 12:45

User since
2003-08-14
803 Artikel
BenutzerIn

user image

@Strat, Windof W2K :-)
werde mal testen ob es geht

Rambo

2003-12-19 12:52

User since
2003-08-14
803 Artikel
BenutzerIn

user image

@Strat funzt
-underline => 0, ist der erste Buchstabe im Button 1 dann der 2. usw....
wenn man dann noch ein bind macht ist das resultat was
ich wollte.
Danke schön an all
bin wieder ein schritt weiter! :-)

gruss remo

ptk

2003-12-19 17:17

User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]

Uebrigens: wem es zu laestig ist, die -underline und & selbst zu spezifieren, kann es auch automatisch machen lassen: siehe Tk::UnderlineAll in http://user.cs.tu-berlin.de/~eserte/src/perl/Tk-SREZIC/