OpenEuphoria

Okay, here's another :)

• Posted by Jonas Temple <jktemple at yhti.net> Sep 25, 2002
• 373 views

Derek,

How about this routine which gives back all the children for a given 
tree view item?

Jonas

global function getTVChildren(atom id, integer pos)

    sequence children

    children = {}

    -- Is a treeview?
    if window_type[ id ] = TreeView then
        -- take care of any children
        for i = 1 to length(tvitem_parent) do
            if tvitem_parent[i] = pos then
                children &= i
                children &= getTVChildren(id, i)
            end if
        end for
    end if
    return children
end function