xo::tdom::AttributeManager instproc get_local_attributes (public)

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

Defined in /var/www/openacs.org/packages/xotcl-core/tcl/30-widget-procs.tcl

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

Source code:

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

XQL Not present:

Generic, PostgreSQL, Oracle