--- a/DirectoryContentsBrowser.st	Mon Jul 30 12:16:17 2018 +0200
+++ b/DirectoryContentsBrowser.st	Mon Jul 30 16:33:47 2018 +0200
@@ -3162,6 +3162,8 @@
 !
 
 icon
+    <resource: #programImage>
+
     "answer the icon displayed in the table widget; if the icon is unspecified,
      and the fileInfo is set a default icon is returned otherwise nil"
 
@@ -3188,6 +3190,8 @@
         ].
     ].
     ^ MIMETypeIconLibrary iconForKey:key.
+
+    "Modified: / 30-07-2018 / 16:30:16 / Claus Gittinger"
 !
 
 icon:anIcon