wow if you turn it upside down it reads "written in C" ;D Definetly not ideal example code for beginners , but I am grateful someone actually bothered writing that code so I and other newcomers learn a bit more about Morphic.
On Sun, Feb 8, 2015 at 7:56 PM, stepharo <steph...@free.fr> wrote: > 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.auver...@gmail.com> wrote: > >> very cool ! >> >> 2015-02-08 12:05 GMT+01:00 Ignacio Sniechowski <0800na...@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 <steph...@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 >>>> >>>> >>>> >>>> >>>> >>> >> > >
