Dialog aus Dialog anzeigen (Graphische Oberflächen)

[thread]11299[/thread]

Dialog aus Dialog anzeigen

Leser: 1

theresa

2008-02-14 14:21

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

Hi,
ich möchte ein Dialog aus einem anderen Dialog erzeugen. Der Kode dafür:

Code: (dl )

my $mw = tkinit();
my $titel = "titel";
my $text = "text";
my $dialog = $mw->Dialog(-title => $titel,-text => $text, -bitmap => 'info', -font=>'courier 8', -buttons => ['Jetzt', 'Später', 'Nie']);
	
	#$dialog -> protocol( 'WM_DELETE_WINDOW'=>sub {exit(); } );
	
 	$dialog-> transient('');
 	$mw->withdraw();  
 	
	my $answer = $dialog->Show();
	
	if($answer eq "Jetzt"){
	}
	elsif ($answer eq "Später"){
	}
	elsif ($answer eq "Nie"){
		my $titel = "titel";
		my $text = "text";
		my $bestaetigung = $mw->Dialog(-title => $titel,-text => $text,  -font=>'courier 8', -buttons => ['Ja', 'Nein']);
		my $antwort = $bestaetigung->show();
		if($antwort eq "Ja"){
		}

Also wenn man im ersten Dialog auf "Nie" klickt, soll ein zweites Dialog (zur Bestätigung) erscheinen, mit den Buttons "Ja" und "Nein".

Das zweite wird aber nicht angezeigt, die Fehlermeldung dafür:
Failed to AUTOLOAD 'Tk::Dialog::show' at C:/Dokumente und Einstellungen/fh/workspace2/login_pl/Anmelder.pl line 436

Den Kode habe ich stark vereinfacht... in den einzelnen Optionen steckt also viel drin, so dass ich jetzt die Grundstruktur ungerne ändern würde.

Könnte mir jemand sagen wie dieses zweites Dialog angezeigt werden kann? ohne am Kode viel zu ändern?

Noch eine Frage. Ich habe diese Zeile auskommentiert.
[code]#$dialog -> protocol( 'WM_DELETE_WINDOW'=>sub {exit(); } );

Das Programm soll sich beenden wenn man das Fenster schließt... habe das im Internet gefunden, hat aber nicht funktioniert. Wäre nett wenn jemand mir sagen würde wie das geht.

Antworten mit Zitat

theresa

2008-02-14 14:23

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

Das geht auch nicht:

Code: (dl )

my $bestaetigung = $dialog->Dialog(-title => $titel,-text => $text,  -font=>'courier 8', -buttons => ['Ja', 'Nein']);

----
Modedit Gwendragon: Bitte unter http://board.perl-community.de/thread/11298/#MSG1 weiter
----

Antworten mit Zitat

View all threads created 2008-02-14 14:21.