Richard Suchenwirth -- Anne Lavergne schrieb in ' ' news:comp.lang.tcl- : > suche ich nach a Verteilungsbogen-wie 2D Reihe des TK-widget d.h. Segeltuch > (Zellen) einen Chessboard einzuf�hren. K�nnte nicht widerstehen - ist hier eine Einsegeltuchl�sung, mit beweglichen Kontrolleuren [ SEIEN Sie: Entwurf ] St�cke: stellen Sie dx ein, 50, die gesetzte dy 50 gesetzte Farben { schwarzes wei�es rotes Blau } Segeltuchc verpacken - Breite [ expr $$dx*8 - H�he expr $$dy*8 ] - f�llen beide - erweitern Sie 1 cbindung alles < 1 > { stellen Sie c(X) ein ccanvasx %x; stellen Sie cbindungsmv < B1-Motion > des c(Y) c canvasy %y } proc mv { x y } { ein globales c gesetztes x ccanvasx { mv %x %y $$x }; stellen Sie y das c canvasy $$y einstellen der cbewegung Kennzeichnung centdeckungwithtagstrom $$id der c-Erh�hung $$x-$c(x expr {) ein } $$y-$c(y expr {) } $$id gesetztes c(X) $$x; einstellen Sie c(Y) $$y } einstellen des procmakepiece der Farbe 0 expr { Farbenargs x y } { dy c des globalen dx verursachen Oval $$x+2 des expr des expr { } ] $$y+2 { } $$x+$dx-3 expr { } $$y+$dy-3 { } \ - F�lle $$color - des procmakecheck der Umbauten $$args [ concat mv } ] des expr { Farbenargs x y } { dy c des globalen dx $$x $$y verursachen Viereck $$x+$dx expr { } $$y+$dy { } \ - F�lle $$color - Umbauten $$args } f�r { stellen Sie i 0 ein; stellen Sie y 0} ein { $$i<8 } { erh�hen Sie i; erh�hen Sie y $$dy } { f�r { stellen Sie J 0 ein; stellen Sie x 0} ein { $$j<8 } { erh�hen Sie J; erh�hen Sie x $$dx } { makecheck $$x $$y [ lindex $$colors $$color wenn { $$i<2 } { makepiece $$x $$y lindex $$colors 2 player2 } wenn { $$i>5 } { makepiece $$x $$y lindex $$colors 3 player1 } stellen Sie Farbe ein expr { 1-$color } } stellte Farbe ein expr { 1-$color } } in C/Motif, ich w�rde nicht sogar gedacht haben an Schreiben etwas so. Mit Tcl komme ich nach Hause nach einem realen langen Arbeitstag und denke, da� "w�rde nicht es nett sein, a neun M�nner Morris auch zu haben? A wenig gehen Brett?", und nach einem langen Abend, hier sind sie! ---- Bryan Oakley schreibt..., Ich aktualisierte das oben genannte, um die Kontrolleure innerhalb des Rand�� ein wenig zu zeichnen auch, die folgende Schwerg�ngigkeit lasse die Kontrolleure zu einem bestimmten Quadrat rei�en. Ich bin sicher, da� jemand auf der Leistungsf�higkeit der L�sung verbessern kann. proctropfen cbindungsmv < ButtonRelease-1 > { Tropfen centdeckungwithtagstrom } { Kennzeichnung } { global c dx dy Satz cx0 expr { int($c(X-)/$$dx) * $$dx + 2 } stellte cy0 ein expr { int($c(Y-)/$$dy) * $$dy + stellten 2 } cx1 expr { $$cx0 + $$dx - 3 } einstellten ein expr { + $$cy0 - $$dy 3 } coords } des c $$id $$cx0 $$cy0 $$cx1 $$cy1 cy1 ' ' DKF- - ich habe die Leistungsf�higkeit etwas verbessert, aber es gibt wirklich nicht viel Punkt, wenn es viel besser tut, wie es Antworten nur besch�ftigen mu� zu Schwerg�ngigkeiten.