--- a/AbstractFileBrowser.st Tue Mar 27 17:20:21 2018 +0200
+++ b/AbstractFileBrowser.st Tue Mar 27 19:30:33 2018 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 2002 by eXept Software AG
All Rights Reserved
@@ -3000,7 +2998,7 @@
"/ are perfect here, but usually not available in the font
"/ and we have currently no way of knowing if they are...
"/ (could let the font draw into a bitmap and check if there is something...)
- "/ For now, write a dot.·
+ "/ For now, write a dot.·
"/ charPrinted := (Character value:(byte + 16r2400))
].
].
@@ -6755,18 +6753,18 @@
with:errOutput contents.
exceptionBlock value:errMsg.
- (inFile ~= fileName) ifTrue:[inFile delete].
- outFile delete.
+ (inFile ~= fileName) ifTrue:[inFile remove].
+ outFile remove.
^ false
].
- (inFile ~= fileName) ifTrue:[inFile delete].
+ (inFile ~= fileName) ifTrue:[inFile remove].
inFile := outFile.
eachConversionSuffixCommandPair := conversionStream next
].
outFile moveTo:(fileName withSuffix:(chainOfConversions last value)).
] ifCurtailed:[
- (inFile ~= fileName) ifTrue:[inFile delete].
- outFile delete.
+ (inFile ~= fileName) ifTrue:[inFile remove].
+ outFile remove.
].
^ true.
@@ -7702,7 +7700,7 @@
] ensure:[
out notNil ifTrue:[ out close ].
in notNil ifTrue:[ in close ].
- outFile delete.
+ outFile remove.
]
] on:FileStream openErrorSignal do:[:ex|
self warn:('Cannot process "%1".' bindWith:fileName baseName allBold).
@@ -8676,7 +8674,7 @@
] ifFalse:[sig == HaltInterrupt ifTrue:[ |sender|
label := msg := 'Breakpoint/Halt in fileIn'.
sender := ex suspendedContext.
- msg := msg , ('\\in %1 » %2' bindWith:(sender receiver class name) with:(sender sender selector))
+ msg := msg , ('\\in %1 » %2' bindWith:(sender receiver class name) with:(sender sender selector))
] ifFalse:[
label := 'Error in fileIn'.
msg := 'error in fileIn: %1'