1 #############################################################################
2 ## Name: XS/BitmapButton.xs
3 ## Purpose: XS for Wx::BitmapButton
4 ## Author: Mattia Barbon
7 ## RCS-ID: $Id: BitmapButton.xs 2057 2007-06-18 23:03:00Z mbarbon $
8 ## Copyright: (c) 2000-2003, 2006 Mattia Barbon
9 ## Licence: This program is free software; you can redistribute it and/or
10 ## modify it under the same terms as Perl itself
11 #############################################################################
13 MODULE=Wx PACKAGE=Wx::BitmapButton
15 #include <wx/bmpbuttn.h>
21 MATCH_VOIDM_REDISP( newDefault )
22 MATCH_ANY_REDISP( newFull )
23 END_OVERLOAD( "Wx::BitmapButton::new" )
29 RETVAL = new wxBitmapButton();
30 wxPli_create_evthandler( aTHX_ RETVAL, CLASS );
34 newFull( CLASS, parent, id, bitmap, pos = wxDefaultPosition, size = wxDefaultSize, style = wxBU_AUTODRAW, validator = (wxValidator*)&wxDefaultValidator, name = wxButtonNameStr )
42 wxValidator* validator
45 RETVAL = new wxBitmapButton( parent, id, *bitmap, pos, size,
46 style, *validator, name );
47 wxPli_create_evthandler( aTHX_ RETVAL, CLASS );
51 wxBitmapButton::Create( parent, id, bitmap, pos = wxDefaultPosition, size = wxDefaultSize, style = wxBU_AUTODRAW, validator = (wxValidator*)&wxDefaultValidator, name = wxButtonNameStr )
58 wxValidator* validator
60 C_ARGS: parent, id, *bitmap, pos, size, style, *validator, name
63 wxBitmapButton::GetBitmapDisabled()
65 RETVAL = new wxBitmap( THIS->GetBitmapDisabled() );
70 wxBitmapButton::GetBitmapFocus()
72 RETVAL = new wxBitmap( THIS->GetBitmapFocus() );
76 #if WXPERL_W_VERSION_GE( 2, 7, 0 )
79 wxBitmapButton::GetBitmapHover()
81 RETVAL = new wxBitmap( THIS->GetBitmapHover() );
88 wxBitmapButton::GetBitmapLabel()
90 RETVAL = new wxBitmap( THIS->GetBitmapLabel() );
95 wxBitmapButton::GetBitmapSelected()
97 RETVAL = new wxBitmap( THIS->GetBitmapSelected() );
102 wxBitmapButton::SetBitmapDisabled( bitmap )
107 wxBitmapButton::SetBitmapLabel( bitmap )
112 wxBitmapButton::SetBitmapSelected( bitmap )
117 wxBitmapButton::SetBitmapFocus( bitmap )
121 #if WXPERL_W_VERSION_GE( 2, 7, 0 )
124 wxBitmapButton::SetBitmapHover( bitmap )