# $Id$
use Config;
use File::Basename qw(basename dirname);
chdir(dirname($0));
($file = basename($0)) =~ s/\.PL$//;
$file =~ s/\.pl$//
        if ($Config{'osname'} eq 'VMS' or
            $Config{'osname'} eq 'OS2');  # "case-forgiving"
open OUT,">$file" or die "Can't create $file: $!";
chmod(0755, $file);
print "Extracting $file (with variable substitutions)\n";


print OUT <<"!GROK!THIS!";
#!$ENV{'CIPRES_PERL_HOME'}/bin/perl -w
   eval 'exec perl -S \$0 "\$@"'
       if 0;

!GROK!THIS!

print OUT <<'!NO!SUBS!';

#----------------------------------------------------------------------------
# Name:         RegMan.pl
# Author:       XXXX
# Created:      XX/XX/XX
# Copyright:    
#----------------------------------------------------------------------------
BEGIN { 
    use FindBin qw($Bin);
    $SIG{'ALRM'} = 'IGNORE'; 
    for my $path ( @INC ) {
        if ( -d $path . '/icons' ) {
           $ENV{'PERL_ICON_PATH'} = $path . '/icons/';    
        }
    }    
    use Wx::Perl::Packager;
}

use Wx::Perl::SplashFast ( $ENV{'PERL_ICON_PATH'} . 'BitMaps_0.png', 3000 );
use strict;
use Wx;
use Cipres::Registry::Wx::App;
use Cipres::Registry::Wx::Controller;

my $app = Cipres::Registry::Wx::App->new();
Cipres::Registry::Wx::Controller->new( $app );
$app->MainLoop();

!NO!SUBS!