?? Why do uninstall in the class initializer?  What am I missing?

On Fri, Aug 3, 2012 at 11:47 PM, <commits at source.squeak.org> wrote:

> A new version of Environments was added to project The Inbox:
> http://source.squeak.org/inbox/Environments-cwp.5.mcz
>
> ==================== Summary ====================
>
> Name: Environments-cwp.5
> Author: cwp
> Time: 3 August 2012, 11:47:34.492 pm
> UUID: 6eeb2f90-ea58-4ef1-9ca5-7e826ac1079c
> Ancestors: Environments-cmm.4
>
> Add an #uninstall method and call it from a class initializer.
>
> =============== Diff against Environments-cmm.4 ===============
>
> Item was changed:
>   ----- Method: Environment class>>initialize (in category 'as yet
> unclassified') -----
>   initialize
> +       self uninstall!
> -       self install!
>
> Item was added:
> + ----- Method: Environment class>>uninstall (in category 'as yet
> unclassified') -----
> + uninstall
> +       | globals sysdict |
> +       self environment class == self ifFalse: [self error: 'Not
> installed'].
> +       globals := Smalltalk globals instVarNamed: 'contents'.
> +       sysdict := SystemDictionary new: globals size.
> +       globals associationsDo: [:ea | sysdict add: ea].
> +       Smalltalk globals becomeForward: sysdict.!
>
>
>


-- 
best,
Eliot
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20120804/fa847bb1/attachment.htm