The Trunk: Morphic-fbs.700.mcz

Frank Shearar uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-fbs.700.mcz

==================== 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') -----
  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: [^ morph flash].
 
  aSymbol first isUppercase
  ifTrue:
  [anEntry := (Smalltalk
  at: aSymbol
  ifAbsent:
  [ 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']
  ifFalse:
  [self systemNavigation browseAllImplementorsOf: aSymbol]!