VersionDiffBrowser.st
changeset 2853 856dc62f02d7
parent 2849 08085872d08f
child 2856 754d84dec893
--- a/VersionDiffBrowser.st	Thu Nov 16 18:35:09 2000 +0100
+++ b/VersionDiffBrowser.st	Thu Nov 16 18:57:13 2000 +0100
@@ -537,8 +537,13 @@
     theBrowser allButOpen.
     theBrowser setupForClass:aClass labelA:aLabelA sourceA:aSourceA labelB:aLabelB sourceB:aSourceB.
     sameAction notNil ifTrue:[
-self halt.
-        theBrowser classChangeSet
+        "/ check if same ...
+        (theBrowser classChangeSet methodsOnlyInA isEmpty
+        and:[theBrowser classChangeSet methodsOnlyInB isEmpty
+        and:[theBrowser classChangeSet diffSet isEmpty]]) ifTrue:[
+            sameAction value.
+            ^ self "/ do not open
+        ]
     ].
     theBrowser openWindow.
     ^ theBrowser.
@@ -1735,5 +1740,5 @@
 !VersionDiffBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/VersionDiffBrowser.st,v 1.36 2000-11-15 18:32:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/VersionDiffBrowser.st,v 1.37 2000-11-16 17:57:13 cg Exp $'
 ! !