The Trunk: System-dtl.161.mcz

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!