[squeak-dev] The Trunk: Morphic-ul.1780.mcz

commits at source.squeak.org commits at source.squeak.org
Fri Sep 3 14:21:02 UTC 2021

Levente Uzonyi uploaded a new version of Morphic to project The Trunk:

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

Name: Morphic-ul.1780
Author: ul
Time: 3 September 2021, 3:51:14.375371 pm
UUID: 752b8545-23b0-4e10-9c95-997cadb88d2a
Ancestors: Morphic-mt.1779

- ifNotNilDo: -> ifNotNil:

=============== Diff against Morphic-mt.1779 ===============

Item was changed:
  ----- Method: SketchMorph>>erasePixelsUsing: (in category 'menu') -----
  erasePixelsUsing: evt 
  	"Let the user specifiy a color such that all pixels of that color should be erased; then do the erasure"
  		changeColorTarget: self
  		selector: #rememberedColor:
  		originalColor: nil
  		hand: evt hand.
  	self rememberedColor "color to erase"
  		ifNil: [ ^ self ]
+ 		ifNotNil:
- 		ifNotNilDo:
  			[ : chosenColor | self erasePixelsOfColor: chosenColor ]!

Item was changed:
  ----- Method: SmalltalkEditor>>methodArgument: (in category 'private') -----
  methodArgument: anInteger 
  	^ (ReadStream on: self text asString) nextLine
  		ifNil: [ String empty ]
+ 		ifNotNil:
- 		ifNotNilDo:
  			[ : line | 
  			line substrings
  				at: 2 * anInteger
  				ifAbsent: [ String empty ] ]!

Item was changed:
  ----- Method: TextEditor>>prettyPrint: (in category 'menu messages') -----
  prettyPrint: decorated 
  	"Reformat the contents of the receiver's view (a Browser or Workspace)."
  	model selectedClassOrMetaClass
  		ifNil: [ "arbitrary text selection in a workspace, not directly associated with a class"
  			(Compiler new formatNoPattern: self selection environment: model environment)
+ 				ifNotNil: [:newText | self replaceSelectionWith: newText]]
- 				ifNotNilDo: [:newText | self replaceSelectionWith: newText]]
  		ifNotNil: [:selectedClass | "source for a method in the selected class"
  			(selectedClass newCompiler
  					format: self text
  					in: selectedClass
  					notifying: self
  					decorated: decorated)
+ 				ifNotNil: [ :newText |
- 				ifNotNilDo: [ :newText |
  						self selectInvisiblyFrom: 1 to: paragraph text size.
  						self replaceSelectionWith: (selectedClass ifNil: [newText] ifNotNil: [newText asText makeSelectorBoldIn: selectedClass]).
  						self selectAt: self text size + 1 ]].

More information about the Squeak-dev mailing list