OpenEuphoria

Suggestion for new win32lib routine

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

Derek,

I added a routine to my win32lib to delete all children for a tree view 
item.  I thought this might be worth considering as an addition to the 
library.  I placed this routine immediately after deleteItem.

Jonas

global procedure deleteTVChildren( atom id, integer pos )

    atom iItem

    -- Is a treeview?
    if window_type[ id ] = TreeView then
        -- take care of any children
        iItem = find(pos, tvitem_parent)
        while iItem do
            VOID = deleteItem( id, iItem )
	        iItem = find(pos, tvitem_parent)
        end while
    end if

end procedure