Index: openacs-4/packages/xotcl-core/tcl/cr-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/cr-procs.tcl,v
diff -u -r1.76.2.15 -r1.76.2.16
--- openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	8 May 2019 14:30:45 -0000	1.76.2.15
+++ openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	14 May 2019 20:05:05 -0000	1.76.2.16
@@ -1227,9 +1227,7 @@
     ::TableWidget create t1 -volatile \
         -columns {
           Field version_number -label "" -html {align right}
-          ImageAnchorField edit -label "" -src /resources/acs-subsite/Zoom16.gif \
-              -title "View Item" -alt  "view" \
-              -width 16 -height 16 -border 0
+          AnchorField create view -CSSclass view-item-button -label ""
           AnchorField diff -label ""
           AnchorField plain_diff -label ""
           AnchorField author -label [_ file-storage.Author]
@@ -1240,7 +1238,7 @@
           ImageAnchorField live_revision -label [_ xotcl-core.live_revision] \
               -src /resources/acs-subsite/radio.gif \
               -width 16 -height 16 -border 0 -html {align center}
-          ImageField_DeleteIcon version_delete -label "" -html {align center}
+          AnchorField create version_delete -CSSclass delete-item-button -label ""
         }
 
     set user_id [:current_user_id]
@@ -1287,7 +1285,8 @@
 
       t1 add \
           -version_number $version_number: \
-          -edit.href [export_vars -base $base {{revision_id $version_id}}] \
+          -view "" \
+          -view.href [export_vars -base $base {{revision_id $version_id}}] \
           -author $author \
           -content_size $content_size_pretty \
           -last_modified_ansi [lc_time_fmt $last_modified_ansi "%x %X"] \
@@ -1297,6 +1296,7 @@
           -live_revision.href $live_revision_link \
           -version_delete.href [export_vars -base $base \
                                     {{m delete-revision} {revision_id $version_id}}] \
+          -version_delete "" \
           -version_delete.title [_ file-storage.Delete_Version]
 
       [t1 last_child] set payload(revision_id) $version_id