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