The Inbox: EToys-kfr.378.mcz

A new version of EToys was added to project The Inbox:
http://source.squeak.org/inbox/EToys-kfr.378.mcz

==================== Summary ====================

Name: EToys-kfr.378
Author: kfr
Time: 18 January 2020, 7:45:20.675611 pm
UUID: a01d56e9-8ac1-b544-aa6b-a594e325389e
Ancestors: EToys-kfr.377

Refactoring Mines levels and hi score enhancement

=============== Diff against EToys-kfr.377 ===============

Item was changed:
  AlignmentMorph subclass: #Mines
+ instanceVariableNames: 'board minesDisplay timeDisplay helpText level levelButton hiScoreDisplay'
- instanceVariableNames: 'board minesDisplay timeDisplay helpText level levels levelButton hiScoreDisplay'
  classVariableNames: ''
  poolDictionaries: ''
  category: 'Etoys-Squeakland-Morphic-Games'!

Item was changed:
  ----- Method: Mines class>>initialize (in category 'parts bin') -----
  initialize
  super initialize.
       "boardSizes are column, row, mines, highScore"
  BoardSizes := Dictionary new.
+ BoardSizes at: 1 put:{8. 8. 10. 999. 'Beginner'}.
+       BoardSizes at: 2 put:{16. 16. 40. 999. 'Intermediate'}.
+       BoardSizes at: 3 put:{30. 16. 99. 999. 'Expert'}.
- BoardSizes at: 'Expert' put:{30. 16. 99. 999}.
-       BoardSizes at: 'Intermediate' put:{16. 16. 40. 999}.
-       BoardSizes at: 'Beginner' put:{8. 8. 10. 999}.
 
  !

Item was changed:
  ----- Method: Mines>>initialize (in category 'initialization') -----
  initialize
  "initialize the state of the receiver"
 
  super initialize.
+
+       level := 1.
- levels := {'Beginner'. 'Intermediate'. 'Expert'}.
-       level := levels first.
  self listDirection: #topToBottom;
   wrapCentering: #center;
  cellPositioning: #topCenter;
   vResizing: #shrinkWrap;
   hResizing: #shrinkWrap;
   layoutInset: 3;
   addMorph: self makeControls;
   addMorph: self board.
  helpText := nil.
 
  self newGame!

Item was changed:
  ----- Method: Mines>>newGame (in category 'actions') -----
  newGame
        | boardSize |
        boardSize := BoardSizes at: level.
  timeDisplay value: 0; flash: false.
  timeDisplay stop.
  timeDisplay reset.
  minesDisplay value: (boardSize at: 3).
  hiScoreDisplay value: (boardSize at: 4).
+ levelButton label: (boardSize at: 5) asString.
  self board resetBoard: level.!

Item was changed:
+ ----- Method: Mines>>nextLevel (in category 'actions') -----
- ----- Method: Mines>>nextLevel (in category 'access') -----
  nextLevel
+       level := level + 1.
+       level = 4 ifTrue:[level := 1].
-       | nextLevel |
-       nextLevel := (levels indexOf:level) + 1.
-       nextLevel = 4 ifTrue:[nextLevel := 1].
- level := levels at:(nextLevel).
- levelButton label: level asString.
  self newGame
 
  !

Item was changed:
  ----- Method: MinesBoard>>initialize (in category 'initialization') -----
  initialize
  "initialize the state of the receiver"
  super initialize.
  ""
  target := nil.
  actionSelector := #selection.
  arguments := #().
  ""
  self layoutPolicy: nil;
   hResizing: #rigid;
   vResizing: #rigid.
  ""
+ boardSize := BoardSizes at: 1.
- boardSize := BoardSizes at:'Beginner'.
 
  columns := self preferredColumns.
  rows  := self preferredRows.
  flashCount := 0.
  ""
  self extent: self protoTile extent * (columns @ rows).
  self adjustTiles.
+ self resetBoard: 1.!
- self resetBoard: 'Beginner'.!