#REFACTORING by stefan
authorStefan Vogel <sv@exept.de>
Tue, 03 Jan 2017 14:51:05 +0100
changeset 3366 70c6139984a6
parent 3365 51b676d98742
child 3367 033c21371bea
#REFACTORING by stefan class: DirectoryView use "self class" when refering to own class
DirectoryView.st
--- 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
         ]
     ]
 ! !