Mercurial > pidgin.yaz

diff plugins/tcl/tcl_glib.c @ 8114:7a6e30eb7aad

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[gaim-migrate @ 8818] Thanks to Tim Ringenbach for this IRC chat list. committer: Tailor Script <tailor@pidgin.im>
author Ethan Blanton <elb@pidgin.im>
date Thu, 15 Jan 2004 22:53:07 +0000
parents 409f7f167c98
children 761caeb8583e
line wrap: on
line diff
--- a/plugins/tcl/tcl_glib.c	Thu Jan 15 22:20:29 2004 +0000
+++ b/plugins/tcl/tcl_glib.c	Thu Jan 15 22:53:07 2004 +0000
@@ -74,6 +74,7 @@
 
 ClientData Tcl_InitNotifier()
 {
+	Tcl_SetServiceMode(TCL_SERVICE_ALL);
 	return NULL;
 }
 
@@ -89,7 +90,6 @@
 	notifier.waitForEventProc = tcl_wait_for_event;
 
 	Tcl_SetNotifier(&notifier);
-	Tcl_SetServiceMode(TCL_SERVICE_ALL);
 
 	tcl_timer_pending = FALSE;
 	tcl_file_handlers = g_hash_table_new(g_direct_hash, g_direct_equal);