#BUGFIX by cg draft
authorClaus Gittinger <cg@exept.de>
Thu, 03 Jan 2019 14:19:29 +0100
changeset 3634 b97f51aaa9ac
parent 3633 62a4caa1ac5e
child 3635 74101a749a34
#BUGFIX by cg class: DirectoryView::FileRow changed: #validateAttributes care for widestrings in filenames
DirectoryView.st
--- a/DirectoryView.st	Sun Dec 30 04:38:28 2018 +0000
+++ b/DirectoryView.st	Thu Jan 03 14:19:29 2019 +0100
@@ -1052,8 +1052,10 @@
     ].
     suffix := fileName suffix.
 
-    ((self class respondsTo:(iconKey := (suffix, 'FileIcon') asSymbol))
-        or: [self class respondsTo: (iconKey := (fileName baseName, 'Icon') asSymbol)]
+    ((suffix asSingleByteStringIfPossible isSingleByteCollection
+     and:[ (self class respondsTo:(iconKey := (suffix, 'FileIcon') asSymbol))])
+        or: [fileName baseName asSingleByteStringIfPossible isSingleByteCollection 
+             and:[self class respondsTo: (iconKey := (fileName baseName, 'Icon') asSymbol)]]
     ) ifFalse:[
         iconKey := #fileIcon.
         ((suffix = 'o') or:[suffix = 'so']) ifTrue: [
@@ -1069,6 +1071,7 @@
     ]
 
     "Modified: / 13-09-2017 / 10:00:42 / cg"
+    "Modified: / 01-01-2019 / 15:23:11 / Claus Gittinger"
 ! !
 
 !DirectoryView class methodsFor:'documentation'!