Mercurial > pidgin3 / changeset

--- a/plugins/tcl/tcl.c	Fri Jun 16 03:42:34 2006 +0000
+++ b/plugins/tcl/tcl.c	Fri Jun 16 03:49:14 2006 +0000
@@ -135,8 +135,8 @@
 	Tcl_CreateObjCommand(interp, "::gaim::presence", tcl_cmd_presence, (ClientData)NULL, NULL);
 	Tcl_CreateObjCommand(interp, "::gaim::send_im", tcl_cmd_send_im, (ClientData)NULL, NULL);
 	Tcl_CreateObjCommand(interp, "::gaim::signal", tcl_cmd_signal, (ClientData)NULL, NULL);
-	Tcl_CreateObjCommand(interp, "::gaim::status", tcl_cmd_status_type, (ClientData)NULL, NULL);
-	Tcl_CreateObjCommand(interp, "::gaim::status_attr", tcl_cmd_status_type, (ClientData)NULL, NULL);
+	Tcl_CreateObjCommand(interp, "::gaim::status", tcl_cmd_status, (ClientData)NULL, NULL);
+	Tcl_CreateObjCommand(interp, "::gaim::status_attr", tcl_cmd_status_attr, (ClientData)NULL, NULL);
 	Tcl_CreateObjCommand(interp, "::gaim::status_type", tcl_cmd_status_type, (ClientData)NULL, NULL);
 	Tcl_CreateObjCommand(interp, "::gaim::unload", tcl_cmd_unload, (ClientData)NULL, NULL);
 

--- a/plugins/tcl/tcl_ref.c	Fri Jun 16 03:42:34 2006 +0000
+++ b/plugins/tcl/tcl_ref.c	Fri Jun 16 03:49:14 2006 +0000
@@ -60,7 +60,7 @@
 		if (interp) {
 			Tcl_Obj *error = Tcl_NewStringObj("Bad Gaim reference type: expected ", -1);
 			Tcl_AppendToObj(error, gaim_stringref_value(type), -1);
-			Tcl_AppendToObj(error, "but got ", -1);
+			Tcl_AppendToObj(error, " but got ", -1);
 			Tcl_AppendToObj(error, gaim_stringref_value(OBJ_REF_TYPE(obj)), -1);
 			Tcl_SetObjResult(interp, error);
 		}