[squeak-dev] The Inbox: Environments-cwp.5.mcz
Eliot Miranda
eliot.miranda at gmail.com
Sat Aug 4 22:49:38 UTC 2012
?? 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
More information about the Squeak-dev
mailing list
|