gobjectification: 8c00fe0e: Fix TCL plugin compile.

[qulogic at pidgin.im]

-----------------------------------------------------------------
Revision: 8c00fe0eedb29132a60bbe7fb553ea9f19cf3433
Ancestor: 376bc572e5e30ef7dcbff3ff690a33bd26ca51b8
Author: qulogic at pidgin.im
Date: 2009-06-09T01:08:12
Branch: im.pidgin.gobjectification
URL: http://d.pidgin.im/viewmtn/revision/info/8c00fe0eedb29132a60bbe7fb553ea9f19cf3433

Modified files:
        libpurple/plugins/tcl/tcl_cmds.c

ChangeLog: 

Fix TCL plugin compile.

-------------- next part --------------
============================================================
--- libpurple/plugins/tcl/tcl_cmds.c	994a86321228d23807b586c4186112715e312504
+++ libpurple/plugins/tcl/tcl_cmds.c	3cb55c426d397b38d7f8a8913e6ee745325b6030
@@ -747,13 +747,13 @@ int tcl_cmd_connection(ClientData unused
 		if ((gc = tcl_validate_gc(objv[2], interp)) == NULL)
 			return TCL_ERROR;
 		switch (purple_connection_get_state(gc)) {
-		case PURPLE_DISCONNECTED:
+		case PURPLE_CONNECTION_STATE_DISCONNECTED:
 			Tcl_SetObjResult(interp, Tcl_NewStringObj("disconnected", -1));
 			break;
-		case PURPLE_CONNECTED:
+		case PURPLE_CONNECTION_STATE_CONNECTED:
 			Tcl_SetObjResult(interp, Tcl_NewStringObj("connected", -1));
 			break;
-		case PURPLE_CONNECTING:
+		case PURPLE_CONNECTION_STATE_CONNECTING:
 			Tcl_SetObjResult(interp, Tcl_NewStringObj("connecting", -1));
 			break;
 		}
@@ -1514,9 +1514,9 @@ int tcl_cmd_status(ClientData unused, Tc
 	enum { CMD_STATUS_ATTR, CMD_STATUS_TYPE } cmd;
 	PurpleStatus *status;
 	PurpleStatusType *status_type;
-	GValue *value;
+	int error;
 #if !(defined PURPLE_DISABLE_DEPRECATED)
-	PurpleValue *value;
+	GValue *value;
 	const char *attr;
 	int v;
 #endif