[Pkg] The Treated Inbox: Kernel-cmm.832.mcz
commits at source.squeak.org
commits at source.squeak.org
Wed Sep 7 22:20:57 UTC 2022
Chris Muller uploaded a new version of Kernel to project The Treated Inbox:
http://source.squeak.org/treated/Kernel-cmm.832.mcz
==================== Summary ====================
Name: Kernel-cmm.832
Author: cmm
Time: 8 January 2014, 2:30:21.885 pm
UUID: 80beeb99-09b1-4747-a785-d777e9b2fff7
Ancestors: Kernel-cmm.831
Rename #primRemoveFromSystem: to #basicRemoveFromSystem:.
=============== Diff against Kernel-fbs.829 ===============
Item was added:
+ ----- Method: Class>>basicRemoveFromSystem: (in category 'initialize-release') -----
+ basicRemoveFromSystem: logged
+ "Forget the receiver from the Smalltalk global dictionary. Any existing
+ instances will refer to an obsolete version of the receiver."
+
+ "keep the class name and category for triggering the system change message. If we wait to long, then we get obsolete information which is not what we want."
+
+ "tell class to deactivate and unload itself-- two separate events in the module system"
+ self deactivate; unload.
+ self superclass ifNotNil:
+ ["If we have no superclass there's nothing to be remembered"
+ self superclass addObsoleteSubclass: self].
+ self environment forgetClass: self logged: logged.
+ SystemChangeNotifier uniqueInstance noMoreNotificationsFor: self.
+ self obsolete.!
Item was changed:
----- Method: Class>>removeFromSystem: (in category 'initialize-release') -----
+ removeFromSystem: logged
- removeFromSystem: logged
"Forget the receiver from the Smalltalk global dictionary. Any existing
instances will refer to an obsolete version of the receiver."
-
"keep the class name and category for triggering the system change message. If we wait to long, then we get obsolete information which is not what we want."
-
"tell class to deactivate and unload itself-- two separate events in the module system"
+ subclasses ifNotNil:
+ [ subclasses copy do:
+ [ : each | each removeFromSystem: logged ] ].
+ self basicRemoveFromSystem: logged!
- self deactivate; unload.
- self superclass ifNotNil:
- ["If we have no superclass there's nothing to be remembered"
- self superclass addObsoleteSubclass: self].
- self environment forgetClass: self logged: logged.
- self obsolete.!
More information about the Packages
mailing list