From 3e7486a7b1f9f80f195303640b7ab30b86980149 Mon Sep 17 00:00:00 2001
From: milkbone57 <milkbone57>
Date: Sat, 11 Oct 2003 23:23:53 +0000
Subject: [PATCH] demotk.pl - new guidance script

---
 guid/{tktest.pl => demotk.pl} | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)
 rename guid/{tktest.pl => demotk.pl} (92%)

diff --git a/guid/tktest.pl b/guid/demotk.pl
similarity index 92%
rename from guid/tktest.pl
rename to guid/demotk.pl
index dba250c..8a71d4a 100644
--- a/guid/tktest.pl
+++ b/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';