Index: openacs-4/packages/xotcl-core/xotcl-core.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/xotcl-core.info,v
diff -u -r1.41 -r1.42
--- openacs-4/packages/xotcl-core/xotcl-core.info	13 Nov 2007 08:43:23 -0000	1.41
+++ openacs-4/packages/xotcl-core/xotcl-core.info	19 Nov 2007 12:23:50 -0000	1.42
@@ -8,7 +8,7 @@
     <singleton-p>t</singleton-p>
     <auto-mount>xotcl</auto-mount>
 
-    <version name="0.77" url="http://media.wu-wien.ac.at/download/xotcl-core-0.77.apm">
+    <version name="0.78" url="http://media.wu-wien.ac.at/download/xotcl-core-0.78.apm">
         <owner url="mailto:neumann@wu-wien.ac.at">Gustaf Neumann</owner>
         <summary>XOTcl library functionality (e.g. thread handling, online documentation, Generic Form and List Classes)</summary>
         <release-date>2007-11-13</release-date>
@@ -41,7 +41,7 @@
         <license>BSD-Style</license>
         <maturity>0</maturity>
 
-        <provides url="xotcl-core" version="0.77"/>
+        <provides url="xotcl-core" version="0.78"/>
 
         <callbacks>
             <callback type="before-install"  proc="::xotcl::before_install_callback"/>
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.24 -r1.25
--- openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	28 Sep 2007 20:33:04 -0000	1.24
+++ openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	19 Nov 2007 12:23:51 -0000	1.25
@@ -707,8 +707,17 @@
     if {![info exists ::need_js($name)]} {lappend ::js_order $name}
     set ::need_js($name)  1
   }
+  Page proc requireLink {-rel -type -title -href} {
+    regsub -all ' $title "&apos;" title
+    regsub -all ' $href "&apos;" href
+    set key "rel='$rel' type='$type' title='$title' href='$href'"
+    set ::need_link($key) 1
+  }
   Page proc header_stuff {} {
     set result ""
+    foreach link [array names ::need_link] {
+      append result "<link $link>\n"
+    }
     foreach file [array names ::need_css] {
       append result "<link type='text/css' rel='stylesheet' href='$file' media='all' >\n"
     }