[perl-win32-gui-hackers] GetItem/ItemInfo Method for the treeview

[Jeremy W. <jez...@ho...>]

The doc's say it it should return a hash, but it actually returns an array.=
 Bug or doco shortfall?


    #######################################################################=
####
    # (@)METHOD:GetItem(NODE)
    # (@)METHOD:ItemInfo(NODE)
    # Returns an associative array of information about the given NODE:
    #     -children
    #     -image
    #     -parent
    #     -selectedimage
    #     -state
    #     -text
void
GetItem(handle,item)
    HWND handle
    HTREEITEM item
ALIAS:
    Win32::GUI::TreeView::ItemInfo =3D 1
PREINIT:
    TV_ITEM tv_item;
    char pszText[1024];
PPCODE:
    ZeroMemory(&tv_item, sizeof(TV_ITEM));
    tv_item.hItem =3D item;
    tv_item.mask =3D TVIF_CHILDREN | TVIF_HANDLE | TVIF_IMAGE
                 | TVIF_PARAM | TVIF_SELECTEDIMAGE
                 | TVIF_TEXT | TVIF_STATE;
    tv_item.pszText =3D pszText;
    tv_item.cchTextMax =3D 1024;
    if(TreeView_GetItem(handle, &tv_item)) {
        EXTEND(SP, 12);
        XST_mPV(0, "-text");
        XST_mPV(1, tv_item.pszText);
        XST_mPV(2, "-image");
        XST_mIV(3, tv_item.iImage);
        XST_mPV(4, "-selectedimage");
        XST_mIV(5, tv_item.iSelectedImage);
        XST_mPV(6, "-children");
        XST_mIV(7, tv_item.cChildren);
        XST_mPV(8, "-parent");
        XST_mIV(9, (long) TreeView_GetParent(handle, item));
        XST_mPV(10, "-state");
        XST_mIV(11, tv_item.state);
        XSRETURN(12);
    } else {
        XSRETURN_UNDEF;
    }

_________________________________________________________________
Free games, great prizes - get gaming at Gamesbox.=20
http://www.searchgamesbox.com=