Index: openacs-4/packages/fa-icons/www/sitewide-admin/sample.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/fa-icons/www/sitewide-admin/Attic/sample.tcl,v
diff -u -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/fa-icons/www/sitewide-admin/sample.tcl	17 Apr 2022 10:41:37 -0000	1.1.2.1
+++ openacs-4/packages/fa-icons/www/sitewide-admin/sample.tcl	18 Apr 2022 09:08:38 -0000	1.1.2.2
@@ -8,7 +8,7 @@
 set resource_info [::fa_icons::resource_info]
 
 set title "Sample Font Awesome Icons"
-set context [list [list "." "Font Awesome Icons"] $title] 
+set context [list [list "." "Font Awesome Icons"] $title]
 set iconset [::template::iconset]
 
 #
@@ -18,17 +18,49 @@
 
 template::head::add_css -href $CSS_URL
 
+append genericHTML \
+    {<table class="table">} \n \
+    {<tr><th scope="col">Name</th><th scope="col" >fa-icons</th>} \
+    [expr {$iconset ne "fa-icons" ? "<th scope='col'>$iconset</th>" : ""}] \
+    </tr>\n \
+    [join [lmap name {
+        arrow-down
+        arrow-up
+        checkbox-checked
+        checkbox-unchecked
+        edit
+        eye-closed
+        eye-open
+        file
+        form-info-sign
+        radio-checked
+        radio-unchecked
+        reload
+        text
+        trash
+        watch
+    } {
+        set _ <tr>
+        append _ [subst {<td scope="row">$name</td><td><adp:icon iconset="fa-icons" name="$name"></td>}]
+        if {$iconset ne "fa-icons"} {
+            append _ [subst {<td><adp:icon name="$name"></td>}]
+        }
+        append _ </tr>
+    }] \n] \
+    </table>\n
+
+
 #<h3>Using an Font Awesome Icons as SVG image</h3>
 #<p>Font Awesome <img src="$URL/bootstrap.svg" alt="Font Awesome" width="32" height="32">
 
 set content [subst {
 
     <h3>Using Font Awesome Icons as fonts (sample)</h3>
-                                           
+
     <blockquote class="mx-4">
     GitHub <i class="fa-brands fa-github"></i><br>
-    
-    archive <i class="fa-solid fa-box-archive"></i> solid (regular, light, duotone, thin require pro icons).<br>    
+
+    archive <i class="fa-solid fa-box-archive"></i> solid (regular, light, duotone, thin require pro icons).<br>
     circle-arrow-right <i class="fa-solid fa-circle-arrow-right"></i><br>
     square-up-right <i class="fa-solid fa-square-up-right"></i><br>
     circle-right <i class="fa-solid fa-circle-right"></i> (solid)
@@ -38,27 +70,26 @@
 
     fa-square-caret-up <i class="fa-solid fa-square-caret-up"></i> (solid)
     <i class="fa-regular fa-square-caret-up"></i> (regular) <br>
-    
-    check <i class="fa-solid fa-check"></i><br>    
-    clock-rotate-left <i class="fa-solid fa-clock-rotate-left"></i> <br>    
-    cloud <i class="fa-solid fa-cloud"></i><br>    
-    envelope <i class="fa-solid fa-envelope"></i> (solid) <i class="fa-regular fa-envelope"></i> (regular)<br>    
+
+    check <i class="fa-solid fa-check"></i><br>
+    clock-rotate-left <i class="fa-solid fa-clock-rotate-left"></i> <br>
+    cloud <i class="fa-solid fa-cloud"></i><br>
+    envelope <i class="fa-solid fa-envelope"></i> (solid) <i class="fa-regular fa-envelope"></i> (regular)<br>
     eye <i class="fa-solid fa-eye"></i> (solid) <i class="fa-regular fa-eye"></i> (regular)<br>
-    
+
     file <i class="fa-solid fa-file"></i> (solid) <i class="fa-regular fa-file"></i> (regular)<br>
-    
+
     folder <i class="fa-solid fa-folder"></i> (solid) <i class="fa-regular fa-folder"></i> (regular)<br>
     folder-open <i class="fa-solid fa-folder-open"></i> (solid) <i class="fa-regular fa-folder-open"></i> (regular)<br>
     circle-info<i class="fa-solid fa-circle-info"></i><br>
 
     pen-to-square <i class="fa-solid fa-pen-to-square"></i> (solid) <i class="fa-regular fa-pen-to-square"></i> (regular)<br>
-    
+
     trash-can <i class="fa-solid fa-trash-can"></i> (sold) <i class="fa-regular fa-trash-can"></i> (regular)<br>
     upload <i class="fa-solid fa-upload"></i><br>
     </blockquote>
 
     <h3>Resource info for Font Awesome Icons</h3>
-    
+
     <p> <table>[join [lmap {k v} $resource_info {string cat <tr><td><i>$k ":</td><td> " $v</td></tr>}]]</table>
 }]
-