gobjectification: e3890524: Fix TCL compile. I don't use this, so so...

[qulogic at pidgin.im]

-----------------------------------------------------------------
Revision: e38905243da52cdd1015fac5877deba22704cf2b
Ancestor: 10dbcb265bb2251726e293664e6a6055440bab33
Author: qulogic at pidgin.im
Date: 2008-07-13T20:36:13
Branch: im.pidgin.gobjectification
URL: http://d.pidgin.im/viewmtn/revision/info/e38905243da52cdd1015fac5877deba22704cf2b

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

ChangeLog: 

Fix TCL compile. I don't use this, so somebody should really check.

-------------- next part --------------
============================================================
--- libpurple/plugins/tcl/tcl_cmds.c	2b87d6de38fe35d0ce61a4db0e590d64988a72b5
+++ libpurple/plugins/tcl/tcl_cmds.c	d20626bdfc3accfd19354357dffbb19b5454cc14
@@ -291,7 +291,7 @@ int tcl_cmd_account(ClientData unused, T
 					Tcl_SetObjResult(interp, Tcl_NewStringObj("invalid attribute for account", -1));
 					return TCL_ERROR;
 				}
-				switch (g_value_get_type(value)) {
+				switch (G_VALUE_TYPE(value)) {
 				case G_TYPE_BOOLEAN:
 					error = Tcl_GetBooleanFromObj(interp, objv[i + 1], &b);
 					if (error != TCL_OK)