Andreas Raab uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ar.221.mcz
==================== Summary ====================
Name: Morphic-ar.221 Author: ar Time: 31 October 2009, 1:49:25 am UUID: 76bd9f2c-a50d-3b4d-9f34-5e02e3a9a6ef Ancestors: Morphic-ar.220, Morphic-dtl.220
Merging Morphic-dtl.220:
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-ar.220 ===============
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!