restoreCode

$fill restoreCode: übergibt den Code zum Wiederherstellen des eigenen Inhalts für undo, redo nach Editieren von Gruppen.

obj method fill restoreCode {} {
  lappend cmdLines\
    "$self empty"\
    "$self private lines {[my lines]}"\
    {*}[lmap line [my lines] {
      $line restoreCode
    }]\
    "$self lines group $self"\
    [list $self configure\
      -fill [$self cget -fill]\
      -constraint [$self cget -constraint]]
  join $cmdLines \n
}