[squeak-dev] The Trunk: ST80-dtl.231.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Nov 14 02:24:45 UTC 2017


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"
  !



More information about the Squeak-dev mailing list