Folks:
I try to made aq very simple MahJongg with this info links
http://en.wikipedia.org/wiki/Mahjong_solitaire
http://home.halden.net/vkp/vkp/
For made the grid I made
grid := OrderedCollection new.
madeThisRowFor: aInteger at: aPoint
| topRow square newSquare |
topRow := AlignmentMorph newRow.
topRow position: aPoint.
topRow openInWorld.
square := Morph new.
square color: Color transparent;
borderWidth: 2;
extent: 45 @ 54;
borderColor: Color blue.
1
to: aInteger
do: [:c |
newSquare := square copy.
topRow addMorph: newSquare.
grid add: topRow submorphs last center].
Don¹t work as grid is populated by same values .
Example:
self madeThisRowFor: 12 at: 0 @ 0.
Grid an OrderedCollection(2...@27 2...@27 2...@27 2...@27 2...@27 2...@27
2...@27 2...@27
2...@27 2...@27 2...@27 2...@27)
But if I put self half before
grid add: topRow submorphs last center
I got
an OrderedCollection(2...@29 6...@29 1...@29 etc )
Really odd, some could explain ?
Edgar
_______________________________________________
Beginners mailing list
Beginners@lists.squeakfoundation.org
http://lists.squeakfoundation.org/mailman/listinfo/beginners
