Marcel Taeumel uploaded a new version of ST80Tools to project The Trunk:
http://source.squeak.org/trunk/ST80Tools-mt.11.mcz

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

Name: ST80Tools-mt.11
Author: mt
Time: 4 December 2019, 3:10:45.482613 pm
UUID: b35ad331-540f-4167-89cd-cd6062791e05
Ancestors: ST80Tools-mt.10

Cleans up browse-it-from-here like Morphic-mt.1600 does.

=============== Diff against ST80Tools-mt.10 ===============

Item was changed:
  ----- Method: ParagraphEditor>>browseItHere (in category '*ST80Tools') -----
  browseItHere
  	"Retarget the receiver's window to look at the selected class, if appropriate.  3/1/96 sw"
- 	| aSymbol b |
- 	(((b := model) isKindOf: Browser) and: [b couldBrowseAnyClass])
- 		ifFalse: [^ view flash].
- 	model okToChange ifFalse: [^ view flash].
- 	self selectionInterval isEmpty ifTrue: [self selectWord].
- 	(aSymbol := self selectedSymbol) ifNil: [^ view flash].
  
+ 	"Retarget the receiver's window to look at the selected class, if appropriate."
+ 
+ 	self wordSelectAndEmptyCheck: [^ view flash].
+ 
+ 	((model isKindOf: Browser) and: [model couldBrowseAnyClass])
+ 		ifFalse: [^ view flash].
+ 	model okToChange
+ 		ifFalse: [^ view flash].
+ 			
+ 	self selectedSymbol ifNotNil: [:symbol |
+ 		(model environment classNamed: symbol) ifNotNil: [:class |
+ 			^ model setClass: class]].
+ 	
+ 	view flash!
- 	self terminateAndInitializeAround:
- 		[| foundClass |
- 		foundClass := (Smalltalk at: aSymbol ifAbsent: [nil]).
- 			foundClass ifNil: [^ view flash].
- 			(foundClass isKindOf: Class)
- 				ifTrue:
- 					[model selectSystemCategory: foundClass category.
- 		model classListIndex: (model classList indexOf: foundClass name)]]!