?? Why do uninstall in the class initializer?  What am I missing?<br><br><div class="gmail_quote">On Fri, Aug 3, 2012 at 11:47 PM,  <span dir="ltr">&lt;<a href="mailto:commits@source.squeak.org" target="_blank">commits@source.squeak.org</a>&gt;</span> wrote:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">A new version of Environments was added to project The Inbox:<br>
<a href="http://source.squeak.org/inbox/Environments-cwp.5.mcz" target="_blank">http://source.squeak.org/inbox/Environments-cwp.5.mcz</a><br>
<br>
==================== Summary ====================<br>
<br>
Name: Environments-cwp.5<br>
Author: cwp<br>
Time: 3 August 2012, 11:47:34.492 pm<br>
UUID: 6eeb2f90-ea58-4ef1-9ca5-7e826ac1079c<br>
Ancestors: Environments-cmm.4<br>
<br>
Add an #uninstall method and call it from a class initializer.<br>
<br>
=============== Diff against Environments-cmm.4 ===============<br>
<br>
Item was changed:<br>
  ----- Method: Environment class&gt;&gt;initialize (in category &#39;as yet unclassified&#39;) -----<br>
  initialize<br>
+       self uninstall!<br>
-       self install!<br>
<br>
Item was added:<br>
+ ----- Method: Environment class&gt;&gt;uninstall (in category &#39;as yet unclassified&#39;) -----<br>
+ uninstall<br>
+       | globals sysdict |<br>
+       self environment class == self ifFalse: [self error: &#39;Not installed&#39;].<br>
+       globals := Smalltalk globals instVarNamed: &#39;contents&#39;.<br>
+       sysdict := SystemDictionary new: globals size.<br>
+       globals associationsDo: [:ea | sysdict add: ea].<br>
+       Smalltalk globals becomeForward: sysdict.!<br>
<br>
<br>
</blockquote></div><br><br clear="all"><div><br></div>-- <br>best,<div>Eliot</div><br>