Skriptdepot: Perl/TK
Das Modul TK:
http://search.cpan.org/~srezic/Tk-804.028/
Modale Dialoge mit MessageBox:
#!/usr/bin/perl -w use strict; use Tk; # Main Window my $mw = new MainWindow; my $button = $mw->Button(-text=>"Anwendung beenden", -command=>\&exitTheApp)->pack(); sub exitTheApp { my $response = $mw->messageBox(-title=>"Anwendung beenden", -message=>"Möchten Sie wirklich beenden?", -icon=>'question', -type=>'yesno', -default=>'yes'); if( $response eq "Yes" ) { exit } else { $mw->messageBox(-message=>"Ok, dann nicht!"); } } MainLoop;
OPTIONEN:
-default Bestimmt welche Schaltfläche (siehe -type) per Standard fokussiert wird.
Optional, Standard ist die erste Schaltfläche von links.
Werte: yes - no - cancel - abort - retry - ignore
-icon Symbol links von der Nachricht.
Optional, Standard ist kein Symbol.
Werte: error - info - question - warning
-message Die Nachricht die der Dialog anzeigen soll.
Optional, Standard ist keine Nachricht.
-title Der Titel des Dialoges.
Optional, der Standardwert ist vom Betriebssystem abhängig.
-type Bestimmt den vordefinierten Satz von Schaltflächen der angezeigt werden sollen.
Optional, Standard ist "OK". Folgende Werte sind möglich:
+ abortretryignore = Abbrechen Wiederholen Ignorieren
+ ok = OK
+ okcancel = OK und Abbrechen
+ retrycancel = Wiederholen Abbrechen
+ yesno = Ja Nein
+ yesnocancel = Ja Nein Abbrechen
RÜCKGABEWERTE:
yes - no - cancel - abort - retry - ignore
WEITERE HILFE:
perldoc Tk::MessageBox
QUELLE:
http://www.bin-co.com/perl/perl_tk_tutorial/dialogs.php
Modale Dialoge mit dem Modul Tk::Dialog:
http://kobesearch.cpan.org/htdocs/Tk/Tk/Dialog.html
Menüs:
http://www.bin-co.com/perl/perl_tk_tutorial/widgets5.php
page revision: 40, last edited: 22 Dec 2009 06:30