--- a/FileBrowser.st	Tue Jun 12 14:19:54 2001 +0200
+++ b/FileBrowser.st	Tue Jun 12 14:50:47 2001 +0200
@@ -6414,7 +6414,7 @@
     "show/insert contents of fileName in subView"
 
     |path buffer s n i ok convert text msg eol guess action enc 
-     fontsEncoding pref failWarning f|
+     fontsEncoding pref failWarning f answer|
 
     fileName asFilename isAbsolute ifFalse:[
         path := currentDirectory filenameFor:fileName.
@@ -6456,8 +6456,10 @@
         viaDoubleClick ifTrue:[
             (self binaryFileAction:fileName) ifTrue:[^ self].
         ].
-        (self confirm:(resources string:'''%1'' seems to be a binary file (or unsupported format) - show anyway ?' with:fileName))
-        ifFalse:[^ self]
+        "/ answer := self confirmWithCancel:(resources string:'''%1'' seems to be a binary file (or unsupported format) - show anyway ?' with:fileName).
+        answer := self confirm:(resources string:'''%1'' seems to be a binary file (or unsupported format) - show anyway ?' with:fileName).
+        answer == nil ifTrue:[ AbortSignal raise].
+        answer ifFalse:[^ self]
     ] ifFalse:[
         viaDoubleClick ifTrue:[
             (self nonBinaryFileAction:fileName) ifTrue:[^ self].
@@ -7276,5 +7278,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.407 2001-06-12 12:19:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.408 2001-06-12 12:50:47 cg Exp $'
 ! !