--- a/Tools__NewSystemBrowser.st	Wed Apr 03 19:13:48 2013 +0200
+++ b/Tools__NewSystemBrowser.st	Wed Apr 03 20:39:23 2013 +0200
@@ -37568,23 +37568,29 @@
 !
 
 generateProjectDefinitionsIn:classes
+    "update all definitions (contents + version stuff)"
+
     self
         generateUndoableChange:'Generate Project Definitions'
         overClasses:classes
         via:[:generator :eachClass |
-            Class packageQuerySignal
-                answer:eachClass package
-                do:[
-                    eachClass theNonMetaclass
-                        forEachMethodsCodeToCompileDo:
-                            [:code :category |
-                                generator
-                                    compile:code
-                                    forClass:eachClass theMetaclass
-                                    inCategory:category.
-                            ]
-                        ignoreOldDefinition:false
-                ].
+            eachClass
+                updateMethodsCodeUsingCompiler:generator 
+                ignoreOldDefinition:false
+
+"/            Class packageQuerySignal
+"/                answer:eachClass package
+"/                do:[
+"/                    eachClass theNonMetaclass
+"/                        forEachMethodsCodeToCompileDo:
+"/                            [:code :category |
+"/                                generator
+"/                                    compile:code
+"/                                    forClass:eachClass theMetaclass
+"/                                    inCategory:category.
+"/                            ]
+"/                        ignoreOldDefinition:false
+"/                ].
         ].
 
     "Created: / 10-08-2006 / 16:33:07 / cg"
@@ -40766,19 +40772,23 @@
         generateUndoableChange:(doRegenerate ifTrue:'Generate Project Definitions' ifFalse:'Update Project Definitions')
         overClasses:classes
         via:[:generator :eachClass |
-            Class packageQuerySignal
-                answer:eachClass package
-                do:[
-                    eachClass theNonMetaclass
-                        forEachContentsMethodsCodeToCompileDo:
-                            [:code :category |
-                                generator
-                                    compile:code
-                                    forClass:eachClass theMetaclass
-                                    inCategory:category.
-                            ]
-                        ignoreOldDefinition:doRegenerate
-                ].
+            eachClass
+                updateContentsMethodsCodeUsingCompiler:generator 
+                ignoreOldDefinition:doRegenerate.
+
+"/            Class packageQuerySignal
+"/                answer:eachClass package
+"/                do:[
+"/                    eachClass theNonMetaclass
+"/                        forEachContentsMethodsCodeToCompileDo:
+"/                            [:code :category |
+"/                                generator
+"/                                    compile:code
+"/                                    forClass:eachClass theMetaclass
+"/                                    inCategory:category.
+"/                            ]
+"/                        ignoreOldDefinition:doRegenerate
+"/                ].
         ].
 
     "Created: / 10-10-2006 / 21:05:14 / cg"
@@ -58298,11 +58308,11 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1861 2013-04-03 15:43:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1862 2013-04-03 18:39:23 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1861 2013-04-03 15:43:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1862 2013-04-03 18:39:23 cg Exp $'
 !
 
 version_SVN