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.
option to cleanup the changeSet when removing class(es)
authorClaus Gittinger <cg@exept.de>
Mon, 04 Sep 2006 11:21:37 +0200
changeset 7081 c91448ee61b9
parent 7080 26d4f0a51124
child 7082 415feea09288
option to cleanup the changeSet when removing class(es)
NewSystemBrowser.st file | annotate | diff | comparison | revisions
Tools__NewSystemBrowser.st file | annotate | diff | comparison | revisions 
--- a/NewSystemBrowser.st	Mon Sep 04 10:34:57 2006 +0200
+++ b/NewSystemBrowser.st	Mon Sep 04 11:21:37 2006 +0200
@@ -19074,10 +19074,19 @@
         ].
 
     classesToRemove notEmpty ifTrue:[
-        self removeClasses:classesToRemove pullUpSubclasses:pullUpSubclasses
-    ]
-
-    "Modified: / 24.2.2000 / 09:31:23 / cg"
+        self removeClasses:classesToRemove pullUpSubclasses:pullUpSubclasses.
+        (Dialog 
+              confirm:(resources 
+                        stringWithCRs:'Cleanup the ChangeSet ?\\i.e. remove entries for removed class(es)')
+              yesLabel:(resources string:'Cleanup'))
+        ifTrue:[
+            classesToRemove do:[:eachClass |
+                ChangeSet current condenseChangesForClass:eachClass
+            ].
+        ].
+    ]
+
+    "Modified: / 04-09-2006 / 11:22:02 / cg"
 !
 
 classMenuRename
@@ -38881,7 +38890,7 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1023 2006-08-30 18:52:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1024 2006-09-04 09:21:37 cg Exp $'
 ! !
 
 NewSystemBrowser initialize!
--- a/Tools__NewSystemBrowser.st	Mon Sep 04 10:34:57 2006 +0200
+++ b/Tools__NewSystemBrowser.st	Mon Sep 04 11:21:37 2006 +0200
@@ -19074,10 +19074,19 @@
         ].
 
     classesToRemove notEmpty ifTrue:[
-        self removeClasses:classesToRemove pullUpSubclasses:pullUpSubclasses
-    ]
-
-    "Modified: / 24.2.2000 / 09:31:23 / cg"
+        self removeClasses:classesToRemove pullUpSubclasses:pullUpSubclasses.
+        (Dialog 
+              confirm:(resources 
+                        stringWithCRs:'Cleanup the ChangeSet ?\\i.e. remove entries for removed class(es)')
+              yesLabel:(resources string:'Cleanup'))
+        ifTrue:[
+            classesToRemove do:[:eachClass |
+                ChangeSet current condenseChangesForClass:eachClass
+            ].
+        ].
+    ]
+
+    "Modified: / 04-09-2006 / 11:22:02 / cg"
 !
 
 classMenuRename
@@ -38881,7 +38890,7 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1023 2006-08-30 18:52:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1024 2006-09-04 09:21:37 cg Exp $'
 ! !
 
 NewSystemBrowser initialize!
hg/stx-libtool