Numerobis
Petty Member First Class
Anmeldedatum: 24.08.2006
Beiträge: 29
|
 Verfasst am: 05.12.2009, 13:27 Titel: Dialog ohne MainWindow |
 |
|
Hallo,
ich würde gerne eine Abfrage machen, die der Benutzer mit Ja oder Nein beantworten kann und danach das Programm weiter läuft. Leider hab ich bis jetzt nur die Lösung mit dem Mainwindow gefunden, was zwar läuft, nur muss ich jedes mal das Fenstern noch zusätzlich schliessen.
Kann mir von Euch jemand sagen, ob es eine Möglichkeit gibt einen Dialog ohne Mainwindow zu öffen?
Hier mein Unterprogramm
| Code: |
sub Dialog{
my $Verzeichnis = $_[0];
# Dialog mit der Abfrage, ob das Verzeichnis eingelesen werden soll
my $mw = MainWindow->new();
my $text = "Sollen die Bilder aus Verzeichnis $Verzeichnis eingelesen werden?";
my $dialog = $mw->Dialog(-title => 'Test',
-text => $text,
-bitmap => 'question',
-default_button => 'ja',
-buttons => ['ja','nein']);
$dialog->Show();
MainLoop;
if ( $dialog -> {selected_button} eq "ja" ){
print "Verzeichnisse $Verzeichnis wird jetzt mit Unterverzeichnisse eingelesen.\n";
return 1;
}
else{
print "Es wurden keine Bilder eingelesen!\nProgramm ENDE.\n";
exit(0);
}
}
|
|
|
