canvasItemOrder

$group canvasItemOrder: returns list of canvas item according to stack order.

obj method group canvasItemOrder {} {
  lappend result
  foreach item [$self canvas find all] {
    foreach tag [$self canvas gettags $item] {
      if {[regexp {(line|fill)(::.*)} $tag - class obj]} then {
        if {[$obj topgroup] eq $self} then {
          lappend result $tag
        }
      }
    }
  }
  set result
}