Index: openacs-4/packages/xowiki/tcl/includelet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/includelet-procs.tcl,v
diff -u -r1.239.2.91 -r1.239.2.92
--- openacs-4/packages/xowiki/tcl/includelet-procs.tcl	13 Jul 2022 10:41:43 -0000	1.239.2.91
+++ openacs-4/packages/xowiki/tcl/includelet-procs.tcl	20 Aug 2022 09:37:56 -0000	1.239.2.92
@@ -35,6 +35,12 @@
         {id}
       }
 
+  ::xowiki::Includelet instproc tableWidget {} {
+    return [expr {[::xowiki::CSS toolkit] in {bootstrap3 bootstrap}
+                  ? "::xowiki::BootstrapTable"
+                  : "TableWidget" }]
+  }
+
   ::xowiki::Includelet instproc get_current_folder {parent} {
     set package_id [${:__including_page} package_id]
     #:log "get_current_folder: including_page current_folder $current_folder '[$current_folder name]'"
@@ -1212,7 +1218,7 @@
                      -party_id [::xo::cc set untrusted_user_id]]
     set show_heritage $admin_p
 
-    TableWidget create t1 -volatile \
+    [:tableWidget] create t1 -volatile \
         -set allow_edit $allow_edit \
         -set allow_delete $allow_delete \
         -set show_heritage $admin_p \
@@ -1315,7 +1321,7 @@
     :get_parameters
     ::xo::Page requireCSS "/resources/acs-templating/lists.css"
 
-    TableWidget create t1 -volatile \
+    [:tableWidget] create t1 -volatile \
         -columns {
           AnchorField create title -label [::xowiki::Page::slot::title set pretty_name]
         }
@@ -1375,7 +1381,7 @@
       #
       append :title " in last $interval"
 
-      TableWidget create t1 -volatile \
+      [:tableWidget] create t1 -volatile \
           -columns {
             AnchorField create title -label [::xowiki::Page::slot::title set pretty_name]
             Field create users -label [_ xowiki.includelet-visitors] -html { align right }
@@ -1398,7 +1404,7 @@
                }
     } else {
 
-      TableWidget create t1 -volatile \
+      [:tableWidget] create t1 -volatile \
           -columns {
             AnchorField create title -label [::xowiki::Page::slot::title set pretty_name]
             Field create count -label [_ xowiki.includelets-visits] -html { align right }
@@ -1503,7 +1509,7 @@
     :get_parameters
     ::xo::Page requireCSS "/resources/acs-templating/lists.css"
 
-    TableWidget create t1 -volatile \
+    [:tableWidget] create t1 -volatile \
         -columns {
           Field create user  -label [_ xowiki.includelet-visitors] -html { align right }
           Field create count -label [_ xowiki.includelets-visits] -html { align right }
@@ -1556,7 +1562,7 @@
     :get_parameters
     ::xo::Page requireCSS "/resources/acs-templating/lists.css"
 
-    TableWidget create t1 -volatile \
+    [:tableWidget] create t1 -volatile \
         -columns {
           AnchorField create title -label [::xowiki::Page::slot::title set pretty_name]
         }
@@ -4266,7 +4272,7 @@
       #
       # standard table encoder
       #
-      TableWidget create t1 -volatile \
+      [:tableWidget] create t1 -volatile \
           -columns {
             Field create value -orderby value -label value
             Field create count -orderby count -label count