The Trunk: Morphic-jr.1325.mcz

David T. Lewis uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-jr.1325.mcz

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

Name: Morphic-jr.1325
Author: jr
Time: 3 March 2017, 3:28:29.825687 am
UUID: ec6312f8-a496-fe46-8c4e-e1ca155b499d
Ancestors: Morphic-tpr.1324

regard the model's environment in TextEditor

=============== Diff against Morphic-tpr.1324 ===============

Item was changed:
  ----- Method: TextEditor>>browseClassFromIt (in category 'menu messages') -----
  browseClassFromIt
  "Launch a hierarchy 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 ].
  aClass := UIManager default
  classFromPattern: self selection string withBlanksTrimmed
+ withCaption: 'choose a class to browse...'
+ in: model environment.
- withCaption: 'choose a class to browse...'.
  aClass ifNil: [ ^ morph flash ].
+ self systemNavigation
- SystemNavigation default
  spawnHierarchyForClass: aClass
  selector: nil!

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 := (model environment
+ valueOf: aSymbol
- [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 setClass: anEntry selector: nil.
  brow class
  openBrowserView: (brow openEditString: nil)
  label: 'System Browser']
  ifFalse:
  [self systemNavigation browseAllImplementorsOf: aSymbol]!

Item was changed:
  ----- Method: TextEditor>>compileSelectionFor:in: (in category 'do-its') -----
  compileSelectionFor: anObject in: evalContext
 
  | methodNode |
  methodNode := [Compiler new
  compileNoPattern: self selectionAsStream
  in: anObject class
  context: evalContext
+ environment: model environment
  notifying: self
  ifFail: [^nil]]
  on: OutOfScopeNotification
  do: [:ex | ex resume: true].
  ^ methodNode generateWithTempNames!

Item was changed:
  ----- Method: TextEditor>>evaluateSelectionAndDo: (in category 'do-its') -----
  evaluateSelectionAndDo: aBlock
  "Treat the current selection as an expression; evaluate it and invoke aBlock with the result."
  | result rcvr ctxt |
  self lineSelectAndEmptyCheck: [^ nil].
 
  (model respondsTo: #evaluateExpression:) ifTrue: [
  ^ aBlock value: (model perform: #evaluateExpression: with: self selection)].
 
  (model respondsTo: #doItReceiver)
  ifTrue: [ rcvr := model doItReceiver.
  ctxt := model doItContext]
  ifFalse: [rcvr := ctxt := nil].
  result := [
  rcvr class evaluatorClass new
  evaluate: self selectionAsStream
  in: ctxt
  to: rcvr
+ environment: (model environment ifNil: [Smalltalk globals])
  notifying: self
  ifFail: [morph flash. ^ nil]
  logged: true.
  ]
  on: OutOfScopeNotification
  do: [ :ex | ex resume: true].
 
  (model respondsTo: #expressionEvaluated:result:) ifTrue: [
  model perform: #expressionEvaluated:result: with: self selection with: result].
 
  ^aBlock value: result!

Item was changed:
  ----- Method: TextEditor>>referencesToIt (in category 'menu messages') -----
  referencesToIt
  "Open a MessageSet with the references to the selected global or variable name."
  | selection environment binding |
  self selection isEmpty ifTrue: [ self selectWord ].
  environment := (model respondsTo: #selectedClassOrMetaClass)
+ ifTrue: [ model selectedClassOrMetaClass ifNil: [ model environment ] ]
+ ifFalse: [ model environment ].
- ifTrue: [ model selectedClassOrMetaClass ifNil: [ Smalltalk globals ] ]
- ifFalse: [ Smalltalk globals ].
  selection := self selectedSymbol ifNil: [ self selection asString ].
  (environment isBehavior and:
  [ (environment
  instVarIndexFor: selection
  ifAbsent: [ 0 ]) ~= 0 ]) ifTrue: [ ^ self systemNavigation
  browseAllAccessesTo: selection
  from: environment ].
  selection isSymbol ifFalse: [ ^ morph flash ].
  binding := (environment bindingOf: selection) ifNil: [ ^ morph flash ].
  self systemNavigation browseAllCallsOn: binding!

Item was added:
+ ----- Method: TextEditor>>systemNavigation (in category 'as yet unclassified') -----
+ systemNavigation
+ ^ SystemNavigation for: model environment!