git.maemo.org Git - pkg-perl/blob - deb-src/libwx-perl/libwx-perl-0.96/ext/mdi/MDI.xs

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Name:        ext/mdi/MDI.xs
   3 // Purpose:     XS for MDI
   4 // Author:      Mattia Barbon
   5 // Modified by:
   6 // Created:     06/09/2001
   7 // RCS-ID:      $Id: MDI.xs 2057 2007-06-18 23:03:00Z mbarbon $
   8 // Copyright:   (c) 2001-2002, 2004 Mattia Barbon
   9 // Licence:     This program is free software; you can redistribute it and/or
  10 //              modify it under the same terms as Perl itself
  11 /////////////////////////////////////////////////////////////////////////////
  12
  13 #define PERL_NO_GET_CONTEXT
  14
  15 #include "cpp/wxapi.h"
  16
  17 #undef THIS
  18
  19 MODULE=Wx__MDI
  20
  21 BOOT:
  22   INIT_PLI_HELPERS( wx_pli_helpers );
  23
  24 INCLUDE: XS/MDIChildFrame.xs
  25 INCLUDE: XS/MDIParentFrame.xs
  26
  27 #  //FIXME//tricky
  28 #if defined(__WXMSW__)
  29 #undef XS
  30 #define XS( name ) WXXS( name )
  31 #endif
  32
  33 MODULE=Wx__MDI