The Trunk: Morphic-tpr.1353.mcz

tim Rowledge uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-tpr.1353.mcz

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

Name: Morphic-tpr.1353
Author: tpr
Time: 21 October 2017, 6:07:05.387865 pm
UUID: aee97523-13a7-4829-8da8-95cd50fd8d15
Ancestors: Morphic-dtl.1352

Small cleanup for #browseIt

=============== Diff against Morphic-dtl.1352 ===============

Item was changed:
  ----- Method: TextEditor>>browseIt (in category 'menu messages') -----
  browseIt
  "Launch a browser for the current selection, if appropriate"
 
+ | aSymbol anEntry maybeBrowseInstVar |
- | aSymbol anEntry brow maybeBrowseInstVar |
 
  Preferences alternativeBrowseIt ifTrue: [^ self browseClassFromIt].
 
  self lineSelectAndEmptyCheck: [^ self].
 
+ maybeBrowseInstVar := [ | selectionString |
- maybeBrowseInstVar :=
- [| selectionString |
  selectionString := self selection asString.
  ([model selectedClass] on: Error do: [:ex|]) ifNotNil:
  [:class|
  (class allInstVarNames includes: selectionString) ifTrue:
  [self systemNavigation
  browseAllAccessesTo: selectionString
  from: (class classThatDefinesInstanceVariable: selectionString).
  ^nil]]].
 
  (aSymbol := self selectedSymbol) ifNil:
  [maybeBrowseInstVar value.
  ^morph flash].
 
  aSymbol first isUppercase
  ifTrue:
  [anEntry := (model environment
  valueOf: aSymbol
  ifAbsent:
  [ ([model selectedClass] on: Error do: [:ex|]) ifNotNil:
  [:class|
  (class bindingOf: aSymbol) ifNotNil: "e.g. a class var"
  [:binding|
  self systemNavigation browseAllCallsOn: binding.
  ^ nil]].
  self systemNavigation browseAllImplementorsOf: aSymbol.
  ^ nil]).
  anEntry ifNil: [^ morph flash].
  (anEntry isBehavior and: [anEntry name == aSymbol]) ifFalse: "When is this ever false?"
  [anEntry := anEntry class].
+ self systemNavigation browseClass: anEntry]
- brow := SystemBrowser default new.
- brow setClass: anEntry selector: nil.
- brow class
- openBrowserView: (brow openEditString: nil)
- label: 'System Browser']
  ifFalse:
  [self systemNavigation browseAllImplementorsOf: aSymbol.
  maybeBrowseInstVar value]!