############################################################################# ## Name: XS/Choicebook.xsp ## Purpose: XS++ for Wx::Choicebook ## Author: Mattia Barbon ## Modified by: ## Created: 04/01/2005 ## RCS-ID: $Id: Choicebook.xsp 2079 2007-07-08 21:18:04Z mbarbon $ ## Copyright: (c) 2005, 2006 Mattia Barbon ## Licence: This program is free software; you can redistribute it and/or ## modify it under the same terms as Perl itself ############################################################################# %module{Wx}; %typemap{wxChoicebook*}{simple}; %{ #if WXPERL_W_VERSION_GE( 2, 5, 3 ) #include <wx/choice.h> #include <wx/choicebk.h> %} %name{Wx::Choicebook} class wxChoicebook { %name{newDefault} wxChoicebook() %code{% RETVAL = new wxChoicebook(); wxPli_create_evthandler( aTHX_ RETVAL, CLASS ); %}; %name{newFull} wxChoicebook(wxWindow *parent, wxWindowID id, const wxPoint& pos = wxDefaultPosition, const wxSize& size = wxDefaultSize, long style = 0, const wxString& name = wxEmptyString) %code{% RETVAL = new wxChoicebook( parent, id, pos, size, style, name ); wxPli_create_evthandler( aTHX_ RETVAL, CLASS ); %}; bool Create(wxWindow *parent, wxWindowID id, const wxPoint& pos = wxDefaultPosition, const wxSize& size = wxDefaultSize, long style = 0, const wxString& name = wxEmptyString); bool IsVertical(); #if WXPERL_W_VERSION_GE( 2, 6, 0 ) wxChoice* GetChoiceCtrl() const; #endif }; %{ void new( ... ) PPCODE: BEGIN_OVERLOAD() MATCH_VOIDM_REDISP( newDefault ) MATCH_ANY_REDISP( newFull ) END_OVERLOAD( "Wx::Choicebook::new" ) %} %{ #endif %}