Opened by Crian at 2003-08-08 14:24
User since
2003-08-04
5873 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5873 Artikel
ModeratorIn
Threadnekromantie! Das sieht so verhunzt aus, weil es aus dem alten Forum stammt.
Sollte es sein. Also einfach " sattt ', weil das \n innerhalb von ' nicht interpretiert wird.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#!/usr/bin/perl
use strict;
use warnings;
use Tk;
my $mw = new MainWindow;
$mw->title('Button mit geteiltem Text?');
$mw->Button(-text => "ab\ncd",
-command => sub{print "\a"},
)
->pack(-side => 'right',
-expand => 1,
-fill => 'x',
);
MainLoop();
Sollte es sein. Also einfach " sattt ', weil das \n innerhalb von ' nicht interpretiert wird.
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