undoRedoCode

$canvaseditor undoRedoCode: returns undo code for undo
obj method canvaseditor undoRedoCode {} {
  # Attribute 
  foreach obj [my selection] {
    append result \n [objUndoRedoTxt $obj]
  }
  foreach obj [my selection] {
    append result \n "$obj draw coords"
  }
  foreach dot [$self dots -selected] {
    append result \n "$dot lines draw coords"
  }
  # Reihenfolge übereinandergezeichneter Objekte
  set stackorder ""
  foreach item [$self canvas find all] {
    foreach tag [$self canvas gettags $item] {
      if {[regexp (?:line|fill|group)(?::.*) $tag]} then {
        lappend stackorder $tag
      }
    }
  }
  set line "$self raiseTags $stackorder"
  append result \n $line
  set result
}