--- a/AbstractFileBrowser.st Thu Feb 21 17:32:52 2019 +0100
+++ b/AbstractFileBrowser.st Thu Feb 21 17:49:59 2019 +0100
@@ -19,8 +19,8 @@
DefaultFilters DirectoryBookmarks LastEnforcedNameSpace
LastFileDiffDirectory LastFileDiffFile LastFileSelection
LastMercurialRepository LastMoveDestination LastMustMatchPattern
- LastScriptBlockString RootHolder RuntimeAspects
- VisitedDirectories MaxFileSizeShownWithoutAsking'
+ LastScriptBlockString MaxFileSizeShownWithoutAsking RootHolder
+ RuntimeAspects VisitedDirectories'
poolDictionaries:''
category:'Interface-Tools-File'
!
@@ -3080,15 +3080,15 @@
fileName := f baseName.
f isDirectory ifTrue:[
- Dialog warn:(resources string:'%1 is a directory.' with:fileName).
+ Dialog warn:(resources string:'"%1" is a directory.' with:fileName).
^ nil
].
f exists ifFalse:[
- Dialog warn:(resources string:'oops, ''%1'' is gone or unreadable.' with:fileName).
+ Dialog warn:(resources string:'oops, "%1" is gone or unreadable.' with:fileName).
^ nil
].
f isReadable ifFalse:[
- Dialog warn:(resources string:'''%1'' is unreadable.' with:fileName).
+ Dialog warn:(resources string:'"%1" is unreadable.' with:fileName).
^ nil
].
f fileSize > (self maxFileSizeShownWithoutAsking) ifTrue:[
@@ -3145,6 +3145,7 @@
"Created: / 12-11-2017 / 12:08:10 / cg"
"Modified: / 19-11-2017 / 15:01:34 / cg"
+ "Modified: / 21-02-2019 / 17:48:48 / Claus Gittinger"
!
contentsOfFileAsHexDump:f