demotk.pl - new guidance script

guid/demotk.pl

@@ -1,8 +1,9 @@
 # -----------------------------------------------------------------------------
 # tktest.pl
-# Desc: Testing guidance script; loads and intializes the Tk interfacey
+# 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);
 
@@ -21,6 +22,8 @@ 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';