Thread Unterfenster aus Schleife heraus starten (9 answers)
Opened by rol_wir at 2006-10-11 12:31

renee
 2006-10-11 12:40
#45873 #45873
User since
2003-08-04
14371 articles
ModeratorIn
[Homepage] [default_avatar]
Vielleicht hilft Dir CPAN:Tk::Dialog weiter:
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
#! /usr/bin/perl
use strict;
use warnings;
use Tk;
use Tk::Dialog;
my $mw = MainWindow->new();
my $text = 'Save all your changes before exit?';
my $dialog = $mw->Dialog(-title => 'Test',
-text => $text,
-bitmap => "question",
-default_button => 'ok',
-buttons => ['cancel','ok']);

for(0..3){
print $_,": ";
my $entscheidung = $dialog->Show();
print $entscheidung,"\n";
}
MainLoop;


Mehr ist im Wiki:Artikel zu finden...
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

View full thread Unterfenster aus Schleife heraus starten