Index: openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl,v
diff -u -r1.27 -r1.28
--- openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	18 Dec 2007 09:36:41 -0000	1.27
+++ openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	1 Jan 2008 23:31:00 -0000	1.28
@@ -832,6 +832,7 @@
   #
   Class create Page
   Page proc requireCSS name {set ::_xo_need_css($name) 1}
+  Page proc requireStyle s {set ::_xo_need_style($s) 1}
   Page proc requireJS  name {
     if {![info exists ::_xo_need_js($name)]} {lappend ::_xo_js_order $name}
     set ::_xo_need_js($name)  1
@@ -856,6 +857,9 @@
     foreach link [array names ::_xo_need_link] {
       append result "<link $link>\n"
     }
+    foreach style [array names ::_xo_need_style] {
+      append result "<style type='text/css'>$style</style>\n"
+    }
     foreach file [array names ::_xo_need_css] {
       append result "<link type='text/css' rel='stylesheet' href='$file' media='all' >\n"
     }