Andreas Raab uploaded a new version of Nebraska to project The Trunk:
http://source.squeak.org/trunk/Nebraska-ar.22.mcz
==================== Summary ====================
Name: Nebraska-ar.22
Author: ar
Time: 31 October 2009, 1:10:28 am
UUID: cc21cf2c-b7ac-d948-ab7e-b8e856347873
Ancestors: Nebraska-ul.21
Companion change to Morphic-ar.220: Check all morphs of the world to be shared whether it's safe to serve them or not.
=============== Diff against Nebraska-ul.21 ===============
Item was changed:
----- Method: NebraskaServerMorph class>>serveWorld: (in category 'as yet unclassified') -----
serveWorld: aWorld
"Check to make sure things won't crash. See Mantis #0000519"
+ aWorld allMorphsDo:[:m|
+ m isSafeToServe ifFalse:[
+ ^self inform: 'Can not share world if a ', m class, ' is present. Close the mprph and try again']].
+ ^self serveWorld: aWorld onPort: NebraskaServer defaultPort!
- aWorld isSafeToServe ifTrue:[
- ^self serveWorld: aWorld onPort: NebraskaServer defaultPort]
- !
Andreas Raab uploaded a new version of Nebraska to project The Trunk:
http://source.squeak.org/trunk/Nebraska-ar.22.mcz
==================== Summary ====================
Name: Nebraska-ar.22
Author: ar
Time: 31 October 2009, 1:10:28 am
UUID: cc21cf2c-b7ac-d948-ab7e-b8e856347873
Ancestors: Nebraska-ul.21
Companion change to Morphic-ar.220: Check all morphs of the world to be shared whether it's safe to serve them or not.
=============== Diff against Nebraska-ul.21 ===============
Item was changed:
----- Method: NebraskaServerMorph class>>serveWorld: (in category 'as yet unclassified') -----
serveWorld: aWorld
"Check to make sure things won't crash. See Mantis #0000519"
+ aWorld allMorphsDo:[:m|
+ m isSafeToServe ifFalse:[
+ ^self inform: 'Can not share world if a ', m class, ' is present. Close the mprph and try again']].
+ ^self serveWorld: aWorld onPort: NebraskaServer defaultPort!
- aWorld isSafeToServe ifTrue:[
- ^self serveWorld: aWorld onPort: NebraskaServer defaultPort]
- !
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!
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!
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!
Andreas Raab uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-ar.220.mcz
==================== Summary ====================
Name: Morphic-ar.220
Author: ar
Time: 31 October 2009, 1:07:39 am
UUID: 0e2ac93f-debe-6d40-922f-67364e663932
Ancestors: Morphic-dtl.219
Undeclared cleanup. Declare DefaultFill in MorphicProject and promote isSafeToServe into Morph to remove FlashMorph reference (requires companion change in Nebraska).
=============== Diff against Morphic-dtl.219 ===============
Item was changed:
Project subclass: #MorphicProject
instanceVariableNames: ''
+ classVariableNames: 'DefaultFill'
- classVariableNames: ''
poolDictionaries: ''
category: 'Morphic-Support'!
!MorphicProject commentStamp: 'ar 9/18/2009 21:38' prior: 0!
Holds Morphic Projects. Very much in transition.!
Item was added:
+ ----- Method: Morph>>isSafeToServe (in category 'testing') -----
+ isSafeToServe
+ "Return true if it is safe to serve this Morph using Nebraska."
+ ^true!
Item was removed:
- ----- Method: PasteUpMorph>>isSafeToServe (in category 'Nebraska') -----
- isSafeToServe
- "True if all conditions are met to share safely.
- (attends to mantis bug #0000519).
- Right now we reject worlds with FlashMorphs for subMorphs."
-
- (self findA: FlashMorph) ifNil: [^true].
- self inform: 'Can not share world if Squeaklogo is present. Collapse logo and try again'.
- ^false!
Andreas Raab uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-ar.220.mcz
==================== Summary ====================
Name: Morphic-ar.220
Author: ar
Time: 31 October 2009, 1:07:39 am
UUID: 0e2ac93f-debe-6d40-922f-67364e663932
Ancestors: Morphic-dtl.219
Undeclared cleanup. Declare DefaultFill in MorphicProject and promote isSafeToServe into Morph to remove FlashMorph reference (requires companion change in Nebraska).
=============== Diff against Morphic-dtl.219 ===============
Item was changed:
Project subclass: #MorphicProject
instanceVariableNames: ''
+ classVariableNames: 'DefaultFill'
- classVariableNames: ''
poolDictionaries: ''
category: 'Morphic-Support'!
!MorphicProject commentStamp: 'ar 9/18/2009 21:38' prior: 0!
Holds Morphic Projects. Very much in transition.!
Item was added:
+ ----- Method: Morph>>isSafeToServe (in category 'testing') -----
+ isSafeToServe
+ "Return true if it is safe to serve this Morph using Nebraska."
+ ^true!
Item was removed:
- ----- Method: PasteUpMorph>>isSafeToServe (in category 'Nebraska') -----
- isSafeToServe
- "True if all conditions are met to share safely.
- (attends to mantis bug #0000519).
- Right now we reject worlds with FlashMorphs for subMorphs."
-
- (self findA: FlashMorph) ifNil: [^true].
- self inform: 'Can not share world if Squeaklogo is present. Collapse logo and try again'.
- ^false!
Andreas Raab uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-ar.220.mcz
==================== Summary ====================
Name: Morphic-ar.220
Author: ar
Time: 31 October 2009, 1:07:39 am
UUID: 0e2ac93f-debe-6d40-922f-67364e663932
Ancestors: Morphic-dtl.219
Undeclared cleanup. Declare DefaultFill in MorphicProject and promote isSafeToServe into Morph to remove FlashMorph reference (requires companion change in Nebraska).
=============== Diff against Morphic-dtl.219 ===============
Item was changed:
Project subclass: #MorphicProject
instanceVariableNames: ''
+ classVariableNames: 'DefaultFill'
- classVariableNames: ''
poolDictionaries: ''
category: 'Morphic-Support'!
!MorphicProject commentStamp: 'ar 9/18/2009 21:38' prior: 0!
Holds Morphic Projects. Very much in transition.!
Item was added:
+ ----- Method: Morph>>isSafeToServe (in category 'testing') -----
+ isSafeToServe
+ "Return true if it is safe to serve this Morph using Nebraska."
+ ^true!
Item was removed:
- ----- Method: PasteUpMorph>>isSafeToServe (in category 'Nebraska') -----
- isSafeToServe
- "True if all conditions are met to share safely.
- (attends to mantis bug #0000519).
- Right now we reject worlds with FlashMorphs for subMorphs."
-
- (self findA: FlashMorph) ifNil: [^true].
- self inform: 'Can not share world if Squeaklogo is present. Collapse logo and try again'.
- ^false!
David T. Lewis uploaded a new version of ST80 to project The Trunk:
http://source.squeak.org/trunk/ST80-dtl.61.mcz
==================== Summary ====================
Name: ST80-dtl.61
Author: dtl
Time: 31 October 2009, 4:06:56 am
UUID: 9b865334-94c9-49ca-80cb-48ece4c9b55c
Ancestors: ST80-ar.60
Add #defaultBackgroundColor (moved from Project to MVCProject)
=============== Diff against ST80-ar.60 ===============
Item was added:
+ ----- Method: MVCProject>>defaultBackgroundColor (in category 'initialize') -----
+ defaultBackgroundColor
+ ^ Color r: 1.0 g: 1.0 b: 0.065!
David T. Lewis uploaded a new version of ST80 to project The Trunk:
http://source.squeak.org/trunk/ST80-dtl.61.mcz
==================== Summary ====================
Name: ST80-dtl.61
Author: dtl
Time: 31 October 2009, 4:06:56 am
UUID: 9b865334-94c9-49ca-80cb-48ece4c9b55c
Ancestors: ST80-ar.60
Add #defaultBackgroundColor (moved from Project to MVCProject)
=============== Diff against ST80-ar.60 ===============
Item was added:
+ ----- Method: MVCProject>>defaultBackgroundColor (in category 'initialize') -----
+ defaultBackgroundColor
+ ^ Color r: 1.0 g: 1.0 b: 0.065!