canvasx

$canvaseditor canvasx num
returns floating point canvas coord x

obj method canvaseditor canvasx x {
   set nachkomma [expr {$x - round($x)}]
   expr {([$self canvas canvasx $x] + $nachkomma) / [my zoom]}
}

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