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

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";

load_plugin "Net-Demo";

# begin unit testing code

protocol_signon -user => 'test', -pass => 'test';
data("me") = "lala";

# end unit testing code

pre_mainloop;
mainloop;
post_mainloop;

1;