#! /usr/bin/perl

#   Copyright (c) 2006 Martin Schulze <joey@infodrom.org>
#
#   This program 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; version 2 dated June, 1991.
#
#   This program 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 this program;  if not, write to the Free Software
#   Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111, USA.

use strict;
use warnings;

use Locale::gettext;
use POSIX;

use Gtk2 -init;

use lib '/usr/share/gui-apt-key';
use GAK::GUI;

use constant PROGRAM => 'gui-apt-key';
use constant PATH_LOCALE => '/usr/share/locale';

sub _
{
    my $s = gettext (@_);
    utf8::decode ($s);
    return $s;
}

setlocale(LC_MESSAGES, "");
bindtextdomain(PROGRAM, PATH_LOCALE);
textdomain(PROGRAM);

my $gui = GAK::GUI->new;
$gui->show_all;

Gtk2->main;
