git.maemo.org Git - pkg-perl/blob - deb-src/libwx-perl/libwx-perl-0.96/blib/lib/Wx/XRC.pm

   1 #############################################################################
   2 ## Name:        ext/xrc/lib/Wx/XRC.pm
   3 ## Purpose:     Wx::XRC (pulls in all wxWidgets XML Resources)
   4 ## Author:      Mattia Barbon
   5 ## Modified by:
   6 ## Created:     27/07/2001
   7 ## RCS-ID:      $Id: XRC.pm 2057 2007-06-18 23:03:00Z mbarbon $
   8 ## Copyright:   (c) 2001-2004, 2006 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 package Wx::XRC;
  14
  15 use Wx;
  16 use strict;
  17
  18 use vars qw($VERSION);
  19
  20 $VERSION = '0.01';
  21
  22 Wx::load_dll( 'xml' );
  23 Wx::load_dll( 'html' );
  24 Wx::load_dll( 'adv' );
  25 Wx::load_dll( 'xrc' );
  26 Wx::wx_boot( 'Wx::XRC', $VERSION );
  27
  28 # init wxModules
  29 Wx::XmlInitXmlModule();
  30 Wx::XmlInitResourceModule();
  31
  32 *Wx::XmlResource::GetXMLID = \&Wx::XmlResource::GetXRCID;
  33
  34 # Wx::XmlResource::AddSubclassFactory( Wx::XmlSubclassFactory->new );
  35
  36 #
  37 # properly setup inheritance tree
  38 #
  39
  40 no strict;
  41
  42 package Wx::PlXmlResourceHandler; @ISA = qw(Wx::XmlResourceHandler);
  43 package Wx::PliXmlSubclassFactory; @ISA = qw(Wx::XmlSubclassFactory);
  44
  45 use strict;
  46
  47 1;
  48
  49 # Local variables: #
  50 # mode: cperl #
  51 # End: #
  52