2 * This file was generated automatically by ExtUtils::ParseXS version 2.2202 from the
3 * contents of MDI.xs. Do not edit this file, edit MDI.xs instead.
5 * ANY CHANGES MADE HERE WILL BE LOST!
9 /////////////////////////////////////////////////////////////////////////////
10 // Name: ext/mdi/MDI.xs
11 // Purpose: XS for MDI
12 // Author: Mattia Barbon
14 // Created: 06/09/2001
15 // RCS-ID: $Id: MDI.xs 2057 2007-06-18 23:03:00Z mbarbon $
16 // Copyright: (c) 2001-2002, 2004 Mattia Barbon
17 // Licence: This program is free software; you can redistribute it and/or
18 // modify it under the same terms as Perl itself
19 /////////////////////////////////////////////////////////////////////////////
21 #define PERL_NO_GET_CONTEXT
23 #include "cpp/wxapi.h"
27 #ifndef PERL_UNUSED_VAR
28 # define PERL_UNUSED_VAR(var) if (0) var = var
31 #ifndef PERL_ARGS_ASSERT_CROAK_XS_USAGE
32 #define PERL_ARGS_ASSERT_CROAK_XS_USAGE assert(cv); assert(params)
34 /* prototype to pass -Wmissing-prototypes */
36 S_croak_xs_usage(pTHX_ const CV *const cv, const char *const params);
39 S_croak_xs_usage(pTHX_ const CV *const cv, const char *const params)
41 const GV *const gv = CvGV(cv);
43 PERL_ARGS_ASSERT_CROAK_XS_USAGE;
46 const char *const gvname = GvNAME(gv);
47 const HV *const stash = GvSTASH(gv);
48 const char *const hvname = stash ? HvNAME(stash) : NULL;
51 Perl_croak(aTHX_ "Usage: %s::%s(%s)", hvname, gvname, params);
53 Perl_croak(aTHX_ "Usage: %s(%s)", gvname, params);
55 /* Pants. I don't think that it should be possible to get here. */
56 Perl_croak(aTHX_ "Usage: CODE(0x%"UVxf")(%s)", PTR2UV(cv), params);
59 #undef PERL_ARGS_ASSERT_CROAK_XS_USAGE
61 #ifdef PERL_IMPLICIT_CONTEXT
62 #define croak_xs_usage(a,b) S_croak_xs_usage(aTHX_ a,b)
64 #define croak_xs_usage S_croak_xs_usage
69 /* NOTE: the prototype of newXSproto() is different in versions of perls,
70 * so we define a portable version of newXSproto()
73 #define newXSproto_portable(name, c_impl, file, proto) newXS_flags(name, c_impl, file, proto, 0)
75 #define newXSproto_portable(name, c_impl, file, proto) (PL_Sv=(SV*)newXS(name, c_impl, file), sv_setpv(PL_Sv, proto), (CV*)PL_Sv)
76 #endif /* !defined(newXS_flags) */
79 /* INCLUDE: Including 'XS/MDIChildFrame.xs' from 'MDI.xs' */
82 /* INCLUDE: Including 'XS/MDIParentFrame.xs' from 'XS/MDIChildFrame.xs' */
84 #if wxPERL_USE_MDI_ARCHITECTURE
87 #include "cpp/overload.h"
88 #define XSubPPtmpAAAA 1
91 XS(XS_Wx__MDIParentFrame_new); /* prototype to pass -Wmissing-prototypes */
92 XS(XS_Wx__MDIParentFrame_new)
99 PERL_UNUSED_VAR(cv); /* -W */
100 PERL_UNUSED_VAR(ax); /* -Wall */
104 MATCH_VOIDM_REDISP( newDefault )
105 MATCH_ANY_REDISP( newFull )
106 END_OVERLOAD( "Wx::MDIParentFrame::new" )
113 XS(XS_Wx__MDIParentFrame_newDefault); /* prototype to pass -Wmissing-prototypes */
114 XS(XS_Wx__MDIParentFrame_newDefault)
122 croak_xs_usage(cv, "CLASS");
124 PlClassName CLASS = wxPli_get_class( aTHX_ ST(0) );
125 wxMDIParentFrame * RETVAL;
126 RETVAL = new wxPliMDIParentFrame( CLASS );
127 ST(0) = sv_newmortal();
128 wxPli_object_2_sv( aTHX_ ST(0), RETVAL );
135 XS(XS_Wx__MDIParentFrame_newFull); /* prototype to pass -Wmissing-prototypes */
136 XS(XS_Wx__MDIParentFrame_newFull)
143 if (items < 4 || items > 8)
144 croak_xs_usage(cv, "CLASS, parent, id, title, pos = wxDefaultPosition, size = wxDefaultSize, style = wxDEFAULT_FRAME_STYLE|wxVSCROLL|wxHSCROLL, name = wxFrameNameStr");
146 PlClassName CLASS = wxPli_get_class( aTHX_ ST(0) );
147 wxWindow* parent = (wxWindow *) wxPli_sv_2_object( aTHX_ ST(1), "Wx::Window" );
148 wxWindowID id = wxPli_get_wxwindowid( aTHX_ ST(2) );
154 wxMDIParentFrame * RETVAL;
156 WXSTRING_INPUT( title, wxString, ST(3) );
159 pos = wxDefaultPosition;
161 pos = wxPli_sv_2_wxpoint( aTHX_ ST(4) );
165 size = wxDefaultSize;
167 size = wxPli_sv_2_wxsize( aTHX_ ST(5) );
171 style = wxDEFAULT_FRAME_STYLE|wxVSCROLL|wxHSCROLL;
173 style = (long)SvIV(ST(6));
177 name = wxFrameNameStr;
179 WXSTRING_INPUT( name, wxString, ST(7) );
181 RETVAL = new wxPliMDIParentFrame( CLASS );
182 RETVAL->Create( parent, id, title, pos, size, style, name );
183 ST(0) = sv_newmortal();
184 wxPli_object_2_sv( aTHX_ ST(0), RETVAL );
191 XS(XS_Wx__MDIParentFrame_Create); /* prototype to pass -Wmissing-prototypes */
192 XS(XS_Wx__MDIParentFrame_Create)
199 if (items < 4 || items > 8)
200 croak_xs_usage(cv, "THIS, parent, id, title, pos = wxDefaultPosition, size = wxDefaultSize, style = wxDEFAULT_FRAME_STYLE|wxVSCROLL|wxHSCROLL, name = wxFrameNameStr");
202 wxWindow* parent = (wxWindow *) wxPli_sv_2_object( aTHX_ ST(1), "Wx::Window" );
203 wxWindowID id = wxPli_get_wxwindowid( aTHX_ ST(2) );
209 wxMDIParentFrame * THIS = (wxMDIParentFrame *) wxPli_sv_2_object( aTHX_ ST(0), "Wx::MDIParentFrame" );
212 WXSTRING_INPUT( title, wxString, ST(3) );
215 pos = wxDefaultPosition;
217 pos = wxPli_sv_2_wxpoint( aTHX_ ST(4) );
221 size = wxDefaultSize;
223 size = wxPli_sv_2_wxsize( aTHX_ ST(5) );
227 style = wxDEFAULT_FRAME_STYLE|wxVSCROLL|wxHSCROLL;
229 style = (long)SvIV(ST(6));
233 name = wxFrameNameStr;
235 WXSTRING_INPUT( name, wxString, ST(7) );
238 RETVAL = THIS->Create(parent, id, title, pos, size, style, name);
239 ST(0) = boolSV(RETVAL);
246 XS(XS_Wx__MDIParentFrame_ActivateNext); /* prototype to pass -Wmissing-prototypes */
247 XS(XS_Wx__MDIParentFrame_ActivateNext)
255 croak_xs_usage(cv, "THIS");
257 wxMDIParentFrame * THIS = (wxMDIParentFrame *) wxPli_sv_2_object( aTHX_ ST(0), "Wx::MDIParentFrame" );
259 THIS->ActivateNext();
265 XS(XS_Wx__MDIParentFrame_ActivatePrevious); /* prototype to pass -Wmissing-prototypes */
266 XS(XS_Wx__MDIParentFrame_ActivatePrevious)
274 croak_xs_usage(cv, "THIS");
276 wxMDIParentFrame * THIS = (wxMDIParentFrame *) wxPli_sv_2_object( aTHX_ ST(0), "Wx::MDIParentFrame" );
278 THIS->ActivatePrevious();
284 XS(XS_Wx__MDIParentFrame_ArrangeIcons); /* prototype to pass -Wmissing-prototypes */
285 XS(XS_Wx__MDIParentFrame_ArrangeIcons)
293 croak_xs_usage(cv, "THIS");
295 wxMDIParentFrame * THIS = (wxMDIParentFrame *) wxPli_sv_2_object( aTHX_ ST(0), "Wx::MDIParentFrame" );
297 THIS->ArrangeIcons();
303 XS(XS_Wx__MDIParentFrame_Cascade); /* prototype to pass -Wmissing-prototypes */
304 XS(XS_Wx__MDIParentFrame_Cascade)
312 croak_xs_usage(cv, "THIS");
314 wxMDIParentFrame * THIS = (wxMDIParentFrame *) wxPli_sv_2_object( aTHX_ ST(0), "Wx::MDIParentFrame" );
322 XS(XS_Wx__MDIParentFrame_GetActiveChild); /* prototype to pass -Wmissing-prototypes */
323 XS(XS_Wx__MDIParentFrame_GetActiveChild)
331 croak_xs_usage(cv, "THIS");
333 wxMDIParentFrame * THIS = (wxMDIParentFrame *) wxPli_sv_2_object( aTHX_ ST(0), "Wx::MDIParentFrame" );
334 wxMDIChildFrame * RETVAL;
336 RETVAL = THIS->GetActiveChild();
337 ST(0) = sv_newmortal();
338 wxPli_object_2_sv( aTHX_ ST(0), RETVAL );
344 #ifdef __WXUNIVERSAL__
345 #define XSubPPtmpAAAB 1
348 XS(XS_Wx__MDIParentFrame_GetClientWindow); /* prototype to pass -Wmissing-prototypes */
349 XS(XS_Wx__MDIParentFrame_GetClientWindow)
357 croak_xs_usage(cv, "THIS");
359 wxMDIParentFrame * THIS = (wxMDIParentFrame *) wxPli_sv_2_object( aTHX_ ST(0), "Wx::MDIParentFrame" );
360 wxGenericMDIClientWindow * RETVAL;
362 RETVAL = THIS->GetClientWindow();
363 ST(0) = sv_newmortal();
364 wxPli_object_2_sv( aTHX_ ST(0), RETVAL );
371 #if WXPERL_W_VERSION_GE( 2, 9, 0 )
372 #define XSubPPtmpAAAC 1
375 XS(XS_Wx__MDIParentFrame_GetClientWindow); /* prototype to pass -Wmissing-prototypes */
376 XS(XS_Wx__MDIParentFrame_GetClientWindow)
384 croak_xs_usage(cv, "THIS");
386 wxMDIParentFrame * THIS = (wxMDIParentFrame *) wxPli_sv_2_object( aTHX_ ST(0), "Wx::MDIParentFrame" );
387 wxMDIClientWindowBase * RETVAL;
389 RETVAL = THIS->GetClientWindow();
390 ST(0) = sv_newmortal();
391 wxPli_object_2_sv( aTHX_ ST(0), RETVAL );
398 #define XSubPPtmpAAAD 1
401 XS(XS_Wx__MDIParentFrame_GetClientWindow); /* prototype to pass -Wmissing-prototypes */
402 XS(XS_Wx__MDIParentFrame_GetClientWindow)
410 croak_xs_usage(cv, "THIS");
412 wxMDIParentFrame * THIS = (wxMDIParentFrame *) wxPli_sv_2_object( aTHX_ ST(0), "Wx::MDIParentFrame" );
413 wxMDIClientWindow * RETVAL;
415 RETVAL = THIS->GetClientWindow();
416 ST(0) = sv_newmortal();
417 wxPli_object_2_sv( aTHX_ ST(0), RETVAL );
425 #if ( !defined(__WXGTK__) && !defined(__WXMAC__) && !defined(__WXMOTIF__) ) \
426 || defined(__WXPERL_FORCE__)
427 #define XSubPPtmpAAAE 1
430 XS(XS_Wx__MDIParentFrame_GetWindowMenu); /* prototype to pass -Wmissing-prototypes */
431 XS(XS_Wx__MDIParentFrame_GetWindowMenu)
439 croak_xs_usage(cv, "THIS");
441 wxMDIParentFrame * THIS = (wxMDIParentFrame *) wxPli_sv_2_object( aTHX_ ST(0), "Wx::MDIParentFrame" );
444 RETVAL = THIS->GetWindowMenu();
445 ST(0) = sv_newmortal();
446 wxPli_object_2_sv( aTHX_ ST(0), RETVAL );
453 XS(XS_Wx__MDIParentFrame_SetWindowMenu); /* prototype to pass -Wmissing-prototypes */
454 XS(XS_Wx__MDIParentFrame_SetWindowMenu)
462 croak_xs_usage(cv, "THIS, menu");
464 wxMenu* menu = (wxMenu *) wxPli_sv_2_object( aTHX_ ST(1), "Wx::Menu" );
465 wxMDIParentFrame * THIS = (wxMDIParentFrame *) wxPli_sv_2_object( aTHX_ ST(0), "Wx::MDIParentFrame" );
467 THIS->SetWindowMenu(menu);
473 #if WXPERL_W_VERSION_GE( 2, 5, 4 )
474 #define XSubPPtmpAAAF 1
477 XS(XS_Wx__MDIParentFrame_Tile); /* prototype to pass -Wmissing-prototypes */
478 XS(XS_Wx__MDIParentFrame_Tile)
485 if (items < 1 || items > 2)
486 croak_xs_usage(cv, "THIS, orient = wxHORIZONTAL");
488 wxOrientation orient;
489 wxMDIParentFrame * THIS = (wxMDIParentFrame *) wxPli_sv_2_object( aTHX_ ST(0), "Wx::MDIParentFrame" );
492 orient = wxHORIZONTAL;
494 orient = (wxOrientation)SvIV(ST(1));
503 #define XSubPPtmpAAAG 1
506 XS(XS_Wx__MDIParentFrame_Tile); /* prototype to pass -Wmissing-prototypes */
507 XS(XS_Wx__MDIParentFrame_Tile)
515 croak_xs_usage(cv, "THIS");
517 wxMDIParentFrame * THIS = (wxMDIParentFrame *) wxPli_sv_2_object( aTHX_ ST(0), "Wx::MDIParentFrame" );
527 /* INCLUDE: Returning to 'XS/MDIChildFrame.xs' from 'XS/MDIParentFrame.xs' */
529 #if wxPERL_USE_MDI_ARCHITECTURE
531 #define XSubPPtmpAAAH 1
534 XS(XS_Wx__MDIChildFrame_new); /* prototype to pass -Wmissing-prototypes */
535 XS(XS_Wx__MDIChildFrame_new)
542 if (items < 4 || items > 8)
543 croak_xs_usage(cv, "CLASS, parent, id, title, pos = wxDefaultPosition, size = wxDefaultSize, style = wxDEFAULT_FRAME_STYLE, name = wxFrameNameStr");
545 wxMDIParentFrame* parent = (wxMDIParentFrame *) wxPli_sv_2_object( aTHX_ ST(1), "Wx::MDIParentFrame" );
546 wxWindowID id = wxPli_get_wxwindowid( aTHX_ ST(2) );
552 char * CLASS = (char *)SvPV_nolen(ST(0));
553 wxMDIChildFrame * RETVAL;
555 WXSTRING_INPUT( title, wxString, ST(3) );
558 pos = wxDefaultPosition;
560 pos = wxPli_sv_2_wxpoint( aTHX_ ST(4) );
564 size = wxDefaultSize;
566 size = wxPli_sv_2_wxsize( aTHX_ ST(5) );
570 style = wxDEFAULT_FRAME_STYLE;
572 style = (long)SvIV(ST(6));
576 name = wxFrameNameStr;
578 WXSTRING_INPUT( name, wxString, ST(7) );
580 RETVAL = new wxPliMDIChildFrame( CLASS, parent, id, title, pos, size,
582 ST(0) = sv_newmortal();
583 wxPli_object_2_sv( aTHX_ ST(0), RETVAL );
590 XS(XS_Wx__MDIChildFrame_Activate); /* prototype to pass -Wmissing-prototypes */
591 XS(XS_Wx__MDIChildFrame_Activate)
599 croak_xs_usage(cv, "THIS");
601 wxMDIChildFrame * THIS = (wxMDIChildFrame *) wxPli_sv_2_object( aTHX_ ST(0), "Wx::MDIChildFrame" );
608 #if !defined(__WXGTK__) || defined(__WXPERL_FORCE__)
609 #define XSubPPtmpAAAI 1
612 XS(XS_Wx__MDIChildFrame_Maximize); /* prototype to pass -Wmissing-prototypes */
613 XS(XS_Wx__MDIChildFrame_Maximize)
621 croak_xs_usage(cv, "THIS");
623 wxMDIChildFrame * THIS = (wxMDIChildFrame *) wxPli_sv_2_object( aTHX_ ST(0), "Wx::MDIChildFrame" );
632 XS(XS_Wx__MDIChildFrame_Restore); /* prototype to pass -Wmissing-prototypes */
633 XS(XS_Wx__MDIChildFrame_Restore)
641 croak_xs_usage(cv, "THIS");
643 wxMDIChildFrame * THIS = (wxMDIChildFrame *) wxPli_sv_2_object( aTHX_ ST(0), "Wx::MDIChildFrame" );
652 /* INCLUDE: Returning to 'MDI.xs' from 'XS/MDIChildFrame.xs' */
654 #if defined(__WXMSW__)
656 #define XS( name ) WXXS( name )
661 XS(boot_Wx__MDI); /* prototype to pass -Wmissing-prototypes */
669 #if (PERL_REVISION == 5 && PERL_VERSION < 9)
670 char* file = __FILE__;
672 const char* file = __FILE__;
675 PERL_UNUSED_VAR(cv); /* -W */
676 PERL_UNUSED_VAR(items); /* -W */
677 XS_VERSION_BOOTCHECK ;
680 newXS("Wx::MDIParentFrame::new", XS_Wx__MDIParentFrame_new, file);
681 newXS("Wx::MDIParentFrame::newDefault", XS_Wx__MDIParentFrame_newDefault, file);
682 newXS("Wx::MDIParentFrame::newFull", XS_Wx__MDIParentFrame_newFull, file);
683 newXS("Wx::MDIParentFrame::Create", XS_Wx__MDIParentFrame_Create, file);
684 newXS("Wx::MDIParentFrame::ActivateNext", XS_Wx__MDIParentFrame_ActivateNext, file);
685 newXS("Wx::MDIParentFrame::ActivatePrevious", XS_Wx__MDIParentFrame_ActivatePrevious, file);
686 newXS("Wx::MDIParentFrame::ArrangeIcons", XS_Wx__MDIParentFrame_ArrangeIcons, file);
687 newXS("Wx::MDIParentFrame::Cascade", XS_Wx__MDIParentFrame_Cascade, file);
688 newXS("Wx::MDIParentFrame::GetActiveChild", XS_Wx__MDIParentFrame_GetActiveChild, file);
690 newXS("Wx::MDIParentFrame::GetClientWindow", XS_Wx__MDIParentFrame_GetClientWindow, file);
693 newXS("Wx::MDIParentFrame::GetClientWindow", XS_Wx__MDIParentFrame_GetClientWindow, file);
696 newXS("Wx::MDIParentFrame::GetClientWindow", XS_Wx__MDIParentFrame_GetClientWindow, file);
699 newXS("Wx::MDIParentFrame::GetWindowMenu", XS_Wx__MDIParentFrame_GetWindowMenu, file);
700 newXS("Wx::MDIParentFrame::SetWindowMenu", XS_Wx__MDIParentFrame_SetWindowMenu, file);
703 newXS("Wx::MDIParentFrame::Tile", XS_Wx__MDIParentFrame_Tile, file);
706 newXS("Wx::MDIParentFrame::Tile", XS_Wx__MDIParentFrame_Tile, file);
710 newXS("Wx::MDIChildFrame::new", XS_Wx__MDIChildFrame_new, file);
711 newXS("Wx::MDIChildFrame::Activate", XS_Wx__MDIChildFrame_Activate, file);
713 newXS("Wx::MDIChildFrame::Maximize", XS_Wx__MDIChildFrame_Maximize, file);
715 newXS("Wx::MDIChildFrame::Restore", XS_Wx__MDIChildFrame_Restore, file);
718 /* Initialisation Section */
720 INIT_PLI_HELPERS( wx_pli_helpers );
741 /* End of Initialisation Section */
743 #if (PERL_REVISION == 5 && PERL_VERSION >= 9)
745 call_list(PL_scopestack_ix, PL_unitcheckav);