[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:
http://source.squeak.org/trunk/Morphic-ul.1780.mcz
==================== 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"
self
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
|