Marcel Taeumel uploaded a new version of EToys to project The Trunk:
http://source.squeak.org/trunk/EToys-mt.427.mcz ==================== Summary ==================== Name: EToys-mt.427 Author: mt Time: 20 February 2021, 12:50:02.706759 pm UUID: 357175d9-1c27-224f-bfe8-f9ea651cb4a5 Ancestors: EToys-mt.426 Complements Morphic-mt.1724 =============== Diff against EToys-mt.426 =============== Item was changed: ----- Method: Chess960Morph>>addButtonRow (in category 'initialize') ----- addButtonRow | r m | r := AlignmentMorph newRow hResizing: #shrinkWrap; vResizing: #shrinkWrap; color: Color transparent. r cellInset: 2. r addMorphBack: (self buttonName: ' New ' translated action: #newGame). r addMorphBack: (self buttonName: ' 960 ' translated action: #new960Game). r addMorphBack: (self buttonName: ' Help ' translated action: #findBestMove). r addMorphBack: (self buttonName: ' Play ' translated action: #thinkAndMove). r addMorphBack: (self buttonName: ' Auto ' translated action: #autoPlay). r addMorphBack: (self buttonName: ' Undo ' translated action: #undoMove). r addMorphBack: (self buttonName: ' Redo ' translated action: #redoMove). r addMorphBack: (self buttonName: ' Quit ' translated action: #delete). + r disableLayout: true. - r disableTableLayout: true. r align: r bounds topLeft with: self layoutBounds topLeft. self addMorphFront: r. m := UpdatingStringMorph on: self selector: #statusString. m useStringFormat. m disableTableLayout: true. m stepTime: 50. m align: m bounds topLeft with: r fullBounds bottomLeft. self addMorphFront: m. m font: self textFont; color: self statusColor; maximumWidth: self width - self squareSize; position: self position + (self squareSize @ self squareSize * 0.6)! Item was changed: ----- Method: ChessMorph>>addButtonRow (in category 'initialize') ----- addButtonRow | r m | r := AlignmentMorph newRow hResizing: #shrinkWrap; vResizing: #shrinkWrap; color: Color transparent. r cellInset: 2. r addMorphBack: (self buttonName: ' New ' translated action: #newGame). r addMorphBack: (self buttonName: ' Help ' translated action: #findBestMove). r addMorphBack: (self buttonName: ' Play ' translated action: #thinkAndMove). r addMorphBack: (self buttonName: ' Auto ' translated action: #autoPlay). r addMorphBack: (self buttonName: ' Undo ' translated action: #undoMove). r addMorphBack: (self buttonName: ' Redo ' translated action: #redoMove). r addMorphBack: (self buttonName: ' Quit ' translated action: #delete). + r disableLayout: true. - r disableTableLayout: true. r align: r bounds topLeft with: self layoutBounds topLeft. self addMorphFront: r. m := UpdatingStringMorph on: self selector: #statusString. m useStringFormat. m disableTableLayout: true. m align: m bounds topLeft with: r fullBounds bottomLeft. self addMorphFront: m.! |
Free forum by Nabble | Edit this page |