Mercurial > pidgin.yaz
comparison plugins/tcl/tcl_glib.c @ 8116:761caeb8583e
[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(¬ifier); | 91 Tcl_SetNotifier(¬ifier); |
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 |