[Pkg] The Trunk: Morphic-dtl.609.mcz

commits at source.squeak.org commits at source.squeak.org
Sat Feb 11 17:08:48 UTC 2012

David T. Lewis uploaded a new version of Morphic to project The Trunk:

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

Name: Morphic-dtl.609
Author: dtl
Time: 11 February 2012, 12:07:02.836 pm
UUID: 7e071de6-1409-44f1-aedb-e3f18075810d
Ancestors: Morphic-cmm.608

Make Connectors removable (almost).

Morph>>connections and Morph>>wantsEmbeddingsVocabulary are provided by package Connectors. Remove the stub implementations from Morphic and update Morph>>wantsConnectionVocabulary and Morph>>filterViewerCategoryDictionary: in package Etoys with #respondsTo: checks to break the package dependencies.

Allow Morph>>dismissMorph override to be removed from Connectors by adding the functionality to package Morphic, guarded by #respondsTo:

Follow up needed in Connectors:
Remove Morph>>dismissMorph override
Remove PasteUpMorph>>tellAllContents: override
Remove ObjectPropertiesMorph>>rebuild override

=============== Diff against Morphic-cmm.608 ===============

Item was removed:
- ----- Method: Morph>>connections (in category 'accessing') -----
- connections
- 	"Empty method in absence of connectors"
- 	^ #()!

Item was changed:
  ----- Method: Morph>>dismissMorph (in category 'meta-actions') -----
+ 	"This is called from an explicit halo destroy/delete action.
+ 	So first disconnect all constraints to keep the graph up to date."
- 	"This is called from an explicit halo destroy/delete action."
+ 	(self respondsTo: #disconnectAllConstraints) "Connectors package"
+ 		ifTrue: [ self perform: #disconnectAllConstraints ].
+ 	(self respondsTo: #releaseGraphModels) "CGPrereqs package (Connectors)"
+ 		ifTrue: [ self perform: #releaseGraphModels ].
+ 	self releaseGraphModels.
+ 	self world ifNotNilDo: 
+ 			[:w |  w abandonAllHalos; stopStepping: self].
- 	| w |
- 	w := self world ifNil:[^self].
- 	w abandonAllHalos; stopStepping: self.
  	self delete!

Item was removed:
- ----- Method: Morph>>wantsEmbeddingsVocabulary (in category 'accessing') -----
- wantsEmbeddingsVocabulary
- 	"Empty method in absence of connectors"
- 	^ false!

More information about the Packages mailing list