restoreCode

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

obj method group restoreCode {} {
  lappend lines "$self release all"\
    [list $self configure -constraint [$self cget -constraint]]\
    {*}[$self elements restoreCode]\
    {*}[lmap element [$self elements] {
      list $self add $element
    }]
  join $lines \n
}