David T. Lewis uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-dtl.1358.mcz

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

Name: Morphic-dtl.1358
Author: dtl
Time: 10 November 2017, 7:39:02.562749 pm
UUID: c99ed855-5b48-48ff-827a-c1a6e87cd1e6
Ancestors: Morphic-tpr.1357

Yellow button menu for a workspace generally acts upon the text selection, not the full workspace text. Make it so for pretty printing the selected text in a workspace.

=============== Diff against Morphic-tpr.1357 ===============

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)
+ 				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)
+ 				ifNotNilDo: [ :newText |
+ 						self deselect; selectInvisiblyFrom: 1 to: paragraph text size.
+ 						self replaceSelectionWith: (selectedClass ifNil: [newText] ifNotNil: [newText asText makeSelectorBoldIn: selectedClass]).
+ 						self selectAt: self text size + 1 ]].
+ !
- 	| selectedClass newText |
- 	selectedClass := model selectedClassOrMetaClass.
- 	newText := selectedClass
- 		ifNil: [ 
- 			Compiler new
- 				formatNoPattern: self text
- 				environment: model environment ]
- 		ifNotNil: [:cls |
- 			selectedClass newCompiler
- 				format: self text
- 				in: cls
- 				notifying: self
- 				decorated: decorated ].
- 	newText ifNotNil:
- 		[ self
- 			deselect ;
- 			selectInvisiblyFrom: 1
- 			to: paragraph text size.
- 		self replaceSelectionWith: (selectedClass ifNil: [newText] ifNotNil: [newText asText makeSelectorBoldIn: selectedClass]).
- 		self selectAt: self text size + 1 ]!