class: Tools::ProjectBuilderAssistantApplication
authorClaus Gittinger <cg@exept.de>
Wed, 03 Apr 2013 20:39:38 +0200
changeset 2993 23f43abca7d0
parent 2992 a970017936e7
child 2994 1606aca78699
class: Tools::ProjectBuilderAssistantApplication changed: #generatePackageContentsMethods refactored common code
Tools__ProjectBuilderAssistantApplication.st
--- a/Tools__ProjectBuilderAssistantApplication.st	Tue Apr 02 12:06:26 2013 +0200
+++ b/Tools__ProjectBuilderAssistantApplication.st	Wed Apr 03 20:39:38 2013 +0200
@@ -2638,17 +2638,21 @@
 generatePackageContentsMethods
     <resource: #uiCallback>
 
-    Class packageQuerySignal answer:(selectedProjectDefinition package)
-    do:[
-        selectedProjectDefinition 
-            forEachContentsMethodsCodeToCompileDo:[:code :category |
-                    SmalltalkCodeGeneratorTool
-                        compile:code
-                        forClass:selectedProjectDefinition theMetaclass
-                        inCategory:category.
-                ]
-            ignoreOldDefinition:true
-    ].
+    selectedProjectDefinition
+        updateContentsMethodsCodeUsingCompiler:SmalltalkCodeGeneratorTool 
+        ignoreOldDefinition:true.
+
+"/    Class packageQuerySignal answer:(selectedProjectDefinition package)
+"/    do:[
+"/        selectedProjectDefinition 
+"/            forEachContentsMethodsCodeToCompileDo:[:code :category |
+"/                    SmalltalkCodeGeneratorTool
+"/                        compile:code
+"/                        forClass:selectedProjectDefinition theMetaclass
+"/                        inCategory:category.
+"/                ]
+"/            ignoreOldDefinition:true
+"/    ].
     self updateListOfClassesInProject
 
     "Modified: / 31-01-2011 / 18:29:44 / cg"