Ubuntu insights, Programming in groovy, java, et als!

Sunday, March 18, 2012

TicTacToe Game in Pharo Smalltalk

For an absolute pharo/smalltalk beginner, I think this would be a good place to start with. This is a simple TicTacToe implementation with just three classes : TicTacToe, TicTacToeCell and TicTacToeModel using Morphs. Works on MVC based architecture with view and model separate (no specific class for controller though).

Object subclass: #TicTacToe
instanceVariableNames: 'container model'
classVariableNames: ''
poolDictionaries: ''
category: 'VK-Games'

container := Morph new 

              layoutPolicy: TableLayout new; 
              color: Color transparent.
model := TicTacToeModel new:3.
self addRows.
self addControls.

| rowMorph aCell rowCol |
1 to:3 do:[ :row |
rowMorph := Morph new layoutPolicy: RowLayout new.
1 to: 3 do: [ :col |
aCell := TicTacToeCell new.
aCell setModel: (model) row: row col: col.
rowMorph addMorph: aCell.
container addMorph: rowMorph.

| rowMorph newGameButton exitGameButton |
rowMorph := Morph new 

             layoutPolicy: RowLayout new; 
             color: Color transparent.
newGameButton := self createCtrlLabelled: 'New'      onClickExecutes: [self restart].
exitGameButton := self createCtrlLabelled: 'Exit'  onClickExecutes: [container delete].
rowMorph addMorph: exitGameButton.
rowMorph addMorph: newGameButton.
container addMorph: rowMorph.

createCtrlLabelled: aString onClickExecutes: aBlock
| aCtrlButton |
aCtrlButton := SimpleButtonMorph new label: aString.
aCtrlButton color: (Color black alpha: 0.2).
aCtrlButton extent: 60@30.
aCtrlButton on: #click send: #value to: aBlock.

container openInWorld.

container delete.
Smalltalk garbageCollect.
TicTacToe new open.


SimpleButtonMorph subclass: #TicTacToeCell
instanceVariableNames: 'parentModel rowNum colNum'
classVariableNames: ''
poolDictionaries: ''
category: 'VK-Games'

super initialize.
self label: ''.
self extent: 40@40.
self on: #click send: #value to: (self onClickExecutionBlock).

setModel: ticTacToeModel row: aRow col: aCol
parentModel := ticTacToeModel.
rowNum := aRow.
colNum := aCol.

(self label size) == 0
self label: (parentModel updateAtRow: rowNum 
                Col: colNum).
parentModel checkWinCondition.
self extent: 40@40.


Matrix subclass: #TicTacToeModel
instanceVariableNames: 'filledCellCount currentFill winner'
classVariableNames: ''
poolDictionaries: ''
category: 'VK-Games'

super initialize.
filledCellCount := 0.
currentFill := nil.
winner := nil.

updateAtRow: r Col: c
currentFill == nil
ifTrue:[ currentFill := 'X'. ]
currentFill == 'X'
ifTrue: [ currentFill := 'O'. ]
ifFalse: [ currentFill := 'X'. ]
self at: r at: c put: currentFill.
filledCellCount := filledCellCount + 1.

filledCellCount >= 5 "for optimization. Win can occur minimum at 5th turn"
ifTrue: [
Transcript show: 'Yes'.
1 to: 3 do: [:idx |
self checkWinConditionInRow: idx.
self checkWinConditionInColumn: idx.
self checkWinConditionInDiagonals.
checkWinConditionInRow: rowNum
winner isNil
ifTrue: [
set := (self atRow: rowNum) asSet.
self checkWinConditionInSet: set

checkWinConditionInColumn: colNum
winner isNil
ifTrue: [
set := (self atColumn: colNum) asSet.
self checkWinConditionInSet: set.

|set1 set2 |
winner isNil
ifTrue: [
set1 := (self diagonal) asSet.
set2 := Set newFrom: {(self at: 1 at: 3). (self at: 2 at: 2). (self at: 3 at: 1)} asOrderedCollection.
self checkWinConditionInSet: set1.
self checkWinConditionInSet: set2.

checkWinConditionInSet: aSet
aSet size == 1
ifTrue: [
(aSet includes: 'X')
ifTrue: [winner := 'P1'. Transcript open. Transcript show: 'Player 1 is the winner!!'.].
(aSet includes: 'O')
ifTrue: [winner := 'P2'.  Transcript open. Transcript show: 'Player 2 is the winner!!'.].


mozillanerd said...

I find that RawLayout is undefined. Where can I find this?

Vamsi Emani said...

Hi. It is not RawLayout. It is RowLayout which comes with the default Pharo base.

Vicnet said...

On Pharo 1.3, I have a bug due to the fact that Set does not accept nil element.
In checkWinConditionInRow: , atRow return sometime nil.
And asSet try to add those nil element => Error
Peharps, nill could be replaced by #empty element, or ' ' char ?

Anonymous said...

i am completely new to smalltalk.
I copy pasted all the code in and i get an error when i try to run it and i cannot figure out what to do about it. something like


i then click on

AnObsoleteTicTacToeModel(Object) doesNotUnderstand: #undateAtRow:Col:

and at the bottome it displays

doesNotUnderstand: t1
|t2 t3|
(t2 := MessageNotUnderstood new) message: t1;
t3 := t2 signal.
^ t2 reachedDefaultHandler
ifTrue: [t1 sentTo: self]
ifFalse: [t3]

:=t2 signal is highlighted in blue

tic tac toe games said...

Tic Tac Toe, the best preference of children for their playing time. It just sharpen the minds and a good fun for leisure time.

total12 said...

I beyond doubt appreciate your articles and blogs.quality wordpress themes

total12 said...

I absolutely respect and appreciate your point on each and every object.quality wordpress themes

Ty chanko said...
This comment has been removed by the author.
Ty chanko said...

Are you finding the watch for women? Check out these Best Mechanical Watch For Women

Post a Comment