data

$dot data: returns prepared data for XML unparsing. Attribute -id calculated by index in instance list.

obj method dot data {} {
  dict create type element\
    name dot\
    attribute [dict create\
    id dot-[lsearch [our instances] $self]\
    x [$self cget -x]\
    y [$self cget -y]]\
    content {}
}