--- a/FileBrowser.st	Sun Jun 29 14:59:59 2003 +0200
+++ b/FileBrowser.st	Sun Jun 29 15:00:32 2003 +0200
@@ -3651,7 +3651,7 @@
 openDiffView
     "open a diff-view"
 
-    |sel box orgName1 name1 name2 text1 text2 f d err nm here l1|
+    |sel box ok orgName1 name1 name2 text1 text2 f d err nm here l1|
 
     sel := fileListView selection.
     (sel size == 2) ifTrue:[
@@ -3684,9 +3684,11 @@
 
     box addAbortAndOkButtons.
 
-    box showAtPointer.
-
-    box accepted ifTrue:[
+    box show.
+    ok := box accepted.
+    box destroy.
+
+    ok ifTrue:[
         name1 := name1 value.
         (name1 isNil or:[name1 isEmpty]) ifTrue:[
 "/            text1 := subView contents.
@@ -7829,5 +7831,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.537 2003-06-29 12:59:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.538 2003-06-29 13:00:32 cg Exp $'
 ! !