# HG changeset patch
# User Ethan Blanton <elb@pidgin.im>
# Date 1172371732 0
# Node ID 31a6bfedf7bed63601975ccee4ff599a299d3ee8
# Parent  79808b1a237f796622147938326bfed3afeb80a0
Tcl savedstatus command, again from Dossy Shiobara.  Dossy is on fire.

diff -r 79808b1a237f -r 31a6bfedf7be libpurple/plugins/tcl/signal-test.tcl
--- a/libpurple/plugins/tcl/signal-test.tcl	Sun Feb 25 01:09:40 2007 +0000
+++ b/libpurple/plugins/tcl/signal-test.tcl	Sun Feb 25 02:48:52 2007 +0000
@@ -108,6 +108,11 @@
 	gaim::debug -info "tcl signal" "plugin-unload [list $args]"
 }
 
+gaim::signal connect [gaim::savedstatuses handle] savedstatus-changed args {
+	gaim::debug -info "tcl signal" "savedstatus-changed [list $args]"
+	gaim::debug -info "tcl signal" "gaim::savedstatus current = [gaim::savedstatus current]"
+}
+
 proc plugin_init { } {
 	list "Tcl Signal Test" \
              "$gaim::version" \
diff -r 79808b1a237f -r 31a6bfedf7be libpurple/plugins/tcl/tcl_cmds.c
--- a/libpurple/plugins/tcl/tcl_cmds.c	Sun Feb 25 01:09:40 2007 +0000
+++ b/libpurple/plugins/tcl/tcl_cmds.c	Sun Feb 25 02:48:52 2007 +0000
@@ -29,6 +29,7 @@
 #include "server.h"
 #include "notify.h"
 #include "blist.h"
+#include "savedstatuses.h"
 #include "debug.h"
 #include "prefs.h"
 #include "core.h"
@@ -1274,6 +1275,46 @@
 	return TCL_OK;
 }
 
+int tcl_cmd_savedstatus(ClientData unused, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
+{
+	Tcl_Obj *result = Tcl_GetObjResult(interp);
+	const char *cmds[] = { "current", "handle", NULL };
+	enum { CMD_SAVEDSTATUS_CURRENT, CMD_SAVEDSTATUS_HANDLE } cmd;
+	int error;
+	GaimSavedStatus *saved_status;
+
+	if (objc < 2) {
+		Tcl_WrongNumArgs(interp, 1, objv, "subcommand ?args?");
+		return TCL_ERROR;
+	}
+
+	if ((error = Tcl_GetIndexFromObj(interp, objv[1], cmds, "subcommand", 0, (int *)&cmd)) != TCL_OK)
+		return error;
+
+	switch (cmd) {
+	case CMD_SAVEDSTATUS_CURRENT:
+		if (objc != 2) {
+			Tcl_WrongNumArgs(interp, 2, objv, "");
+			return TCL_ERROR;
+		}
+		if ((saved_status = gaim_savedstatus_get_current()) == NULL)
+			return TCL_ERROR;
+		Tcl_ListObjAppendElement(interp, result, Tcl_NewStringObj(gaim_savedstatus_get_title(saved_status), -1));
+		Tcl_ListObjAppendElement(interp, result, Tcl_NewIntObj(gaim_savedstatus_get_type(saved_status)));
+		Tcl_ListObjAppendElement(interp, result, Tcl_NewStringObj(gaim_savedstatus_get_message(saved_status), -1));
+		break;
+	case CMD_SAVEDSTATUS_HANDLE:
+		if (objc != 2) {
+			Tcl_WrongNumArgs(interp, 2, objv, "");
+			return TCL_ERROR;
+		}
+		Tcl_SetIntObj(result, (int)gaim_savedstatuses_get_handle());
+		break;
+	}
+
+	return TCL_OK;
+}
+
 int tcl_cmd_send_im(ClientData unused, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
 {
 	GaimConnection *gc;
diff -r 79808b1a237f -r 31a6bfedf7be libpurple/plugins/tcl/tcl_gaim.h
--- a/libpurple/plugins/tcl/tcl_gaim.h	Sun Feb 25 01:09:40 2007 +0000
+++ b/libpurple/plugins/tcl/tcl_gaim.h	Sun Feb 25 02:48:52 2007 +0000
@@ -107,6 +107,7 @@
 Tcl_ObjCmdProc tcl_cmd_plugins;
 Tcl_ObjCmdProc tcl_cmd_prefs;
 Tcl_ObjCmdProc tcl_cmd_presence;
+Tcl_ObjCmdProc tcl_cmd_savedstatus;
 Tcl_ObjCmdProc tcl_cmd_send_im;
 Tcl_ObjCmdProc tcl_cmd_signal;
 Tcl_ObjCmdProc tcl_cmd_status;