changeLineColor

$canvaseditor changeLineColor: interactively changes line color of selected objects

obj method canvaseditor changeLineColor {} {
  if {[my lastLineColor] eq ""} then {
    set lastLinecolor white
  } else {
    set lastLineColor [my lastLineColor]
  }
  set color [tk_chooseColor\
      -title Line -initialcolor $lastLineColor]
  my lastLineColor $color
  set before [$self undoRedoCode]
  $self selected changeLineColor $color
  set after [$self undoRedoCode]
  $self initUndoRedo $before $after
}