FileBrowser.st
changeset 13777 d6790fd30759
parent 13769 7827c1eebc29
child 13935 4e4b26cf7484
--- a/FileBrowser.st	Thu Jan 23 17:11:40 2014 +0100
+++ b/FileBrowser.st	Thu Jan 23 17:11:58 2014 +0100
@@ -2464,9 +2464,9 @@
 
 
     fileListView selection size > 1 ifTrue:[
-        AbortAllSignal catch:[
+        AbortAllOperationRequest catch:[
             self selectedFilesDo:[:fileName |
-                AbortSignal catch:[
+                AbortOperationRequest catch:[
                     self fileFileIn:fileName lazy:lazy.
                 ]
             ]
@@ -6150,7 +6150,7 @@
         ].
         answer := self confirmWithCancel:(resources string:'''%1'' seems to be a binary file (or unsupported format) - show anyway ?' with:fileNameString).
         answer == false ifTrue:[^ self].
-        answer isNil ifTrue:[AbortSignal raise].
+        answer isNil ifTrue:[AbortOperationRequest raise].
     ] ifFalse:[
         viaDoubleClick ifTrue:[
             (self nonBinaryFileAction:fileNameString) ifTrue:[^ self].
@@ -7511,10 +7511,10 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.654 2014-01-16 14:33:10 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.655 2014-01-23 16:11:58 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.654 2014-01-16 14:33:10 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.655 2014-01-23 16:11:58 stefan Exp $'
 ! !