Index: openacs-4/packages/xotcl-request-monitor/www/long-calls.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-request-monitor/www/long-calls.adp,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/xotcl-request-monitor/www/long-calls.adp	24 Oct 2024 10:36:35 -0000	1.5
+++ openacs-4/packages/xotcl-request-monitor/www/long-calls.adp	24 Oct 2024 12:24:20 -0000	1.6
@@ -4,22 +4,31 @@
 
   <h1>Long Calls</h1>
   <div style="float:left">
-    <form action="./long-calls" class="form-inline">
-      Connection Pools:&nbsp;
-      <multiple name="poolcheckboxes">
-        <div class="form-check form-check-inline form-group">
-          <input class="form-check-input"
-                 type="checkbox"
-                 id="inlineCheckbox-@poolcheckboxes.name@"
-                 name="pool"
-                 value="@poolcheckboxes.name@" @poolcheckboxes.checked@>
-          <label class="form-check-label"
-                 for="inlineCheckbox-$pool">@poolcheckboxes.name@</label>
-        </div>
-      </multiple>
-      <button type="submit" class="btn btn-outline-secondary">Filter</button>
-      <input type="hidden" name="lines" value="@lines@">
-      <input type="hidden" name="by_starttime" value="@by_starttime@">
+    <form style="float:left;" action="./long-calls" class="form-inline w3-padding-small">
+      <div class="w3-cell-row">
+        <span class="w3-cell">
+          Connection Pools:&nbsp;
+        </span>
+        <multiple name="poolcheckboxes">
+          <div class="form-check form-check-inline form-group w3-cell w3-padding-small">
+            <input class="form-check-input w3-check"
+                   type="checkbox"
+                   id="inlineCheckbox-@poolcheckboxes.name@"
+                   name="pool"
+                   value="@poolcheckboxes.name@" @poolcheckboxes.checked@>
+            <label class="form-check-label"
+                   for="inlineCheckbox-$pool">@poolcheckboxes.name@</label>
+          </div>
+        </multiple>
+        <span class="w3-cell">
+          <button type="submit"
+                  class="btn btn-outline-secondary w3-btn w3-white w3-border w3-border-grey w3-round">
+            Filter
+          </button>
+        </span>
+        <input type="hidden" name="lines" value="@lines@">
+        <input type="hidden" name="by_starttime" value="@by_starttime@">
+      </div>
     </form>
   </div>
 
@@ -37,7 +46,7 @@
     &nbsp;
   </div>
 
-  <table class="table table-condensed table-bordered small">
+  <table class="table table-condensed table-bordered small w3-table-all">
     <thead>
       <tr>
         <th class='text-right' nowrap>
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