tagCurrentToObject

$canvaseditor tagCurrentToObject: returns compound object under mouse pointer

obj method canvaseditor tagCurrentToObject {} {
  foreach item [$self canvas find withtag current] {
    foreach tag [$self canvas gettags $item] {
      if {[regexp (?:line|fill)(::.*) $tag - obj]} then {
        return [$obj topgroup]
      }
    }
  }
}