---

Class ::xo::tdom::AttributeManager

::xo::tdom::AttributeManager create ...

Defined in

Class Relations

• class: ::xotcl::Class
• superclass: ::xotcl::Object
• subclass: ::xo::tdom::Object, ::xo::Drawable

::xotcl::Class create ::xo::tdom::AttributeManager \
     -superclass ::xotcl::Object

Methods (to be applied on instances)

• get_attributes (scripted, public)

   <instance of xo::tdom::AttributeManager> get_attributes args \
      [ args... ]

  Get a list of attribute value pairs of instance attributes. It returns only those pairs for which a value exists.

  Parameters:

  args (required)

  Returns:

  flattened list of attribute value pairs

  Testcases:

  create_form_with_form_instance

  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

• get_local_attributes (scripted, public)

   <instance of xo::tdom::AttributeManager> get_local_attributes \
      args [ args... ]

  Get a list of attribute value pairs of instance attributes. It returns only those pairs for which a value exists.

  Parameters:

  args (required)

  Returns:

  flattened list of attribute value pairs

  Testcases:

  xowiki_test_cases

  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

---