From 1c5932b6e7c5467e2faafec3c239aec42ab8725f Mon Sep 17 00:00:00 2001
From: milkbone57 <milkbone57>
Date: Wed, 15 Oct 2003 20:21:14 +0000
Subject: [PATCH] modes/ replaces guid/

---
 modes/demotk.pl | 38 ++++++++++++++++++++++++++++++++++++++
 modes/tk.pl     | 42 ++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 80 insertions(+)
 create mode 100644 modes/demotk.pl
 create mode 100644 modes/tk.pl

diff --git a/modes/demotk.pl b/modes/demotk.pl
new file mode 100644
index 0000000..8a71d4a
--- /dev/null
+++ b/modes/demotk.pl
@@ -0,0 +1,38 @@
+# -----------------------------------------------------------------------------
+# 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;
diff --git a/modes/tk.pl b/modes/tk.pl
new file mode 100644
index 0000000..2d1bac0
--- /dev/null
+++ b/modes/tk.pl
@@ -0,0 +1,42 @@
+# -----------------------------------------------------------------------------
+# 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;