A new version of EToys was added to project The Inbox: http://source.squeak.org/inbox/EToys-kfr.487.mcz
==================== Summary ====================
Name: EToys-kfr.487 Author: kfr Time: 14 December 2022, 4:52:54.725958 pm UUID: 9e4ab847-85fd-dc47-a79a-e6f6388e33e2 Ancestors: EToys-ct.486
MineGame scale to HD Display
=============== Diff against EToys-ct.486 ===============
Item was changed: ----- Method: Mines>>defaultBorderWidth (in category 'initialization') ----- defaultBorderWidth "answer the default border width for the receiver" + ^ 2 px! - ^ 2!
Item was changed: ----- Method: Mines>>initialize (in category 'initialization') ----- initialize "initialize the state of the receiver"
super initialize. level := 1. self listDirection: #topToBottom; wrapCentering: #center; cellPositioning: #topCenter; vResizing: #shrinkWrap; hResizing: #shrinkWrap; + layoutInset: 3 px; - layoutInset: 3; addMorph: self makeControls; addMorph: self board. helpText := nil. self newGame!
Item was changed: ----- Method: Mines>>makeControls (in category 'initialize') ----- makeControls | row | row := AlignmentMorph newRow color: color; + borderWidth: 2 px; + layoutInset: 3 px. - borderWidth: 2; - layoutInset: 3. row borderStyle: BorderStyle inset. row hResizing: #spaceFill; vResizing: #shrinkWrap; wrapCentering: #center; cellPositioning: #leftCenter; + extent: 5 px @ 5 px. - extent: 5 @ 5. row addMorph: (self buildButton: SimpleSwitchMorph new target: self label: ' Help ' translated selector: #help:). row addMorph: (self buildButton: (levelButton := SimpleButtonMorph new) target: self label: level asString translated selector: #nextLevel). row addMorph: (self buildButton: SimpleButtonMorph new target: self label: ' Quit ' translated selector: #delete). "row addMorph: (self buildButton: SimpleButtonMorph new target: self label: ' Hint ' translated selector: #hint)." row addMorph: (self buildButton: SimpleButtonMorph new target: self label: ' New game ' translated selector: #newGame). minesDisplay := LedMorph new digits: 2; + extent: 2 * 10 px @ 15 px. - extent: 2 * 10 @ 15. row addMorph: (self wrapPanel: minesDisplay label: 'Mines:' translated). + timeDisplay := LedTimerMorph new digits: 3; extent: 3 * 10 px @ 15 px. - timeDisplay := LedTimerMorph new digits: 3; extent: 3 * 10 @ 15. row addMorph: (self wrapPanel: timeDisplay label: 'Time:' translated). + hiScoreDisplay := LedMorph new digits: 3; extent: 3 * 10 px@ 15 px. - hiScoreDisplay := LedMorph new digits: 3; extent: 3 * 10 @ 15. row addMorph: (self wrapPanel: hiScoreDisplay label: 'Hi Score:' translated). ^ row!
Item was changed: ----- Method: Mines>>wrapPanel:label: (in category 'initialize') ----- wrapPanel: anLedPanel label: aLabel "wrap an LED panel in an alignmentMorph with a label to its left"
| a | a := AlignmentMorph newRow wrapCentering: #center; cellPositioning: #leftCenter; hResizing: #shrinkWrap; vResizing: #shrinkWrap; borderWidth: 0; + layoutInset: 3 px; - layoutInset: 3; color: color lighter. a addMorph: anLedPanel. a addMorph: (StringMorph contents: aLabel). ^ a !
Item was changed: ----- Method: MinesBoard>>defaultBorderWidth (in category 'initialization') ----- defaultBorderWidth "answer the default border width for the receiver" + ^ 2 px! - ^ 2!
Item was changed: ----- Method: MinesTile>>drawOn: (in category 'drawing') ----- 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 | super drawOn: aCanvas. self borderStyle style == #inset ifTrue: [ self isMine ifTrue: [ + font := StrikeFont familyName: 'Atlanta' size: 22 px emphasized: 1. + rct := self bounds insetBy: ((self bounds width) - (font widthOfString: '*'))/2 @0. - font := StrikeFont familyName: 'Atlanta' size: 22 emphasized: 1. - rct := self bounds insetBy: ((self 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 px emphasized: 1. + rct := self bounds insetBy: ((self bounds width) - (font widthOfString: nearMines asString))/2 @0. - font := StrikeFont familyName: 'ComicBold' size: 22 emphasized: 1. - rct := self bounds insetBy: ((self 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) ) .]].!
Item was changed: ----- Method: MinesTile>>initialize (in category 'initialization') ----- initialize
super initialize. self label: ''. + self borderWidth: 3 px. + bounds := 0@0 corner: 20 px@20 px. - self borderWidth: 3. - bounds := 0@0 corner: 20@20. offColor := self preferredColor. onColor := self preferredColor. switchState := false. oldSwitchState := false. disabled := false. isMine := false. nearMines := 0. self useSquareCorners. palette := (Color wheel: 8) asOrderedCollection reverse. " flashColor := palette removeLast." !