The Trunk: System-mt.797.mcz

Marcel Taeumel uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-mt.797.mcz

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

Name: System-mt.797
Author: mt
Time: 17 February 2016, 3:26:49.027669 pm
UUID: 85cb8b7e-2eb8-4c62-9263-a44e247594c1
Ancestors: System-mt.796

(Re-)moves some indications of Morphic from generic Project.

=============== Diff against System-mt.796 ===============

Item was removed:
- ----- Method: Project class>>allMorphicProjects (in category 'utilities') -----
- allMorphicProjects
-
- ^ self allProjects select: [:p | p world isMorph]!

Item was changed:
  ----- Method: Project class>>ofWorld: (in category 'utilities') -----
+ ofWorld: anObject
- ofWorld: aPasteUpMorph
  "Find the project of a world."
 
  "Usually it is the current project"
+ CurrentProject world == anObject ifTrue: [^ CurrentProject].
- CurrentProject world == aPasteUpMorph ifTrue: [^ CurrentProject].
 
  "Inefficient enumeration if it is not..."
  ^ self allProjects detect: [:pr |
  pr world isInMemory
+ ifTrue: [pr world == anObject]
- ifTrue: [pr world == aPasteUpMorph]
  ifFalse: [false]]
  ifNone: [nil]!