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)]]!
packages@lists.squeakfoundation.org