plugins/tcl/tcl_cmds.c

changeset 9620
fe99fcea5c1c
parent 8834
0a798e3d2b84
child 10246
aa5bff72f94c
equal deleted inserted replaced
9619:2d8adb92f665 9620:fe99fcea5c1c
273 if ((node = tcl_list_to_buddy(interp, count, elems)) == NULL) 273 if ((node = tcl_list_to_buddy(interp, count, elems)) == NULL)
274 return TCL_ERROR; 274 return TCL_ERROR;
275 if (node->type == GAIM_BLIST_CHAT_NODE) 275 if (node->type == GAIM_BLIST_CHAT_NODE)
276 Tcl_SetStringObj(result, ((GaimChat *)node)->alias, -1); 276 Tcl_SetStringObj(result, ((GaimChat *)node)->alias, -1);
277 else if (node->type == GAIM_BLIST_BUDDY_NODE) 277 else if (node->type == GAIM_BLIST_BUDDY_NODE)
278 Tcl_SetStringObj(result, (char *)gaim_get_buddy_alias((GaimBuddy *)node), -1); 278 Tcl_SetStringObj(result, (char *)gaim_buddy_get_alias((GaimBuddy *)node), -1);
279 return TCL_OK; 279 return TCL_OK;
280 break; 280 break;
281 case CMD_BUDDY_HANDLE: 281 case CMD_BUDDY_HANDLE:
282 if (objc != 2) { 282 if (objc != 2) {
283 Tcl_WrongNumArgs(interp, 2, objv, ""); 283 Tcl_WrongNumArgs(interp, 2, objv, "");

mercurial