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!
squeak-dev@lists.squeakfoundation.org