1 #############################################################################
2 ## Name: ext/filesys/lib/Wx/FS.pm
3 ## Purpose: Wx::FS ( pulls in all Wx::FileSystem stuff )
4 ## Author: Mattia Barbon
7 ## RCS-ID: $Id: FS.pm 2057 2007-06-18 23:03:00Z mbarbon $
8 ## Copyright: (c) 2001-2002, 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 #############################################################################
18 use vars qw($VERSION);
22 Wx::load_dll( 'net' );
23 Wx::wx_boot( 'Wx::FS', $VERSION );
26 # properly setup inheritance tree
31 package Wx::FileSystemHandler;
32 package Wx::InternetFSHandler; @ISA = qw(Wx::FileSystemHandler);
33 package Wx::PlFileSystemHandler; @ISA = qw(Wx::FileSystemHandler);
34 package Wx::PlFSFile; @ISA = qw(Wx::FSFile);
35 package Wx::ArchiveFSHandler; @ISA = qw(Wx::FileSystemHandler);
36 package Wx::ZipFSHandler;
38 @ISA = Wx::wxVERSION() < 2.007002 ? qw(Wx::FileSystemHandler) :
39 qw(Wx::ArchiveFSHandler);