Index: openacs-4/packages/acs-developer-support/lib/toolbar.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/lib/toolbar.tcl,v
diff -u -N -r1.9 -r1.10
--- openacs-4/packages/acs-developer-support/lib/toolbar.tcl	10 Sep 2007 08:31:17 -0000	1.9
+++ openacs-4/packages/acs-developer-support/lib/toolbar.tcl	5 Oct 2007 12:02:38 -0000	1.10
@@ -74,6 +74,29 @@
     }
 }
 
+
+# Retrieve all CSS files loaded on this page
+# Generate the <link /> tag multirow
+variable ::template::head::links
+
+set css_list [list]
+if {[array exists links]} {
+    foreach name [array names links] {
+        foreach {rel href type media title lang} $links($name) {
+            if {$type eq "text/css"} {
+                lappend css_list $href
+            }
+	}
+    }
+}
+
+if {$css_list ne ""} {
+    multirow append ds_buttons CSS \
+        "Show CSS" \
+        [export_vars -base "/ds/css-list" { css_list { return_url [ad_return_url] } }] \
+	off
+}
+
 set rm_package_id [apm_package_id_from_key xotcl-request-monitor]
 if {$rm_package_id > 0} {
     set rm_url [apm_package_url_from_id $rm_package_id]