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 = 1
PREINIT:
TV_ITEM tv_item;
char pszText[1024];
PPCODE:
ZeroMemory(&tv_item, sizeof(TV_ITEM));
tv_item.hItem = item;
tv_item.mask = TVIF_CHILDREN | TVIF_HANDLE | TVIF_IMAGE
| TVIF_PARAM | TVIF_SELECTEDIMAGE
| TVIF_TEXT | TVIF_STATE;
tv_item.pszText = pszText;
tv_item.cchTextMax = 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.
http://www.searchgamesbox.com
-------------------------------------------------------------------------
Check out the new SourceForge.net Marketplace.
It's the best place to buy or sell services for
just about anything Open Source.
http://ad.doubleclick.net/clk;164216239;13503038;w?http://sf.net/marketplace
_______________________________________________
Perl-Win32-GUI-Hackers mailing list
Perl-Win32-GUI-Hackers@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-hackers
http://perl-win32-gui.sourceforge.net/
