The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#############################################################################
## 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
%}