Mercurial Mercurial > hg > stx-libtool / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
+classMenuRecompileAll
authorClaus Gittinger <cg@exept.de>
Thu, 03 Apr 2008 11:12:51 +0200
changeset 8043 64a97b6a4285
parent 8042 5a4655a03124
child 8044 1b889062670d
+classMenuRecompileAll
NewSystemBrowser.st file | annotate | diff | comparison | revisions
Tools__NewSystemBrowser.st file | annotate | diff | comparison | revisions 
--- a/NewSystemBrowser.st	Wed Apr 02 17:45:08 2008 +0200
+++ b/NewSystemBrowser.st	Thu Apr 03 11:12:51 2008 +0200
@@ -5034,12 +5034,19 @@
           )
          (MenuItem
             enabled: hasClassSelectedHolder
-            label: 'Recompile all Methods'
+            label: 'Recompile all Methods in Class'
             itemValue: classMenuRecompile
             translateLabel: true
             showBusyCursorWhilePerforming: true
           )
          (MenuItem
+            enabled: hasClassSelectedHolder
+            label: 'Recompile all Methods in Class and Subclasses'
+            itemValue: classMenuRecompileAll
+            translateLabel: true
+            showBusyCursorWhilePerforming: true
+          )
+         (MenuItem
             label: '-'
           )
          (MenuItem
@@ -19707,6 +19714,17 @@
     ].
 !
 
+classMenuRecompileAll
+    "recompile selected classes and all subclasses (kludge - for me)"
+
+    self selectedClassesDo:[:eachTopClass |
+        eachTopClass withAllSubclassesDo:[:eachClass |
+            eachClass theNonMetaclass recompile.
+            eachClass theMetaclass recompile.
+        ]
+    ].
+!
+
 classMenuRecompileInstrumented
     self selectedClassesDo:[:eachClass |
         eachClass theNonMetaclass recompileUsingCompilerClass:InstrumentingCompiler.
@@ -41431,7 +41449,7 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1195 2008-04-02 12:59:38 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1196 2008-04-03 09:12:51 cg Exp $'
 ! !
 
 NewSystemBrowser initialize!
--- a/Tools__NewSystemBrowser.st	Wed Apr 02 17:45:08 2008 +0200
+++ b/Tools__NewSystemBrowser.st	Thu Apr 03 11:12:51 2008 +0200
@@ -5034,12 +5034,19 @@
           )
          (MenuItem
             enabled: hasClassSelectedHolder
-            label: 'Recompile all Methods'
+            label: 'Recompile all Methods in Class'
             itemValue: classMenuRecompile
             translateLabel: true
             showBusyCursorWhilePerforming: true
           )
          (MenuItem
+            enabled: hasClassSelectedHolder
+            label: 'Recompile all Methods in Class and Subclasses'
+            itemValue: classMenuRecompileAll
+            translateLabel: true
+            showBusyCursorWhilePerforming: true
+          )
+         (MenuItem
             label: '-'
           )
          (MenuItem
@@ -19707,6 +19714,17 @@
     ].
 !
 
+classMenuRecompileAll
+    "recompile selected classes and all subclasses (kludge - for me)"
+
+    self selectedClassesDo:[:eachTopClass |
+        eachTopClass withAllSubclassesDo:[:eachClass |
+            eachClass theNonMetaclass recompile.
+            eachClass theMetaclass recompile.
+        ]
+    ].
+!
+
 classMenuRecompileInstrumented
     self selectedClassesDo:[:eachClass |
         eachClass theNonMetaclass recompileUsingCompilerClass:InstrumentingCompiler.
@@ -41431,7 +41449,7 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1195 2008-04-02 12:59:38 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1196 2008-04-03 09:12:51 cg Exp $'
 ! !
 
 NewSystemBrowser initialize!
hg/stx-libtool