The Trunk: Morphic-mt.1589.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: Morphic-mt.1589.mcz

commits-2
Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.1589.mcz

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

Name: Morphic-mt.1589
Author: mt
Time: 20 November 2019, 2:45:39.406662 pm
UUID: 5accb57c-4211-b54c-855d-2702370cee12
Ancestors: Morphic-mt.1588

Removes some missed deprecation sends.

=============== Diff against Morphic-mt.1588 ===============

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!