You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
42 lines
893 B
42 lines
893 B
# ----------------------------------------------------------------------------- |
|
# tk.pl |
|
# Desc: Default guidance script; loads and intializes the Tk interface |
|
# ----------------------------------------------------------------------------- |
|
|
|
use strict; |
|
use warnings; |
|
|
|
use Milkbone qw(load_plugin); |
|
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;
|
|
|