tim Rowledge uploaded a new version of ST80 to project The Trunk: http://source.squeak.org/trunk/ST80-tpr.230.mcz
==================== Summary ====================
Name: ST80-tpr.230 Author: tpr Time: 21 October 2017, 6:05:44.809305 pm UUID: e41515c2-7a7a-4e5b-9945-e51908361389 Ancestors: ST80-nice.229
Small cleanups for the #browse... methods. Note the thwy kinda-sorta parallel the TextEditor versions in a poor-relation manner that suggests we might be able to improve them.
=============== Diff against ST80-nice.229 ===============
Item was changed: ----- Method: ParagraphEditor>>browseClassFromIt (in category 'menu messages') ----- browseClassFromIt "Launch a browser for the class indicated by the current selection. If multiple classes matching the selection exist, let the user choose among them." | aClass | + + self lineSelectAndEmptyCheck: [^ self]. - self - lineSelectAndEmptyCheck: [^ self]. aClass := UIManager default classFromPattern: self selection string withCaption: 'choose a class to browse...'. + aClass ifNil: [^ view flash]. + self terminateAndInitializeAround: + [self systemNavigation browseClass: aClass].! - aClass - ifNil: [^ view flash]. - self - terminateAndInitializeAround: - [| aBrow | - aBrow := SystemBrowser default new. - aBrow setClass: aClass selector: nil. - aBrow class - openBrowserView: (aBrow openEditString: nil) label: 'System Browser'].!
Item was changed: ----- Method: ParagraphEditor>>browseIt (in category 'menu messages') ----- browseIt "Launch a browser for the current selection, if appropriate"
| aSymbol | self flag: #yoCharCases.
Preferences alternativeBrowseIt ifTrue: [^ self browseClassFromIt].
self lineSelectAndEmptyCheck: [^ self]. (aSymbol := self selectedSymbol) isNil ifTrue: [^ view flash].
self terminateAndInitializeAround: [aSymbol first isUppercase + ifTrue: [| anEntry | + anEntry := (Smalltalk at: aSymbol + ifAbsent: [ self systemNavigation browseAllImplementorsOf: aSymbol. - ifTrue: - [| anEntry | - anEntry := (Smalltalk - at: aSymbol - ifAbsent: - [ self systemNavigation browseAllImplementorsOf: aSymbol. ^ nil]). anEntry isNil ifTrue: [^ view flash]. (anEntry isBehavior or: [ anEntry isTrait ]) ifFalse: [ anEntry := anEntry class ]. + self systemNavigation browseClass: anEntry. + ] ifFalse:[ self systemNavigation browseAllImplementorsOf: aSymbol]]! - ToolSet browse: anEntry selector: nil. - ] ifFalse:[ self systemNavigation browseAllImplementorsOf: aSymbol]]!