1 /* Functions for the X window system.
2 Copyright (C) 1989, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000,
3 2001, 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc.
5 This file is part of GNU Emacs.
7 GNU Emacs is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 2, or (at your option)
12 GNU Emacs is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with GNU Emacs; see the file COPYING. If not, write to
19 the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
20 Boston, MA 02110-1301, USA. */
30 /* This makes the fields of a Display accessible, in Xlib header files. */
32 #define XLIB_ILLEGAL_ACCESS
39 #include "intervals.h"
40 #include "dispextern.h"
42 #include "blockinput.h"
48 #include "termhooks.h"
55 #include <sys/types.h>
59 #if 1 /* Used to be #ifdef EMACS_BITMAP_FILES, but this should always work. */
60 #include "bitmaps/gray.xbm"
62 #include <X11/bitmaps/gray>
65 #include "[.bitmaps]gray.xbm"
73 #include <X11/Shell.h>
76 #include <X11/Xaw/Paned.h>
77 #include <X11/Xaw/Label.h>
78 #endif /* USE_MOTIF */
81 #undef USG /* ####KLUDGE for Solaris 2.2 and up */
90 #include "../lwlib/lwlib.h"
94 #include <Xm/DialogS.h>
95 #include <Xm/FileSB.h>
98 /* Do the EDITRES protocol if running X11R5
99 Exception: HP-UX (at least version A.09.05) has X11R5 without EditRes */
101 #if (XtSpecificationRelease >= 5) && !defined(NO_EDITRES)
103 extern void _XEditResCheckMessages ();
104 #endif /* R5 + Athena */
106 /* Unique id counter for widgets created by the Lucid Widget Library. */
108 extern LWLIB_ID widget_id_tick
;
111 /* This is part of a kludge--see lwlib/xlwmenu.c. */
112 extern XFontStruct
*xlwmenu_default_font
;
115 extern void free_frame_menubar ();
116 extern double atof ();
120 /* LessTif/Motif version info. */
122 static Lisp_Object Vmotif_version_string
;
124 #endif /* USE_MOTIF */
126 #endif /* USE_X_TOOLKIT */
130 /* GTK+ version info */
132 static Lisp_Object Vgtk_version_string
;
137 #define MAXREQUEST(dpy) (XMaxRequestSize (dpy))
139 #define MAXREQUEST(dpy) ((dpy)->max_request_size)
142 /* The gray bitmap `bitmaps/gray'. This is done because xterm.c uses
143 it, and including `bitmaps/gray' more than once is a problem when
144 config.h defines `static' as an empty replacement string. */
146 int gray_bitmap_width
= gray_width
;
147 int gray_bitmap_height
= gray_height
;
148 char *gray_bitmap_bits
= gray_bits
;
150 /* Non-zero means we're allowed to display an hourglass cursor. */
152 int display_hourglass_p
;
154 /* Non-zero means prompt with the old GTK file selection dialog. */
156 int x_gtk_use_old_file_dialog
;
158 /* If non-zero, by default show hidden files in the GTK file chooser. */
160 int x_gtk_show_hidden_files
;
162 /* If non-zero, don't show additional help text in the GTK file chooser. */
164 int x_gtk_file_dialog_help_text
;
166 /* If non-zero, don't collapse to tool bar when it is detached. */
168 int x_gtk_whole_detached_tool_bar
;
170 /* The background and shape of the mouse pointer, and shape when not
171 over text or in the modeline. */
173 Lisp_Object Vx_pointer_shape
, Vx_nontext_pointer_shape
, Vx_mode_pointer_shape
;
174 Lisp_Object Vx_hourglass_pointer_shape
;
176 /* The shape when over mouse-sensitive text. */
178 Lisp_Object Vx_sensitive_text_pointer_shape
;
180 /* If non-nil, the pointer shape to indicate that windows can be
181 dragged horizontally. */
183 Lisp_Object Vx_window_horizontal_drag_shape
;
185 /* Color of chars displayed in cursor box. */
187 Lisp_Object Vx_cursor_fore_pixel
;
189 /* Nonzero if using X. */
193 /* Non nil if no window manager is in use. */
195 Lisp_Object Vx_no_window_manager
;
197 /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'. */
199 Lisp_Object Vx_pixel_size_width_font_regexp
;
202 Lisp_Object Qsuppress_icon
;
203 Lisp_Object Qundefined_color
;
204 Lisp_Object Qcompound_text
, Qcancel_timer
;
208 extern Lisp_Object Vwindow_system_version
;
210 /* The below are defined in frame.c. */
213 int image_cache_refcount
, dpyinfo_refcount
;
218 /* Error if we are not connected to X. */
224 error ("X windows are not in use or not initialized");
227 /* Nonzero if we can use mouse menus.
228 You should not call this unless HAVE_MENUS is defined. */
236 /* Extract a frame as a FRAME_PTR, defaulting to the selected frame
237 and checking validity for X. */
240 check_x_frame (frame
)
246 frame
= selected_frame
;
247 CHECK_LIVE_FRAME (frame
);
250 error ("Non-X frame used");
254 /* Let the user specify an X display with a Lisp object.
255 OBJECT may be nil, a frame or a terminal id.
256 nil stands for the selected frame--or, if that is not an X frame,
257 the first X display on the list. */
259 struct x_display_info
*
260 check_x_display_info (object
)
263 struct x_display_info
*dpyinfo
= NULL
;
267 struct frame
*sf
= XFRAME (selected_frame
);
269 if (FRAME_X_P (sf
) && FRAME_LIVE_P (sf
))
270 dpyinfo
= FRAME_X_DISPLAY_INFO (sf
);
271 else if (x_display_list
!= 0)
272 dpyinfo
= x_display_list
;
274 error ("X windows are not in use or not initialized");
276 else if (INTEGERP (object
))
278 struct terminal
*t
= get_terminal (XINT (object
), 1);
280 if (t
->type
!= output_x_window
)
281 error ("Terminal %d is not an X display", XINT (object
));
283 dpyinfo
= t
->display_info
.x
;
285 else if (STRINGP (object
))
286 dpyinfo
= x_display_info_for_name (object
);
289 FRAME_PTR f
= check_x_frame (object
);
290 dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
297 /* Return the Emacs frame-object corresponding to an X window.
298 It could be the frame's main window or an icon window. */
300 /* This function can be called during GC, so use GC_xxx type test macros. */
303 x_window_to_frame (dpyinfo
, wdesc
)
304 struct x_display_info
*dpyinfo
;
307 Lisp_Object tail
, frame
;
310 if (wdesc
== None
) return 0;
312 for (tail
= Vframe_list
; GC_CONSP (tail
); tail
= XCDR (tail
))
315 if (!GC_FRAMEP (frame
))
318 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
320 if (f
->output_data
.x
->hourglass_window
== wdesc
)
323 if ((f
->output_data
.x
->edit_widget
324 && XtWindow (f
->output_data
.x
->edit_widget
) == wdesc
)
325 /* A tooltip frame? */
326 || (!f
->output_data
.x
->edit_widget
327 && FRAME_X_WINDOW (f
) == wdesc
)
328 || f
->output_data
.x
->icon_desc
== wdesc
)
330 #else /* not USE_X_TOOLKIT */
332 if (f
->output_data
.x
->edit_widget
)
334 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
335 struct x_output
*x
= f
->output_data
.x
;
336 if (gwdesc
!= 0 && gwdesc
== x
->edit_widget
)
340 if (FRAME_X_WINDOW (f
) == wdesc
341 || f
->output_data
.x
->icon_desc
== wdesc
)
343 #endif /* not USE_X_TOOLKIT */
348 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
349 /* Like x_window_to_frame but also compares the window with the widget's
353 x_any_window_to_frame (dpyinfo
, wdesc
)
354 struct x_display_info
*dpyinfo
;
357 Lisp_Object tail
, frame
;
358 struct frame
*f
, *found
;
361 if (wdesc
== None
) return NULL
;
364 for (tail
= Vframe_list
; GC_CONSP (tail
) && !found
; tail
= XCDR (tail
))
367 if (!GC_FRAMEP (frame
))
371 if (FRAME_X_P (f
) && FRAME_X_DISPLAY_INFO (f
) == dpyinfo
)
373 /* This frame matches if the window is any of its widgets. */
374 x
= f
->output_data
.x
;
375 if (x
->hourglass_window
== wdesc
)
380 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
382 && (gwdesc
== x
->widget
383 || gwdesc
== x
->edit_widget
384 || gwdesc
== x
->vbox_widget
385 || gwdesc
== x
->menubar_widget
))
388 if (wdesc
== XtWindow (x
->widget
)
389 || wdesc
== XtWindow (x
->column_widget
)
390 || wdesc
== XtWindow (x
->edit_widget
))
392 /* Match if the window is this frame's menubar. */
393 else if (lw_window_is_in_menubar (wdesc
, x
->menubar_widget
))
397 else if (FRAME_X_WINDOW (f
) == wdesc
)
398 /* A tooltip frame. */
406 /* Likewise, but exclude the menu bar widget. */
409 x_non_menubar_window_to_frame (dpyinfo
, wdesc
)
410 struct x_display_info
*dpyinfo
;
413 Lisp_Object tail
, frame
;
417 if (wdesc
== None
) return 0;
419 for (tail
= Vframe_list
; GC_CONSP (tail
); tail
= XCDR (tail
))
422 if (!GC_FRAMEP (frame
))
425 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
427 x
= f
->output_data
.x
;
428 /* This frame matches if the window is any of its widgets. */
429 if (x
->hourglass_window
== wdesc
)
434 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
436 && (gwdesc
== x
->widget
437 || gwdesc
== x
->edit_widget
438 || gwdesc
== x
->vbox_widget
))
441 if (wdesc
== XtWindow (x
->widget
)
442 || wdesc
== XtWindow (x
->column_widget
)
443 || wdesc
== XtWindow (x
->edit_widget
))
447 else if (FRAME_X_WINDOW (f
) == wdesc
)
448 /* A tooltip frame. */
454 /* Likewise, but consider only the menu bar widget. */
457 x_menubar_window_to_frame (dpyinfo
, wdesc
)
458 struct x_display_info
*dpyinfo
;
461 Lisp_Object tail
, frame
;
465 if (wdesc
== None
) return 0;
467 for (tail
= Vframe_list
; GC_CONSP (tail
); tail
= XCDR (tail
))
470 if (!GC_FRAMEP (frame
))
473 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
475 x
= f
->output_data
.x
;
476 /* Match if the window is this frame's menubar. */
478 if (x
->menubar_widget
)
480 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
485 && (gwdesc
== x
->menubar_widget
486 || gtk_widget_get_parent (gwdesc
) == x
->menubar_widget
))
492 if (x
->menubar_widget
493 && lw_window_is_in_menubar (wdesc
, x
->menubar_widget
))
500 /* Return the frame whose principal (outermost) window is WDESC.
501 If WDESC is some other (smaller) window, we return 0. */
504 x_top_window_to_frame (dpyinfo
, wdesc
)
505 struct x_display_info
*dpyinfo
;
508 Lisp_Object tail
, frame
;
512 if (wdesc
== None
) return 0;
514 for (tail
= Vframe_list
; GC_CONSP (tail
); tail
= XCDR (tail
))
517 if (!GC_FRAMEP (frame
))
520 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
522 x
= f
->output_data
.x
;
526 /* This frame matches if the window is its topmost widget. */
528 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
529 if (gwdesc
== x
->widget
)
532 if (wdesc
== XtWindow (x
->widget
))
534 #if 0 /* I don't know why it did this,
535 but it seems logically wrong,
536 and it causes trouble for MapNotify events. */
537 /* Match if the window is this frame's menubar. */
538 if (x
->menubar_widget
539 && wdesc
== XtWindow (x
->menubar_widget
))
544 else if (FRAME_X_WINDOW (f
) == wdesc
)
550 #endif /* USE_X_TOOLKIT || USE_GTK */
554 static Lisp_Object unwind_create_frame
P_ ((Lisp_Object
));
555 static Lisp_Object unwind_create_tip_frame
P_ ((Lisp_Object
));
557 void x_set_foreground_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
558 static void x_set_wait_for_wm
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
559 void x_set_background_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
560 void x_set_mouse_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
561 void x_set_cursor_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
562 void x_set_border_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
563 void x_set_cursor_type
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
564 void x_set_icon_type
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
565 void x_set_icon_name
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
566 void x_explicitly_set_name
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
567 void x_set_menu_bar_lines
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
568 void x_set_title
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
569 void x_set_tool_bar_lines
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
570 void x_set_scroll_bar_foreground
P_ ((struct frame
*, Lisp_Object
,
572 void x_set_scroll_bar_background
P_ ((struct frame
*, Lisp_Object
,
574 static Lisp_Object x_default_scroll_bar_color_parameter
P_ ((struct frame
*,
581 /* Store the screen positions of frame F into XPTR and YPTR.
582 These are the positions of the containing window manager window,
583 not Emacs's own window. */
586 x_real_positions (f
, xptr
, yptr
)
590 int win_x
, win_y
, outer_x
, outer_y
;
591 int real_x
= 0, real_y
= 0;
593 Window win
= f
->output_data
.x
->parent_desc
;
597 x_catch_errors (FRAME_X_DISPLAY (f
));
599 if (win
== FRAME_X_DISPLAY_INFO (f
)->root_window
)
600 win
= FRAME_OUTER_WINDOW (f
);
602 /* This loop traverses up the containment tree until we hit the root
603 window. Window managers may intersect many windows between our window
604 and the root window. The window we find just before the root window
605 should be the outer WM window. */
608 Window wm_window
, rootw
;
609 Window
*tmp_children
;
610 unsigned int tmp_nchildren
;
613 success
= XQueryTree (FRAME_X_DISPLAY (f
), win
, &rootw
,
614 &wm_window
, &tmp_children
, &tmp_nchildren
);
616 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
618 /* Don't free tmp_children if XQueryTree failed. */
622 XFree ((char *) tmp_children
);
624 if (wm_window
== rootw
|| had_errors
)
635 /* Get the real coordinates for the WM window upper left corner */
636 XGetGeometry (FRAME_X_DISPLAY (f
), win
,
637 &rootw
, &real_x
, &real_y
, &ign
, &ign
, &ign
, &ign
);
639 /* Translate real coordinates to coordinates relative to our
640 window. For our window, the upper left corner is 0, 0.
641 Since the upper left corner of the WM window is outside
642 our window, win_x and win_y will be negative:
644 ------------------ ---> x
646 | ----------------- v y
649 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
651 /* From-window, to-window. */
652 FRAME_X_DISPLAY_INFO (f
)->root_window
,
655 /* From-position, to-position. */
656 real_x
, real_y
, &win_x
, &win_y
,
661 if (FRAME_X_WINDOW (f
) == FRAME_OUTER_WINDOW (f
))
668 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
670 /* From-window, to-window. */
671 FRAME_X_DISPLAY_INFO (f
)->root_window
,
672 FRAME_OUTER_WINDOW (f
),
674 /* From-position, to-position. */
675 real_x
, real_y
, &outer_x
, &outer_y
,
681 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
688 if (had_errors
) return;
690 f
->x_pixels_diff
= -win_x
;
691 f
->y_pixels_diff
= -win_y
;
693 FRAME_X_OUTPUT (f
)->x_pixels_outer_diff
= -outer_x
;
694 FRAME_X_OUTPUT (f
)->y_pixels_outer_diff
= -outer_y
;
703 /* Gamma-correct COLOR on frame F. */
706 gamma_correct (f
, color
)
712 color
->red
= pow (color
->red
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
713 color
->green
= pow (color
->green
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
714 color
->blue
= pow (color
->blue
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
719 /* Decide if color named COLOR_NAME is valid for use on frame F. If
720 so, return the RGB values in COLOR. If ALLOC_P is non-zero,
721 allocate the color. Value is zero if COLOR_NAME is invalid, or
722 no color could be allocated. */
725 x_defined_color (f
, color_name
, color
, alloc_p
)
732 Display
*dpy
= FRAME_X_DISPLAY (f
);
733 Colormap cmap
= FRAME_X_COLORMAP (f
);
736 success_p
= XParseColor (dpy
, cmap
, color_name
, color
);
737 if (success_p
&& alloc_p
)
738 success_p
= x_alloc_nearest_color (f
, cmap
, color
);
745 /* Return the pixel color value for color COLOR_NAME on frame F. If F
746 is a monochrome frame, return MONO_COLOR regardless of what ARG says.
747 Signal an error if color can't be allocated. */
750 x_decode_color (f
, color_name
, mono_color
)
752 Lisp_Object color_name
;
757 CHECK_STRING (color_name
);
759 #if 0 /* Don't do this. It's wrong when we're not using the default
760 colormap, it makes freeing difficult, and it's probably not
761 an important optimization. */
762 if (strcmp (SDATA (color_name
), "black") == 0)
763 return BLACK_PIX_DEFAULT (f
);
764 else if (strcmp (SDATA (color_name
), "white") == 0)
765 return WHITE_PIX_DEFAULT (f
);
768 /* Return MONO_COLOR for monochrome frames. */
769 if (FRAME_X_DISPLAY_INFO (f
)->n_planes
== 1)
772 /* x_defined_color is responsible for coping with failures
773 by looking for a near-miss. */
774 if (x_defined_color (f
, SDATA (color_name
), &cdef
, 1))
777 signal_error ("Undefined color", color_name
);
782 /* Change the `wait-for-wm' frame parameter of frame F. OLD_VALUE is
783 the previous value of that parameter, NEW_VALUE is the new value.
784 See also the comment of wait_for_wm in struct x_output. */
787 x_set_wait_for_wm (f
, new_value
, old_value
)
789 Lisp_Object new_value
, old_value
;
791 f
->output_data
.x
->wait_for_wm
= !NILP (new_value
);
796 /* Set icon from FILE for frame F. By using GTK functions the icon
797 may be any format that GdkPixbuf knows about, i.e. not just bitmaps. */
800 xg_set_icon (f
, file
)
807 found
= x_find_image_file (file
);
813 char *filename
= (char *) SDATA (found
);
816 pixbuf
= gdk_pixbuf_new_from_file (filename
, &err
);
820 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
822 g_object_unref (pixbuf
);
836 xg_set_icon_from_xpm_data (f
, data
)
841 GdkPixbuf
*pixbuf
= gdk_pixbuf_new_from_xpm_data ((const char **) data
);
846 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)), pixbuf
);
847 g_object_unref (pixbuf
);
853 /* Functions called only from `x_set_frame_param'
854 to set individual parameters.
856 If FRAME_X_WINDOW (f) is 0,
857 the frame is being created and its X-window does not exist yet.
858 In that case, just record the parameter's new value
859 in the standard place; do not attempt to change the window. */
862 x_set_foreground_color (f
, arg
, oldval
)
864 Lisp_Object arg
, oldval
;
866 struct x_output
*x
= f
->output_data
.x
;
867 unsigned long fg
, old_fg
;
869 fg
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
870 old_fg
= FRAME_FOREGROUND_PIXEL (f
);
871 FRAME_FOREGROUND_PIXEL (f
) = fg
;
873 if (FRAME_X_WINDOW (f
) != 0)
875 Display
*dpy
= FRAME_X_DISPLAY (f
);
878 XSetForeground (dpy
, x
->normal_gc
, fg
);
879 XSetBackground (dpy
, x
->reverse_gc
, fg
);
881 if (x
->cursor_pixel
== old_fg
)
883 unload_color (f
, x
->cursor_pixel
);
884 x
->cursor_pixel
= x_copy_color (f
, fg
);
885 XSetBackground (dpy
, x
->cursor_gc
, x
->cursor_pixel
);
890 update_face_from_frame_parameter (f
, Qforeground_color
, arg
);
892 if (FRAME_VISIBLE_P (f
))
896 unload_color (f
, old_fg
);
900 x_set_background_color (f
, arg
, oldval
)
902 Lisp_Object arg
, oldval
;
904 struct x_output
*x
= f
->output_data
.x
;
907 bg
= x_decode_color (f
, arg
, WHITE_PIX_DEFAULT (f
));
908 unload_color (f
, FRAME_BACKGROUND_PIXEL (f
));
909 FRAME_BACKGROUND_PIXEL (f
) = bg
;
911 if (FRAME_X_WINDOW (f
) != 0)
913 Display
*dpy
= FRAME_X_DISPLAY (f
);
916 XSetBackground (dpy
, x
->normal_gc
, bg
);
917 XSetForeground (dpy
, x
->reverse_gc
, bg
);
918 XSetWindowBackground (dpy
, FRAME_X_WINDOW (f
), bg
);
919 XSetForeground (dpy
, x
->cursor_gc
, bg
);
922 xg_set_background_color (f
, bg
);
925 #ifndef USE_TOOLKIT_SCROLL_BARS /* Turns out to be annoying with
926 toolkit scroll bars. */
929 for (bar
= FRAME_SCROLL_BARS (f
);
931 bar
= XSCROLL_BAR (bar
)->next
)
933 Window window
= SCROLL_BAR_X_WINDOW (XSCROLL_BAR (bar
));
934 XSetWindowBackground (dpy
, window
, bg
);
937 #endif /* USE_TOOLKIT_SCROLL_BARS */
940 update_face_from_frame_parameter (f
, Qbackground_color
, arg
);
942 if (FRAME_VISIBLE_P (f
))
948 x_set_mouse_color (f
, arg
, oldval
)
950 Lisp_Object arg
, oldval
;
952 struct x_output
*x
= f
->output_data
.x
;
953 Display
*dpy
= FRAME_X_DISPLAY (f
);
954 Cursor cursor
, nontext_cursor
, mode_cursor
, hand_cursor
;
955 Cursor hourglass_cursor
, horizontal_drag_cursor
;
956 unsigned long pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
957 unsigned long mask_color
= FRAME_BACKGROUND_PIXEL (f
);
959 /* Don't let pointers be invisible. */
960 if (mask_color
== pixel
)
962 x_free_colors (f
, &pixel
, 1);
963 pixel
= x_copy_color (f
, FRAME_FOREGROUND_PIXEL (f
));
966 unload_color (f
, x
->mouse_pixel
);
967 x
->mouse_pixel
= pixel
;
971 /* It's not okay to crash if the user selects a screwy cursor. */
972 x_catch_errors (dpy
);
974 if (!NILP (Vx_pointer_shape
))
976 CHECK_NUMBER (Vx_pointer_shape
);
977 cursor
= XCreateFontCursor (dpy
, XINT (Vx_pointer_shape
));
980 cursor
= XCreateFontCursor (dpy
, XC_xterm
);
981 x_check_errors (dpy
, "bad text pointer cursor: %s");
983 if (!NILP (Vx_nontext_pointer_shape
))
985 CHECK_NUMBER (Vx_nontext_pointer_shape
);
987 = XCreateFontCursor (dpy
, XINT (Vx_nontext_pointer_shape
));
990 nontext_cursor
= XCreateFontCursor (dpy
, XC_left_ptr
);
991 x_check_errors (dpy
, "bad nontext pointer cursor: %s");
993 if (!NILP (Vx_hourglass_pointer_shape
))
995 CHECK_NUMBER (Vx_hourglass_pointer_shape
);
997 = XCreateFontCursor (dpy
, XINT (Vx_hourglass_pointer_shape
));
1000 hourglass_cursor
= XCreateFontCursor (dpy
, XC_watch
);
1001 x_check_errors (dpy
, "bad hourglass pointer cursor: %s");
1003 if (!NILP (Vx_mode_pointer_shape
))
1005 CHECK_NUMBER (Vx_mode_pointer_shape
);
1006 mode_cursor
= XCreateFontCursor (dpy
, XINT (Vx_mode_pointer_shape
));
1009 mode_cursor
= XCreateFontCursor (dpy
, XC_xterm
);
1010 x_check_errors (dpy
, "bad modeline pointer cursor: %s");
1012 if (!NILP (Vx_sensitive_text_pointer_shape
))
1014 CHECK_NUMBER (Vx_sensitive_text_pointer_shape
);
1016 = XCreateFontCursor (dpy
, XINT (Vx_sensitive_text_pointer_shape
));
1019 hand_cursor
= XCreateFontCursor (dpy
, XC_hand2
);
1021 if (!NILP (Vx_window_horizontal_drag_shape
))
1023 CHECK_NUMBER (Vx_window_horizontal_drag_shape
);
1024 horizontal_drag_cursor
1025 = XCreateFontCursor (dpy
, XINT (Vx_window_horizontal_drag_shape
));
1028 horizontal_drag_cursor
1029 = XCreateFontCursor (dpy
, XC_sb_h_double_arrow
);
1031 /* Check and report errors with the above calls. */
1032 x_check_errors (dpy
, "can't set cursor shape: %s");
1033 x_uncatch_errors ();
1036 XColor fore_color
, back_color
;
1038 fore_color
.pixel
= x
->mouse_pixel
;
1039 x_query_color (f
, &fore_color
);
1040 back_color
.pixel
= mask_color
;
1041 x_query_color (f
, &back_color
);
1043 XRecolorCursor (dpy
, cursor
, &fore_color
, &back_color
);
1044 XRecolorCursor (dpy
, nontext_cursor
, &fore_color
, &back_color
);
1045 XRecolorCursor (dpy
, mode_cursor
, &fore_color
, &back_color
);
1046 XRecolorCursor (dpy
, hand_cursor
, &fore_color
, &back_color
);
1047 XRecolorCursor (dpy
, hourglass_cursor
, &fore_color
, &back_color
);
1048 XRecolorCursor (dpy
, horizontal_drag_cursor
, &fore_color
, &back_color
);
1051 if (FRAME_X_WINDOW (f
) != 0)
1052 XDefineCursor (dpy
, FRAME_X_WINDOW (f
), cursor
);
1054 if (cursor
!= x
->text_cursor
1055 && x
->text_cursor
!= 0)
1056 XFreeCursor (dpy
, x
->text_cursor
);
1057 x
->text_cursor
= cursor
;
1059 if (nontext_cursor
!= x
->nontext_cursor
1060 && x
->nontext_cursor
!= 0)
1061 XFreeCursor (dpy
, x
->nontext_cursor
);
1062 x
->nontext_cursor
= nontext_cursor
;
1064 if (hourglass_cursor
!= x
->hourglass_cursor
1065 && x
->hourglass_cursor
!= 0)
1066 XFreeCursor (dpy
, x
->hourglass_cursor
);
1067 x
->hourglass_cursor
= hourglass_cursor
;
1069 if (mode_cursor
!= x
->modeline_cursor
1070 && x
->modeline_cursor
!= 0)
1071 XFreeCursor (dpy
, f
->output_data
.x
->modeline_cursor
);
1072 x
->modeline_cursor
= mode_cursor
;
1074 if (hand_cursor
!= x
->hand_cursor
1075 && x
->hand_cursor
!= 0)
1076 XFreeCursor (dpy
, x
->hand_cursor
);
1077 x
->hand_cursor
= hand_cursor
;
1079 if (horizontal_drag_cursor
!= x
->horizontal_drag_cursor
1080 && x
->horizontal_drag_cursor
!= 0)
1081 XFreeCursor (dpy
, x
->horizontal_drag_cursor
);
1082 x
->horizontal_drag_cursor
= horizontal_drag_cursor
;
1087 update_face_from_frame_parameter (f
, Qmouse_color
, arg
);
1091 x_set_cursor_color (f
, arg
, oldval
)
1093 Lisp_Object arg
, oldval
;
1095 unsigned long fore_pixel
, pixel
;
1096 int fore_pixel_allocated_p
= 0, pixel_allocated_p
= 0;
1097 struct x_output
*x
= f
->output_data
.x
;
1099 if (!NILP (Vx_cursor_fore_pixel
))
1101 fore_pixel
= x_decode_color (f
, Vx_cursor_fore_pixel
,
1102 WHITE_PIX_DEFAULT (f
));
1103 fore_pixel_allocated_p
= 1;
1106 fore_pixel
= FRAME_BACKGROUND_PIXEL (f
);
1108 pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1109 pixel_allocated_p
= 1;
1111 /* Make sure that the cursor color differs from the background color. */
1112 if (pixel
== FRAME_BACKGROUND_PIXEL (f
))
1114 if (pixel_allocated_p
)
1116 x_free_colors (f
, &pixel
, 1);
1117 pixel_allocated_p
= 0;
1120 pixel
= x
->mouse_pixel
;
1121 if (pixel
== fore_pixel
)
1123 if (fore_pixel_allocated_p
)
1125 x_free_colors (f
, &fore_pixel
, 1);
1126 fore_pixel_allocated_p
= 0;
1128 fore_pixel
= FRAME_BACKGROUND_PIXEL (f
);
1132 unload_color (f
, x
->cursor_foreground_pixel
);
1133 if (!fore_pixel_allocated_p
)
1134 fore_pixel
= x_copy_color (f
, fore_pixel
);
1135 x
->cursor_foreground_pixel
= fore_pixel
;
1137 unload_color (f
, x
->cursor_pixel
);
1138 if (!pixel_allocated_p
)
1139 pixel
= x_copy_color (f
, pixel
);
1140 x
->cursor_pixel
= pixel
;
1142 if (FRAME_X_WINDOW (f
) != 0)
1145 XSetBackground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, x
->cursor_pixel
);
1146 XSetForeground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, fore_pixel
);
1149 if (FRAME_VISIBLE_P (f
))
1151 x_update_cursor (f
, 0);
1152 x_update_cursor (f
, 1);
1156 update_face_from_frame_parameter (f
, Qcursor_color
, arg
);
1159 /* Set the border-color of frame F to pixel value PIX.
1160 Note that this does not fully take effect if done before
1161 F has an x-window. */
1164 x_set_border_pixel (f
, pix
)
1168 unload_color (f
, f
->output_data
.x
->border_pixel
);
1169 f
->output_data
.x
->border_pixel
= pix
;
1171 if (FRAME_X_WINDOW (f
) != 0 && f
->border_width
> 0)
1174 XSetWindowBorder (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1175 (unsigned long)pix
);
1178 if (FRAME_VISIBLE_P (f
))
1183 /* Set the border-color of frame F to value described by ARG.
1184 ARG can be a string naming a color.
1185 The border-color is used for the border that is drawn by the X server.
1186 Note that this does not fully take effect if done before
1187 F has an x-window; it must be redone when the window is created.
1189 Note: this is done in two routines because of the way X10 works.
1191 Note: under X11, this is normally the province of the window manager,
1192 and so emacs' border colors may be overridden. */
1195 x_set_border_color (f
, arg
, oldval
)
1197 Lisp_Object arg
, oldval
;
1202 pix
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1203 x_set_border_pixel (f
, pix
);
1204 update_face_from_frame_parameter (f
, Qborder_color
, arg
);
1209 x_set_cursor_type (f
, arg
, oldval
)
1211 Lisp_Object arg
, oldval
;
1213 set_frame_cursor_types (f
, arg
);
1215 /* Make sure the cursor gets redrawn. */
1216 cursor_type_changed
= 1;
1220 x_set_icon_type (f
, arg
, oldval
)
1222 Lisp_Object arg
, oldval
;
1228 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1231 else if (!STRINGP (oldval
) && EQ (oldval
, Qnil
) == EQ (arg
, Qnil
))
1236 result
= x_text_icon (f
,
1237 (char *) SDATA ((!NILP (f
->icon_name
)
1241 result
= x_bitmap_icon (f
, arg
);
1246 error ("No icon window available");
1249 XFlush (FRAME_X_DISPLAY (f
));
1254 x_set_icon_name (f
, arg
, oldval
)
1256 Lisp_Object arg
, oldval
;
1262 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1265 else if (!NILP (arg
) || NILP (oldval
))
1270 if (f
->output_data
.x
->icon_bitmap
!= 0)
1275 result
= x_text_icon (f
,
1276 (char *) SDATA ((!NILP (f
->icon_name
)
1285 error ("No icon window available");
1288 XFlush (FRAME_X_DISPLAY (f
));
1294 x_set_menu_bar_lines (f
, value
, oldval
)
1296 Lisp_Object value
, oldval
;
1299 #if ! defined (USE_X_TOOLKIT) && ! defined (USE_GTK)
1300 int olines
= FRAME_MENU_BAR_LINES (f
);
1303 /* Right now, menu bars don't work properly in minibuf-only frames;
1304 most of the commands try to apply themselves to the minibuffer
1305 frame itself, and get an error because you can't switch buffers
1306 in or split the minibuffer window. */
1307 if (FRAME_MINIBUF_ONLY_P (f
))
1310 if (INTEGERP (value
))
1311 nlines
= XINT (value
);
1315 /* Make sure we redisplay all windows in this frame. */
1316 windows_or_buffers_changed
++;
1318 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
1319 FRAME_MENU_BAR_LINES (f
) = 0;
1322 FRAME_EXTERNAL_MENU_BAR (f
) = 1;
1323 if (FRAME_X_P (f
) && f
->output_data
.x
->menubar_widget
== 0)
1324 /* Make sure next redisplay shows the menu bar. */
1325 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= Qt
;
1329 if (FRAME_EXTERNAL_MENU_BAR (f
) == 1)
1330 free_frame_menubar (f
);
1331 FRAME_EXTERNAL_MENU_BAR (f
) = 0;
1333 f
->output_data
.x
->menubar_widget
= 0;
1335 #else /* not USE_X_TOOLKIT && not USE_GTK */
1336 FRAME_MENU_BAR_LINES (f
) = nlines
;
1337 change_window_heights (f
->root_window
, nlines
- olines
);
1338 #endif /* not USE_X_TOOLKIT */
1343 /* Set the number of lines used for the tool bar of frame F to VALUE.
1344 VALUE not an integer, or < 0 means set the lines to zero. OLDVAL
1345 is the old number of tool bar lines. This function changes the
1346 height of all windows on frame F to match the new tool bar height.
1347 The frame's height doesn't change. */
1350 x_set_tool_bar_lines (f
, value
, oldval
)
1352 Lisp_Object value
, oldval
;
1354 int delta
, nlines
, root_height
;
1355 Lisp_Object root_window
;
1357 /* Treat tool bars like menu bars. */
1358 if (FRAME_MINIBUF_ONLY_P (f
))
1361 /* Use VALUE only if an integer >= 0. */
1362 if (INTEGERP (value
) && XINT (value
) >= 0)
1363 nlines
= XFASTINT (value
);
1368 FRAME_TOOL_BAR_LINES (f
) = 0;
1371 FRAME_EXTERNAL_TOOL_BAR (f
) = 1;
1372 if (FRAME_X_P (f
) && f
->output_data
.x
->toolbar_widget
== 0)
1373 /* Make sure next redisplay shows the tool bar. */
1374 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= Qt
;
1375 update_frame_tool_bar (f
);
1379 if (FRAME_EXTERNAL_TOOL_BAR (f
))
1380 free_frame_tool_bar (f
);
1381 FRAME_EXTERNAL_TOOL_BAR (f
) = 0;
1387 /* Make sure we redisplay all windows in this frame. */
1388 ++windows_or_buffers_changed
;
1390 delta
= nlines
- FRAME_TOOL_BAR_LINES (f
);
1392 /* Don't resize the tool-bar to more than we have room for. */
1393 root_window
= FRAME_ROOT_WINDOW (f
);
1394 root_height
= WINDOW_TOTAL_LINES (XWINDOW (root_window
));
1395 if (root_height
- delta
< 1)
1397 delta
= root_height
- 1;
1398 nlines
= FRAME_TOOL_BAR_LINES (f
) + delta
;
1401 FRAME_TOOL_BAR_LINES (f
) = nlines
;
1402 change_window_heights (root_window
, delta
);
1405 /* We also have to make sure that the internal border at the top of
1406 the frame, below the menu bar or tool bar, is redrawn when the
1407 tool bar disappears. This is so because the internal border is
1408 below the tool bar if one is displayed, but is below the menu bar
1409 if there isn't a tool bar. The tool bar draws into the area
1410 below the menu bar. */
1411 if (FRAME_X_WINDOW (f
) && FRAME_TOOL_BAR_LINES (f
) == 0)
1414 clear_current_matrices (f
);
1417 /* If the tool bar gets smaller, the internal border below it
1418 has to be cleared. It was formerly part of the display
1419 of the larger tool bar, and updating windows won't clear it. */
1422 int height
= FRAME_INTERNAL_BORDER_WIDTH (f
);
1423 int width
= FRAME_PIXEL_WIDTH (f
);
1424 int y
= nlines
* FRAME_LINE_HEIGHT (f
);
1426 /* height can be zero here. */
1427 if (height
> 0 && width
> 0)
1430 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1431 0, y
, width
, height
, False
);
1435 if (WINDOWP (f
->tool_bar_window
))
1436 clear_glyph_matrix (XWINDOW (f
->tool_bar_window
)->current_matrix
);
1441 /* Set the foreground color for scroll bars on frame F to VALUE.
1442 VALUE should be a string, a color name. If it isn't a string or
1443 isn't a valid color name, do nothing. OLDVAL is the old value of
1444 the frame parameter. */
1447 x_set_scroll_bar_foreground (f
, value
, oldval
)
1449 Lisp_Object value
, oldval
;
1451 unsigned long pixel
;
1453 if (STRINGP (value
))
1454 pixel
= x_decode_color (f
, value
, BLACK_PIX_DEFAULT (f
));
1458 if (f
->output_data
.x
->scroll_bar_foreground_pixel
!= -1)
1459 unload_color (f
, f
->output_data
.x
->scroll_bar_foreground_pixel
);
1461 f
->output_data
.x
->scroll_bar_foreground_pixel
= pixel
;
1462 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1464 /* Remove all scroll bars because they have wrong colors. */
1465 if (FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
)
1466 (*FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
) (f
);
1467 if (FRAME_TERMINAL (f
)->judge_scroll_bars_hook
)
1468 (*FRAME_TERMINAL (f
)->judge_scroll_bars_hook
) (f
);
1470 update_face_from_frame_parameter (f
, Qscroll_bar_foreground
, value
);
1476 /* Set the background color for scroll bars on frame F to VALUE VALUE
1477 should be a string, a color name. If it isn't a string or isn't a
1478 valid color name, do nothing. OLDVAL is the old value of the frame
1482 x_set_scroll_bar_background (f
, value
, oldval
)
1484 Lisp_Object value
, oldval
;
1486 unsigned long pixel
;
1488 if (STRINGP (value
))
1489 pixel
= x_decode_color (f
, value
, WHITE_PIX_DEFAULT (f
));
1493 if (f
->output_data
.x
->scroll_bar_background_pixel
!= -1)
1494 unload_color (f
, f
->output_data
.x
->scroll_bar_background_pixel
);
1496 #ifdef USE_TOOLKIT_SCROLL_BARS
1497 /* Scrollbar shadow colors. */
1498 if (f
->output_data
.x
->scroll_bar_top_shadow_pixel
!= -1)
1500 unload_color (f
, f
->output_data
.x
->scroll_bar_top_shadow_pixel
);
1501 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
1503 if (f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
!= -1)
1505 unload_color (f
, f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
);
1506 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
1508 #endif /* USE_TOOLKIT_SCROLL_BARS */
1510 f
->output_data
.x
->scroll_bar_background_pixel
= pixel
;
1511 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1513 /* Remove all scroll bars because they have wrong colors. */
1514 if (FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
)
1515 (*FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
) (f
);
1516 if (FRAME_TERMINAL (f
)->judge_scroll_bars_hook
)
1517 (*FRAME_TERMINAL (f
)->judge_scroll_bars_hook
) (f
);
1519 update_face_from_frame_parameter (f
, Qscroll_bar_background
, value
);
1525 /* Encode Lisp string STRING as a text in a format appropriate for
1526 XICCC (X Inter Client Communication Conventions).
1528 If STRING contains only ASCII characters, do no conversion and
1529 return the string data of STRING. Otherwise, encode the text by
1530 CODING_SYSTEM, and return a newly allocated memory area which
1531 should be freed by `xfree' by a caller.
1533 SELECTIONP non-zero means the string is being encoded for an X
1534 selection, so it is safe to run pre-write conversions (which
1537 Store the byte length of resulting text in *TEXT_BYTES.
1539 If the text contains only ASCII and Latin-1, store 1 in *STRING_P,
1540 which means that the `encoding' of the result can be `STRING'.
1541 Otherwise store 0 in *STRINGP, which means that the `encoding' of
1542 the result should be `COMPOUND_TEXT'. */
1544 static unsigned char *
1545 x_encode_text (string
, coding_system
, selectionp
, text_bytes
, stringp
, freep
)
1546 Lisp_Object string
, coding_system
;
1547 int *text_bytes
, *stringp
;
1551 unsigned char *str
= SDATA (string
);
1552 int chars
= SCHARS (string
);
1553 int bytes
= SBYTES (string
);
1557 struct coding_system coding
;
1558 extern Lisp_Object Qcompound_text_with_extensions
;
1560 charset_info
= find_charset_in_text (str
, chars
, bytes
, NULL
, Qnil
);
1561 if (charset_info
== 0)
1563 /* No multibyte character in OBJ. We need not encode it. */
1564 *text_bytes
= bytes
;
1570 setup_coding_system (coding_system
, &coding
);
1572 && SYMBOLP (coding
.pre_write_conversion
)
1573 && !NILP (Ffboundp (coding
.pre_write_conversion
)))
1575 string
= run_pre_post_conversion_on_str (string
, &coding
, 1);
1576 str
= SDATA (string
);
1577 chars
= SCHARS (string
);
1578 bytes
= SBYTES (string
);
1580 coding
.src_multibyte
= 1;
1581 coding
.dst_multibyte
= 0;
1582 coding
.mode
|= CODING_MODE_LAST_BLOCK
;
1583 if (coding
.type
== coding_type_iso2022
)
1584 coding
.flags
|= CODING_FLAG_ISO_SAFE
;
1585 /* We suppress producing escape sequences for composition. */
1586 coding
.composing
= COMPOSITION_DISABLED
;
1587 bufsize
= encoding_buffer_size (&coding
, bytes
);
1588 buf
= (unsigned char *) xmalloc (bufsize
);
1589 encode_coding (&coding
, str
, buf
, bytes
, bufsize
);
1590 *text_bytes
= coding
.produced
;
1591 *stringp
= (charset_info
== 1
1592 || (!EQ (coding_system
, Qcompound_text
)
1593 && !EQ (coding_system
, Qcompound_text_with_extensions
)));
1599 /* Set the WM name to NAME for frame F. Also set the icon name.
1600 If the frame already has an icon name, use that, otherwise set the
1601 icon name to NAME. */
1604 x_set_name_internal (f
, name
)
1608 if (FRAME_X_WINDOW (f
))
1613 XTextProperty text
, icon
;
1615 int do_free_icon_value
= 0, do_free_text_value
= 0;
1616 Lisp_Object coding_system
;
1618 coding_system
= Qcompound_text
;
1619 /* Note: Encoding strategy
1621 We encode NAME by compound-text and use "COMPOUND-TEXT" in
1622 text.encoding. But, there are non-internationalized window
1623 managers which don't support that encoding. So, if NAME
1624 contains only ASCII and 8859-1 characters, encode it by
1625 iso-latin-1, and use "STRING" in text.encoding hoping that
1626 such window managers at least analyze this format correctly,
1627 i.e. treat 8-bit bytes as 8859-1 characters.
1629 We may also be able to use "UTF8_STRING" in text.encoding
1630 in the future which can encode all Unicode characters.
1631 But, for the moment, there's no way to know that the
1632 current window manager supports it or not. */
1633 text
.value
= x_encode_text (name
, coding_system
, 0, &bytes
, &stringp
,
1634 &do_free_text_value
);
1635 text
.encoding
= (stringp
? XA_STRING
1636 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1638 text
.nitems
= bytes
;
1640 if (!STRINGP (f
->icon_name
))
1646 /* See the above comment "Note: Encoding strategy". */
1647 icon
.value
= x_encode_text (f
->icon_name
, coding_system
, 0,
1648 &bytes
, &stringp
, &do_free_icon_value
);
1649 icon
.encoding
= (stringp
? XA_STRING
1650 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1652 icon
.nitems
= bytes
;
1656 gtk_window_set_title (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
1657 (char *) SDATA (ENCODE_UTF_8 (name
)));
1658 #else /* not USE_GTK */
1659 XSetWMName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &text
);
1660 #endif /* not USE_GTK */
1662 XSetWMIconName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &icon
);
1664 if (do_free_icon_value
)
1666 if (do_free_text_value
)
1669 #else /* not HAVE_X11R4 */
1670 XSetIconName (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1672 XStoreName (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1674 #endif /* not HAVE_X11R4 */
1679 /* Change the name of frame F to NAME. If NAME is nil, set F's name to
1682 If EXPLICIT is non-zero, that indicates that lisp code is setting the
1683 name; if NAME is a string, set F's name to NAME and set
1684 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1686 If EXPLICIT is zero, that indicates that Emacs redisplay code is
1687 suggesting a new name, which lisp code should override; if
1688 F->explicit_name is set, ignore the new name; otherwise, set it. */
1691 x_set_name (f
, name
, explicit)
1696 /* Make sure that requests from lisp code override requests from
1697 Emacs redisplay code. */
1700 /* If we're switching from explicit to implicit, we had better
1701 update the mode lines and thereby update the title. */
1702 if (f
->explicit_name
&& NILP (name
))
1703 update_mode_lines
= 1;
1705 f
->explicit_name
= ! NILP (name
);
1707 else if (f
->explicit_name
)
1710 /* If NAME is nil, set the name to the x_id_name. */
1713 /* Check for no change needed in this very common case
1714 before we do any consing. */
1715 if (!strcmp (FRAME_X_DISPLAY_INFO (f
)->x_id_name
,
1718 name
= build_string (FRAME_X_DISPLAY_INFO (f
)->x_id_name
);
1721 CHECK_STRING (name
);
1723 /* Don't change the name if it's already NAME. */
1724 if (! NILP (Fstring_equal (name
, f
->name
)))
1729 /* For setting the frame title, the title parameter should override
1730 the name parameter. */
1731 if (! NILP (f
->title
))
1734 x_set_name_internal (f
, name
);
1737 /* This function should be called when the user's lisp code has
1738 specified a name for the frame; the name will override any set by the
1741 x_explicitly_set_name (f
, arg
, oldval
)
1743 Lisp_Object arg
, oldval
;
1745 x_set_name (f
, arg
, 1);
1748 /* This function should be called by Emacs redisplay code to set the
1749 name; names set this way will never override names set by the user's
1752 x_implicitly_set_name (f
, arg
, oldval
)
1754 Lisp_Object arg
, oldval
;
1756 x_set_name (f
, arg
, 0);
1759 /* Change the title of frame F to NAME.
1760 If NAME is nil, use the frame name as the title.
1762 If EXPLICIT is non-zero, that indicates that lisp code is setting the
1763 name; if NAME is a string, set F's name to NAME and set
1764 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1766 If EXPLICIT is zero, that indicates that Emacs redisplay code is
1767 suggesting a new name, which lisp code should override; if
1768 F->explicit_name is set, ignore the new name; otherwise, set it. */
1771 x_set_title (f
, name
, old_name
)
1773 Lisp_Object name
, old_name
;
1775 /* Don't change the title if it's already NAME. */
1776 if (EQ (name
, f
->title
))
1779 update_mode_lines
= 1;
1786 CHECK_STRING (name
);
1788 x_set_name_internal (f
, name
);
1792 x_set_scroll_bar_default_width (f
)
1795 int wid
= FRAME_COLUMN_WIDTH (f
);
1797 #ifdef USE_TOOLKIT_SCROLL_BARS
1798 /* A minimum width of 14 doesn't look good for toolkit scroll bars. */
1799 int width
= 16 + 2 * VERTICAL_SCROLL_BAR_WIDTH_TRIM
;
1800 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (width
+ wid
- 1) / wid
;
1801 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = width
;
1803 /* Make the actual width at least 14 pixels and a multiple of a
1805 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (14 + wid
- 1) / wid
;
1807 /* Use all of that space (aside from required margins) for the
1809 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = 0;
1814 /* Record in frame F the specified or default value according to ALIST
1815 of the parameter named PROP (a Lisp symbol). If no value is
1816 specified for PROP, look for an X default for XPROP on the frame
1817 named NAME. If that is not found either, use the value DEFLT. */
1820 x_default_scroll_bar_color_parameter (f
, alist
, prop
, xprop
, xclass
,
1829 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
1832 tem
= x_get_arg (dpyinfo
, alist
, prop
, xprop
, xclass
, RES_TYPE_STRING
);
1833 if (EQ (tem
, Qunbound
))
1835 #ifdef USE_TOOLKIT_SCROLL_BARS
1837 /* See if an X resource for the scroll bar color has been
1839 tem
= display_x_get_resource (dpyinfo
,
1840 build_string (foreground_p
1844 build_string ("verticalScrollBar"),
1848 /* If nothing has been specified, scroll bars will use a
1849 toolkit-dependent default. Because these defaults are
1850 difficult to get at without actually creating a scroll
1851 bar, use nil to indicate that no color has been
1856 #else /* not USE_TOOLKIT_SCROLL_BARS */
1860 #endif /* not USE_TOOLKIT_SCROLL_BARS */
1863 x_set_frame_parameters (f
, Fcons (Fcons (prop
, tem
), Qnil
));
1869 #if !defined (HAVE_X11R4) && !defined (HAVE_XSETWMPROTOCOLS)
1872 XSetWMProtocols (dpy
, w
, protocols
, count
)
1879 prop
= XInternAtom (dpy
, "WM_PROTOCOLS", False
);
1880 if (prop
== None
) return False
;
1881 XChangeProperty (dpy
, w
, prop
, XA_ATOM
, 32, PropModeReplace
,
1882 (unsigned char *) protocols
, count
);
1885 #endif /* not HAVE_X11R4 && not HAVE_XSETWMPROTOCOLS */
1887 #ifdef USE_X_TOOLKIT
1889 /* If the WM_PROTOCOLS property does not already contain WM_TAKE_FOCUS,
1890 WM_DELETE_WINDOW, and WM_SAVE_YOURSELF, then add them. (They may
1891 already be present because of the toolkit (Motif adds some of them,
1892 for example, but Xt doesn't). */
1895 hack_wm_protocols (f
, widget
)
1899 Display
*dpy
= XtDisplay (widget
);
1900 Window w
= XtWindow (widget
);
1901 int need_delete
= 1;
1908 unsigned char *catoms
;
1910 unsigned long nitems
= 0;
1911 unsigned long bytes_after
;
1913 if ((XGetWindowProperty (dpy
, w
,
1914 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1915 (long)0, (long)100, False
, XA_ATOM
,
1916 &type
, &format
, &nitems
, &bytes_after
,
1919 && format
== 32 && type
== XA_ATOM
)
1921 Atom
*atoms
= (Atom
*) catoms
;
1926 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
)
1928 else if (atoms
[nitems
]
1929 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
)
1931 else if (atoms
[nitems
]
1932 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
)
1943 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
1945 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
;
1947 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
1949 XChangeProperty (dpy
, w
, FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1950 XA_ATOM
, 32, PropModeAppend
,
1951 (unsigned char *) props
, count
);
1959 /* Support routines for XIC (X Input Context). */
1963 static XFontSet xic_create_xfontset
P_ ((struct frame
*, char *));
1964 static XIMStyle best_xim_style
P_ ((XIMStyles
*, XIMStyles
*));
1967 /* Supported XIM styles, ordered by preference. */
1969 static XIMStyle supported_xim_styles
[] =
1971 XIMPreeditPosition
| XIMStatusArea
,
1972 XIMPreeditPosition
| XIMStatusNothing
,
1973 XIMPreeditPosition
| XIMStatusNone
,
1974 XIMPreeditNothing
| XIMStatusArea
,
1975 XIMPreeditNothing
| XIMStatusNothing
,
1976 XIMPreeditNothing
| XIMStatusNone
,
1977 XIMPreeditNone
| XIMStatusArea
,
1978 XIMPreeditNone
| XIMStatusNothing
,
1979 XIMPreeditNone
| XIMStatusNone
,
1984 /* Create an X fontset on frame F with base font name BASE_FONTNAME. */
1986 char xic_defaut_fontset
[] = "-*-*-*-r-normal--14-*-*-*-*-*-*-*";
1988 /* Create an Xt fontset spec from the name of a base font.
1989 If `motif' is True use the Motif syntax. */
1991 xic_create_fontsetname (base_fontname
, motif
)
1992 char *base_fontname
;
1995 const char *sep
= motif
? ";" : ",";
1998 /* Make a fontset name from the base font name. */
1999 if (xic_defaut_fontset
== base_fontname
)
2000 { /* There is no base font name, use the default. */
2001 int len
= strlen (base_fontname
) + 2;
2002 fontsetname
= xmalloc (len
);
2003 bzero (fontsetname
, len
);
2004 strcpy (fontsetname
, base_fontname
);
2008 /* Make a fontset name from the base font name.
2009 The font set will be made of the following elements:
2011 - the base font where the charset spec is replaced by -*-*.
2012 - the same but with the family also replaced with -*-*-. */
2013 char *p
= base_fontname
;
2016 for (i
= 0; *p
; p
++)
2019 { /* As the font name doesn't conform to XLFD, we can't
2020 modify it to generalize it to allcs and allfamilies.
2021 Use the specified font plus the default. */
2022 int len
= strlen (base_fontname
) + strlen (xic_defaut_fontset
) + 3;
2023 fontsetname
= xmalloc (len
);
2024 bzero (fontsetname
, len
);
2025 strcpy (fontsetname
, base_fontname
);
2026 strcat (fontsetname
, sep
);
2027 strcat (fontsetname
, xic_defaut_fontset
);
2032 char *p1
= NULL
, *p2
= NULL
, *p3
= NULL
;
2033 char *font_allcs
= NULL
;
2034 char *font_allfamilies
= NULL
;
2035 char *font_all
= NULL
;
2036 char *allcs
= "*-*-*-*-*-*-*";
2037 char *allfamilies
= "-*-*-";
2038 char *all
= "*-*-*-*-";
2041 for (i
= 0, p
= base_fontname
; i
< 8; p
++)
2054 /* If base_fontname specifies ADSTYLE, make it a
2058 int diff
= (p2
- p3
) - 2;
2060 base
= alloca (strlen (base_fontname
) + 1);
2061 bcopy (base_fontname
, base
, p3
- base_fontname
);
2062 base
[p3
- base_fontname
] = '*';
2063 base
[(p3
- base_fontname
) + 1] = '-';
2064 strcpy (base
+ (p3
- base_fontname
) + 2, p2
);
2065 p
= base
+ (p
- base_fontname
) - diff
;
2066 p1
= base
+ (p1
- base_fontname
);
2067 p2
= base
+ (p2
- base_fontname
) - diff
;
2068 base_fontname
= base
;
2071 /* Build the font spec that matches all charsets. */
2072 len
= p
- base_fontname
+ strlen (allcs
) + 1;
2073 font_allcs
= (char *) alloca (len
);
2074 bzero (font_allcs
, len
);
2075 bcopy (base_fontname
, font_allcs
, p
- base_fontname
);
2076 strcat (font_allcs
, allcs
);
2078 /* Build the font spec that matches all families and
2080 len
= p
- p1
+ strlen (allcs
) + strlen (allfamilies
) + 1;
2081 font_allfamilies
= (char *) alloca (len
);
2082 bzero (font_allfamilies
, len
);
2083 strcpy (font_allfamilies
, allfamilies
);
2084 bcopy (p1
, font_allfamilies
+ strlen (allfamilies
), p
- p1
);
2085 strcat (font_allfamilies
, allcs
);
2087 /* Build the font spec that matches all. */
2088 len
= p
- p2
+ strlen (allcs
) + strlen (all
) + strlen (allfamilies
) + 1;
2089 font_all
= (char *) alloca (len
);
2090 bzero (font_all
, len
);
2091 strcpy (font_all
, allfamilies
);
2092 strcat (font_all
, all
);
2093 bcopy (p2
, font_all
+ strlen (all
) + strlen (allfamilies
), p
- p2
);
2094 strcat (font_all
, allcs
);
2096 /* Build the actual font set name. */
2097 len
= strlen (base_fontname
) + strlen (font_allcs
)
2098 + strlen (font_allfamilies
) + strlen (font_all
) + 5;
2099 fontsetname
= xmalloc (len
);
2100 bzero (fontsetname
, len
);
2101 strcpy (fontsetname
, base_fontname
);
2102 strcat (fontsetname
, sep
);
2103 strcat (fontsetname
, font_allcs
);
2104 strcat (fontsetname
, sep
);
2105 strcat (fontsetname
, font_allfamilies
);
2106 strcat (fontsetname
, sep
);
2107 strcat (fontsetname
, font_all
);
2111 strcat (fontsetname
, ":");
2116 xic_create_xfontset (f
, base_fontname
)
2118 char *base_fontname
;
2120 XFontSet xfs
= NULL
;
2121 char **missing_list
= NULL
;
2124 Lisp_Object rest
, frame
;
2127 base_fontname
= xic_defaut_fontset
;
2129 /* See if there is another frame already using same fontset. */
2130 FOR_EACH_FRAME (rest
, frame
)
2132 struct frame
*cf
= XFRAME (frame
);
2133 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
2134 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
2135 && FRAME_XIC_BASE_FONTNAME (cf
)
2136 && !strcmp (FRAME_XIC_BASE_FONTNAME (cf
), base_fontname
))
2138 xfs
= FRAME_XIC_FONTSET (cf
);
2145 char *fontsetname
= xic_create_fontsetname (base_fontname
, False
);
2146 char *p0
= fontsetname
, *p1
;
2149 /* FONTSETNAME contains a list of font names (specific fonts
2150 first, general fonts last), but giving that to XCreateFontSet
2151 at once occasionally fails (bug of X?). So, we try to call
2152 XCreateFontSet for each fontname. */
2156 p1
= strchr (p0
, ',');
2159 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
),
2161 &missing_count
, &def_string
);
2163 XFreeStringList (missing_list
);
2166 p0
= p1
? p1
+ 1 : NULL
;
2168 xfree (fontsetname
);
2171 if (FRAME_XIC_BASE_FONTNAME (f
))
2172 xfree (FRAME_XIC_BASE_FONTNAME (f
));
2173 FRAME_XIC_BASE_FONTNAME (f
) = xstrdup (base_fontname
);
2175 /* No need to free def_string. */
2179 /* Free the X fontset of frame F if it is the last frame using it. */
2182 xic_free_xfontset (f
)
2185 Lisp_Object rest
, frame
;
2188 if (!FRAME_XIC_FONTSET (f
))
2191 /* See if there is another frame sharing the same fontset. */
2192 FOR_EACH_FRAME (rest
, frame
)
2194 struct frame
*cf
= XFRAME (frame
);
2195 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
2196 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
2197 && FRAME_XIC_FONTSET (cf
) == FRAME_XIC_FONTSET (f
))
2205 /* The fontset is not used anymore. It is safe to free it. */
2206 XFreeFontSet (FRAME_X_DISPLAY (f
), FRAME_XIC_FONTSET (f
));
2208 if (FRAME_XIC_BASE_FONTNAME (f
))
2209 xfree (FRAME_XIC_BASE_FONTNAME (f
));
2210 FRAME_XIC_BASE_FONTNAME (f
) = NULL
;
2211 FRAME_XIC_FONTSET (f
) = NULL
;
2215 /* Value is the best input style, given user preferences USER (already
2216 checked to be supported by Emacs), and styles supported by the
2217 input method XIM. */
2220 best_xim_style (user
, xim
)
2226 for (i
= 0; i
< user
->count_styles
; ++i
)
2227 for (j
= 0; j
< xim
->count_styles
; ++j
)
2228 if (user
->supported_styles
[i
] == xim
->supported_styles
[j
])
2229 return user
->supported_styles
[i
];
2231 /* Return the default style. */
2232 return XIMPreeditNothing
| XIMStatusNothing
;
2235 /* Create XIC for frame F. */
2237 static XIMStyle xic_style
;
2240 create_frame_xic (f
)
2245 XFontSet xfs
= NULL
;
2250 /* Create X fontset. */
2251 xfs
= xic_create_xfontset
2252 (f
, (FRAME_FONTSET (f
) < 0) ? NULL
2253 : (char *) SDATA (fontset_ascii (FRAME_FONTSET (f
))));
2255 xim
= FRAME_X_XIM (f
);
2260 XVaNestedList preedit_attr
;
2261 XVaNestedList status_attr
;
2263 s_area
.x
= 0; s_area
.y
= 0; s_area
.width
= 1; s_area
.height
= 1;
2264 spot
.x
= 0; spot
.y
= 1;
2266 /* Determine XIC style. */
2269 XIMStyles supported_list
;
2270 supported_list
.count_styles
= (sizeof supported_xim_styles
2271 / sizeof supported_xim_styles
[0]);
2272 supported_list
.supported_styles
= supported_xim_styles
;
2273 xic_style
= best_xim_style (&supported_list
,
2274 FRAME_X_XIM_STYLES (f
));
2277 preedit_attr
= XVaCreateNestedList (0,
2280 FRAME_FOREGROUND_PIXEL (f
),
2282 FRAME_BACKGROUND_PIXEL (f
),
2283 (xic_style
& XIMPreeditPosition
2288 status_attr
= XVaCreateNestedList (0,
2294 FRAME_FOREGROUND_PIXEL (f
),
2296 FRAME_BACKGROUND_PIXEL (f
),
2299 xic
= XCreateIC (xim
,
2300 XNInputStyle
, xic_style
,
2301 XNClientWindow
, FRAME_X_WINDOW (f
),
2302 XNFocusWindow
, FRAME_X_WINDOW (f
),
2303 XNStatusAttributes
, status_attr
,
2304 XNPreeditAttributes
, preedit_attr
,
2306 XFree (preedit_attr
);
2307 XFree (status_attr
);
2310 FRAME_XIC (f
) = xic
;
2311 FRAME_XIC_STYLE (f
) = xic_style
;
2312 FRAME_XIC_FONTSET (f
) = xfs
;
2316 /* Destroy XIC and free XIC fontset of frame F, if any. */
2322 if (FRAME_XIC (f
) == NULL
)
2325 XDestroyIC (FRAME_XIC (f
));
2326 xic_free_xfontset (f
);
2328 FRAME_XIC (f
) = NULL
;
2332 /* Place preedit area for XIC of window W's frame to specified
2333 pixel position X/Y. X and Y are relative to window W. */
2336 xic_set_preeditarea (w
, x
, y
)
2340 struct frame
*f
= XFRAME (w
->frame
);
2344 spot
.x
= WINDOW_TO_FRAME_PIXEL_X (w
, x
) + WINDOW_LEFT_FRINGE_WIDTH (w
);
2345 spot
.y
= WINDOW_TO_FRAME_PIXEL_Y (w
, y
) + FONT_BASE (FRAME_FONT (f
));
2346 attr
= XVaCreateNestedList (0, XNSpotLocation
, &spot
, NULL
);
2347 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2352 /* Place status area for XIC in bottom right corner of frame F.. */
2355 xic_set_statusarea (f
)
2358 XIC xic
= FRAME_XIC (f
);
2363 /* Negotiate geometry of status area. If input method has existing
2364 status area, use its current size. */
2365 area
.x
= area
.y
= area
.width
= area
.height
= 0;
2366 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &area
, NULL
);
2367 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2370 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &needed
, NULL
);
2371 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2374 if (needed
->width
== 0) /* Use XNArea instead of XNAreaNeeded */
2376 attr
= XVaCreateNestedList (0, XNArea
, &needed
, NULL
);
2377 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2381 area
.width
= needed
->width
;
2382 area
.height
= needed
->height
;
2383 area
.x
= FRAME_PIXEL_WIDTH (f
) - area
.width
- FRAME_INTERNAL_BORDER_WIDTH (f
);
2384 area
.y
= (FRAME_PIXEL_HEIGHT (f
) - area
.height
2385 - FRAME_MENUBAR_HEIGHT (f
)
2386 - FRAME_TOOLBAR_HEIGHT (f
)
2387 - FRAME_INTERNAL_BORDER_WIDTH (f
));
2390 attr
= XVaCreateNestedList (0, XNArea
, &area
, NULL
);
2391 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2396 /* Set X fontset for XIC of frame F, using base font name
2397 BASE_FONTNAME. Called when a new Emacs fontset is chosen. */
2400 xic_set_xfontset (f
, base_fontname
)
2402 char *base_fontname
;
2407 xic_free_xfontset (f
);
2409 xfs
= xic_create_xfontset (f
, base_fontname
);
2411 attr
= XVaCreateNestedList (0, XNFontSet
, xfs
, NULL
);
2412 if (FRAME_XIC_STYLE (f
) & XIMPreeditPosition
)
2413 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2414 if (FRAME_XIC_STYLE (f
) & XIMStatusArea
)
2415 XSetICValues (FRAME_XIC (f
), XNStatusAttributes
, attr
, NULL
);
2418 FRAME_XIC_FONTSET (f
) = xfs
;
2421 #endif /* HAVE_X_I18N */
2425 #ifdef USE_X_TOOLKIT
2427 /* Create and set up the X widget for frame F. */
2430 x_window (f
, window_prompting
, minibuffer_only
)
2432 long window_prompting
;
2433 int minibuffer_only
;
2435 XClassHint class_hints
;
2436 XSetWindowAttributes attributes
;
2437 unsigned long attribute_mask
;
2438 Widget shell_widget
;
2440 Widget frame_widget
;
2446 /* Use the resource name as the top-level widget name
2447 for looking up resources. Make a non-Lisp copy
2448 for the window manager, so GC relocation won't bother it.
2450 Elsewhere we specify the window name for the window manager. */
2453 char *str
= (char *) SDATA (Vx_resource_name
);
2454 f
->namebuf
= (char *) xmalloc (strlen (str
) + 1);
2455 strcpy (f
->namebuf
, str
);
2459 XtSetArg (al
[ac
], XtNallowShellResize
, 1); ac
++;
2460 XtSetArg (al
[ac
], XtNinput
, 1); ac
++;
2461 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2462 XtSetArg (al
[ac
], XtNborderWidth
, f
->border_width
); ac
++;
2463 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2464 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2465 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2466 shell_widget
= XtAppCreateShell (f
->namebuf
, EMACS_CLASS
,
2467 applicationShellWidgetClass
,
2468 FRAME_X_DISPLAY (f
), al
, ac
);
2470 f
->output_data
.x
->widget
= shell_widget
;
2471 /* maybe_set_screen_title_format (shell_widget); */
2473 pane_widget
= lw_create_widget ("main", "pane", widget_id_tick
++,
2474 (widget_value
*) NULL
,
2475 shell_widget
, False
,
2479 (lw_callback
) NULL
);
2482 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2483 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2484 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2485 XtSetValues (pane_widget
, al
, ac
);
2486 f
->output_data
.x
->column_widget
= pane_widget
;
2488 /* mappedWhenManaged to false tells to the paned window to not map/unmap
2489 the emacs screen when changing menubar. This reduces flickering. */
2492 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2493 XtSetArg (al
[ac
], XtNshowGrip
, 0); ac
++;
2494 XtSetArg (al
[ac
], XtNallowResize
, 1); ac
++;
2495 XtSetArg (al
[ac
], XtNresizeToPreferred
, 1); ac
++;
2496 XtSetArg (al
[ac
], XtNemacsFrame
, f
); ac
++;
2497 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2498 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2499 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2500 frame_widget
= XtCreateWidget (f
->namebuf
, emacsFrameClass
, pane_widget
,
2503 f
->output_data
.x
->edit_widget
= frame_widget
;
2505 XtManageChild (frame_widget
);
2507 /* Do some needed geometry management. */
2510 char *tem
, shell_position
[32];
2513 int extra_borders
= 0;
2515 = (f
->output_data
.x
->menubar_widget
2516 ? (f
->output_data
.x
->menubar_widget
->core
.height
2517 + f
->output_data
.x
->menubar_widget
->core
.border_width
)
2520 #if 0 /* Experimentally, we now get the right results
2521 for -geometry -0-0 without this. 24 Aug 96, rms. */
2522 if (FRAME_EXTERNAL_MENU_BAR (f
))
2525 XtVaGetValues (pane_widget
, XtNinternalBorderWidth
, &ibw
, NULL
);
2526 menubar_size
+= ibw
;
2530 f
->output_data
.x
->menubar_height
= menubar_size
;
2533 /* Motif seems to need this amount added to the sizes
2534 specified for the shell widget. The Athena/Lucid widgets don't.
2535 Both conclusions reached experimentally. -- rms. */
2536 XtVaGetValues (f
->output_data
.x
->edit_widget
, XtNinternalBorderWidth
,
2537 &extra_borders
, NULL
);
2541 /* Convert our geometry parameters into a geometry string
2543 Note that we do not specify here whether the position
2544 is a user-specified or program-specified one.
2545 We pass that information later, in x_wm_set_size_hints. */
2547 int left
= f
->left_pos
;
2548 int xneg
= window_prompting
& XNegative
;
2549 int top
= f
->top_pos
;
2550 int yneg
= window_prompting
& YNegative
;
2556 if (window_prompting
& USPosition
)
2557 sprintf (shell_position
, "=%dx%d%c%d%c%d",
2558 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2559 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
,
2560 (xneg
? '-' : '+'), left
,
2561 (yneg
? '-' : '+'), top
);
2564 sprintf (shell_position
, "=%dx%d",
2565 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2566 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
);
2568 /* Setting x and y when the position is not specified in
2569 the geometry string will set program position in the WM hints.
2570 If Emacs had just one program position, we could set it in
2571 fallback resources, but since each make-frame call can specify
2572 different program positions, this is easier. */
2573 XtSetArg (al
[ac
], XtNx
, left
); ac
++;
2574 XtSetArg (al
[ac
], XtNy
, top
); ac
++;
2578 len
= strlen (shell_position
) + 1;
2579 /* We don't free this because we don't know whether
2580 it is safe to free it while the frame exists.
2581 It isn't worth the trouble of arranging to free it
2582 when the frame is deleted. */
2583 tem
= (char *) xmalloc (len
);
2584 strncpy (tem
, shell_position
, len
);
2585 XtSetArg (al
[ac
], XtNgeometry
, tem
); ac
++;
2586 XtSetValues (shell_widget
, al
, ac
);
2589 XtManageChild (pane_widget
);
2590 XtRealizeWidget (shell_widget
);
2592 FRAME_X_WINDOW (f
) = XtWindow (frame_widget
);
2594 validate_x_resource_name ();
2596 class_hints
.res_name
= (char *) SDATA (Vx_resource_name
);
2597 class_hints
.res_class
= (char *) SDATA (Vx_resource_class
);
2598 XSetClassHint (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
), &class_hints
);
2601 FRAME_XIC (f
) = NULL
;
2603 create_frame_xic (f
);
2606 f
->output_data
.x
->wm_hints
.input
= True
;
2607 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2608 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2609 &f
->output_data
.x
->wm_hints
);
2611 hack_wm_protocols (f
, shell_widget
);
2614 XtAddEventHandler (shell_widget
, 0, True
, _XEditResCheckMessages
, 0);
2617 /* Do a stupid property change to force the server to generate a
2618 PropertyNotify event so that the event_stream server timestamp will
2619 be initialized to something relevant to the time we created the window.
2621 XChangeProperty (XtDisplay (frame_widget
), XtWindow (frame_widget
),
2622 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
2623 XA_ATOM
, 32, PropModeAppend
,
2624 (unsigned char*) NULL
, 0);
2626 /* Make all the standard events reach the Emacs frame. */
2627 attributes
.event_mask
= STANDARD_EVENT_SET
;
2632 /* XIM server might require some X events. */
2633 unsigned long fevent
= NoEventMask
;
2634 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2635 attributes
.event_mask
|= fevent
;
2637 #endif /* HAVE_X_I18N */
2639 attribute_mask
= CWEventMask
;
2640 XChangeWindowAttributes (XtDisplay (shell_widget
), XtWindow (shell_widget
),
2641 attribute_mask
, &attributes
);
2643 XtMapWidget (frame_widget
);
2645 /* x_set_name normally ignores requests to set the name if the
2646 requested name is the same as the current name. This is the one
2647 place where that assumption isn't correct; f->name is set, but
2648 the X server hasn't been told. */
2651 int explicit = f
->explicit_name
;
2653 f
->explicit_name
= 0;
2656 x_set_name (f
, name
, explicit);
2659 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2660 f
->output_data
.x
->text_cursor
);
2664 /* This is a no-op, except under Motif. Make sure main areas are
2665 set to something reasonable, in case we get an error later. */
2666 lw_set_main_areas (pane_widget
, 0, frame_widget
);
2669 #else /* not USE_X_TOOLKIT */
2675 if (! xg_create_frame_widgets (f
))
2676 error ("Unable to create window");
2679 FRAME_XIC (f
) = NULL
;
2683 create_frame_xic (f
);
2686 /* XIM server might require some X events. */
2687 unsigned long fevent
= NoEventMask
;
2688 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2690 if (fevent
!= NoEventMask
)
2692 XSetWindowAttributes attributes
;
2693 XWindowAttributes wattr
;
2694 unsigned long attribute_mask
;
2696 XGetWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2698 attributes
.event_mask
= wattr
.your_event_mask
| fevent
;
2699 attribute_mask
= CWEventMask
;
2700 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2701 attribute_mask
, &attributes
);
2709 #else /*! USE_GTK */
2710 /* Create and set up the X window for frame F. */
2717 XClassHint class_hints
;
2718 XSetWindowAttributes attributes
;
2719 unsigned long attribute_mask
;
2721 attributes
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
2722 attributes
.border_pixel
= f
->output_data
.x
->border_pixel
;
2723 attributes
.bit_gravity
= StaticGravity
;
2724 attributes
.backing_store
= NotUseful
;
2725 attributes
.save_under
= True
;
2726 attributes
.event_mask
= STANDARD_EVENT_SET
;
2727 attributes
.colormap
= FRAME_X_COLORMAP (f
);
2728 attribute_mask
= (CWBackPixel
| CWBorderPixel
| CWBitGravity
| CWEventMask
2733 = XCreateWindow (FRAME_X_DISPLAY (f
),
2734 f
->output_data
.x
->parent_desc
,
2737 FRAME_PIXEL_WIDTH (f
), FRAME_PIXEL_HEIGHT (f
),
2739 CopyFromParent
, /* depth */
2740 InputOutput
, /* class */
2742 attribute_mask
, &attributes
);
2747 create_frame_xic (f
);
2750 /* XIM server might require some X events. */
2751 unsigned long fevent
= NoEventMask
;
2752 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2753 attributes
.event_mask
|= fevent
;
2754 attribute_mask
= CWEventMask
;
2755 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2756 attribute_mask
, &attributes
);
2759 #endif /* HAVE_X_I18N */
2761 validate_x_resource_name ();
2763 class_hints
.res_name
= (char *) SDATA (Vx_resource_name
);
2764 class_hints
.res_class
= (char *) SDATA (Vx_resource_class
);
2765 XSetClassHint (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), &class_hints
);
2767 /* The menubar is part of the ordinary display;
2768 it does not count in addition to the height of the window. */
2769 f
->output_data
.x
->menubar_height
= 0;
2771 /* This indicates that we use the "Passive Input" input model.
2772 Unless we do this, we don't get the Focus{In,Out} events that we
2773 need to draw the cursor correctly. Accursed bureaucrats.
2774 XWhipsAndChains (FRAME_X_DISPLAY (f), IronMaiden, &TheRack); */
2776 f
->output_data
.x
->wm_hints
.input
= True
;
2777 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2778 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2779 &f
->output_data
.x
->wm_hints
);
2780 f
->output_data
.x
->wm_hints
.icon_pixmap
= None
;
2782 /* Request "save yourself" and "delete window" commands from wm. */
2785 protocols
[0] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
2786 protocols
[1] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
2787 XSetWMProtocols (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), protocols
, 2);
2790 /* x_set_name normally ignores requests to set the name if the
2791 requested name is the same as the current name. This is the one
2792 place where that assumption isn't correct; f->name is set, but
2793 the X server hasn't been told. */
2796 int explicit = f
->explicit_name
;
2798 f
->explicit_name
= 0;
2801 x_set_name (f
, name
, explicit);
2804 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2805 f
->output_data
.x
->text_cursor
);
2809 if (FRAME_X_WINDOW (f
) == 0)
2810 error ("Unable to create window");
2813 #endif /* not USE_GTK */
2814 #endif /* not USE_X_TOOLKIT */
2816 /* Verify that the icon position args for this window are valid. */
2819 x_icon_verify (f
, parms
)
2823 Lisp_Object icon_x
, icon_y
;
2825 /* Set the position of the icon. Note that twm groups all
2826 icons in an icon window. */
2827 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2828 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2829 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2831 CHECK_NUMBER (icon_x
);
2832 CHECK_NUMBER (icon_y
);
2834 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2835 error ("Both left and top icon corners of icon must be specified");
2838 /* Handle the icon stuff for this window. Perhaps later we might
2839 want an x_set_icon_position which can be called interactively as
2847 Lisp_Object icon_x
, icon_y
;
2848 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2850 /* Set the position of the icon. Note that twm groups all
2851 icons in an icon window. */
2852 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2853 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2854 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2856 CHECK_NUMBER (icon_x
);
2857 CHECK_NUMBER (icon_y
);
2859 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2860 error ("Both left and top icon corners of icon must be specified");
2864 if (! EQ (icon_x
, Qunbound
))
2865 x_wm_set_icon_position (f
, XINT (icon_x
), XINT (icon_y
));
2867 #if 0 /* x_get_arg removes the visibility parameter as a side effect,
2868 but x_create_frame still needs it. */
2869 /* Start up iconic or window? */
2870 x_wm_set_window_state
2871 (f
, (EQ (x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0, RES_TYPE_SYMBOL
),
2877 x_text_icon (f
, (char *) SDATA ((!NILP (f
->icon_name
)
2884 /* Make the GCs needed for this window, setting the
2885 background, border and mouse colors; also create the
2886 mouse cursor and the gray border tile. */
2888 static char cursor_bits
[] =
2890 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2891 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2892 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2893 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00
2900 XGCValues gc_values
;
2904 /* Create the GCs of this frame.
2905 Note that many default values are used. */
2908 gc_values
.font
= FRAME_FONT (f
)->fid
;
2909 gc_values
.foreground
= FRAME_FOREGROUND_PIXEL (f
);
2910 gc_values
.background
= FRAME_BACKGROUND_PIXEL (f
);
2911 gc_values
.line_width
= 0; /* Means 1 using fast algorithm. */
2912 f
->output_data
.x
->normal_gc
2913 = XCreateGC (FRAME_X_DISPLAY (f
),
2915 GCLineWidth
| GCFont
| GCForeground
| GCBackground
,
2918 /* Reverse video style. */
2919 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2920 gc_values
.background
= FRAME_FOREGROUND_PIXEL (f
);
2921 f
->output_data
.x
->reverse_gc
2922 = XCreateGC (FRAME_X_DISPLAY (f
),
2924 GCFont
| GCForeground
| GCBackground
| GCLineWidth
,
2927 /* Cursor has cursor-color background, background-color foreground. */
2928 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2929 gc_values
.background
= f
->output_data
.x
->cursor_pixel
;
2930 gc_values
.fill_style
= FillOpaqueStippled
;
2932 = XCreateBitmapFromData (FRAME_X_DISPLAY (f
),
2933 FRAME_X_DISPLAY_INFO (f
)->root_window
,
2934 cursor_bits
, 16, 16);
2935 f
->output_data
.x
->cursor_gc
2936 = XCreateGC (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2937 (GCFont
| GCForeground
| GCBackground
2938 | GCFillStyle
/* | GCStipple */ | GCLineWidth
),
2942 f
->output_data
.x
->white_relief
.gc
= 0;
2943 f
->output_data
.x
->black_relief
.gc
= 0;
2945 /* Create the gray border tile used when the pointer is not in
2946 the frame. Since this depends on the frame's pixel values,
2947 this must be done on a per-frame basis. */
2948 f
->output_data
.x
->border_tile
2949 = (XCreatePixmapFromBitmapData
2950 (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
2951 gray_bits
, gray_width
, gray_height
,
2952 FRAME_FOREGROUND_PIXEL (f
),
2953 FRAME_BACKGROUND_PIXEL (f
),
2954 DefaultDepth (FRAME_X_DISPLAY (f
), FRAME_X_SCREEN_NUMBER (f
))));
2960 /* Free what was was allocated in x_make_gc. */
2966 Display
*dpy
= FRAME_X_DISPLAY (f
);
2970 if (f
->output_data
.x
->normal_gc
)
2972 XFreeGC (dpy
, f
->output_data
.x
->normal_gc
);
2973 f
->output_data
.x
->normal_gc
= 0;
2976 if (f
->output_data
.x
->reverse_gc
)
2978 XFreeGC (dpy
, f
->output_data
.x
->reverse_gc
);
2979 f
->output_data
.x
->reverse_gc
= 0;
2982 if (f
->output_data
.x
->cursor_gc
)
2984 XFreeGC (dpy
, f
->output_data
.x
->cursor_gc
);
2985 f
->output_data
.x
->cursor_gc
= 0;
2988 if (f
->output_data
.x
->border_tile
)
2990 XFreePixmap (dpy
, f
->output_data
.x
->border_tile
);
2991 f
->output_data
.x
->border_tile
= 0;
2998 /* Handler for signals raised during x_create_frame and
2999 x_create_top_frame. FRAME is the frame which is partially
3003 unwind_create_frame (frame
)
3006 struct frame
*f
= XFRAME (frame
);
3008 /* If frame is already dead, nothing to do. This can happen if the
3009 display is disconnected after the frame has become official, but
3010 before x_create_frame removes the unwind protect. */
3011 if (!FRAME_LIVE_P (f
))
3014 /* If frame is ``official'', nothing to do. */
3015 if (!CONSP (Vframe_list
) || !EQ (XCAR (Vframe_list
), frame
))
3018 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
3021 x_free_frame_resources (f
);
3024 /* Check that reference counts are indeed correct. */
3025 xassert (dpyinfo
->reference_count
== dpyinfo_refcount
);
3026 xassert (dpyinfo
->image_cache
->refcount
== image_cache_refcount
);
3035 DEFUN ("x-create-frame", Fx_create_frame
, Sx_create_frame
,
3037 doc
: /* Make a new X window, which is called a "frame" in Emacs terms.
3038 Returns an Emacs frame object.
3039 ALIST is an alist of frame parameters.
3040 If the parameters specify that the frame should not have a minibuffer,
3041 and do not specify a specific minibuffer window to use,
3042 then `default-minibuffer-frame' must be a frame whose minibuffer can
3043 be shared by the new frame.
3045 This function is an internal primitive--use `make-frame' instead. */)
3050 Lisp_Object frame
, tem
;
3052 int minibuffer_only
= 0;
3053 long window_prompting
= 0;
3055 int count
= SPECPDL_INDEX ();
3056 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
3057 Lisp_Object display
;
3058 struct x_display_info
*dpyinfo
= NULL
;
3062 parms
= Fcopy_alist (parms
);
3064 /* Use this general default value to start with
3065 until we know if this frame has a specified name. */
3066 Vx_resource_name
= Vinvocation_name
;
3068 display
= x_get_arg (dpyinfo
, parms
, Qterminal
, 0, 0, RES_TYPE_NUMBER
);
3069 if (EQ (display
, Qunbound
))
3070 display
= x_get_arg (dpyinfo
, parms
, Qdisplay
, 0, 0, RES_TYPE_STRING
);
3071 if (EQ (display
, Qunbound
))
3073 dpyinfo
= check_x_display_info (display
);
3075 kb
= dpyinfo
->terminal
->kboard
;
3077 kb
= &the_only_kboard
;
3080 if (dpyinfo
->terminal
->deleted
)
3081 error ("Terminal is being deleted, can't create new frames on it");
3083 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
3085 && ! EQ (name
, Qunbound
)
3087 error ("Invalid frame name--not a string or nil");
3090 Vx_resource_name
= name
;
3092 /* See if parent window is specified. */
3093 parent
= x_get_arg (dpyinfo
, parms
, Qparent_id
, NULL
, NULL
, RES_TYPE_NUMBER
);
3094 if (EQ (parent
, Qunbound
))
3096 if (! NILP (parent
))
3097 CHECK_NUMBER (parent
);
3099 /* make_frame_without_minibuffer can run Lisp code and garbage collect. */
3100 /* No need to protect DISPLAY because that's not used after passing
3101 it to make_frame_without_minibuffer. */
3103 GCPRO4 (parms
, parent
, name
, frame
);
3104 tem
= x_get_arg (dpyinfo
, parms
, Qminibuffer
, "minibuffer", "Minibuffer",
3106 if (EQ (tem
, Qnone
) || NILP (tem
))
3107 f
= make_frame_without_minibuffer (Qnil
, kb
, display
);
3108 else if (EQ (tem
, Qonly
))
3110 f
= make_minibuffer_frame ();
3111 minibuffer_only
= 1;
3113 else if (WINDOWP (tem
))
3114 f
= make_frame_without_minibuffer (tem
, kb
, display
);
3118 XSETFRAME (frame
, f
);
3120 /* Note that X Windows does support scroll bars. */
3121 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 1;
3123 f
->terminal
= dpyinfo
->terminal
;
3124 f
->terminal
->reference_count
++;
3126 f
->output_method
= output_x_window
;
3127 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
3128 bzero (f
->output_data
.x
, sizeof (struct x_output
));
3129 f
->output_data
.x
->icon_bitmap
= -1;
3130 FRAME_FONTSET (f
) = -1;
3131 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
3132 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
3133 #ifdef USE_TOOLKIT_SCROLL_BARS
3134 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
3135 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
3136 #endif /* USE_TOOLKIT_SCROLL_BARS */
3139 = x_get_arg (dpyinfo
, parms
, Qicon_name
, "iconName", "Title",
3141 if (! STRINGP (f
->icon_name
))
3142 f
->icon_name
= Qnil
;
3144 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
3146 /* With FRAME_X_DISPLAY_INFO set up, this unwind-protect is safe. */
3147 record_unwind_protect (unwind_create_frame
, frame
);
3149 image_cache_refcount
= FRAME_X_IMAGE_CACHE (f
)->refcount
;
3150 dpyinfo_refcount
= dpyinfo
->reference_count
;
3151 #endif /* GLYPH_DEBUG */
3153 /* These colors will be set anyway later, but it's important
3154 to get the color reference counts right, so initialize them! */
3157 struct gcpro gcpro1
;
3159 /* Function x_decode_color can signal an error. Make
3160 sure to initialize color slots so that we won't try
3161 to free colors we haven't allocated. */
3162 FRAME_FOREGROUND_PIXEL (f
) = -1;
3163 FRAME_BACKGROUND_PIXEL (f
) = -1;
3164 f
->output_data
.x
->cursor_pixel
= -1;
3165 f
->output_data
.x
->cursor_foreground_pixel
= -1;
3166 f
->output_data
.x
->border_pixel
= -1;
3167 f
->output_data
.x
->mouse_pixel
= -1;
3169 black
= build_string ("black");
3171 FRAME_FOREGROUND_PIXEL (f
)
3172 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3173 FRAME_BACKGROUND_PIXEL (f
)
3174 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3175 f
->output_data
.x
->cursor_pixel
3176 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3177 f
->output_data
.x
->cursor_foreground_pixel
3178 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3179 f
->output_data
.x
->border_pixel
3180 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3181 f
->output_data
.x
->mouse_pixel
3182 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3186 /* Specify the parent under which to make this X window. */
3190 f
->output_data
.x
->parent_desc
= (Window
) XFASTINT (parent
);
3191 f
->output_data
.x
->explicit_parent
= 1;
3195 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
3196 f
->output_data
.x
->explicit_parent
= 0;
3199 /* Set the name; the functions to which we pass f expect the name to
3201 if (EQ (name
, Qunbound
) || NILP (name
))
3203 f
->name
= build_string (dpyinfo
->x_id_name
);
3204 f
->explicit_name
= 0;
3209 f
->explicit_name
= 1;
3210 /* use the frame's title when getting resources for this frame. */
3211 specbind (Qx_resource_name
, name
);
3214 /* Extract the window parameters from the supplied values
3215 that are needed to determine window geometry. */
3219 font
= x_get_arg (dpyinfo
, parms
, Qfont
, "font", "Font", RES_TYPE_STRING
);
3222 /* First, try whatever font the caller has specified. */
3225 tem
= Fquery_fontset (font
, Qnil
);
3227 font
= x_new_fontset (f
, SDATA (tem
));
3229 font
= x_new_font (f
, SDATA (font
));
3232 /* Try out a font which we hope has bold and italic variations. */
3233 if (!STRINGP (font
))
3234 font
= x_new_font (f
, "-adobe-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-1");
3235 if (!STRINGP (font
))
3236 font
= x_new_font (f
, "-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-1");
3237 if (! STRINGP (font
))
3238 font
= x_new_font (f
, "-*-*-medium-r-normal-*-*-140-*-*-c-*-iso8859-1");
3239 if (! STRINGP (font
))
3240 /* This was formerly the first thing tried, but it finds too many fonts
3241 and takes too long. */
3242 font
= x_new_font (f
, "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1");
3243 /* If those didn't work, look for something which will at least work. */
3244 if (! STRINGP (font
))
3245 font
= x_new_font (f
, "-*-fixed-*-*-*-*-*-140-*-*-c-*-iso8859-1");
3247 if (! STRINGP (font
))
3248 font
= build_string ("fixed");
3250 x_set_frame_parameters (f
, Fcons (Fcons (Qfont
, font
), Qnil
));
3254 /* Prevent lwlib/xlwmenu.c from crashing because of a bug
3255 whereby it fails to get any font. */
3256 xlwmenu_default_font
= FRAME_FONT (f
);
3259 x_default_parameter (f
, parms
, Qborder_width
, make_number (2),
3260 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
3262 /* This defaults to 1 in order to match xterm. We recognize either
3263 internalBorderWidth or internalBorder (which is what xterm calls
3265 if (NILP (Fassq (Qinternal_border_width
, parms
)))
3269 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
3270 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
3271 if (! EQ (value
, Qunbound
))
3272 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
3275 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
3276 "internalBorderWidth", "internalBorderWidth",
3278 x_default_parameter (f
, parms
, Qvertical_scroll_bars
, Qleft
,
3279 "verticalScrollBars", "ScrollBars",
3282 /* Also do the stuff which must be set before the window exists. */
3283 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
3284 "foreground", "Foreground", RES_TYPE_STRING
);
3285 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
3286 "background", "Background", RES_TYPE_STRING
);
3287 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
3288 "pointerColor", "Foreground", RES_TYPE_STRING
);
3289 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
3290 "cursorColor", "Foreground", RES_TYPE_STRING
);
3291 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
3292 "borderColor", "BorderColor", RES_TYPE_STRING
);
3293 x_default_parameter (f
, parms
, Qscreen_gamma
, Qnil
,
3294 "screenGamma", "ScreenGamma", RES_TYPE_FLOAT
);
3295 x_default_parameter (f
, parms
, Qline_spacing
, Qnil
,
3296 "lineSpacing", "LineSpacing", RES_TYPE_NUMBER
);
3297 x_default_parameter (f
, parms
, Qleft_fringe
, Qnil
,
3298 "leftFringe", "LeftFringe", RES_TYPE_NUMBER
);
3299 x_default_parameter (f
, parms
, Qright_fringe
, Qnil
,
3300 "rightFringe", "RightFringe", RES_TYPE_NUMBER
);
3302 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_foreground
,
3303 "scrollBarForeground",
3304 "ScrollBarForeground", 1);
3305 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_background
,
3306 "scrollBarBackground",
3307 "ScrollBarBackground", 0);
3309 /* Init faces before x_default_parameter is called for scroll-bar
3310 parameters because that function calls x_set_scroll_bar_width,
3311 which calls change_frame_size, which calls Fset_window_buffer,
3312 which runs hooks, which call Fvertical_motion. At the end, we
3313 end up in init_iterator with a null face cache, which should not
3315 init_frame_faces (f
);
3317 x_default_parameter (f
, parms
, Qmenu_bar_lines
, make_number (1),
3318 "menuBar", "MenuBar", RES_TYPE_NUMBER
);
3319 x_default_parameter (f
, parms
, Qtool_bar_lines
, make_number (1),
3320 "toolBar", "ToolBar", RES_TYPE_NUMBER
);
3321 x_default_parameter (f
, parms
, Qbuffer_predicate
, Qnil
,
3322 "bufferPredicate", "BufferPredicate",
3324 x_default_parameter (f
, parms
, Qtitle
, Qnil
,
3325 "title", "Title", RES_TYPE_STRING
);
3326 x_default_parameter (f
, parms
, Qwait_for_wm
, Qt
,
3327 "waitForWM", "WaitForWM", RES_TYPE_BOOLEAN
);
3328 x_default_parameter (f
, parms
, Qfullscreen
, Qnil
,
3329 "fullscreen", "Fullscreen", RES_TYPE_SYMBOL
);
3331 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
3333 /* Compute the size of the X window. */
3334 window_prompting
= x_figure_window_size (f
, parms
, 1);
3336 tem
= x_get_arg (dpyinfo
, parms
, Qunsplittable
, 0, 0, RES_TYPE_BOOLEAN
);
3337 f
->no_split
= minibuffer_only
|| EQ (tem
, Qt
);
3339 x_icon_verify (f
, parms
);
3341 /* Create the X widget or window. */
3342 #ifdef USE_X_TOOLKIT
3343 x_window (f
, window_prompting
, minibuffer_only
);
3351 /* Now consider the frame official. */
3352 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
3353 Vframe_list
= Fcons (frame
, Vframe_list
);
3355 /* We need to do this after creating the X window, so that the
3356 icon-creation functions can say whose icon they're describing. */
3357 x_default_parameter (f
, parms
, Qicon_type
, Qt
,
3358 "bitmapIcon", "BitmapIcon", RES_TYPE_SYMBOL
);
3360 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
3361 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3362 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
3363 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3364 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
3365 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
3366 x_default_parameter (f
, parms
, Qscroll_bar_width
, Qnil
,
3367 "scrollBarWidth", "ScrollBarWidth",
3370 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
3371 Change will not be effected unless different from the current
3373 width
= FRAME_COLS (f
);
3374 height
= FRAME_LINES (f
);
3376 SET_FRAME_COLS (f
, 0);
3377 FRAME_LINES (f
) = 0;
3378 change_frame_size (f
, height
, width
, 1, 0, 0);
3380 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
3381 /* Create the menu bar. */
3382 if (!minibuffer_only
&& FRAME_EXTERNAL_MENU_BAR (f
))
3384 /* If this signals an error, we haven't set size hints for the
3385 frame and we didn't make it visible. */
3386 initialize_frame_menubar (f
);
3389 /* This is a no-op, except under Motif where it arranges the
3390 main window for the widgets on it. */
3391 lw_set_main_areas (f
->output_data
.x
->column_widget
,
3392 f
->output_data
.x
->menubar_widget
,
3393 f
->output_data
.x
->edit_widget
);
3394 #endif /* not USE_GTK */
3396 #endif /* USE_X_TOOLKIT || USE_GTK */
3398 /* Tell the server what size and position, etc, we want, and how
3399 badly we want them. This should be done after we have the menu
3400 bar so that its size can be taken into account. */
3402 x_wm_set_size_hint (f
, window_prompting
, 0);
3405 /* Make the window appear on the frame and enable display, unless
3406 the caller says not to. However, with explicit parent, Emacs
3407 cannot control visibility, so don't try. */
3408 if (! f
->output_data
.x
->explicit_parent
)
3410 Lisp_Object visibility
;
3412 visibility
= x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0,
3414 if (EQ (visibility
, Qunbound
))
3417 if (EQ (visibility
, Qicon
))
3418 x_iconify_frame (f
);
3419 else if (! NILP (visibility
))
3420 x_make_frame_visible (f
);
3422 /* Must have been Qnil. */
3426 /* Set the WM leader property. GTK does this itself, so this is not
3427 needed when using GTK. */
3428 if (dpyinfo
->client_leader_window
!= 0)
3431 XChangeProperty (FRAME_X_DISPLAY (f
),
3432 FRAME_OUTER_WINDOW (f
),
3433 dpyinfo
->Xatom_wm_client_leader
,
3434 XA_WINDOW
, 32, PropModeReplace
,
3435 (unsigned char *) &dpyinfo
->client_leader_window
, 1);
3439 /* Initialize `default-minibuffer-frame' in case this is the first
3440 frame on this terminal. */
3441 if (FRAME_HAS_MINIBUF_P (f
)
3442 && (!FRAMEP (kb
->Vdefault_minibuffer_frame
)
3443 || !FRAME_LIVE_P (XFRAME (kb
->Vdefault_minibuffer_frame
))))
3444 kb
->Vdefault_minibuffer_frame
= frame
;
3446 /* All remaining specified parameters, which have not been "used"
3447 by x_get_arg and friends, now go in the misc. alist of the frame. */
3448 for (tem
= parms
; !NILP (tem
); tem
= XCDR (tem
))
3449 if (CONSP (XCAR (tem
)) && !NILP (XCAR (XCAR (tem
))))
3450 f
->param_alist
= Fcons (XCAR (tem
), f
->param_alist
);
3452 store_frame_param (f
, Qwindow_system
, Qx
);
3456 /* Make sure windows on this frame appear in calls to next-window
3457 and similar functions. */
3458 Vwindow_list
= Qnil
;
3460 return unbind_to (count
, frame
);
3464 /* FRAME is used only to get a handle on the X display. We don't pass the
3465 display info directly because we're called from frame.c, which doesn't
3466 know about that structure. */
3469 x_get_focus_frame (frame
)
3470 struct frame
*frame
;
3472 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (frame
);
3474 if (! dpyinfo
->x_focus_frame
)
3477 XSETFRAME (xfocus
, dpyinfo
->x_focus_frame
);
3482 /* In certain situations, when the window manager follows a
3483 click-to-focus policy, there seems to be no way around calling
3484 XSetInputFocus to give another frame the input focus .
3486 In an ideal world, XSetInputFocus should generally be avoided so
3487 that applications don't interfere with the window manager's focus
3488 policy. But I think it's okay to use when it's clearly done
3489 following a user-command. */
3491 DEFUN ("x-focus-frame", Fx_focus_frame
, Sx_focus_frame
, 1, 1, 0,
3492 doc
: /* Set the input focus to FRAME.
3493 FRAME nil means use the selected frame. */)
3497 struct frame
*f
= check_x_frame (frame
);
3498 Display
*dpy
= FRAME_X_DISPLAY (f
);
3501 x_catch_errors (dpy
);
3502 XSetInputFocus (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
3503 RevertToParent
, CurrentTime
);
3504 x_uncatch_errors ();
3511 DEFUN ("xw-color-defined-p", Fxw_color_defined_p
, Sxw_color_defined_p
, 1, 2, 0,
3512 doc
: /* Internal function called by `color-defined-p', which see. */)
3514 Lisp_Object color
, frame
;
3517 FRAME_PTR f
= check_x_frame (frame
);
3519 CHECK_STRING (color
);
3521 if (x_defined_color (f
, SDATA (color
), &foo
, 0))
3527 DEFUN ("xw-color-values", Fxw_color_values
, Sxw_color_values
, 1, 2, 0,
3528 doc
: /* Internal function called by `color-values', which see. */)
3530 Lisp_Object color
, frame
;
3533 FRAME_PTR f
= check_x_frame (frame
);
3535 CHECK_STRING (color
);
3537 if (x_defined_color (f
, SDATA (color
), &foo
, 0))
3538 return list3 (make_number (foo
.red
),
3539 make_number (foo
.green
),
3540 make_number (foo
.blue
));
3545 DEFUN ("xw-display-color-p", Fxw_display_color_p
, Sxw_display_color_p
, 0, 1, 0,
3546 doc
: /* Internal function called by `display-color-p', which see. */)
3548 Lisp_Object terminal
;
3550 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3552 if (dpyinfo
->n_planes
<= 2)
3555 switch (dpyinfo
->visual
->class)
3568 DEFUN ("x-display-grayscale-p", Fx_display_grayscale_p
, Sx_display_grayscale_p
,
3570 doc
: /* Return t if the X display supports shades of gray.
3571 Note that color displays do support shades of gray.
3572 The optional argument TERMINAL specifies which display to ask about.
3573 TERMINAL should be a terminal id, a frame or a display name (a string).
3574 If omitted or nil, that stands for the selected frame's display. */)
3576 Lisp_Object terminal
;
3578 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3580 if (dpyinfo
->n_planes
<= 1)
3583 switch (dpyinfo
->visual
->class)
3598 DEFUN ("x-display-pixel-width", Fx_display_pixel_width
, Sx_display_pixel_width
,
3600 doc
: /* Returns the width in pixels of the X display TERMINAL.
3601 The optional argument TERMINAL specifies which display to ask about.
3602 TERMINAL should be a terminal id, a frame or a display name (a string).
3603 If omitted or nil, that stands for the selected frame's display. */)
3605 Lisp_Object terminal
;
3607 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3609 return make_number (dpyinfo
->width
);
3612 DEFUN ("x-display-pixel-height", Fx_display_pixel_height
,
3613 Sx_display_pixel_height
, 0, 1, 0,
3614 doc
: /* Returns the height in pixels of the X display TERMINAL.
3615 The optional argument TERMINAL specifies which display to ask about.
3616 TERMINAL should be a terminal id, a frame or a display name (a string).
3617 If omitted or nil, that stands for the selected frame's display. */)
3619 Lisp_Object terminal
;
3621 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3623 return make_number (dpyinfo
->height
);
3626 DEFUN ("x-display-planes", Fx_display_planes
, Sx_display_planes
,
3628 doc
: /* Returns the number of bitplanes of the X display TERMINAL.
3629 The optional argument TERMINAL specifies which display to ask about.
3630 TERMINAL should be a terminal id, a frame or a display name (a string).
3631 If omitted or nil, that stands for the selected frame's display. */)
3633 Lisp_Object terminal
;
3635 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3637 return make_number (dpyinfo
->n_planes
);
3640 DEFUN ("x-display-color-cells", Fx_display_color_cells
, Sx_display_color_cells
,
3642 doc
: /* Returns the number of color cells of the X display TERMINAL.
3643 The optional argument TERMINAL specifies which display to ask about.
3644 TERMINAL should be a terminal id, a frame or a display name (a string).
3645 If omitted or nil, that stands for the selected frame's display. */)
3647 Lisp_Object terminal
;
3649 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3651 int nr_planes
= DisplayPlanes (dpyinfo
->display
,
3652 XScreenNumberOfScreen (dpyinfo
->screen
));
3654 /* Truncate nr_planes to 24 to avoid integer overflow.
3655 Some displays says 32, but only 24 bits are actually significant.
3656 There are only very few and rare video cards that have more than
3657 24 significant bits. Also 24 bits is more than 16 million colors,
3658 it "should be enough for everyone". */
3659 if (nr_planes
> 24) nr_planes
= 24;
3661 return make_number (1 << nr_planes
);
3664 DEFUN ("x-server-max-request-size", Fx_server_max_request_size
,
3665 Sx_server_max_request_size
,
3667 doc
: /* Returns the maximum request size of the X server of display TERMINAL.
3668 The optional argument TERMINAL specifies which display to ask about.
3669 TERMINAL should be a terminal id, a frame or a display name (a string).
3670 If omitted or nil, that stands for the selected frame's display. */)
3672 Lisp_Object terminal
;
3674 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3676 return make_number (MAXREQUEST (dpyinfo
->display
));
3679 DEFUN ("x-server-vendor", Fx_server_vendor
, Sx_server_vendor
, 0, 1, 0,
3680 doc
: /* Returns the "vendor ID" string of the X server of display TERMINAL.
3681 \(Labelling every distributor as a "vendor" embodies the false assumption
3682 that operating systems cannot be developed and distributed noncommercially.)
3683 The optional argument TERMINAL specifies which display to ask about.
3684 TERMINAL should be a terminal id, a frame or a display name (a string).
3685 If omitted or nil, that stands for the selected frame's display. */)
3687 Lisp_Object terminal
;
3689 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3690 char *vendor
= ServerVendor (dpyinfo
->display
);
3692 if (! vendor
) vendor
= "";
3693 return build_string (vendor
);
3696 DEFUN ("x-server-version", Fx_server_version
, Sx_server_version
, 0, 1, 0,
3697 doc
: /* Returns the version numbers of the X server of display TERMINAL.
3698 The value is a list of three integers: the major and minor
3699 version numbers of the X Protocol in use, and the distributor-specific release
3700 number. See also the function `x-server-vendor'.
3702 The optional argument TERMINAL specifies which display to ask about.
3703 TERMINAL should be a terminal id, a frame or a display name (a string).
3704 If omitted or nil, that stands for the selected frame's display. */)
3706 Lisp_Object terminal
;
3708 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3709 Display
*dpy
= dpyinfo
->display
;
3711 return Fcons (make_number (ProtocolVersion (dpy
)),
3712 Fcons (make_number (ProtocolRevision (dpy
)),
3713 Fcons (make_number (VendorRelease (dpy
)), Qnil
)));
3716 DEFUN ("x-display-screens", Fx_display_screens
, Sx_display_screens
, 0, 1, 0,
3717 doc
: /* Return the number of screens on the X server of display TERMINAL.
3718 The optional argument TERMINAL specifies which display to ask about.
3719 TERMINAL should be a terminal id, a frame or a display name (a string).
3720 If omitted or nil, that stands for the selected frame's display. */)
3722 Lisp_Object terminal
;
3724 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3726 return make_number (ScreenCount (dpyinfo
->display
));
3729 DEFUN ("x-display-mm-height", Fx_display_mm_height
, Sx_display_mm_height
, 0, 1, 0,
3730 doc
: /* Return the height in millimeters of the X display TERMINAL.
3731 The optional argument TERMINAL specifies which display to ask about.
3732 TERMINAL should be a terminal id, a frame or a display name (a string).
3733 If omitted or nil, that stands for the selected frame's display. */)
3735 Lisp_Object terminal
;
3737 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3739 return make_number (HeightMMOfScreen (dpyinfo
->screen
));
3742 DEFUN ("x-display-mm-width", Fx_display_mm_width
, Sx_display_mm_width
, 0, 1, 0,
3743 doc
: /* Return the width in millimeters of the X display TERMINAL.
3744 The optional argument TERMINAL specifies which display to ask about.
3745 TERMINAL should be a terminal id, a frame or a display name (a string).
3746 If omitted or nil, that stands for the selected frame's display. */)
3748 Lisp_Object terminal
;
3750 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3752 return make_number (WidthMMOfScreen (dpyinfo
->screen
));
3755 DEFUN ("x-display-backing-store", Fx_display_backing_store
,
3756 Sx_display_backing_store
, 0, 1, 0,
3757 doc
: /* Returns an indication of whether X display TERMINAL does backing store.
3758 The value may be `always', `when-mapped', or `not-useful'.
3759 The optional argument TERMINAL specifies which display to ask about.
3760 TERMINAL should be a terminal id, a frame or a display name (a string).
3761 If omitted or nil, that stands for the selected frame's display. */)
3763 Lisp_Object terminal
;
3765 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3768 switch (DoesBackingStore (dpyinfo
->screen
))
3771 result
= intern ("always");
3775 result
= intern ("when-mapped");
3779 result
= intern ("not-useful");
3783 error ("Strange value for BackingStore parameter of screen");
3790 DEFUN ("x-display-visual-class", Fx_display_visual_class
,
3791 Sx_display_visual_class
, 0, 1, 0,
3792 doc
: /* Return the visual class of the X display TERMINAL.
3793 The value is one of the symbols `static-gray', `gray-scale',
3794 `static-color', `pseudo-color', `true-color', or `direct-color'.
3796 The optional argument TERMINAL specifies which display to ask about.
3797 TERMINAL should a terminal id, a frame or a display name (a string).
3798 If omitted or nil, that stands for the selected frame's display. */)
3800 Lisp_Object terminal
;
3802 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3805 switch (dpyinfo
->visual
->class)
3808 result
= intern ("static-gray");
3811 result
= intern ("gray-scale");
3814 result
= intern ("static-color");
3817 result
= intern ("pseudo-color");
3820 result
= intern ("true-color");
3823 result
= intern ("direct-color");
3826 error ("Display has an unknown visual class");
3833 DEFUN ("x-display-save-under", Fx_display_save_under
,
3834 Sx_display_save_under
, 0, 1, 0,
3835 doc
: /* Returns t if the X display TERMINAL supports the save-under feature.
3836 The optional argument TERMINAL specifies which display to ask about.
3837 TERMINAL should be a terminal id, a frame or a display name (a string).
3838 If omitted or nil, that stands for the selected frame's display. */)
3840 Lisp_Object terminal
;
3842 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3844 if (DoesSaveUnders (dpyinfo
->screen
) == True
)
3852 register struct frame
*f
;
3854 return FRAME_PIXEL_WIDTH (f
);
3859 register struct frame
*f
;
3861 return FRAME_PIXEL_HEIGHT (f
);
3866 register struct frame
*f
;
3868 return FRAME_COLUMN_WIDTH (f
);
3873 register struct frame
*f
;
3875 return FRAME_LINE_HEIGHT (f
);
3880 register struct frame
*f
;
3882 return FRAME_X_DISPLAY_INFO (f
)->n_planes
;
3887 /************************************************************************
3889 ************************************************************************/
3892 /* Mapping visual names to visuals. */
3894 static struct visual_class
3901 {"StaticGray", StaticGray
},
3902 {"GrayScale", GrayScale
},
3903 {"StaticColor", StaticColor
},
3904 {"PseudoColor", PseudoColor
},
3905 {"TrueColor", TrueColor
},
3906 {"DirectColor", DirectColor
},
3911 #ifndef HAVE_XSCREENNUMBEROFSCREEN
3913 /* Value is the screen number of screen SCR. This is a substitute for
3914 the X function with the same name when that doesn't exist. */
3917 XScreenNumberOfScreen (scr
)
3918 register Screen
*scr
;
3920 Display
*dpy
= scr
->display
;
3923 for (i
= 0; i
< dpy
->nscreens
; ++i
)
3924 if (scr
== dpy
->screens
+ i
)
3930 #endif /* not HAVE_XSCREENNUMBEROFSCREEN */
3933 /* Select the visual that should be used on display DPYINFO. Set
3934 members of DPYINFO appropriately. Called from x_term_init. */
3937 select_visual (dpyinfo
)
3938 struct x_display_info
*dpyinfo
;
3940 Display
*dpy
= dpyinfo
->display
;
3941 Screen
*screen
= dpyinfo
->screen
;
3944 /* See if a visual is specified. */
3945 value
= display_x_get_resource (dpyinfo
,
3946 build_string ("visualClass"),
3947 build_string ("VisualClass"),
3949 if (STRINGP (value
))
3951 /* VALUE should be of the form CLASS-DEPTH, where CLASS is one
3952 of `PseudoColor', `TrueColor' etc. and DEPTH is the color
3953 depth, a decimal number. NAME is compared with case ignored. */
3954 char *s
= (char *) alloca (SBYTES (value
) + 1);
3959 strcpy (s
, SDATA (value
));
3960 dash
= index (s
, '-');
3963 dpyinfo
->n_planes
= atoi (dash
+ 1);
3967 /* We won't find a matching visual with depth 0, so that
3968 an error will be printed below. */
3969 dpyinfo
->n_planes
= 0;
3971 /* Determine the visual class. */
3972 for (i
= 0; visual_classes
[i
].name
; ++i
)
3973 if (xstricmp (s
, visual_classes
[i
].name
) == 0)
3975 class = visual_classes
[i
].class;
3979 /* Look up a matching visual for the specified class. */
3981 || !XMatchVisualInfo (dpy
, XScreenNumberOfScreen (screen
),
3982 dpyinfo
->n_planes
, class, &vinfo
))
3983 fatal ("Invalid visual specification `%s'", SDATA (value
));
3985 dpyinfo
->visual
= vinfo
.visual
;
3990 XVisualInfo
*vinfo
, vinfo_template
;
3992 dpyinfo
->visual
= DefaultVisualOfScreen (screen
);
3995 vinfo_template
.visualid
= XVisualIDFromVisual (dpyinfo
->visual
);
3997 vinfo_template
.visualid
= dpyinfo
->visual
->visualid
;
3999 vinfo_template
.screen
= XScreenNumberOfScreen (screen
);
4000 vinfo
= XGetVisualInfo (dpy
, VisualIDMask
| VisualScreenMask
,
4001 &vinfo_template
, &n_visuals
);
4003 fatal ("Can't get proper X visual info");
4005 dpyinfo
->n_planes
= vinfo
->depth
;
4006 XFree ((char *) vinfo
);
4011 /* Return the X display structure for the display named NAME.
4012 Open a new connection if necessary. */
4014 struct x_display_info
*
4015 x_display_info_for_name (name
)
4019 struct x_display_info
*dpyinfo
;
4021 CHECK_STRING (name
);
4024 if (! EQ (Vinitial_window_system
, intern ("x")))
4025 error ("Not using X Windows"); /* That doesn't stop us anymore. */
4028 for (dpyinfo
= x_display_list
, names
= x_display_name_list
;
4030 dpyinfo
= dpyinfo
->next
, names
= XCDR (names
))
4033 tem
= Fstring_equal (XCAR (XCAR (names
)), name
);
4038 /* Use this general default value to start with. */
4039 Vx_resource_name
= Vinvocation_name
;
4041 validate_x_resource_name ();
4043 dpyinfo
= x_term_init (name
, (char *)0,
4044 (char *) SDATA (Vx_resource_name
));
4047 error ("Cannot connect to X server %s", SDATA (name
));
4050 XSETFASTINT (Vwindow_system_version
, 11);
4056 DEFUN ("x-open-connection", Fx_open_connection
, Sx_open_connection
,
4058 doc
: /* Open a connection to an X server.
4059 DISPLAY is the name of the display to connect to.
4060 Optional second arg XRM-STRING is a string of resources in xrdb format.
4061 If the optional third arg MUST-SUCCEED is non-nil,
4062 terminate Emacs if we can't open the connection. */)
4063 (display
, xrm_string
, must_succeed
)
4064 Lisp_Object display
, xrm_string
, must_succeed
;
4066 unsigned char *xrm_option
;
4067 struct x_display_info
*dpyinfo
;
4069 CHECK_STRING (display
);
4070 if (! NILP (xrm_string
))
4071 CHECK_STRING (xrm_string
);
4074 if (! EQ (Vinitial_window_system
, intern ("x")))
4075 error ("Not using X Windows"); /* That doesn't stop us anymore. */
4078 if (! NILP (xrm_string
))
4079 xrm_option
= (unsigned char *) SDATA (xrm_string
);
4081 xrm_option
= (unsigned char *) 0;
4083 validate_x_resource_name ();
4085 /* This is what opens the connection and sets x_current_display.
4086 This also initializes many symbols, such as those used for input. */
4087 dpyinfo
= x_term_init (display
, xrm_option
,
4088 (char *) SDATA (Vx_resource_name
));
4092 if (!NILP (must_succeed
))
4093 fatal ("Cannot connect to X server %s.\n\
4094 Check the DISPLAY environment variable or use `-d'.\n\
4095 Also use the `xauth' program to verify that you have the proper\n\
4096 authorization information needed to connect the X server.\n\
4097 An insecure way to solve the problem may be to use `xhost'.\n",
4100 error ("Cannot connect to X server %s", SDATA (display
));
4105 XSETFASTINT (Vwindow_system_version
, 11);
4109 DEFUN ("x-close-connection", Fx_close_connection
,
4110 Sx_close_connection
, 1, 1, 0,
4111 doc
: /* Close the connection to TERMINAL's X server.
4112 For TERMINAL, specify a terminal id, a frame or a display name (a
4113 string). If TERMINAL is nil, that stands for the selected frame's
4116 Lisp_Object terminal
;
4118 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4120 if (dpyinfo
->reference_count
> 0)
4121 error ("Display still has frames on it");
4123 x_delete_terminal (dpyinfo
->terminal
);
4128 DEFUN ("x-display-list", Fx_display_list
, Sx_display_list
, 0, 0, 0,
4129 doc
: /* Return the list of display names that Emacs has connections to. */)
4132 Lisp_Object tail
, result
;
4135 for (tail
= x_display_name_list
; ! NILP (tail
); tail
= XCDR (tail
))
4136 result
= Fcons (XCAR (XCAR (tail
)), result
);
4141 DEFUN ("x-synchronize", Fx_synchronize
, Sx_synchronize
, 1, 2, 0,
4142 doc
: /* If ON is non-nil, report X errors as soon as the erring request is made.
4143 If ON is nil, allow buffering of requests.
4144 Turning on synchronization prohibits the Xlib routines from buffering
4145 requests and seriously degrades performance, but makes debugging much
4147 The optional second argument TERMINAL specifies which display to act on.
4148 TERMINAL should be a terminal id, a frame or a display name (a string).
4149 If TERMINAL is omitted or nil, that stands for the selected frame's display. */)
4151 Lisp_Object terminal
, on
;
4153 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4155 XSynchronize (dpyinfo
->display
, !EQ (on
, Qnil
));
4160 /* Wait for responses to all X commands issued so far for frame F. */
4167 XSync (FRAME_X_DISPLAY (f
), False
);
4172 /***********************************************************************
4174 ***********************************************************************/
4176 DEFUN ("x-change-window-property", Fx_change_window_property
,
4177 Sx_change_window_property
, 2, 6, 0,
4178 doc
: /* Change window property PROP to VALUE on the X window of FRAME.
4179 PROP must be a string.
4180 VALUE may be a string or a list of conses, numbers and/or strings.
4181 If an element in the list is a string, it is converted to
4182 an Atom and the value of the Atom is used. If an element is a cons,
4183 it is converted to a 32 bit number where the car is the 16 top bits and the
4184 cdr is the lower 16 bits.
4185 FRAME nil or omitted means use the selected frame.
4186 If TYPE is given and non-nil, it is the name of the type of VALUE.
4187 If TYPE is not given or nil, the type is STRING.
4188 FORMAT gives the size in bits of each element if VALUE is a list.
4189 It must be one of 8, 16 or 32.
4190 If VALUE is a string or FORMAT is nil or not given, FORMAT defaults to 8.
4191 If OUTER_P is non-nil, the property is changed for the outer X window of
4192 FRAME. Default is to change on the edit X window.
4195 (prop
, value
, frame
, type
, format
, outer_p
)
4196 Lisp_Object prop
, value
, frame
, type
, format
, outer_p
;
4198 struct frame
*f
= check_x_frame (frame
);
4200 Atom target_type
= XA_STRING
;
4201 int element_format
= 8;
4202 unsigned char *data
;
4206 CHECK_STRING (prop
);
4208 if (! NILP (format
))
4210 CHECK_NUMBER (format
);
4211 element_format
= XFASTINT (format
);
4213 if (element_format
!= 8 && element_format
!= 16
4214 && element_format
!= 32)
4215 error ("FORMAT must be one of 8, 16 or 32");
4220 nelements
= x_check_property_data (value
);
4221 if (nelements
== -1)
4222 error ("Bad data in VALUE, must be number, string or cons");
4224 if (element_format
== 8)
4225 data
= (unsigned char *) xmalloc (nelements
);
4226 else if (element_format
== 16)
4227 data
= (unsigned char *) xmalloc (nelements
*2);
4228 else /* format == 32 */
4229 /* The man page for XChangeProperty:
4230 "If the specified format is 32, the property data must be a
4232 This applies even if long is more than 64 bits. The X library
4233 converts to 32 bits before sending to the X server. */
4234 data
= (unsigned char *) xmalloc (nelements
* sizeof(long));
4236 x_fill_property_data (FRAME_X_DISPLAY (f
), value
, data
, element_format
);
4240 CHECK_STRING (value
);
4241 data
= SDATA (value
);
4242 nelements
= SCHARS (value
);
4246 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4249 CHECK_STRING (type
);
4250 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (type
), False
);
4253 if (! NILP (outer_p
)) w
= FRAME_OUTER_WINDOW (f
);
4254 else w
= FRAME_X_WINDOW (f
);
4256 XChangeProperty (FRAME_X_DISPLAY (f
), w
,
4257 prop_atom
, target_type
, element_format
, PropModeReplace
,
4260 if (CONSP (value
)) xfree (data
);
4262 /* Make sure the property is set when we return. */
4263 XFlush (FRAME_X_DISPLAY (f
));
4270 DEFUN ("x-delete-window-property", Fx_delete_window_property
,
4271 Sx_delete_window_property
, 1, 2, 0,
4272 doc
: /* Remove window property PROP from X window of FRAME.
4273 FRAME nil or omitted means use the selected frame. Value is PROP. */)
4275 Lisp_Object prop
, frame
;
4277 struct frame
*f
= check_x_frame (frame
);
4280 CHECK_STRING (prop
);
4282 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4283 XDeleteProperty (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), prop_atom
);
4285 /* Make sure the property is removed when we return. */
4286 XFlush (FRAME_X_DISPLAY (f
));
4293 DEFUN ("x-window-property", Fx_window_property
, Sx_window_property
,
4295 doc
: /* Value is the value of window property PROP on FRAME.
4296 If FRAME is nil or omitted, use the selected frame.
4297 If TYPE is nil or omitted, get the property as a string. Otherwise TYPE
4298 is the name of the Atom that denotes the type expected.
4299 If SOURCE is non-nil, get the property on that window instead of from
4300 FRAME. The number 0 denotes the root window.
4301 If DELETE_P is non-nil, delete the property after retreiving it.
4302 If VECTOR_RET_P is non-nil, don't return a string but a vector of values.
4304 Value is nil if FRAME hasn't a property with name PROP or if PROP has
4305 no value of TYPE. */)
4306 (prop
, frame
, type
, source
, delete_p
, vector_ret_p
)
4307 Lisp_Object prop
, frame
, type
, source
, delete_p
, vector_ret_p
;
4309 struct frame
*f
= check_x_frame (frame
);
4312 Lisp_Object prop_value
= Qnil
;
4313 unsigned char *tmp_data
= NULL
;
4315 Atom target_type
= XA_STRING
;
4317 unsigned long actual_size
, bytes_remaining
;
4318 Window target_window
= FRAME_X_WINDOW (f
);
4319 struct gcpro gcpro1
;
4321 GCPRO1 (prop_value
);
4322 CHECK_STRING (prop
);
4324 if (! NILP (source
))
4326 if (NUMBERP (source
))
4328 if (FLOATP (source
))
4329 target_window
= (Window
) XFLOAT (source
);
4331 target_window
= XFASTINT (source
);
4333 if (target_window
== 0)
4334 target_window
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4336 else if (CONSP (source
))
4337 target_window
= cons_to_long (source
);
4343 if (strcmp ("AnyPropertyType", SDATA (type
)) == 0)
4344 target_type
= AnyPropertyType
;
4346 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (type
), False
);
4349 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4350 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4351 prop_atom
, 0, 0, False
, target_type
,
4352 &actual_type
, &actual_format
, &actual_size
,
4353 &bytes_remaining
, &tmp_data
);
4356 int size
= bytes_remaining
;
4361 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4362 prop_atom
, 0, bytes_remaining
,
4363 ! NILP (delete_p
), target_type
,
4364 &actual_type
, &actual_format
,
4365 &actual_size
, &bytes_remaining
,
4367 if (rc
== Success
&& tmp_data
)
4369 /* The man page for XGetWindowProperty says:
4370 "If the returned format is 32, the returned data is represented
4371 as a long array and should be cast to that type to obtain the
4373 This applies even if long is more than 32 bits, the X library
4374 converts from 32 bit elements received from the X server to long
4375 and passes the long array to us. Thus, for that case bcopy can not
4376 be used. We convert to a 32 bit type here, because so much code
4379 The bytes and offsets passed to XGetWindowProperty refers to the
4380 property and those are indeed in 32 bit quantities if format is
4383 if (actual_format
== 32 && actual_format
< BITS_PER_LONG
)
4386 int *idata
= (int *) tmp_data
;
4387 long *ldata
= (long *) tmp_data
;
4389 for (i
= 0; i
< actual_size
; ++i
)
4390 idata
[i
] = (int) ldata
[i
];
4393 if (NILP (vector_ret_p
))
4394 prop_value
= make_string (tmp_data
, size
);
4396 prop_value
= x_property_data_to_lisp (f
,
4403 if (tmp_data
) XFree (tmp_data
);
4413 /***********************************************************************
4415 ***********************************************************************/
4417 /* If non-null, an asynchronous timer that, when it expires, displays
4418 an hourglass cursor on all frames. */
4420 static struct atimer
*hourglass_atimer
;
4422 /* Non-zero means an hourglass cursor is currently shown. */
4424 static int hourglass_shown_p
;
4426 /* Number of seconds to wait before displaying an hourglass cursor. */
4428 static Lisp_Object Vhourglass_delay
;
4430 /* Default number of seconds to wait before displaying an hourglass
4433 #define DEFAULT_HOURGLASS_DELAY 1
4435 /* Function prototypes. */
4437 static void show_hourglass
P_ ((struct atimer
*));
4438 static void hide_hourglass
P_ ((void));
4440 /* Return non-zero if houglass timer has been started or hourglass is shown. */
4443 hourglass_started ()
4445 return hourglass_shown_p
|| hourglass_atimer
!= NULL
;
4449 /* Cancel a currently active hourglass timer, and start a new one. */
4455 int secs
, usecs
= 0;
4457 cancel_hourglass ();
4459 if (INTEGERP (Vhourglass_delay
)
4460 && XINT (Vhourglass_delay
) > 0)
4461 secs
= XFASTINT (Vhourglass_delay
);
4462 else if (FLOATP (Vhourglass_delay
)
4463 && XFLOAT_DATA (Vhourglass_delay
) > 0)
4466 tem
= Ftruncate (Vhourglass_delay
, Qnil
);
4467 secs
= XFASTINT (tem
);
4468 usecs
= (XFLOAT_DATA (Vhourglass_delay
) - secs
) * 1000000;
4471 secs
= DEFAULT_HOURGLASS_DELAY
;
4473 EMACS_SET_SECS_USECS (delay
, secs
, usecs
);
4474 hourglass_atimer
= start_atimer (ATIMER_RELATIVE
, delay
,
4475 show_hourglass
, NULL
);
4479 /* Cancel the hourglass cursor timer if active, hide a busy cursor if
4485 if (hourglass_atimer
)
4487 cancel_atimer (hourglass_atimer
);
4488 hourglass_atimer
= NULL
;
4491 if (hourglass_shown_p
)
4496 /* Timer function of hourglass_atimer. TIMER is equal to
4499 Display an hourglass pointer on all frames by mapping the frames'
4500 hourglass_window. Set the hourglass_p flag in the frames'
4501 output_data.x structure to indicate that an hourglass cursor is
4502 shown on the frames. */
4505 show_hourglass (timer
)
4506 struct atimer
*timer
;
4508 /* The timer implementation will cancel this timer automatically
4509 after this function has run. Set hourglass_atimer to null
4510 so that we know the timer doesn't have to be canceled. */
4511 hourglass_atimer
= NULL
;
4513 if (!hourglass_shown_p
)
4515 Lisp_Object rest
, frame
;
4519 FOR_EACH_FRAME (rest
, frame
)
4521 struct frame
*f
= XFRAME (frame
);
4523 if (FRAME_LIVE_P (f
) && FRAME_X_P (f
) && FRAME_X_DISPLAY (f
))
4525 Display
*dpy
= FRAME_X_DISPLAY (f
);
4527 #ifdef USE_X_TOOLKIT
4528 if (f
->output_data
.x
->widget
)
4530 if (FRAME_OUTER_WINDOW (f
))
4533 f
->output_data
.x
->hourglass_p
= 1;
4535 if (!f
->output_data
.x
->hourglass_window
)
4537 unsigned long mask
= CWCursor
;
4538 XSetWindowAttributes attrs
;
4540 Window parent
= FRAME_X_WINDOW (f
);
4542 Window parent
= FRAME_OUTER_WINDOW (f
);
4544 attrs
.cursor
= f
->output_data
.x
->hourglass_cursor
;
4546 f
->output_data
.x
->hourglass_window
4547 = XCreateWindow (dpy
, parent
,
4548 0, 0, 32000, 32000, 0, 0,
4554 XMapRaised (dpy
, f
->output_data
.x
->hourglass_window
);
4560 hourglass_shown_p
= 1;
4566 /* Hide the hourglass pointer on all frames, if it is currently
4572 if (hourglass_shown_p
)
4574 Lisp_Object rest
, frame
;
4577 FOR_EACH_FRAME (rest
, frame
)
4579 struct frame
*f
= XFRAME (frame
);
4582 /* Watch out for newly created frames. */
4583 && f
->output_data
.x
->hourglass_window
)
4585 XUnmapWindow (FRAME_X_DISPLAY (f
),
4586 f
->output_data
.x
->hourglass_window
);
4587 /* Sync here because XTread_socket looks at the
4588 hourglass_p flag that is reset to zero below. */
4589 XSync (FRAME_X_DISPLAY (f
), False
);
4590 f
->output_data
.x
->hourglass_p
= 0;
4594 hourglass_shown_p
= 0;
4601 /***********************************************************************
4603 ***********************************************************************/
4605 static Lisp_Object x_create_tip_frame
P_ ((struct x_display_info
*,
4606 Lisp_Object
, Lisp_Object
));
4607 static void compute_tip_xy
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
,
4608 Lisp_Object
, int, int, int *, int *));
4610 /* The frame of a currently visible tooltip. */
4612 Lisp_Object tip_frame
;
4614 /* If non-nil, a timer started that hides the last tooltip when it
4617 Lisp_Object tip_timer
;
4620 /* If non-nil, a vector of 3 elements containing the last args
4621 with which x-show-tip was called. See there. */
4623 Lisp_Object last_show_tip_args
;
4625 /* Maximum size for tooltips; a cons (COLUMNS . ROWS). */
4627 Lisp_Object Vx_max_tooltip_size
;
4631 unwind_create_tip_frame (frame
)
4634 Lisp_Object deleted
;
4636 deleted
= unwind_create_frame (frame
);
4637 if (EQ (deleted
, Qt
))
4647 /* Create a frame for a tooltip on the display described by DPYINFO.
4648 PARMS is a list of frame parameters. TEXT is the string to
4649 display in the tip frame. Value is the frame.
4651 Note that functions called here, esp. x_default_parameter can
4652 signal errors, for instance when a specified color name is
4653 undefined. We have to make sure that we're in a consistent state
4654 when this happens. */
4657 x_create_tip_frame (dpyinfo
, parms
, text
)
4658 struct x_display_info
*dpyinfo
;
4659 Lisp_Object parms
, text
;
4662 Lisp_Object frame
, tem
;
4664 long window_prompting
= 0;
4666 int count
= SPECPDL_INDEX ();
4667 struct gcpro gcpro1
, gcpro2
, gcpro3
;
4668 int face_change_count_before
= face_change_count
;
4670 struct buffer
*old_buffer
;
4674 if (dpyinfo
->terminal
->deleted
)
4675 error ("Terminal is being deleted, can't create new frames on it");
4677 parms
= Fcopy_alist (parms
);
4679 /* Get the name of the frame to use for resource lookup. */
4680 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
4682 && !EQ (name
, Qunbound
)
4684 error ("Invalid frame name--not a string or nil");
4687 GCPRO3 (parms
, name
, frame
);
4689 XSETFRAME (frame
, f
);
4691 buffer
= Fget_buffer_create (build_string (" *tip*"));
4692 Fset_window_buffer (FRAME_ROOT_WINDOW (f
), buffer
, Qnil
);
4693 old_buffer
= current_buffer
;
4694 set_buffer_internal_1 (XBUFFER (buffer
));
4695 current_buffer
->truncate_lines
= Qnil
;
4696 specbind (Qinhibit_read_only
, Qt
);
4697 specbind (Qinhibit_modification_hooks
, Qt
);
4700 set_buffer_internal_1 (old_buffer
);
4702 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 0;
4703 record_unwind_protect (unwind_create_tip_frame
, frame
);
4705 f
->terminal
= dpyinfo
->terminal
;
4706 f
->terminal
->reference_count
++;
4708 /* By setting the output method, we're essentially saying that
4709 the frame is live, as per FRAME_LIVE_P. If we get a signal
4710 from this point on, x_destroy_window might screw up reference
4712 f
->output_method
= output_x_window
;
4713 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
4714 bzero (f
->output_data
.x
, sizeof (struct x_output
));
4715 f
->output_data
.x
->icon_bitmap
= -1;
4716 FRAME_FONTSET (f
) = -1;
4717 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
4718 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
4719 #ifdef USE_TOOLKIT_SCROLL_BARS
4720 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
4721 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
4722 #endif /* USE_TOOLKIT_SCROLL_BARS */
4723 f
->icon_name
= Qnil
;
4724 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
4726 image_cache_refcount
= FRAME_X_IMAGE_CACHE (f
)->refcount
;
4727 dpyinfo_refcount
= dpyinfo
->reference_count
;
4728 #endif /* GLYPH_DEBUG */
4729 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4730 f
->output_data
.x
->explicit_parent
= 0;
4732 /* These colors will be set anyway later, but it's important
4733 to get the color reference counts right, so initialize them! */
4736 struct gcpro gcpro1
;
4738 /* Function x_decode_color can signal an error. Make
4739 sure to initialize color slots so that we won't try
4740 to free colors we haven't allocated. */
4741 FRAME_FOREGROUND_PIXEL (f
) = -1;
4742 FRAME_BACKGROUND_PIXEL (f
) = -1;
4743 f
->output_data
.x
->cursor_pixel
= -1;
4744 f
->output_data
.x
->cursor_foreground_pixel
= -1;
4745 f
->output_data
.x
->border_pixel
= -1;
4746 f
->output_data
.x
->mouse_pixel
= -1;
4748 black
= build_string ("black");
4750 FRAME_FOREGROUND_PIXEL (f
)
4751 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4752 FRAME_BACKGROUND_PIXEL (f
)
4753 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4754 f
->output_data
.x
->cursor_pixel
4755 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4756 f
->output_data
.x
->cursor_foreground_pixel
4757 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4758 f
->output_data
.x
->border_pixel
4759 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4760 f
->output_data
.x
->mouse_pixel
4761 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4765 /* Set the name; the functions to which we pass f expect the name to
4767 if (EQ (name
, Qunbound
) || NILP (name
))
4769 f
->name
= build_string (dpyinfo
->x_id_name
);
4770 f
->explicit_name
= 0;
4775 f
->explicit_name
= 1;
4776 /* use the frame's title when getting resources for this frame. */
4777 specbind (Qx_resource_name
, name
);
4780 /* Extract the window parameters from the supplied values that are
4781 needed to determine window geometry. */
4785 font
= x_get_arg (dpyinfo
, parms
, Qfont
, "font", "Font", RES_TYPE_STRING
);
4788 /* First, try whatever font the caller has specified. */
4791 tem
= Fquery_fontset (font
, Qnil
);
4793 font
= x_new_fontset (f
, SDATA (tem
));
4795 font
= x_new_font (f
, SDATA (font
));
4798 /* Try out a font which we hope has bold and italic variations. */
4799 if (!STRINGP (font
))
4800 font
= x_new_font (f
, "-adobe-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-1");
4801 if (!STRINGP (font
))
4802 font
= x_new_font (f
, "-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-1");
4803 if (! STRINGP (font
))
4804 font
= x_new_font (f
, "-*-*-medium-r-normal-*-*-140-*-*-c-*-iso8859-1");
4805 if (! STRINGP (font
))
4806 /* This was formerly the first thing tried, but it finds too many fonts
4807 and takes too long. */
4808 font
= x_new_font (f
, "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1");
4809 /* If those didn't work, look for something which will at least work. */
4810 if (! STRINGP (font
))
4811 font
= x_new_font (f
, "-*-fixed-*-*-*-*-*-140-*-*-c-*-iso8859-1");
4813 if (! STRINGP (font
))
4814 font
= build_string ("fixed");
4816 x_default_parameter (f
, parms
, Qfont
, font
,
4817 "font", "Font", RES_TYPE_STRING
);
4820 x_default_parameter (f
, parms
, Qborder_width
, make_number (2),
4821 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
4823 /* This defaults to 2 in order to match xterm. We recognize either
4824 internalBorderWidth or internalBorder (which is what xterm calls
4826 if (NILP (Fassq (Qinternal_border_width
, parms
)))
4830 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
4831 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
4832 if (! EQ (value
, Qunbound
))
4833 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
4837 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
4838 "internalBorderWidth", "internalBorderWidth",
4841 /* Also do the stuff which must be set before the window exists. */
4842 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
4843 "foreground", "Foreground", RES_TYPE_STRING
);
4844 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
4845 "background", "Background", RES_TYPE_STRING
);
4846 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
4847 "pointerColor", "Foreground", RES_TYPE_STRING
);
4848 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
4849 "cursorColor", "Foreground", RES_TYPE_STRING
);
4850 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
4851 "borderColor", "BorderColor", RES_TYPE_STRING
);
4853 /* Init faces before x_default_parameter is called for scroll-bar
4854 parameters because that function calls x_set_scroll_bar_width,
4855 which calls change_frame_size, which calls Fset_window_buffer,
4856 which runs hooks, which call Fvertical_motion. At the end, we
4857 end up in init_iterator with a null face cache, which should not
4859 init_frame_faces (f
);
4861 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4863 window_prompting
= x_figure_window_size (f
, parms
, 0);
4866 XSetWindowAttributes attrs
;
4870 mask
= CWBackPixel
| CWOverrideRedirect
| CWEventMask
;
4871 if (DoesSaveUnders (dpyinfo
->screen
))
4872 mask
|= CWSaveUnder
;
4874 /* Window managers look at the override-redirect flag to determine
4875 whether or net to give windows a decoration (Xlib spec, chapter
4877 attrs
.override_redirect
= True
;
4878 attrs
.save_under
= True
;
4879 attrs
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
4880 /* Arrange for getting MapNotify and UnmapNotify events. */
4881 attrs
.event_mask
= StructureNotifyMask
;
4883 = FRAME_X_WINDOW (f
)
4884 = XCreateWindow (FRAME_X_DISPLAY (f
),
4885 FRAME_X_DISPLAY_INFO (f
)->root_window
,
4886 /* x, y, width, height */
4890 CopyFromParent
, InputOutput
, CopyFromParent
,
4897 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
4898 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4899 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
4900 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4901 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
4902 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
4904 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
4905 Change will not be effected unless different from the current
4907 width
= FRAME_COLS (f
);
4908 height
= FRAME_LINES (f
);
4909 SET_FRAME_COLS (f
, 0);
4910 FRAME_LINES (f
) = 0;
4911 change_frame_size (f
, height
, width
, 1, 0, 0);
4913 /* Add `tooltip' frame parameter's default value. */
4914 if (NILP (Fframe_parameter (frame
, intern ("tooltip"))))
4915 Fmodify_frame_parameters (frame
, Fcons (Fcons (intern ("tooltip"), Qt
),
4918 /* Set up faces after all frame parameters are known. This call
4919 also merges in face attributes specified for new frames.
4921 Frame parameters may be changed if .Xdefaults contains
4922 specifications for the default font. For example, if there is an
4923 `Emacs.default.attributeBackground: pink', the `background-color'
4924 attribute of the frame get's set, which let's the internal border
4925 of the tooltip frame appear in pink. Prevent this. */
4927 Lisp_Object bg
= Fframe_parameter (frame
, Qbackground_color
);
4929 /* Set tip_frame here, so that */
4931 call1 (Qface_set_after_frame_default
, frame
);
4933 if (!EQ (bg
, Fframe_parameter (frame
, Qbackground_color
)))
4934 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qbackground_color
, bg
),
4938 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qwindow_system
, Qx
), Qnil
));
4944 /* It is now ok to make the frame official even if we get an error
4945 below. And the frame needs to be on Vframe_list or making it
4946 visible won't work. */
4947 Vframe_list
= Fcons (frame
, Vframe_list
);
4949 /* Now that the frame is official, it counts as a reference to
4951 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
4953 /* Setting attributes of faces of the tooltip frame from resources
4954 and similar will increment face_change_count, which leads to the
4955 clearing of all current matrices. Since this isn't necessary
4956 here, avoid it by resetting face_change_count to the value it
4957 had before we created the tip frame. */
4958 face_change_count
= face_change_count_before
;
4960 /* Discard the unwind_protect. */
4961 return unbind_to (count
, frame
);
4965 /* Compute where to display tip frame F. PARMS is the list of frame
4966 parameters for F. DX and DY are specified offsets from the current
4967 location of the mouse. WIDTH and HEIGHT are the width and height
4968 of the tooltip. Return coordinates relative to the root window of
4969 the display in *ROOT_X, and *ROOT_Y. */
4972 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, root_x
, root_y
)
4974 Lisp_Object parms
, dx
, dy
;
4976 int *root_x
, *root_y
;
4978 Lisp_Object left
, top
;
4983 /* User-specified position? */
4984 left
= Fcdr (Fassq (Qleft
, parms
));
4985 top
= Fcdr (Fassq (Qtop
, parms
));
4987 /* Move the tooltip window where the mouse pointer is. Resize and
4989 if (!INTEGERP (left
) || !INTEGERP (top
))
4992 XQueryPointer (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
4993 &root
, &child
, root_x
, root_y
, &win_x
, &win_y
, &pmask
);
4998 *root_y
= XINT (top
);
4999 else if (*root_y
+ XINT (dy
) <= 0)
5000 *root_y
= 0; /* Can happen for negative dy */
5001 else if (*root_y
+ XINT (dy
) + height
<= FRAME_X_DISPLAY_INFO (f
)->height
)
5002 /* It fits below the pointer */
5003 *root_y
+= XINT (dy
);
5004 else if (height
+ XINT (dy
) <= *root_y
)
5005 /* It fits above the pointer. */
5006 *root_y
-= height
+ XINT (dy
);
5008 /* Put it on the top. */
5011 if (INTEGERP (left
))
5012 *root_x
= XINT (left
);
5013 else if (*root_x
+ XINT (dx
) <= 0)
5014 *root_x
= 0; /* Can happen for negative dx */
5015 else if (*root_x
+ XINT (dx
) + width
<= FRAME_X_DISPLAY_INFO (f
)->width
)
5016 /* It fits to the right of the pointer. */
5017 *root_x
+= XINT (dx
);
5018 else if (width
+ XINT (dx
) <= *root_x
)
5019 /* It fits to the left of the pointer. */
5020 *root_x
-= width
+ XINT (dx
);
5022 /* Put it left-justified on the screen--it ought to fit that way. */
5027 DEFUN ("x-show-tip", Fx_show_tip
, Sx_show_tip
, 1, 6, 0,
5028 doc
: /* Show STRING in a "tooltip" window on frame FRAME.
5029 A tooltip window is a small X window displaying a string.
5031 FRAME nil or omitted means use the selected frame.
5033 PARMS is an optional list of frame parameters which can be used to
5034 change the tooltip's appearance.
5036 Automatically hide the tooltip after TIMEOUT seconds. TIMEOUT nil
5037 means use the default timeout of 5 seconds.
5039 If the list of frame parameters PARAMS contains a `left' parameters,
5040 the tooltip is displayed at that x-position. Otherwise it is
5041 displayed at the mouse position, with offset DX added (default is 5 if
5042 DX isn't specified). Likewise for the y-position; if a `top' frame
5043 parameter is specified, it determines the y-position of the tooltip
5044 window, otherwise it is displayed at the mouse position, with offset
5045 DY added (default is -10).
5047 A tooltip's maximum size is specified by `x-max-tooltip-size'.
5048 Text larger than the specified size is clipped. */)
5049 (string
, frame
, parms
, timeout
, dx
, dy
)
5050 Lisp_Object string
, frame
, parms
, timeout
, dx
, dy
;
5055 struct buffer
*old_buffer
;
5056 struct text_pos pos
;
5057 int i
, width
, height
;
5058 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
5059 int old_windows_or_buffers_changed
= windows_or_buffers_changed
;
5060 int count
= SPECPDL_INDEX ();
5062 specbind (Qinhibit_redisplay
, Qt
);
5064 GCPRO4 (string
, parms
, frame
, timeout
);
5066 CHECK_STRING (string
);
5067 f
= check_x_frame (frame
);
5069 timeout
= make_number (5);
5071 CHECK_NATNUM (timeout
);
5074 dx
= make_number (5);
5079 dy
= make_number (-10);
5083 if (NILP (last_show_tip_args
))
5084 last_show_tip_args
= Fmake_vector (make_number (3), Qnil
);
5086 if (!NILP (tip_frame
))
5088 Lisp_Object last_string
= AREF (last_show_tip_args
, 0);
5089 Lisp_Object last_frame
= AREF (last_show_tip_args
, 1);
5090 Lisp_Object last_parms
= AREF (last_show_tip_args
, 2);
5092 if (EQ (frame
, last_frame
)
5093 && !NILP (Fequal (last_string
, string
))
5094 && !NILP (Fequal (last_parms
, parms
)))
5096 struct frame
*f
= XFRAME (tip_frame
);
5098 /* Only DX and DY have changed. */
5099 if (!NILP (tip_timer
))
5101 Lisp_Object timer
= tip_timer
;
5103 call1 (Qcancel_timer
, timer
);
5107 compute_tip_xy (f
, parms
, dx
, dy
, FRAME_PIXEL_WIDTH (f
),
5108 FRAME_PIXEL_HEIGHT (f
), &root_x
, &root_y
);
5109 XMoveWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5116 /* Hide a previous tip, if any. */
5119 ASET (last_show_tip_args
, 0, string
);
5120 ASET (last_show_tip_args
, 1, frame
);
5121 ASET (last_show_tip_args
, 2, parms
);
5123 /* Add default values to frame parameters. */
5124 if (NILP (Fassq (Qname
, parms
)))
5125 parms
= Fcons (Fcons (Qname
, build_string ("tooltip")), parms
);
5126 if (NILP (Fassq (Qinternal_border_width
, parms
)))
5127 parms
= Fcons (Fcons (Qinternal_border_width
, make_number (3)), parms
);
5128 if (NILP (Fassq (Qborder_width
, parms
)))
5129 parms
= Fcons (Fcons (Qborder_width
, make_number (1)), parms
);
5130 if (NILP (Fassq (Qborder_color
, parms
)))
5131 parms
= Fcons (Fcons (Qborder_color
, build_string ("lightyellow")), parms
);
5132 if (NILP (Fassq (Qbackground_color
, parms
)))
5133 parms
= Fcons (Fcons (Qbackground_color
, build_string ("lightyellow")),
5136 /* Create a frame for the tooltip, and record it in the global
5137 variable tip_frame. */
5138 frame
= x_create_tip_frame (FRAME_X_DISPLAY_INFO (f
), parms
, string
);
5141 /* Set up the frame's root window. */
5142 w
= XWINDOW (FRAME_ROOT_WINDOW (f
));
5143 w
->left_col
= w
->top_line
= make_number (0);
5145 if (CONSP (Vx_max_tooltip_size
)
5146 && INTEGERP (XCAR (Vx_max_tooltip_size
))
5147 && XINT (XCAR (Vx_max_tooltip_size
)) > 0
5148 && INTEGERP (XCDR (Vx_max_tooltip_size
))
5149 && XINT (XCDR (Vx_max_tooltip_size
)) > 0)
5151 w
->total_cols
= XCAR (Vx_max_tooltip_size
);
5152 w
->total_lines
= XCDR (Vx_max_tooltip_size
);
5156 w
->total_cols
= make_number (80);
5157 w
->total_lines
= make_number (40);
5160 FRAME_TOTAL_COLS (f
) = XINT (w
->total_cols
);
5162 w
->pseudo_window_p
= 1;
5164 /* Display the tooltip text in a temporary buffer. */
5165 old_buffer
= current_buffer
;
5166 set_buffer_internal_1 (XBUFFER (XWINDOW (FRAME_ROOT_WINDOW (f
))->buffer
));
5167 current_buffer
->truncate_lines
= Qnil
;
5168 clear_glyph_matrix (w
->desired_matrix
);
5169 clear_glyph_matrix (w
->current_matrix
);
5170 SET_TEXT_POS (pos
, BEGV
, BEGV_BYTE
);
5171 try_window (FRAME_ROOT_WINDOW (f
), pos
, 0);
5173 /* Compute width and height of the tooltip. */
5175 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
5177 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
5181 /* Stop at the first empty row at the end. */
5182 if (!row
->enabled_p
|| !row
->displays_text_p
)
5185 /* Let the row go over the full width of the frame. */
5186 row
->full_width_p
= 1;
5188 /* There's a glyph at the end of rows that is used to place
5189 the cursor there. Don't include the width of this glyph. */
5190 if (row
->used
[TEXT_AREA
])
5192 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
5193 row_width
= row
->pixel_width
- last
->pixel_width
;
5196 row_width
= row
->pixel_width
;
5198 height
+= row
->height
;
5199 width
= max (width
, row_width
);
5202 /* Add the frame's internal border to the width and height the X
5203 window should have. */
5204 height
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5205 width
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5207 /* Move the tooltip window where the mouse pointer is. Resize and
5209 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
5212 XMoveResizeWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5213 root_x
, root_y
, width
, height
);
5214 XMapRaised (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
));
5217 /* Draw into the window. */
5218 w
->must_be_updated_p
= 1;
5219 update_single_window (w
, 1);
5221 /* Restore original current buffer. */
5222 set_buffer_internal_1 (old_buffer
);
5223 windows_or_buffers_changed
= old_windows_or_buffers_changed
;
5226 /* Let the tip disappear after timeout seconds. */
5227 tip_timer
= call3 (intern ("run-at-time"), timeout
, Qnil
,
5228 intern ("x-hide-tip"));
5231 return unbind_to (count
, Qnil
);
5235 DEFUN ("x-hide-tip", Fx_hide_tip
, Sx_hide_tip
, 0, 0, 0,
5236 doc
: /* Hide the current tooltip window, if there is any.
5237 Value is t if tooltip was open, nil otherwise. */)
5241 Lisp_Object deleted
, frame
, timer
;
5242 struct gcpro gcpro1
, gcpro2
;
5244 /* Return quickly if nothing to do. */
5245 if (NILP (tip_timer
) && NILP (tip_frame
))
5250 GCPRO2 (frame
, timer
);
5251 tip_frame
= tip_timer
= deleted
= Qnil
;
5253 count
= SPECPDL_INDEX ();
5254 specbind (Qinhibit_redisplay
, Qt
);
5255 specbind (Qinhibit_quit
, Qt
);
5258 call1 (Qcancel_timer
, timer
);
5262 Fdelete_frame (frame
, Qnil
);
5266 /* Bloodcurdling hack alert: The Lucid menu bar widget's
5267 redisplay procedure is not called when a tip frame over menu
5268 items is unmapped. Redisplay the menu manually... */
5270 struct frame
*f
= SELECTED_FRAME ();
5271 Widget w
= f
->output_data
.x
->menubar_widget
;
5272 extern void xlwmenu_redisplay
P_ ((Widget
));
5274 if (!DoesSaveUnders (FRAME_X_DISPLAY_INFO (f
)->screen
)
5278 xlwmenu_redisplay (w
);
5282 #endif /* USE_LUCID */
5286 return unbind_to (count
, deleted
);
5291 /***********************************************************************
5292 File selection dialog
5293 ***********************************************************************/
5295 DEFUN ("x-uses-old-gtk-dialog", Fx_uses_old_gtk_dialog
,
5296 Sx_uses_old_gtk_dialog
,
5298 doc
: /* Return t if the old Gtk+ file selection dialog is used. */)
5302 extern int use_dialog_box
;
5303 extern int use_file_dialog
;
5308 && xg_uses_old_file_dialog ())
5316 /* Callback for "OK" and "Cancel" on file selection dialog. */
5319 file_dialog_cb (widget
, client_data
, call_data
)
5321 XtPointer call_data
, client_data
;
5323 int *result
= (int *) client_data
;
5324 XmAnyCallbackStruct
*cb
= (XmAnyCallbackStruct
*) call_data
;
5325 *result
= cb
->reason
;
5329 /* Callback for unmapping a file selection dialog. This is used to
5330 capture the case where a dialog is closed via a window manager's
5331 closer button, for example. Using a XmNdestroyCallback didn't work
5335 file_dialog_unmap_cb (widget
, client_data
, call_data
)
5337 XtPointer call_data
, client_data
;
5339 int *result
= (int *) client_data
;
5340 *result
= XmCR_CANCEL
;
5344 clean_up_file_dialog (arg
)
5347 struct Lisp_Save_Value
*p
= XSAVE_VALUE (arg
);
5348 Widget dialog
= (Widget
) p
->pointer
;
5352 XtUnmanageChild (dialog
);
5353 XtDestroyWidget (dialog
);
5354 x_menu_set_in_use (0);
5361 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5362 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5363 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5364 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5365 or directory must exist. ONLY-DIR-P is ignored." */)
5366 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
)
5367 Lisp_Object prompt
, dir
, default_filename
, mustmatch
, only_dir_p
;
5370 struct frame
*f
= SELECTED_FRAME ();
5371 Lisp_Object file
= Qnil
;
5372 Lisp_Object decoded_file
;
5373 Widget dialog
, text
, help
;
5376 extern XtAppContext Xt_app_con
;
5377 XmString dir_xmstring
, pattern_xmstring
;
5378 int count
= SPECPDL_INDEX ();
5379 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5383 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5385 if (popup_activated ())
5386 error ("Trying to use a menu from within a menu-entry");
5388 CHECK_STRING (prompt
);
5391 /* Prevent redisplay. */
5392 specbind (Qinhibit_redisplay
, Qt
);
5396 /* Create the dialog with PROMPT as title, using DIR as initial
5397 directory and using "*" as pattern. */
5398 dir
= Fexpand_file_name (dir
, Qnil
);
5399 dir_xmstring
= XmStringCreateLocalized (SDATA (dir
));
5400 pattern_xmstring
= XmStringCreateLocalized ("*");
5402 XtSetArg (al
[ac
], XmNtitle
, SDATA (prompt
)); ++ac
;
5403 XtSetArg (al
[ac
], XmNdirectory
, dir_xmstring
); ++ac
;
5404 XtSetArg (al
[ac
], XmNpattern
, pattern_xmstring
); ++ac
;
5405 XtSetArg (al
[ac
], XmNresizePolicy
, XmRESIZE_GROW
); ++ac
;
5406 XtSetArg (al
[ac
], XmNdialogStyle
, XmDIALOG_APPLICATION_MODAL
); ++ac
;
5407 dialog
= XmCreateFileSelectionDialog (f
->output_data
.x
->widget
,
5409 XmStringFree (dir_xmstring
);
5410 XmStringFree (pattern_xmstring
);
5412 /* Add callbacks for OK and Cancel. */
5413 XtAddCallback (dialog
, XmNokCallback
, file_dialog_cb
,
5414 (XtPointer
) &result
);
5415 XtAddCallback (dialog
, XmNcancelCallback
, file_dialog_cb
,
5416 (XtPointer
) &result
);
5417 XtAddCallback (dialog
, XmNunmapCallback
, file_dialog_unmap_cb
,
5418 (XtPointer
) &result
);
5420 /* Remove the help button since we can't display help. */
5421 help
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_HELP_BUTTON
);
5422 XtUnmanageChild (help
);
5424 /* Mark OK button as default. */
5425 XtVaSetValues (XmFileSelectionBoxGetChild (dialog
, XmDIALOG_OK_BUTTON
),
5426 XmNshowAsDefault
, True
, NULL
);
5428 /* If MUSTMATCH is non-nil, disable the file entry field of the
5429 dialog, so that the user must select a file from the files list
5430 box. We can't remove it because we wouldn't have a way to get at
5431 the result file name, then. */
5432 text
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5433 if (!NILP (mustmatch
))
5436 label
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_SELECTION_LABEL
);
5437 XtSetSensitive (text
, False
);
5438 XtSetSensitive (label
, False
);
5441 /* Manage the dialog, so that list boxes get filled. */
5442 XtManageChild (dialog
);
5444 if (STRINGP (default_filename
))
5446 XmString default_xmstring
;
5447 Widget wtext
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5448 Widget list
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_LIST
);
5450 XmTextPosition last_pos
= XmTextFieldGetLastPosition (wtext
);
5451 XmTextFieldReplace (wtext
, 0, last_pos
,
5452 (SDATA (Ffile_name_nondirectory (default_filename
))));
5454 /* Select DEFAULT_FILENAME in the files list box. DEFAULT_FILENAME
5455 must include the path for this to work. */
5457 default_xmstring
= XmStringCreateLocalized (SDATA (default_filename
));
5459 if (XmListItemExists (list
, default_xmstring
))
5461 int item_pos
= XmListItemPos (list
, default_xmstring
);
5462 /* Select the item and scroll it into view. */
5463 XmListSelectPos (list
, item_pos
, True
);
5464 XmListSetPos (list
, item_pos
);
5467 XmStringFree (default_xmstring
);
5470 record_unwind_protect (clean_up_file_dialog
, make_save_value (dialog
, 0));
5472 /* Process events until the user presses Cancel or OK. */
5473 x_menu_set_in_use (1);
5478 x_menu_wait_for_event (0);
5479 XtAppNextEvent (Xt_app_con
, &event
);
5480 if (event
.type
== KeyPress
5481 && FRAME_X_DISPLAY (f
) == event
.xkey
.display
)
5483 KeySym keysym
= XLookupKeysym (&event
.xkey
, 0);
5485 /* Pop down on C-g. */
5486 if (keysym
== XK_g
&& (event
.xkey
.state
& ControlMask
) != 0)
5487 XtUnmanageChild (dialog
);
5490 (void) x_dispatch_event (&event
, FRAME_X_DISPLAY (f
));
5493 /* Get the result. */
5494 if (result
== XmCR_OK
)
5499 XtVaGetValues (dialog
, XmNtextString
, &text
, NULL
);
5500 XmStringGetLtoR (text
, XmFONTLIST_DEFAULT_TAG
, &data
);
5501 XmStringFree (text
);
5502 file
= build_string (data
);
5511 /* Make "Cancel" equivalent to C-g. */
5513 Fsignal (Qquit
, Qnil
);
5515 decoded_file
= DECODE_FILE (file
);
5517 return unbind_to (count
, decoded_file
);
5520 #endif /* USE_MOTIF */
5525 clean_up_dialog (arg
)
5528 x_menu_set_in_use (0);
5533 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5534 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5535 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5536 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5537 or directory must exist. If ONLY-DIR-P is non-nil, the user can only select
5539 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
)
5540 Lisp_Object prompt
, dir
, default_filename
, mustmatch
, only_dir_p
;
5542 FRAME_PTR f
= SELECTED_FRAME ();
5544 Lisp_Object file
= Qnil
;
5545 Lisp_Object decoded_file
;
5546 int count
= SPECPDL_INDEX ();
5547 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5552 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5554 if (popup_activated ())
5555 error ("Trying to use a menu from within a menu-entry");
5557 CHECK_STRING (prompt
);
5560 /* Prevent redisplay. */
5561 specbind (Qinhibit_redisplay
, Qt
);
5562 record_unwind_protect (clean_up_dialog
, Qnil
);
5566 if (STRINGP (default_filename
))
5567 cdef_file
= SDATA (default_filename
);
5569 cdef_file
= SDATA (dir
);
5571 fn
= xg_get_file_name (f
, SDATA (prompt
), cdef_file
,
5573 ! NILP (only_dir_p
));
5577 file
= build_string (fn
);
5584 /* Make "Cancel" equivalent to C-g. */
5586 Fsignal (Qquit
, Qnil
);
5588 decoded_file
= DECODE_FILE (file
);
5590 return unbind_to (count
, decoded_file
);
5593 #endif /* USE_GTK */
5596 /***********************************************************************
5598 ***********************************************************************/
5600 #ifdef HAVE_XKBGETKEYBOARD
5601 #include <X11/XKBlib.h>
5602 #include <X11/keysym.h>
5605 DEFUN ("x-backspace-delete-keys-p", Fx_backspace_delete_keys_p
,
5606 Sx_backspace_delete_keys_p
, 0, 1, 0,
5607 doc
: /* Check if both Backspace and Delete keys are on the keyboard of FRAME.
5608 FRAME nil means use the selected frame.
5609 Value is t if we know that both keys are present, and are mapped to the
5610 usual X keysyms. Value is `lambda' if we cannot determine if both keys are
5611 present and mapped to the usual X keysyms. */)
5615 #ifdef HAVE_XKBGETKEYBOARD
5617 struct frame
*f
= check_x_frame (frame
);
5618 Display
*dpy
= FRAME_X_DISPLAY (f
);
5619 Lisp_Object have_keys
;
5620 int major
, minor
, op
, event
, error
;
5624 /* Check library version in case we're dynamically linked. */
5625 major
= XkbMajorVersion
;
5626 minor
= XkbMinorVersion
;
5627 if (!XkbLibraryVersion (&major
, &minor
))
5633 /* Check that the server supports XKB. */
5634 major
= XkbMajorVersion
;
5635 minor
= XkbMinorVersion
;
5636 if (!XkbQueryExtension (dpy
, &op
, &event
, &error
, &major
, &minor
))
5642 /* In this code we check that the keyboard has physical keys with names
5643 that start with BKSP (Backspace) and DELE (Delete), and that they
5644 generate keysym XK_BackSpace and XK_Delete respectively.
5645 This function is used to test if normal-erase-is-backspace should be
5647 An alternative approach would be to just check if XK_BackSpace and
5648 XK_Delete are mapped to any key. But if any of those are mapped to
5649 some non-intuitive key combination (Meta-Shift-Ctrl-whatever) and the
5650 user doesn't know about it, it is better to return false here.
5651 It is more obvious to the user what to do if she/he has two keys
5652 clearly marked with names/symbols and one key does something not
5653 expected (i.e. she/he then tries the other).
5654 The cases where Backspace/Delete is mapped to some other key combination
5655 are rare, and in those cases, normal-erase-is-backspace can be turned on
5659 kb
= XkbGetMap (dpy
, XkbAllMapComponentsMask
, XkbUseCoreKbd
);
5662 int delete_keycode
= 0, backspace_keycode
= 0, i
;
5664 if (XkbGetNames (dpy
, XkbAllNamesMask
, kb
) == Success
)
5666 for (i
= kb
->min_key_code
;
5667 (i
< kb
->max_key_code
5668 && (delete_keycode
== 0 || backspace_keycode
== 0));
5671 /* The XKB symbolic key names can be seen most easily in
5672 the PS file generated by `xkbprint -label name
5674 if (bcmp ("DELE", kb
->names
->keys
[i
].name
, 4) == 0)
5676 else if (bcmp ("BKSP", kb
->names
->keys
[i
].name
, 4) == 0)
5677 backspace_keycode
= i
;
5680 XkbFreeNames (kb
, 0, True
);
5683 XkbFreeClientMap (kb
, 0, True
);
5686 && backspace_keycode
5687 && XKeysymToKeycode (dpy
, XK_Delete
) == delete_keycode
5688 && XKeysymToKeycode (dpy
, XK_BackSpace
) == backspace_keycode
)
5693 #else /* not HAVE_XKBGETKEYBOARD */
5695 #endif /* not HAVE_XKBGETKEYBOARD */
5700 /***********************************************************************
5702 ***********************************************************************/
5704 /* Keep this list in the same order as frame_parms in frame.c.
5705 Use 0 for unsupported frame parameters. */
5707 frame_parm_handler x_frame_parm_handlers
[] =
5711 x_set_background_color
,
5717 x_set_foreground_color
,
5720 x_set_internal_border_width
,
5721 x_set_menu_bar_lines
,
5723 x_explicitly_set_name
,
5724 x_set_scroll_bar_width
,
5727 x_set_vertical_scroll_bars
,
5729 x_set_tool_bar_lines
,
5730 x_set_scroll_bar_foreground
,
5731 x_set_scroll_bar_background
,
5743 /* This is zero if not using X windows. */
5746 /* The section below is built by the lisp expression at the top of the file,
5747 just above where these variables are declared. */
5748 /*&&& init symbols here &&&*/
5749 Qnone
= intern ("none");
5751 Qsuppress_icon
= intern ("suppress-icon");
5752 staticpro (&Qsuppress_icon
);
5753 Qundefined_color
= intern ("undefined-color");
5754 staticpro (&Qundefined_color
);
5755 Qcompound_text
= intern ("compound-text");
5756 staticpro (&Qcompound_text
);
5757 Qcancel_timer
= intern ("cancel-timer");
5758 staticpro (&Qcancel_timer
);
5759 /* This is the end of symbol initialization. */
5761 /* Text property `display' should be nonsticky by default. */
5762 Vtext_property_default_nonsticky
5763 = Fcons (Fcons (Qdisplay
, Qt
), Vtext_property_default_nonsticky
);
5766 Fput (Qundefined_color
, Qerror_conditions
,
5767 Fcons (Qundefined_color
, Fcons (Qerror
, Qnil
)));
5768 Fput (Qundefined_color
, Qerror_message
,
5769 build_string ("Undefined color"));
5771 DEFVAR_LISP ("x-pointer-shape", &Vx_pointer_shape
,
5772 doc
: /* The shape of the pointer when over text.
5773 Changing the value does not affect existing frames
5774 unless you set the mouse color. */);
5775 Vx_pointer_shape
= Qnil
;
5777 #if 0 /* This doesn't really do anything. */
5778 DEFVAR_LISP ("x-nontext-pointer-shape", &Vx_nontext_pointer_shape
,
5779 doc
: /* The shape of the pointer when not over text.
5780 This variable takes effect when you create a new frame
5781 or when you set the mouse color. */);
5783 Vx_nontext_pointer_shape
= Qnil
;
5785 DEFVAR_LISP ("x-hourglass-pointer-shape", &Vx_hourglass_pointer_shape
,
5786 doc
: /* The shape of the pointer when Emacs is busy.
5787 This variable takes effect when you create a new frame
5788 or when you set the mouse color. */);
5789 Vx_hourglass_pointer_shape
= Qnil
;
5791 DEFVAR_BOOL ("display-hourglass", &display_hourglass_p
,
5792 doc
: /* Non-zero means Emacs displays an hourglass pointer on window systems. */);
5793 display_hourglass_p
= 1;
5795 DEFVAR_LISP ("hourglass-delay", &Vhourglass_delay
,
5796 doc
: /* *Seconds to wait before displaying an hourglass pointer.
5797 Value must be an integer or float. */);
5798 Vhourglass_delay
= make_number (DEFAULT_HOURGLASS_DELAY
);
5800 #if 0 /* This doesn't really do anything. */
5801 DEFVAR_LISP ("x-mode-pointer-shape", &Vx_mode_pointer_shape
,
5802 doc
: /* The shape of the pointer when over the mode line.
5803 This variable takes effect when you create a new frame
5804 or when you set the mouse color. */);
5806 Vx_mode_pointer_shape
= Qnil
;
5808 DEFVAR_LISP ("x-sensitive-text-pointer-shape",
5809 &Vx_sensitive_text_pointer_shape
,
5810 doc
: /* The shape of the pointer when over mouse-sensitive text.
5811 This variable takes effect when you create a new frame
5812 or when you set the mouse color. */);
5813 Vx_sensitive_text_pointer_shape
= Qnil
;
5815 DEFVAR_LISP ("x-window-horizontal-drag-cursor",
5816 &Vx_window_horizontal_drag_shape
,
5817 doc
: /* Pointer shape to use for indicating a window can be dragged horizontally.
5818 This variable takes effect when you create a new frame
5819 or when you set the mouse color. */);
5820 Vx_window_horizontal_drag_shape
= Qnil
;
5822 DEFVAR_LISP ("x-cursor-fore-pixel", &Vx_cursor_fore_pixel
,
5823 doc
: /* A string indicating the foreground color of the cursor box. */);
5824 Vx_cursor_fore_pixel
= Qnil
;
5826 DEFVAR_LISP ("x-max-tooltip-size", &Vx_max_tooltip_size
,
5827 doc
: /* Maximum size for tooltips. Value is a pair (COLUMNS . ROWS).
5828 Text larger than this is clipped. */);
5829 Vx_max_tooltip_size
= Fcons (make_number (80), make_number (40));
5831 DEFVAR_LISP ("x-no-window-manager", &Vx_no_window_manager
,
5832 doc
: /* Non-nil if no X window manager is in use.
5833 Emacs doesn't try to figure this out; this is always nil
5834 unless you set it to something else. */);
5835 /* We don't have any way to find this out, so set it to nil
5836 and maybe the user would like to set it to t. */
5837 Vx_no_window_manager
= Qnil
;
5839 DEFVAR_LISP ("x-pixel-size-width-font-regexp",
5840 &Vx_pixel_size_width_font_regexp
,
5841 doc
: /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'.
5843 Since Emacs gets width of a font matching with this regexp from
5844 PIXEL_SIZE field of the name, font finding mechanism gets faster for
5845 such a font. This is especially effective for such large fonts as
5846 Chinese, Japanese, and Korean. */);
5847 Vx_pixel_size_width_font_regexp
= Qnil
;
5849 /* This is not ifdef:ed, so other builds than GTK can customize it. */
5850 DEFVAR_BOOL ("x-gtk-use-old-file-dialog", &x_gtk_use_old_file_dialog
,
5851 doc
: /* *Non-nil means prompt with the old GTK file selection dialog.
5852 If nil or if the file selection dialog is not available, the new GTK file
5853 chooser is used instead. To turn off all file dialogs set the
5854 variable `use-file-dialog'. */);
5855 x_gtk_use_old_file_dialog
= 0;
5857 DEFVAR_BOOL ("x-gtk-show-hidden-files", &x_gtk_show_hidden_files
,
5858 doc
: /* *If non-nil, the GTK file chooser will by default show hidden files.
5859 Note that this is just the default, there is a toggle button on the file
5860 chooser to show or not show hidden files on a case by case basis. */);
5861 x_gtk_show_hidden_files
= 0;
5863 DEFVAR_BOOL ("x-gtk-file-dialog-help-text", &x_gtk_file_dialog_help_text
,
5864 doc
: /* *If non-nil, the GTK file chooser will show additional help text.
5865 If more space for files in the file chooser dialog is wanted, set this to nil
5866 to turn the additional text off. */);
5867 x_gtk_file_dialog_help_text
= 1;
5869 DEFVAR_BOOL ("x-gtk-whole-detached-tool-bar", &x_gtk_whole_detached_tool_bar
,
5870 doc
: /* *If non-nil, a detached tool bar is shown in full.
5871 The default is to just show an arrow and pressing on that arrow shows
5872 the tool bar buttons. */);
5873 x_gtk_whole_detached_tool_bar
= 0;
5875 Fprovide (intern ("x"), Qnil
);
5877 #ifdef USE_X_TOOLKIT
5878 Fprovide (intern ("x-toolkit"), Qnil
);
5880 Fprovide (intern ("motif"), Qnil
);
5882 DEFVAR_LISP ("motif-version-string", &Vmotif_version_string
,
5883 doc
: /* Version info for LessTif/Motif. */);
5884 Vmotif_version_string
= build_string (XmVERSION_STRING
);
5885 #endif /* USE_MOTIF */
5886 #endif /* USE_X_TOOLKIT */
5889 /* Provide x-toolkit also for GTK. Internally GTK does not use Xt so it
5890 is not an X toolkit in that sense (USE_X_TOOLKIT is not defined).
5891 But for a user it is a toolkit for X, and indeed, configure
5892 accepts --with-x-toolkit=gtk. */
5893 Fprovide (intern ("x-toolkit"), Qnil
);
5894 Fprovide (intern ("gtk"), Qnil
);
5896 DEFVAR_LISP ("gtk-version-string", &Vgtk_version_string
,
5897 doc
: /* Version info for GTK+. */);
5899 char gtk_version
[40];
5900 g_snprintf (gtk_version
, sizeof (gtk_version
), "%u.%u.%u",
5901 GTK_MAJOR_VERSION
, GTK_MINOR_VERSION
, GTK_MICRO_VERSION
);
5902 Vgtk_version_string
= build_string (gtk_version
);
5904 #endif /* USE_GTK */
5906 /* X window properties. */
5907 defsubr (&Sx_change_window_property
);
5908 defsubr (&Sx_delete_window_property
);
5909 defsubr (&Sx_window_property
);
5911 defsubr (&Sxw_display_color_p
);
5912 defsubr (&Sx_display_grayscale_p
);
5913 defsubr (&Sxw_color_defined_p
);
5914 defsubr (&Sxw_color_values
);
5915 defsubr (&Sx_server_max_request_size
);
5916 defsubr (&Sx_server_vendor
);
5917 defsubr (&Sx_server_version
);
5918 defsubr (&Sx_display_pixel_width
);
5919 defsubr (&Sx_display_pixel_height
);
5920 defsubr (&Sx_display_mm_width
);
5921 defsubr (&Sx_display_mm_height
);
5922 defsubr (&Sx_display_screens
);
5923 defsubr (&Sx_display_planes
);
5924 defsubr (&Sx_display_color_cells
);
5925 defsubr (&Sx_display_visual_class
);
5926 defsubr (&Sx_display_backing_store
);
5927 defsubr (&Sx_display_save_under
);
5928 defsubr (&Sx_create_frame
);
5929 defsubr (&Sx_open_connection
);
5930 defsubr (&Sx_close_connection
);
5931 defsubr (&Sx_display_list
);
5932 defsubr (&Sx_synchronize
);
5933 defsubr (&Sx_focus_frame
);
5934 defsubr (&Sx_backspace_delete_keys_p
);
5936 /* Setting callback functions for fontset handler. */
5937 get_font_info_func
= x_get_font_info
;
5939 #if 0 /* This function pointer doesn't seem to be used anywhere.
5940 And the pointer assigned has the wrong type, anyway. */
5941 list_fonts_func
= x_list_fonts
;
5944 load_font_func
= x_load_font
;
5945 find_ccl_program_func
= x_find_ccl_program
;
5946 query_font_func
= x_query_font
;
5947 set_frame_fontset_func
= x_set_font
;
5948 check_window_system_func
= check_x
;
5950 hourglass_atimer
= NULL
;
5951 hourglass_shown_p
= 0;
5953 defsubr (&Sx_show_tip
);
5954 defsubr (&Sx_hide_tip
);
5956 staticpro (&tip_timer
);
5958 staticpro (&tip_frame
);
5960 last_show_tip_args
= Qnil
;
5961 staticpro (&last_show_tip_args
);
5963 defsubr (&Sx_uses_old_gtk_dialog
);
5964 #if defined (USE_MOTIF) || defined (USE_GTK)
5965 defsubr (&Sx_file_dialog
);
5969 #endif /* HAVE_X_WINDOWS */
5971 /* arch-tag: 55040d02-5485-4d58-8b22-95a7a05f3288
5972 (do not change this comment) */