#FEATURE by exept
class: AbstractFileBrowser
changed: #removeBakAndSavFiles
case insensitive in suffix
--- a/AbstractFileBrowser.st Fri Aug 16 22:55:35 2019 +0200
+++ b/AbstractFileBrowser.st Sat Aug 17 14:37:22 2019 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 2002 by eXept Software AG
All Rights Reserved
@@ -3148,7 +3150,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))
].
].
@@ -8944,7 +8946,7 @@
filesToRemove := OrderedCollection new.
directories do:[:eachDirectoryToScan |
eachDirectoryToScan filesDo:[:fn |
- (#('sav' 'bak') includes:fn suffix) ifTrue:[
+ (#('sav' 'bak') includes:fn suffix asLowercase) ifTrue:[
filesToRemove add:fn.
]
]
@@ -9097,7 +9099,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'