Mercurial > hg > xemacs-beta

comparison src/event-Xt.c @ 2286:04bc9d2f42c7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2004-09-20 19:18:55 by james] Mark all unused parameters as unused. Also eliminate some unneeded local variables.
author james
date Mon, 20 Sep 2004 19:20:08 +0000
parents beb716b23f5b
children ecf1ebac70d8
comparison
equal deleted inserted replaced
2285:914c5afaac33 2286:04bc9d2f42c7
849 MappingNotify is automatically handled by Xt, so it isn't passed 849 MappingNotify is automatically handled by Xt, so it isn't passed
850 to event handlers and you don't need to worry about it. 850 to event handlers and you don't need to worry about it.
851 851
852 Of course, we DO worry about it, so we need a special translation. */ 852 Of course, we DO worry about it, so we need a special translation. */
853 void 853 void
854 emacs_Xt_mapping_action (Widget w, XEvent *event) 854 emacs_Xt_mapping_action (Widget UNUSED (w), XEvent *event)
855 { 855 {
856 struct device *d = get_device_from_display (event->xany.display); 856 struct device *d = get_device_from_display (event->xany.display);
857 857
858 if (DEVICE_X_BEING_DELETED (d)) 858 if (DEVICE_X_BEING_DELETED (d))
859 return; 859 return;
2084 Blocktype_declare (struct Xt_timeout); 2084 Blocktype_declare (struct Xt_timeout);
2085 } *the_Xt_timeout_blocktype; 2085 } *the_Xt_timeout_blocktype;
2086 2086
2087 /* called by XtAppNextEvent() */ 2087 /* called by XtAppNextEvent() */
2088 static void 2088 static void
2089 Xt_timeout_callback (XtPointer closure, XtIntervalId *id) 2089 Xt_timeout_callback (XtPointer closure, XtIntervalId *UNUSED (id))
2090 { 2090 {
2091 struct Xt_timeout *timeout = (struct Xt_timeout *) closure; 2091 struct Xt_timeout *timeout = (struct Xt_timeout *) closure;
2092 struct Xt_timeout *t2 = pending_timeouts; 2092 struct Xt_timeout *t2 = pending_timeouts;
2093 /* Remove this one from the list of pending timeouts */ 2093 /* Remove this one from the list of pending timeouts */
2094 if (t2 == timeout) 2094 if (t2 == timeout)
2269 tty_events_occurred++; 2269 tty_events_occurred++;
2270 } 2270 }
2271 } 2271 }
2272 2272
2273 static void 2273 static void
2274 Xt_what_callback (void *closure, int *source, XtInputId *id) 2274 Xt_what_callback (void *closure, int *UNUSED (source), XtInputId *UNUSED (id))
2275 { 2275 {
2276 /* If closure is 0, then we got a fake event from a signal handler. 2276 /* If closure is 0, then we got a fake event from a signal handler.
2277 The only purpose of this is to make XtAppProcessEvent() stop 2277 The only purpose of this is to make XtAppProcessEvent() stop
2278 blocking. */ 2278 blocking. */
2279 if (closure) 2279 if (closure)
2413 2413
2414 /* This is called from GC when a process object is about to be freed. 2414 /* This is called from GC when a process object is about to be freed.
2415 If we've still got pointers to it in this file, we're gonna lose hard. 2415 If we've still got pointers to it in this file, we're gonna lose hard.
2416 */ 2416 */
2417 void 2417 void
2418 debug_process_finalization (Lisp_Process *p) 2418 debug_process_finalization (Lisp_Process *UNUSED (p))
2419 { 2419 {
2420 #if 0 /* #### */ 2420 #if 0 /* #### */
2421 int i; 2421 int i;
2422 Lisp_Object instr, outstr, errstr; 2422 Lisp_Object instr, outstr, errstr;
2423 2423
2877 2877
2878 /* No need to call XFilterEvent; Xt does it for us */ 2878 /* No need to call XFilterEvent; Xt does it for us */
2879 } 2879 }
2880 2880
2881 void 2881 void
2882 emacs_Xt_event_handler (Widget wid /* unused */, 2882 emacs_Xt_event_handler (Widget UNUSED (wid),
2883 XtPointer closure /* unused */, 2883 XtPointer UNUSED (closure),
2884 XEvent *event, 2884 XEvent *event,
2885 Boolean *continue_to_dispatch /* unused */) 2885 Boolean *UNUSED (continue_to_dispatch))
2886 { 2886 {
2887 Lisp_Object emacs_event = Fmake_event (Qnil, Qnil); 2887 Lisp_Object emacs_event = Fmake_event (Qnil, Qnil);
2888 2888
2889 #ifdef DEBUG_XEMACS 2889 #ifdef DEBUG_XEMACS
2890 if (debug_x_events > 0) 2890 if (debug_x_events > 0)
3136 /* handle focus changes for native widgets */ 3136 /* handle focus changes for native widgets */
3137 /************************************************************************/ 3137 /************************************************************************/
3138 static void 3138 static void
3139 emacs_Xt_event_widget_focus_in (Widget w, 3139 emacs_Xt_event_widget_focus_in (Widget w,
3140 XEvent *event, 3140 XEvent *event,
3141 String *params, 3141 String *UNUSED (params),
3142 Cardinal *num_params) 3142 Cardinal *UNUSED (num_params))
3143 { 3143 {
3144 struct frame *f = 3144 struct frame *f =
3145 x_any_widget_or_parent_to_frame (get_device_from_display (event->xany.display), w); 3145 x_any_widget_or_parent_to_frame (get_device_from_display (event->xany.display), w);
3146 3146
3147 XtSetKeyboardFocus (FRAME_X_SHELL_WIDGET (f), w); 3147 XtSetKeyboardFocus (FRAME_X_SHELL_WIDGET (f), w);
3148 } 3148 }
3149 3149
3150 static void 3150 static void
3151 emacs_Xt_event_widget_focus_out (Widget w, 3151 emacs_Xt_event_widget_focus_out (Widget UNUSED (w),
3152 XEvent *event, 3152 XEvent *UNUSED (event),
3153 String *params, 3153 String *UNUSED (params),
3154 Cardinal *num_params) 3154 Cardinal *UNUSED (num_params))
3155 { 3155 {
3156 } 3156 }
3157 3157
3158 static XtActionsRec widgetActionsList[] = 3158 static XtActionsRec widgetActionsList[] =
3159 { 3159 {