[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