[perl-win32-gui-hackers] New GetIcon method for ImageList.xs

[Jez White]

Hi,

I'm trying to create a new method, GetIcon for an image list. 

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/commctls/imagelist/functions/imagelist_geticon.asp

It's quite a handy method, the way I'm using it is to populate the status bar 
with a icon, straight from an imagelist.

I've got a version working, but I'm not sure if it's up to "standard"?

Cheers,

jez.

What I've got so far:

ImageList.xs

    ###########################################################################
    # (@)METHOD:_GetIcon(index, [flags])
int
_GetIcon(handle, index, flags)
    HIMAGELIST handle
    int index
    UINT flags
CODE:
    RETVAL = (LONG) ImageList_GetIcon(handle, index, flags);
OUTPUT:
    RETVAL

GUI.pm

sub GetIcon {
  my ($self,$id,$flags)[EMAIL PROTECTED];
  my $handle=$self->_GetIcon($id,$flags);
  if ($handle) {
    my $icon;
    $icon->{-handle} = $handle;
    bless($icon,'Win32::GUI::Icon');
    return $icon;
  }
  return undef;
  }