[Gaim-commits] SF.net SVN: gaim: [16269] trunk/plugins/tcl

[<ebl...@us...>]

Revision: 16269
Author:   eblanton
Date:     2006-06-15 20:49:14 -0700 (Thu, 15 Jun 2006)
ViewCVS:  http://svn.sourceforge.net/gaim/?rev=16269&view=rev

Log Message:
-----------
Fix some spacing bugs and a stupid copy-and-paste error

Modified Paths:
--------------
    trunk/plugins/tcl/tcl.c
    trunk/plugins/tcl/tcl_ref.c
Modified: trunk/plugins/tcl/tcl.c
===================================================================
--- trunk/plugins/tcl/tcl.c	2006-06-16 03:42:34 UTC (rev 16268)
+++ trunk/plugins/tcl/tcl.c	2006-06-16 03:49:14 UTC (rev 16269)
@@ -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);
 

Modified: trunk/plugins/tcl/tcl_ref.c
===================================================================
--- trunk/plugins/tcl/tcl_ref.c	2006-06-16 03:42:34 UTC (rev 16268)
+++ trunk/plugins/tcl/tcl_ref.c	2006-06-16 03:49:14 UTC (rev 16269)
@@ -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);
 		}


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.