changeFillColor

$canvaseditor changeFillColor: interactively changes fill color of selected objects

obj method canvaseditor changeFillColor {} {
  if {[my lastFillColor] eq ""} then {
    set lastFillcolor white
  } else {
    set lastFillColor [my lastFillColor]
  }
  set color [tk_chooseColor\
      -title Fill -initialcolor $lastFillColor]
  set before [$self undoRedoCode]
  $self selected changeFillColor $color
  set after [$self undoRedoCode]
  $self initUndoRedo $before $after
}