The Trunk: Morphic-dtl.220.mcz

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

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

Name: Morphic-dtl.220
Author: dtl
Time: 31 October 2009, 4:08:25 am
UUID: a5c199c0-651e-454b-b2a2-df72baf20589
Ancestors: Morphic-dtl.219

Add #defaultBackgroundColor (moved from Project to MorphicProject).
Move #initMorphic and #InstallPasteUpAsWorld: from Project.
Flag #initMorphic for removal (but check if Etoys uses it).

=============== Diff against Morphic-dtl.219 ===============

Item was added:
+ ----- Method: MorphicProject>>initMorphic (in category 'initialize') -----
+ 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."
+
+ self flag: #toRemove. "check if this method still used by Etoys"
+ 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 added:
+ ----- Method: MorphicProject>>defaultBackgroundColor (in category 'initialize') -----
+ defaultBackgroundColor
+ ^ Preferences defaultWorldColor!

Item was added:
+ ----- Method: MorphicProject>>installPasteUpAsWorld: (in category 'initialize') -----
+ installPasteUpAsWorld: pasteUpMorph
+ "(ProjectViewMorph newMorphicProjectOn: aPasteUpMorph) openInWorld."
+
+ world := pasteUpMorph beWorldForProject: self!