User since
2005-11-14
4
Artikel
BenutzerIn
hi,
bin Perl und Perl/Tk-Neuling. Arbeite mit Tk 8.0 unter Windows XP und versuche, die Keys 'Next' ,'Prev', 'Up' und 'Down' an ein Listbox-Widget zu binden, um zu scrollen. Lt. Docu sind dies zwar Standard-Bindings dazu - aber das funktioniert bei mir nicht (Bei Text geht's, da sind keine Binds notwendig).
Hat jemand eine Lösung?
User since
2003-08-04
14371
Artikel
ModeratorIn
Wie hast Du es denn versucht??
User since
2003-08-04
5867
Artikel
ModeratorIn
Genau, zeig mal etwas Code, am besten als kleinstmögliches lauffähiges Programm was das Problem demonstriert.
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
User since
2003-11-28
3645
Artikel
ModeratorIn
Die Keybindings gehen nur, wenn das Listbox den Fokus hat. Also ein paar Mal <Tab> drücken oder $listbox->focus verwenden.
User since
2005-11-14
4
Artikel
BenutzerIn
Hi,
erst einmal vielen Dank an alle, die sich um die Lösung meines Problems bemüht haben. Die richtige Spur war die mit dem Focus. Da ein $Listbox->bind('<Double-1>',sub{...}) dies aber scheinbar nicht braucht (warum auch immer), wäre ich nie auf die Idee gekommen! Ja, kaum macht man's richtig, schon funktioniert's - super!!
User since
2005-11-14
4
Artikel
BenutzerIn
Hi,
vielen Dank für deine Unterstützung! Lösung s. Mail an ptk.
User since
2003-11-28
3645
Artikel
ModeratorIn
[quote=rmoe,15.11.2005, 15:57]Da ein $Listbox->bind('<Double-1>',sub{...}) dies aber scheinbar nicht braucht (warum auch immer),[/quote]
Bei einem Mausklick ist es ja eindeutig, welches Widget gemeint ist. Bei einer Tastatureingabe aber nicht, deshalb gibt es den Fensterfokus im Window Manager und den Fokus in GUI-Anwendungen.