lefmostDot

$canvaseditor leftmostDot ?-gravity?: returns leftmost dot in selection

obj method canvaseditor leftmostDot args {
  foreach dot [$self dots -selected {*}$args] {
    dict set all [$dot cget -x] $dot
  }
  dict get $all [min {*}[dict keys $all]]
}