1 package Wx::Mini; # for RPM
7 our( $VERSION, $XS_VERSION );
8 our $alien_key = 'gtk2_2_8_10_uni_gcc_3_4';
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'
30 $VERSION = '0.96'; # bootstrap will catch wrong versions
31 $XS_VERSION = $VERSION;
32 $VERSION = eval $VERSION;
35 # XSLoader/DynaLoader wrapper
41 local $ENV{PATH} = $wx_path . ';' . $ENV{PATH} if $wx_path;
42 if( $_[0] eq 'Wx' || !wxPL_STATIC ) {
46 push @{"$_[0]::ISA"}, 'DynaLoader';
47 $_[0]->bootstrap( $_[1] );
50 XSLoader::load( $_[0], $_[1] );
54 my $t = $_[0]; $t =~ tr/:/_/;
55 &{"_boot_$t"}( $_[0], $_[1] );
60 return if defined $wx_path;
61 return unless length 'usr';
63 if( -d "$_/Alien/wxWidgets/usr" ) {
64 $wx_path = "$_/Alien/wxWidgets/usr/lib";
73 wx_boot( 'Wx', $XS_VERSION );
75 _boot_Constant( 'Wx', $XS_VERSION );
76 _boot_GDI( 'Wx', $XS_VERSION );