data

$fill data: returns data for XML processing

obj method fill data {} {
  dict create type element\
    name fill\
    attribute [dict create\
    id fill-[lsearch [our instances] $self]\
    fill [$self cget -fill]\
    constraint [$self cget -constraint]]\
    content [lmap line [my lines] {
    $line data
  }]
}