moveObj

$fill moveObj x y baseX baseY mode both

moves object interactively

obj method fill moveObj {x y baseX baseY {mode both}} {
  $self lines moveObj $x $y $baseX $baseY $mode no
  $self draw
}

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