Tools_ClassList.st
changeset 11259 088e5db972c6
parent 10529 bf7dcbf92471
child 11556 ca2117cbf0b5
--- 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 $'
 ! !