1 /* Functions for the X window system.
2 Copyright (C) 1989, 92, 93, 94, 95, 96, 97, 98, 99, 2000,01,02,03,04
3 Free Software Foundation.
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., 59 Temple Place - Suite 330,
20 Boston, MA 02111-1307, USA. */
31 /* This makes the fields of a Display accessible, in Xlib header files. */
33 #define XLIB_ILLEGAL_ACCESS
40 #include "intervals.h"
41 #include "dispextern.h"
43 #include "blockinput.h"
49 #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 /* The background and shape of the mouse pointer, and shape when not
155 over text or in the modeline. */
157 Lisp_Object Vx_pointer_shape
, Vx_nontext_pointer_shape
, Vx_mode_pointer_shape
;
158 Lisp_Object Vx_hourglass_pointer_shape
;
160 /* The shape when over mouse-sensitive text. */
162 Lisp_Object Vx_sensitive_text_pointer_shape
;
164 /* If non-nil, the pointer shape to indicate that windows can be
165 dragged horizontally. */
167 Lisp_Object Vx_window_horizontal_drag_shape
;
169 /* Color of chars displayed in cursor box. */
171 Lisp_Object Vx_cursor_fore_pixel
;
173 /* Nonzero if using X. */
177 /* Non nil if no window manager is in use. */
179 Lisp_Object Vx_no_window_manager
;
181 /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'. */
183 Lisp_Object Vx_pixel_size_width_font_regexp
;
186 Lisp_Object Qsuppress_icon
;
187 Lisp_Object Qundefined_color
;
188 Lisp_Object Qcompound_text
, Qcancel_timer
;
192 extern Lisp_Object Vwindow_system_version
;
194 /* The below are defined in frame.c. */
197 int image_cache_refcount
, dpyinfo_refcount
;
202 /* Error if we are not connected to X. */
208 error ("X windows are not in use or not initialized");
211 /* Nonzero if we can use mouse menus.
212 You should not call this unless HAVE_MENUS is defined. */
220 /* Extract a frame as a FRAME_PTR, defaulting to the selected frame
221 and checking validity for X. */
224 check_x_frame (frame
)
230 frame
= selected_frame
;
231 CHECK_LIVE_FRAME (frame
);
234 error ("Non-X frame used");
238 /* Let the user specify an X display with a frame.
239 nil stands for the selected frame--or, if that is not an X frame,
240 the first X display on the list. */
242 struct x_display_info
*
243 check_x_display_info (frame
)
246 struct x_display_info
*dpyinfo
= NULL
;
250 struct frame
*sf
= XFRAME (selected_frame
);
252 if (FRAME_X_P (sf
) && FRAME_LIVE_P (sf
))
253 dpyinfo
= FRAME_X_DISPLAY_INFO (sf
);
254 else if (x_display_list
!= 0)
255 dpyinfo
= x_display_list
;
257 error ("X windows are not in use or not initialized");
259 else if (STRINGP (frame
))
260 dpyinfo
= x_display_info_for_name (frame
);
263 FRAME_PTR f
= check_x_frame (frame
);
264 dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
271 /* Return the Emacs frame-object corresponding to an X window.
272 It could be the frame's main window or an icon window. */
274 /* This function can be called during GC, so use GC_xxx type test macros. */
277 x_window_to_frame (dpyinfo
, wdesc
)
278 struct x_display_info
*dpyinfo
;
281 Lisp_Object tail
, frame
;
284 if (wdesc
== None
) return 0;
286 for (tail
= Vframe_list
; GC_CONSP (tail
); tail
= XCDR (tail
))
289 if (!GC_FRAMEP (frame
))
292 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
294 if (f
->output_data
.x
->hourglass_window
== wdesc
)
297 if ((f
->output_data
.x
->edit_widget
298 && XtWindow (f
->output_data
.x
->edit_widget
) == wdesc
)
299 /* A tooltip frame? */
300 || (!f
->output_data
.x
->edit_widget
301 && FRAME_X_WINDOW (f
) == wdesc
)
302 || f
->output_data
.x
->icon_desc
== wdesc
)
304 #else /* not USE_X_TOOLKIT */
306 if (f
->output_data
.x
->edit_widget
)
308 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
309 struct x_output
*x
= f
->output_data
.x
;
310 if (gwdesc
!= 0 && gwdesc
== x
->edit_widget
)
314 if (FRAME_X_WINDOW (f
) == wdesc
315 || f
->output_data
.x
->icon_desc
== wdesc
)
317 #endif /* not USE_X_TOOLKIT */
322 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
323 /* Like x_window_to_frame but also compares the window with the widget's
327 x_any_window_to_frame (dpyinfo
, wdesc
)
328 struct x_display_info
*dpyinfo
;
331 Lisp_Object tail
, frame
;
332 struct frame
*f
, *found
;
335 if (wdesc
== None
) return NULL
;
338 for (tail
= Vframe_list
; GC_CONSP (tail
) && !found
; tail
= XCDR (tail
))
341 if (!GC_FRAMEP (frame
))
345 if (FRAME_X_P (f
) && FRAME_X_DISPLAY_INFO (f
) == dpyinfo
)
347 /* This frame matches if the window is any of its widgets. */
348 x
= f
->output_data
.x
;
349 if (x
->hourglass_window
== wdesc
)
354 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
356 && (gwdesc
== x
->widget
357 || gwdesc
== x
->edit_widget
358 || gwdesc
== x
->vbox_widget
359 || gwdesc
== x
->menubar_widget
))
362 if (wdesc
== XtWindow (x
->widget
)
363 || wdesc
== XtWindow (x
->column_widget
)
364 || wdesc
== XtWindow (x
->edit_widget
))
366 /* Match if the window is this frame's menubar. */
367 else if (lw_window_is_in_menubar (wdesc
, x
->menubar_widget
))
371 else if (FRAME_X_WINDOW (f
) == wdesc
)
372 /* A tooltip frame. */
380 /* Likewise, but exclude the menu bar widget. */
383 x_non_menubar_window_to_frame (dpyinfo
, wdesc
)
384 struct x_display_info
*dpyinfo
;
387 Lisp_Object tail
, frame
;
391 if (wdesc
== None
) return 0;
393 for (tail
= Vframe_list
; GC_CONSP (tail
); tail
= XCDR (tail
))
396 if (!GC_FRAMEP (frame
))
399 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
401 x
= f
->output_data
.x
;
402 /* This frame matches if the window is any of its widgets. */
403 if (x
->hourglass_window
== wdesc
)
408 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
410 && (gwdesc
== x
->widget
411 || gwdesc
== x
->edit_widget
412 || gwdesc
== x
->vbox_widget
))
415 if (wdesc
== XtWindow (x
->widget
)
416 || wdesc
== XtWindow (x
->column_widget
)
417 || wdesc
== XtWindow (x
->edit_widget
))
421 else if (FRAME_X_WINDOW (f
) == wdesc
)
422 /* A tooltip frame. */
428 /* Likewise, but consider only the menu bar widget. */
431 x_menubar_window_to_frame (dpyinfo
, wdesc
)
432 struct x_display_info
*dpyinfo
;
435 Lisp_Object tail
, frame
;
439 if (wdesc
== None
) return 0;
441 for (tail
= Vframe_list
; GC_CONSP (tail
); tail
= XCDR (tail
))
444 if (!GC_FRAMEP (frame
))
447 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
449 x
= f
->output_data
.x
;
450 /* Match if the window is this frame's menubar. */
452 if (x
->menubar_widget
)
454 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
459 && (gwdesc
== x
->menubar_widget
460 || gtk_widget_get_parent (gwdesc
) == x
->menubar_widget
))
466 if (x
->menubar_widget
467 && lw_window_is_in_menubar (wdesc
, x
->menubar_widget
))
474 /* Return the frame whose principal (outermost) window is WDESC.
475 If WDESC is some other (smaller) window, we return 0. */
478 x_top_window_to_frame (dpyinfo
, wdesc
)
479 struct x_display_info
*dpyinfo
;
482 Lisp_Object tail
, frame
;
486 if (wdesc
== None
) return 0;
488 for (tail
= Vframe_list
; GC_CONSP (tail
); tail
= XCDR (tail
))
491 if (!GC_FRAMEP (frame
))
494 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
496 x
= f
->output_data
.x
;
500 /* This frame matches if the window is its topmost widget. */
502 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
503 if (gwdesc
== x
->widget
)
506 if (wdesc
== XtWindow (x
->widget
))
508 #if 0 /* I don't know why it did this,
509 but it seems logically wrong,
510 and it causes trouble for MapNotify events. */
511 /* Match if the window is this frame's menubar. */
512 if (x
->menubar_widget
513 && wdesc
== XtWindow (x
->menubar_widget
))
518 else if (FRAME_X_WINDOW (f
) == wdesc
)
524 #endif /* USE_X_TOOLKIT || USE_GTK */
528 static Lisp_Object unwind_create_frame
P_ ((Lisp_Object
));
529 static Lisp_Object unwind_create_tip_frame
P_ ((Lisp_Object
));
531 void x_set_foreground_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
532 static void x_set_wait_for_wm
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
533 void x_set_background_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
534 void x_set_mouse_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
535 void x_set_cursor_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
536 void x_set_border_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
537 void x_set_cursor_type
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
538 void x_set_icon_type
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
539 void x_set_icon_name
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
540 void x_explicitly_set_name
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
541 void x_set_menu_bar_lines
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
542 void x_set_title
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
543 void x_set_tool_bar_lines
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
544 void x_set_scroll_bar_foreground
P_ ((struct frame
*, Lisp_Object
,
546 void x_set_scroll_bar_background
P_ ((struct frame
*, Lisp_Object
,
548 static Lisp_Object x_default_scroll_bar_color_parameter
P_ ((struct frame
*,
555 /* Store the screen positions of frame F into XPTR and YPTR.
556 These are the positions of the containing window manager window,
557 not Emacs's own window. */
560 x_real_positions (f
, xptr
, yptr
)
564 int win_x
, win_y
, outer_x
, outer_y
;
565 int real_x
= 0, real_y
= 0;
567 Window win
= f
->output_data
.x
->parent_desc
;
573 count
= x_catch_errors (FRAME_X_DISPLAY (f
));
575 if (win
== FRAME_X_DISPLAY_INFO (f
)->root_window
)
576 win
= FRAME_OUTER_WINDOW (f
);
578 /* This loop traverses up the containment tree until we hit the root
579 window. Window managers may intersect many windows between our window
580 and the root window. The window we find just before the root window
581 should be the outer WM window. */
584 Window wm_window
, rootw
;
585 Window
*tmp_children
;
586 unsigned int tmp_nchildren
;
589 success
= XQueryTree (FRAME_X_DISPLAY (f
), win
, &rootw
,
590 &wm_window
, &tmp_children
, &tmp_nchildren
);
592 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
594 /* Don't free tmp_children if XQueryTree failed. */
598 XFree ((char *) tmp_children
);
600 if (wm_window
== rootw
|| had_errors
)
611 /* Get the real coordinates for the WM window upper left corner */
612 XGetGeometry (FRAME_X_DISPLAY (f
), win
,
613 &rootw
, &real_x
, &real_y
, &ign
, &ign
, &ign
, &ign
);
615 /* Translate real coordinates to coordinates relative to our
616 window. For our window, the upper left corner is 0, 0.
617 Since the upper left corner of the WM window is outside
618 our window, win_x and win_y will be negative:
620 ------------------ ---> x
622 | ----------------- v y
625 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
627 /* From-window, to-window. */
628 FRAME_X_DISPLAY_INFO (f
)->root_window
,
631 /* From-position, to-position. */
632 real_x
, real_y
, &win_x
, &win_y
,
637 if (FRAME_X_WINDOW (f
) == FRAME_OUTER_WINDOW (f
))
644 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
646 /* From-window, to-window. */
647 FRAME_X_DISPLAY_INFO (f
)->root_window
,
648 FRAME_OUTER_WINDOW (f
),
650 /* From-position, to-position. */
651 real_x
, real_y
, &outer_x
, &outer_y
,
657 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
660 x_uncatch_errors (FRAME_X_DISPLAY (f
), count
);
664 if (had_errors
) return;
666 f
->x_pixels_diff
= -win_x
;
667 f
->y_pixels_diff
= -win_y
;
669 FRAME_X_OUTPUT (f
)->x_pixels_outer_diff
= -outer_x
;
670 FRAME_X_OUTPUT (f
)->y_pixels_outer_diff
= -outer_y
;
679 /* Gamma-correct COLOR on frame F. */
682 gamma_correct (f
, color
)
688 color
->red
= pow (color
->red
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
689 color
->green
= pow (color
->green
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
690 color
->blue
= pow (color
->blue
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
695 /* Decide if color named COLOR_NAME is valid for use on frame F. If
696 so, return the RGB values in COLOR. If ALLOC_P is non-zero,
697 allocate the color. Value is zero if COLOR_NAME is invalid, or
698 no color could be allocated. */
701 x_defined_color (f
, color_name
, color
, alloc_p
)
708 Display
*dpy
= FRAME_X_DISPLAY (f
);
709 Colormap cmap
= FRAME_X_COLORMAP (f
);
712 success_p
= XParseColor (dpy
, cmap
, color_name
, color
);
713 if (success_p
&& alloc_p
)
714 success_p
= x_alloc_nearest_color (f
, cmap
, color
);
721 /* Return the pixel color value for color COLOR_NAME on frame F. If F
722 is a monochrome frame, return MONO_COLOR regardless of what ARG says.
723 Signal an error if color can't be allocated. */
726 x_decode_color (f
, color_name
, mono_color
)
728 Lisp_Object color_name
;
733 CHECK_STRING (color_name
);
735 #if 0 /* Don't do this. It's wrong when we're not using the default
736 colormap, it makes freeing difficult, and it's probably not
737 an important optimization. */
738 if (strcmp (SDATA (color_name
), "black") == 0)
739 return BLACK_PIX_DEFAULT (f
);
740 else if (strcmp (SDATA (color_name
), "white") == 0)
741 return WHITE_PIX_DEFAULT (f
);
744 /* Return MONO_COLOR for monochrome frames. */
745 if (FRAME_X_DISPLAY_INFO (f
)->n_planes
== 1)
748 /* x_defined_color is responsible for coping with failures
749 by looking for a near-miss. */
750 if (x_defined_color (f
, SDATA (color_name
), &cdef
, 1))
753 Fsignal (Qerror
, Fcons (build_string ("Undefined color"),
754 Fcons (color_name
, Qnil
)));
760 /* Change the `wait-for-wm' frame parameter of frame F. OLD_VALUE is
761 the previous value of that parameter, NEW_VALUE is the new value.
762 See also the comment of wait_for_wm in struct x_output. */
765 x_set_wait_for_wm (f
, new_value
, old_value
)
767 Lisp_Object new_value
, old_value
;
769 f
->output_data
.x
->wait_for_wm
= !NILP (new_value
);
774 /* Set icon from FILE for frame F. By using GTK functions the icon
775 may be any format that GdkPixbuf knows about, i.e. not just bitmaps. */
778 xg_set_icon (f
, file
)
788 found
= x_find_image_file (file
);
796 filename
= SDATA (found
);
799 pixbuf
= gdk_pixbuf_new_from_file (filename
, &err
);
803 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
805 g_object_unref (pixbuf
);
821 /* Functions called only from `x_set_frame_param'
822 to set individual parameters.
824 If FRAME_X_WINDOW (f) is 0,
825 the frame is being created and its X-window does not exist yet.
826 In that case, just record the parameter's new value
827 in the standard place; do not attempt to change the window. */
830 x_set_foreground_color (f
, arg
, oldval
)
832 Lisp_Object arg
, oldval
;
834 struct x_output
*x
= f
->output_data
.x
;
835 unsigned long fg
, old_fg
;
837 fg
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
838 old_fg
= x
->foreground_pixel
;
839 x
->foreground_pixel
= fg
;
841 if (FRAME_X_WINDOW (f
) != 0)
843 Display
*dpy
= FRAME_X_DISPLAY (f
);
846 XSetForeground (dpy
, x
->normal_gc
, fg
);
847 XSetBackground (dpy
, x
->reverse_gc
, fg
);
849 if (x
->cursor_pixel
== old_fg
)
851 unload_color (f
, x
->cursor_pixel
);
852 x
->cursor_pixel
= x_copy_color (f
, fg
);
853 XSetBackground (dpy
, x
->cursor_gc
, x
->cursor_pixel
);
858 update_face_from_frame_parameter (f
, Qforeground_color
, arg
);
860 if (FRAME_VISIBLE_P (f
))
864 unload_color (f
, old_fg
);
868 x_set_background_color (f
, arg
, oldval
)
870 Lisp_Object arg
, oldval
;
872 struct x_output
*x
= f
->output_data
.x
;
875 bg
= x_decode_color (f
, arg
, WHITE_PIX_DEFAULT (f
));
876 unload_color (f
, x
->background_pixel
);
877 x
->background_pixel
= bg
;
879 if (FRAME_X_WINDOW (f
) != 0)
881 Display
*dpy
= FRAME_X_DISPLAY (f
);
884 XSetBackground (dpy
, x
->normal_gc
, bg
);
885 XSetForeground (dpy
, x
->reverse_gc
, bg
);
886 XSetWindowBackground (dpy
, FRAME_X_WINDOW (f
), bg
);
887 XSetForeground (dpy
, x
->cursor_gc
, bg
);
890 xg_set_background_color (f
, bg
);
893 #ifndef USE_TOOLKIT_SCROLL_BARS /* Turns out to be annoying with
894 toolkit scroll bars. */
897 for (bar
= FRAME_SCROLL_BARS (f
);
899 bar
= XSCROLL_BAR (bar
)->next
)
901 Window window
= SCROLL_BAR_X_WINDOW (XSCROLL_BAR (bar
));
902 XSetWindowBackground (dpy
, window
, bg
);
905 #endif /* USE_TOOLKIT_SCROLL_BARS */
908 update_face_from_frame_parameter (f
, Qbackground_color
, arg
);
910 if (FRAME_VISIBLE_P (f
))
916 x_set_mouse_color (f
, arg
, oldval
)
918 Lisp_Object arg
, oldval
;
920 struct x_output
*x
= f
->output_data
.x
;
921 Display
*dpy
= FRAME_X_DISPLAY (f
);
922 Cursor cursor
, nontext_cursor
, mode_cursor
, hand_cursor
;
923 Cursor hourglass_cursor
, horizontal_drag_cursor
;
925 unsigned long pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
926 unsigned long mask_color
= x
->background_pixel
;
928 /* Don't let pointers be invisible. */
929 if (mask_color
== pixel
)
931 x_free_colors (f
, &pixel
, 1);
932 pixel
= x_copy_color (f
, x
->foreground_pixel
);
935 unload_color (f
, x
->mouse_pixel
);
936 x
->mouse_pixel
= pixel
;
940 /* It's not okay to crash if the user selects a screwy cursor. */
941 count
= x_catch_errors (dpy
);
943 if (!NILP (Vx_pointer_shape
))
945 CHECK_NUMBER (Vx_pointer_shape
);
946 cursor
= XCreateFontCursor (dpy
, XINT (Vx_pointer_shape
));
949 cursor
= XCreateFontCursor (dpy
, XC_xterm
);
950 x_check_errors (dpy
, "bad text pointer cursor: %s");
952 if (!NILP (Vx_nontext_pointer_shape
))
954 CHECK_NUMBER (Vx_nontext_pointer_shape
);
956 = XCreateFontCursor (dpy
, XINT (Vx_nontext_pointer_shape
));
959 nontext_cursor
= XCreateFontCursor (dpy
, XC_left_ptr
);
960 x_check_errors (dpy
, "bad nontext pointer cursor: %s");
962 if (!NILP (Vx_hourglass_pointer_shape
))
964 CHECK_NUMBER (Vx_hourglass_pointer_shape
);
966 = XCreateFontCursor (dpy
, XINT (Vx_hourglass_pointer_shape
));
969 hourglass_cursor
= XCreateFontCursor (dpy
, XC_watch
);
970 x_check_errors (dpy
, "bad hourglass pointer cursor: %s");
972 if (!NILP (Vx_mode_pointer_shape
))
974 CHECK_NUMBER (Vx_mode_pointer_shape
);
975 mode_cursor
= XCreateFontCursor (dpy
, XINT (Vx_mode_pointer_shape
));
978 mode_cursor
= XCreateFontCursor (dpy
, XC_xterm
);
979 x_check_errors (dpy
, "bad modeline pointer cursor: %s");
981 if (!NILP (Vx_sensitive_text_pointer_shape
))
983 CHECK_NUMBER (Vx_sensitive_text_pointer_shape
);
985 = XCreateFontCursor (dpy
, XINT (Vx_sensitive_text_pointer_shape
));
988 hand_cursor
= XCreateFontCursor (dpy
, XC_hand2
);
990 if (!NILP (Vx_window_horizontal_drag_shape
))
992 CHECK_NUMBER (Vx_window_horizontal_drag_shape
);
993 horizontal_drag_cursor
994 = XCreateFontCursor (dpy
, XINT (Vx_window_horizontal_drag_shape
));
997 horizontal_drag_cursor
998 = XCreateFontCursor (dpy
, XC_sb_h_double_arrow
);
1000 /* Check and report errors with the above calls. */
1001 x_check_errors (dpy
, "can't set cursor shape: %s");
1002 x_uncatch_errors (dpy
, count
);
1005 XColor fore_color
, back_color
;
1007 fore_color
.pixel
= x
->mouse_pixel
;
1008 x_query_color (f
, &fore_color
);
1009 back_color
.pixel
= mask_color
;
1010 x_query_color (f
, &back_color
);
1012 XRecolorCursor (dpy
, cursor
, &fore_color
, &back_color
);
1013 XRecolorCursor (dpy
, nontext_cursor
, &fore_color
, &back_color
);
1014 XRecolorCursor (dpy
, mode_cursor
, &fore_color
, &back_color
);
1015 XRecolorCursor (dpy
, hand_cursor
, &fore_color
, &back_color
);
1016 XRecolorCursor (dpy
, hourglass_cursor
, &fore_color
, &back_color
);
1017 XRecolorCursor (dpy
, horizontal_drag_cursor
, &fore_color
, &back_color
);
1020 if (FRAME_X_WINDOW (f
) != 0)
1021 XDefineCursor (dpy
, FRAME_X_WINDOW (f
), cursor
);
1023 if (cursor
!= x
->text_cursor
1024 && x
->text_cursor
!= 0)
1025 XFreeCursor (dpy
, x
->text_cursor
);
1026 x
->text_cursor
= cursor
;
1028 if (nontext_cursor
!= x
->nontext_cursor
1029 && x
->nontext_cursor
!= 0)
1030 XFreeCursor (dpy
, x
->nontext_cursor
);
1031 x
->nontext_cursor
= nontext_cursor
;
1033 if (hourglass_cursor
!= x
->hourglass_cursor
1034 && x
->hourglass_cursor
!= 0)
1035 XFreeCursor (dpy
, x
->hourglass_cursor
);
1036 x
->hourglass_cursor
= hourglass_cursor
;
1038 if (mode_cursor
!= x
->modeline_cursor
1039 && x
->modeline_cursor
!= 0)
1040 XFreeCursor (dpy
, f
->output_data
.x
->modeline_cursor
);
1041 x
->modeline_cursor
= mode_cursor
;
1043 if (hand_cursor
!= x
->hand_cursor
1044 && x
->hand_cursor
!= 0)
1045 XFreeCursor (dpy
, x
->hand_cursor
);
1046 x
->hand_cursor
= hand_cursor
;
1048 if (horizontal_drag_cursor
!= x
->horizontal_drag_cursor
1049 && x
->horizontal_drag_cursor
!= 0)
1050 XFreeCursor (dpy
, x
->horizontal_drag_cursor
);
1051 x
->horizontal_drag_cursor
= horizontal_drag_cursor
;
1056 update_face_from_frame_parameter (f
, Qmouse_color
, arg
);
1060 x_set_cursor_color (f
, arg
, oldval
)
1062 Lisp_Object arg
, oldval
;
1064 unsigned long fore_pixel
, pixel
;
1065 int fore_pixel_allocated_p
= 0, pixel_allocated_p
= 0;
1066 struct x_output
*x
= f
->output_data
.x
;
1068 if (!NILP (Vx_cursor_fore_pixel
))
1070 fore_pixel
= x_decode_color (f
, Vx_cursor_fore_pixel
,
1071 WHITE_PIX_DEFAULT (f
));
1072 fore_pixel_allocated_p
= 1;
1075 fore_pixel
= x
->background_pixel
;
1077 pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1078 pixel_allocated_p
= 1;
1080 /* Make sure that the cursor color differs from the background color. */
1081 if (pixel
== x
->background_pixel
)
1083 if (pixel_allocated_p
)
1085 x_free_colors (f
, &pixel
, 1);
1086 pixel_allocated_p
= 0;
1089 pixel
= x
->mouse_pixel
;
1090 if (pixel
== fore_pixel
)
1092 if (fore_pixel_allocated_p
)
1094 x_free_colors (f
, &fore_pixel
, 1);
1095 fore_pixel_allocated_p
= 0;
1097 fore_pixel
= x
->background_pixel
;
1101 unload_color (f
, x
->cursor_foreground_pixel
);
1102 if (!fore_pixel_allocated_p
)
1103 fore_pixel
= x_copy_color (f
, fore_pixel
);
1104 x
->cursor_foreground_pixel
= fore_pixel
;
1106 unload_color (f
, x
->cursor_pixel
);
1107 if (!pixel_allocated_p
)
1108 pixel
= x_copy_color (f
, pixel
);
1109 x
->cursor_pixel
= pixel
;
1111 if (FRAME_X_WINDOW (f
) != 0)
1114 XSetBackground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, x
->cursor_pixel
);
1115 XSetForeground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, fore_pixel
);
1118 if (FRAME_VISIBLE_P (f
))
1120 x_update_cursor (f
, 0);
1121 x_update_cursor (f
, 1);
1125 update_face_from_frame_parameter (f
, Qcursor_color
, arg
);
1128 /* Set the border-color of frame F to pixel value PIX.
1129 Note that this does not fully take effect if done before
1130 F has an x-window. */
1133 x_set_border_pixel (f
, pix
)
1137 unload_color (f
, f
->output_data
.x
->border_pixel
);
1138 f
->output_data
.x
->border_pixel
= pix
;
1140 if (FRAME_X_WINDOW (f
) != 0 && f
->border_width
> 0)
1143 XSetWindowBorder (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1144 (unsigned long)pix
);
1147 if (FRAME_VISIBLE_P (f
))
1152 /* Set the border-color of frame F to value described by ARG.
1153 ARG can be a string naming a color.
1154 The border-color is used for the border that is drawn by the X server.
1155 Note that this does not fully take effect if done before
1156 F has an x-window; it must be redone when the window is created.
1158 Note: this is done in two routines because of the way X10 works.
1160 Note: under X11, this is normally the province of the window manager,
1161 and so emacs' border colors may be overridden. */
1164 x_set_border_color (f
, arg
, oldval
)
1166 Lisp_Object arg
, oldval
;
1171 pix
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1172 x_set_border_pixel (f
, pix
);
1173 update_face_from_frame_parameter (f
, Qborder_color
, arg
);
1178 x_set_cursor_type (f
, arg
, oldval
)
1180 Lisp_Object arg
, oldval
;
1182 set_frame_cursor_types (f
, arg
);
1184 /* Make sure the cursor gets redrawn. */
1185 cursor_type_changed
= 1;
1189 x_set_icon_type (f
, arg
, oldval
)
1191 Lisp_Object arg
, oldval
;
1197 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1200 else if (!STRINGP (oldval
) && EQ (oldval
, Qnil
) == EQ (arg
, Qnil
))
1205 result
= x_text_icon (f
,
1206 (char *) SDATA ((!NILP (f
->icon_name
)
1210 result
= x_bitmap_icon (f
, arg
);
1215 error ("No icon window available");
1218 XFlush (FRAME_X_DISPLAY (f
));
1223 x_set_icon_name (f
, arg
, oldval
)
1225 Lisp_Object arg
, oldval
;
1231 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1234 else if (!STRINGP (oldval
) && EQ (oldval
, Qnil
) == EQ (arg
, Qnil
))
1239 if (f
->output_data
.x
->icon_bitmap
!= 0)
1244 result
= x_text_icon (f
,
1245 (char *) SDATA ((!NILP (f
->icon_name
)
1254 error ("No icon window available");
1257 XFlush (FRAME_X_DISPLAY (f
));
1263 x_set_menu_bar_lines (f
, value
, oldval
)
1265 Lisp_Object value
, oldval
;
1268 #if ! defined (USE_X_TOOLKIT) && ! defined (USE_GTK)
1269 int olines
= FRAME_MENU_BAR_LINES (f
);
1272 /* Right now, menu bars don't work properly in minibuf-only frames;
1273 most of the commands try to apply themselves to the minibuffer
1274 frame itself, and get an error because you can't switch buffers
1275 in or split the minibuffer window. */
1276 if (FRAME_MINIBUF_ONLY_P (f
))
1279 if (INTEGERP (value
))
1280 nlines
= XINT (value
);
1284 /* Make sure we redisplay all windows in this frame. */
1285 windows_or_buffers_changed
++;
1287 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
1288 FRAME_MENU_BAR_LINES (f
) = 0;
1291 FRAME_EXTERNAL_MENU_BAR (f
) = 1;
1292 if (FRAME_X_P (f
) && f
->output_data
.x
->menubar_widget
== 0)
1293 /* Make sure next redisplay shows the menu bar. */
1294 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= Qt
;
1298 if (FRAME_EXTERNAL_MENU_BAR (f
) == 1)
1299 free_frame_menubar (f
);
1300 FRAME_EXTERNAL_MENU_BAR (f
) = 0;
1302 f
->output_data
.x
->menubar_widget
= 0;
1304 #else /* not USE_X_TOOLKIT && not USE_GTK */
1305 FRAME_MENU_BAR_LINES (f
) = nlines
;
1306 change_window_heights (f
->root_window
, nlines
- olines
);
1307 #endif /* not USE_X_TOOLKIT */
1312 /* Set the number of lines used for the tool bar of frame F to VALUE.
1313 VALUE not an integer, or < 0 means set the lines to zero. OLDVAL
1314 is the old number of tool bar lines. This function changes the
1315 height of all windows on frame F to match the new tool bar height.
1316 The frame's height doesn't change. */
1319 x_set_tool_bar_lines (f
, value
, oldval
)
1321 Lisp_Object value
, oldval
;
1323 int delta
, nlines
, root_height
;
1324 Lisp_Object root_window
;
1326 /* Treat tool bars like menu bars. */
1327 if (FRAME_MINIBUF_ONLY_P (f
))
1330 /* Use VALUE only if an integer >= 0. */
1331 if (INTEGERP (value
) && XINT (value
) >= 0)
1332 nlines
= XFASTINT (value
);
1337 FRAME_TOOL_BAR_LINES (f
) = 0;
1340 FRAME_EXTERNAL_TOOL_BAR (f
) = 1;
1341 if (FRAME_X_P (f
) && f
->output_data
.x
->toolbar_widget
== 0)
1342 /* Make sure next redisplay shows the tool bar. */
1343 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= Qt
;
1344 update_frame_tool_bar (f
);
1348 if (FRAME_EXTERNAL_TOOL_BAR (f
))
1349 free_frame_tool_bar (f
);
1350 FRAME_EXTERNAL_TOOL_BAR (f
) = 0;
1356 /* Make sure we redisplay all windows in this frame. */
1357 ++windows_or_buffers_changed
;
1359 delta
= nlines
- FRAME_TOOL_BAR_LINES (f
);
1361 /* Don't resize the tool-bar to more than we have room for. */
1362 root_window
= FRAME_ROOT_WINDOW (f
);
1363 root_height
= WINDOW_TOTAL_LINES (XWINDOW (root_window
));
1364 if (root_height
- delta
< 1)
1366 delta
= root_height
- 1;
1367 nlines
= FRAME_TOOL_BAR_LINES (f
) + delta
;
1370 FRAME_TOOL_BAR_LINES (f
) = nlines
;
1371 change_window_heights (root_window
, delta
);
1374 /* We also have to make sure that the internal border at the top of
1375 the frame, below the menu bar or tool bar, is redrawn when the
1376 tool bar disappears. This is so because the internal border is
1377 below the tool bar if one is displayed, but is below the menu bar
1378 if there isn't a tool bar. The tool bar draws into the area
1379 below the menu bar. */
1380 if (FRAME_X_WINDOW (f
) && FRAME_TOOL_BAR_LINES (f
) == 0)
1384 clear_current_matrices (f
);
1385 updating_frame
= NULL
;
1388 /* If the tool bar gets smaller, the internal border below it
1389 has to be cleared. It was formerly part of the display
1390 of the larger tool bar, and updating windows won't clear it. */
1393 int height
= FRAME_INTERNAL_BORDER_WIDTH (f
);
1394 int width
= FRAME_PIXEL_WIDTH (f
);
1395 int y
= nlines
* FRAME_LINE_HEIGHT (f
);
1398 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1399 0, y
, width
, height
, False
);
1402 if (WINDOWP (f
->tool_bar_window
))
1403 clear_glyph_matrix (XWINDOW (f
->tool_bar_window
)->current_matrix
);
1408 /* Set the foreground color for scroll bars on frame F to VALUE.
1409 VALUE should be a string, a color name. If it isn't a string or
1410 isn't a valid color name, do nothing. OLDVAL is the old value of
1411 the frame parameter. */
1414 x_set_scroll_bar_foreground (f
, value
, oldval
)
1416 Lisp_Object value
, oldval
;
1418 unsigned long pixel
;
1420 if (STRINGP (value
))
1421 pixel
= x_decode_color (f
, value
, BLACK_PIX_DEFAULT (f
));
1425 if (f
->output_data
.x
->scroll_bar_foreground_pixel
!= -1)
1426 unload_color (f
, f
->output_data
.x
->scroll_bar_foreground_pixel
);
1428 f
->output_data
.x
->scroll_bar_foreground_pixel
= pixel
;
1429 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1431 /* Remove all scroll bars because they have wrong colors. */
1432 if (condemn_scroll_bars_hook
)
1433 (*condemn_scroll_bars_hook
) (f
);
1434 if (judge_scroll_bars_hook
)
1435 (*judge_scroll_bars_hook
) (f
);
1437 update_face_from_frame_parameter (f
, Qscroll_bar_foreground
, value
);
1443 /* Set the background color for scroll bars on frame F to VALUE VALUE
1444 should be a string, a color name. If it isn't a string or isn't a
1445 valid color name, do nothing. OLDVAL is the old value of the frame
1449 x_set_scroll_bar_background (f
, value
, oldval
)
1451 Lisp_Object value
, oldval
;
1453 unsigned long pixel
;
1455 if (STRINGP (value
))
1456 pixel
= x_decode_color (f
, value
, WHITE_PIX_DEFAULT (f
));
1460 if (f
->output_data
.x
->scroll_bar_background_pixel
!= -1)
1461 unload_color (f
, f
->output_data
.x
->scroll_bar_background_pixel
);
1463 #ifdef USE_TOOLKIT_SCROLL_BARS
1464 /* Scrollbar shadow colors. */
1465 if (f
->output_data
.x
->scroll_bar_top_shadow_pixel
!= -1)
1467 unload_color (f
, f
->output_data
.x
->scroll_bar_top_shadow_pixel
);
1468 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
1470 if (f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
!= -1)
1472 unload_color (f
, f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
);
1473 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
1475 #endif /* USE_TOOLKIT_SCROLL_BARS */
1477 f
->output_data
.x
->scroll_bar_background_pixel
= pixel
;
1478 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1480 /* Remove all scroll bars because they have wrong colors. */
1481 if (condemn_scroll_bars_hook
)
1482 (*condemn_scroll_bars_hook
) (f
);
1483 if (judge_scroll_bars_hook
)
1484 (*judge_scroll_bars_hook
) (f
);
1486 update_face_from_frame_parameter (f
, Qscroll_bar_background
, value
);
1492 /* Encode Lisp string STRING as a text in a format appropriate for
1493 XICCC (X Inter Client Communication Conventions).
1495 If STRING contains only ASCII characters, do no conversion and
1496 return the string data of STRING. Otherwise, encode the text by
1497 CODING_SYSTEM, and return a newly allocated memory area which
1498 should be freed by `xfree' by a caller.
1500 SELECTIONP non-zero means the string is being encoded for an X
1501 selection, so it is safe to run pre-write conversions (which
1504 Store the byte length of resulting text in *TEXT_BYTES.
1506 If the text contains only ASCII and Latin-1, store 1 in *STRING_P,
1507 which means that the `encoding' of the result can be `STRING'.
1508 Otherwise store 0 in *STRINGP, which means that the `encoding' of
1509 the result should be `COMPOUND_TEXT'. */
1512 x_encode_text (string
, coding_system
, selectionp
, text_bytes
, stringp
)
1513 Lisp_Object string
, coding_system
;
1514 int *text_bytes
, *stringp
;
1517 unsigned char *str
= SDATA (string
);
1518 int chars
= SCHARS (string
);
1519 int bytes
= SBYTES (string
);
1523 struct coding_system coding
;
1524 extern Lisp_Object Qcompound_text_with_extensions
;
1526 charset_info
= find_charset_in_text (str
, chars
, bytes
, NULL
, Qnil
);
1527 if (charset_info
== 0)
1529 /* No multibyte character in OBJ. We need not encode it. */
1530 *text_bytes
= bytes
;
1535 setup_coding_system (coding_system
, &coding
);
1537 && SYMBOLP (coding
.pre_write_conversion
)
1538 && !NILP (Ffboundp (coding
.pre_write_conversion
)))
1540 string
= run_pre_post_conversion_on_str (string
, &coding
, 1);
1541 str
= SDATA (string
);
1542 chars
= SCHARS (string
);
1543 bytes
= SBYTES (string
);
1545 coding
.src_multibyte
= 1;
1546 coding
.dst_multibyte
= 0;
1547 coding
.mode
|= CODING_MODE_LAST_BLOCK
;
1548 if (coding
.type
== coding_type_iso2022
)
1549 coding
.flags
|= CODING_FLAG_ISO_SAFE
;
1550 /* We suppress producing escape sequences for composition. */
1551 coding
.composing
= COMPOSITION_DISABLED
;
1552 bufsize
= encoding_buffer_size (&coding
, bytes
);
1553 buf
= (unsigned char *) xmalloc (bufsize
);
1554 encode_coding (&coding
, str
, buf
, bytes
, bufsize
);
1555 *text_bytes
= coding
.produced
;
1556 *stringp
= (charset_info
== 1
1557 || (!EQ (coding_system
, Qcompound_text
)
1558 && !EQ (coding_system
, Qcompound_text_with_extensions
)));
1563 /* Set the WM name to NAME for frame F. Also set the icon name.
1564 If the frame already has an icon name, use that, otherwise set the
1565 icon name to NAME. */
1568 x_set_name_internal (f
, name
)
1572 if (FRAME_X_WINDOW (f
))
1577 XTextProperty text
, icon
;
1579 int do_free_icon_value
= 0, do_free_text_value
= 0;
1580 Lisp_Object coding_system
;
1582 coding_system
= Qcompound_text
;
1583 /* Note: Encoding strategy
1585 We encode NAME by compound-text and use "COMPOUND-TEXT" in
1586 text.encoding. But, there are non-internationalized window
1587 managers which don't support that encoding. So, if NAME
1588 contains only ASCII and 8859-1 characters, encode it by
1589 iso-latin-1, and use "STRING" in text.encoding hoping that
1590 such window managers at least analyze this format correctly,
1591 i.e. treat 8-bit bytes as 8859-1 characters.
1593 We may also be able to use "UTF8_STRING" in text.encoding
1594 in the future which can encode all Unicode characters.
1595 But, for the moment, there's no way to know that the
1596 current window manager supports it or not. */
1597 text
.value
= x_encode_text (name
, coding_system
, 0, &bytes
, &stringp
);
1598 text
.encoding
= (stringp
? XA_STRING
1599 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1601 text
.nitems
= bytes
;
1603 /* Check early, because ENCODE_UTF_8 below may GC and name may be
1605 do_free_text_value
= text
.value
!= SDATA (name
);
1607 if (NILP (f
->icon_name
))
1613 /* See the above comment "Note: Encoding strategy". */
1614 icon
.value
= x_encode_text (f
->icon_name
, coding_system
, 0,
1616 icon
.encoding
= (stringp
? XA_STRING
1617 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1619 icon
.nitems
= bytes
;
1620 do_free_icon_value
= icon
.value
!= SDATA (f
->icon_name
);
1624 gtk_window_set_title (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
1625 SDATA (ENCODE_UTF_8 (name
)));
1626 #else /* not USE_GTK */
1627 XSetWMName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &text
);
1628 #endif /* not USE_GTK */
1630 XSetWMIconName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &icon
);
1632 if (do_free_icon_value
)
1634 if (do_free_text_value
)
1637 #else /* not HAVE_X11R4 */
1638 XSetIconName (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1640 XStoreName (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1642 #endif /* not HAVE_X11R4 */
1647 /* Change the name of frame F to NAME. If NAME is nil, set F's name to
1650 If EXPLICIT is non-zero, that indicates that lisp code is setting the
1651 name; if NAME is a string, set F's name to NAME and set
1652 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1654 If EXPLICIT is zero, that indicates that Emacs redisplay code is
1655 suggesting a new name, which lisp code should override; if
1656 F->explicit_name is set, ignore the new name; otherwise, set it. */
1659 x_set_name (f
, name
, explicit)
1664 /* Make sure that requests from lisp code override requests from
1665 Emacs redisplay code. */
1668 /* If we're switching from explicit to implicit, we had better
1669 update the mode lines and thereby update the title. */
1670 if (f
->explicit_name
&& NILP (name
))
1671 update_mode_lines
= 1;
1673 f
->explicit_name
= ! NILP (name
);
1675 else if (f
->explicit_name
)
1678 /* If NAME is nil, set the name to the x_id_name. */
1681 /* Check for no change needed in this very common case
1682 before we do any consing. */
1683 if (!strcmp (FRAME_X_DISPLAY_INFO (f
)->x_id_name
,
1686 name
= build_string (FRAME_X_DISPLAY_INFO (f
)->x_id_name
);
1689 CHECK_STRING (name
);
1691 /* Don't change the name if it's already NAME. */
1692 if (! NILP (Fstring_equal (name
, f
->name
)))
1697 /* For setting the frame title, the title parameter should override
1698 the name parameter. */
1699 if (! NILP (f
->title
))
1702 x_set_name_internal (f
, name
);
1705 /* This function should be called when the user's lisp code has
1706 specified a name for the frame; the name will override any set by the
1709 x_explicitly_set_name (f
, arg
, oldval
)
1711 Lisp_Object arg
, oldval
;
1713 x_set_name (f
, arg
, 1);
1716 /* This function should be called by Emacs redisplay code to set the
1717 name; names set this way will never override names set by the user's
1720 x_implicitly_set_name (f
, arg
, oldval
)
1722 Lisp_Object arg
, oldval
;
1724 x_set_name (f
, arg
, 0);
1727 /* Change the title of frame F to NAME.
1728 If NAME is nil, use the frame name as the title.
1730 If EXPLICIT is non-zero, that indicates that lisp code is setting the
1731 name; if NAME is a string, set F's name to NAME and set
1732 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1734 If EXPLICIT is zero, that indicates that Emacs redisplay code is
1735 suggesting a new name, which lisp code should override; if
1736 F->explicit_name is set, ignore the new name; otherwise, set it. */
1739 x_set_title (f
, name
, old_name
)
1741 Lisp_Object name
, old_name
;
1743 /* Don't change the title if it's already NAME. */
1744 if (EQ (name
, f
->title
))
1747 update_mode_lines
= 1;
1754 CHECK_STRING (name
);
1756 x_set_name_internal (f
, name
);
1760 x_set_scroll_bar_default_width (f
)
1763 int wid
= FRAME_COLUMN_WIDTH (f
);
1765 #ifdef USE_TOOLKIT_SCROLL_BARS
1766 /* A minimum width of 14 doesn't look good for toolkit scroll bars. */
1767 int width
= 16 + 2 * VERTICAL_SCROLL_BAR_WIDTH_TRIM
;
1768 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (width
+ wid
- 1) / wid
;
1769 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = width
;
1771 /* Make the actual width at least 14 pixels and a multiple of a
1773 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (14 + wid
- 1) / wid
;
1775 /* Use all of that space (aside from required margins) for the
1777 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = 0;
1782 /* Record in frame F the specified or default value according to ALIST
1783 of the parameter named PROP (a Lisp symbol). If no value is
1784 specified for PROP, look for an X default for XPROP on the frame
1785 named NAME. If that is not found either, use the value DEFLT. */
1788 x_default_scroll_bar_color_parameter (f
, alist
, prop
, xprop
, xclass
,
1797 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
1800 tem
= x_get_arg (dpyinfo
, alist
, prop
, xprop
, xclass
, RES_TYPE_STRING
);
1801 if (EQ (tem
, Qunbound
))
1803 #ifdef USE_TOOLKIT_SCROLL_BARS
1805 /* See if an X resource for the scroll bar color has been
1807 tem
= display_x_get_resource (dpyinfo
,
1808 build_string (foreground_p
1812 build_string ("verticalScrollBar"),
1816 /* If nothing has been specified, scroll bars will use a
1817 toolkit-dependent default. Because these defaults are
1818 difficult to get at without actually creating a scroll
1819 bar, use nil to indicate that no color has been
1824 #else /* not USE_TOOLKIT_SCROLL_BARS */
1828 #endif /* not USE_TOOLKIT_SCROLL_BARS */
1831 x_set_frame_parameters (f
, Fcons (Fcons (prop
, tem
), Qnil
));
1837 #if !defined (HAVE_X11R4) && !defined (HAVE_XSETWMPROTOCOLS)
1840 XSetWMProtocols (dpy
, w
, protocols
, count
)
1847 prop
= XInternAtom (dpy
, "WM_PROTOCOLS", False
);
1848 if (prop
== None
) return False
;
1849 XChangeProperty (dpy
, w
, prop
, XA_ATOM
, 32, PropModeReplace
,
1850 (unsigned char *) protocols
, count
);
1853 #endif /* not HAVE_X11R4 && not HAVE_XSETWMPROTOCOLS */
1855 #ifdef USE_X_TOOLKIT
1857 /* If the WM_PROTOCOLS property does not already contain WM_TAKE_FOCUS,
1858 WM_DELETE_WINDOW, and WM_SAVE_YOURSELF, then add them. (They may
1859 already be present because of the toolkit (Motif adds some of them,
1860 for example, but Xt doesn't). */
1863 hack_wm_protocols (f
, widget
)
1867 Display
*dpy
= XtDisplay (widget
);
1868 Window w
= XtWindow (widget
);
1869 int need_delete
= 1;
1875 Atom type
, *atoms
= 0;
1877 unsigned long nitems
= 0;
1878 unsigned long bytes_after
;
1880 if ((XGetWindowProperty (dpy
, w
,
1881 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1882 (long)0, (long)100, False
, XA_ATOM
,
1883 &type
, &format
, &nitems
, &bytes_after
,
1884 (unsigned char **) &atoms
)
1886 && format
== 32 && type
== XA_ATOM
)
1890 if (atoms
[nitems
] == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
)
1892 else if (atoms
[nitems
] == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
)
1894 else if (atoms
[nitems
] == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
)
1897 if (atoms
) XFree ((char *) atoms
);
1903 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
1905 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
;
1907 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
1909 XChangeProperty (dpy
, w
, FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1910 XA_ATOM
, 32, PropModeAppend
,
1911 (unsigned char *) props
, count
);
1919 /* Support routines for XIC (X Input Context). */
1923 static XFontSet xic_create_xfontset
P_ ((struct frame
*, char *));
1924 static XIMStyle best_xim_style
P_ ((XIMStyles
*, XIMStyles
*));
1927 /* Supported XIM styles, ordered by preference. */
1929 static XIMStyle supported_xim_styles
[] =
1931 XIMPreeditPosition
| XIMStatusArea
,
1932 XIMPreeditPosition
| XIMStatusNothing
,
1933 XIMPreeditPosition
| XIMStatusNone
,
1934 XIMPreeditNothing
| XIMStatusArea
,
1935 XIMPreeditNothing
| XIMStatusNothing
,
1936 XIMPreeditNothing
| XIMStatusNone
,
1937 XIMPreeditNone
| XIMStatusArea
,
1938 XIMPreeditNone
| XIMStatusNothing
,
1939 XIMPreeditNone
| XIMStatusNone
,
1944 /* Create an X fontset on frame F with base font name BASE_FONTNAME. */
1947 xic_create_xfontset (f
, base_fontname
)
1949 char *base_fontname
;
1951 XFontSet xfs
= NULL
;
1952 char **missing_list
;
1955 Lisp_Object rest
, frame
;
1957 /* See if there is another frame already using same fontset. */
1958 FOR_EACH_FRAME (rest
, frame
)
1960 struct frame
*cf
= XFRAME (frame
);
1961 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
1962 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
1963 && !strcmp (FRAME_XIC_BASE_FONTNAME (cf
), base_fontname
))
1965 xfs
= FRAME_XIC_FONTSET (cf
);
1972 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
),
1973 base_fontname
, &missing_list
,
1974 &missing_count
, &def_string
);
1976 XFreeStringList (missing_list
);
1978 if (FRAME_XIC_BASE_FONTNAME (f
))
1979 xfree (FRAME_XIC_BASE_FONTNAME (f
));
1980 FRAME_XIC_BASE_FONTNAME (f
) = xstrdup (base_fontname
);
1982 /* No need to free def_string. */
1986 /* Free the X fontset of frame F if it is the last frame using it. */
1989 xic_free_xfontset (f
)
1992 Lisp_Object rest
, frame
;
1995 if (!FRAME_XIC_FONTSET (f
))
1998 /* See if there is another frame sharing the same fontset. */
1999 FOR_EACH_FRAME (rest
, frame
)
2001 struct frame
*cf
= XFRAME (frame
);
2002 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
2003 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
2004 && FRAME_XIC_FONTSET (cf
) == FRAME_XIC_FONTSET (f
))
2012 /* The fontset is not used anymore. It is safe to free it. */
2013 XFreeFontSet (FRAME_X_DISPLAY (f
), FRAME_XIC_FONTSET (f
));
2015 if (FRAME_XIC_BASE_FONTNAME (f
))
2016 xfree (FRAME_XIC_BASE_FONTNAME (f
));
2017 FRAME_XIC_BASE_FONTNAME (f
) = NULL
;
2018 FRAME_XIC_FONTSET (f
) = NULL
;
2022 /* Value is the best input style, given user preferences USER (already
2023 checked to be supported by Emacs), and styles supported by the
2024 input method XIM. */
2027 best_xim_style (user
, xim
)
2033 for (i
= 0; i
< user
->count_styles
; ++i
)
2034 for (j
= 0; j
< xim
->count_styles
; ++j
)
2035 if (user
->supported_styles
[i
] == xim
->supported_styles
[j
])
2036 return user
->supported_styles
[i
];
2038 /* Return the default style. */
2039 return XIMPreeditNothing
| XIMStatusNothing
;
2042 /* Create XIC for frame F. */
2044 static XIMStyle xic_style
;
2047 create_frame_xic (f
)
2052 XFontSet xfs
= NULL
;
2057 xim
= FRAME_X_XIM (f
);
2062 XVaNestedList preedit_attr
;
2063 XVaNestedList status_attr
;
2064 char *base_fontname
;
2067 s_area
.x
= 0; s_area
.y
= 0; s_area
.width
= 1; s_area
.height
= 1;
2068 spot
.x
= 0; spot
.y
= 1;
2069 /* Create X fontset. */
2070 fontset
= FRAME_FONTSET (f
);
2072 base_fontname
= "-*-*-*-r-normal--14-*-*-*-*-*-*-*";
2075 /* Determine the base fontname from the ASCII font name of
2077 char *ascii_font
= (char *) SDATA (fontset_ascii (fontset
));
2078 char *p
= ascii_font
;
2081 for (i
= 0; *p
; p
++)
2084 /* As the font name doesn't conform to XLFD, we can't
2085 modify it to get a suitable base fontname for the
2087 base_fontname
= "-*-*-*-r-normal--14-*-*-*-*-*-*-*";
2090 int len
= strlen (ascii_font
) + 1;
2093 for (i
= 0, p
= ascii_font
; i
< 8; p
++)
2102 base_fontname
= (char *) alloca (len
);
2103 bzero (base_fontname
, len
);
2104 strcpy (base_fontname
, "-*-*-");
2105 bcopy (p1
, base_fontname
+ 5, p
- p1
);
2106 strcat (base_fontname
, "*-*-*-*-*-*-*");
2109 xfs
= xic_create_xfontset (f
, base_fontname
);
2111 /* Determine XIC style. */
2114 XIMStyles supported_list
;
2115 supported_list
.count_styles
= (sizeof supported_xim_styles
2116 / sizeof supported_xim_styles
[0]);
2117 supported_list
.supported_styles
= supported_xim_styles
;
2118 xic_style
= best_xim_style (&supported_list
,
2119 FRAME_X_XIM_STYLES (f
));
2122 preedit_attr
= XVaCreateNestedList (0,
2125 FRAME_FOREGROUND_PIXEL (f
),
2127 FRAME_BACKGROUND_PIXEL (f
),
2128 (xic_style
& XIMPreeditPosition
2133 status_attr
= XVaCreateNestedList (0,
2139 FRAME_FOREGROUND_PIXEL (f
),
2141 FRAME_BACKGROUND_PIXEL (f
),
2144 xic
= XCreateIC (xim
,
2145 XNInputStyle
, xic_style
,
2146 XNClientWindow
, FRAME_X_WINDOW (f
),
2147 XNFocusWindow
, FRAME_X_WINDOW (f
),
2148 XNStatusAttributes
, status_attr
,
2149 XNPreeditAttributes
, preedit_attr
,
2151 XFree (preedit_attr
);
2152 XFree (status_attr
);
2155 FRAME_XIC (f
) = xic
;
2156 FRAME_XIC_STYLE (f
) = xic_style
;
2157 FRAME_XIC_FONTSET (f
) = xfs
;
2161 /* Destroy XIC and free XIC fontset of frame F, if any. */
2167 if (FRAME_XIC (f
) == NULL
)
2170 XDestroyIC (FRAME_XIC (f
));
2171 xic_free_xfontset (f
);
2173 FRAME_XIC (f
) = NULL
;
2177 /* Place preedit area for XIC of window W's frame to specified
2178 pixel position X/Y. X and Y are relative to window W. */
2181 xic_set_preeditarea (w
, x
, y
)
2185 struct frame
*f
= XFRAME (w
->frame
);
2189 spot
.x
= WINDOW_TO_FRAME_PIXEL_X (w
, x
) + WINDOW_LEFT_FRINGE_WIDTH (w
);
2190 spot
.y
= WINDOW_TO_FRAME_PIXEL_Y (w
, y
) + FONT_BASE (FRAME_FONT (f
));
2191 attr
= XVaCreateNestedList (0, XNSpotLocation
, &spot
, NULL
);
2192 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2197 /* Place status area for XIC in bottom right corner of frame F.. */
2200 xic_set_statusarea (f
)
2203 XIC xic
= FRAME_XIC (f
);
2208 /* Negotiate geometry of status area. If input method has existing
2209 status area, use its current size. */
2210 area
.x
= area
.y
= area
.width
= area
.height
= 0;
2211 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &area
, NULL
);
2212 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2215 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &needed
, NULL
);
2216 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2219 if (needed
->width
== 0) /* Use XNArea instead of XNAreaNeeded */
2221 attr
= XVaCreateNestedList (0, XNArea
, &needed
, NULL
);
2222 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2226 area
.width
= needed
->width
;
2227 area
.height
= needed
->height
;
2228 area
.x
= FRAME_PIXEL_WIDTH (f
) - area
.width
- FRAME_INTERNAL_BORDER_WIDTH (f
);
2229 area
.y
= (FRAME_PIXEL_HEIGHT (f
) - area
.height
2230 - FRAME_MENUBAR_HEIGHT (f
)
2231 - FRAME_TOOLBAR_HEIGHT (f
)
2232 - FRAME_INTERNAL_BORDER_WIDTH (f
));
2235 attr
= XVaCreateNestedList (0, XNArea
, &area
, NULL
);
2236 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2241 /* Set X fontset for XIC of frame F, using base font name
2242 BASE_FONTNAME. Called when a new Emacs fontset is chosen. */
2245 xic_set_xfontset (f
, base_fontname
)
2247 char *base_fontname
;
2252 xic_free_xfontset (f
);
2254 xfs
= xic_create_xfontset (f
, base_fontname
);
2256 attr
= XVaCreateNestedList (0, XNFontSet
, xfs
, NULL
);
2257 if (FRAME_XIC_STYLE (f
) & XIMPreeditPosition
)
2258 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2259 if (FRAME_XIC_STYLE (f
) & XIMStatusArea
)
2260 XSetICValues (FRAME_XIC (f
), XNStatusAttributes
, attr
, NULL
);
2263 FRAME_XIC_FONTSET (f
) = xfs
;
2266 #endif /* HAVE_X_I18N */
2270 #ifdef USE_X_TOOLKIT
2272 /* Create and set up the X widget for frame F. */
2275 x_window (f
, window_prompting
, minibuffer_only
)
2277 long window_prompting
;
2278 int minibuffer_only
;
2280 XClassHint class_hints
;
2281 XSetWindowAttributes attributes
;
2282 unsigned long attribute_mask
;
2283 Widget shell_widget
;
2285 Widget frame_widget
;
2291 /* Use the resource name as the top-level widget name
2292 for looking up resources. Make a non-Lisp copy
2293 for the window manager, so GC relocation won't bother it.
2295 Elsewhere we specify the window name for the window manager. */
2298 char *str
= (char *) SDATA (Vx_resource_name
);
2299 f
->namebuf
= (char *) xmalloc (strlen (str
) + 1);
2300 strcpy (f
->namebuf
, str
);
2304 XtSetArg (al
[ac
], XtNallowShellResize
, 1); ac
++;
2305 XtSetArg (al
[ac
], XtNinput
, 1); ac
++;
2306 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2307 XtSetArg (al
[ac
], XtNborderWidth
, f
->border_width
); ac
++;
2308 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2309 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2310 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2311 shell_widget
= XtAppCreateShell (f
->namebuf
, EMACS_CLASS
,
2312 applicationShellWidgetClass
,
2313 FRAME_X_DISPLAY (f
), al
, ac
);
2315 f
->output_data
.x
->widget
= shell_widget
;
2316 /* maybe_set_screen_title_format (shell_widget); */
2318 pane_widget
= lw_create_widget ("main", "pane", widget_id_tick
++,
2319 (widget_value
*) NULL
,
2320 shell_widget
, False
,
2324 (lw_callback
) NULL
);
2327 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2328 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2329 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2330 XtSetValues (pane_widget
, al
, ac
);
2331 f
->output_data
.x
->column_widget
= pane_widget
;
2333 /* mappedWhenManaged to false tells to the paned window to not map/unmap
2334 the emacs screen when changing menubar. This reduces flickering. */
2337 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2338 XtSetArg (al
[ac
], XtNshowGrip
, 0); ac
++;
2339 XtSetArg (al
[ac
], XtNallowResize
, 1); ac
++;
2340 XtSetArg (al
[ac
], XtNresizeToPreferred
, 1); ac
++;
2341 XtSetArg (al
[ac
], XtNemacsFrame
, f
); ac
++;
2342 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2343 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2344 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2345 frame_widget
= XtCreateWidget (f
->namebuf
, emacsFrameClass
, pane_widget
,
2348 f
->output_data
.x
->edit_widget
= frame_widget
;
2350 XtManageChild (frame_widget
);
2352 /* Do some needed geometry management. */
2355 char *tem
, shell_position
[32];
2358 int extra_borders
= 0;
2360 = (f
->output_data
.x
->menubar_widget
2361 ? (f
->output_data
.x
->menubar_widget
->core
.height
2362 + f
->output_data
.x
->menubar_widget
->core
.border_width
)
2365 #if 0 /* Experimentally, we now get the right results
2366 for -geometry -0-0 without this. 24 Aug 96, rms. */
2367 if (FRAME_EXTERNAL_MENU_BAR (f
))
2370 XtVaGetValues (pane_widget
, XtNinternalBorderWidth
, &ibw
, NULL
);
2371 menubar_size
+= ibw
;
2375 f
->output_data
.x
->menubar_height
= menubar_size
;
2378 /* Motif seems to need this amount added to the sizes
2379 specified for the shell widget. The Athena/Lucid widgets don't.
2380 Both conclusions reached experimentally. -- rms. */
2381 XtVaGetValues (f
->output_data
.x
->edit_widget
, XtNinternalBorderWidth
,
2382 &extra_borders
, NULL
);
2386 /* Convert our geometry parameters into a geometry string
2388 Note that we do not specify here whether the position
2389 is a user-specified or program-specified one.
2390 We pass that information later, in x_wm_set_size_hints. */
2392 int left
= f
->left_pos
;
2393 int xneg
= window_prompting
& XNegative
;
2394 int top
= f
->top_pos
;
2395 int yneg
= window_prompting
& YNegative
;
2401 if (window_prompting
& USPosition
)
2402 sprintf (shell_position
, "=%dx%d%c%d%c%d",
2403 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2404 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
,
2405 (xneg
? '-' : '+'), left
,
2406 (yneg
? '-' : '+'), top
);
2409 sprintf (shell_position
, "=%dx%d",
2410 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2411 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
);
2413 /* Setting x and y when the position is not specified in
2414 the geometry string will set program position in the WM hints.
2415 If Emacs had just one program position, we could set it in
2416 fallback resources, but since each make-frame call can specify
2417 different program positions, this is easier. */
2418 XtSetArg (al
[ac
], XtNx
, left
); ac
++;
2419 XtSetArg (al
[ac
], XtNy
, top
); ac
++;
2423 len
= strlen (shell_position
) + 1;
2424 /* We don't free this because we don't know whether
2425 it is safe to free it while the frame exists.
2426 It isn't worth the trouble of arranging to free it
2427 when the frame is deleted. */
2428 tem
= (char *) xmalloc (len
);
2429 strncpy (tem
, shell_position
, len
);
2430 XtSetArg (al
[ac
], XtNgeometry
, tem
); ac
++;
2431 XtSetValues (shell_widget
, al
, ac
);
2434 XtManageChild (pane_widget
);
2435 XtRealizeWidget (shell_widget
);
2437 FRAME_X_WINDOW (f
) = XtWindow (frame_widget
);
2439 validate_x_resource_name ();
2441 class_hints
.res_name
= (char *) SDATA (Vx_resource_name
);
2442 class_hints
.res_class
= (char *) SDATA (Vx_resource_class
);
2443 XSetClassHint (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
), &class_hints
);
2446 FRAME_XIC (f
) = NULL
;
2448 create_frame_xic (f
);
2451 f
->output_data
.x
->wm_hints
.input
= True
;
2452 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2453 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2454 &f
->output_data
.x
->wm_hints
);
2456 hack_wm_protocols (f
, shell_widget
);
2459 XtAddEventHandler (shell_widget
, 0, True
, _XEditResCheckMessages
, 0);
2462 /* Do a stupid property change to force the server to generate a
2463 PropertyNotify event so that the event_stream server timestamp will
2464 be initialized to something relevant to the time we created the window.
2466 XChangeProperty (XtDisplay (frame_widget
), XtWindow (frame_widget
),
2467 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
2468 XA_ATOM
, 32, PropModeAppend
,
2469 (unsigned char*) NULL
, 0);
2471 /* Make all the standard events reach the Emacs frame. */
2472 attributes
.event_mask
= STANDARD_EVENT_SET
;
2477 /* XIM server might require some X events. */
2478 unsigned long fevent
= NoEventMask
;
2479 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2480 attributes
.event_mask
|= fevent
;
2482 #endif /* HAVE_X_I18N */
2484 attribute_mask
= CWEventMask
;
2485 XChangeWindowAttributes (XtDisplay (shell_widget
), XtWindow (shell_widget
),
2486 attribute_mask
, &attributes
);
2488 XtMapWidget (frame_widget
);
2490 /* x_set_name normally ignores requests to set the name if the
2491 requested name is the same as the current name. This is the one
2492 place where that assumption isn't correct; f->name is set, but
2493 the X server hasn't been told. */
2496 int explicit = f
->explicit_name
;
2498 f
->explicit_name
= 0;
2501 x_set_name (f
, name
, explicit);
2504 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2505 f
->output_data
.x
->text_cursor
);
2509 /* This is a no-op, except under Motif. Make sure main areas are
2510 set to something reasonable, in case we get an error later. */
2511 lw_set_main_areas (pane_widget
, 0, frame_widget
);
2514 #else /* not USE_X_TOOLKIT */
2520 if (! xg_create_frame_widgets (f
))
2521 error ("Unable to create window");
2524 FRAME_XIC (f
) = NULL
;
2528 create_frame_xic (f
);
2531 /* XIM server might require some X events. */
2532 unsigned long fevent
= NoEventMask
;
2533 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2535 if (fevent
!= NoEventMask
)
2537 XSetWindowAttributes attributes
;
2538 XWindowAttributes wattr
;
2539 unsigned long attribute_mask
;
2541 XGetWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2543 attributes
.event_mask
= wattr
.your_event_mask
| fevent
;
2544 attribute_mask
= CWEventMask
;
2545 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2546 attribute_mask
, &attributes
);
2554 #else /*! USE_GTK */
2555 /* Create and set up the X window for frame F. */
2562 XClassHint class_hints
;
2563 XSetWindowAttributes attributes
;
2564 unsigned long attribute_mask
;
2566 attributes
.background_pixel
= f
->output_data
.x
->background_pixel
;
2567 attributes
.border_pixel
= f
->output_data
.x
->border_pixel
;
2568 attributes
.bit_gravity
= StaticGravity
;
2569 attributes
.backing_store
= NotUseful
;
2570 attributes
.save_under
= True
;
2571 attributes
.event_mask
= STANDARD_EVENT_SET
;
2572 attributes
.colormap
= FRAME_X_COLORMAP (f
);
2573 attribute_mask
= (CWBackPixel
| CWBorderPixel
| CWBitGravity
| CWEventMask
2578 = XCreateWindow (FRAME_X_DISPLAY (f
),
2579 f
->output_data
.x
->parent_desc
,
2582 FRAME_PIXEL_WIDTH (f
), FRAME_PIXEL_HEIGHT (f
),
2584 CopyFromParent
, /* depth */
2585 InputOutput
, /* class */
2587 attribute_mask
, &attributes
);
2592 create_frame_xic (f
);
2595 /* XIM server might require some X events. */
2596 unsigned long fevent
= NoEventMask
;
2597 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2598 attributes
.event_mask
|= fevent
;
2599 attribute_mask
= CWEventMask
;
2600 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2601 attribute_mask
, &attributes
);
2604 #endif /* HAVE_X_I18N */
2606 validate_x_resource_name ();
2608 class_hints
.res_name
= (char *) SDATA (Vx_resource_name
);
2609 class_hints
.res_class
= (char *) SDATA (Vx_resource_class
);
2610 XSetClassHint (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), &class_hints
);
2612 /* The menubar is part of the ordinary display;
2613 it does not count in addition to the height of the window. */
2614 f
->output_data
.x
->menubar_height
= 0;
2616 /* This indicates that we use the "Passive Input" input model.
2617 Unless we do this, we don't get the Focus{In,Out} events that we
2618 need to draw the cursor correctly. Accursed bureaucrats.
2619 XWhipsAndChains (FRAME_X_DISPLAY (f), IronMaiden, &TheRack); */
2621 f
->output_data
.x
->wm_hints
.input
= True
;
2622 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2623 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2624 &f
->output_data
.x
->wm_hints
);
2625 f
->output_data
.x
->wm_hints
.icon_pixmap
= None
;
2627 /* Request "save yourself" and "delete window" commands from wm. */
2630 protocols
[0] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
2631 protocols
[1] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
2632 XSetWMProtocols (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), protocols
, 2);
2635 /* x_set_name normally ignores requests to set the name if the
2636 requested name is the same as the current name. This is the one
2637 place where that assumption isn't correct; f->name is set, but
2638 the X server hasn't been told. */
2641 int explicit = f
->explicit_name
;
2643 f
->explicit_name
= 0;
2646 x_set_name (f
, name
, explicit);
2649 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2650 f
->output_data
.x
->text_cursor
);
2654 if (FRAME_X_WINDOW (f
) == 0)
2655 error ("Unable to create window");
2658 #endif /* not USE_GTK */
2659 #endif /* not USE_X_TOOLKIT */
2661 /* Verify that the icon position args for this window are valid. */
2664 x_icon_verify (f
, parms
)
2668 Lisp_Object icon_x
, icon_y
;
2670 /* Set the position of the icon. Note that twm groups all
2671 icons in an icon window. */
2672 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2673 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2674 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2676 CHECK_NUMBER (icon_x
);
2677 CHECK_NUMBER (icon_y
);
2679 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2680 error ("Both left and top icon corners of icon must be specified");
2683 /* Handle the icon stuff for this window. Perhaps later we might
2684 want an x_set_icon_position which can be called interactively as
2692 Lisp_Object icon_x
, icon_y
;
2693 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2695 /* Set the position of the icon. Note that twm groups all
2696 icons in an icon window. */
2697 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2698 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2699 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2701 CHECK_NUMBER (icon_x
);
2702 CHECK_NUMBER (icon_y
);
2704 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2705 error ("Both left and top icon corners of icon must be specified");
2709 if (! EQ (icon_x
, Qunbound
))
2710 x_wm_set_icon_position (f
, XINT (icon_x
), XINT (icon_y
));
2712 /* Start up iconic or window? */
2713 x_wm_set_window_state
2714 (f
, (EQ (x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0, RES_TYPE_SYMBOL
),
2719 x_text_icon (f
, (char *) SDATA ((!NILP (f
->icon_name
)
2726 /* Make the GCs needed for this window, setting the
2727 background, border and mouse colors; also create the
2728 mouse cursor and the gray border tile. */
2730 static char cursor_bits
[] =
2732 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2733 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2734 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2735 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00
2742 XGCValues gc_values
;
2746 /* Create the GCs of this frame.
2747 Note that many default values are used. */
2750 gc_values
.font
= FRAME_FONT (f
)->fid
;
2751 gc_values
.foreground
= f
->output_data
.x
->foreground_pixel
;
2752 gc_values
.background
= f
->output_data
.x
->background_pixel
;
2753 gc_values
.line_width
= 0; /* Means 1 using fast algorithm. */
2754 f
->output_data
.x
->normal_gc
2755 = XCreateGC (FRAME_X_DISPLAY (f
),
2757 GCLineWidth
| GCFont
| GCForeground
| GCBackground
,
2760 /* Reverse video style. */
2761 gc_values
.foreground
= f
->output_data
.x
->background_pixel
;
2762 gc_values
.background
= f
->output_data
.x
->foreground_pixel
;
2763 f
->output_data
.x
->reverse_gc
2764 = XCreateGC (FRAME_X_DISPLAY (f
),
2766 GCFont
| GCForeground
| GCBackground
| GCLineWidth
,
2769 /* Cursor has cursor-color background, background-color foreground. */
2770 gc_values
.foreground
= f
->output_data
.x
->background_pixel
;
2771 gc_values
.background
= f
->output_data
.x
->cursor_pixel
;
2772 gc_values
.fill_style
= FillOpaqueStippled
;
2774 = XCreateBitmapFromData (FRAME_X_DISPLAY (f
),
2775 FRAME_X_DISPLAY_INFO (f
)->root_window
,
2776 cursor_bits
, 16, 16);
2777 f
->output_data
.x
->cursor_gc
2778 = XCreateGC (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2779 (GCFont
| GCForeground
| GCBackground
2780 | GCFillStyle
/* | GCStipple */ | GCLineWidth
),
2784 f
->output_data
.x
->white_relief
.gc
= 0;
2785 f
->output_data
.x
->black_relief
.gc
= 0;
2787 /* Create the gray border tile used when the pointer is not in
2788 the frame. Since this depends on the frame's pixel values,
2789 this must be done on a per-frame basis. */
2790 f
->output_data
.x
->border_tile
2791 = (XCreatePixmapFromBitmapData
2792 (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
2793 gray_bits
, gray_width
, gray_height
,
2794 f
->output_data
.x
->foreground_pixel
,
2795 f
->output_data
.x
->background_pixel
,
2796 DefaultDepth (FRAME_X_DISPLAY (f
), FRAME_X_SCREEN_NUMBER (f
))));
2802 /* Free what was was allocated in x_make_gc. */
2808 Display
*dpy
= FRAME_X_DISPLAY (f
);
2812 if (f
->output_data
.x
->normal_gc
)
2814 XFreeGC (dpy
, f
->output_data
.x
->normal_gc
);
2815 f
->output_data
.x
->normal_gc
= 0;
2818 if (f
->output_data
.x
->reverse_gc
)
2820 XFreeGC (dpy
, f
->output_data
.x
->reverse_gc
);
2821 f
->output_data
.x
->reverse_gc
= 0;
2824 if (f
->output_data
.x
->cursor_gc
)
2826 XFreeGC (dpy
, f
->output_data
.x
->cursor_gc
);
2827 f
->output_data
.x
->cursor_gc
= 0;
2830 if (f
->output_data
.x
->border_tile
)
2832 XFreePixmap (dpy
, f
->output_data
.x
->border_tile
);
2833 f
->output_data
.x
->border_tile
= 0;
2840 /* Handler for signals raised during x_create_frame and
2841 x_create_top_frame. FRAME is the frame which is partially
2845 unwind_create_frame (frame
)
2848 struct frame
*f
= XFRAME (frame
);
2850 /* If frame is ``official'', nothing to do. */
2851 if (!CONSP (Vframe_list
) || !EQ (XCAR (Vframe_list
), frame
))
2854 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2857 x_free_frame_resources (f
);
2859 /* Check that reference counts are indeed correct. */
2860 xassert (dpyinfo
->reference_count
== dpyinfo_refcount
);
2861 xassert (dpyinfo
->image_cache
->refcount
== image_cache_refcount
);
2869 DEFUN ("x-create-frame", Fx_create_frame
, Sx_create_frame
,
2871 doc
: /* Make a new X window, which is called a "frame" in Emacs terms.
2872 Returns an Emacs frame object.
2873 ALIST is an alist of frame parameters.
2874 If the parameters specify that the frame should not have a minibuffer,
2875 and do not specify a specific minibuffer window to use,
2876 then `default-minibuffer-frame' must be a frame whose minibuffer can
2877 be shared by the new frame.
2879 This function is an internal primitive--use `make-frame' instead. */)
2884 Lisp_Object frame
, tem
;
2886 int minibuffer_only
= 0;
2887 long window_prompting
= 0;
2889 int count
= SPECPDL_INDEX ();
2890 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
2891 Lisp_Object display
;
2892 struct x_display_info
*dpyinfo
= NULL
;
2898 /* Use this general default value to start with
2899 until we know if this frame has a specified name. */
2900 Vx_resource_name
= Vinvocation_name
;
2902 display
= x_get_arg (dpyinfo
, parms
, Qdisplay
, 0, 0, RES_TYPE_STRING
);
2903 if (EQ (display
, Qunbound
))
2905 dpyinfo
= check_x_display_info (display
);
2907 kb
= dpyinfo
->kboard
;
2909 kb
= &the_only_kboard
;
2912 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
2914 && ! EQ (name
, Qunbound
)
2916 error ("Invalid frame name--not a string or nil");
2919 Vx_resource_name
= name
;
2921 /* See if parent window is specified. */
2922 parent
= x_get_arg (dpyinfo
, parms
, Qparent_id
, NULL
, NULL
, RES_TYPE_NUMBER
);
2923 if (EQ (parent
, Qunbound
))
2925 if (! NILP (parent
))
2926 CHECK_NUMBER (parent
);
2928 /* make_frame_without_minibuffer can run Lisp code and garbage collect. */
2929 /* No need to protect DISPLAY because that's not used after passing
2930 it to make_frame_without_minibuffer. */
2932 GCPRO4 (parms
, parent
, name
, frame
);
2933 tem
= x_get_arg (dpyinfo
, parms
, Qminibuffer
, "minibuffer", "Minibuffer",
2935 if (EQ (tem
, Qnone
) || NILP (tem
))
2936 f
= make_frame_without_minibuffer (Qnil
, kb
, display
);
2937 else if (EQ (tem
, Qonly
))
2939 f
= make_minibuffer_frame ();
2940 minibuffer_only
= 1;
2942 else if (WINDOWP (tem
))
2943 f
= make_frame_without_minibuffer (tem
, kb
, display
);
2947 XSETFRAME (frame
, f
);
2949 /* Note that X Windows does support scroll bars. */
2950 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 1;
2952 f
->output_method
= output_x_window
;
2953 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
2954 bzero (f
->output_data
.x
, sizeof (struct x_output
));
2955 f
->output_data
.x
->icon_bitmap
= -1;
2956 FRAME_FONTSET (f
) = -1;
2957 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
2958 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
2959 #ifdef USE_TOOLKIT_SCROLL_BARS
2960 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
2961 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
2962 #endif /* USE_TOOLKIT_SCROLL_BARS */
2963 record_unwind_protect (unwind_create_frame
, frame
);
2966 = x_get_arg (dpyinfo
, parms
, Qicon_name
, "iconName", "Title",
2968 if (! STRINGP (f
->icon_name
))
2969 f
->icon_name
= Qnil
;
2971 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
2973 image_cache_refcount
= FRAME_X_IMAGE_CACHE (f
)->refcount
;
2974 dpyinfo_refcount
= dpyinfo
->reference_count
;
2975 #endif /* GLYPH_DEBUG */
2977 FRAME_KBOARD (f
) = kb
;
2980 /* These colors will be set anyway later, but it's important
2981 to get the color reference counts right, so initialize them! */
2984 struct gcpro gcpro1
;
2986 /* Function x_decode_color can signal an error. Make
2987 sure to initialize color slots so that we won't try
2988 to free colors we haven't allocated. */
2989 f
->output_data
.x
->foreground_pixel
= -1;
2990 f
->output_data
.x
->background_pixel
= -1;
2991 f
->output_data
.x
->cursor_pixel
= -1;
2992 f
->output_data
.x
->cursor_foreground_pixel
= -1;
2993 f
->output_data
.x
->border_pixel
= -1;
2994 f
->output_data
.x
->mouse_pixel
= -1;
2996 black
= build_string ("black");
2998 f
->output_data
.x
->foreground_pixel
2999 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3000 f
->output_data
.x
->background_pixel
3001 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3002 f
->output_data
.x
->cursor_pixel
3003 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3004 f
->output_data
.x
->cursor_foreground_pixel
3005 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3006 f
->output_data
.x
->border_pixel
3007 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3008 f
->output_data
.x
->mouse_pixel
3009 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3013 /* Specify the parent under which to make this X window. */
3017 f
->output_data
.x
->parent_desc
= (Window
) XFASTINT (parent
);
3018 f
->output_data
.x
->explicit_parent
= 1;
3022 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
3023 f
->output_data
.x
->explicit_parent
= 0;
3026 /* Set the name; the functions to which we pass f expect the name to
3028 if (EQ (name
, Qunbound
) || NILP (name
))
3030 f
->name
= build_string (dpyinfo
->x_id_name
);
3031 f
->explicit_name
= 0;
3036 f
->explicit_name
= 1;
3037 /* use the frame's title when getting resources for this frame. */
3038 specbind (Qx_resource_name
, name
);
3041 /* Extract the window parameters from the supplied values
3042 that are needed to determine window geometry. */
3046 font
= x_get_arg (dpyinfo
, parms
, Qfont
, "font", "Font", RES_TYPE_STRING
);
3049 /* First, try whatever font the caller has specified. */
3052 tem
= Fquery_fontset (font
, Qnil
);
3054 font
= x_new_fontset (f
, SDATA (tem
));
3056 font
= x_new_font (f
, SDATA (font
));
3059 /* Try out a font which we hope has bold and italic variations. */
3060 if (!STRINGP (font
))
3061 font
= x_new_font (f
, "-adobe-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-1");
3062 if (!STRINGP (font
))
3063 font
= x_new_font (f
, "-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-1");
3064 if (! STRINGP (font
))
3065 font
= x_new_font (f
, "-*-*-medium-r-normal-*-*-140-*-*-c-*-iso8859-1");
3066 if (! STRINGP (font
))
3067 /* This was formerly the first thing tried, but it finds too many fonts
3068 and takes too long. */
3069 font
= x_new_font (f
, "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1");
3070 /* If those didn't work, look for something which will at least work. */
3071 if (! STRINGP (font
))
3072 font
= x_new_font (f
, "-*-fixed-*-*-*-*-*-140-*-*-c-*-iso8859-1");
3074 if (! STRINGP (font
))
3075 font
= build_string ("fixed");
3077 x_default_parameter (f
, parms
, Qfont
, font
,
3078 "font", "Font", RES_TYPE_STRING
);
3082 /* Prevent lwlib/xlwmenu.c from crashing because of a bug
3083 whereby it fails to get any font. */
3084 xlwmenu_default_font
= FRAME_FONT (f
);
3087 x_default_parameter (f
, parms
, Qborder_width
, make_number (2),
3088 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
3090 /* This defaults to 1 in order to match xterm. We recognize either
3091 internalBorderWidth or internalBorder (which is what xterm calls
3093 if (NILP (Fassq (Qinternal_border_width
, parms
)))
3097 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
3098 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
3099 if (! EQ (value
, Qunbound
))
3100 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
3103 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
3104 "internalBorderWidth", "internalBorderWidth",
3106 x_default_parameter (f
, parms
, Qvertical_scroll_bars
, Qleft
,
3107 "verticalScrollBars", "ScrollBars",
3110 /* Also do the stuff which must be set before the window exists. */
3111 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
3112 "foreground", "Foreground", RES_TYPE_STRING
);
3113 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
3114 "background", "Background", RES_TYPE_STRING
);
3115 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
3116 "pointerColor", "Foreground", RES_TYPE_STRING
);
3117 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
3118 "cursorColor", "Foreground", RES_TYPE_STRING
);
3119 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
3120 "borderColor", "BorderColor", RES_TYPE_STRING
);
3121 x_default_parameter (f
, parms
, Qscreen_gamma
, Qnil
,
3122 "screenGamma", "ScreenGamma", RES_TYPE_FLOAT
);
3123 x_default_parameter (f
, parms
, Qline_spacing
, Qnil
,
3124 "lineSpacing", "LineSpacing", RES_TYPE_NUMBER
);
3125 x_default_parameter (f
, parms
, Qleft_fringe
, Qnil
,
3126 "leftFringe", "LeftFringe", RES_TYPE_NUMBER
);
3127 x_default_parameter (f
, parms
, Qright_fringe
, Qnil
,
3128 "rightFringe", "RightFringe", RES_TYPE_NUMBER
);
3130 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_foreground
,
3131 "scrollBarForeground",
3132 "ScrollBarForeground", 1);
3133 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_background
,
3134 "scrollBarBackground",
3135 "ScrollBarBackground", 0);
3137 /* Init faces before x_default_parameter is called for scroll-bar
3138 parameters because that function calls x_set_scroll_bar_width,
3139 which calls change_frame_size, which calls Fset_window_buffer,
3140 which runs hooks, which call Fvertical_motion. At the end, we
3141 end up in init_iterator with a null face cache, which should not
3143 init_frame_faces (f
);
3145 x_default_parameter (f
, parms
, Qmenu_bar_lines
, make_number (1),
3146 "menuBar", "MenuBar", RES_TYPE_NUMBER
);
3147 x_default_parameter (f
, parms
, Qtool_bar_lines
, make_number (1),
3148 "toolBar", "ToolBar", RES_TYPE_NUMBER
);
3149 x_default_parameter (f
, parms
, Qbuffer_predicate
, Qnil
,
3150 "bufferPredicate", "BufferPredicate",
3152 x_default_parameter (f
, parms
, Qtitle
, Qnil
,
3153 "title", "Title", RES_TYPE_STRING
);
3154 x_default_parameter (f
, parms
, Qwait_for_wm
, Qt
,
3155 "waitForWM", "WaitForWM", RES_TYPE_BOOLEAN
);
3156 x_default_parameter (f
, parms
, Qfullscreen
, Qnil
,
3157 "fullscreen", "Fullscreen", RES_TYPE_SYMBOL
);
3159 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
3161 /* Compute the size of the X window. */
3162 window_prompting
= x_figure_window_size (f
, parms
, 1);
3164 tem
= x_get_arg (dpyinfo
, parms
, Qunsplittable
, 0, 0, RES_TYPE_BOOLEAN
);
3165 f
->no_split
= minibuffer_only
|| EQ (tem
, Qt
);
3167 x_icon_verify (f
, parms
);
3169 /* Create the X widget or window. */
3170 #ifdef USE_X_TOOLKIT
3171 x_window (f
, window_prompting
, minibuffer_only
);
3179 /* Now consider the frame official. */
3180 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
3181 Vframe_list
= Fcons (frame
, Vframe_list
);
3183 /* We need to do this after creating the X window, so that the
3184 icon-creation functions can say whose icon they're describing. */
3185 x_default_parameter (f
, parms
, Qicon_type
, Qnil
,
3186 "bitmapIcon", "BitmapIcon", RES_TYPE_SYMBOL
);
3188 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
3189 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3190 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
3191 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3192 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
3193 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
3194 x_default_parameter (f
, parms
, Qscroll_bar_width
, Qnil
,
3195 "scrollBarWidth", "ScrollBarWidth",
3198 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
3199 Change will not be effected unless different from the current
3201 width
= FRAME_COLS (f
);
3202 height
= FRAME_LINES (f
);
3204 SET_FRAME_COLS (f
, 0);
3205 FRAME_LINES (f
) = 0;
3206 change_frame_size (f
, height
, width
, 1, 0, 0);
3208 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
3209 /* Create the menu bar. */
3210 if (!minibuffer_only
&& FRAME_EXTERNAL_MENU_BAR (f
))
3212 /* If this signals an error, we haven't set size hints for the
3213 frame and we didn't make it visible. */
3214 initialize_frame_menubar (f
);
3217 /* This is a no-op, except under Motif where it arranges the
3218 main window for the widgets on it. */
3219 lw_set_main_areas (f
->output_data
.x
->column_widget
,
3220 f
->output_data
.x
->menubar_widget
,
3221 f
->output_data
.x
->edit_widget
);
3222 #endif /* not USE_GTK */
3224 #endif /* USE_X_TOOLKIT || USE_GTK */
3226 /* Tell the server what size and position, etc, we want, and how
3227 badly we want them. This should be done after we have the menu
3228 bar so that its size can be taken into account. */
3230 x_wm_set_size_hint (f
, window_prompting
, 0);
3233 /* Make the window appear on the frame and enable display, unless
3234 the caller says not to. However, with explicit parent, Emacs
3235 cannot control visibility, so don't try. */
3236 if (! f
->output_data
.x
->explicit_parent
)
3238 Lisp_Object visibility
;
3240 visibility
= x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0,
3242 if (EQ (visibility
, Qunbound
))
3245 if (EQ (visibility
, Qicon
))
3246 x_iconify_frame (f
);
3247 else if (! NILP (visibility
))
3248 x_make_frame_visible (f
);
3250 /* Must have been Qnil. */
3254 /* Set the WM leader property. GTK does this itself, so this is not
3255 needed when using GTK. */
3256 if (dpyinfo
->client_leader_window
!= 0)
3259 XChangeProperty (FRAME_X_DISPLAY (f
),
3260 FRAME_OUTER_WINDOW (f
),
3261 dpyinfo
->Xatom_wm_client_leader
,
3262 XA_WINDOW
, 32, PropModeReplace
,
3263 (char *) &dpyinfo
->client_leader_window
, 1);
3269 /* Make sure windows on this frame appear in calls to next-window
3270 and similar functions. */
3271 Vwindow_list
= Qnil
;
3273 return unbind_to (count
, frame
);
3277 /* FRAME is used only to get a handle on the X display. We don't pass the
3278 display info directly because we're called from frame.c, which doesn't
3279 know about that structure. */
3282 x_get_focus_frame (frame
)
3283 struct frame
*frame
;
3285 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (frame
);
3287 if (! dpyinfo
->x_focus_frame
)
3290 XSETFRAME (xfocus
, dpyinfo
->x_focus_frame
);
3295 /* In certain situations, when the window manager follows a
3296 click-to-focus policy, there seems to be no way around calling
3297 XSetInputFocus to give another frame the input focus .
3299 In an ideal world, XSetInputFocus should generally be avoided so
3300 that applications don't interfere with the window manager's focus
3301 policy. But I think it's okay to use when it's clearly done
3302 following a user-command. */
3304 DEFUN ("x-focus-frame", Fx_focus_frame
, Sx_focus_frame
, 1, 1, 0,
3305 doc
: /* Set the input focus to FRAME.
3306 FRAME nil means use the selected frame. */)
3310 struct frame
*f
= check_x_frame (frame
);
3311 Display
*dpy
= FRAME_X_DISPLAY (f
);
3315 count
= x_catch_errors (dpy
);
3316 XSetInputFocus (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
3317 RevertToParent
, CurrentTime
);
3318 x_uncatch_errors (dpy
, count
);
3325 DEFUN ("xw-color-defined-p", Fxw_color_defined_p
, Sxw_color_defined_p
, 1, 2, 0,
3326 doc
: /* Internal function called by `color-defined-p', which see. */)
3328 Lisp_Object color
, frame
;
3331 FRAME_PTR f
= check_x_frame (frame
);
3333 CHECK_STRING (color
);
3335 if (x_defined_color (f
, SDATA (color
), &foo
, 0))
3341 DEFUN ("xw-color-values", Fxw_color_values
, Sxw_color_values
, 1, 2, 0,
3342 doc
: /* Internal function called by `color-values', which see. */)
3344 Lisp_Object color
, frame
;
3347 FRAME_PTR f
= check_x_frame (frame
);
3349 CHECK_STRING (color
);
3351 if (x_defined_color (f
, SDATA (color
), &foo
, 0))
3355 rgb
[0] = make_number (foo
.red
);
3356 rgb
[1] = make_number (foo
.green
);
3357 rgb
[2] = make_number (foo
.blue
);
3358 return Flist (3, rgb
);
3364 DEFUN ("xw-display-color-p", Fxw_display_color_p
, Sxw_display_color_p
, 0, 1, 0,
3365 doc
: /* Internal function called by `display-color-p', which see. */)
3367 Lisp_Object display
;
3369 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3371 if (dpyinfo
->n_planes
<= 2)
3374 switch (dpyinfo
->visual
->class)
3387 DEFUN ("x-display-grayscale-p", Fx_display_grayscale_p
, Sx_display_grayscale_p
,
3389 doc
: /* Return t if the X display supports shades of gray.
3390 Note that color displays do support shades of gray.
3391 The optional argument DISPLAY specifies which display to ask about.
3392 DISPLAY should be either a frame or a display name (a string).
3393 If omitted or nil, that stands for the selected frame's display. */)
3395 Lisp_Object display
;
3397 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3399 if (dpyinfo
->n_planes
<= 1)
3402 switch (dpyinfo
->visual
->class)
3417 DEFUN ("x-display-pixel-width", Fx_display_pixel_width
, Sx_display_pixel_width
,
3419 doc
: /* Returns the width in pixels of the X display DISPLAY.
3420 The optional argument DISPLAY specifies which display to ask about.
3421 DISPLAY should be either a frame or a display name (a string).
3422 If omitted or nil, that stands for the selected frame's display. */)
3424 Lisp_Object display
;
3426 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3428 return make_number (dpyinfo
->width
);
3431 DEFUN ("x-display-pixel-height", Fx_display_pixel_height
,
3432 Sx_display_pixel_height
, 0, 1, 0,
3433 doc
: /* Returns the height in pixels of the X display DISPLAY.
3434 The optional argument DISPLAY specifies which display to ask about.
3435 DISPLAY should be either a frame or a display name (a string).
3436 If omitted or nil, that stands for the selected frame's display. */)
3438 Lisp_Object display
;
3440 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3442 return make_number (dpyinfo
->height
);
3445 DEFUN ("x-display-planes", Fx_display_planes
, Sx_display_planes
,
3447 doc
: /* Returns the number of bitplanes of the X display DISPLAY.
3448 The optional argument DISPLAY specifies which display to ask about.
3449 DISPLAY should be either a frame or a display name (a string).
3450 If omitted or nil, that stands for the selected frame's display. */)
3452 Lisp_Object display
;
3454 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3456 return make_number (dpyinfo
->n_planes
);
3459 DEFUN ("x-display-color-cells", Fx_display_color_cells
, Sx_display_color_cells
,
3461 doc
: /* Returns the number of color cells of the X display DISPLAY.
3462 The optional argument DISPLAY specifies which display to ask about.
3463 DISPLAY should be either a frame or a display name (a string).
3464 If omitted or nil, that stands for the selected frame's display. */)
3466 Lisp_Object display
;
3468 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3470 int nr_planes
= DisplayPlanes (dpyinfo
->display
,
3471 XScreenNumberOfScreen (dpyinfo
->screen
));
3473 /* Truncate nr_planes to 24 to avoid integer overflow.
3474 Some displays says 32, but only 24 bits are actually significant.
3475 There are only very few and rare video cards that have more than
3476 24 significant bits. Also 24 bits is more than 16 million colors,
3477 it "should be enough for everyone". */
3478 if (nr_planes
> 24) nr_planes
= 24;
3480 return make_number (1 << nr_planes
);
3483 DEFUN ("x-server-max-request-size", Fx_server_max_request_size
,
3484 Sx_server_max_request_size
,
3486 doc
: /* Returns the maximum request size of the X server of display DISPLAY.
3487 The optional argument DISPLAY specifies which display to ask about.
3488 DISPLAY should be either a frame or a display name (a string).
3489 If omitted or nil, that stands for the selected frame's display. */)
3491 Lisp_Object display
;
3493 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3495 return make_number (MAXREQUEST (dpyinfo
->display
));
3498 DEFUN ("x-server-vendor", Fx_server_vendor
, Sx_server_vendor
, 0, 1, 0,
3499 doc
: /* Returns the vendor ID string of the X server of display DISPLAY.
3500 The optional argument DISPLAY specifies which display to ask about.
3501 DISPLAY should be either a frame or a display name (a string).
3502 If omitted or nil, that stands for the selected frame's display. */)
3504 Lisp_Object display
;
3506 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3507 char *vendor
= ServerVendor (dpyinfo
->display
);
3509 if (! vendor
) vendor
= "";
3510 return build_string (vendor
);
3513 DEFUN ("x-server-version", Fx_server_version
, Sx_server_version
, 0, 1, 0,
3514 doc
: /* Returns the version numbers of the X server of display DISPLAY.
3515 The value is a list of three integers: the major and minor
3516 version numbers of the X Protocol in use, and the vendor-specific release
3517 number. See also the function `x-server-vendor'.
3519 The optional argument DISPLAY specifies which display to ask about.
3520 DISPLAY should be either a frame or a display name (a string).
3521 If omitted or nil, that stands for the selected frame's display. */)
3523 Lisp_Object display
;
3525 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3526 Display
*dpy
= dpyinfo
->display
;
3528 return Fcons (make_number (ProtocolVersion (dpy
)),
3529 Fcons (make_number (ProtocolRevision (dpy
)),
3530 Fcons (make_number (VendorRelease (dpy
)), Qnil
)));
3533 DEFUN ("x-display-screens", Fx_display_screens
, Sx_display_screens
, 0, 1, 0,
3534 doc
: /* Return the number of screens on the X server of display DISPLAY.
3535 The optional argument DISPLAY specifies which display to ask about.
3536 DISPLAY should be either a frame or a display name (a string).
3537 If omitted or nil, that stands for the selected frame's display. */)
3539 Lisp_Object display
;
3541 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3543 return make_number (ScreenCount (dpyinfo
->display
));
3546 DEFUN ("x-display-mm-height", Fx_display_mm_height
, Sx_display_mm_height
, 0, 1, 0,
3547 doc
: /* Return the height in millimeters of the X display DISPLAY.
3548 The optional argument DISPLAY specifies which display to ask about.
3549 DISPLAY should be either a frame or a display name (a string).
3550 If omitted or nil, that stands for the selected frame's display. */)
3552 Lisp_Object display
;
3554 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3556 return make_number (HeightMMOfScreen (dpyinfo
->screen
));
3559 DEFUN ("x-display-mm-width", Fx_display_mm_width
, Sx_display_mm_width
, 0, 1, 0,
3560 doc
: /* Return the width in millimeters of the X display DISPLAY.
3561 The optional argument DISPLAY specifies which display to ask about.
3562 DISPLAY should be either a frame or a display name (a string).
3563 If omitted or nil, that stands for the selected frame's display. */)
3565 Lisp_Object display
;
3567 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3569 return make_number (WidthMMOfScreen (dpyinfo
->screen
));
3572 DEFUN ("x-display-backing-store", Fx_display_backing_store
,
3573 Sx_display_backing_store
, 0, 1, 0,
3574 doc
: /* Returns an indication of whether X display DISPLAY does backing store.
3575 The value may be `always', `when-mapped', or `not-useful'.
3576 The optional argument DISPLAY specifies which display to ask about.
3577 DISPLAY should be either a frame or a display name (a string).
3578 If omitted or nil, that stands for the selected frame's display. */)
3580 Lisp_Object display
;
3582 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3585 switch (DoesBackingStore (dpyinfo
->screen
))
3588 result
= intern ("always");
3592 result
= intern ("when-mapped");
3596 result
= intern ("not-useful");
3600 error ("Strange value for BackingStore parameter of screen");
3607 DEFUN ("x-display-visual-class", Fx_display_visual_class
,
3608 Sx_display_visual_class
, 0, 1, 0,
3609 doc
: /* Return the visual class of the X display DISPLAY.
3610 The value is one of the symbols `static-gray', `gray-scale',
3611 `static-color', `pseudo-color', `true-color', or `direct-color'.
3613 The optional argument DISPLAY specifies which display to ask about.
3614 DISPLAY should be either a frame or a display name (a string).
3615 If omitted or nil, that stands for the selected frame's display. */)
3617 Lisp_Object display
;
3619 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3622 switch (dpyinfo
->visual
->class)
3625 result
= intern ("static-gray");
3628 result
= intern ("gray-scale");
3631 result
= intern ("static-color");
3634 result
= intern ("pseudo-color");
3637 result
= intern ("true-color");
3640 result
= intern ("direct-color");
3643 error ("Display has an unknown visual class");
3650 DEFUN ("x-display-save-under", Fx_display_save_under
,
3651 Sx_display_save_under
, 0, 1, 0,
3652 doc
: /* Returns t if the X display DISPLAY supports the save-under feature.
3653 The optional argument DISPLAY specifies which display to ask about.
3654 DISPLAY should be either a frame or a display name (a string).
3655 If omitted or nil, that stands for the selected frame's display. */)
3657 Lisp_Object display
;
3659 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3661 if (DoesSaveUnders (dpyinfo
->screen
) == True
)
3669 register struct frame
*f
;
3671 return FRAME_PIXEL_WIDTH (f
);
3676 register struct frame
*f
;
3678 return FRAME_PIXEL_HEIGHT (f
);
3683 register struct frame
*f
;
3685 return FRAME_COLUMN_WIDTH (f
);
3690 register struct frame
*f
;
3692 return FRAME_LINE_HEIGHT (f
);
3697 register struct frame
*f
;
3699 return FRAME_X_DISPLAY_INFO (f
)->n_planes
;
3704 /************************************************************************
3706 ************************************************************************/
3709 /* Mapping visual names to visuals. */
3711 static struct visual_class
3718 {"StaticGray", StaticGray
},
3719 {"GrayScale", GrayScale
},
3720 {"StaticColor", StaticColor
},
3721 {"PseudoColor", PseudoColor
},
3722 {"TrueColor", TrueColor
},
3723 {"DirectColor", DirectColor
},
3728 #ifndef HAVE_XSCREENNUMBEROFSCREEN
3730 /* Value is the screen number of screen SCR. This is a substitute for
3731 the X function with the same name when that doesn't exist. */
3734 XScreenNumberOfScreen (scr
)
3735 register Screen
*scr
;
3737 Display
*dpy
= scr
->display
;
3740 for (i
= 0; i
< dpy
->nscreens
; ++i
)
3741 if (scr
== dpy
->screens
+ i
)
3747 #endif /* not HAVE_XSCREENNUMBEROFSCREEN */
3750 /* Select the visual that should be used on display DPYINFO. Set
3751 members of DPYINFO appropriately. Called from x_term_init. */
3754 select_visual (dpyinfo
)
3755 struct x_display_info
*dpyinfo
;
3757 Display
*dpy
= dpyinfo
->display
;
3758 Screen
*screen
= dpyinfo
->screen
;
3761 /* See if a visual is specified. */
3762 value
= display_x_get_resource (dpyinfo
,
3763 build_string ("visualClass"),
3764 build_string ("VisualClass"),
3766 if (STRINGP (value
))
3768 /* VALUE should be of the form CLASS-DEPTH, where CLASS is one
3769 of `PseudoColor', `TrueColor' etc. and DEPTH is the color
3770 depth, a decimal number. NAME is compared with case ignored. */
3771 char *s
= (char *) alloca (SBYTES (value
) + 1);
3776 strcpy (s
, SDATA (value
));
3777 dash
= index (s
, '-');
3780 dpyinfo
->n_planes
= atoi (dash
+ 1);
3784 /* We won't find a matching visual with depth 0, so that
3785 an error will be printed below. */
3786 dpyinfo
->n_planes
= 0;
3788 /* Determine the visual class. */
3789 for (i
= 0; visual_classes
[i
].name
; ++i
)
3790 if (xstricmp (s
, visual_classes
[i
].name
) == 0)
3792 class = visual_classes
[i
].class;
3796 /* Look up a matching visual for the specified class. */
3798 || !XMatchVisualInfo (dpy
, XScreenNumberOfScreen (screen
),
3799 dpyinfo
->n_planes
, class, &vinfo
))
3800 fatal ("Invalid visual specification `%s'", SDATA (value
));
3802 dpyinfo
->visual
= vinfo
.visual
;
3807 XVisualInfo
*vinfo
, vinfo_template
;
3809 dpyinfo
->visual
= DefaultVisualOfScreen (screen
);
3812 vinfo_template
.visualid
= XVisualIDFromVisual (dpyinfo
->visual
);
3814 vinfo_template
.visualid
= dpyinfo
->visual
->visualid
;
3816 vinfo_template
.screen
= XScreenNumberOfScreen (screen
);
3817 vinfo
= XGetVisualInfo (dpy
, VisualIDMask
| VisualScreenMask
,
3818 &vinfo_template
, &n_visuals
);
3820 fatal ("Can't get proper X visual info");
3822 dpyinfo
->n_planes
= vinfo
->depth
;
3823 XFree ((char *) vinfo
);
3828 /* Return the X display structure for the display named NAME.
3829 Open a new connection if necessary. */
3831 struct x_display_info
*
3832 x_display_info_for_name (name
)
3836 struct x_display_info
*dpyinfo
;
3838 CHECK_STRING (name
);
3840 if (! EQ (Vwindow_system
, intern ("x")))
3841 error ("Not using X Windows");
3843 for (dpyinfo
= x_display_list
, names
= x_display_name_list
;
3845 dpyinfo
= dpyinfo
->next
, names
= XCDR (names
))
3848 tem
= Fstring_equal (XCAR (XCAR (names
)), name
);
3853 /* Use this general default value to start with. */
3854 Vx_resource_name
= Vinvocation_name
;
3856 validate_x_resource_name ();
3858 dpyinfo
= x_term_init (name
, (char *)0,
3859 (char *) SDATA (Vx_resource_name
));
3862 error ("Cannot connect to X server %s", SDATA (name
));
3865 XSETFASTINT (Vwindow_system_version
, 11);
3871 DEFUN ("x-open-connection", Fx_open_connection
, Sx_open_connection
,
3873 doc
: /* Open a connection to an X server.
3874 DISPLAY is the name of the display to connect to.
3875 Optional second arg XRM-STRING is a string of resources in xrdb format.
3876 If the optional third arg MUST-SUCCEED is non-nil,
3877 terminate Emacs if we can't open the connection. */)
3878 (display
, xrm_string
, must_succeed
)
3879 Lisp_Object display
, xrm_string
, must_succeed
;
3881 unsigned char *xrm_option
;
3882 struct x_display_info
*dpyinfo
;
3884 CHECK_STRING (display
);
3885 if (! NILP (xrm_string
))
3886 CHECK_STRING (xrm_string
);
3888 if (! EQ (Vwindow_system
, intern ("x")))
3889 error ("Not using X Windows");
3891 if (! NILP (xrm_string
))
3892 xrm_option
= (unsigned char *) SDATA (xrm_string
);
3894 xrm_option
= (unsigned char *) 0;
3896 validate_x_resource_name ();
3898 /* This is what opens the connection and sets x_current_display.
3899 This also initializes many symbols, such as those used for input. */
3900 dpyinfo
= x_term_init (display
, xrm_option
,
3901 (char *) SDATA (Vx_resource_name
));
3905 if (!NILP (must_succeed
))
3906 fatal ("Cannot connect to X server %s.\n\
3907 Check the DISPLAY environment variable or use `-d'.\n\
3908 Also use the `xauth' program to verify that you have the proper\n\
3909 authorization information needed to connect the X server.\n\
3910 An insecure way to solve the problem may be to use `xhost'.\n",
3913 error ("Cannot connect to X server %s", SDATA (display
));
3918 XSETFASTINT (Vwindow_system_version
, 11);
3922 DEFUN ("x-close-connection", Fx_close_connection
,
3923 Sx_close_connection
, 1, 1, 0,
3924 doc
: /* Close the connection to DISPLAY's X server.
3925 For DISPLAY, specify either a frame or a display name (a string).
3926 If DISPLAY is nil, that stands for the selected frame's display. */)
3928 Lisp_Object display
;
3930 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3933 if (dpyinfo
->reference_count
> 0)
3934 error ("Display still has frames on it");
3937 /* Free the fonts in the font table. */
3938 for (i
= 0; i
< dpyinfo
->n_fonts
; i
++)
3939 if (dpyinfo
->font_table
[i
].name
)
3941 XFreeFont (dpyinfo
->display
, dpyinfo
->font_table
[i
].font
);
3944 x_destroy_all_bitmaps (dpyinfo
);
3945 XSetCloseDownMode (dpyinfo
->display
, DestroyAll
);
3947 #ifdef USE_X_TOOLKIT
3948 XtCloseDisplay (dpyinfo
->display
);
3950 XCloseDisplay (dpyinfo
->display
);
3953 x_delete_display (dpyinfo
);
3959 DEFUN ("x-display-list", Fx_display_list
, Sx_display_list
, 0, 0, 0,
3960 doc
: /* Return the list of display names that Emacs has connections to. */)
3963 Lisp_Object tail
, result
;
3966 for (tail
= x_display_name_list
; ! NILP (tail
); tail
= XCDR (tail
))
3967 result
= Fcons (XCAR (XCAR (tail
)), result
);
3972 DEFUN ("x-synchronize", Fx_synchronize
, Sx_synchronize
, 1, 2, 0,
3973 doc
: /* If ON is non-nil, report X errors as soon as the erring request is made.
3974 If ON is nil, allow buffering of requests.
3975 Turning on synchronization prohibits the Xlib routines from buffering
3976 requests and seriously degrades performance, but makes debugging much
3978 The optional second argument DISPLAY specifies which display to act on.
3979 DISPLAY should be either a frame or a display name (a string).
3980 If DISPLAY is omitted or nil, that stands for the selected frame's display. */)
3982 Lisp_Object display
, on
;
3984 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3986 XSynchronize (dpyinfo
->display
, !EQ (on
, Qnil
));
3991 /* Wait for responses to all X commands issued so far for frame F. */
3998 XSync (FRAME_X_DISPLAY (f
), False
);
4003 /***********************************************************************
4005 ***********************************************************************/
4007 DEFUN ("x-change-window-property", Fx_change_window_property
,
4008 Sx_change_window_property
, 2, 6, 0,
4009 doc
: /* Change window property PROP to VALUE on the X window of FRAME.
4010 PROP must be a string.
4011 VALUE may be a string or a list of conses, numbers and/or strings.
4012 If an element in the list is a string, it is converted to
4013 an Atom and the value of the Atom is used. If an element is a cons,
4014 it is converted to a 32 bit number where the car is the 16 top bits and the
4015 cdr is the lower 16 bits.
4016 FRAME nil or omitted means use the selected frame.
4017 If TYPE is given and non-nil, it is the name of the type of VALUE.
4018 If TYPE is not given or nil, the type is STRING.
4019 FORMAT gives the size in bits of each element if VALUE is a list.
4020 It must be one of 8, 16 or 32.
4021 If VALUE is a string or FORMAT is nil or not given, FORMAT defaults to 8.
4022 If OUTER_P is non-nil, the property is changed for the outer X window of
4023 FRAME. Default is to change on the edit X window.
4026 (prop
, value
, frame
, type
, format
, outer_p
)
4027 Lisp_Object prop
, value
, frame
, type
, format
, outer_p
;
4029 struct frame
*f
= check_x_frame (frame
);
4031 Atom target_type
= XA_STRING
;
4032 int element_format
= 8;
4033 unsigned char *data
;
4037 CHECK_STRING (prop
);
4039 if (! NILP (format
))
4041 CHECK_NUMBER (format
);
4042 element_format
= XFASTINT (format
);
4044 if (element_format
!= 8 && element_format
!= 16
4045 && element_format
!= 32)
4046 error ("FORMAT must be one of 8, 16 or 32");
4051 nelements
= x_check_property_data (value
);
4052 if (nelements
== -1)
4053 error ("Bad data in VALUE, must be number, string or cons");
4055 if (element_format
== 8)
4056 data
= (unsigned char *) xmalloc (nelements
);
4057 else if (element_format
== 16)
4058 data
= (unsigned char *) xmalloc (nelements
*2);
4060 data
= (unsigned char *) xmalloc (nelements
*4);
4062 x_fill_property_data (FRAME_X_DISPLAY (f
), value
, data
, element_format
);
4066 CHECK_STRING (value
);
4067 data
= SDATA (value
);
4068 nelements
= SCHARS (value
);
4072 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4075 CHECK_STRING (type
);
4076 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (type
), False
);
4079 if (! NILP (outer_p
)) w
= FRAME_OUTER_WINDOW (f
);
4080 else w
= FRAME_X_WINDOW (f
);
4082 XChangeProperty (FRAME_X_DISPLAY (f
), w
,
4083 prop_atom
, target_type
, element_format
, PropModeReplace
,
4086 if (CONSP (value
)) xfree (data
);
4088 /* Make sure the property is set when we return. */
4089 XFlush (FRAME_X_DISPLAY (f
));
4096 DEFUN ("x-delete-window-property", Fx_delete_window_property
,
4097 Sx_delete_window_property
, 1, 2, 0,
4098 doc
: /* Remove window property PROP from X window of FRAME.
4099 FRAME nil or omitted means use the selected frame. Value is PROP. */)
4101 Lisp_Object prop
, frame
;
4103 struct frame
*f
= check_x_frame (frame
);
4106 CHECK_STRING (prop
);
4108 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4109 XDeleteProperty (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), prop_atom
);
4111 /* Make sure the property is removed when we return. */
4112 XFlush (FRAME_X_DISPLAY (f
));
4119 DEFUN ("x-window-property", Fx_window_property
, Sx_window_property
,
4121 doc
: /* Value is the value of window property PROP on FRAME.
4122 If FRAME is nil or omitted, use the selected frame.
4123 If TYPE is nil or omitted, get the property as a string. Otherwise TYPE
4124 is the name of the Atom that denotes the type expected.
4125 If SOURCE is non-nil, get the property on that window instead of from
4126 FRAME. The number 0 denotes the root window.
4127 If DELETE_P is non-nil, delete the property after retreiving it.
4128 If VECTOR_RET_P is non-nil, don't return a string but a vector of values.
4130 Value is nil if FRAME hasn't a property with name PROP or if PROP has
4131 no value of TYPE. */)
4132 (prop
, frame
, type
, source
, delete_p
, vector_ret_p
)
4133 Lisp_Object prop
, frame
, type
, source
, delete_p
, vector_ret_p
;
4135 struct frame
*f
= check_x_frame (frame
);
4138 Lisp_Object prop_value
= Qnil
;
4139 char *tmp_data
= NULL
;
4141 Atom target_type
= XA_STRING
;
4143 unsigned long actual_size
, bytes_remaining
;
4144 Window target_window
= FRAME_X_WINDOW (f
);
4145 struct gcpro gcpro1
;
4147 GCPRO1 (prop_value
);
4148 CHECK_STRING (prop
);
4150 if (! NILP (source
))
4152 if (NUMBERP (source
))
4154 if (FLOATP (source
))
4155 target_window
= (Window
) XFLOAT (source
);
4157 target_window
= XFASTINT (source
);
4159 if (target_window
== 0)
4160 target_window
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4162 else if (CONSP (source
))
4163 target_window
= cons_to_long (source
);
4169 if (strcmp ("AnyPropertyType", SDATA (type
)) == 0)
4170 target_type
= AnyPropertyType
;
4172 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (type
), False
);
4175 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4176 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4177 prop_atom
, 0, 0, False
, target_type
,
4178 &actual_type
, &actual_format
, &actual_size
,
4179 &bytes_remaining
, (unsigned char **) &tmp_data
);
4182 int size
= bytes_remaining
;
4187 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4188 prop_atom
, 0, bytes_remaining
,
4189 ! NILP (delete_p
), target_type
,
4190 &actual_type
, &actual_format
,
4191 &actual_size
, &bytes_remaining
,
4192 (unsigned char **) &tmp_data
);
4193 if (rc
== Success
&& tmp_data
)
4195 if (NILP (vector_ret_p
))
4196 prop_value
= make_string (tmp_data
, size
);
4198 prop_value
= x_property_data_to_lisp (f
,
4199 (unsigned char *) tmp_data
,
4205 if (tmp_data
) XFree (tmp_data
);
4215 /***********************************************************************
4217 ***********************************************************************/
4219 /* If non-null, an asynchronous timer that, when it expires, displays
4220 an hourglass cursor on all frames. */
4222 static struct atimer
*hourglass_atimer
;
4224 /* Non-zero means an hourglass cursor is currently shown. */
4226 static int hourglass_shown_p
;
4228 /* Number of seconds to wait before displaying an hourglass cursor. */
4230 static Lisp_Object Vhourglass_delay
;
4232 /* Default number of seconds to wait before displaying an hourglass
4235 #define DEFAULT_HOURGLASS_DELAY 1
4237 /* Function prototypes. */
4239 static void show_hourglass
P_ ((struct atimer
*));
4240 static void hide_hourglass
P_ ((void));
4243 /* Cancel a currently active hourglass timer, and start a new one. */
4249 int secs
, usecs
= 0;
4251 cancel_hourglass ();
4253 if (INTEGERP (Vhourglass_delay
)
4254 && XINT (Vhourglass_delay
) > 0)
4255 secs
= XFASTINT (Vhourglass_delay
);
4256 else if (FLOATP (Vhourglass_delay
)
4257 && XFLOAT_DATA (Vhourglass_delay
) > 0)
4260 tem
= Ftruncate (Vhourglass_delay
, Qnil
);
4261 secs
= XFASTINT (tem
);
4262 usecs
= (XFLOAT_DATA (Vhourglass_delay
) - secs
) * 1000000;
4265 secs
= DEFAULT_HOURGLASS_DELAY
;
4267 EMACS_SET_SECS_USECS (delay
, secs
, usecs
);
4268 hourglass_atimer
= start_atimer (ATIMER_RELATIVE
, delay
,
4269 show_hourglass
, NULL
);
4273 /* Cancel the hourglass cursor timer if active, hide a busy cursor if
4279 if (hourglass_atimer
)
4281 cancel_atimer (hourglass_atimer
);
4282 hourglass_atimer
= NULL
;
4285 if (hourglass_shown_p
)
4290 /* Timer function of hourglass_atimer. TIMER is equal to
4293 Display an hourglass pointer on all frames by mapping the frames'
4294 hourglass_window. Set the hourglass_p flag in the frames'
4295 output_data.x structure to indicate that an hourglass cursor is
4296 shown on the frames. */
4299 show_hourglass (timer
)
4300 struct atimer
*timer
;
4302 /* The timer implementation will cancel this timer automatically
4303 after this function has run. Set hourglass_atimer to null
4304 so that we know the timer doesn't have to be canceled. */
4305 hourglass_atimer
= NULL
;
4307 if (!hourglass_shown_p
)
4309 Lisp_Object rest
, frame
;
4313 FOR_EACH_FRAME (rest
, frame
)
4315 struct frame
*f
= XFRAME (frame
);
4317 if (FRAME_LIVE_P (f
) && FRAME_X_P (f
) && FRAME_X_DISPLAY (f
))
4319 Display
*dpy
= FRAME_X_DISPLAY (f
);
4321 #ifdef USE_X_TOOLKIT
4322 if (f
->output_data
.x
->widget
)
4324 if (FRAME_OUTER_WINDOW (f
))
4327 f
->output_data
.x
->hourglass_p
= 1;
4329 if (!f
->output_data
.x
->hourglass_window
)
4331 unsigned long mask
= CWCursor
;
4332 XSetWindowAttributes attrs
;
4334 attrs
.cursor
= f
->output_data
.x
->hourglass_cursor
;
4336 f
->output_data
.x
->hourglass_window
4337 = XCreateWindow (dpy
, FRAME_OUTER_WINDOW (f
),
4338 0, 0, 32000, 32000, 0, 0,
4344 XMapRaised (dpy
, f
->output_data
.x
->hourglass_window
);
4350 hourglass_shown_p
= 1;
4356 /* Hide the hourglass pointer on all frames, if it is currently
4362 if (hourglass_shown_p
)
4364 Lisp_Object rest
, frame
;
4367 FOR_EACH_FRAME (rest
, frame
)
4369 struct frame
*f
= XFRAME (frame
);
4372 /* Watch out for newly created frames. */
4373 && f
->output_data
.x
->hourglass_window
)
4375 XUnmapWindow (FRAME_X_DISPLAY (f
),
4376 f
->output_data
.x
->hourglass_window
);
4377 /* Sync here because XTread_socket looks at the
4378 hourglass_p flag that is reset to zero below. */
4379 XSync (FRAME_X_DISPLAY (f
), False
);
4380 f
->output_data
.x
->hourglass_p
= 0;
4384 hourglass_shown_p
= 0;
4391 /***********************************************************************
4393 ***********************************************************************/
4395 static Lisp_Object x_create_tip_frame
P_ ((struct x_display_info
*,
4396 Lisp_Object
, Lisp_Object
));
4397 static void compute_tip_xy
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
,
4398 Lisp_Object
, int, int, int *, int *));
4400 /* The frame of a currently visible tooltip. */
4402 Lisp_Object tip_frame
;
4404 /* If non-nil, a timer started that hides the last tooltip when it
4407 Lisp_Object tip_timer
;
4410 /* If non-nil, a vector of 3 elements containing the last args
4411 with which x-show-tip was called. See there. */
4413 Lisp_Object last_show_tip_args
;
4415 /* Maximum size for tooltips; a cons (COLUMNS . ROWS). */
4417 Lisp_Object Vx_max_tooltip_size
;
4421 unwind_create_tip_frame (frame
)
4424 Lisp_Object deleted
;
4426 deleted
= unwind_create_frame (frame
);
4427 if (EQ (deleted
, Qt
))
4437 /* Create a frame for a tooltip on the display described by DPYINFO.
4438 PARMS is a list of frame parameters. TEXT is the string to
4439 display in the tip frame. Value is the frame.
4441 Note that functions called here, esp. x_default_parameter can
4442 signal errors, for instance when a specified color name is
4443 undefined. We have to make sure that we're in a consistent state
4444 when this happens. */
4447 x_create_tip_frame (dpyinfo
, parms
, text
)
4448 struct x_display_info
*dpyinfo
;
4449 Lisp_Object parms
, text
;
4452 Lisp_Object frame
, tem
;
4454 long window_prompting
= 0;
4456 int count
= SPECPDL_INDEX ();
4457 struct gcpro gcpro1
, gcpro2
, gcpro3
;
4459 int face_change_count_before
= face_change_count
;
4461 struct buffer
*old_buffer
;
4465 /* Use this general default value to start with until we know if
4466 this frame has a specified name. */
4467 Vx_resource_name
= Vinvocation_name
;
4470 kb
= dpyinfo
->kboard
;
4472 kb
= &the_only_kboard
;
4475 /* Get the name of the frame to use for resource lookup. */
4476 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
4478 && !EQ (name
, Qunbound
)
4480 error ("Invalid frame name--not a string or nil");
4481 Vx_resource_name
= name
;
4484 GCPRO3 (parms
, name
, frame
);
4486 XSETFRAME (frame
, f
);
4488 buffer
= Fget_buffer_create (build_string (" *tip*"));
4489 Fset_window_buffer (FRAME_ROOT_WINDOW (f
), buffer
, Qnil
);
4490 old_buffer
= current_buffer
;
4491 set_buffer_internal_1 (XBUFFER (buffer
));
4492 current_buffer
->truncate_lines
= Qnil
;
4493 specbind (Qinhibit_read_only
, Qt
);
4494 specbind (Qinhibit_modification_hooks
, Qt
);
4497 set_buffer_internal_1 (old_buffer
);
4499 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 0;
4500 record_unwind_protect (unwind_create_tip_frame
, frame
);
4502 /* By setting the output method, we're essentially saying that
4503 the frame is live, as per FRAME_LIVE_P. If we get a signal
4504 from this point on, x_destroy_window might screw up reference
4506 f
->output_method
= output_x_window
;
4507 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
4508 bzero (f
->output_data
.x
, sizeof (struct x_output
));
4509 f
->output_data
.x
->icon_bitmap
= -1;
4510 FRAME_FONTSET (f
) = -1;
4511 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
4512 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
4513 #ifdef USE_TOOLKIT_SCROLL_BARS
4514 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
4515 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
4516 #endif /* USE_TOOLKIT_SCROLL_BARS */
4517 f
->icon_name
= Qnil
;
4518 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
4520 image_cache_refcount
= FRAME_X_IMAGE_CACHE (f
)->refcount
;
4521 dpyinfo_refcount
= dpyinfo
->reference_count
;
4522 #endif /* GLYPH_DEBUG */
4524 FRAME_KBOARD (f
) = kb
;
4526 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4527 f
->output_data
.x
->explicit_parent
= 0;
4529 /* These colors will be set anyway later, but it's important
4530 to get the color reference counts right, so initialize them! */
4533 struct gcpro gcpro1
;
4535 black
= build_string ("black");
4537 f
->output_data
.x
->foreground_pixel
4538 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4539 f
->output_data
.x
->background_pixel
4540 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4541 f
->output_data
.x
->cursor_pixel
4542 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4543 f
->output_data
.x
->cursor_foreground_pixel
4544 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4545 f
->output_data
.x
->border_pixel
4546 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4547 f
->output_data
.x
->mouse_pixel
4548 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4552 /* Set the name; the functions to which we pass f expect the name to
4554 if (EQ (name
, Qunbound
) || NILP (name
))
4556 f
->name
= build_string (dpyinfo
->x_id_name
);
4557 f
->explicit_name
= 0;
4562 f
->explicit_name
= 1;
4563 /* use the frame's title when getting resources for this frame. */
4564 specbind (Qx_resource_name
, name
);
4567 /* Extract the window parameters from the supplied values that are
4568 needed to determine window geometry. */
4572 font
= x_get_arg (dpyinfo
, parms
, Qfont
, "font", "Font", RES_TYPE_STRING
);
4575 /* First, try whatever font the caller has specified. */
4578 tem
= Fquery_fontset (font
, Qnil
);
4580 font
= x_new_fontset (f
, SDATA (tem
));
4582 font
= x_new_font (f
, SDATA (font
));
4585 /* Try out a font which we hope has bold and italic variations. */
4586 if (!STRINGP (font
))
4587 font
= x_new_font (f
, "-adobe-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-1");
4588 if (!STRINGP (font
))
4589 font
= x_new_font (f
, "-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-1");
4590 if (! STRINGP (font
))
4591 font
= x_new_font (f
, "-*-*-medium-r-normal-*-*-140-*-*-c-*-iso8859-1");
4592 if (! STRINGP (font
))
4593 /* This was formerly the first thing tried, but it finds too many fonts
4594 and takes too long. */
4595 font
= x_new_font (f
, "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1");
4596 /* If those didn't work, look for something which will at least work. */
4597 if (! STRINGP (font
))
4598 font
= x_new_font (f
, "-*-fixed-*-*-*-*-*-140-*-*-c-*-iso8859-1");
4600 if (! STRINGP (font
))
4601 font
= build_string ("fixed");
4603 x_default_parameter (f
, parms
, Qfont
, font
,
4604 "font", "Font", RES_TYPE_STRING
);
4607 x_default_parameter (f
, parms
, Qborder_width
, make_number (2),
4608 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
4610 /* This defaults to 2 in order to match xterm. We recognize either
4611 internalBorderWidth or internalBorder (which is what xterm calls
4613 if (NILP (Fassq (Qinternal_border_width
, parms
)))
4617 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
4618 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
4619 if (! EQ (value
, Qunbound
))
4620 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
4624 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
4625 "internalBorderWidth", "internalBorderWidth",
4628 /* Also do the stuff which must be set before the window exists. */
4629 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
4630 "foreground", "Foreground", RES_TYPE_STRING
);
4631 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
4632 "background", "Background", RES_TYPE_STRING
);
4633 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
4634 "pointerColor", "Foreground", RES_TYPE_STRING
);
4635 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
4636 "cursorColor", "Foreground", RES_TYPE_STRING
);
4637 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
4638 "borderColor", "BorderColor", RES_TYPE_STRING
);
4640 /* Init faces before x_default_parameter is called for scroll-bar
4641 parameters because that function calls x_set_scroll_bar_width,
4642 which calls change_frame_size, which calls Fset_window_buffer,
4643 which runs hooks, which call Fvertical_motion. At the end, we
4644 end up in init_iterator with a null face cache, which should not
4646 init_frame_faces (f
);
4648 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4650 window_prompting
= x_figure_window_size (f
, parms
, 0);
4653 XSetWindowAttributes attrs
;
4657 mask
= CWBackPixel
| CWOverrideRedirect
| CWEventMask
;
4658 if (DoesSaveUnders (dpyinfo
->screen
))
4659 mask
|= CWSaveUnder
;
4661 /* Window managers look at the override-redirect flag to determine
4662 whether or net to give windows a decoration (Xlib spec, chapter
4664 attrs
.override_redirect
= True
;
4665 attrs
.save_under
= True
;
4666 attrs
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
4667 /* Arrange for getting MapNotify and UnmapNotify events. */
4668 attrs
.event_mask
= StructureNotifyMask
;
4670 = FRAME_X_WINDOW (f
)
4671 = XCreateWindow (FRAME_X_DISPLAY (f
),
4672 FRAME_X_DISPLAY_INFO (f
)->root_window
,
4673 /* x, y, width, height */
4677 CopyFromParent
, InputOutput
, CopyFromParent
,
4684 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
4685 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4686 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
4687 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4688 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
4689 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
4691 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
4692 Change will not be effected unless different from the current
4694 width
= FRAME_COLS (f
);
4695 height
= FRAME_LINES (f
);
4696 SET_FRAME_COLS (f
, 0);
4697 FRAME_LINES (f
) = 0;
4698 change_frame_size (f
, height
, width
, 1, 0, 0);
4700 /* Add `tooltip' frame parameter's default value. */
4701 if (NILP (Fframe_parameter (frame
, intern ("tooltip"))))
4702 Fmodify_frame_parameters (frame
, Fcons (Fcons (intern ("tooltip"), Qt
),
4705 /* Set up faces after all frame parameters are known. This call
4706 also merges in face attributes specified for new frames.
4708 Frame parameters may be changed if .Xdefaults contains
4709 specifications for the default font. For example, if there is an
4710 `Emacs.default.attributeBackground: pink', the `background-color'
4711 attribute of the frame get's set, which let's the internal border
4712 of the tooltip frame appear in pink. Prevent this. */
4714 Lisp_Object bg
= Fframe_parameter (frame
, Qbackground_color
);
4716 /* Set tip_frame here, so that */
4718 call1 (Qface_set_after_frame_default
, frame
);
4720 if (!EQ (bg
, Fframe_parameter (frame
, Qbackground_color
)))
4721 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qbackground_color
, bg
),
4729 /* It is now ok to make the frame official even if we get an error
4730 below. And the frame needs to be on Vframe_list or making it
4731 visible won't work. */
4732 Vframe_list
= Fcons (frame
, Vframe_list
);
4734 /* Now that the frame is official, it counts as a reference to
4736 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
4738 /* Setting attributes of faces of the tooltip frame from resources
4739 and similar will increment face_change_count, which leads to the
4740 clearing of all current matrices. Since this isn't necessary
4741 here, avoid it by resetting face_change_count to the value it
4742 had before we created the tip frame. */
4743 face_change_count
= face_change_count_before
;
4745 /* Discard the unwind_protect. */
4746 return unbind_to (count
, frame
);
4750 /* Compute where to display tip frame F. PARMS is the list of frame
4751 parameters for F. DX and DY are specified offsets from the current
4752 location of the mouse. WIDTH and HEIGHT are the width and height
4753 of the tooltip. Return coordinates relative to the root window of
4754 the display in *ROOT_X, and *ROOT_Y. */
4757 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, root_x
, root_y
)
4759 Lisp_Object parms
, dx
, dy
;
4761 int *root_x
, *root_y
;
4763 Lisp_Object left
, top
;
4768 /* User-specified position? */
4769 left
= Fcdr (Fassq (Qleft
, parms
));
4770 top
= Fcdr (Fassq (Qtop
, parms
));
4772 /* Move the tooltip window where the mouse pointer is. Resize and
4774 if (!INTEGERP (left
) || !INTEGERP (top
))
4777 XQueryPointer (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
4778 &root
, &child
, root_x
, root_y
, &win_x
, &win_y
, &pmask
);
4783 *root_y
= XINT (top
);
4784 else if (*root_y
+ XINT (dy
) - height
< 0)
4785 *root_y
-= XINT (dy
);
4789 *root_y
+= XINT (dy
);
4792 if (INTEGERP (left
))
4793 *root_x
= XINT (left
);
4794 else if (*root_x
+ XINT (dx
) + width
<= FRAME_X_DISPLAY_INFO (f
)->width
)
4795 /* It fits to the right of the pointer. */
4796 *root_x
+= XINT (dx
);
4797 else if (width
+ XINT (dx
) <= *root_x
)
4798 /* It fits to the left of the pointer. */
4799 *root_x
-= width
+ XINT (dx
);
4801 /* Put it left-justified on the screen--it ought to fit that way. */
4806 DEFUN ("x-show-tip", Fx_show_tip
, Sx_show_tip
, 1, 6, 0,
4807 doc
: /* Show STRING in a "tooltip" window on frame FRAME.
4808 A tooltip window is a small X window displaying a string.
4810 FRAME nil or omitted means use the selected frame.
4812 PARMS is an optional list of frame parameters which can be used to
4813 change the tooltip's appearance.
4815 Automatically hide the tooltip after TIMEOUT seconds. TIMEOUT nil
4816 means use the default timeout of 5 seconds.
4818 If the list of frame parameters PARAMS contains a `left' parameters,
4819 the tooltip is displayed at that x-position. Otherwise it is
4820 displayed at the mouse position, with offset DX added (default is 5 if
4821 DX isn't specified). Likewise for the y-position; if a `top' frame
4822 parameter is specified, it determines the y-position of the tooltip
4823 window, otherwise it is displayed at the mouse position, with offset
4824 DY added (default is -10).
4826 A tooltip's maximum size is specified by `x-max-tooltip-size'.
4827 Text larger than the specified size is clipped. */)
4828 (string
, frame
, parms
, timeout
, dx
, dy
)
4829 Lisp_Object string
, frame
, parms
, timeout
, dx
, dy
;
4834 struct buffer
*old_buffer
;
4835 struct text_pos pos
;
4836 int i
, width
, height
;
4837 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
4838 int old_windows_or_buffers_changed
= windows_or_buffers_changed
;
4839 int count
= SPECPDL_INDEX ();
4841 specbind (Qinhibit_redisplay
, Qt
);
4843 GCPRO4 (string
, parms
, frame
, timeout
);
4845 CHECK_STRING (string
);
4846 f
= check_x_frame (frame
);
4848 timeout
= make_number (5);
4850 CHECK_NATNUM (timeout
);
4853 dx
= make_number (5);
4858 dy
= make_number (-10);
4862 if (NILP (last_show_tip_args
))
4863 last_show_tip_args
= Fmake_vector (make_number (3), Qnil
);
4865 if (!NILP (tip_frame
))
4867 Lisp_Object last_string
= AREF (last_show_tip_args
, 0);
4868 Lisp_Object last_frame
= AREF (last_show_tip_args
, 1);
4869 Lisp_Object last_parms
= AREF (last_show_tip_args
, 2);
4871 if (EQ (frame
, last_frame
)
4872 && !NILP (Fequal (last_string
, string
))
4873 && !NILP (Fequal (last_parms
, parms
)))
4875 struct frame
*f
= XFRAME (tip_frame
);
4877 /* Only DX and DY have changed. */
4878 if (!NILP (tip_timer
))
4880 Lisp_Object timer
= tip_timer
;
4882 call1 (Qcancel_timer
, timer
);
4886 compute_tip_xy (f
, parms
, dx
, dy
, FRAME_PIXEL_WIDTH (f
),
4887 FRAME_PIXEL_HEIGHT (f
), &root_x
, &root_y
);
4888 XMoveWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
4895 /* Hide a previous tip, if any. */
4898 ASET (last_show_tip_args
, 0, string
);
4899 ASET (last_show_tip_args
, 1, frame
);
4900 ASET (last_show_tip_args
, 2, parms
);
4902 /* Add default values to frame parameters. */
4903 if (NILP (Fassq (Qname
, parms
)))
4904 parms
= Fcons (Fcons (Qname
, build_string ("tooltip")), parms
);
4905 if (NILP (Fassq (Qinternal_border_width
, parms
)))
4906 parms
= Fcons (Fcons (Qinternal_border_width
, make_number (3)), parms
);
4907 if (NILP (Fassq (Qborder_width
, parms
)))
4908 parms
= Fcons (Fcons (Qborder_width
, make_number (1)), parms
);
4909 if (NILP (Fassq (Qborder_color
, parms
)))
4910 parms
= Fcons (Fcons (Qborder_color
, build_string ("lightyellow")), parms
);
4911 if (NILP (Fassq (Qbackground_color
, parms
)))
4912 parms
= Fcons (Fcons (Qbackground_color
, build_string ("lightyellow")),
4915 /* Create a frame for the tooltip, and record it in the global
4916 variable tip_frame. */
4917 frame
= x_create_tip_frame (FRAME_X_DISPLAY_INFO (f
), parms
, string
);
4920 /* Set up the frame's root window. */
4921 w
= XWINDOW (FRAME_ROOT_WINDOW (f
));
4922 w
->left_col
= w
->top_line
= make_number (0);
4924 if (CONSP (Vx_max_tooltip_size
)
4925 && INTEGERP (XCAR (Vx_max_tooltip_size
))
4926 && XINT (XCAR (Vx_max_tooltip_size
)) > 0
4927 && INTEGERP (XCDR (Vx_max_tooltip_size
))
4928 && XINT (XCDR (Vx_max_tooltip_size
)) > 0)
4930 w
->total_cols
= XCAR (Vx_max_tooltip_size
);
4931 w
->total_lines
= XCDR (Vx_max_tooltip_size
);
4935 w
->total_cols
= make_number (80);
4936 w
->total_lines
= make_number (40);
4939 FRAME_TOTAL_COLS (f
) = XINT (w
->total_cols
);
4941 w
->pseudo_window_p
= 1;
4943 /* Display the tooltip text in a temporary buffer. */
4944 old_buffer
= current_buffer
;
4945 set_buffer_internal_1 (XBUFFER (XWINDOW (FRAME_ROOT_WINDOW (f
))->buffer
));
4946 current_buffer
->truncate_lines
= Qnil
;
4947 clear_glyph_matrix (w
->desired_matrix
);
4948 clear_glyph_matrix (w
->current_matrix
);
4949 SET_TEXT_POS (pos
, BEGV
, BEGV_BYTE
);
4950 try_window (FRAME_ROOT_WINDOW (f
), pos
);
4952 /* Compute width and height of the tooltip. */
4954 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
4956 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
4960 /* Stop at the first empty row at the end. */
4961 if (!row
->enabled_p
|| !row
->displays_text_p
)
4964 /* Let the row go over the full width of the frame. */
4965 row
->full_width_p
= 1;
4967 /* There's a glyph at the end of rows that is used to place
4968 the cursor there. Don't include the width of this glyph. */
4969 if (row
->used
[TEXT_AREA
])
4971 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
4972 row_width
= row
->pixel_width
- last
->pixel_width
;
4975 row_width
= row
->pixel_width
;
4977 height
+= row
->height
;
4978 width
= max (width
, row_width
);
4981 /* Add the frame's internal border to the width and height the X
4982 window should have. */
4983 height
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
4984 width
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
4986 /* Move the tooltip window where the mouse pointer is. Resize and
4988 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
4991 XMoveResizeWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
4992 root_x
, root_y
, width
, height
);
4993 XMapRaised (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
));
4996 /* Draw into the window. */
4997 w
->must_be_updated_p
= 1;
4998 update_single_window (w
, 1);
5000 /* Restore original current buffer. */
5001 set_buffer_internal_1 (old_buffer
);
5002 windows_or_buffers_changed
= old_windows_or_buffers_changed
;
5005 /* Let the tip disappear after timeout seconds. */
5006 tip_timer
= call3 (intern ("run-at-time"), timeout
, Qnil
,
5007 intern ("x-hide-tip"));
5010 return unbind_to (count
, Qnil
);
5014 DEFUN ("x-hide-tip", Fx_hide_tip
, Sx_hide_tip
, 0, 0, 0,
5015 doc
: /* Hide the current tooltip window, if there is any.
5016 Value is t if tooltip was open, nil otherwise. */)
5020 Lisp_Object deleted
, frame
, timer
;
5021 struct gcpro gcpro1
, gcpro2
;
5023 /* Return quickly if nothing to do. */
5024 if (NILP (tip_timer
) && NILP (tip_frame
))
5029 GCPRO2 (frame
, timer
);
5030 tip_frame
= tip_timer
= deleted
= Qnil
;
5032 count
= SPECPDL_INDEX ();
5033 specbind (Qinhibit_redisplay
, Qt
);
5034 specbind (Qinhibit_quit
, Qt
);
5037 call1 (Qcancel_timer
, timer
);
5041 Fdelete_frame (frame
, Qnil
);
5045 /* Bloodcurdling hack alert: The Lucid menu bar widget's
5046 redisplay procedure is not called when a tip frame over menu
5047 items is unmapped. Redisplay the menu manually... */
5049 struct frame
*f
= SELECTED_FRAME ();
5050 Widget w
= f
->output_data
.x
->menubar_widget
;
5051 extern void xlwmenu_redisplay
P_ ((Widget
));
5053 if (!DoesSaveUnders (FRAME_X_DISPLAY_INFO (f
)->screen
)
5057 xlwmenu_redisplay (w
);
5061 #endif /* USE_LUCID */
5065 return unbind_to (count
, deleted
);
5070 /***********************************************************************
5071 File selection dialog
5072 ***********************************************************************/
5076 /* Callback for "OK" and "Cancel" on file selection dialog. */
5079 file_dialog_cb (widget
, client_data
, call_data
)
5081 XtPointer call_data
, client_data
;
5083 int *result
= (int *) client_data
;
5084 XmAnyCallbackStruct
*cb
= (XmAnyCallbackStruct
*) call_data
;
5085 *result
= cb
->reason
;
5089 /* Callback for unmapping a file selection dialog. This is used to
5090 capture the case where a dialog is closed via a window manager's
5091 closer button, for example. Using a XmNdestroyCallback didn't work
5095 file_dialog_unmap_cb (widget
, client_data
, call_data
)
5097 XtPointer call_data
, client_data
;
5099 int *result
= (int *) client_data
;
5100 *result
= XmCR_CANCEL
;
5104 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 4, 0,
5105 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5106 Use a file selection dialog.
5107 Select DEFAULT-FILENAME in the dialog's file selection box, if
5108 specified. Don't let the user enter a file name in the file
5109 selection dialog's entry field, if MUSTMATCH is non-nil. */)
5110 (prompt
, dir
, default_filename
, mustmatch
)
5111 Lisp_Object prompt
, dir
, default_filename
, mustmatch
;
5114 struct frame
*f
= SELECTED_FRAME ();
5115 Lisp_Object file
= Qnil
;
5116 Widget dialog
, text
, list
, help
;
5119 extern XtAppContext Xt_app_con
;
5120 XmString dir_xmstring
, pattern_xmstring
;
5121 int count
= SPECPDL_INDEX ();
5122 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
;
5124 GCPRO5 (prompt
, dir
, default_filename
, mustmatch
, file
);
5125 CHECK_STRING (prompt
);
5128 /* Prevent redisplay. */
5129 specbind (Qinhibit_redisplay
, Qt
);
5133 /* Create the dialog with PROMPT as title, using DIR as initial
5134 directory and using "*" as pattern. */
5135 dir
= Fexpand_file_name (dir
, Qnil
);
5136 dir_xmstring
= XmStringCreateLocalized (SDATA (dir
));
5137 pattern_xmstring
= XmStringCreateLocalized ("*");
5139 XtSetArg (al
[ac
], XmNtitle
, SDATA (prompt
)); ++ac
;
5140 XtSetArg (al
[ac
], XmNdirectory
, dir_xmstring
); ++ac
;
5141 XtSetArg (al
[ac
], XmNpattern
, pattern_xmstring
); ++ac
;
5142 XtSetArg (al
[ac
], XmNresizePolicy
, XmRESIZE_GROW
); ++ac
;
5143 XtSetArg (al
[ac
], XmNdialogStyle
, XmDIALOG_APPLICATION_MODAL
); ++ac
;
5144 dialog
= XmCreateFileSelectionDialog (f
->output_data
.x
->widget
,
5146 XmStringFree (dir_xmstring
);
5147 XmStringFree (pattern_xmstring
);
5149 /* Add callbacks for OK and Cancel. */
5150 XtAddCallback (dialog
, XmNokCallback
, file_dialog_cb
,
5151 (XtPointer
) &result
);
5152 XtAddCallback (dialog
, XmNcancelCallback
, file_dialog_cb
,
5153 (XtPointer
) &result
);
5154 XtAddCallback (dialog
, XmNunmapCallback
, file_dialog_unmap_cb
,
5155 (XtPointer
) &result
);
5157 /* Disable the help button since we can't display help. */
5158 help
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_HELP_BUTTON
);
5159 XtSetSensitive (help
, False
);
5161 /* Mark OK button as default. */
5162 XtVaSetValues (XmFileSelectionBoxGetChild (dialog
, XmDIALOG_OK_BUTTON
),
5163 XmNshowAsDefault
, True
, NULL
);
5165 /* If MUSTMATCH is non-nil, disable the file entry field of the
5166 dialog, so that the user must select a file from the files list
5167 box. We can't remove it because we wouldn't have a way to get at
5168 the result file name, then. */
5169 text
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5170 if (!NILP (mustmatch
))
5173 label
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_SELECTION_LABEL
);
5174 XtSetSensitive (text
, False
);
5175 XtSetSensitive (label
, False
);
5178 /* Manage the dialog, so that list boxes get filled. */
5179 XtManageChild (dialog
);
5181 /* Select DEFAULT_FILENAME in the files list box. DEFAULT_FILENAME
5182 must include the path for this to work. */
5183 list
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_LIST
);
5184 if (STRINGP (default_filename
))
5186 XmString default_xmstring
;
5190 = XmStringCreateLocalized (SDATA (default_filename
));
5192 if (!XmListItemExists (list
, default_xmstring
))
5194 /* Add a new item if DEFAULT_FILENAME is not in the list. */
5195 XmListAddItem (list
, default_xmstring
, 0);
5199 item_pos
= XmListItemPos (list
, default_xmstring
);
5200 XmStringFree (default_xmstring
);
5202 /* Select the item and scroll it into view. */
5203 XmListSelectPos (list
, item_pos
, True
);
5204 XmListSetPos (list
, item_pos
);
5207 /* Process events until the user presses Cancel or OK. */
5212 XtAppNextEvent (Xt_app_con
, &event
);
5213 (void) x_dispatch_event (&event
, FRAME_X_DISPLAY (f
) );
5216 /* Get the result. */
5217 if (result
== XmCR_OK
)
5222 XtVaGetValues (dialog
, XmNtextString
, &text
, NULL
);
5223 XmStringGetLtoR (text
, XmFONTLIST_DEFAULT_TAG
, &data
);
5224 XmStringFree (text
);
5225 file
= build_string (data
);
5232 XtUnmanageChild (dialog
);
5233 XtDestroyWidget (dialog
);
5237 /* Make "Cancel" equivalent to C-g. */
5239 Fsignal (Qquit
, Qnil
);
5241 return unbind_to (count
, file
);
5244 #endif /* USE_MOTIF */
5248 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 4, 0,
5249 "Read file name, prompting with PROMPT in directory DIR.\n\
5250 Use a file selection dialog.\n\
5251 Select DEFAULT-FILENAME in the dialog's file selection box, if\n\
5252 specified. Don't let the user enter a file name in the file\n\
5253 selection dialog's entry field, if MUSTMATCH is non-nil.")
5254 (prompt
, dir
, default_filename
, mustmatch
)
5255 Lisp_Object prompt
, dir
, default_filename
, mustmatch
;
5257 FRAME_PTR f
= SELECTED_FRAME ();
5259 Lisp_Object file
= Qnil
;
5260 int count
= specpdl_ptr
- specpdl
;
5261 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
;
5264 GCPRO5 (prompt
, dir
, default_filename
, mustmatch
, file
);
5265 CHECK_STRING (prompt
);
5268 /* Prevent redisplay. */
5269 specbind (Qinhibit_redisplay
, Qt
);
5273 if (STRINGP (default_filename
))
5274 cdef_file
= SDATA (default_filename
);
5276 cdef_file
= SDATA (dir
);
5278 fn
= xg_get_file_name (f
, SDATA (prompt
), cdef_file
, ! NILP (mustmatch
));
5282 file
= build_string (fn
);
5289 /* Make "Cancel" equivalent to C-g. */
5291 Fsignal (Qquit
, Qnil
);
5293 return unbind_to (count
, file
);
5296 #endif /* USE_GTK */
5299 /***********************************************************************
5301 ***********************************************************************/
5303 #ifdef HAVE_XKBGETKEYBOARD
5304 #include <X11/XKBlib.h>
5305 #include <X11/keysym.h>
5308 DEFUN ("x-backspace-delete-keys-p", Fx_backspace_delete_keys_p
,
5309 Sx_backspace_delete_keys_p
, 0, 1, 0,
5310 doc
: /* Check if both Backspace and Delete keys are on the keyboard of FRAME.
5311 FRAME nil means use the selected frame.
5312 Value is t if we know that both keys are present, and are mapped to the
5313 usual X keysyms. */)
5317 #ifdef HAVE_XKBGETKEYBOARD
5319 struct frame
*f
= check_x_frame (frame
);
5320 Display
*dpy
= FRAME_X_DISPLAY (f
);
5321 Lisp_Object have_keys
;
5322 int major
, minor
, op
, event
, error
;
5326 /* Check library version in case we're dynamically linked. */
5327 major
= XkbMajorVersion
;
5328 minor
= XkbMinorVersion
;
5329 if (!XkbLibraryVersion (&major
, &minor
))
5335 /* Check that the server supports XKB. */
5336 major
= XkbMajorVersion
;
5337 minor
= XkbMinorVersion
;
5338 if (!XkbQueryExtension (dpy
, &op
, &event
, &error
, &major
, &minor
))
5345 kb
= XkbGetMap (dpy
, XkbAllMapComponentsMask
, XkbUseCoreKbd
);
5348 int delete_keycode
= 0, backspace_keycode
= 0, i
;
5350 if (XkbGetNames (dpy
, XkbAllNamesMask
, kb
) == Success
)
5352 for (i
= kb
->min_key_code
;
5353 (i
< kb
->max_key_code
5354 && (delete_keycode
== 0 || backspace_keycode
== 0));
5357 /* The XKB symbolic key names can be seen most easily in
5358 the PS file generated by `xkbprint -label name
5360 if (bcmp ("DELE", kb
->names
->keys
[i
].name
, 4) == 0)
5362 else if (bcmp ("BKSP", kb
->names
->keys
[i
].name
, 4) == 0)
5363 backspace_keycode
= i
;
5366 XkbFreeNames (kb
, 0, True
);
5369 XkbFreeClientMap (kb
, 0, True
);
5372 && backspace_keycode
5373 && XKeysymToKeycode (dpy
, XK_Delete
) == delete_keycode
5374 && XKeysymToKeycode (dpy
, XK_BackSpace
) == backspace_keycode
)
5379 #else /* not HAVE_XKBGETKEYBOARD */
5381 #endif /* not HAVE_XKBGETKEYBOARD */
5386 /***********************************************************************
5388 ***********************************************************************/
5390 /* Keep this list in the same order as frame_parms in frame.c.
5391 Use 0 for unsupported frame parameters. */
5393 frame_parm_handler x_frame_parm_handlers
[] =
5397 x_set_background_color
,
5403 x_set_foreground_color
,
5406 x_set_internal_border_width
,
5407 x_set_menu_bar_lines
,
5409 x_explicitly_set_name
,
5410 x_set_scroll_bar_width
,
5413 x_set_vertical_scroll_bars
,
5415 x_set_tool_bar_lines
,
5416 x_set_scroll_bar_foreground
,
5417 x_set_scroll_bar_background
,
5429 /* This is zero if not using X windows. */
5432 /* The section below is built by the lisp expression at the top of the file,
5433 just above where these variables are declared. */
5434 /*&&& init symbols here &&&*/
5435 Qnone
= intern ("none");
5437 Qsuppress_icon
= intern ("suppress-icon");
5438 staticpro (&Qsuppress_icon
);
5439 Qundefined_color
= intern ("undefined-color");
5440 staticpro (&Qundefined_color
);
5441 Qcompound_text
= intern ("compound-text");
5442 staticpro (&Qcompound_text
);
5443 Qcancel_timer
= intern ("cancel-timer");
5444 staticpro (&Qcancel_timer
);
5445 /* This is the end of symbol initialization. */
5447 /* Text property `display' should be nonsticky by default. */
5448 Vtext_property_default_nonsticky
5449 = Fcons (Fcons (Qdisplay
, Qt
), Vtext_property_default_nonsticky
);
5452 Fput (Qundefined_color
, Qerror_conditions
,
5453 Fcons (Qundefined_color
, Fcons (Qerror
, Qnil
)));
5454 Fput (Qundefined_color
, Qerror_message
,
5455 build_string ("Undefined color"));
5457 DEFVAR_LISP ("x-pointer-shape", &Vx_pointer_shape
,
5458 doc
: /* The shape of the pointer when over text.
5459 Changing the value does not affect existing frames
5460 unless you set the mouse color. */);
5461 Vx_pointer_shape
= Qnil
;
5463 #if 0 /* This doesn't really do anything. */
5464 DEFVAR_LISP ("x-nontext-pointer-shape", &Vx_nontext_pointer_shape
,
5465 doc
: /* The shape of the pointer when not over text.
5466 This variable takes effect when you create a new frame
5467 or when you set the mouse color. */);
5469 Vx_nontext_pointer_shape
= Qnil
;
5471 DEFVAR_LISP ("x-hourglass-pointer-shape", &Vx_hourglass_pointer_shape
,
5472 doc
: /* The shape of the pointer when Emacs is busy.
5473 This variable takes effect when you create a new frame
5474 or when you set the mouse color. */);
5475 Vx_hourglass_pointer_shape
= Qnil
;
5477 DEFVAR_BOOL ("display-hourglass", &display_hourglass_p
,
5478 doc
: /* Non-zero means Emacs displays an hourglass pointer on window systems. */);
5479 display_hourglass_p
= 1;
5481 DEFVAR_LISP ("hourglass-delay", &Vhourglass_delay
,
5482 doc
: /* *Seconds to wait before displaying an hourglass pointer.
5483 Value must be an integer or float. */);
5484 Vhourglass_delay
= make_number (DEFAULT_HOURGLASS_DELAY
);
5486 #if 0 /* This doesn't really do anything. */
5487 DEFVAR_LISP ("x-mode-pointer-shape", &Vx_mode_pointer_shape
,
5488 doc
: /* The shape of the pointer when over the mode line.
5489 This variable takes effect when you create a new frame
5490 or when you set the mouse color. */);
5492 Vx_mode_pointer_shape
= Qnil
;
5494 DEFVAR_LISP ("x-sensitive-text-pointer-shape",
5495 &Vx_sensitive_text_pointer_shape
,
5496 doc
: /* The shape of the pointer when over mouse-sensitive text.
5497 This variable takes effect when you create a new frame
5498 or when you set the mouse color. */);
5499 Vx_sensitive_text_pointer_shape
= Qnil
;
5501 DEFVAR_LISP ("x-window-horizontal-drag-cursor",
5502 &Vx_window_horizontal_drag_shape
,
5503 doc
: /* Pointer shape to use for indicating a window can be dragged horizontally.
5504 This variable takes effect when you create a new frame
5505 or when you set the mouse color. */);
5506 Vx_window_horizontal_drag_shape
= Qnil
;
5508 DEFVAR_LISP ("x-cursor-fore-pixel", &Vx_cursor_fore_pixel
,
5509 doc
: /* A string indicating the foreground color of the cursor box. */);
5510 Vx_cursor_fore_pixel
= Qnil
;
5512 DEFVAR_LISP ("x-max-tooltip-size", &Vx_max_tooltip_size
,
5513 doc
: /* Maximum size for tooltips. Value is a pair (COLUMNS . ROWS).
5514 Text larger than this is clipped. */);
5515 Vx_max_tooltip_size
= Fcons (make_number (80), make_number (40));
5517 DEFVAR_LISP ("x-no-window-manager", &Vx_no_window_manager
,
5518 doc
: /* Non-nil if no X window manager is in use.
5519 Emacs doesn't try to figure this out; this is always nil
5520 unless you set it to something else. */);
5521 /* We don't have any way to find this out, so set it to nil
5522 and maybe the user would like to set it to t. */
5523 Vx_no_window_manager
= Qnil
;
5525 DEFVAR_LISP ("x-pixel-size-width-font-regexp",
5526 &Vx_pixel_size_width_font_regexp
,
5527 doc
: /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'.
5529 Since Emacs gets width of a font matching with this regexp from
5530 PIXEL_SIZE field of the name, font finding mechanism gets faster for
5531 such a font. This is especially effective for such large fonts as
5532 Chinese, Japanese, and Korean. */);
5533 Vx_pixel_size_width_font_regexp
= Qnil
;
5535 #ifdef USE_X_TOOLKIT
5536 Fprovide (intern ("x-toolkit"), Qnil
);
5538 Fprovide (intern ("motif"), Qnil
);
5540 DEFVAR_LISP ("motif-version-string", &Vmotif_version_string
,
5541 doc
: /* Version info for LessTif/Motif. */);
5542 Vmotif_version_string
= build_string (XmVERSION_STRING
);
5543 #endif /* USE_MOTIF */
5544 #endif /* USE_X_TOOLKIT */
5547 /* Provide x-toolkit also for GTK. Internally GTK does not use Xt so it
5548 is not an X toolkit in that sense (USE_X_TOOLKIT is not defined).
5549 But for a user it is a toolkit for X, and indeed, configure
5550 accepts --with-x-toolkit=gtk. */
5551 Fprovide (intern ("x-toolkit"), Qnil
);
5552 Fprovide (intern ("gtk"), Qnil
);
5554 DEFVAR_LISP ("gtk-version-string", &Vgtk_version_string
,
5555 doc
: /* Version info for GTK+. */);
5557 char gtk_version
[40];
5558 g_snprintf (gtk_version
, sizeof (gtk_version
), "%u.%u.%u",
5559 GTK_MAJOR_VERSION
, GTK_MINOR_VERSION
, GTK_MICRO_VERSION
);
5560 Vgtk_version_string
= build_string (gtk_version
);
5562 #endif /* USE_GTK */
5564 /* X window properties. */
5565 defsubr (&Sx_change_window_property
);
5566 defsubr (&Sx_delete_window_property
);
5567 defsubr (&Sx_window_property
);
5569 defsubr (&Sxw_display_color_p
);
5570 defsubr (&Sx_display_grayscale_p
);
5571 defsubr (&Sxw_color_defined_p
);
5572 defsubr (&Sxw_color_values
);
5573 defsubr (&Sx_server_max_request_size
);
5574 defsubr (&Sx_server_vendor
);
5575 defsubr (&Sx_server_version
);
5576 defsubr (&Sx_display_pixel_width
);
5577 defsubr (&Sx_display_pixel_height
);
5578 defsubr (&Sx_display_mm_width
);
5579 defsubr (&Sx_display_mm_height
);
5580 defsubr (&Sx_display_screens
);
5581 defsubr (&Sx_display_planes
);
5582 defsubr (&Sx_display_color_cells
);
5583 defsubr (&Sx_display_visual_class
);
5584 defsubr (&Sx_display_backing_store
);
5585 defsubr (&Sx_display_save_under
);
5586 defsubr (&Sx_create_frame
);
5587 defsubr (&Sx_open_connection
);
5588 defsubr (&Sx_close_connection
);
5589 defsubr (&Sx_display_list
);
5590 defsubr (&Sx_synchronize
);
5591 defsubr (&Sx_focus_frame
);
5592 defsubr (&Sx_backspace_delete_keys_p
);
5594 /* Setting callback functions for fontset handler. */
5595 get_font_info_func
= x_get_font_info
;
5597 #if 0 /* This function pointer doesn't seem to be used anywhere.
5598 And the pointer assigned has the wrong type, anyway. */
5599 list_fonts_func
= x_list_fonts
;
5602 load_font_func
= x_load_font
;
5603 find_ccl_program_func
= x_find_ccl_program
;
5604 query_font_func
= x_query_font
;
5605 set_frame_fontset_func
= x_set_font
;
5606 check_window_system_func
= check_x
;
5608 hourglass_atimer
= NULL
;
5609 hourglass_shown_p
= 0;
5611 defsubr (&Sx_show_tip
);
5612 defsubr (&Sx_hide_tip
);
5614 staticpro (&tip_timer
);
5616 staticpro (&tip_frame
);
5618 last_show_tip_args
= Qnil
;
5619 staticpro (&last_show_tip_args
);
5621 #if defined (USE_MOTIF) || defined (USE_GTK)
5622 defsubr (&Sx_file_dialog
);
5626 #endif /* HAVE_X_WINDOWS */
5628 /* arch-tag: 55040d02-5485-4d58-8b22-95a7a05f3288
5629 (do not change this comment) */