The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#############################################################################
## Name:        ext/mdi/XS/MDIParentFrame.xs
## Purpose:     XS for Wx::MDIParentFrame
## Author:      Mattia Barbon
## Modified by:
## Created:     06/09/2001
## RCS-ID:      $Id: MDIParentFrame.xs 2517 2008-11-30 20:14:22Z mbarbon $
## Copyright:   (c) 2001-2002, 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
#############################################################################

#if wxPERL_USE_MDI_ARCHITECTURE

#include <wx/menu.h>
#include "cpp/mdi.h"
#include "cpp/overload.h"

MODULE=Wx PACKAGE=Wx::MDIParentFrame

void
new( ... )
  PPCODE:
    BEGIN_OVERLOAD()
        MATCH_VOIDM_REDISP( newDefault )
        MATCH_ANY_REDISP( newFull )
    END_OVERLOAD( "Wx::MDIParentFrame::new" )

wxMDIParentFrame*
newDefault( CLASS )
    PlClassName CLASS
  CODE:
    RETVAL = new wxPliMDIParentFrame( CLASS );
  OUTPUT: RETVAL

wxMDIParentFrame*
newFull( CLASS, parent, id, title, pos = wxDefaultPosition, size = wxDefaultSize, style = wxDEFAULT_FRAME_STYLE|wxVSCROLL|wxHSCROLL, name = wxFrameNameStr )
    PlClassName CLASS
    wxWindow* parent
    wxWindowID id
    wxString title
    wxPoint pos
    wxSize size
    long style
    wxString name
  CODE:
    RETVAL = new wxPliMDIParentFrame( CLASS );
    RETVAL->Create( parent, id, title, pos, size, style, name );
  OUTPUT:
    RETVAL

bool
wxMDIParentFrame::Create( parent, id, title, pos = wxDefaultPosition, size = wxDefaultSize, style = wxDEFAULT_FRAME_STYLE|wxVSCROLL|wxHSCROLL, name = wxFrameNameStr )
    wxWindow* parent
    wxWindowID id
    wxString title
    wxPoint pos
    wxSize size
    long style
    wxString name

void
wxMDIParentFrame::ActivateNext()

void
wxMDIParentFrame::ActivatePrevious()

void
wxMDIParentFrame::ArrangeIcons()

void
wxMDIParentFrame::Cascade()

wxMDIChildFrame*
wxMDIParentFrame::GetActiveChild()

#ifdef __WXUNIVERSAL__

wxGenericMDIClientWindow*
wxMDIParentFrame::GetClientWindow()

#else
#if WXPERL_W_VERSION_GE( 2, 9, 0 )

wxMDIClientWindowBase*
wxMDIParentFrame::GetClientWindow()

#else

wxMDIClientWindow*
wxMDIParentFrame::GetClientWindow()

#endif
#endif

#if ( !defined(__WXGTK__) && !defined(__WXMAC__) && !defined(__WXMOTIF__) ) \
    || defined(__WXPERL_FORCE__)

wxMenu*
wxMDIParentFrame::GetWindowMenu()

void
wxMDIParentFrame::SetWindowMenu( menu )
    wxMenu* menu

#endif

#if WXPERL_W_VERSION_GE( 2, 5, 4 )

void
wxMDIParentFrame::Tile( orient = wxHORIZONTAL )
    wxOrientation orient

#else


void
wxMDIParentFrame::Tile()

#endif

#endif