David T. Lewis uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-dtl.161.mcz
==================== Summary ====================
Name: System-dtl.161 Author: dtl Time: 31 October 2009, 4:11:28 am UUID: b2ac36a5-cfa1-47d7-b4fb-d87231823876 Ancestors: System-dtl.160
Move 5 methods from Project (initialization category) to MVCProject and MorphicProject.
=============== Diff against System-dtl.160 ===============
Item was changed: ----- Method: Project>>defaultBackgroundColor (in category 'initialization') ----- defaultBackgroundColor + ^ self subclassResponsibility! - ^ self isMorphic - ifTrue: [self backgroundColorForMorphicProject] - ifFalse: [self backgroundColorForMvcProject]!
Item was removed: - ----- Method: Project>>installPasteUpAsWorld: (in category 'initialization') ----- - installPasteUpAsWorld: pasteUpMorph - "(ProjectViewMorph newMorphicProjectOn: aPasteUpMorph) openInWorld." - - world := pasteUpMorph beWorldForProject: self!
Item was removed: - ----- Method: Project>>initMorphic (in category 'initialization') ----- - initMorphic - "Written so that Morphic can still be removed. Note that #initialize is never actually called for a morphic project -- see the senders of this method." - - Smalltalk verifyMorphicAvailability ifFalse: [^ nil]. - changeSet := ChangeSet new. - transcript := TranscriptStream new. - displayDepth := Display depth. - parentProject := CurrentProject. - isolatedHead := false. - world := PasteUpMorph newWorldForProject: self. - Locale switchToID: CurrentProject localeID. - self initializeProjectPreferences. "Do this *after* a world is installed so that the project will be recognized as a morphic one." - Preferences useVectorVocabulary ifTrue: [world installVectorVocabulary]!
Item was removed: - ----- Method: Project>>backgroundColorForMorphicProject (in category 'initialization') ----- - backgroundColorForMorphicProject - ^ Preferences defaultWorldColor!
Item was removed: - ----- Method: Project>>backgroundColorForMvcProject (in category 'initialization') ----- - backgroundColorForMvcProject - ^ Color r: 1.0 g: 1.0 b: 0.065!