# -----------------------------------------------------------------------------
# tk.pl
# Desc: Default guidance script; loads and intializes the Tk interface
# -----------------------------------------------------------------------------

use strict;
use warnings;

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

Milkbone->init;

# the main GUI module - code for ticking, etc.
load_plugin "Tk-GUI";

# load each GUI component
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-OSCAR";

# display the logon prompt
create_logon_prompt;

pre_mainloop;

# begin ticking
mainloop;

post_mainloop;

return 1;