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 @@
t
xotcl
-
+
Gustaf Neumann
XOTcl library functionality (e.g. thread handling, online documentation, Generic Form and List Classes)
2007-11-13
@@ -41,7 +41,7 @@
BSD-Style
0
-
+
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 "'" title
+ regsub -all ' $href "'" 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 "\n"
+ }
foreach file [array names ::need_css] {
append result "\n"
}