<HTML>
<HEAD>
<TITLE>[Q] What is wrong here ?</TITLE>
</HEAD>
<BODY>
<FONT SIZE="4"><FONT FACE="Calibri, Verdana, Helvetica, Arial"><SPAN STYLE='font-size:11pt'>Folks:<BR>
I try to made aq very simple MahJongg with this info links<BR>
<a href="http://en.wikipedia.org/wiki/Mahjong_solitaire">http://en.wikipedia.org/wiki/Mahjong_solitaire</a><BR>
<a href="http://home.halden.net/vkp/vkp/">http://home.halden.net/vkp/vkp/</a><BR>
<BR>
For made the grid I made <BR>
<BR>
grid := OrderedCollection new.<BR>
<BR>
madeThisRowFor: aInteger at: aPoint <BR>
| topRow square newSquare |<BR>
topRow := AlignmentMorph newRow.<BR>
topRow position: aPoint.<BR>
topRow openInWorld.<BR>
square := Morph new.<BR>
square color: Color transparent;<BR>
borderWidth: 2;<BR>
extent: 45 @ 54;<BR>
borderColor: Color blue.<BR>
1<BR>
to: aInteger<BR>
do: [:c | <BR>
newSquare := square copy.<BR>
topRow addMorph: newSquare.<BR>
grid add: topRow submorphs last center].<BR>
<BR>
<BR>
Don’t work as grid is populated by same values .<BR>
Example: <BR>
self madeThisRowFor: 12 at: 0 @ 0.<BR>
<BR>
Grid an OrderedCollection(22@27 22@27 22@27 22@27 22@27 22@27 22@27 22@27 22@27 22@27 22@27 22@27)<BR>
<BR>
But if I put self half before <BR>
<BR>
grid add: topRow submorphs last center<BR>
<BR>
I got<BR>
<BR>
an OrderedCollection(24@29 69@29 114@29 etc )<BR>
<BR>
Really odd, some could explain ?<BR>
<BR>
Edgar</SPAN></FONT></FONT>
</BODY>
</HTML>