The Trunk: ST80-dtl.72.mcz

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

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

Name: ST80-dtl.72
Author: dtl
Time: 29 November 2009, 7:22:09 am
UUID: 8fb563e0-7096-4b61-a188-dc1363274d29
Ancestors: ST80-dtl.71

Remove all remaining explicit MVC and Morphic dependencies (hopefully) from class Project.

=============== Diff against ST80-dtl.71 ===============

Item was added:
+ ----- Method: MVCProject>>exportSegmentWithCatagories:classes:fileName:directory: (in category 'file in/out') -----
+ exportSegmentWithCatagories: catList classes: classList fileName: aFileName directory: aDirectory
+ "Store my project out on the disk as an *exported* ImageSegment.  All outPointers will be in a form that can be resolved in the target image.  Name it <project name>.extSeg.  What do we do about subProjects, especially if they are out as local image segments?  Force them to come in?
+ Player classes are included automatically."
+
+ self flag: #toRemove.
+ self halt.  "unused"
+ "world == World ifTrue: [^ false]."
+ "self inform: 'Can''t send the current world out'."
+ self projectParameters at: #isMVC put: true.
+ ^ false "Only Morphic projects for now"
+ !

Item was added:
+ ----- 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. ***"
+
+ (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 added:
+ ----- Method: MVCProject>>exportSegmentWithChangeSet:fileName:directory: (in category 'file in/out') -----
+ exportSegmentWithChangeSet: aChangeSetOrNil fileName: aFileName
+ directory: aDirectory
+ "Store my project out on the disk as an *exported*
+ ImageSegment.  All outPointers will be in a form that can be resolved
+ in the target image.  Name it <project name>.extSeg.  Whatdo we do
+ about subProjects, especially if they are out as local image
+ segments?  Force them to come in?
+ Player classes are included automatically."
+
+ "Files out a changeSet first, so that a project can contain
+ its own classes"
+ self projectParameters at: #isMVC put: true.
+ ^ false "Only Morphic projects for now"
+ !

Item was added:
+ ----- Method: MVCProject>>initializeProjectPreferences (in category 'project parameters') -----
+ initializeProjectPreferences
+ "Initialize the project's preferences from currently-prevailing preferences that are currently being held in projects in this system"
+
+ self flapsSuppressed: true.
+ super initializeProjectPreferences
+ !

Item was added:
+ ----- 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:)"
+
+ (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"
+ !