Index: openacs-4/packages/bootstrap-icons/www/sitewide-admin/sample.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/bootstrap-icons/www/sitewide-admin/Attic/sample.tcl,v diff -u -r1.1.2.6 -r1.1.2.7 --- openacs-4/packages/bootstrap-icons/www/sitewide-admin/sample.tcl 18 Apr 2022 09:08:38 -0000 1.1.2.6 +++ openacs-4/packages/bootstrap-icons/www/sitewide-admin/sample.tcl 24 Apr 2022 16:17:42 -0000 1.1.2.7 @@ -9,6 +9,16 @@ set title "Sample Icons" set context [list [list "." "Boostrap Icons"] $title] +# +# Collect generic names +# +set generic {} +foreach iconset [dict keys $::template::icon::map] { + lappend generic {*}[dict keys [dict get $::template::icon::map $iconset]] +} +# +# Default iconset +# set iconset [::template::iconset] # local URL @@ -42,28 +52,13 @@ {