ProjectDefinition.st
changeset 9904 88e186908460
parent 9901 6ea34c2d6a54
child 9906 9efd21c9b1b6
--- a/ProjectDefinition.st	Fri Sep 15 14:46:49 2006 +0200
+++ b/ProjectDefinition.st	Fri Sep 15 16:57:04 2006 +0200
@@ -2377,7 +2377,7 @@
 
     |methods|
 
-    methods := IdentitySet new.
+    methods := OrderedCollection new.
     Smalltalk allClassesDo:[:eachClass |
         |classPackage|
 
@@ -2390,6 +2390,8 @@
             ].
         ].
     ].
+    methods sort:[:m1 :m2 | m1 mclass name < m2 mclass name].
+    methods sort:[:m1 :m2 | m2 mclass theNonMetaclass isSubclassOf:m1 mclass theNonMetaclass].
     ^ methods
 
     "
@@ -2398,6 +2400,7 @@
     "
 
     "Created: / 17-08-2006 / 21:19:04 / cg"
+    "Modified: / 15-09-2006 / 16:56:57 / cg"
 !
 
 searchForProjectsWhichProvideHeaderFiles
@@ -2758,6 +2761,18 @@
     "Created: / 17-08-2006 / 21:21:48 / cg"
 !
 
+forEachContentsMethodsCodeToCompileDo:aTwoArgBlock ignoreOldDefinition:ignoreOldDefinition
+    aTwoArgBlock 
+        value:(self classNamesAndAttributes_code_ignoreOldDefinition:ignoreOldDefinition)
+        value:'description - contents'.
+
+    aTwoArgBlock 
+        value: self extensionMethodNames_code
+        value: 'description - contents'.
+
+    "Created: / 15-09-2006 / 16:47:54 / cg"
+!
+
 forEachMethodsCodeToCompileDo:aTwoArgBlock
     self forEachMethodsCodeToCompileDo:aTwoArgBlock ignoreOldDefinition:false
 !
@@ -2829,7 +2844,7 @@
 !ProjectDefinition class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.63 2006-09-14 21:00:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.64 2006-09-15 14:57:04 cg Exp $'
 ! !
 
 ProjectDefinition initialize!