Mercurial > pidgin.yaz

diff plugins/tcl/tcl_cmds.c @ 10401:3e4ecbdf8d0a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[gaim-migrate @ 11638] Stuff compiles again, if that's what you wanted stuff to do. It works a bit too. I fixed one crash in oscar, only to reveal another that I didnn't fix (tooltips). Most protocols still need updating to actually log in in the specified state, TCL needs some love for gaim_account_connect, perl probably does too but that needs more love anyway. The reconnect plugin could be more intelligent too, as could gaim-remote. committer: Tailor Script <tailor@pidgin.im>
author Stu Tomlinson <stu@nosnilmot.com>
date Tue, 21 Dec 2004 01:48:30 +0000
parents 3eb03f22e082
children 0e886a234d92
line wrap: on
line diff
--- a/plugins/tcl/tcl_cmds.c	Sun Dec 19 20:32:32 2004 +0000
+++ b/plugins/tcl/tcl_cmds.c	Tue Dec 21 01:48:30 2004 +0000
@@ -121,7 +121,9 @@
 		if (gaim_account_is_connected(account))
 			Tcl_SetIntObj(result, (int)gaim_account_get_connection(account));
 		else
-			Tcl_SetIntObj(result, (int)gaim_account_connect(account));
+#warning Someone who knows TCL (Ethan!) fix this so TCL plugins can specify the status
+			Tcl_SetIntObj(result, (int)gaim_account_connect(account,
+					gaim_account_get_status(account, "online")));
 		break;
 	case CMD_ACCOUNT_CONNECTION:
 		if (objc != 3) {