# HG changeset patch
# User Ethan Blanton <elb@pidgin.im>
# Date 1074208306 0
# Node ID e280d73ed07fdc129eeb1ab707067f15911cd7b2
# Parent  761caeb8583ed58ba0841dbde7eff3ae8137a667
[gaim-migrate @ 8821]
Since Gaim now shows plugin descriptions, this alters the Tcl API to
collect them at registration time.  NOTE THAT THIS CHANGES THE TCL API.
Not that anyone uses it, but now I won't forget.  Plugin registration
will have to be changed in existing plugins, and a summary added ...
see the appropriate part of the TCL-HOWTO for details.

committer: Tailor Script <tailor@pidgin.im>

diff -r 761caeb8583e -r e280d73ed07f plugins/tcl/TCL-HOWTO
--- a/plugins/tcl/TCL-HOWTO	Thu Jan 15 23:02:19 2004 +0000
+++ b/plugins/tcl/TCL-HOWTO	Thu Jan 15 23:11:46 2004 +0000
@@ -24,11 +24,14 @@
 variables or procedures declared in the script.  In practice this is
 not a problem, as the only thing this procedure should do is return a
 simple list containing five items: the name of the script, its version
-number, a short description, the author, and a web page.  For example:
+number, a summary (just a few words) of its function, a short (longer
+than the summary, but no more than a couple of sentences if possible)
+description, the author, and a web page.  For example:
 
 proc plugin_init { } {
   return [ list "Example Plugin" \
                 "1.0" \
+		"Example plugin registration" \
 		"Example of how to register a plugin for the Tcl HOWTO" \
 		"Ethan Blanton <eblanton@cs.purdue.edu>" \
 		"http://gaim.sf.net/" ]
diff -r 761caeb8583e -r e280d73ed07f plugins/tcl/signal-test.tcl
--- a/plugins/tcl/signal-test.tcl	Thu Jan 15 23:02:19 2004 +0000
+++ b/plugins/tcl/signal-test.tcl	Thu Jan 15 23:11:46 2004 +0000
@@ -99,6 +99,7 @@
 proc plugin_init { } {
 	list "Tcl Signal Test" \
              "$gaim::version" \
+	     "Tests Tcl signal handlers" \
              "Debugs a ridiculous amount of signal information." \
              "Ethan Blanton <eblanton@cs.purdue.edu>" \
              "http://gaim.sourceforge.net/"
diff -r 761caeb8583e -r e280d73ed07f plugins/tcl/tcl.c
--- a/plugins/tcl/tcl.c	Thu Jan 15 23:02:19 2004 +0000
+++ b/plugins/tcl/tcl.c	Thu Jan 15 23:11:46 2004 +0000
@@ -209,7 +209,7 @@
 		if (Tcl_EvalEx(interp, "plugin_init", -1, TCL_EVAL_GLOBAL) == TCL_OK) {
 			result = Tcl_GetObjResult(interp);
 			if (Tcl_ListObjGetElements(interp, result, &nelems, &listitems) == TCL_OK) {
-				if (nelems == 5) {
+				if (nelems == 6) {
 					info = g_new0(GaimPluginInfo, 1);
 					
 					info->api_version = 2;
@@ -218,9 +218,10 @@
 					
 					info->name = g_strdup(Tcl_GetString(listitems[0]));
 					info->version = g_strdup(Tcl_GetString(listitems[1]));
-					info->description = g_strdup(Tcl_GetString(listitems[2]));;
-					info->author = g_strdup(Tcl_GetString(listitems[3]));
-					info->homepage = g_strdup(Tcl_GetString(listitems[4]));
+					info->summary = g_strdup(Tcl_GetString(listitems[2]));
+					info->description = g_strdup(Tcl_GetString(listitems[3]));;
+					info->author = g_strdup(Tcl_GetString(listitems[5]));
+					info->homepage = g_strdup(Tcl_GetString(listitems[5]));
 					
 					plugin->info = info;