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.
offer chance to condense when comparing a method
authorClaus Gittinger <cg@exept.de>
Tue, 26 Sep 2006 17:23:53 +0200
changeset 7345 b8202ccfecad
parent 7344 32cf2f43544e
child 7346 a5129e941e23
offer chance to condense when comparing a method
NewSystemBrowser.st file | annotate | diff | comparison | revisions
Tools__NewSystemBrowser.st file | annotate | diff | comparison | revisions 
--- a/NewSystemBrowser.st	Mon Sep 25 21:31:55 2006 +0200
+++ b/NewSystemBrowser.st	Tue Sep 26 17:23:53 2006 +0200
@@ -27367,7 +27367,20 @@
              and:[allDiffs onlyInArg isEmptyOrNil]]
        ]
     ) ifTrue:[
-        self information:'Versions are identical.'.
+        (methods 
+            contains:[:m |
+                ChangeSet current includesChangeForClass:m mclass selector:m selector
+            ]
+        ) ifTrue:[
+            (self confirm:'Versions are identical.\\Remove entries from changeSet ?' withCRs)
+            ifTrue:[
+                methods do:[:m |
+                    ChangeSet current condenseChangesForClass:m mclass selector:m selector.
+                ].
+            ].
+        ] ifFalse:[
+            self information:'Versions are identical.'.
+        ].
         ^ self.
     ].
 
@@ -27378,8 +27391,8 @@
         title:'Diffs'.
     self normalLabel.
 
-    "Created: / 4.1.1997 / 15:48:20 / cg"
-    "Modified: / 28.4.1998 / 17:40:02 / cg"
+    "Created: / 04-01-1997 / 15:48:20 / cg"
+    "Modified: / 26-09-2006 / 17:23:26 / cg"
 !
 
 doMoveSelectedMethodsToProject:newProject
@@ -39137,7 +39150,7 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1062 2006-09-25 19:31:55 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1063 2006-09-26 15:23:53 cg Exp $'
 ! !
 
 NewSystemBrowser initialize!
--- a/Tools__NewSystemBrowser.st	Mon Sep 25 21:31:55 2006 +0200
+++ b/Tools__NewSystemBrowser.st	Tue Sep 26 17:23:53 2006 +0200
@@ -27367,7 +27367,20 @@
              and:[allDiffs onlyInArg isEmptyOrNil]]
        ]
     ) ifTrue:[
-        self information:'Versions are identical.'.
+        (methods 
+            contains:[:m |
+                ChangeSet current includesChangeForClass:m mclass selector:m selector
+            ]
+        ) ifTrue:[
+            (self confirm:'Versions are identical.\\Remove entries from changeSet ?' withCRs)
+            ifTrue:[
+                methods do:[:m |
+                    ChangeSet current condenseChangesForClass:m mclass selector:m selector.
+                ].
+            ].
+        ] ifFalse:[
+            self information:'Versions are identical.'.
+        ].
         ^ self.
     ].
 
@@ -27378,8 +27391,8 @@
         title:'Diffs'.
     self normalLabel.
 
-    "Created: / 4.1.1997 / 15:48:20 / cg"
-    "Modified: / 28.4.1998 / 17:40:02 / cg"
+    "Created: / 04-01-1997 / 15:48:20 / cg"
+    "Modified: / 26-09-2006 / 17:23:26 / cg"
 !
 
 doMoveSelectedMethodsToProject:newProject
@@ -39137,7 +39150,7 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1062 2006-09-25 19:31:55 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1063 2006-09-26 15:23:53 cg Exp $'
 ! !
 
 NewSystemBrowser initialize!
hg/stx-libtool