why I think that such games should be rewritten: crying for a subclass :)

drawOn: aCanvas
������ "Draw a rectangle with a solid, inset, or raised border.
������ Note: the raised border color *and* the inset border color are generated
������ from the receiver's own color, instead of having the inset border color
������ generated from the owner's color, as in BorderedMorph."

������ | font rct |

������ borderWidth = 0 ifTrue: [�� "no border"
������ ������ aCanvas fillRectangle: bounds color: color.
������ ������ ^ self.].

������ borderColor == #raised ifTrue: [
������ ������ ^ aCanvas frameAndFillRectangle: bounds
������ ������ ������ fillColor: color
������ ������ ������ borderWidth: borderWidth
������ ������ ������ topLeftColor: color lighter lighter
������ ������ ������ bottomRightColor: color darker darker darker].

������ borderColor == #inset ifTrue: [
������ ������ aCanvas frameAndFillRectangle: bounds
������ ������ ������ fillColor: color
������ ������ ������ borderWidth: 1 " borderWidth"
������ ������ ������ topLeftColor: (color darker darker darker)
������ ������ ������ bottomRightColor: color lighter.
������ ������ self isMine ifTrue: [��
������ ������ ������ font�� := StrikeFont familyName: 'Atlanta' size: 22 emphasized: 1.
������ ������ ������ rct := bounds insetBy: ((bounds width) - (font widthOfString: '*'))/2@0.
������ ������ ������ rct := rct top: rct top + 1.
������ ������ ������ aCanvas drawString: '*' in: (rct translateBy: 1@1) font: font color: Color black.
������ ������ ������ ^ aCanvas drawString: '*' in: rct font: font color: Color red .].
������ ������ self nearMines > 0 ifTrue: [
������ ������ ������ font := StrikeFont familyName: 'ComicBold' size: 22 emphasized: 1.
������ ������ ������ rct := bounds insetBy: ((bounds width) - (font widthOfString: nearMines asString))/2@0.
������ ������ ������ rct := rct top: rct top + 1.
������ ������ ������ aCanvas drawString: nearMines asString in: (rct translateBy: 1@1) font: font color: Color black.
������ ������ ������ ^ aCanvas drawString: nearMines asString in: rct font: font color: ((palette at: nearMines) ) .].
������ ������ ^self. ].

������ "solid color border"
������ aCanvas frameAndFillRectangle: bounds
������ ������ fillColor: color
������ ������ borderWidth: borderWidth
������ ������ borderColor: borderColor.





Le 8/2/15 17:39, kilon alios a ��crit��:
Thank you Stef, its great to have some games for Pharo :)��

Some issues

1) I cannot find ChineseChekers in conf browser
2) None of the 3 games comes with an easy way to open them. I had to use $GameName$ new openInWindow.
3) Tetris is giving me a MNU apparently it does not find the LedMorph class it needs.
4) Miners was displaying some weird artefacts when I hit a mine. They dont go away when I hit new game.��

On Sun, Feb 8, 2015 at 2:27 PM, olivier auverlot <olivier.auverlot@gmail.com> wrote:
very cool !

2015-02-08 12:05 GMT+01:00 Ignacio Sniechowski <0800nacho@gmail.com>:
Stef,
Thanks so much!
I love this because its fun to analyze the code and learn from it.
Best
Nacho


Lic. Ignacio Sniechowski, MBA
Prosavic SRL

Tel: (011) 4542-6714




On Sun, Feb 8, 2015 at 6:28 AM, stepharo <stepharo@free.fr> wrote:
Hi guys

It was for so long on my todo list that I decided to start addressing it.
I publish games that were defined long time ago in Squeak.
������ - Tetris
������ - Miners
������ - SameGame
������ - ChineseCheckers

There are now available via the metarepository configuration browser
I will continue to publish some others.


Stef