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.26 -r1.27
--- openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl 17 Dec 2007 12:20:32 -0000 1.26
+++ openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl 18 Dec 2007 09:36:41 -0000 1.27
@@ -831,27 +831,36 @@
# templating and CSS
#
Class create Page
- Page proc requireCSS name {set ::need_css($name) 1}
+ Page proc requireCSS name {set ::_xo_need_css($name) 1}
Page proc requireJS name {
- if {![info exists ::need_js($name)]} {lappend ::js_order $name}
- set ::need_js($name) 1
+ if {![info exists ::_xo_need_js($name)]} {lappend ::_xo_js_order $name}
+ set ::_xo_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
+ set ::_xo_need_link($key) 1
}
+ Page proc set_property {name element value} {
+ set ::xo_property_${name}($element) $value
+ }
+ Page proc get_property {name} {
+ if {[array exists ::xo_property_${name}]} {
+ return [array get ::xo_property_${name}]
+ }
+ return [list]
+ }
Page proc header_stuff {} {
set result ""
- foreach link [array names ::need_link] {
+ foreach link [array names ::_xo_need_link] {
append result "\n"
}
- foreach file [array names ::need_css] {
+ foreach file [array names ::_xo_need_css] {
append result "\n"
}
- if {[info exists ::js_order]} {
- foreach file $::js_order {
+ if {[info exists ::_xo_js_order]} {
+ foreach file $::_xo_js_order {
if {[string match "*;*" $file]} {
# it is not a file, but some javascipt statements
append result "\n"