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

 <instance of xo::tdom::AttributeManager> get_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:

create_form_with_form_instance

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 {[info exists :$attribute]} {
    lappend pairs $HTMLattribute [set :$attribute]
  }
}
return $pairs

XQL Not present:

Generic, PostgreSQL, Oracle