#############################################################################
## Name: XS/Icon.xs
## Purpose: XS for Wx::Icon
## Author: Mattia Barbon
## Modified by:
## Created: 29/10/2000
## RCS-ID: $Id: Icon.xs 2517 2008-11-30 20:14:22Z mbarbon $
## Copyright: (c) 2000-2004, 2006-2008 Mattia Barbon
## Licence: This program is free software; you can redistribute it and/or
## modify it under the same terms as Perl itself
#############################################################################
#include <wx/icon.h>
MODULE=Wx PACKAGE=Wx
#if !defined( __WXMSW__ )
#include "wxpl.xpm"
#endif
wxIcon*
GetWxPerlIcon( get_small = false )
bool get_small
CODE:
#if defined( __WXMSW__ )
int sz = get_small ? 16 : 32;
RETVAL = new wxIcon( wxT("wxplicon"), wxBITMAP_TYPE_ICO_RESOURCE, -1, -1 );
if( !RETVAL->Ok() )
croak( "Unable to load icon" );
#else
char** image = (char**)( get_small ? wxpl16_xpm : wxpl32_xpm );
RETVAL = new wxIcon( image );
#endif
OUTPUT:
RETVAL
MODULE=Wx PACKAGE=Wx::Icon
## DECLARE_OVERLOAD( wilo, Wx::IconLocation )
void
wxIcon::new( ... )
PPCODE:
BEGIN_OVERLOAD()
MATCH_VOIDM_REDISP( newNull )
MATCH_REDISP( wxPliOvl_wilo, newLocation )
MATCH_REDISP_COUNT_ALLOWMORE( wxPliOvl_s_n_n_n, newFile, 2 )
END_OVERLOAD( Wx::Icon::new )
wxIcon*
newNull( CLASS )
SV* CLASS
CODE:
RETVAL = new wxIcon();
OUTPUT:
RETVAL
wxIcon*
newFile( CLASS, name, type, desW = -1, desH = -1 )
SV* CLASS
wxString name
long type
int desW
int desH
CODE:
#if defined( __WXMOTIF__ ) || defined( __WXX11__ ) || defined( __WXGTK__ ) \
|| WXPERL_W_VERSION_GE( 2, 9, 0 )
RETVAL = new wxIcon( name, wxBitmapType(type), desW, desH );
#else
RETVAL = new wxIcon( name, type, desW, desH );
#endif
OUTPUT:
RETVAL
#if defined( __WXGTK__ ) || defined( __WXPERL_FORCE__ )
##wxIcon*
##newFromBits( bits, width, height, depth = 1 )
## SV* bits
## int width
## int height
## int depth
## PREINIT:
## void* buffer = SvPV_nolen( bits );
## CODE:
## RETVAL = new wxIcon( buffer, width, height, depth );
## OUTPUT:
## RETVAL
#endif
wxIcon*
newFromXPM( CLASS, data )
SV* CLASS
SV* data
PREINIT:
char** xpm_data;
size_t i, n = wxPli_av_2_charparray( aTHX_ data, &xpm_data );
CODE:
RETVAL = new wxIcon( xpm_data );
for( i = 0; i < n; ++i )
free( xpm_data[i] );
OUTPUT:
RETVAL
#if WXPERL_W_VERSION_GE( 2, 5, 2 )
wxIcon*
newLocation( CLASS, location )
SV* CLASS
wxIconLocation* location
CODE:
RETVAL = new wxIcon( *location );
OUTPUT: RETVAL
#endif
static void
wxIcon::CLONE()
CODE:
wxPli_thread_sv_clone( aTHX_ CLASS, (wxPliCloneSV)wxPli_detach_object );
## // thread OK
void
wxIcon::DESTROY()
CODE:
wxPli_thread_sv_unregister( aTHX_ "Wx::Icon", THIS, ST(0) );
delete THIS;
bool
wxIcon::LoadFile( name, type )
wxString name
long type
CODE:
#if defined( __WXMOTIF__ )
#if WXPERL_W_VERSION_GE( 2, 5, 1 )
RETVAL = THIS->LoadFile( name, wxBitmapType(type), -1, -1 );
#else
RETVAL = THIS->LoadFile( name, type, -1, -1 );
#endif
#else
#if defined( __WXX11__ ) || defined( __WXMAC__ ) || defined( __WXGTK__ ) \
|| ( defined(__WXMSW__) && WXPERL_W_VERSION_GE( 2, 9, 0 ) )
RETVAL = THIS->LoadFile( name, wxBitmapType(type) );
#else
RETVAL = THIS->LoadFile( name, type );
#endif
#endif
OUTPUT:
RETVAL
bool
wxIcon::Ok()
#if WXPERL_W_VERSION_GE( 2, 8, 0 )
bool
wxIcon::IsOk()
#endif
void
wxIcon::CopyFromBitmap( bitmap )
wxBitmap* bitmap
C_ARGS: *bitmap
#if defined( __WXMSW__ ) || defined( __WXPERL_FORCE__ )
int
wxIcon::GetDepth()
int
wxIcon::GetHeight()
int
wxIcon::GetWidth()
void
wxIcon::SetDepth( depth )
int depth
void
wxIcon::SetHeight( height )
int height
void
wxIcon::SetWidth( width )
int width
#endif