[squeak-dev] The Trunk: System-mt.797.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Feb 17 14:28:02 UTC 2016


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



More information about the Squeak-dev mailing list