---

Class ::xo::Page

::xo::Page create ...

Defined in

Class Relations

• class: ::xotcl::Class
• superclass: ::xotcl::Object

::xotcl::Class create ::xo::Page \
     -superclass ::xotcl::Object

Methods (to be applied on the object)

• get_property (scripted)

   xo::Page get_property

  Testcases:

  xowiki_test_cases, xowiki, create_form_with_form_instance

  if {[array exists ::xo_property_${name}]} {
    return [array get ::xo_property_${name}]
  }
  return [list]

• header_stuff (scripted)

   xo::Page header_stuff

  Testcases:

  xowiki_test_cases, xowiki

  
  foreach style [:sort_keys_by_value [array get ::_xo_need_style]] {
    template::head::add_style -style $style
  }
  set count 10
  foreach file [:sort_keys_by_value [array get ::_xo_need_css]] {
    template::head::add_css -href $file -media all -order [incr count]
  }
  if {[info exists ::_xo_js_order]} {
    set statements ""
    set order 10
    foreach file $::_xo_js_order {
      if {[string match "*;*" $file]} {
        # it is not a file, but some JavaScript statements
        #append statements [string map {< "&lt;" > "&gt;"} $file] \n
        append statements $file \n
      } else {
        template::head::add_script -src $file -type text/javascript -order [incr order]
      }
    }
    if {$statements ne ""} {
      template::head::add_script -script $statements -type text/javascript -order [incr order]
    }
  }
  return ""

• requireCSS (scripted)

   xo::Page requireCSS

  Testcases:

  create_workflow_with_instance, xowf, xowiki_test_cases, path_resolve

  set ::_xo_need_css($name) [expr {[array size ::_xo_need_css] + 1000 * $order}]

• requireJS (scripted)

   xo::Page requireJS

  Testcases:

  path_resolve, xowiki

  if {![info exists ::_xo_need_js($name)]} {lappend ::_xo_js_order $name}
  set ::_xo_need_js($name)  1

• requireLink (scripted)

  template::head::add_link -rel $rel -href $href -type $type -title $title

• requireStyle (scripted)

  set ::_xo_need_style($s) [expr {[array size ::_xo_need_style] + 1000 * $order}]

• set_property (scripted)

   xo::Page set_property

  Testcases:

  xowiki_test_cases, xowiki, create_form_with_form_instance

  set ::xo_property_${name}($element) $value

• sort_keys_by_value (scripted)

  set result [list]
  set a [list]
  foreach {key value} $pairs {
    lappend a [list $key $value]
  }
  foreach pair [lsort -index 1 -$comparison -$direction $a] {
    lappend result [lindex $pair 0]
  }
  return $result

---