# HG changeset patch
# User Ethan Blanton <elb@pidgin.im>
# Date 1149969092 0
# Node ID ad8ddfa756ad57b52900af510699bbaa621c7479
# Parent  1b783830ca06c228357ff19c879d18b82c7986b9
[gaim-migrate @ 16249]
This has no functional effect, but it should eliminate some compiler crying.

committer: Tailor Script <tailor@pidgin.im>

diff -r 1b783830ca06 -r ad8ddfa756ad plugins/tcl/tcl.c
--- a/plugins/tcl/tcl.c	Sat Jun 10 19:27:21 2006 +0000
+++ b/plugins/tcl/tcl.c	Sat Jun 10 19:51:32 2006 +0000
@@ -53,6 +53,7 @@
 GaimStringref *GaimTclRefAccount;
 GaimStringref *GaimTclRefConnection;
 GaimStringref *GaimTclRefConversation;
+GaimStringref *GaimTclRefPointer;
 GaimStringref *GaimTclRefStatus;
 GaimStringref *GaimTclRefStatusAttr;
 GaimStringref *GaimTclRefStatusType;
@@ -344,6 +345,7 @@
 	GaimTclRefAccount = gaim_stringref_new("Account");
 	GaimTclRefConnection = gaim_stringref_new("Connection");
 	GaimTclRefConversation = gaim_stringref_new("Conversation");
+	GaimTclRefPointer = gaim_stringref_new("Pointer");
 	GaimTclRefStatus = gaim_stringref_new("Status");
 	GaimTclRefStatusAttr = gaim_stringref_new("StatusAttr");
 	GaimTclRefStatusType = gaim_stringref_new("StatusType");
@@ -365,6 +367,7 @@
 	gaim_stringref_unref(GaimTclRefAccount);
 	gaim_stringref_unref(GaimTclRefConnection);
 	gaim_stringref_unref(GaimTclRefConversation);
+	gaim_stringref_unref(GaimTclRefPointer);
 	gaim_stringref_unref(GaimTclRefStatus);
 	gaim_stringref_unref(GaimTclRefStatusAttr);
 	gaim_stringref_unref(GaimTclRefStatusType);
diff -r 1b783830ca06 -r ad8ddfa756ad plugins/tcl/tcl_gaim.h
--- a/plugins/tcl/tcl_gaim.h	Sat Jun 10 19:27:21 2006 +0000
+++ b/plugins/tcl/tcl_gaim.h	Sat Jun 10 19:51:32 2006 +0000
@@ -51,6 +51,7 @@
 extern GaimStringref *GaimTclRefAccount;
 extern GaimStringref *GaimTclRefConnection;
 extern GaimStringref *GaimTclRefConversation;
+extern GaimStringref *GaimTclRefPointer;
 extern GaimStringref *GaimTclRefStatus;
 extern GaimStringref *GaimTclRefStatusAttr;
 extern GaimStringref *GaimTclRefStatusType;
diff -r 1b783830ca06 -r ad8ddfa756ad plugins/tcl/tcl_signals.c
--- a/plugins/tcl/tcl_signals.c	Sat Jun 10 19:27:21 2006 +0000
+++ b/plugins/tcl/tcl_signals.c	Sat Jun 10 19:51:32 2006 +0000
@@ -186,14 +186,9 @@
 		case GAIM_TYPE_OBJECT:
 		case GAIM_TYPE_BOXED:
 			/* These are all "pointer" types to us */
-			if (gaim_value_is_outgoing(handler->argtypes[i])) {
-				vals[i] = va_arg(args, void **);
-				Tcl_LinkVar(handler->interp, name->str,
-					    vals[i], TCL_LINK_INT);
-				arg = Tcl_NewStringObj(name->str, -1);
-			} else {
-				arg = Tcl_NewIntObj((int)va_arg(args, void *));
-			}
+			if (gaim_value_is_outgoing(handler->argtypes[i]))
+				gaim_debug_error("tcl", "pointer types do not currently support outgoing arguments\n");
+			arg = gaim_tcl_ref_new(GaimTclRefPointer, va_arg(args, void *));
 			break;
 		case GAIM_TYPE_BOOLEAN:
 			if (gaim_value_is_outgoing(handler->argtypes[i])) {