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.
40 lines
827 B
40 lines
827 B
# ----------------------------------------------------------------------------- |
|
# 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;
|
|
|