The Inbox: Environments-cwp.5.mcz

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

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

It should. It looks like it raises an error though?

On Sun, Aug 5, 2012 at 4:34 AM, Bert Freudenberg <[hidden email]> wrote:

It should. It looks like it raises an error though?

Only if you try to uninstall when it's not installed. That shouldn't be the case when updating normally. It should only get triggered if you send #uninstall some other way. 

Colin