return von subroutine mit frame (Seite 2) (Graphische Oberflächen)

[thread]5357[/thread]

return von subroutine mit frame (Seite 2)

ptk

2007-08-07 23:01

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

Ruf $mw->withdraw auf.

Gast Gast

2007-08-21 01:57

läuft schon alles bei mir :)

hab nur noch ein kleines problem... zwar mit focus().

ich versuche es mal zu erklären. zuerst frage ich die logindaten ab. danach wird dies und das damit gemacht, und am ende musst ein fenster angezeigt werden, mit einem paar rückmeldungen.

der code für dieses fenster:

Code: (dl )

sub infoFenster {
	
	my $text = shift;
	
	my $mw = tkinit();
	my $sFenster = $mw -> Scrolled("Text", -scrollbars => 'e',-width =>60, -height=>20,) -> pack;
	$sFenster->focus();
	$sFenster->bind('<Any-KeyPress>', sub{$mw->destroy();});
	
	$sFenster->insert('end', $text);
	
	MainLoop;
}

so. wenn ich diesen code getrennt in einer datei teste, läuft alles, der focus funtioniert.

im "richtigen" skript soll es aber erst dann auftauchen, wenn die anmeldung geklappt oder man 3 fehlversuche gemacht hat...

also nach

Code: (dl )

#...
anmeldeFenster();
sub anmeldeFenster {
#...
sub ok {
   	my $mw = shift;
    	my $fenster = shift;
	my $user = $fenster->Subwidget('user_frame')->Subwidget('user')->get();
	my $pass = $fenster->Subwidget('password_frame')->Subwidget('password')->get();
    	$mw -> destroy();
    	return ($user, $pass);
	}
}
#...
infoFenster($text);

In diesem Fall bekommt das Fenster nicht das Fokus, obwohl der Code derselbe ist... liegt es vielleicht daran dass das $mw nicht ganz verschwunden ist?
mit withdraw hab ich auch versucht, ist aber nicht besser geworden.

theresa

2007-08-21 13:55

User since
2007-07-17
90 Artikel
BenutzerIn
[default_avatar]

focusForce() funzt auch nicht...

View all threads created 2007-07-17 14:19.