comparison: plugins/tcl/tcl_glib.c
plugins/tcl/tcl_glib.c
- changeset 8114
- 201c03cf6c5f
- parent 7831
- 54076c9af6ad
- child 8116
- 4f4c0088f7b5
equal
deleted
inserted
replaced
| 8113:6a2ffc66c022 | 8114:201c03cf6c5f |
|---|---|
| 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); | |
| 77 return NULL; | 78 return NULL; |
| 78 } | 79 } |
| 79 | 80 |
| 80 void tcl_glib_init () | 81 void tcl_glib_init () |
| 81 { | 82 { |
| 87 notifier.deleteFileHandlerProc = tcl_delete_file_handler; | 88 notifier.deleteFileHandlerProc = tcl_delete_file_handler; |
| 88 notifier.setTimerProc = tcl_set_timer; | 89 notifier.setTimerProc = tcl_set_timer; |
| 89 notifier.waitForEventProc = tcl_wait_for_event; | 90 notifier.waitForEventProc = tcl_wait_for_event; |
| 90 | 91 |
| 91 Tcl_SetNotifier(¬ifier); | 92 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 |
