The Inbox: Morphic-ct.1555.mcz

A new version of Morphic was added to project The Inbox:
http://source.squeak.org/inbox/Morphic-ct.1555.mcz

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

Name: Morphic-ct.1555
Author: ct
Time: 1 October 2019, 3:58:13.194339 pm
UUID: 1bf7161d-2cdf-0745-ae8b-6c79af0585da
Ancestors: Morphic-ul.1552

Complements System-ct.1105

=============== Diff against Morphic-ul.1552 ===============

Item was changed:
  ----- Method: ProjectViewMorph>>enter (in category 'events') -----
  enter
  "Enter my project."
 
  self world == self outermostWorldMorph ifFalse: [^Beeper beep]. "can't do this at the moment"
  project class == DiskProxy
  ifFalse:
  [(project world notNil and:
  [project world isMorph
  and: [project world hasOwner: self outermostWorldMorph]])
  ifTrue: [^Beeper beep "project is open in a window already"]].
  project class == DiskProxy
  ifTrue:
  ["When target is not in yet"
 
  self enterWhenNotPresent. "will bring it in"
  project class == DiskProxy ifTrue: [^self inform: 'Project not found' translated]].
+ owner isSystemWindow ifTrue: [project viewSize: self extent].
- (owner isSystemWindow) ifTrue: [project setViewSize: self extent].
  self showMouseState: 3.
  project
  enter: false
  revert: false
  saveForRevert: false!

Item was changed:
  ----- Method: ProjectViewMorph>>enterAsActiveSubproject (in category 'events') -----
  enterAsActiveSubproject
      "Enter my project."
 
      project class == DiskProxy
          ifTrue:
              ["When target is not in yet"
 
              [self enterWhenNotPresent    "will bring it in"] on: ProjectEntryNotification
                  do: [:ex | ^ex projectToEnter enterAsActiveSubprojectWithin: self world].
              project class == DiskProxy ifTrue: [self error: 'Could not find view']].
+     owner isSystemWindow ifTrue: [project viewSize: self extent].
-     (owner isSystemWindow) ifTrue: [project setViewSize: self extent].
      self showMouseState: 3.
      project enterAsActiveSubprojectWithin: self world!