equal
deleted
inserted
replaced
1050 info type == #symbolicLink ifTrue:[ |
1050 info type == #symbolicLink ifTrue:[ |
1051 ^ iconKey := #linkedFileIcon |
1051 ^ iconKey := #linkedFileIcon |
1052 ]. |
1052 ]. |
1053 suffix := fileName suffix. |
1053 suffix := fileName suffix. |
1054 |
1054 |
1055 ((self class respondsTo:(iconKey := (suffix, 'FileIcon') asSymbol)) |
1055 ((suffix asSingleByteStringIfPossible isSingleByteCollection |
1056 or: [self class respondsTo: (iconKey := (fileName baseName, 'Icon') asSymbol)] |
1056 and:[ (self class respondsTo:(iconKey := (suffix, 'FileIcon') asSymbol))]) |
|
1057 or: [fileName baseName asSingleByteStringIfPossible isSingleByteCollection |
|
1058 and:[self class respondsTo: (iconKey := (fileName baseName, 'Icon') asSymbol)]] |
1057 ) ifFalse:[ |
1059 ) ifFalse:[ |
1058 iconKey := #fileIcon. |
1060 iconKey := #fileIcon. |
1059 ((suffix = 'o') or:[suffix = 'so']) ifTrue: [ |
1061 ((suffix = 'o') or:[suffix = 'so']) ifTrue: [ |
1060 ^ iconKey := #binaryFileIcon |
1062 ^ iconKey := #binaryFileIcon |
1061 ]. |
1063 ]. |
1067 ^ iconKey := #exeFileIcon |
1069 ^ iconKey := #exeFileIcon |
1068 ] |
1070 ] |
1069 ] |
1071 ] |
1070 |
1072 |
1071 "Modified: / 13-09-2017 / 10:00:42 / cg" |
1073 "Modified: / 13-09-2017 / 10:00:42 / cg" |
|
1074 "Modified: / 01-01-2019 / 15:23:11 / Claus Gittinger" |
1072 ! ! |
1075 ! ! |
1073 |
1076 |
1074 !DirectoryView class methodsFor:'documentation'! |
1077 !DirectoryView class methodsFor:'documentation'! |
1075 |
1078 |
1076 version |
1079 version |