[Pkg] The Trunk: Morphic-ar.221.mcz

commits at source.squeak.org commits at source.squeak.org
Sat Oct 31 20:50:43 UTC 2009

Andreas Raab uploaded a new version of Morphic to project The Trunk:

==================== 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!

More information about the Packages mailing list