uppermostDot

$canvaseditor uppermostDot ?-gravity?: returns uppermost dot in selection

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