Packages October 2020

packages@lists.squeakfoundation.org

1 participants
168 discussions

The Trunk: EToys-kfr.380.mcz
by commits＠source.squeak.org 29 Oct '20

29 Oct '20

Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-kfr.380.mcz ==================== Summary ==================== Name: EToys-kfr.380 Author: kfr Time: 19 January 2020, 7:55:13.092131 pm UUID: e7f6a586-f809-654b-8378-3f41e6d72a5b Ancestors: EToys-kfr.379 SameGameTile borderColor must be updated as well as main tile color. =============== Diff against EToys-dtl.376 =============== Item was changed: AlignmentMorph subclass: #Mines + instanceVariableNames: 'board minesDisplay timeDisplay helpText level levelButton hiScoreDisplay' - instanceVariableNames: 'board minesDisplay timeDisplay helpText' classVariableNames: '' poolDictionaries: '' category: 'Etoys-Squeakland-Morphic-Games'! Item was added: + ----- 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'}. + + ! Item was added: + ----- Method: Mines>>hiScoreDisplay (in category 'access') ----- + hiScoreDisplay + + ^ hiScoreDisplay! 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; addMorph: self makeControls; addMorph: self board. helpText := nil. + self newGame! Item was added: + ----- Method: Mines>>level (in category 'access') ----- + level + ^level! Item was changed: ----- Method: Mines>>makeControls (in category 'initialize') ----- makeControls | row | row := AlignmentMorph newRow color: color; borderWidth: 2; layoutInset: 3. row borderStyle: BorderStyle inset. row hResizing: #spaceFill; vResizing: #shrinkWrap; wrapCentering: #center; cellPositioning: #leftCenter; 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 @ 15. row addMorph: (self wrapPanel: minesDisplay label: 'Mines:' translated). + timeDisplay := LedTimerMorph new digits: 3; extent: 3 * 10 @ 15. + - 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 @ 15. + row + addMorph: (self wrapPanel: hiScoreDisplay label: 'Hi Score:' translated). ^ row! 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.! - minesDisplay value: 99. - self board resetBoard.! Item was added: + ----- Method: Mines>>nextLevel (in category 'actions') ----- + nextLevel + level := level + 1. + level = 4 ifTrue:[level := 1]. + self newGame + + ! Item was changed: AlignmentMorph subclass: #MinesBoard + instanceVariableNames: 'protoTile rows columns flashCount tileCount target actionSelector arguments gameStart gameOver boardSize' - instanceVariableNames: 'protoTile rows columns flashCount tileCount target actionSelector arguments gameStart gameOver' classVariableNames: '' poolDictionaries: '' category: 'Etoys-Squeakland-Morphic-Games'! 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. + - rows := self preferredRows. columns := self preferredColumns. + rows := self preferredRows. flashCount := 0. "" self extent: self protoTile extent * (columns @ rows). self adjustTiles. + self resetBoard: 1.! - self resetBoard! Item was changed: ----- Method: MinesBoard>>preferredColumns (in category 'preferences') ----- preferredColumns + ^ boardSize at: 1! - ^ 30! Item was changed: ----- Method: MinesBoard>>preferredMines (in category 'preferences') ----- preferredMines + ^boardSize at:3! - ^ 99! Item was changed: ----- Method: MinesBoard>>preferredRows (in category 'preferences') ----- preferredRows + ^ boardSize at:2! - ^ 16! Item was removed: - ----- Method: MinesBoard>>resetBoard (in category 'initialization') ----- - resetBoard - - gameStart := false. - gameOver := false. - [flashCount = 0] whileFalse: [self step]. - flashCount := 0. - tileCount := 0. - Collection initialize. "randomize the Collection class" - self purgeAllCommands. - self submorphsDo: "set tiles to original state." - [:m | m privateOwner: nil. "Don't propagate all these changes..." - m mineFlag: false. - m disabled: false. - m switchState: false. - m isMine: false. - m privateOwner: self]. - self changed "Now note the change in bulk"! Item was added: + ----- Method: MinesBoard>>resetBoard: (in category 'initialization') ----- + resetBoard: aLevel + + boardSize := BoardSizes at: aLevel. + columns := self preferredColumns. + rows := self preferredRows. + flashCount := 0. + "" + self extent: self protoTile extent * (columns @ rows). + self adjustTiles. + + gameStart := false. + gameOver := false. + + flashCount := 0. + tileCount := 0. + Collection initialize. "randomize the Collection class" + self purgeAllCommands. + self submorphsDo: "set tiles to original state." + [:m | m privateOwner: nil. "Don't propagate all these changes..." + m mineFlag: false. + m disabled: false. + m switchState: false. + m isMine: false. + m privateOwner: self]. + self changed "Now note the change in bulk"! Item was changed: ----- Method: MinesBoard>>stepOnTile: (in category 'actions') ----- stepOnTile: location + | mines tile score | - | mines tile | tile := self tileAt: location. tile mineFlag ifFalse:[ tile isMine ifTrue: [tile color: Color gray darker darker. self blowUp. ^false.] ifFalse:[ mines := self findMines: location. tile switchState: true. tileCount := tileCount + 1. mines = 0 ifTrue: [self selectTilesAdjacentTo: location]]. + tileCount = ((columns*rows) - self preferredMines) ifTrue:[ gameOver := true. flashCount := 2. owner timeDisplay stop. + score := owner timeDisplay value. + ( score < (boardSize at:4)) + ifTrue:[(BoardSizes at: owner level ) at: 4 put: score. + owner hiScoreDisplay value: score]]. - tileCount = ((columns*rows) - self preferredMines) ifTrue:[ gameOver := true. flashCount := 2. owner timeDisplay stop.]. ^ true.] ifTrue: [^ false.] ! Item was changed: ----- Method: SameGameBoard>>removeSelection (in category 'actions') ----- removeSelection selection ifNil: [^ self]. self rememberUndoableAction: [selection + do: [:loc | (self tileAt: loc) setSwitchState: false; disabled: true]. - do: [:loc | (self tileAt: loc) disabled: true; - setSwitchState: false]. self collapseColumns: (selection collect: [:loc | loc x] as: Set) sorted. selection := nil. flash := false. (target notNil and: [actionSelector notNil]) ifTrue: [target perform: actionSelector withArguments: arguments]] named: 'remove selection' translated! Item was changed: ----- Method: SameGameTile>>color: (in category 'accessing') ----- color: aColor super color: aColor. + self borderColor: aColor. onColor := aColor. offColor := aColor. self changed!

1 0

The Trunk: EToys-mt.412.mcz
by commits＠source.squeak.org 29 Oct '20

29 Oct '20

Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-mt.412.mcz ==================== Summary ==================== Name: EToys-mt.412 Author: mt Time: 29 October 2020, 4:49:01.956727 pm UUID: 5e245b54-2a93-154b-83da-9adc8593bac6 Ancestors: EToys-eem.411, EToys-kfr.380 Merges fixes for Mines game and SameGame. Thanks to Karl (kfr)! =============== Diff against EToys-eem.411 =============== Item was changed: AlignmentMorph subclass: #Mines + instanceVariableNames: 'board minesDisplay timeDisplay helpText level levelButton hiScoreDisplay' - instanceVariableNames: 'board minesDisplay timeDisplay helpText' classVariableNames: '' poolDictionaries: '' category: 'Etoys-Squeakland-Morphic-Games'! Item was added: + ----- 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'}. + + ! Item was added: + ----- Method: Mines>>hiScoreDisplay (in category 'access') ----- + hiScoreDisplay + + ^ hiScoreDisplay! 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; addMorph: self makeControls; addMorph: self board. helpText := nil. + self newGame! Item was added: + ----- Method: Mines>>level (in category 'access') ----- + level + ^level! Item was changed: ----- Method: Mines>>makeControls (in category 'initialize') ----- makeControls | row | row := AlignmentMorph newRow color: color; borderWidth: 2; layoutInset: 3. row borderStyle: BorderStyle inset. row hResizing: #spaceFill; vResizing: #shrinkWrap; wrapCentering: #center; cellPositioning: #leftCenter; 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 @ 15. row addMorph: (self wrapPanel: minesDisplay label: 'Mines:' translated). + timeDisplay := LedTimerMorph new digits: 3; extent: 3 * 10 @ 15. + - 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 @ 15. + row + addMorph: (self wrapPanel: hiScoreDisplay label: 'Hi Score:' translated). ^ row! 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.! - minesDisplay value: 99. - self board resetBoard.! Item was added: + ----- Method: Mines>>nextLevel (in category 'actions') ----- + nextLevel + level := level + 1. + level = 4 ifTrue:[level := 1]. + self newGame + + ! Item was changed: AlignmentMorph subclass: #MinesBoard + instanceVariableNames: 'protoTile rows columns flashCount tileCount target actionSelector arguments gameStart gameOver boardSize' - instanceVariableNames: 'protoTile rows columns flashCount tileCount target actionSelector arguments gameStart gameOver' classVariableNames: '' poolDictionaries: '' category: 'Etoys-Squeakland-Morphic-Games'! 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. + - rows := self preferredRows. columns := self preferredColumns. + rows := self preferredRows. flashCount := 0. "" self extent: self protoTile extent * (columns @ rows). self adjustTiles. + self resetBoard: 1.! - self resetBoard! Item was changed: ----- Method: MinesBoard>>preferredColumns (in category 'preferences') ----- preferredColumns + ^ boardSize at: 1! - ^ 30! Item was changed: ----- Method: MinesBoard>>preferredMines (in category 'preferences') ----- preferredMines + ^boardSize at:3! - ^ 99! Item was changed: ----- Method: MinesBoard>>preferredRows (in category 'preferences') ----- preferredRows + ^ boardSize at:2! - ^ 16! Item was removed: - ----- Method: MinesBoard>>resetBoard (in category 'initialization') ----- - resetBoard - - gameStart := false. - gameOver := false. - [flashCount = 0] whileFalse: [self step]. - flashCount := 0. - tileCount := 0. - Collection initialize. "randomize the Collection class" - self purgeAllCommands. - self submorphsDo: "set tiles to original state." - [:m | m privateOwner: nil. "Don't propagate all these changes..." - m mineFlag: false. - m disabled: false. - m switchState: false. - m isMine: false. - m privateOwner: self]. - self changed "Now note the change in bulk"! Item was added: + ----- Method: MinesBoard>>resetBoard: (in category 'initialization') ----- + resetBoard: aLevel + + boardSize := BoardSizes at: aLevel. + columns := self preferredColumns. + rows := self preferredRows. + flashCount := 0. + "" + self extent: self protoTile extent * (columns @ rows). + self adjustTiles. + + gameStart := false. + gameOver := false. + + flashCount := 0. + tileCount := 0. + Collection initialize. "randomize the Collection class" + self purgeAllCommands. + self submorphsDo: "set tiles to original state." + [:m | m privateOwner: nil. "Don't propagate all these changes..." + m mineFlag: false. + m disabled: false. + m switchState: false. + m isMine: false. + m privateOwner: self]. + self changed "Now note the change in bulk"! Item was changed: ----- Method: MinesBoard>>stepOnTile: (in category 'actions') ----- stepOnTile: location + | mines tile score | - | mines tile | tile := self tileAt: location. tile mineFlag ifFalse:[ tile isMine ifTrue: [tile color: Color gray darker darker. self blowUp. ^false.] ifFalse:[ mines := self findMines: location. tile switchState: true. tileCount := tileCount + 1. mines = 0 ifTrue: [self selectTilesAdjacentTo: location]]. + tileCount = ((columns*rows) - self preferredMines) ifTrue:[ gameOver := true. flashCount := 2. owner timeDisplay stop. + score := owner timeDisplay value. + ( score < (boardSize at:4)) + ifTrue:[(BoardSizes at: owner level ) at: 4 put: score. + owner hiScoreDisplay value: score]]. - tileCount = ((columns*rows) - self preferredMines) ifTrue:[ gameOver := true. flashCount := 2. owner timeDisplay stop.]. ^ true.] ifTrue: [^ false.] !

1 0

The Trunk: Kernel-eem.1355.mcz
by commits＠source.squeak.org 29 Oct '20

29 Oct '20

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1355.mcz ==================== Summary ==================== Name: Kernel-eem.1355 Author: eem Time: 28 October 2020, 6:16:21.972202 pm UUID: 14e40036-578b-4645-88e4-77be34a6d96b Ancestors: Kernel-eem.1354 Speed-up cull:[cull:*] by supplying the primitive to handle teh case where the number of block arguments matches the number of arguments to cull:[cull:]. Nuke the obsolete pre-closure simulation code for block closure activation. =============== Diff against Kernel-eem.1354 =============== Item was changed: ----- Method: BlockClosure>>cull: (in category 'evaluating') ----- cull: firstArg "Activate the receiver, with one or zero arguments." + <primitive: 202> "Handle the one argument case primitively" - numArgs >= 1 ifTrue: [ ^self value: firstArg ]. ^self value! Item was changed: ----- Method: BlockClosure>>cull:cull: (in category 'evaluating') ----- cull: firstArg cull: secondArg "Activate the receiver, with two or less arguments." + <primitive: 203> "Handle the two argument case primitively" - numArgs >= 2 ifTrue: [ ^self value: firstArg value: secondArg ]. numArgs = 1 ifTrue: [ ^self value: firstArg ]. ^self value! Item was changed: ----- Method: BlockClosure>>cull:cull:cull: (in category 'evaluating') ----- cull: firstArg cull: secondArg cull: thirdArg "Activate the receiver, with three or less arguments." + <primitive: 204> "Handle the two argument case primitively" - numArgs >= 2 ifTrue: [ numArgs >= 3 ifTrue: [ ^self value: firstArg value: secondArg value: thirdArg ]. ^self value: firstArg value: secondArg ]. numArgs = 1 ifTrue: [ ^self value: firstArg ]. ^self value! Item was changed: ----- Method: BlockClosure>>cull:cull:cull:cull: (in category 'evaluating') ----- cull: firstArg cull: secondArg cull: thirdArg cull: fourthArg "Activate the receiver, with four or less arguments." + <primitive: 205> "Handle the two argument case primitively" - numArgs >= 3 ifTrue: [ numArgs >= 4 ifTrue: [ ^self value: firstArg value: secondArg value: thirdArg value: fourthArg ]. ^self value: firstArg value: secondArg value: thirdArg ]. numArgs = 2 ifTrue: [ ^self value: firstArg value: secondArg ]. numArgs = 1 ifTrue: [ ^self value: firstArg ]. ^self value! Item was changed: ----- Method: BlockClosure>>value (in category 'evaluating') ----- value "Activate the receiver, creating a closure activation (Context) whose closure is the receiver and whose caller is the sender of this message. Supply the copied values to the activation as its copied temps. Primitive. Essential." <primitive: 201> - | newContext | numArgs ~= 0 ifTrue: [self numArgsError: 0]. + ^self primitiveFailed! - false - ifTrue: "Old code to simulate the closure value primitive on VMs that lack it." - [newContext := self asContextWithSender: thisContext sender. - thisContext privSender: newContext] - ifFalse: [self primitiveFailed]! Item was changed: ----- Method: BlockClosure>>value: (in category 'evaluating') ----- value: firstArg "Activate the receiver, creating a closure activation (Context) whose closure is the receiver and whose caller is the sender of this message. Supply the argument and copied values to the activation as its argument and copied temps. Primitive. Essential." <primitive: 202> - | newContext | numArgs ~= 1 ifTrue: [self numArgsError: 1]. + ^self primitiveFailed! - false - ifTrue: "Old code to simulate the closure value primitive on VMs that lack it." - [newContext := self asContextWithSender: thisContext sender. - newContext at: 1 put: firstArg. - thisContext privSender: newContext] - ifFalse: [self primitiveFailed]! Item was changed: ----- Method: BlockClosure>>value:value: (in category 'evaluating') ----- value: firstArg value: secondArg "Activate the receiver, creating a closure activation (Context) whose closure is the receiver and whose caller is the sender of this message. Supply the arguments and copied values to the activation as its arguments and copied temps. Primitive. Essential." <primitive: 203> - | newContext | numArgs ~= 2 ifTrue: [self numArgsError: 2]. + ^self primitiveFailed! - false - ifTrue: "Old code to simulate the closure value primitive on VMs that lack it." - [newContext := self asContextWithSender: thisContext sender. - newContext at: 1 put: firstArg. - newContext at: 2 put: secondArg. - thisContext privSender: newContext] - ifFalse: [self primitiveFailed]! Item was changed: ----- Method: BlockClosure>>value:value:value: (in category 'evaluating') ----- value: firstArg value: secondArg value: thirdArg "Activate the receiver, creating a closure activation (Context) whose closure is the receiver and whose caller is the sender of this message. Supply the arguments and copied values to the activation as its arguments and copied temps. Primitive. Essential." <primitive: 204> - | newContext | numArgs ~= 3 ifTrue: [self numArgsError: 3]. + ^self primitiveFailed! - false - ifTrue: "Old code to simulate the closure value primitive on VMs that lack it." - [newContext := self asContextWithSender: thisContext sender. - newContext at: 1 put: firstArg. - newContext at: 2 put: secondArg. - newContext at: 3 put: thirdArg. - thisContext privSender: newContext] - ifFalse: [self primitiveFailed]! Item was changed: ----- Method: BlockClosure>>value:value:value:value: (in category 'evaluating') ----- value: firstArg value: secondArg value: thirdArg value: fourthArg "Activate the receiver, creating a closure activation (Context) whose closure is the receiver and whose caller is the sender of this message. Supply the arguments and copied values to the activation as its arguments and copied temps. Primitive. Essential." <primitive: 205> - | newContext | numArgs ~= 4 ifTrue: [self numArgsError: 4]. + ^self primitiveFailed! - false - ifTrue: "Old code to simulate the closure value primitive on VMs that lack it." - [newContext := self asContextWithSender: thisContext sender. - newContext at: 1 put: firstArg. - newContext at: 2 put: secondArg. - newContext at: 3 put: thirdArg. - newContext at: 4 put: fourthArg. - thisContext privSender: newContext] - ifFalse: [self primitiveFailed]! Item was changed: ----- Method: BlockClosure>>value:value:value:value:value: (in category 'evaluating') ----- value: firstArg value: secondArg value: thirdArg value: fourthArg value: fifthArg "Activate the receiver, creating a closure activation (Context) whose closure is the receiver and whose caller is the sender of this message. Supply the arguments and copied values to the activation as its arguments and copied temps. Primitive. Essential." <primitive: 205> - | newContext | numArgs ~= 5 ifTrue: [self numArgsError: 5]. + ^self primitiveFailed! - false - ifTrue: "Old code to simulate the closure value primitive on VMs that lack it." - [newContext := self asContextWithSender: thisContext sender. - newContext at: 1 put: firstArg. - newContext at: 2 put: secondArg. - newContext at: 3 put: thirdArg. - newContext at: 4 put: fourthArg. - newContext at: 5 put: fifthArg. - thisContext privSender: newContext] - ifFalse: [self primitiveFailed]! Item was changed: ----- Method: BlockClosure>>valueWithArguments: (in category 'evaluating') ----- valueWithArguments: anArray "Activate the receiver, creating a closure activation (Context) whose closure is the receiver and whose caller is the sender of this message. Supply the arguments in an anArray and copied values to the activation as its arguments and copied temps. Primitive. Essential." <primitive: 206> - | newContext | numArgs ~= anArray size ifTrue: [self numArgsError: anArray size]. + ^self primitiveFailed! - false - ifTrue: "Old code to simulate the closure value primitive on VMs that lack it." - [newContext := self asContextWithSender: thisContext sender. - 1 to: numArgs do: - [:i| newContext at: i put: (anArray at: i)]. - thisContext privSender: newContext] - ifFalse: [self primitiveFailed]! Item was added: + ----- Method: FullBlockClosure>>cull: (in category 'evaluating') ----- + cull: firstArg + "Activate the receiver, with one or zero arguments." + <primitive: 207> "Handle the one argument case primitively" + numArgs >= 1 ifTrue: [ ^self value: firstArg ]. + ^self value! Item was added: + ----- Method: FullBlockClosure>>cull:cull: (in category 'evaluating') ----- + cull: firstArg cull: secondArg + "Activate the receiver, with two or less arguments." + <primitive: 207> "Handle the two argument case primitively" + numArgs >= 2 ifTrue: [ ^self value: firstArg value: secondArg ]. + numArgs = 1 ifTrue: [ ^self value: firstArg ]. + ^self value! Item was added: + ----- Method: FullBlockClosure>>cull:cull:cull: (in category 'evaluating') ----- + cull: firstArg cull: secondArg cull: thirdArg + "Activate the receiver, with three or less arguments." + <primitive: 207> "Handle the three argument case primitively" + numArgs >= 2 ifTrue: + [numArgs >= 3 ifTrue: + [^self value: firstArg value: secondArg value: thirdArg]. + ^self value: firstArg value: secondArg]. + numArgs = 1 ifTrue: + [^self value: firstArg]. + ^self value! Item was added: + ----- Method: FullBlockClosure>>cull:cull:cull:cull: (in category 'evaluating') ----- + cull: firstArg cull: secondArg cull: thirdArg cull: fourthArg + "Activate the receiver, with four or less arguments." + <primitive: 207> "Handle the four argument case primitively" + numArgs >= 3 ifTrue: + [numArgs >= 4 ifTrue: + [^self value: firstArg value: secondArg value: thirdArg value: fourthArg]. + ^self value: firstArg value: secondArg value: thirdArg]. + numArgs = 2 ifTrue: + [^self value: firstArg value: secondArg]. + numArgs = 1 ifTrue: + [^self value: firstArg]. + ^self value! Item was changed: ----- Method: FullBlockClosure>>value (in category 'evaluating') ----- value "Activate the receiver, creating a closure activation (MethodContext) whose closure is the receiver and whose caller is the sender of this message. Supply the copied values to the activation as its copied temps. Primitive. Essential." <primitive: 207> - | newContext | numArgs ~= 0 ifTrue: [self numArgsError: 0]. + ^self primitiveFailed! - false - ifTrue: "Old code to simulate the closure value primitive on VMs that lack it." - [newContext := self asContextWithSender: thisContext sender. - thisContext privSender: newContext] - ifFalse: [self primitiveFailed]! Item was changed: ----- Method: FullBlockClosure>>value: (in category 'evaluating') ----- value: firstArg "Activate the receiver, creating a closure activation (MethodContext) whose closure is the receiver and whose caller is the sender of this message. Supply the argument and copied values to the activation as its argument and copied temps. Primitive. Essential." <primitive: 207> - | newContext | numArgs ~= 1 ifTrue: [self numArgsError: 1]. + ^self primitiveFailed! - false - ifTrue: "Old code to simulate the closure value primitive on VMs that lack it." - [newContext := self asContextWithSender: thisContext sender. - newContext at: 1 put: firstArg. - thisContext privSender: newContext] - ifFalse: [self primitiveFailed]! Item was changed: ----- Method: FullBlockClosure>>value:value: (in category 'evaluating') ----- value: firstArg value: secondArg "Activate the receiver, creating a closure activation (MethodContext) whose closure is the receiver and whose caller is the sender of this message. Supply the arguments and copied values to the activation as its arguments and copied temps. Primitive. Essential." <primitive: 207> - | newContext | numArgs ~= 2 ifTrue: [self numArgsError: 2]. + ^self primitiveFailed! - false - ifTrue: "Old code to simulate the closure value primitive on VMs that lack it." - [newContext := self asContextWithSender: thisContext sender. - newContext at: 1 put: firstArg. - newContext at: 2 put: secondArg. - thisContext privSender: newContext] - ifFalse: [self primitiveFailed]! Item was changed: ----- Method: FullBlockClosure>>value:value:value: (in category 'evaluating') ----- value: firstArg value: secondArg value: thirdArg "Activate the receiver, creating a closure activation (MethodContext) whose closure is the receiver and whose caller is the sender of this message. Supply the arguments and copied values to the activation as its arguments and copied temps. Primitive. Essential." <primitive: 207> - | newContext | numArgs ~= 3 ifTrue: [self numArgsError: 3]. + ^self primitiveFailed! - false - ifTrue: "Old code to simulate the closure value primitive on VMs that lack it." - [newContext := self asContextWithSender: thisContext sender. - newContext at: 1 put: firstArg. - newContext at: 2 put: secondArg. - newContext at: 3 put: thirdArg. - thisContext privSender: newContext] - ifFalse: [self primitiveFailed]! Item was changed: ----- Method: FullBlockClosure>>value:value:value:value: (in category 'evaluating') ----- value: firstArg value: secondArg value: thirdArg value: fourthArg "Activate the receiver, creating a closure activation (MethodContext) whose closure is the receiver and whose caller is the sender of this message. Supply the arguments and copied values to the activation as its arguments and copied temps. Primitive. Essential." <primitive: 207> - | newContext | numArgs ~= 4 ifTrue: [self numArgsError: 4]. + ^self primitiveFailed! - false - ifTrue: "Old code to simulate the closure value primitive on VMs that lack it." - [newContext := self asContextWithSender: thisContext sender. - newContext at: 1 put: firstArg. - newContext at: 2 put: secondArg. - newContext at: 3 put: thirdArg. - newContext at: 4 put: fourthArg. - thisContext privSender: newContext] - ifFalse: [self primitiveFailed]! Item was changed: ----- Method: FullBlockClosure>>value:value:value:value:value: (in category 'evaluating') ----- value: firstArg value: secondArg value: thirdArg value: fourthArg value: fifthArg "Activate the receiver, creating a closure activation (MethodContext) whose closure is the receiver and whose caller is the sender of this message. Supply the arguments and copied values to the activation as its arguments and copied temps. Primitive. Essential." <primitive: 207> - | newContext | numArgs ~= 5 ifTrue: [self numArgsError: 5]. + ^self primitiveFailed! - false - ifTrue: "Old code to simulate the closure value primitive on VMs that lack it." - [newContext := self asContextWithSender: thisContext sender. - newContext at: 1 put: firstArg. - newContext at: 2 put: secondArg. - newContext at: 3 put: thirdArg. - newContext at: 4 put: fourthArg. - newContext at: 5 put: fifthArg. - thisContext privSender: newContext] - ifFalse: [self primitiveFailed]! Item was changed: ----- Method: FullBlockClosure>>valueWithArguments: (in category 'evaluating') ----- valueWithArguments: anArray "Activate the receiver, creating a closure activation (MethodContext) whose closure is the receiver and whose caller is the sender of this message. Supply the arguments in an anArray and copied values to the activation as its arguments and copied temps. Primitive. Essential." <primitive: 208> - | newContext | numArgs ~= anArray size ifTrue: [self numArgsError: anArray size]. + ^self primitiveFailed! - false - ifTrue: "Old code to simulate the closure value primitive on VMs that lack it." - [newContext := self asContextWithSender: thisContext sender. - 1 to: numArgs do: - [:i| newContext at: i put: (anArray at: i)]. - thisContext privSender: newContext] - ifFalse: [self primitiveFailed]!

1 0

The Trunk: Morphic-mt.1708.mcz
by commits＠source.squeak.org 28 Oct '20

28 Oct '20

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1708.mcz ==================== Summary ==================== Name: Morphic-mt.1708 Author: mt Time: 28 October 2020, 4:10:01.434689 pm UUID: 8ee48d82-9815-c34e-ac47-02b09c6cae25 Ancestors: Morphic-pre.1707 Fix typo. =============== Diff against Morphic-pre.1707 =============== Item was changed: ----- Method: ScrollPane>>mouseWheel: (in category 'event handling') ----- mouseWheel: evt evt isWheelUp ifTrue: [scrollBar scrollUp: (evt verticalScrollDelta: self class verticalScrollDeltaPerMouseWheelNotch)]. evt isWheelDown ifTrue: [scrollBar scrollDown: (evt verticalScrollDelta: self class verticalScrollDeltaPerMouseWheelNotch)]. + evt isWheelLeft ifTrue: [hScrollBar scrollUp: (evt horizontalScrollDelta: self class horizontalScrollDeltaPerMouseWheelNotch)]. + evt isWheelRight ifTrue: [hScrollBar scrollDown: (evt horizontalScrollDelta: self class horizontalScrollDeltaPerMouseWheelNotch)].! - evt isWheelLeft ifTrue: [hScrollBar scrollUp: (evt horizontalScrollDelta: self class verticalScrollDeltaPerMouseWheelNotch)]. - evt isWheelRight ifTrue: [hScrollBar scrollDown: (evt horizontalScrollDelta: self class verticalScrollDeltaPerMouseWheelNotch)].!

1 0

The Trunk: Kernel-eem.1354.mcz
by commits＠source.squeak.org 28 Oct '20

28 Oct '20

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1354.mcz ==================== Summary ==================== Name: Kernel-eem.1354 Author: eem Time: 27 October 2020, 7:12:42.644138 pm UUID: 0e8cc5f2-05b0-483a-9d7a-b06d376c1d00 Ancestors: Kernel-mt.1353 Have Cotext>>swapReceiver: do what it says it will (c.f. swapSender:). Change the one sender not to reply on it; Context>>restartWithNewReceiver: can simply assign to receiver directly with the new Context design. =============== Diff against Kernel-mt.1353 =============== Item was changed: ----- Method: Context>>restartWithNewReceiver: (in category 'private-exceptions') ----- restartWithNewReceiver: obj + receiver := obj. + self restart! - - self - swapReceiver: obj; - restart! Item was changed: ----- Method: Context>>swapReceiver: (in category 'private-exceptions') ----- swapReceiver: r + | oldReceiver | + oldReceiver := receiver. + receiver := r. + ^oldReceiver! - - receiver := r!

1 0

The Trunk: Tools-eem.1009.mcz
by commits＠source.squeak.org 28 Oct '20

28 Oct '20

Eliot Miranda uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-eem.1009.mcz ==================== Summary ==================== Name: Tools-eem.1009 Author: eem Time: 27 October 2020, 4:13:50.404335 pm UUID: 68ca4cb6-ce96-47f0-a039-d760321e60cb Ancestors: Tools-tpr.1008 The debugger *must not* retain persistent references to objects, thereby preventing garbage colleciton. This is just asking for Heisenbugs. =============== Diff against Tools-tpr.1008 =============== Item was changed: ----- Method: Debugger>>saveContextVariablesInspectorState (in category 'user interface') ----- saveContextVariablesInspectorState "For the user's convenience. Save field selection and user-typed content in the context-variables inspector. See #restoreContextVariablesInspectorState." | stateToSave keyForState | self flag: #duplication. (keyForState := self keyForContextVariablesInspectorState) ifNil: [^ self]. contextVariablesInspectorState + ifNil: [contextVariablesInspectorState := WeakIdentityKeyDictionary new]. - ifNil: [contextVariablesInspectorState := IdentityDictionary new]. stateToSave := { self contextVariablesInspector selectedFieldName. self contextVariablesInspector contentsTyped }. contextVariablesInspectorState at: keyForState put: stateToSave.! Item was changed: ----- Method: Debugger>>saveReceiverInspectorState (in category 'user interface') ----- saveReceiverInspectorState "For the user's convenience. Save field selection and user-typed content in the receiver inspector. See #restoreReceiverInspectorState." | stateToSave keyForState | self flag: #duplication. (keyForState := self keyForReceiverInspectorState) ifNil: [^ self]. receiverInspectorState + ifNil: [receiverInspectorState := WeakIdentityKeyDictionary new]. - ifNil: [receiverInspectorState := IdentityDictionary new]. stateToSave := { self receiverInspector selectedFieldName. self receiverInspector contentsTyped }. receiverInspectorState at: keyForState put: stateToSave.!

1 0

The Trunk: 60Deprecated-pre.83.mcz
by commits＠source.squeak.org 26 Oct '20

26 Oct '20

Patrick Rein uploaded a new version of 60Deprecated to project The Trunk: http://source.squeak.org/trunk/60Deprecated-pre.83.mcz ==================== Summary ==================== Name: 60Deprecated-pre.83 Author: pre Time: 26 October 2020, 6:39:16.338595 pm UUID: 440cec82-c788-7840-a57c-bc79a5111b3f Ancestors: 60Deprecated-mt.82 Deprecates seven methods that should be deprecated according to their method comments. Complements the commits to Morphic and Morphic-Extras. =============== Diff against 60Deprecated-mt.82 =============== Item was added: + ----- Method: Canvas>>image:at: (in category '*60Deprecated-drawing') ----- + image: aForm at: aPoint + "Note: This protocol is deprecated. Use #paintImage: instead." + self deprecated: 'Use #paintImage: or #drawImage: instead'. + self image: aForm + at: aPoint + sourceRect: aForm boundingBox + rule: Form paint. + ! Item was added: + ----- Method: Canvas>>image:at:rule: (in category '*60Deprecated-drawing') ----- + image: aForm at: aPoint rule: combinationRule + "Note: This protocol is deprecated. Use one of the explicit image drawing messages (#paintImage, #drawImage) instead." + self deprecated: 'Use #paintImage: or #drawImage: instead'. + self image: aForm + at: aPoint + sourceRect: aForm boundingBox + rule: combinationRule. + ! Item was added: + ----- Method: Canvas>>imageWithOpaqueWhite:at: (in category '*60Deprecated-drawing') ----- + imageWithOpaqueWhite: aForm at: aPoint + "Note: This protocol is deprecated. Use #drawImage: instead" + self deprecated: 'Use #paintImage: or #drawImage: instead'. + self image: aForm + at: aPoint + sourceRect: (0@0 extent: aForm extent) + rule: Form over. + ! Item was added: + ----- Method: FancyMailComposition>>breakLinesInMessage: (in category '*60Deprecated-private') ----- + breakLinesInMessage: message + "reformat long lines in the specified message into shorter ones" + self deprecated: 'This should not be done by the mail composition, by now the MailMessage takes care of it'. + message body mainType = 'text' ifTrue: [ + "it's a single-part text message. reformat the text" + | newBodyText | + newBodyText := self breakLines: message bodyText atWidth: 72. + message body: (MIMEDocument contentType: message body contentType content: newBodyText). + + ^self ]. + + message body isMultipart ifTrue: [ + "multipart message; process the top-level parts. HACK: the parts are modified in place" + message parts do: [ :part | + part body mainType = 'text' ifTrue: [ + | newBodyText | + newBodyText := self breakLines: part bodyText atWidth: 72. + part body: (MIMEDocument contentType: part body contentType content: newBodyText) ] ]. + message regenerateBodyFromParts. ].! Item was added: + ----- Method: Morph>>fullCopy (in category '*60Deprecated-copying') ----- + fullCopy + "Deprecated, but maintained for backward compatibility with existing code (no senders in the base 3.0 image). Calls are revectored to #veryDeepCopy, but note that #veryDeepCopy does not do exactly the same thing that the original #fullCopy did, so beware!!" + self deprecated: 'Use #veryDeepCopy instead'. + ^ self veryDeepCopy! Item was added: + ----- Method: NewParagraph>>lineIndexForCharacter: (in category '*60Deprecated-private') ----- + lineIndexForCharacter: characterIndex + + self deprecated: 'Use #lineIndexOfCharacterIndex: instead'. + ^self lineIndexOfCharacterIndex: characterIndex ! Item was added: + ----- Method: PostscriptCanvas>>text:at:font:color:justified:parwidth: (in category '*60Deprecated-private') ----- + text: s at:point font: fontOrNil color: c justified:justify parwidth:parwidth + + self deprecated: 'Use #textStyled:at:font:color:justified:parwidth: instead'. + self flag: #bob. "deprecated in favor of #textStyled......." + + + + + + + + self setFont:(fontOrNil ifNil:[self defaultFont]). + self comment:' text color: ',c printString. + self setColor:c. + self comment:' origin ', origin printString. + self moveto: point. + target print:' ('; + print:s asPostscript; print:') '. + justify ifTrue:[ + target write:parwidth; print:' jshow'; cr. + ] ifFalse:[ + target print:'show'. + ]. + target cr. + !

1 0

The Trunk: Morphic-pre.1707.mcz
by commits＠source.squeak.org 26 Oct '20

26 Oct '20

Patrick Rein uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-pre.1707.mcz ==================== Summary ==================== Name: Morphic-pre.1707 Author: pre Time: 26 October 2020, 6:37:05.943595 pm UUID: dde21a70-157a-7943-93ca-2ac63b8be1af Ancestors: Morphic-mt.1706 Deprecates five methods that should be deprecated according to their method comments. =============== Diff against Morphic-mt.1706 =============== Item was removed: - ----- Method: Canvas>>image:at: (in category 'drawing-obsolete') ----- - image: aForm at: aPoint - "Note: This protocol is deprecated. Use #paintImage: instead." - self image: aForm - at: aPoint - sourceRect: aForm boundingBox - rule: Form paint. - ! Item was removed: - ----- Method: Canvas>>image:at:rule: (in category 'drawing-obsolete') ----- - image: aForm at: aPoint rule: combinationRule - "Note: This protocol is deprecated. Use one of the explicit image drawing messages (#paintImage, #drawImage) instead." - self image: aForm - at: aPoint - sourceRect: aForm boundingBox - rule: combinationRule. - ! Item was removed: - ----- Method: Canvas>>imageWithOpaqueWhite:at: (in category 'drawing-obsolete') ----- - imageWithOpaqueWhite: aForm at: aPoint - "Note: This protocol is deprecated. Use #drawImage: instead" - self image: aForm - at: aPoint - sourceRect: (0@0 extent: aForm extent) - rule: Form over. - ! Item was removed: - ----- Method: Morph>>fullCopy (in category 'copying') ----- - fullCopy - "Deprecated, but maintained for backward compatibility with existing code (no senders in the base 3.0 image). Calls are revectored to #veryDeepCopy, but note that #veryDeepCopy does not do exactly the same thing that the original #fullCopy did, so beware!!" - - ^ self veryDeepCopy! Item was removed: - ----- Method: NewParagraph>>lineIndexForCharacter: (in category 'private') ----- - lineIndexForCharacter: characterIndex - "Deprecated" - - ^self lineIndexOfCharacterIndex: characterIndex !

1 0

The Trunk: MorphicExtras-pre.279.mcz
by commits＠source.squeak.org 26 Oct '20

26 Oct '20

Patrick Rein uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-pre.279.mcz ==================== Summary ==================== Name: MorphicExtras-pre.279 Author: pre Time: 26 October 2020, 6:35:34.734595 pm UUID: 1deb32ba-e1e4-1a43-ae43-cc06c2dd2245 Ancestors: MorphicExtras-mt.278 Deprecates two private methods that stated that they are deprecated in their comments. Adds one such comment to yet another method. =============== Diff against MorphicExtras-mt.278 =============== Item was removed: - ----- Method: FancyMailComposition>>breakLinesInMessage: (in category 'private') ----- - breakLinesInMessage: message - "reformat long lines in the specified message into shorter ones" - self flag: #TODO. "Maybe deprecated" - message body mainType = 'text' ifTrue: [ - "it's a single-part text message. reformat the text" - | newBodyText | - newBodyText := self breakLines: message bodyText atWidth: 72. - message body: (MIMEDocument contentType: message body contentType content: newBodyText). - - ^self ]. - - message body isMultipart ifTrue: [ - "multipart message; process the top-level parts. HACK: the parts are modified in place" - message parts do: [ :part | - part body mainType = 'text' ifTrue: [ - | newBodyText | - newBodyText := self breakLines: part bodyText atWidth: 72. - part body: (MIMEDocument contentType: part body contentType content: newBodyText) ] ]. - message regenerateBodyFromParts. ].! Item was removed: - ----- Method: PostscriptCanvas>>text:at:font:color:justified:parwidth: (in category 'private') ----- - text: s at:point font: fontOrNil color: c justified:justify parwidth:parwidth - - self flag: #bob. "deprecated in favor of #textStyled......." - - - - - - - - self setFont:(fontOrNil ifNil:[self defaultFont]). - self comment:' text color: ',c printString. - self setColor:c. - self comment:' origin ', origin printString. - self moveto: point. - target print:' ('; - print:s asPostscript; print:') '. - justify ifTrue:[ - target write:parwidth; print:' jshow'; cr. - ] ifFalse:[ - target print:'show'. - ]. - target cr. - ! Item was changed: ----- Method: PostscriptCanvas>>text:at:font:color:spacePad: (in category 'private') ----- text: s at: point font: fontOrNil color: c spacePad: pad + "Potentially deprecated, no senders in 5.3, seems to have been replaced by textStyled:..." | fillC oldC | fillC := self shadowColor ifNil: [c]. self setFont: (fontOrNil ifNil: [self defaultFont]). self comment: ' text color: ' , c printString. oldC := currentColor. self setColor: fillC. self comment: ' origin ' , origin printString. self moveto: point. target write: pad; print: ' 0 32 ('; print: s asPostscript; print: ') widthshow'; cr. self setColor: oldC.!

1 0

The Trunk: Tools-tpr.1003.mcz
by commits＠source.squeak.org 26 Oct '20

26 Oct '20

tim Rowledge uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-tpr.1003.mcz ==================== Summary ==================== Name: Tools-tpr.1003 Author: tpr Time: 18 October 2020, 5:24:15.656722 pm UUID: 7a19cdad-a4e2-432e-ab35-b89d0de811e1 Ancestors: Tools-mt.1002 Rework the window label handing of MessageSet/Trace to be a bit more accurate, and to work within the normal style of labels. Instead of assuming the size of the list passed to the MessageSet/Trace is correct, derive it from the post-processing list. We process the list to remove duplicates, which e.g. the #allUnimplementedCalls method produces. This required adding an instvar to M-Set, removing one from M-Trace, setting the new one properly, dumping some dodgy code that used to half-assedly derive the old one, use the proper #changed: #windowTitle to, y'know, change the title, and some faffing with the messageList. As a result we are better placed to make further improvements if/when we develop a way to correctly hightlight multi-part keywords (or indeed, multiple messages) within a single method, which would greatly improve many browsers. This benefits from being accompanied by the single-method change in the System-tpr.1181 package =============== Diff against Tools-mt.1002 =============== Item was changed: CodeHolder subclass: #MessageSet + instanceVariableNames: 'growable messageList messageListFormatted autoSelectString messageListIndex editSelection windowLabel' - instanceVariableNames: 'growable messageList messageListFormatted autoSelectString messageListIndex editSelection' classVariableNames: 'UseUnifiedMessageLabels' poolDictionaries: '' category: 'Tools-Browser'! !MessageSet commentStamp: '<historical>' prior: 0! I represent a query path of the retrieval result of making a query about methods in the system. The result is a set of methods, denoted by a message selector and the class in which the method was found. As a StringHolder, the string I represent is the source code of the currently selected method. I am typically viewed in a Message Set Browser consisting of a MessageListView and a BrowserCodeView.! Item was changed: ----- Method: MessageSet class>>openMessageList:name:autoSelect: (in category 'instance creation') ----- openMessageList: messageList name: labelString autoSelect: autoSelectString "Open a system view for a MessageSet on messageList. + The labelString is passed to the model to use as a base label, depending on the selection state" - 1/24/96 sw: the there-are-no msg now supplied by my sender" | messageSet | messageSet := self messageList: messageList. + messageSet + autoSelectString: autoSelectString; + setInitialLabel: labelString. + ^ToolBuilder open: messageSet! - messageSet autoSelectString: autoSelectString. - ^ToolBuilder open: messageSet label: labelString! Item was changed: ----- Method: MessageSet>>adjustWindowTitleAfterFiltering (in category 'private') ----- adjustWindowTitleAfterFiltering + "Set the title of the receiver's window, if any, to reflect the just-completed filtering. Avoid re-doing it if fitering is re-done" - "Set the title of the receiver's window, if any, to reflect the just-completed filtering" + (windowLabel endsWith: 'Filtered') + ifFalse: [windowLabel := windowLabel , ' Filtered'. + self changed: #windowTitle]! - | aWindow existingLabel newLabel | - - (aWindow := self containingWindow) ifNil: [^ self]. - (existingLabel := aWindow label) isEmptyOrNil ifTrue: [^ self]. - (((existingLabel size < 3) or: [existingLabel last ~~ $]]) or: [(existingLabel at: (existingLabel size - 1)) isDigit not]) ifTrue: [^ self]. - existingLabel size to: 1 by: -1 do: - [:anIndex | ((existingLabel at: anIndex) == $[) ifTrue: - [newLabel := (existingLabel copyFrom: 1 to: anIndex), - 'Filtered: ', - messageList size printString, - ']'. - ^ aWindow setLabel: newLabel]] - - - ! Item was changed: ----- Method: MessageSet>>initializeMessageList: (in category 'private') ----- initializeMessageList: anArray "Initialize my messageList from the given list of MethodReference or string objects. NB: special handling for uniclasses. Do /not/ replace the elements of anArray if they are already MethodReferences, so as to allow users to construct richer systems, such as differencers between existing and edited versions of code." + messageList := Set new. - messageList := OrderedCollection new. anArray do: [:each | each isMethodReference + ifTrue: [messageList add: each] - ifTrue: [messageList addLast: each] ifFalse: [ MessageSet parse: each toClassAndSelector: + [ : class : sel | class ifNotNil: [ messageList add: (MethodReference class: class selector: sel) ] ] ] ]. + messageList := messageList asSortedCollection asOrderedCollection. "Possibly better to do asOrderedCollection sort ?" - [ : class : sel | class ifNotNil: [ messageList addLast: (MethodReference class: class selector: sel) ] ] ] ]. "Unify labels if wanted." self class useUnifiedMessageLabels ifTrue: [ messageList withIndexDo: [ : each : index | | cls | cls := each actualClass. each stringVersion: (self indentionPrefixOfSize: (self indentionsIn: each stringVersion)) , (cls ifNil: [each asString] ifNotNil: [cls isUniClass ifTrue: [cls typicalInstanceName, ' ', each selector] ifFalse: [ cls name , ' ' , each selector , ' {' , ((cls organization categoryOfElement: each selector) ifNil: ['']) , '}' , ' {', cls category, '}' ] ]) ] ]. messageListIndex := messageList isEmpty ifTrue: [0] ifFalse: [1]. contents := String empty! Item was changed: ----- Method: MessageSet>>messageListIndex: (in category 'message list') ----- messageListIndex: anInteger + "Set the index of the selected item to be anInteger. + Update the message list morph, the text edit morph and the assorted buttons" - "Set the index of the selected item to be anInteger." messageListIndex := anInteger. contents := messageListIndex ~= 0 ifTrue: [self selectedMessage] ifFalse: ['']. self changed: #messageListIndex. "update my selection" self editSelection: #editMessage. self contentsChanged. (messageListIndex ~= 0 and: [ autoSelectString notNil and: [ self contents notEmpty ] ]) ifTrue: [ self changed: #autoSelect ]. self decorateButtons ! Item was added: + ----- Method: MessageSet>>setInitialLabel: (in category 'accessing') ----- + setInitialLabel: aString + "set the base label for the window, as returned by #windowTitle" + + windowLabel := aString! Item was added: + ----- Method: MessageSet>>windowTitle (in category 'user interface') ----- + windowTitle + "just return the basic label for now" + + ^windowLabel! Item was changed: MessageSet subclass: #MessageTrace + instanceVariableNames: 'autoSelectStrings messageSelections anchorIndex' - instanceVariableNames: 'autoSelectStrings messageSelections anchorIndex defaultSelectString' classVariableNames: '' poolDictionaries: '' category: 'Tools-Browser'! !MessageTrace commentStamp: 'cmm 3/2/2010 20:26' prior: 0! A MessageTrace is a MessageSet allowing efficient sender/implementor message following. With implementors indented below, and senders outdended above, message flow is succinctly expressed, hierarchically. My autoSelectStrings and messageSelections are Arrays of Booleans, parallel to my messageList. Each boolean indicates whether that message is selected. Each autoSelectStrings indicates which string should be highlighted in the code for each method in my messageList.! Item was changed: ----- Method: MessageTrace>>browseAllImplementorsOf: (in category 'actions') ----- browseAllImplementorsOf: selectorSymbol | selectorToBrowse | selectorToBrowse := self selection ifNil: [ selectorSymbol ] + ifNotNil: [ self getImplementorNamed: selectorSymbol asSymbol "since we can get passed literals"]. - ifNotNil: [ self getImplementorNamed: selectorSymbol ]. (self hasUnacceptedEdits or: [ Preferences traceMessages not ]) ifTrue: [ super browseAllImplementorsOf: selectorToBrowse ] ifFalse: [ self addChildMethodsNamed: selectorToBrowse ] ! Item was changed: ----- Method: MessageTrace>>initializeMessageList: (in category 'private initializing') ----- initializeMessageList: anArray - messageSelections := (Array new: anArray size withAll: false) asOrderedCollection. super initializeMessageList: anArray. + messageSelections := (Array new: messageList size withAll: false) asOrderedCollection. self messageAt: messageListIndex beSelected: true. "autoSelectStrings is initialized right after this method, in autoSelectString:" ! Item was changed: ----- Method: MessageTrace>>messageListIndex: (in category 'actions') ----- messageListIndex: anInteger + "Set the index of the selected item to be anInteger. + Find the relevant auto select string to use, do my superclass' work and update the window title" + autoSelectStrings ifNotEmpty: [ autoSelectString := anInteger = 0 + ifTrue: [ "clear the autoSelectString" + String empty ] + ifFalse: [autoSelectStrings at: anInteger] + ]. + + anInteger > 0 ifTrue: [ self + messageAt: anInteger + beSelected: true + ]. + super messageListIndex: anInteger. + self changed: #windowTitle - ifTrue: - [ defaultSelectString ifNotNil: [:default| self containingWindow setLabel: default]. - "clear the autoSelectString" - '' ] - ifFalse: - [ messageListIndex := anInteger. - "setting the window label, below, can't wait for this.." - self containingWindow setLabel: (self windowLabelAt: anInteger). - "work out the string to ask the text view to pre-select. We should do better than this; after all the debugger does" - (autoSelectStrings at: anInteger)] ]. - anInteger > 0 ifTrue: - [ self - messageAt: anInteger - beSelected: true ]. - super messageListIndex: anInteger ! Item was changed: ----- Method: MessageTrace>>windowLabelAt: (in category 'private accessing') ----- windowLabelAt: anInteger + "return a suitable window label when there is an actual list item selected; work out what it should be based upon the array of autoSelectStrings or the current selection" + ^(autoSelectStrings at: anInteger) + ifNil: [ 'Implementors of ', - | str | - defaultSelectString ifNil: - [defaultSelectString := self containingWindow label]. - ^(str := autoSelectStrings at: anInteger) - ifNil: - [ 'Implementors of ', (self class parse: self selection + toClassAndSelector: [ :class :selector | selector ]) + ] + ifNotNil: [:str| 'Senders of ', str ] - toClassAndSelector: [ :class :selector | selector ]) ] - ifNotNil: - [ 'Senders of ', str ] ! Item was added: + ----- Method: MessageTrace>>windowTitle (in category 'building') ----- + windowTitle + "set the window label to suit the selection state; + if no selection, use saved widow label and add the number of items in the messageList + if something is selected, use the relevant string provided by windowLabelAt: which considers the index" + + ^messageListIndex = 0 + ifTrue:[String streamContents: [:str| str nextPutAll: windowLabel; + space; + nextPut: $[; + space; + nextPutAll: messageList size asString; + space; + nextPut: $] + ] + ] + ifFalse: [self windowLabelAt: messageListIndex]!

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages October 2020