Opened by Gast at 2003-11-20 14:50
User since
2003-08-04
5873 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5873 Artikel
ModeratorIn
Ja... ich meinte so etwas ähnliches, etwa:
Beispielausgabe:
Code: (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
#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
use Tk;
my $mw = new MainWindow;
foreach my $text (qw/eins zwei drei/) {
my $b = $mw->Button(-text => "Button Nr. $text")
->pack(-fill => 'x');
$b->bind('<ButtonPress>' => [ \&printButtonLabel, $text ] );
}
MainLoop();
sub printButtonLabel {
my $widget = shift;
my $text = shift;
my $aufschrift = $widget->cget('-text');
print "Button: $text (Aufschrift '$aufschrift') gedrueckt\n";
}
Beispielausgabe:
Code: (dl
)
1
2
3
Button: eins (Aufschrift 'Button Nr. eins') gedrueckt
Button: zwei (Aufschrift 'Button Nr. zwei') gedrueckt
Button: drei (Aufschrift 'Button Nr. drei') gedrueckt
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
use strict; use warnings; Link zu meiner Perlseite
use strict; use warnings; Link zu meiner Perlseite