comparison: plugins/tcl/tcl_glib.c
plugins/tcl/tcl_glib.c
- changeset 8116
- 4f4c0088f7b5
- parent 8114
- 201c03cf6c5f
- child 9516
- af5712b2d75b
equal
deleted
inserted
replaced
| 8115:f8f1f6953e2d | 8116:4f4c0088f7b5 |
|---|---|
| 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 |
