#!/usr/bin/perl
#
# regnum_launcher.pl
#
#  Created on: Nov 15, 2010
#      Author: Steve Gerbino
#

use Digest::MD5 qw(md5 md5_hex md5_base64);
use Gtk2 '-init';

# path to regnum live folder
$LIVEPATH='/home/'.$ENV{'LOGNAME'}.'/regnum/live';
$OVERLAY='/usr/bin/mumble-overlay';

# declare things
my $window = Gtk2::Window->new;
my $loginContainer = Gtk2::HBox->new;
my $mainWindow = Gtk2::VBox->new;

my $username = Gtk2::Entry->new;
$username->set_text("skweeekers");

my $password = Gtk2::Entry->new;
$password->set_visibility(undef);
$password->set_text("2008rtrglove");

# window settings
$window->set_title ("Regnum Online Quicklaunch");
$window->set_resizable(FALSE);