selectedStackSequence

$canvaseditor selectedStackSequence: returns list of low-level objects on canvas
$canvaseditor selectedStackSequence yes: returns list of canvas tags

obj method canvaseditor selectedStackSequence {{tagMode no}} {
  lappend result
  foreach tag [$self stackSequence yes] {
    regexp {(fill|line)(::.*)} $tag - class obj
    if {[$obj topgroup] in [my selection]} then {
      if {$tagMode} then {
        lappend result $tag
      } else {
        lappend result $obj
      }
    }
  }
  set result
}