--- a/LibraryDefinition.st	Thu Aug 10 13:46:09 2006 +0200
+++ b/LibraryDefinition.st	Thu Aug 10 16:40:24 2006 +0200
@@ -1041,8 +1041,11 @@
 !ProjectDefinition class methodsFor:'public update description'!
 
 compileDescriptionMethods
-    self compileClassNames.
-    self compileExtensionMethodNames.
+    self forEachMethodsCodeToCompileDo:[:code :category |
+        self theMetaclass 
+            compile: code
+            classified: category.
+    ].
 
 "
     DapasXProject compileDescriptionMethods
@@ -1051,6 +1054,7 @@
 "
 
     "Created: / 09-08-2006 / 18:00:31 / fm"
+    "Modified: / 10-08-2006 / 16:37:57 / cg"
 ! !
 
 !ProjectDefinition class methodsFor:'sanity checks'!
@@ -1083,6 +1087,14 @@
     "Created: / 09-08-2006 / 16:31:54 / fm"
 ! !
 
+!ProjectDefinition class methodsFor:'testing'!
+
+isProjectDefinition
+    ^ self ~~ ProjectDefinition
+
+    "Created: / 10-08-2006 / 16:24:02 / cg"
+! !
+
 !ProjectDefinition class methodsFor:'update description'!
 
 autoloadedClassNamesGeneratedCodeToCompile
@@ -1165,69 +1177,6 @@
     "Modified: / 08-08-2006 / 19:24:34 / fm"
 !
 
-compileClassNames                                                               
-   self theMetaclass 
-        compile: self autoloadedClassNamesGeneratedCodeToCompile
-        classified: 'project description'.
-
-   self theMetaclass 
-        compile: self classNamesGeneratedCodeToCompile
-        classified: 'project description'.
-
-   (self theMetaclass includesSelector:#excluded_classNames) ifFalse:[
-       self theMetaclass 
-            compile: 'excluded_classNames\^ #()' withCRs
-            classified: 'project description'.
-   ].
-
-"
-    bosch_dapasx_interactiver_editor_Definition compileClassNames
-
-    DapasXProject compileClassNames
-    DapasX_Datenbasis compileClassNames
-
-    DapasXProject classNamesGeneratedCodeToCompile
-    DapasX_Datenbasis classNamesGeneratedCodeToCompile
-
-"
-
-    "Modified: / 08-08-2006 / 15:58:21 / fm"
-!
-
-compileDescription                                                              
-
-   self theMetaclass compile: 'description ^''bla bla'''
-                     classified: 'project description'
-
-"
-    DapasXProject compileClassNames
-    DapasX_Datenbasis compileClassNames
-
-    DapasXProject classNamesGeneratedCodeToCompile
-    DapasX_Datenbasis classNamesGeneratedCodeToCompile
-
-"
-
-    "Created: / 09-08-2006 / 18:31:48 / fm"
-!
-
-compileExtensionMethodNames                                                               
-
-   self theMetaclass compile: self extensionMethodNamesGeneratedCodeToCompile
-                     classified: 'project description'
-
-"
-    DapasXProject compileExtensionMethodNames
-    DapasX_Datenbasis compileExtensionMethodNames
-
-    DapasXProject extensionMethodNamesGeneratedCodeToCompile
-    DapasX_Datenbasis extensionMethodNamesGeneratedCodeToCompile
-
-"
-
-    "Created: / 08-08-2006 / 18:53:27 / fm"
-!
-
 extensionMethodNamesGeneratedCodeToCompile
     |extensionMethodNamesCode|
 
@@ -1260,6 +1209,32 @@
     "Created: / 08-08-2006 / 18:55:04 / fm"
 !
 
+forEachMethodsCodeToCompileDo:aTwoArgBlock
+    aTwoArgBlock 
+        value:self autoloadedClassNamesGeneratedCodeToCompile
+        value:'project description'.
+
+   aTwoArgBlock
+        value: self classNamesGeneratedCodeToCompile
+        value: 'project description'.
+
+   (self theMetaclass includesSelector:#excluded_classNames) ifFalse:[
+       aTwoArgBlock
+            value: 'excluded_classNames\^ #()' withCRs
+            value: 'project description'.
+   ].
+
+   aTwoArgBlock 
+        value: self extensionMethodNamesGeneratedCodeToCompile
+        value: 'project description'.
+
+"/   aTwoArgBlock 
+"/        value: 'description ^''bla bla'''
+"/        value: 'project description'
+
+    "Created: / 10-08-2006 / 16:35:47 / cg"
+!
+
 inconsistency:message
     Dialog warn:message
 
@@ -1394,5 +1369,5 @@
 !ProjectDefinition class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/LibraryDefinition.st,v 1.8 2006-08-10 11:46:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/LibraryDefinition.st,v 1.9 2006-08-10 14:40:24 cg Exp $'
 ! !