Tk und \n ? (Graphische Oberflächen)

[thread]4887[/thread]

Tk und \n ?

Froschpopo

2005-04-01 22:28

User since
2003-08-15
2653 Artikel
BenutzerIn
[default_avatar]

ich hab grad mal folgendes probiert:

Code: (dl )

1
2
3

$nickname = $config{MainWindow}->Label(
            -text => "$user\s\n",-background => 'white', -font => $config{Font}
        );

funzt nur leider nicht. Wie kann ich nen Zeilenumbruch erzwingen?

Ishka

2005-04-01 23:57

User since
2003-08-04
771 Artikel
HausmeisterIn

Was macht das \s bei dir?

bei mir kommt da sehr wohl ein Zeilenumbruch am Schluß (perl -v This is perl, v5.8.5 built for i586-linux-thread-multi). Welche Perl-version hast du?

sub z{if(@_){1while$x[$k=rand 10];t($t=$x[$k]=1)}print map"$z[$x[$_]]$_".($_%3?
"":"\n"),1..9}sub t{$j=0;$x[$_+1]==$t&&($j+=2**$_)for 0..8;z,die"Gewinner $z[$t]
"if grep$_==($j&$_),7,56,73,84,146,273,292,448;z,die"Gleichstand\n"if@x>9&&!grep
!$_,@x}@x=4;@z=qw{. [ (};z$^T&1;while(<>){next if$_>9||$x[$_];t$t=$x[$_]=2;z 1}

Crian

2005-04-04 19:15

User since
2003-08-04
5872 Artikel
ModeratorIn

Es geht, Du darfst nur nicht einfache Anführungszeichen verwenden. Und keine \s statt normaler Leerzeichen. Wir sind hier nicht bei regulären Ausdrücken ;)

Code: (dl )

-text => "User:\n$user",

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

Froschpopo

2005-04-04 20:23

User since
2003-08-15
2653 Artikel
BenutzerIn
[default_avatar]

ich habs jetzt mit wraplength hinbekommen :)

View all threads created 2005-04-01 22:28.