The Trunk: Morphic-dtl.609.mcz

> David T. Lewis uploaded a new version of Morphic to project The Trunk:
> http://source.squeak.org/trunk/Morphic-dtl.609.mcz
>
> ==================== 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') -----
>  dismissMorph
> +       "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!
>
>

>
>
>
> On Sat, Feb 11, 2012 at 11:07 AM,  <[hidden email]> wrote:
> > David T. Lewis uploaded a new version of Morphic to project The Trunk:
> > http://source.squeak.org/trunk/Morphic-dtl.609.mcz
> >
> > ==================== 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') -----
> > ??dismissMorph
> > + ?? ?? ?? "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!
> >
> >