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

   1 package Wx::Mini; # for RPM
   2
   3 package Wx;
   4
   5 use strict;
   6
   7 our( $VERSION, $XS_VERSION );
   8 our $alien_key = 'gtk2_2_8_10_uni_gcc_3_4';
   9
  10 {
  11     my $VAR1;
  12     $Wx::dlls = $VAR1 = {
  13           'base' => 'libwx_baseu-2.8.so',
  14           'richtext' => 'libwx_gtk2u_richtext-2.8.so',
  15           'core' => 'libwx_gtk2u_core-2.8.so',
  16           'stc' => 'libwx_gtk2u_stc-2.8.so',
  17           'fl' => 'libwx_gtk2u_fl-2.8.so',
  18           'aui' => 'libwx_gtk2u_aui-2.8.so',
  19           'net' => 'libwx_baseu_net-2.8.so',
  20           'html' => 'libwx_gtk2u_html-2.8.so',
  21           'gizmos' => 'libwx_gtk2u_gizmos-2.8.so',
  22           'qa' => 'libwx_gtk2u_qa-2.8.so',
  23           'xml' => 'libwx_baseu_xml-2.8.so',
  24           'xrc' => 'libwx_gtk2u_xrc-2.8.so',
  25           'adv' => 'libwx_gtk2u_adv-2.8.so'
  26         };
  27 ;
  28 }
  29
  30 $VERSION = '0.96'; # bootstrap will catch wrong versions
  31 $XS_VERSION = $VERSION;
  32 $VERSION = eval $VERSION;
  33
  34 #
  35 # XSLoader/DynaLoader wrapper
  36 #
  37 our( $wx_path );
  38
  39 sub wxPL_STATIC();
  40 sub wx_boot($$) {
  41   local $ENV{PATH} = $wx_path . ';' . $ENV{PATH} if $wx_path;
  42   if( $_[0] eq 'Wx' || !wxPL_STATIC ) {
  43     if( $] < 5.006 ) {
  44       require DynaLoader;
  45       no strict 'refs';
  46       push @{"$_[0]::ISA"}, 'DynaLoader';
  47       $_[0]->bootstrap( $_[1] );
  48     } else {
  49       require XSLoader;
  50       XSLoader::load( $_[0], $_[1] );
  51     }
  52   } else {
  53     no strict 'refs';
  54     my $t = $_[0]; $t =~ tr/:/_/;
  55     &{"_boot_$t"}( $_[0], $_[1] );
  56   }
  57 }
  58
  59 sub _alien_path {
  60   return if defined $wx_path;
  61   return unless length 'usr';
  62   foreach ( @INC ) {
  63     if( -d "$_/Alien/wxWidgets/usr" ) {
  64       $wx_path = "$_/Alien/wxWidgets/usr/lib";
  65       last;
  66     }
  67   }
  68 }
  69
  70 _alien_path();
  71
  72 sub _start {
  73     wx_boot( 'Wx', $XS_VERSION );
  74
  75     _boot_Constant( 'Wx', $XS_VERSION );
  76     _boot_GDI( 'Wx', $XS_VERSION );
  77
  78     Load();
  79 }
  80
  81 1;