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