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