Opened by PerlProfi at 2007-04-03 16:01
User since
2006-11-29
340 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2006-11-29
340 Artikel
BenutzerIn
Hallo,
ich habe ein Textwidget in meiner Applikation und möchte bei einem <Control-Tab> Event Daten in das Textfeld schreiben, danach soll der Fokus wieder im Textfeld liegen.
Leider verliert das Textfeld aber bei diesem Event den Fokus und auch ein $text->focus() in der callback-Routine bringt nichts.
Allerdings kann ich den Fokus vorher normal setzen.
Das Textwidget ist Scrolled(), aber es macht anscheinend keinen Unterschied ob ich den Frame oder das Textwidget anspreche.
Beispiel, welches das Problem verdeutlicht:
Das Textfeld sollte den Fokus zu Anfang schon besitzen.
Drückt man jetzt Strg-Tab, so verliert das Textfeld den Fokus, obwohl es eigentlich den Fokus bekommen sollte.
Weiß jemand wie ich es anstellen muss, damit das Textfeld den Fokus behält?
MfG PerlProfi
ich habe ein Textwidget in meiner Applikation und möchte bei einem <Control-Tab> Event Daten in das Textfeld schreiben, danach soll der Fokus wieder im Textfeld liegen.
Leider verliert das Textfeld aber bei diesem Event den Fokus und auch ein $text->focus() in der callback-Routine bringt nichts.
Allerdings kann ich den Fokus vorher normal setzen.
Das Textwidget ist Scrolled(), aber es macht anscheinend keinen Unterschied ob ich den Frame oder das Textwidget anspreche.
Beispiel, welches das Problem verdeutlicht:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
#!/usr/bin/perl
use strict;
use warnings 'all';
use Tk;
use Tk::Text;
my $mw = tkinit;
my $text = $mw->Scrolled('Text' =>
-scrollbars => 'ose',
-background => 'white',
-wrap => 'none')
->pack(-fill => 'both',
-expand => 1);
$text -> focus();
$text -> bind('<Control-Tab>', sub { $text->focus() });
MainLoop;
Das Textfeld sollte den Fokus zu Anfang schon besitzen.
Drückt man jetzt Strg-Tab, so verliert das Textfeld den Fokus, obwohl es eigentlich den Fokus bekommen sollte.
Weiß jemand wie ich es anstellen muss, damit das Textfeld den Fokus behält?
MfG PerlProfi