Class ::xo::tdom::AttributeManager (public)

 ::xotcl::Class ::xo::tdom::AttributeManager

Defined in

Testcases:

No testcase defined.

Source code:

namespace eval ::xo::tdom {}
::nsf::object::alloc ::xotcl::Class ::xo::tdom::AttributeManager {set :__default_metaclass ::xotcl::Class
   set :__default_superclass ::xotcl::Object}
::xo::tdom::AttributeManager instproc get_local_attributes args {
    set pairs [list]
    foreach attribute $args {
      set l [split $attribute]
      if {[llength $l] > 1} {
        lassign $l attribute HTMLattribute
      } else {
        set HTMLattribute $attribute
      }
      #:msg "${:name} check for $attribute => [info exists :$attribute]"
      if {[:uplevel [list info exists $attribute]]} {
        lappend pairs $HTMLattribute [:uplevel [list set $attribute]]
      }
    }
    return $pairs
  }
::xo::tdom::AttributeManager instproc get_attributes args {
    set pairs [list]
    foreach attribute $args {
      set l [split $attribute]
      if {[llength $l] > 1} {
        lassign $l attribute HTMLattribute
      } else {
        set HTMLattribute $attribute
      }
      #:msg "${:name} check for $attribute => [info exists :$attribute]"
      if {[info exists :$attribute]} {
        lappend pairs $HTMLattribute [set :$attribute]
      }
    }
    return $pairs
  }

XQL Not present:

Generic, PostgreSQL, Oracle