Schrift
[thread]4665[/thread]

Dialog Yes/No

Leser: 2


<< >> 3 Einträge, 1 Seite
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-->
havi
 2003-10-16 19:02
#44594 #44594
User since
2003-08-04
2036 Artikel
BenutzerIn
[Homepage]
user image
Sorry fuer die schlechte Formatierung, aber das Board scheint mit dem Code irgendwelche Probleme zu haben...

Gruss
havi
 2003-10-16 19:07
#44595 #44595
User since
2003-08-04
2036 Artikel
BenutzerIn
[Homepage]
user image
Hier sieht man das Skript schoen formatiert: http://havranek.at/gernot/temp/Dialog_Yes_No.txt

Gruss
<< >> 3 Einträge, 1 Seite



View all threads created 2003-10-16 18:57.