Thread GED: Module und Namensräume: wie umgeht man Namenskonflikte? (34 answers)
Opened by Crian at 2004-02-10 23:07

Ishka
 2004-02-10 22:01
#39496 #39496
User since
2003-08-04
771 Artikel
HausmeisterIn
[Homepage] [default_avatar]
Jetzt bist du auch auf meiner Downloadseite verlinkt und die Downloads funzen.

Zu einem Punkt der Todo-Liste (- Kanten wahlweise so zeichnen, dass sie nur an die Ecken stoßen und nicht bis zum Mittelpunkt gehen! (Ohne die Verzierungen müsste man ja nur die beiden Ecken jeweils neuzeichnen).)
kennst du den Befehl
$canvas->raise(tagOrId, ?aboveThis?)
Move all of the items given by tagOrId to a new position in the dis­play list just after the item given by aboveThis. If tagOrId refers to more than one item then all are moved but the relative order of the moved items will not be changed. AboveThis is a tag or id; if it refers to more than one item then the last (topmost) of these items in the display list is used as the destination location for the moved items. Note: this method has no effect on window items. Window items always obscure other item types, and the stacking order of window items is determined by the raise and lower widget commands, not the raise and lower methods for canvases. This method returns an empty string.
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}

View full thread GED: Module und Namensräume: wie umgeht man Namenskonflikte?