Index: openacs-4/packages/xowiki/tcl/xowiki-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-procs.tcl,v
diff -u -N -r1.542.2.26 -r1.542.2.27
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	11 Jun 2019 18:55:08 -0000	1.542.2.26
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	24 Jun 2019 05:51:00 -0000	1.542.2.27
@@ -4567,30 +4567,25 @@
   }
 
   File instproc render_icon {} {
-    return [list text "<img src='/resources/file-storage/file.gif' width='12' alt='file'>" is_richtext true]
+    return {text "<a title='file' class='file-icon'>&nbsp;</a>" is_richtext true}
   }
-
+  
   FormPage instproc render_icon {} {
     set page_template [:page_template]
     if {[$page_template istype ::xowiki::FormPage]} {
       return [list text [$page_template property icon_markup] is_richtext true]
     }
     switch [$page_template name] {
       en:folder.form {
-        return [list text "<img src='/resources/file-storage/folder.gif' width='12' alt='folder'>" is_richtext true]
+        return {text "<a title='folder' class='folder-open-icon'>&nbsp;</a>" is_richtext true}
       }
       en:link.form {
         set link_type [:get_property_from_link_page link_type "unresolved"]
-        set link_icon "http://www.ejoe.at/typo3/sysext/rtehtmlarea/res/accessibilityicons/img/internal_link.gif"
         if {$link_type eq "unresolved"} {
-          return [list text "<img src='[ns_quotehtml $link_icon]' width='12' alt='internal-link'> \
-        <img src='http://www.deeptrawl.com/images/icons/brokenLinks.png' width='15'>" is_richtext true]
+          return {text "<a title='broken link' class='broken-link-icon'>&nbsp;</a>" is_richtext true}
+        } else {
+          return {text "<a title='link' class='link-icon'>&nbsp;</a>" is_richtext true}
         }
-        if {$link_type eq "folder_link"} {
-          return [list text "<img src='[ns_quotehtml $link_icon]' width='12' alt='folder-link'> \
-          <img src='/resources/file-storage/folder.gif' width='12' alt='folder'>" is_richtext true]
-        }
-        return [list text "<img src='[ns_quotehtml $link_icon]' width='12' alt='internal-link'>" is_richtext true]
       }
       default {
         return [list text [$page_template title] is_richtext false]