Thread Dialog Yes/No (2 answers)
Opened by havi at 2003-10-16 18:57

havi
 2003-10-16 18:57
#44593 #44593
User since
2003-08-04
2036 Artikel
BenutzerIn
[Homepage]
user image
Hi!

Das folgende Skript hab ich mal bei http://www.perlmonks.org/ gefunden...

Ich dachte vielleicht interessiert es ja den einen oder anderen!

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
#!/usr/bin/perl

use warnings;
use strict;
use Tk;

my $mw = MainWindow->new();

$mw->protocol('WM_DELETE_WINDOW', \&ExitApplication);

MainLoop;

1;

sub ExitApplication {
   # Prepare dialog yes|no
   my $dialog = $mw->Dialog(-text => 'Wollen Sie wirklich beenden?',
   -bitmap => 'question',
   -title => 'Quit?',
   -default_button => 'Yes',
   -buttons  => [qw/Yes No/],
               
            ); # Dialog

   my $answer = $dialog->Show(); # and display dialog
   if ($answer =~ /y/i){
      print "\nEs wurde ja ausgewaehlt.\n";
      exit(0);
   } # if
   else {
      print "\nEs wurde nein ausgewaehlt.\n";
   } # else

} # ExitApplication


Gruss\n\n

<!--EDIT|havi|1066316499-->

View full thread Dialog Yes/No