Opened by theresa at 2008-02-14 14:21
User since
2007-07-17
90 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2007-07-17
90 Artikel
BenutzerIn
Hi,
ich möchte ein Dialog aus einem anderen Dialog erzeugen. Der Kode dafür:
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.
ich möchte ein Dialog aus einem anderen Dialog erzeugen. Der Kode dafür:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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.