1033 (mode bitAt:i + m first) == 1 ifTrue:[permissions at: 10 - m first - i put: m last] |
1032 (mode bitAt:i + m first) == 1 ifTrue:[permissions at: 10 - m first - i put: m last] |
1034 ] |
1033 ] |
1035 ]. |
1034 ]. |
1036 |
1035 |
1037 fileName isReadable ifFalse:[ |
1036 fileName isReadable ifFalse:[ |
1038 ^iconKey := #lockedFileIcon |
1037 ^ iconKey := #lockedFileIcon |
1039 ]. |
1038 ]. |
1040 info type == #symbolicLink ifTrue:[ |
1039 info type == #symbolicLink ifTrue:[ |
1041 ^ iconKey := #linkedFileIcon |
1040 ^ iconKey := #linkedFileIcon |
1042 ]. |
1041 ]. |
1043 suffix := fileName suffix. |
1042 suffix := fileName suffix. |
1044 |
1043 |
1045 ((DirectoryView::FileRow class implements: (iconKey := (suffix, 'FileIcon') asSymbol)) |
1044 ((self class respondsTo:(iconKey := (suffix, 'FileIcon') asSymbol)) |
1046 or: [DirectoryView::FileRow class implements: (iconKey := (fileName baseName, 'Icon') asSymbol)] |
1045 or: [self class respondsTo: (iconKey := (fileName baseName, 'Icon') asSymbol)] |
1047 ) ifFalse:[ |
1046 ) ifFalse:[ |
1048 iconKey := #fileIcon. |
1047 iconKey := #fileIcon. |
1049 ((suffix = 'o') or:[suffix = 'so']) ifTrue: [ |
1048 ((suffix = 'o') or:[suffix = 'so']) ifTrue: [ |
1050 ^iconKey := #binaryFileIcon |
1049 ^ iconKey := #binaryFileIcon |
1051 ]. |
1050 ]. |
1052 (Image isImageFileSuffix:suffix) ifTrue: [ |
1051 (Image isImageFileSuffix:suffix) ifTrue: [ |
1053 ^iconKey := #imageFileIcon |
1052 ^ iconKey := #imageFileIcon |
1054 ]. |
1053 ]. |
1055 |
1054 |
1056 fileName isExecutableProgram ifTrue:[ |
1055 fileName isExecutableProgram ifTrue:[ |
1057 ^iconKey := #exeFileIcon |
1056 ^ iconKey := #exeFileIcon |
1058 ] |
1057 ] |
1059 ] |
1058 ] |
1060 ! ! |
1059 ! ! |
1061 |
1060 |
1062 !DirectoryView class methodsFor:'documentation'! |
1061 !DirectoryView class methodsFor:'documentation'! |