# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1580506556 -3600
# Node ID 20a999ca824605ecaae8db8fb43aa6aa969a23b0
# Parent  cc4d71e73e5d5e50daf68f461f00c4add9fbdd92
#BUGFIX by cg
class: FileVersionDiffBrowser
added: #setupForFile:versionA:versionB:
changed:
	#versionMenuCompareAgainstNextVersion
	#versionMenuCompareAgainstPreviousVersion

diff -r cc4d71e73e5d -r 20a999ca8246 FileVersionDiffBrowser.st
--- a/FileVersionDiffBrowser.st	Fri Jan 31 04:27:39 2020 +0000
+++ b/FileVersionDiffBrowser.st	Fri Jan 31 22:35:56 2020 +0100
@@ -1485,8 +1485,9 @@
     nextVersion := self versionList at:(self selectedVersionIndex - 1).
     fn := fileHolder value.
     
-    self class 
-        openOnFile:fn versionA:selectedVersion versionB:nextVersion
+    self withWaitCursorDo:[
+        self class openOnFile:fn versionA:selectedVersion versionB:nextVersion
+    ]
 
     "Modified: / 08-07-2019 / 00:09:54 / Claus Gittinger"
 !
@@ -1501,8 +1502,9 @@
     prevVersion := self versionList at:(self selectedVersionIndex + 1).
     fn := fileHolder value.
     
-    self class 
-        openOnFile:fn versionA:prevVersion versionB:selectedVersion
+    self withWaitCursorDo:[
+        self class openOnFile:fn versionA:prevVersion versionB:selectedVersion
+    ].
 
     "Modified: / 08-07-2019 / 00:10:12 / Claus Gittinger"
 ! !
@@ -1648,6 +1650,22 @@
 
     "Created: / 07-07-2019 / 19:59:03 / Claus Gittinger"
     "Modified: / 08-07-2019 / 01:14:36 / Claus Gittinger"
+!
+
+setupForFile:aFilename versionA:aVersionA versionB:aVersionB
+    "compute the diffs for two versions of a file.
+     When setting the diffs, the labels, list etc. of the receiver are updated."
+
+    |text1 text2|
+
+    text1 := self getFile:aFilename version:aVersionA.
+    text2 := self getFile:aFilename version:aVersionB.
+
+    self diffTextView text1:text1 text2:text2.        
+    self diffTextLabelA value:aVersionA.
+    self diffTextLabelB value:aVersionB.
+
+    self addAcceptToTextViewMenus.
 ! !
 
 !FileVersionDiffBrowser class methodsFor:'documentation'!