--- a/Tools_ClassList.st Mon Feb 13 14:46:07 2012 +0100
+++ b/Tools_ClassList.st Mon Feb 13 14:46:28 2012 +0100
@@ -1125,6 +1125,22 @@
"Created: / 07-08-2011 / 18:51:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
+!ClassList methodsFor:'initialize-release'!
+
+release
+ super release.
+
+ currentNamespace removeDependent:self.
+ sortByNameAndInheritance removeDependent:self.
+ hidePrivateClasses removeDependent:self.
+ markApplicationsHolder removeDependent:self.
+ meta removeDependent:self.
+ selectedClassNameIndices removeDependent:self.
+ showClassPackages removeDependent:self.
+
+ "Created: / 05-02-2000 / 13:42:18 / cg"
+! !
+
!ClassList methodsFor:'private'!
listOfClasses
@@ -1611,20 +1627,6 @@
"Modified: / 31.10.2001 / 11:33:21 / cg"
!
-release
- super release.
-
- currentNamespace removeDependent:self.
- sortByNameAndInheritance removeDependent:self.
- hidePrivateClasses removeDependent:self.
- markApplicationsHolder removeDependent:self.
- meta removeDependent:self.
- selectedClassNameIndices removeDependent:self.
- showClassPackages removeDependent:self.
-
- "Created: / 05-02-2000 / 13:42:18 / cg"
-!
-
updateClassesIn:aCollection
"replace any obsolete class in aCollection;
return true, if any was found"
@@ -1999,5 +2001,5 @@
!ClassList class methodsFor:'documentation'!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.56 2011-08-07 18:40:45 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.57 2012-02-13 13:46:28 cg Exp $'
! !