Mercurial > pidgin

comparison plugins/tcl/tcl_glib.c @ 8116:761caeb8583e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[gaim-migrate @ 8820] Tim didn't do this, and I didn't mean to. committer: Tailor Script <tailor@pidgin.im>
author Ethan Blanton <elb@pidgin.im>
date Thu, 15 Jan 2004 23:02:19 +0000
parents 7a6e30eb7aad
children 464e2b6bc7e6
comparison
equal deleted inserted replaced
8115:2a9e8ba61ec7 8116:761caeb8583e
72 72
73 #undef Tcl_InitNotifier 73 #undef Tcl_InitNotifier
74 74
75 ClientData Tcl_InitNotifier() 75 ClientData Tcl_InitNotifier()
76 { 76 {
77 Tcl_SetServiceMode(TCL_SERVICE_ALL);
78 return NULL; 77 return NULL;
79 } 78 }
80 79
81 void tcl_glib_init () 80 void tcl_glib_init ()
82 { 81 {
88 notifier.deleteFileHandlerProc = tcl_delete_file_handler; 87 notifier.deleteFileHandlerProc = tcl_delete_file_handler;
89 notifier.setTimerProc = tcl_set_timer; 88 notifier.setTimerProc = tcl_set_timer;
90 notifier.waitForEventProc = tcl_wait_for_event; 89 notifier.waitForEventProc = tcl_wait_for_event;
91 90
92 Tcl_SetNotifier(&notifier); 91 Tcl_SetNotifier(&notifier);
92 Tcl_SetServiceMode(TCL_SERVICE_ALL);
93 93
94 tcl_timer_pending = FALSE; 94 tcl_timer_pending = FALSE;
95 tcl_file_handlers = g_hash_table_new(g_direct_hash, g_direct_equal); 95 tcl_file_handlers = g_hash_table_new(g_direct_hash, g_direct_equal);
96 } 96 }
97 97