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