Index: openacs-4/packages/xotcl-request-monitor/www/long-calls.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-request-monitor/www/long-calls.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/xotcl-request-monitor/www/long-calls.tcl	11 Sep 2024 06:15:56 -0000	1.6
+++ openacs-4/packages/xotcl-request-monitor/www/long-calls.tcl	24 Oct 2024 12:24:20 -0000	1.7
@@ -35,13 +35,13 @@
 
 nsf::proc ::xo::colorize_slow_calls {-fast:required -warning:required -danger:required value} {
     if {$value > $danger} {
-        return "danger bg-danger bg-opacity-10"
+        return "danger bg-danger bg-opacity-10 w3-pale-red w3-opacity-min"
     } elseif {$value > $warning} {
-        return "warning bg-warning bg-opacity-10"
+        return "warning bg-warning bg-opacity-10 w3-pale-yellow w3-opacity-min"
     } elseif {$value > $fast} {
-        return "info bg-info bg-opacity-10"
+        return "info bg-info bg-opacity-10 w3-pale-blue w3-opacity-min"
     } else {
-        return "success bg-success bg-opacity-10"
+        return "success bg-success bg-opacity-10 w3-pale-green w3-opacity-min"
     }
 }
 
@@ -234,26 +234,15 @@
     # rows are already in the order of end time
 }
 
-set doc(title) "Long Calls"
-set context [list $doc(title)]
-
 #
-# We always want bootstrap for the coloring and the filter. The markup
-# in the .adp file is supposed to render reasonably for Bootstrap 3
-# and Bootstrap 5 themes to ease maintenance.
+# The table coloring is dependent on classes from CSS frameworks. The
+# markup in the .adp file is supposed to render reasonably for
+# Bootstrap 3, Bootstrap 5 and W3.CSS.
 #
-if {[template::head::can_resolve_urn urn:ad:css:bootstrap5] && [string match "*bootstrap5*" [subsite::get_theme]]} {
-    template::head::add_css -href urn:ad:css:bootstrap5 -media all
-} elseif {[template::head::can_resolve_urn urn:ad:css:bootstrap3]} {
-    template::head::add_css -href urn:ad:css:bootstrap3 -media all
-} else {
-    #
-    # We have no Bootstrap based theme installed, so load it manually.
-    #
-    template::head::add_css -href //maxcdn.bootstrapcdn.com/bootstrap/3.4.1/css/bootstrap.min.css -media all
-    security::csp::require style-src maxcdn.bootstrapcdn.com
-}
 
+set doc(title) "Long Calls"
+set context [list $doc(title)]
+
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4