--- a/Class.st Sat Oct 26 18:34:05 1996 +0200
+++ b/Class.st Sun Oct 27 12:37:00 1996 +0100
@@ -762,14 +762,6 @@
"Modified: 14.10.1996 / 17:23:36 / cg"
!
-privateClassesDo:aBlock
- "evaluate aBlock on all of my private classes (if any)"
-
- self privateClasses do:aBlock
-
- "Created: 26.10.1996 / 12:28:57 / cg"
-!
-
removeClassVarName:aString
"remove a class variable if not already there.
Also writes a change record and notifies dependents.
@@ -1829,6 +1821,20 @@
"Modified: 12.6.1996 / 11:52:35 / stefan"
! !
+!Class methodsFor:'enumerating'!
+
+privateClassesDo:aBlock
+ "evaluate aBlock on all of my private classes (if any)"
+
+ |classes|
+
+ (classes := self privateClasses) notNil ifTrue:[
+ classes do:aBlock
+ ].
+
+ "Created: 26.10.1996 / 12:28:57 / cg"
+! !
+
!Class methodsFor:'fileIn interface'!
ignoredMethodsFor:aCategory
@@ -4119,6 +4125,6 @@
!Class class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.197 1996-10-26 13:22:19 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.198 1996-10-27 11:37:00 cg Exp $'
! !
Class initialize!