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.
38 lines
862 B
38 lines
862 B
# ----------------------------------------------------------------------------- |
|
# 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;
|
|
|