restoreCode

$line restoreCode: returns restoring code after editing groups.

obj method line restoreCode {} {
  lappend cmdLines "$self remove all"
  foreach dot [my dots] {
    lappend cmdLines "$self add $dot" [$dot restoreCode]
  }
  lappend cmdLines\
    [list $self configure\
      -width [$self cget -width]\
      -outline [$self cget -outline]\
      -smooth [$self cget -smooth]\
      -constraint [$self cget -constraint]]
  join $cmdLines \n
}