#!/usr/bin/perl -w

##  Copyright 2004 Rien Croonenborghs
##
##    This file is part of file2divx3pass.
##    file2divx4pass is free software; you can redistribute it and/or modify
##    it under the terms of the GNU General Public License as published by
##    the Free Software Foundation; either version 2 of the License, or
##    (at your option) any later version.
##    file2divx3pass is distributed in the hope that it will be useful,
##    but WITHOUT ANY WARRANTY; without even the implied warranty of
##    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
##    GNU General Public License for more details.
##    You should have received a copy of the GNU General Public License
##    along with file2divx3pass; if not, write to the Free Software
##    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

package File2DiVX3Pass2;

use strict;
use Getopt::Std;
use File2DiVX3Pass2::Interface;
use File2DiVX3Pass2::Helpers;
use File2DiVX3Pass2::Signals;
use Gtk2 '-init';

my $optstr = "hi:";
my %opt;
getopts( "$optstr", \%opt ) || usage();
if( $opt{'h'} ) { usage(); }
sub usage
{
	print "usage: $0 [-h] [-i input file]\n";
	print " -h: this help\n";
	print " -i: use this input file\n";
	exit 0;
}

my $widgets = new File2DiVX3Pass2;
$widgets->{'wdwMain'}->show_all;

## load settings
menuLoadSettings( $widgets );

## if we had an input file, set it here
if( $opt{'i'} )
{
	setInputFile( $opt{'i'}, $widgets );
}

Gtk2->main;


1;
