File: MDI.xs

package info (click to toggle)
libwx-perl 1%3A0.9932-5
  • links: PTS, VCS
  • area: main
  • in suites: bullseye, buster
  • size: 4,416 kB
  • sloc: cpp: 11,044; perl: 8,596; ansic: 711; makefile: 49
file content (33 lines) | stat: -rw-r--r-- 836 bytes parent folder | download | duplicates (7)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
/////////////////////////////////////////////////////////////////////////////
// Name:        ext/mdi/MDI.xs
// Purpose:     XS for MDI
// Author:      Mattia Barbon
// Modified by:
// Created:     06/09/2001
// RCS-ID:      $Id: MDI.xs 2057 2007-06-18 23:03:00Z mbarbon $
// Copyright:   (c) 2001-2002, 2004 Mattia Barbon
// Licence:     This program is free software; you can redistribute it and/or
//              modify it under the same terms as Perl itself
/////////////////////////////////////////////////////////////////////////////

#define PERL_NO_GET_CONTEXT

#include "cpp/wxapi.h"

#undef THIS

MODULE=Wx__MDI

BOOT:
  INIT_PLI_HELPERS( wx_pli_helpers );

INCLUDE: XS/MDIChildFrame.xs
INCLUDE: XS/MDIParentFrame.xs

#  //FIXME//tricky
#if defined(__WXMSW__)
#undef XS
#define XS( name ) WXXS( name )
#endif

MODULE=Wx__MDI