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

Unless otherwise stated, the content of this page is licensed under Creative Commons Attribution-ShareAlike 3.0 License