The Trunk: ST80-dtl.231.mcz

David T. Lewis uploaded a new version of ST80 to project The Trunk:
http://source.squeak.org/trunk/ST80-dtl.231.mcz

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

Name: ST80-dtl.231
Author: dtl
Time: 13 November 2017, 9:24:36.982919 pm
UUID: 6b7b06d8-8c1e-477a-8ac1-89f6377bab8a
Ancestors: ST80-tpr.230

Remove unnecessary references to global world.
Do not test nil World for project type, instead use Project current isMVC

=============== Diff against ST80-tpr.230 ===============

Item was changed:
  ----- Method: MVCProject>>storeSegment (in category 'file in/out') -----
  storeSegment
  "Store my project out on the disk as an ImageSegment.  Keep the outPointers in memory.  Name it <project name>.seg.  *** Caller must be holding (Project alInstances) to keep subprojects from going out. ***"
 
+ (Project current world == world) ifTrue: [^ false].
- (World == world) ifTrue: [^ false].
  "self inform: 'Can''t send the current world out'."
  world isInMemory ifFalse: [^ false].  "already done"
  self projectParameters at: #isMVC put: true.
  ^ false "Only Morphic projects for now"
  !

Item was changed:
  ----- Method: MVCProject>>storeSegmentNoFile (in category 'file in/out') -----
  storeSegmentNoFile
  "For testing.  Make an ImageSegment.  Keep the outPointers in memory.  Also useful if you want to enumerate the objects in the segment afterwards (allObjectsDo:)"
 
+ (Project current world == world) ifTrue: [^ self]. " inform: 'Can''t send the current world out'."
- (World == world) ifTrue: [^ self]. " inform: 'Can''t send the current world out'."
  world isInMemory ifFalse: [^ self].  "already done"
  self projectParameters at: #isMVC put: true.
  ^ self "Only Morphic projects for now"
  !