#REFACTORING by stefan
class: DirectoryView
use "self class" when refering to own class
--- a/DirectoryView.st Fri Dec 23 11:32:18 2016 +0100
+++ b/DirectoryView.st Tue Jan 03 14:51:05 2017 +0100
@@ -1011,10 +1011,9 @@
!DirectoryView::FileRow methodsFor:'private'!
validateAttributes
-
|info mode suffix|
- permissions := String new:9 withAll:$-.
+ permissions := '---------' copy.
(info := fileName info) isNil ifTrue:[
iconKey := #lockedFileIcon.
@@ -1035,26 +1034,26 @@
].
fileName isReadable ifFalse:[
- ^iconKey := #lockedFileIcon
+ ^ iconKey := #lockedFileIcon
].
info type == #symbolicLink ifTrue:[
^ iconKey := #linkedFileIcon
].
suffix := fileName suffix.
- ((DirectoryView::FileRow class implements: (iconKey := (suffix, 'FileIcon') asSymbol))
- or: [DirectoryView::FileRow class implements: (iconKey := (fileName baseName, 'Icon') asSymbol)]
+ ((self class respondsTo:(iconKey := (suffix, 'FileIcon') asSymbol))
+ or: [self class respondsTo: (iconKey := (fileName baseName, 'Icon') asSymbol)]
) ifFalse:[
iconKey := #fileIcon.
((suffix = 'o') or:[suffix = 'so']) ifTrue: [
- ^iconKey := #binaryFileIcon
+ ^ iconKey := #binaryFileIcon
].
(Image isImageFileSuffix:suffix) ifTrue: [
- ^iconKey := #imageFileIcon
+ ^ iconKey := #imageFileIcon
].
fileName isExecutableProgram ifTrue:[
- ^iconKey := #exeFileIcon
+ ^ iconKey := #exeFileIcon
]
]
! !