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