# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 1483451465 -3600
# Node ID 70c6139984a644a420a62e1897652b8b6eb64841
# Parent  51b676d987428a6802704b3c827177f3fc7c2786
#REFACTORING by stefan
class: DirectoryView
 use "self class" when refering to own class

diff -r 51b676d98742 -r 70c6139984a6 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
         ]
     ]
 ! !