Tk::Text -> focus aus Tk::JBrowseEntry setzen - #46284 (Graphische Oberflächen)

GoodFella

2007-04-08 09:01

User since
2007-01-09
192 Artikel
BenutzerIn
[default_avatar]

Ich benutze Tk::JBrowseEntry, um in ein Tk::Text-Widget reinzuschreiben:

Code (perl): (dl )

1
2
3

my $text_data = $combi_window->Text( -height => 8, width => 122 );
my $be_add =    $combi_window->JBrowseEntry( -state => 'readonly', -variable => \$headline, -choices => \@headlines, -width => 20);
$be_add->configure( -browsecmd => sub { $text_data->Insert( "$start_data$headline$end_data"); $text_data->focus; } );

Das funktioniert auch, nur leider hat das Text-Widget trotzdem nicht den Fokus.
Ich möchte nämlich Datenelemente einfügen und dann Leerzeichen / Zeilenümbrüche einfügen, OHNE nochmal aufs Text-Widget klicken zu müssen.

Achja hier mal ein Screenshot:
http://flux.pldsecurity.de/focus.jpg

Habe schon alle Tips des anderen aktuellen Tk::Text-Beitrages hier im Forum durch, ohne einen Effekt zu erzielen.
Jemand eine Idee?\n\n