send Smalltalk>>changed: notifications for class
definition changes. Allows browsers to make themself
dependent on Smalltalk to get informaed about all
class changes (instead of making themself dependent on
every single class).
--- a/Metaclass.st Fri Feb 18 19:01:04 2000 +0100
+++ b/Metaclass.st Sat Feb 19 12:04:29 2000 +0100
@@ -1167,6 +1167,11 @@
].
oldClass changed:#definition.
+ namespace changed:#classDefinition with:oldClass.
+ namespace ~~ Smalltalk ifTrue:[
+ Smalltalk changed:#classDefinition with:oldClass.
+ ].
+
^ oldClass
]
]
@@ -1480,13 +1485,18 @@
(systemBrowsers will react on this, and update their views)"
oldClass changed:#definition with:newClass.
+ namespace changed:#classDefinition with:newClass.
+ namespace ~~ Smalltalk ifTrue:[
+ Smalltalk changed:#classDefinition with:newClass.
+ ].
+
ObjectMemory flushCaches.
^ newClass
"Created: / 26.5.1996 / 11:55:26 / cg"
- "Modified: / 20.6.1998 / 18:08:25 / cg"
"Modified: / 18.3.1999 / 18:23:31 / stefan"
+ "Modified: / 13.2.2000 / 22:59:57 / cg"
!
name:newName inEnvironment:aSystemDictionary
@@ -2090,6 +2100,6 @@
!Metaclass class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.161 2000-01-31 15:06:57 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.162 2000-02-19 11:04:29 cg Exp $'
! !
Metaclass initialize!