# -----------------------------------------------------------------------------
# tktest.pl
# Desc: Testing runmode; loads and intializes the Tk interface
# -----------------------------------------------------------------------------

use strict;
use warnings;
use dots;

use Milkbone qw(load_plugin);
use Milkbone::Hooks qw(create_logon_prompt pre_mainloop mainloop
		       post_mainloop protocol_signon);

Milkbone.init;

load_plugin "Tk-GUI";

load_plugin "Tk-About";
load_plugin "Tk-AddBuddy";
load_plugin "Tk-BList";
load_plugin "Tk-Convo";
load_plugin "Tk-Chat";
load_plugin "Tk-Conf";
load_plugin "Tk-File";
load_plugin "Tk-Logon";
load_plugin "Tk-PluginsConf";
load_plugin "Tk-Profile";

# begin unit testing code
load_plugin "Unit-Test';



# end unit testing code

pre_mainloop;
mainloop;
post_mainloop;

return 1;