Mercurial > hg > xemacs-beta

comparison src/device-gtk.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 91d4c8c65a0f
children a25c824ed558
comparison
equal deleted inserted replaced
2285:914c5afaac33 2286:04bc9d2f42c7
197 free_argc_argv (argv); 197 free_argc_argv (argv);
198 return (Qt); 198 return (Qt);
199 } 199 }
200 200
201 static void 201 static void
202 gtk_init_device (struct device *d, Lisp_Object props) 202 gtk_init_device (struct device *d, Lisp_Object UNUSED (props))
203 { 203 {
204 Lisp_Object device;
205 Lisp_Object display; 204 Lisp_Object display;
206 GtkWidget *app_shell = NULL; 205 GtkWidget *app_shell = NULL;
207 GdkVisual *visual = NULL; 206 GdkVisual *visual = NULL;
208 GdkColormap *cmap = NULL; 207 GdkColormap *cmap = NULL;
209
210 device = wrap_device (d);
211 208
212 /* gtk_init() and even gtk_check_init() are so brain dead that 209 /* gtk_init() and even gtk_check_init() are so brain dead that
213 getting an empty argv array causes them to abort. */ 210 getting an empty argv array causes them to abort. */
214 if (NILP (Vgtk_initial_argv_list)) 211 if (NILP (Vgtk_initial_argv_list))
215 { 212 {
329 /* Run the elisp side of the X device initialization. */ 326 /* Run the elisp side of the X device initialization. */
330 call0 (Qinit_pre_gtk_win); 327 call0 (Qinit_pre_gtk_win);
331 } 328 }
332 329
333 static void 330 static void
334 gtk_finish_init_device (struct device *d, Lisp_Object props) 331 gtk_finish_init_device (struct device *UNUSED (d), Lisp_Object UNUSED (props))
335 { 332 {
336 call0 (Qinit_post_gtk_win); 333 call0 (Qinit_post_gtk_win);
337 } 334 }
338 335
339 static void 336 static void
355 } 352 }
356 353
357 static void 354 static void
358 gtk_delete_device (struct device *d) 355 gtk_delete_device (struct device *d)
359 { 356 {
360 Lisp_Object device;
361
362 #ifdef FREE_CHECKING 357 #ifdef FREE_CHECKING
363 extern void (*__free_hook)(); 358 extern void (*__free_hook)();
364 int checking_free; 359 int checking_free;
365 #endif 360 #endif
366 361
367 device = wrap_device (d);
368 if (1) 362 if (1)
369 { 363 {
370 #ifdef FREE_CHECKING 364 #ifdef FREE_CHECKING
371 checking_free = (__free_hook != 0); 365 checking_free = (__free_hook != 0);
372 366
536 `make-cursor-glyph' function). 530 `make-cursor-glyph' function).
537 If the second optional argument IGNORE-KEYBOARD is non-nil, ignore all 531 If the second optional argument IGNORE-KEYBOARD is non-nil, ignore all
538 keyboard events during the grab. 532 keyboard events during the grab.
539 Returns t if the grab is successful, nil otherwise. 533 Returns t if the grab is successful, nil otherwise.
540 */ 534 */
541 (device, cursor, ignore_keyboard)) 535 (device, cursor, UNUSED (ignore_keyboard)))
542 { 536 {
543 GdkWindow *w; 537 GdkWindow *w;
544 int result; 538 int result;
545 struct device *d = decode_gtk_device (device); 539 struct device *d = decode_gtk_device (device);
546 540
612 } 606 }
613 607
614 DEFUN ("gtk-ungrab-keyboard", Fgtk_ungrab_keyboard, 0, 1, 0, /* 608 DEFUN ("gtk-ungrab-keyboard", Fgtk_ungrab_keyboard, 0, 1, 0, /*
615 Release a keyboard grab made with `gtk-grab-keyboard'. 609 Release a keyboard grab made with `gtk-grab-keyboard'.
616 */ 610 */
617 (device)) 611 (UNUSED (device)))
618 { 612 {
619 gdk_keyboard_ungrab (GDK_CURRENT_TIME); 613 gdk_keyboard_ungrab (GDK_CURRENT_TIME);
620 return Qnil; 614 return Qnil;
621 } 615 }
622 616