updateAtts

$fill updateAtts: updates attributes on canvas

obj method fill updateAtts {} {
  set tag fill$self
  $self configure -fill [$self cget -fill]
  $self canvas itemconfigure $tag\
    -disabledstipple gray25\
    -outline ""\
    -joinstyle miter\
    -width 0.0
}