::xotcl::Class ::xo::Page

Class Hierarchy of ::xo::Page

• ::xotcl::Object

  Meta-class:

  ::xotcl::Class

  Methods for instances:

  __api_make_doc, __api_make_forward_doc, __next^C, __timediff, abstract, ad_doc, ad_forward, ad_proc, append^C, array^C, asHTML, autoname^C, check^C, class^C, cleanup^C, configure^C, contains, copy, db_1row^C, debug, defaultmethod, destroy^C, destroy_on_cleanup, eval^C, exists^C, extractConfigureArg, filter^C, filterguard^C, filtersearch^C, forward^C, hasclass, incr^C, info^C, init, instvar^C, invar^C, isclass^C, ismetaclass^C, ismixin^C, isobject^C, istype^C, lappend^C, log, method, mixin^C, mixinguard^C, move, msg, noinit^C, parametercmd^C, proc^C, procsearch^C, qn, requireNamespace^C, self, serialize, set^C, subst^C, trace^C, unset^C, uplevel^C, upvar^C, volatile^C, vwait^C

  Methods to be applied on the class (in addition to the methods provided by the meta-class):

  __exitHandler, getExitHandler, setExitHandler, unsetExitHandler

• ::xo::Page

  Meta-class:

  ::xotcl::Class

  Methods to be applied on the class (in addition to the methods provided by the meta-class):

  get_property, header_stuff, requireCSS, requireJS, requireLink, requireStyle, set_property, sort_keys_by_value

Class Relations

• superclass: ::xotcl::Object

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

Methods

• proc get_property

  ::xo::Page proc get_property name {
      if {[array exists ::xo_property_${name}]} {
        return [array get ::xo_property_${name}]
      }
      return [list]
    }

• proc header_stuff

  ::xo::Page proc header_stuff {} {
      set result ""
      foreach link [array names ::_xo_need_link] {
        append result "<link $link>\n"
      }
      foreach style [my sort_keys_by_value [array get ::_xo_need_style]] {
        append result "<style type='text/css'>$style</style>\n"
      }
      foreach file [my sort_keys_by_value [array get ::_xo_need_css]] {
        append result "<link type='text/css' rel='stylesheet' href='$file' media='all' >\n"
      }
      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 "<script type='text/javascript' >" $file "</script>\n"
          } else {
            append result "<script src='$file' type='text/javascript'></script>\n"
          }
        }
      }
      return $result
    }

• proc requireCSS

  ::xo::Page proc requireCSS {{-order 1} name} {
      set ::_xo_need_css($name) [expr {[array size ::_xo_need_css]+1000*$order}]
    }

• proc requireJS

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

• proc requireLink

  ::xo::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 ::_xo_need_link($key) 1
    }

• proc requireStyle

  ::xo::Page proc requireStyle {{-order 1} s} {
      set ::_xo_need_style($s) [expr {[array size ::_xo_need_style]+1000*$order}]
    }

• proc set_property

  ::xo::Page proc set_property {name element value} {
      set ::xo_property_${name}($element) $value
    }

• proc sort_keys_by_value

  ::xo::Page proc sort_keys_by_value {{-comparison integer} {-direction increasing} pairs} {
      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
    }