'From Squeak3.6 of ''6 October 2003'' [latest update: #5424] on 20 November 2003 at 3:30:48 pm'! !Browser class methodsFor: 'instance creation' stamp: 'sumim 11/20/2003 15:28'! fullOnClass: aClass "Open a new full browser set to class." | brow | brow _ self new. brow setClass: aClass selector: nil. Browser openBrowserView: (brow openEditString: nil) label: 'System Browser: ', aClass name! ! !ParagraphEditor methodsFor: 'menu messages' stamp: 'sumim 11/20/2003 15:25'! browseIt "Launch a browser for the current selection, if appropriate" | aSymbol anEntry brow | Preferences alternativeBrowseIt ifTrue: [^ self browseClassFromIt]. self lineSelectAndEmptyCheck: [^ self]. (aSymbol _ self selectedSymbol) isNil ifTrue: [^ view flash]. self terminateAndInitializeAround: [aSymbol first isUppercase ifTrue: [anEntry _ (Smalltalk at: aSymbol ifAbsent: [ self systemNavigation browseAllImplementorsOf: aSymbol. ^ nil]). anEntry isNil ifTrue: [^ view flash]. (anEntry isKindOf: Class) ifFalse: [anEntry _ anEntry class]. brow _ Preferences browseToolClass new. brow setClass: anEntry selector: nil. brow class openBrowserView: (brow openEditString: nil) label: 'System Browser: ', anEntry name] ifFalse: [ self systemNavigation browseAllImplementorsOf: aSymbol]]! !