Opened by Ishka at 2004-08-19 15:18
User since
2003-08-04
771 Artikel
HausmeisterIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-04
771 Artikel
HausmeisterIn
Danke, damit funktionierts.
Option-DB? Wie funktioniert das? (ich glaub, genauer Manpagename dürfte reichen)
Menubutton: Ich habe ein reguläres Menü - ich habs auch mit Menu probiert, aber das war mir das Menü viel zu hoch. Höhe reduzieren hab ich nicht hingekriegt und nachdem es mit der vorhergehenden Lösung wunderbar funktioniert hatte, hab ichs wieder zurückgestellt - aber wenn du mir sagst, wie ich die Höhe reduziere..
löschen via RegEx klingt gut
aber da spuckt er mir aus:
Tk::Error: wrong # args: should be ".frame.menubutton3.menu1 delete first ?last?" at /usr/lib/perl5/Tk.pm line 225.
qr// und '' hab ich auch probiert.
und beim tearoff-Eintrag - auf was matched der beim RegEx?
Option-DB? Wie funktioniert das? (ich glaub, genauer Manpagename dürfte reichen)
Menubutton: Ich habe ein reguläres Menü - ich habs auch mit Menu probiert, aber das war mir das Menü viel zu hoch. Höhe reduzieren hab ich nicht hingekriegt und nachdem es mit der vorhergehenden Lösung wunderbar funktioniert hatte, hab ichs wieder zurückgestellt - aber wenn du mir sagst, wie ich die Höhe reduziere..
löschen via RegEx klingt gut
Code: (dl
)
$menu{'stationen wahl'}->delete(//);aber da spuckt er mir aus:
Tk::Error: wrong # args: should be ".frame.menubutton3.menu1 delete first ?last?" at /usr/lib/perl5/Tk.pm line 225.
qr// und '' hab ich auch probiert.
und beim tearoff-Eintrag - auf was matched der beim RegEx?
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}
"":"\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}