Tkx::package_require("style");
Tkx::style__use("as", -priority => 70);
my $mw = Tkx::widget->new(".");
$mw->g_wm_title("PSC Dataload");
$mw->g_wm_minsize(300,200);
my $Email1;
$Email1 = $mw->new_button(
        -text => "Email1",
        -command => [\&doTheWork,"Email1"],
    );
    $Email1->g_pack(-padx=>10, -pady=>10,);
my $Email2;
$Email2 = $mw->new_button(
        -text => "Email2",
        -command =>  [\&doTheWork,"Email2"],
    );
    $Email2->g_pack(-padx=>10, -pady=>10,);
my $Email3;
$Email3 = $mw->new_button(
        -text => "Email3",
        -command =>  [\&doTheWork,"Email3"],
    );
    $Email3->g_pack(-padx=>10, -pady=>10,);
my $Forms;
$Forms = $mw->new_button(
        -text => "Forms",
        -command =>  [\&doTheWork,"Forms"],
    );
    $Forms->g_pack(-padx=>10, -pady=>10,);
my $LDG;
$LDG = $mw->new_button(
        -text => "LDG",
        -command =>  [\&doTheWork,"LDG"],
    );
    $LDG->g_pack(-padx=>10, -pady=>10,);
my $Load;
$Load = $mw->new_button(
        -text => "Do Data Load",
        -command =>  [\&doTheWork,"Load"],
    );
    $Load->g_pack(-padx=>10, -pady=>10,);
my $Log;
$Log = $mw->new_button(
        -text => "Write Logs",
        -command => [\&doTheWork, "Logs"],
    );
    $Log->g_pack(-padx=>10, -pady=>10,);
$formalityList = $mw->new_button(
        -text => "Write Formality List",
        -command => \&writeFormalityList,
    );
    $formalityList->g_pack(-padx=>10, -pady=>10,);
my $b;
$b = $mw->new_button(
        -text => "Exit",
        -command => sub {
		$b->m_configure(
			-text => "Bye Nora :\)",
		);
		cleanUp();
		Tkx::after(1500, sub {$mw->g_destroy; });
	},
    );
    $b->g_pack(-padx=>10, -pady=>10,);


	Tkx::tk___messageBox(
		-parent => $mw,
		-icon => "info",
		-title => "Tip of the Day",
		-message => "Please be nice!",
	);