updateAtts

$line updateAtts
updates attributes on canvas

obj method line updateAtts {} {
  set tag line$self
  $self canvas itemconfigure $tag\
    -capstyle round\
    -joinstyle miter\
    -disabledstipple gray25
  $self configure\
    -width [$self cget -width]\
    -outline [$self cget -outline]\
    -smooth [$self cget -smooth]
}

© Wolf-Dieter Busch | Home | Sitemap | Urheber | A-Z