The Trunk: ST80Tools-mt.11.mcz

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)]]!