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)=@_;
  my $handle=$self->_GetIcon($id,$flags);
  if ($handle) {
    my $icon;
    $icon->{-handle} = $handle;
    bless($icon,'Win32::GUI::Icon');
    return $icon;
  }
  return undef;
  }