#!/usr/bin/perl -w

use strict;
use utf8;

package main;

use KDE;
use Qt;
use Pxpmgui;

# I18N support.
use Locale::gettext;

sub i18n{ return gettext($_[0]); }
textdomain( "pxi" );

my $opt = [];

my $about = KDE::AboutData( "pxi", "PXI", "0.1", "A Perl-Qt APT RPM Manager.",
                            KDE::AboutData::License_GPL(), "Copyright (c) 2006 Gary Greene",
                            "greeneg\@phoenuxos.com", "http://www.phoenuxos.com/" );

$about->addAuthor( "Gary Greene", "Maintainer and Developer", "greeneg\@phoenuxos.com",
                   "http://www.phoenuxos.com" );

KDE::CmdLineArgs::init(\@ARGV, $about);
KDE::CmdLineArgs::addCmdLineOptions($opt);

my $args = KDE::CmdLineArgs::parsedArgs();

# regular app stuff
my $app = KDE::Application();
my $wdgt = Pxpmgui;

Qt::Object::connect( $app,
                     SIGNAL( "lastWindowClosed()" ),
                     $app,
                     SLOT( "quit()" ) );

$app->setTopWidget( $wdgt );

$wdgt->setCaption( i18n( "Package Installer" ) );
$wdgt->show();

exit $app->exec();

END {}
