[Pkg] The Trunk: Morphic-fbs.700.mcz

commits at source.squeak.org commits at source.squeak.org
Fri Dec 6 20:39:45 UTC 2013

Frank Shearar uploaded a new version of Morphic to project The Trunk:

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

Name: Morphic-fbs.700
Author: fbs
Time: 6 December 2013, 8:38:31.673 pm
UUID: a9c94f51-b544-f842-af48-c1d2e014573e
Ancestors: Morphic-fbs.699

Systematically ask SystemBrowser for a Browser (class).

=============== Diff against Morphic-fbs.699 ===============

Item was changed:
  ----- Method: TextEditor>>browseIt (in category 'menu messages') -----
  	"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: [^ morph flash].
  	aSymbol first isUppercase
  			[anEntry := (Smalltalk
  				at: aSymbol
  					[ self systemNavigation browseAllImplementorsOf: aSymbol.
  					^ nil]).
  			anEntry ifNil: [^ morph flash].
  			(anEntry isKindOf: Class)
  				ifFalse:	[anEntry := anEntry class].
+ 			brow := SystemBrowser default new.
- 			brow := Preferences browseToolClass new.
  			brow setClass: anEntry selector: nil.
  			brow class
  				openBrowserView: (brow openEditString: nil)
  				label: 'System Browser']
  			[self systemNavigation browseAllImplementorsOf: aSymbol]!

More information about the Packages mailing list