withUndo

$canvaseditor withUndo method args …: invokes undo/redo recording

obj method canvaseditor withUndo args {
  set before [$self dump]
  uplevel $self $args
  set after [$self dump]
  $self initUndoRedo $before $after
}