--- 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 $'
! !