comparison: plugins/tcl/tcl_cmds.c
plugins/tcl/tcl_cmds.c
- changeset 10738
- 63ca8277c234
- parent 10597
- 41d2db9fefd5
- child 10740
- a1cb6b819a21
equal
deleted
inserted
replaced
| 10737:c7759d698996 | 10738:63ca8277c234 |
|---|---|
| 120 if (error || !tcl_validate_account(account, interp)) | 120 if (error || !tcl_validate_account(account, interp)) |
| 121 return TCL_ERROR; | 121 return TCL_ERROR; |
| 122 if (gaim_account_is_connected(account)) | 122 if (gaim_account_is_connected(account)) |
| 123 Tcl_SetIntObj(result, (int)gaim_account_get_connection(account)); | 123 Tcl_SetIntObj(result, (int)gaim_account_get_connection(account)); |
| 124 else | 124 else |
| 125 #warning Someone who knows TCL (Ethan!) fix this so TCL plugins can specify the status | 125 Tcl_SetIntObj(result, (int)gaim_account_connect(account)); |
| 126 Tcl_SetIntObj(result, (int)gaim_account_connect(account, | |
| 127 gaim_account_get_status(account, "online"))); | |
| 128 break; | 126 break; |
| 129 case CMD_ACCOUNT_CONNECTION: | 127 case CMD_ACCOUNT_CONNECTION: |
| 130 if (objc != 3) { | 128 if (objc != 3) { |
| 131 Tcl_WrongNumArgs(interp, 2, objv, "account"); | 129 Tcl_WrongNumArgs(interp, 2, objv, "account"); |
| 132 return TCL_ERROR; | 130 return TCL_ERROR; |
