1 /* Functions for the X window system.
3 Copyright (C) 1989, 1992-2013 Free Software Foundation, Inc.
5 This file is part of GNU Emacs.
7 GNU Emacs is free software: you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation, either version 3 of the License, or
10 (at your option) any later version.
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. If not, see <http://www.gnu.org/licenses/>. */
29 #include "character.h"
31 #include "intervals.h"
32 #include "dispextern.h"
34 #include "blockinput.h"
40 #include "termhooks.h"
45 #include <sys/types.h>
48 #if 1 /* Used to be #ifdef EMACS_BITMAP_FILES, but this should always work. */
49 #include "bitmaps/gray.xbm"
51 #include <X11/bitmaps/gray>
54 #include "xsettings.h"
57 #include <X11/extensions/Xrandr.h>
60 #include <X11/extensions/Xinerama.h>
68 #include <X11/Shell.h>
72 #include <X11/Xaw3d/Paned.h>
73 #include <X11/Xaw3d/Label.h>
74 #else /* !HAVE_XAW3D */
75 #include <X11/Xaw/Paned.h>
76 #include <X11/Xaw/Label.h>
77 #endif /* HAVE_XAW3D */
78 #endif /* USE_MOTIF */
81 #undef USG /* ####KLUDGE for Solaris 2.2 and up */
84 #ifdef USG /* Pacify gcc -Wunused-macros. */
92 #include "../lwlib/lwlib.h"
96 #include <Xm/DialogS.h>
97 #include <Xm/FileSB.h>
103 #include "../lwlib/xlwmenu.h"
106 #if !defined (NO_EDITRES)
108 extern void _XEditResCheckMessages (Widget
, XtPointer
, XEvent
*, Boolean
*);
109 #endif /* not defined NO_EDITRES */
111 /* Unique id counter for widgets created by the Lucid Widget Library. */
113 extern LWLIB_ID widget_id_tick
;
117 #endif /* USE_MOTIF */
119 #endif /* USE_X_TOOLKIT */
125 #define MAXREQUEST(dpy) (XMaxRequestSize (dpy))
127 static Lisp_Object Qsuppress_icon
;
128 static Lisp_Object Qundefined_color
;
129 static Lisp_Object Qcompound_text
, Qcancel_timer
;
130 Lisp_Object Qfont_param
;
133 static ptrdiff_t image_cache_refcount
;
134 static int dpyinfo_refcount
;
137 static struct x_display_info
*x_display_info_for_name (Lisp_Object
);
139 /* Let the user specify an X display with a Lisp object.
140 OBJECT may be nil, a frame or a terminal object.
141 nil stands for the selected frame--or, if that is not an X frame,
142 the first X display on the list. */
144 struct x_display_info
*
145 check_x_display_info (Lisp_Object object
)
147 struct x_display_info
*dpyinfo
= NULL
;
151 struct frame
*sf
= XFRAME (selected_frame
);
153 if (FRAME_X_P (sf
) && FRAME_LIVE_P (sf
))
154 dpyinfo
= FRAME_DISPLAY_INFO (sf
);
155 else if (x_display_list
!= 0)
156 dpyinfo
= x_display_list
;
158 error ("X windows are not in use or not initialized");
160 else if (TERMINALP (object
))
162 struct terminal
*t
= get_terminal (object
, 1);
164 if (t
->type
!= output_x_window
)
165 error ("Terminal %d is not an X display", t
->id
);
167 dpyinfo
= t
->display_info
.x
;
169 else if (STRINGP (object
))
170 dpyinfo
= x_display_info_for_name (object
);
173 struct frame
*f
= decode_window_system_frame (object
);
174 dpyinfo
= FRAME_DISPLAY_INFO (f
);
180 /* Store the screen positions of frame F into XPTR and YPTR.
181 These are the positions of the containing window manager window,
182 not Emacs's own window. */
185 x_real_positions (struct frame
*f
, int *xptr
, int *yptr
)
187 int win_x
, win_y
, outer_x
IF_LINT (= 0), outer_y
IF_LINT (= 0);
188 int real_x
= 0, real_y
= 0;
190 Window win
= f
->output_data
.x
->parent_desc
;
192 unsigned long actual_size
, bytes_remaining
;
193 int rc
, actual_format
;
194 struct x_display_info
*dpyinfo
= FRAME_DISPLAY_INFO (f
);
196 Display
*dpy
= FRAME_X_DISPLAY (f
);
197 unsigned char *tmp_data
= NULL
;
198 Atom target_type
= XA_CARDINAL
;
202 x_catch_errors (dpy
);
204 if (win
== dpyinfo
->root_window
)
205 win
= FRAME_OUTER_WINDOW (f
);
207 /* This loop traverses up the containment tree until we hit the root
208 window. Window managers may intersect many windows between our window
209 and the root window. The window we find just before the root window
210 should be the outer WM window. */
213 Window wm_window
, rootw
;
214 Window
*tmp_children
;
215 unsigned int tmp_nchildren
;
218 success
= XQueryTree (FRAME_X_DISPLAY (f
), win
, &rootw
,
219 &wm_window
, &tmp_children
, &tmp_nchildren
);
221 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
223 /* Don't free tmp_children if XQueryTree failed. */
227 XFree (tmp_children
);
229 if (wm_window
== rootw
|| had_errors
)
240 /* Get the real coordinates for the WM window upper left corner */
241 XGetGeometry (FRAME_X_DISPLAY (f
), win
,
242 &rootw
, &real_x
, &real_y
, &ign
, &ign
, &ign
, &ign
);
244 /* Translate real coordinates to coordinates relative to our
245 window. For our window, the upper left corner is 0, 0.
246 Since the upper left corner of the WM window is outside
247 our window, win_x and win_y will be negative:
249 ------------------ ---> x
251 | ----------------- v y
254 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
256 /* From-window, to-window. */
257 FRAME_DISPLAY_INFO (f
)->root_window
,
260 /* From-position, to-position. */
261 real_x
, real_y
, &win_x
, &win_y
,
266 if (FRAME_X_WINDOW (f
) == FRAME_OUTER_WINDOW (f
))
273 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
275 /* From-window, to-window. */
276 FRAME_DISPLAY_INFO (f
)->root_window
,
277 FRAME_OUTER_WINDOW (f
),
279 /* From-position, to-position. */
280 real_x
, real_y
, &outer_x
, &outer_y
,
286 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
290 if (dpyinfo
->root_window
== f
->output_data
.x
->parent_desc
)
292 /* Try _NET_FRAME_EXTENTS if our parent is the root window. */
293 rc
= XGetWindowProperty (dpy
, win
, dpyinfo
->Xatom_net_frame_extents
,
294 0, max_len
, False
, target_type
,
295 &actual_type
, &actual_format
, &actual_size
,
296 &bytes_remaining
, &tmp_data
);
298 if (rc
== Success
&& actual_type
== target_type
&& !x_had_errors_p (dpy
)
299 && actual_size
== 4 && actual_format
== 32)
303 long *fe
= (long *)tmp_data
;
305 XGetGeometry (FRAME_X_DISPLAY (f
), win
,
306 &rootw
, &real_x
, &real_y
, &ign
, &ign
, &ign
, &ign
);
314 if (tmp_data
) XFree (tmp_data
);
320 if (had_errors
) return;
322 f
->x_pixels_diff
= -win_x
;
323 f
->y_pixels_diff
= -win_y
;
325 FRAME_X_OUTPUT (f
)->x_pixels_outer_diff
= -outer_x
;
326 FRAME_X_OUTPUT (f
)->y_pixels_outer_diff
= -outer_y
;
335 /* Gamma-correct COLOR on frame F. */
338 gamma_correct (struct frame
*f
, XColor
*color
)
342 color
->red
= pow (color
->red
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
343 color
->green
= pow (color
->green
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
344 color
->blue
= pow (color
->blue
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
349 /* Decide if color named COLOR_NAME is valid for use on frame F. If
350 so, return the RGB values in COLOR. If ALLOC_P,
351 allocate the color. Value is false if COLOR_NAME is invalid, or
352 no color could be allocated. */
355 x_defined_color (struct frame
*f
, const char *color_name
,
356 XColor
*color
, bool alloc_p
)
359 Display
*dpy
= FRAME_X_DISPLAY (f
);
360 Colormap cmap
= FRAME_X_COLORMAP (f
);
364 success_p
= xg_check_special_colors (f
, color_name
, color
);
367 success_p
= XParseColor (dpy
, cmap
, color_name
, color
) != 0;
368 if (success_p
&& alloc_p
)
369 success_p
= x_alloc_nearest_color (f
, cmap
, color
);
376 /* Return the pixel color value for color COLOR_NAME on frame F. If F
377 is a monochrome frame, return MONO_COLOR regardless of what ARG says.
378 Signal an error if color can't be allocated. */
381 x_decode_color (struct frame
*f
, Lisp_Object color_name
, int mono_color
)
385 CHECK_STRING (color_name
);
387 #if 0 /* Don't do this. It's wrong when we're not using the default
388 colormap, it makes freeing difficult, and it's probably not
389 an important optimization. */
390 if (strcmp (SDATA (color_name
), "black") == 0)
391 return BLACK_PIX_DEFAULT (f
);
392 else if (strcmp (SDATA (color_name
), "white") == 0)
393 return WHITE_PIX_DEFAULT (f
);
396 /* Return MONO_COLOR for monochrome frames. */
397 if (FRAME_DISPLAY_INFO (f
)->n_planes
== 1)
400 /* x_defined_color is responsible for coping with failures
401 by looking for a near-miss. */
402 if (x_defined_color (f
, SSDATA (color_name
), &cdef
, 1))
405 signal_error ("Undefined color", color_name
);
410 /* Change the `wait-for-wm' frame parameter of frame F. OLD_VALUE is
411 the previous value of that parameter, NEW_VALUE is the new value.
412 See also the comment of wait_for_wm in struct x_output. */
415 x_set_wait_for_wm (struct frame
*f
, Lisp_Object new_value
, Lisp_Object old_value
)
417 f
->output_data
.x
->wait_for_wm
= !NILP (new_value
);
421 x_set_tool_bar_position (struct frame
*f
,
422 Lisp_Object new_value
,
423 Lisp_Object old_value
)
425 if (! EQ (new_value
, Qleft
) && ! EQ (new_value
, Qright
)
426 && ! EQ (new_value
, Qbottom
) && ! EQ (new_value
, Qtop
))
428 if (EQ (new_value
, old_value
)) return;
431 xg_change_toolbar_position (f
, new_value
);
432 fset_tool_bar_position (f
, new_value
);
438 /* Set icon from FILE for frame F. By using GTK functions the icon
439 may be any format that GdkPixbuf knows about, i.e. not just bitmaps. */
442 xg_set_icon (struct frame
*f
, Lisp_Object file
)
447 found
= x_find_image_file (file
);
453 char *filename
= SSDATA (found
);
456 pixbuf
= gdk_pixbuf_new_from_file (filename
, &err
);
460 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
462 g_object_unref (pixbuf
);
476 xg_set_icon_from_xpm_data (struct frame
*f
, const char **data
)
478 GdkPixbuf
*pixbuf
= gdk_pixbuf_new_from_xpm_data (data
);
483 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)), pixbuf
);
484 g_object_unref (pixbuf
);
490 /* Functions called only from `x_set_frame_param'
491 to set individual parameters.
493 If FRAME_X_WINDOW (f) is 0,
494 the frame is being created and its X-window does not exist yet.
495 In that case, just record the parameter's new value
496 in the standard place; do not attempt to change the window. */
499 x_set_foreground_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
501 struct x_output
*x
= f
->output_data
.x
;
502 unsigned long fg
, old_fg
;
504 fg
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
505 old_fg
= FRAME_FOREGROUND_PIXEL (f
);
506 FRAME_FOREGROUND_PIXEL (f
) = fg
;
508 if (FRAME_X_WINDOW (f
) != 0)
510 Display
*dpy
= FRAME_X_DISPLAY (f
);
513 XSetForeground (dpy
, x
->normal_gc
, fg
);
514 XSetBackground (dpy
, x
->reverse_gc
, fg
);
516 if (x
->cursor_pixel
== old_fg
)
518 unload_color (f
, x
->cursor_pixel
);
519 x
->cursor_pixel
= x_copy_color (f
, fg
);
520 XSetBackground (dpy
, x
->cursor_gc
, x
->cursor_pixel
);
525 update_face_from_frame_parameter (f
, Qforeground_color
, arg
);
527 if (FRAME_VISIBLE_P (f
))
531 unload_color (f
, old_fg
);
535 x_set_background_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
537 struct x_output
*x
= f
->output_data
.x
;
540 bg
= x_decode_color (f
, arg
, WHITE_PIX_DEFAULT (f
));
541 unload_color (f
, FRAME_BACKGROUND_PIXEL (f
));
542 FRAME_BACKGROUND_PIXEL (f
) = bg
;
544 if (FRAME_X_WINDOW (f
) != 0)
546 Display
*dpy
= FRAME_X_DISPLAY (f
);
549 XSetBackground (dpy
, x
->normal_gc
, bg
);
550 XSetForeground (dpy
, x
->reverse_gc
, bg
);
551 XSetWindowBackground (dpy
, FRAME_X_WINDOW (f
), bg
);
552 XSetForeground (dpy
, x
->cursor_gc
, bg
);
555 xg_set_background_color (f
, bg
);
558 #ifndef USE_TOOLKIT_SCROLL_BARS /* Turns out to be annoying with
559 toolkit scroll bars. */
562 for (bar
= FRAME_SCROLL_BARS (f
);
564 bar
= XSCROLL_BAR (bar
)->next
)
566 Window window
= XSCROLL_BAR (bar
)->x_window
;
567 XSetWindowBackground (dpy
, window
, bg
);
570 #endif /* USE_TOOLKIT_SCROLL_BARS */
573 update_face_from_frame_parameter (f
, Qbackground_color
, arg
);
575 if (FRAME_VISIBLE_P (f
))
581 make_invisible_cursor (struct frame
*f
)
583 Display
*dpy
= FRAME_X_DISPLAY (f
);
584 static char const no_data
[] = { 0 };
589 x_catch_errors (dpy
);
590 pix
= XCreateBitmapFromData (dpy
, FRAME_DISPLAY_INFO (f
)->root_window
,
592 if (! x_had_errors_p (dpy
) && pix
!= None
)
596 col
.red
= col
.green
= col
.blue
= 0;
597 col
.flags
= DoRed
| DoGreen
| DoBlue
;
598 pixc
= XCreatePixmapCursor (dpy
, pix
, pix
, &col
, &col
, 0, 0);
599 if (! x_had_errors_p (dpy
) && pixc
!= None
)
601 XFreePixmap (dpy
, pix
);
610 x_set_mouse_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
612 struct x_output
*x
= f
->output_data
.x
;
613 Display
*dpy
= FRAME_X_DISPLAY (f
);
614 Cursor cursor
, nontext_cursor
, mode_cursor
, hand_cursor
;
615 Cursor hourglass_cursor
, horizontal_drag_cursor
, vertical_drag_cursor
;
616 unsigned long pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
617 unsigned long mask_color
= FRAME_BACKGROUND_PIXEL (f
);
619 /* Don't let pointers be invisible. */
620 if (mask_color
== pixel
)
622 x_free_colors (f
, &pixel
, 1);
623 pixel
= x_copy_color (f
, FRAME_FOREGROUND_PIXEL (f
));
626 unload_color (f
, x
->mouse_pixel
);
627 x
->mouse_pixel
= pixel
;
631 /* It's not okay to crash if the user selects a screwy cursor. */
632 x_catch_errors (dpy
);
634 if (!NILP (Vx_pointer_shape
))
636 CHECK_NUMBER (Vx_pointer_shape
);
637 cursor
= XCreateFontCursor (dpy
, XINT (Vx_pointer_shape
));
640 cursor
= XCreateFontCursor (dpy
, XC_xterm
);
641 x_check_errors (dpy
, "bad text pointer cursor: %s");
643 if (!NILP (Vx_nontext_pointer_shape
))
645 CHECK_NUMBER (Vx_nontext_pointer_shape
);
647 = XCreateFontCursor (dpy
, XINT (Vx_nontext_pointer_shape
));
650 nontext_cursor
= XCreateFontCursor (dpy
, XC_left_ptr
);
651 x_check_errors (dpy
, "bad nontext pointer cursor: %s");
653 if (!NILP (Vx_hourglass_pointer_shape
))
655 CHECK_NUMBER (Vx_hourglass_pointer_shape
);
657 = XCreateFontCursor (dpy
, XINT (Vx_hourglass_pointer_shape
));
660 hourglass_cursor
= XCreateFontCursor (dpy
, XC_watch
);
661 x_check_errors (dpy
, "bad hourglass pointer cursor: %s");
663 if (!NILP (Vx_mode_pointer_shape
))
665 CHECK_NUMBER (Vx_mode_pointer_shape
);
666 mode_cursor
= XCreateFontCursor (dpy
, XINT (Vx_mode_pointer_shape
));
669 mode_cursor
= XCreateFontCursor (dpy
, XC_xterm
);
670 x_check_errors (dpy
, "bad modeline pointer cursor: %s");
672 if (!NILP (Vx_sensitive_text_pointer_shape
))
674 CHECK_NUMBER (Vx_sensitive_text_pointer_shape
);
676 = XCreateFontCursor (dpy
, XINT (Vx_sensitive_text_pointer_shape
));
679 hand_cursor
= XCreateFontCursor (dpy
, XC_hand2
);
681 if (!NILP (Vx_window_horizontal_drag_shape
))
683 CHECK_TYPE_RANGED_INTEGER (unsigned, Vx_window_horizontal_drag_shape
);
684 horizontal_drag_cursor
685 = XCreateFontCursor (dpy
, XINT (Vx_window_horizontal_drag_shape
));
688 horizontal_drag_cursor
689 = XCreateFontCursor (dpy
, XC_sb_h_double_arrow
);
691 if (!NILP (Vx_window_vertical_drag_shape
))
693 CHECK_NUMBER (Vx_window_vertical_drag_shape
);
695 = XCreateFontCursor (dpy
, XINT (Vx_window_vertical_drag_shape
));
699 = XCreateFontCursor (dpy
, XC_sb_v_double_arrow
);
701 /* Check and report errors with the above calls. */
702 x_check_errors (dpy
, "can't set cursor shape: %s");
706 XColor fore_color
, back_color
;
708 fore_color
.pixel
= x
->mouse_pixel
;
709 x_query_color (f
, &fore_color
);
710 back_color
.pixel
= mask_color
;
711 x_query_color (f
, &back_color
);
713 XRecolorCursor (dpy
, cursor
, &fore_color
, &back_color
);
714 XRecolorCursor (dpy
, nontext_cursor
, &fore_color
, &back_color
);
715 XRecolorCursor (dpy
, mode_cursor
, &fore_color
, &back_color
);
716 XRecolorCursor (dpy
, hand_cursor
, &fore_color
, &back_color
);
717 XRecolorCursor (dpy
, hourglass_cursor
, &fore_color
, &back_color
);
718 XRecolorCursor (dpy
, horizontal_drag_cursor
, &fore_color
, &back_color
);
721 if (FRAME_X_WINDOW (f
) != 0)
722 XDefineCursor (dpy
, FRAME_X_WINDOW (f
),
723 f
->output_data
.x
->current_cursor
= cursor
);
725 if (FRAME_DISPLAY_INFO (f
)->invisible_cursor
== 0)
726 FRAME_DISPLAY_INFO (f
)->invisible_cursor
= make_invisible_cursor (f
);
728 if (cursor
!= x
->text_cursor
729 && x
->text_cursor
!= 0)
730 XFreeCursor (dpy
, x
->text_cursor
);
731 x
->text_cursor
= cursor
;
733 if (nontext_cursor
!= x
->nontext_cursor
734 && x
->nontext_cursor
!= 0)
735 XFreeCursor (dpy
, x
->nontext_cursor
);
736 x
->nontext_cursor
= nontext_cursor
;
738 if (hourglass_cursor
!= x
->hourglass_cursor
739 && x
->hourglass_cursor
!= 0)
740 XFreeCursor (dpy
, x
->hourglass_cursor
);
741 x
->hourglass_cursor
= hourglass_cursor
;
743 if (mode_cursor
!= x
->modeline_cursor
744 && x
->modeline_cursor
!= 0)
745 XFreeCursor (dpy
, f
->output_data
.x
->modeline_cursor
);
746 x
->modeline_cursor
= mode_cursor
;
748 if (hand_cursor
!= x
->hand_cursor
749 && x
->hand_cursor
!= 0)
750 XFreeCursor (dpy
, x
->hand_cursor
);
751 x
->hand_cursor
= hand_cursor
;
753 if (horizontal_drag_cursor
!= x
->horizontal_drag_cursor
754 && x
->horizontal_drag_cursor
!= 0)
755 XFreeCursor (dpy
, x
->horizontal_drag_cursor
);
756 x
->horizontal_drag_cursor
= horizontal_drag_cursor
;
758 if (vertical_drag_cursor
!= x
->vertical_drag_cursor
759 && x
->vertical_drag_cursor
!= 0)
760 XFreeCursor (dpy
, x
->vertical_drag_cursor
);
761 x
->vertical_drag_cursor
= vertical_drag_cursor
;
766 update_face_from_frame_parameter (f
, Qmouse_color
, arg
);
770 x_set_cursor_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
772 unsigned long fore_pixel
, pixel
;
773 bool fore_pixel_allocated_p
= 0, pixel_allocated_p
= 0;
774 struct x_output
*x
= f
->output_data
.x
;
776 if (!NILP (Vx_cursor_fore_pixel
))
778 fore_pixel
= x_decode_color (f
, Vx_cursor_fore_pixel
,
779 WHITE_PIX_DEFAULT (f
));
780 fore_pixel_allocated_p
= 1;
783 fore_pixel
= FRAME_BACKGROUND_PIXEL (f
);
785 pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
786 pixel_allocated_p
= 1;
788 /* Make sure that the cursor color differs from the background color. */
789 if (pixel
== FRAME_BACKGROUND_PIXEL (f
))
791 if (pixel_allocated_p
)
793 x_free_colors (f
, &pixel
, 1);
794 pixel_allocated_p
= 0;
797 pixel
= x
->mouse_pixel
;
798 if (pixel
== fore_pixel
)
800 if (fore_pixel_allocated_p
)
802 x_free_colors (f
, &fore_pixel
, 1);
803 fore_pixel_allocated_p
= 0;
805 fore_pixel
= FRAME_BACKGROUND_PIXEL (f
);
809 unload_color (f
, x
->cursor_foreground_pixel
);
810 if (!fore_pixel_allocated_p
)
811 fore_pixel
= x_copy_color (f
, fore_pixel
);
812 x
->cursor_foreground_pixel
= fore_pixel
;
814 unload_color (f
, x
->cursor_pixel
);
815 if (!pixel_allocated_p
)
816 pixel
= x_copy_color (f
, pixel
);
817 x
->cursor_pixel
= pixel
;
819 if (FRAME_X_WINDOW (f
) != 0)
822 XSetBackground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, x
->cursor_pixel
);
823 XSetForeground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, fore_pixel
);
826 if (FRAME_VISIBLE_P (f
))
828 x_update_cursor (f
, 0);
829 x_update_cursor (f
, 1);
833 update_face_from_frame_parameter (f
, Qcursor_color
, arg
);
836 /* Set the border-color of frame F to pixel value PIX.
837 Note that this does not fully take effect if done before
838 F has an x-window. */
841 x_set_border_pixel (struct frame
*f
, int pix
)
843 unload_color (f
, f
->output_data
.x
->border_pixel
);
844 f
->output_data
.x
->border_pixel
= pix
;
846 if (FRAME_X_WINDOW (f
) != 0 && f
->border_width
> 0)
849 XSetWindowBorder (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), pix
);
852 if (FRAME_VISIBLE_P (f
))
857 /* Set the border-color of frame F to value described by ARG.
858 ARG can be a string naming a color.
859 The border-color is used for the border that is drawn by the X server.
860 Note that this does not fully take effect if done before
861 F has an x-window; it must be redone when the window is created.
863 Note: this is done in two routines because of the way X10 works.
865 Note: under X11, this is normally the province of the window manager,
866 and so emacs's border colors may be overridden. */
869 x_set_border_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
874 pix
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
875 x_set_border_pixel (f
, pix
);
876 update_face_from_frame_parameter (f
, Qborder_color
, arg
);
881 x_set_cursor_type (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
883 set_frame_cursor_types (f
, arg
);
887 x_set_icon_type (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
893 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
896 else if (!STRINGP (oldval
) && EQ (oldval
, Qnil
) == EQ (arg
, Qnil
))
901 result
= x_text_icon (f
,
902 SSDATA ((!NILP (f
->icon_name
)
906 result
= x_bitmap_icon (f
, arg
);
911 error ("No icon window available");
914 XFlush (FRAME_X_DISPLAY (f
));
919 x_set_icon_name (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
925 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
928 else if (!NILP (arg
) || NILP (oldval
))
931 fset_icon_name (f
, arg
);
933 if (f
->output_data
.x
->icon_bitmap
!= 0)
938 result
= x_text_icon (f
,
939 SSDATA ((!NILP (f
->icon_name
)
948 error ("No icon window available");
951 XFlush (FRAME_X_DISPLAY (f
));
957 x_set_menu_bar_lines (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
960 #if ! defined (USE_X_TOOLKIT) && ! defined (USE_GTK)
961 int olines
= FRAME_MENU_BAR_LINES (f
);
964 /* Right now, menu bars don't work properly in minibuf-only frames;
965 most of the commands try to apply themselves to the minibuffer
966 frame itself, and get an error because you can't switch buffers
967 in or split the minibuffer window. */
968 if (FRAME_MINIBUF_ONLY_P (f
))
971 if (TYPE_RANGED_INTEGERP (int, value
))
972 nlines
= XINT (value
);
976 /* Make sure we redisplay all windows in this frame. */
977 windows_or_buffers_changed
= 59;
979 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
980 FRAME_MENU_BAR_LINES (f
) = 0;
981 FRAME_MENU_BAR_HEIGHT (f
) = 0;
984 FRAME_EXTERNAL_MENU_BAR (f
) = 1;
985 if (FRAME_X_P (f
) && f
->output_data
.x
->menubar_widget
== 0)
986 /* Make sure next redisplay shows the menu bar. */
987 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= 1;
991 if (FRAME_EXTERNAL_MENU_BAR (f
) == 1)
992 free_frame_menubar (f
);
993 FRAME_EXTERNAL_MENU_BAR (f
) = 0;
995 f
->output_data
.x
->menubar_widget
= 0;
997 #else /* not USE_X_TOOLKIT && not USE_GTK */
998 FRAME_MENU_BAR_LINES (f
) = nlines
;
999 FRAME_MENU_BAR_HEIGHT (f
) = nlines
* FRAME_LINE_HEIGHT (f
);
1000 resize_frame_windows (f
, FRAME_LINES (f
), 0, 0);
1002 /* If the menu bar height gets changed, the internal border below
1003 the top margin has to be cleared. Also, if the menu bar gets
1004 larger, the area for the added lines has to be cleared except for
1005 the first menu bar line that is to be drawn later. */
1006 if (nlines
!= olines
)
1008 int height
= FRAME_INTERNAL_BORDER_WIDTH (f
);
1009 int width
= FRAME_PIXEL_WIDTH (f
);
1012 /* height can be zero here. */
1013 if (FRAME_X_WINDOW (f
) && height
> 0 && width
> 0)
1015 y
= FRAME_TOP_MARGIN_HEIGHT (f
);
1018 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1019 0, y
, width
, height
);
1023 if (nlines
> 1 && nlines
> olines
)
1025 y
= (olines
== 0 ? 1 : olines
) * FRAME_LINE_HEIGHT (f
);
1026 height
= nlines
* FRAME_LINE_HEIGHT (f
) - y
;
1029 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1030 0, y
, width
, height
);
1034 if (nlines
== 0 && WINDOWP (f
->menu_bar_window
))
1035 clear_glyph_matrix (XWINDOW (f
->menu_bar_window
)->current_matrix
);
1037 #endif /* not USE_X_TOOLKIT && not USE_GTK */
1038 adjust_frame_glyphs (f
);
1039 run_window_configuration_change_hook (f
);
1043 /* Set the number of lines used for the tool bar of frame F to VALUE.
1044 VALUE not an integer, or < 0 means set the lines to zero. OLDVAL
1045 is the old number of tool bar lines. This function changes the
1046 height of all windows on frame F to match the new tool bar height.
1047 The frame's height doesn't change. */
1050 x_set_tool_bar_lines (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
1053 #if ! defined (USE_GTK)
1054 int delta
, root_height
;
1055 Lisp_Object root_window
;
1058 /* Treat tool bars like menu bars. */
1059 if (FRAME_MINIBUF_ONLY_P (f
))
1062 /* Use VALUE only if an int >= 0. */
1063 if (RANGED_INTEGERP (0, value
, INT_MAX
))
1064 nlines
= XFASTINT (value
);
1070 FRAME_TOOL_BAR_LINES (f
) = 0;
1071 FRAME_TOOL_BAR_HEIGHT (f
) = 0;
1074 FRAME_EXTERNAL_TOOL_BAR (f
) = 1;
1075 if (FRAME_X_P (f
) && f
->output_data
.x
->toolbar_widget
== 0)
1076 /* Make sure next redisplay shows the tool bar. */
1077 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= 1;
1078 update_frame_tool_bar (f
);
1082 if (FRAME_EXTERNAL_TOOL_BAR (f
))
1083 free_frame_tool_bar (f
);
1084 FRAME_EXTERNAL_TOOL_BAR (f
) = 0;
1087 #else /* !USE_GTK */
1089 /* Make sure we redisplay all windows in this frame. */
1090 windows_or_buffers_changed
= 60;
1092 delta
= nlines
- FRAME_TOOL_BAR_LINES (f
);
1094 /* Don't resize the tool-bar to more than we have room for. */
1095 root_window
= FRAME_ROOT_WINDOW (f
);
1096 root_height
= WINDOW_TOTAL_LINES (XWINDOW (root_window
));
1097 if (root_height
- delta
< 1)
1099 delta
= root_height
- 1;
1100 nlines
= FRAME_TOOL_BAR_LINES (f
) + delta
;
1103 FRAME_TOOL_BAR_LINES (f
) = nlines
;
1104 FRAME_TOOL_BAR_HEIGHT (f
) = nlines
* FRAME_LINE_HEIGHT (f
);
1105 resize_frame_windows (f
, FRAME_LINES (f
), 0, 0);
1106 adjust_frame_glyphs (f
);
1108 /* We also have to make sure that the internal border at the top of
1109 the frame, below the menu bar or tool bar, is redrawn when the
1110 tool bar disappears. This is so because the internal border is
1111 below the tool bar if one is displayed, but is below the menu bar
1112 if there isn't a tool bar. The tool bar draws into the area
1113 below the menu bar. */
1114 if (FRAME_X_WINDOW (f
) && FRAME_TOOL_BAR_HEIGHT (f
) == 0)
1117 clear_current_matrices (f
);
1120 /* If the tool bar gets smaller, the internal border below it
1121 has to be cleared. It was formerly part of the display
1122 of the larger tool bar, and updating windows won't clear it. */
1125 int height
= FRAME_INTERNAL_BORDER_WIDTH (f
);
1126 int width
= FRAME_PIXEL_WIDTH (f
);
1127 int y
= (FRAME_MENU_BAR_LINES (f
) + nlines
) * FRAME_LINE_HEIGHT (f
);
1129 /* height can be zero here. */
1130 if (height
> 0 && width
> 0)
1133 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1134 0, y
, width
, height
);
1138 if (WINDOWP (f
->tool_bar_window
))
1139 clear_glyph_matrix (XWINDOW (f
->tool_bar_window
)->current_matrix
);
1142 run_window_configuration_change_hook (f
);
1143 #endif /* USE_GTK */
1147 /* Set the foreground color for scroll bars on frame F to VALUE.
1148 VALUE should be a string, a color name. If it isn't a string or
1149 isn't a valid color name, do nothing. OLDVAL is the old value of
1150 the frame parameter. */
1153 x_set_scroll_bar_foreground (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
1155 unsigned long pixel
;
1157 if (STRINGP (value
))
1158 pixel
= x_decode_color (f
, value
, BLACK_PIX_DEFAULT (f
));
1162 if (f
->output_data
.x
->scroll_bar_foreground_pixel
!= -1)
1163 unload_color (f
, f
->output_data
.x
->scroll_bar_foreground_pixel
);
1165 f
->output_data
.x
->scroll_bar_foreground_pixel
= pixel
;
1166 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1168 /* Remove all scroll bars because they have wrong colors. */
1169 if (FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
)
1170 (*FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
) (f
);
1171 if (FRAME_TERMINAL (f
)->judge_scroll_bars_hook
)
1172 (*FRAME_TERMINAL (f
)->judge_scroll_bars_hook
) (f
);
1174 update_face_from_frame_parameter (f
, Qscroll_bar_foreground
, value
);
1180 /* Set the background color for scroll bars on frame F to VALUE VALUE
1181 should be a string, a color name. If it isn't a string or isn't a
1182 valid color name, do nothing. OLDVAL is the old value of the frame
1186 x_set_scroll_bar_background (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
1188 unsigned long pixel
;
1190 if (STRINGP (value
))
1191 pixel
= x_decode_color (f
, value
, WHITE_PIX_DEFAULT (f
));
1195 if (f
->output_data
.x
->scroll_bar_background_pixel
!= -1)
1196 unload_color (f
, f
->output_data
.x
->scroll_bar_background_pixel
);
1198 #ifdef USE_TOOLKIT_SCROLL_BARS
1199 /* Scrollbar shadow colors. */
1200 if (f
->output_data
.x
->scroll_bar_top_shadow_pixel
!= -1)
1202 unload_color (f
, f
->output_data
.x
->scroll_bar_top_shadow_pixel
);
1203 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
1205 if (f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
!= -1)
1207 unload_color (f
, f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
);
1208 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
1210 #endif /* USE_TOOLKIT_SCROLL_BARS */
1212 f
->output_data
.x
->scroll_bar_background_pixel
= pixel
;
1213 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1215 /* Remove all scroll bars because they have wrong colors. */
1216 if (FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
)
1217 (*FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
) (f
);
1218 if (FRAME_TERMINAL (f
)->judge_scroll_bars_hook
)
1219 (*FRAME_TERMINAL (f
)->judge_scroll_bars_hook
) (f
);
1221 update_face_from_frame_parameter (f
, Qscroll_bar_background
, value
);
1227 /* Encode Lisp string STRING as a text in a format appropriate for
1228 XICCC (X Inter Client Communication Conventions).
1230 This can call Lisp code, so callers must GCPRO.
1232 If STRING contains only ASCII characters, do no conversion and
1233 return the string data of STRING. Otherwise, encode the text by
1234 CODING_SYSTEM, and return a newly allocated memory area which
1235 should be freed by `xfree' by a caller.
1237 SELECTIONP non-zero means the string is being encoded for an X
1238 selection, so it is safe to run pre-write conversions (which
1241 Store the byte length of resulting text in *TEXT_BYTES.
1243 If the text contains only ASCII and Latin-1, store 1 in *STRING_P,
1244 which means that the `encoding' of the result can be `STRING'.
1245 Otherwise store 0 in *STRINGP, which means that the `encoding' of
1246 the result should be `COMPOUND_TEXT'. */
1248 static unsigned char *
1249 x_encode_text (Lisp_Object string
, Lisp_Object coding_system
, int selectionp
,
1250 ptrdiff_t *text_bytes
, int *stringp
, int *freep
)
1252 int result
= string_xstring_p (string
);
1253 struct coding_system coding
;
1257 /* No multibyte character in OBJ. We need not encode it. */
1258 *text_bytes
= SBYTES (string
);
1261 return SDATA (string
);
1264 setup_coding_system (coding_system
, &coding
);
1265 coding
.mode
|= (CODING_MODE_SAFE_ENCODING
| CODING_MODE_LAST_BLOCK
);
1266 /* We suppress producing escape sequences for composition. */
1267 coding
.common_flags
&= ~CODING_ANNOTATION_MASK
;
1268 coding
.destination
= xnmalloc (SCHARS (string
), 2);
1269 coding
.dst_bytes
= SCHARS (string
) * 2;
1270 encode_coding_object (&coding
, string
, 0, 0,
1271 SCHARS (string
), SBYTES (string
), Qnil
);
1272 *text_bytes
= coding
.produced
;
1273 *stringp
= (result
== 1 || !EQ (coding_system
, Qcompound_text
));
1275 return coding
.destination
;
1279 /* Set the WM name to NAME for frame F. Also set the icon name.
1280 If the frame already has an icon name, use that, otherwise set the
1281 icon name to NAME. */
1284 x_set_name_internal (struct frame
*f
, Lisp_Object name
)
1286 if (FRAME_X_WINDOW (f
))
1290 XTextProperty text
, icon
;
1293 int do_free_icon_value
= 0, do_free_text_value
= 0;
1294 Lisp_Object coding_system
;
1295 Lisp_Object encoded_name
;
1296 Lisp_Object encoded_icon_name
;
1297 struct gcpro gcpro1
;
1299 /* As ENCODE_UTF_8 may cause GC and relocation of string data,
1300 we use it before x_encode_text that may return string data. */
1302 encoded_name
= ENCODE_UTF_8 (name
);
1305 coding_system
= Qcompound_text
;
1306 /* Note: Encoding strategy
1308 We encode NAME by compound-text and use "COMPOUND-TEXT" in
1309 text.encoding. But, there are non-internationalized window
1310 managers which don't support that encoding. So, if NAME
1311 contains only ASCII and 8859-1 characters, encode it by
1312 iso-latin-1, and use "STRING" in text.encoding hoping that
1313 such window managers at least analyze this format correctly,
1314 i.e. treat 8-bit bytes as 8859-1 characters.
1316 We may also be able to use "UTF8_STRING" in text.encoding
1317 in the future which can encode all Unicode characters.
1318 But, for the moment, there's no way to know that the
1319 current window manager supports it or not.
1321 Either way, we also set the _NET_WM_NAME and _NET_WM_ICON_NAME
1322 properties. Per the EWMH specification, those two properties
1323 are always UTF8_STRING. This matches what gtk_window_set_title()
1324 does in the USE_GTK case. */
1325 text
.value
= x_encode_text (name
, coding_system
, 0, &bytes
, &stringp
,
1326 &do_free_text_value
);
1327 text
.encoding
= (stringp
? XA_STRING
1328 : FRAME_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1330 text
.nitems
= bytes
;
1331 if (text
.nitems
!= bytes
)
1332 error ("Window name too large");
1334 if (!STRINGP (f
->icon_name
))
1337 encoded_icon_name
= encoded_name
;
1341 /* See the above comment "Note: Encoding strategy". */
1342 icon
.value
= x_encode_text (f
->icon_name
, coding_system
, 0,
1343 &bytes
, &stringp
, &do_free_icon_value
);
1344 icon
.encoding
= (stringp
? XA_STRING
1345 : FRAME_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1347 icon
.nitems
= bytes
;
1348 if (icon
.nitems
!= bytes
)
1349 error ("Icon name too large");
1351 encoded_icon_name
= ENCODE_UTF_8 (f
->icon_name
);
1355 gtk_window_set_title (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
1356 SSDATA (encoded_name
));
1357 #else /* not USE_GTK */
1358 XSetWMName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &text
);
1359 XChangeProperty (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
),
1360 FRAME_DISPLAY_INFO (f
)->Xatom_net_wm_name
,
1361 FRAME_DISPLAY_INFO (f
)->Xatom_UTF8_STRING
,
1363 SDATA (encoded_name
),
1364 SBYTES (encoded_name
));
1365 #endif /* not USE_GTK */
1367 XSetWMIconName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &icon
);
1368 XChangeProperty (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
),
1369 FRAME_DISPLAY_INFO (f
)->Xatom_net_wm_icon_name
,
1370 FRAME_DISPLAY_INFO (f
)->Xatom_UTF8_STRING
,
1372 SDATA (encoded_icon_name
),
1373 SBYTES (encoded_icon_name
));
1375 if (do_free_icon_value
)
1377 if (do_free_text_value
)
1384 /* Change the name of frame F to NAME. If NAME is nil, set F's name to
1387 If EXPLICIT is non-zero, that indicates that lisp code is setting the
1388 name; if NAME is a string, set F's name to NAME and set
1389 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1391 If EXPLICIT is zero, that indicates that Emacs redisplay code is
1392 suggesting a new name, which lisp code should override; if
1393 F->explicit_name is set, ignore the new name; otherwise, set it. */
1396 x_set_name (struct frame
*f
, Lisp_Object name
, int explicit)
1398 /* Make sure that requests from lisp code override requests from
1399 Emacs redisplay code. */
1402 /* If we're switching from explicit to implicit, we had better
1403 update the mode lines and thereby update the title. */
1404 if (f
->explicit_name
&& NILP (name
))
1405 update_mode_lines
= 37;
1407 f
->explicit_name
= ! NILP (name
);
1409 else if (f
->explicit_name
)
1412 /* If NAME is nil, set the name to the x_id_name. */
1415 /* Check for no change needed in this very common case
1416 before we do any consing. */
1417 if (!strcmp (FRAME_DISPLAY_INFO (f
)->x_id_name
,
1420 name
= build_string (FRAME_DISPLAY_INFO (f
)->x_id_name
);
1423 CHECK_STRING (name
);
1425 /* Don't change the name if it's already NAME. */
1426 if (! NILP (Fstring_equal (name
, f
->name
)))
1429 fset_name (f
, name
);
1431 /* For setting the frame title, the title parameter should override
1432 the name parameter. */
1433 if (! NILP (f
->title
))
1436 x_set_name_internal (f
, name
);
1439 /* This function should be called when the user's lisp code has
1440 specified a name for the frame; the name will override any set by the
1443 x_explicitly_set_name (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
1445 x_set_name (f
, arg
, 1);
1448 /* This function should be called by Emacs redisplay code to set the
1449 name; names set this way will never override names set by the user's
1452 x_implicitly_set_name (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
1454 x_set_name (f
, arg
, 0);
1457 /* Change the title of frame F to NAME.
1458 If NAME is nil, use the frame name as the title. */
1461 x_set_title (struct frame
*f
, Lisp_Object name
, Lisp_Object old_name
)
1463 /* Don't change the title if it's already NAME. */
1464 if (EQ (name
, f
->title
))
1467 update_mode_lines
= 38;
1469 fset_title (f
, name
);
1474 CHECK_STRING (name
);
1476 x_set_name_internal (f
, name
);
1480 x_set_scroll_bar_default_width (struct frame
*f
)
1482 int wid
= FRAME_COLUMN_WIDTH (f
);
1483 #ifdef USE_TOOLKIT_SCROLL_BARS
1485 int minw
= xg_get_default_scrollbar_width ();
1489 /* A minimum width of 14 doesn't look good for toolkit scroll bars. */
1490 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (minw
+ wid
- 1) / wid
;
1491 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = minw
;
1493 /* Make the actual width 16 pixels and a multiple of a
1495 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (16 + wid
- 1) / wid
;
1497 /* Use all of that space (aside from required margins) for the
1499 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = 16;
1504 /* Record in frame F the specified or default value according to ALIST
1505 of the parameter named PROP (a Lisp symbol). If no value is
1506 specified for PROP, look for an X default for XPROP on the frame
1507 named NAME. If that is not found either, use the value DEFLT. */
1510 x_default_scroll_bar_color_parameter (struct frame
*f
,
1511 Lisp_Object alist
, Lisp_Object prop
,
1512 const char *xprop
, const char *xclass
,
1515 struct x_display_info
*dpyinfo
= FRAME_DISPLAY_INFO (f
);
1518 tem
= x_get_arg (dpyinfo
, alist
, prop
, xprop
, xclass
, RES_TYPE_STRING
);
1519 if (EQ (tem
, Qunbound
))
1521 #ifdef USE_TOOLKIT_SCROLL_BARS
1523 /* See if an X resource for the scroll bar color has been
1525 tem
= display_x_get_resource (dpyinfo
,
1526 build_string (foreground_p
1529 empty_unibyte_string
,
1530 build_string ("verticalScrollBar"),
1531 empty_unibyte_string
);
1534 /* If nothing has been specified, scroll bars will use a
1535 toolkit-dependent default. Because these defaults are
1536 difficult to get at without actually creating a scroll
1537 bar, use nil to indicate that no color has been
1542 #else /* not USE_TOOLKIT_SCROLL_BARS */
1546 #endif /* not USE_TOOLKIT_SCROLL_BARS */
1549 x_set_frame_parameters (f
, list1 (Fcons (prop
, tem
)));
1556 #ifdef USE_X_TOOLKIT
1558 /* If the WM_PROTOCOLS property does not already contain WM_TAKE_FOCUS,
1559 WM_DELETE_WINDOW, and WM_SAVE_YOURSELF, then add them. (They may
1560 already be present because of the toolkit (Motif adds some of them,
1561 for example, but Xt doesn't). */
1564 hack_wm_protocols (struct frame
*f
, Widget widget
)
1566 Display
*dpy
= XtDisplay (widget
);
1567 Window w
= XtWindow (widget
);
1568 int need_delete
= 1;
1575 unsigned char *catoms
;
1577 unsigned long nitems
= 0;
1578 unsigned long bytes_after
;
1580 if ((XGetWindowProperty (dpy
, w
,
1581 FRAME_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1582 (long)0, (long)100, False
, XA_ATOM
,
1583 &type
, &format
, &nitems
, &bytes_after
,
1586 && format
== 32 && type
== XA_ATOM
)
1588 Atom
*atoms
= (Atom
*) catoms
;
1593 == FRAME_DISPLAY_INFO (f
)->Xatom_wm_delete_window
)
1595 else if (atoms
[nitems
]
1596 == FRAME_DISPLAY_INFO (f
)->Xatom_wm_take_focus
)
1598 else if (atoms
[nitems
]
1599 == FRAME_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
)
1610 props
[count
++] = FRAME_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
1612 props
[count
++] = FRAME_DISPLAY_INFO (f
)->Xatom_wm_take_focus
;
1614 props
[count
++] = FRAME_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
1616 XChangeProperty (dpy
, w
, FRAME_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1617 XA_ATOM
, 32, PropModeAppend
,
1618 (unsigned char *) props
, count
);
1626 /* Support routines for XIC (X Input Context). */
1630 static XFontSet
xic_create_xfontset (struct frame
*);
1631 static XIMStyle
best_xim_style (XIMStyles
*, XIMStyles
*);
1634 /* Supported XIM styles, ordered by preference. */
1636 static XIMStyle supported_xim_styles
[] =
1638 XIMPreeditPosition
| XIMStatusArea
,
1639 XIMPreeditPosition
| XIMStatusNothing
,
1640 XIMPreeditPosition
| XIMStatusNone
,
1641 XIMPreeditNothing
| XIMStatusArea
,
1642 XIMPreeditNothing
| XIMStatusNothing
,
1643 XIMPreeditNothing
| XIMStatusNone
,
1644 XIMPreeditNone
| XIMStatusArea
,
1645 XIMPreeditNone
| XIMStatusNothing
,
1646 XIMPreeditNone
| XIMStatusNone
,
1651 #if defined HAVE_X_WINDOWS && defined USE_X_TOOLKIT
1652 /* Create an X fontset on frame F with base font name BASE_FONTNAME. */
1654 static const char xic_default_fontset
[] = "-*-*-*-r-normal--14-*-*-*-*-*-*-*";
1656 /* Create an Xt fontset spec from the name of a base font.
1657 If `motif' is True use the Motif syntax. */
1659 xic_create_fontsetname (const char *base_fontname
, int motif
)
1661 const char *sep
= motif
? ";" : ",";
1664 /* Make a fontset name from the base font name. */
1665 if (xic_default_fontset
== base_fontname
)
1667 /* There is no base font name, use the default. */
1668 fontsetname
= xmalloc (strlen (base_fontname
) + 2);
1669 strcpy (fontsetname
, base_fontname
);
1673 /* Make a fontset name from the base font name.
1674 The font set will be made of the following elements:
1676 - the base font where the charset spec is replaced by -*-*.
1677 - the same but with the family also replaced with -*-*-. */
1678 const char *p
= base_fontname
;
1681 for (i
= 0; *p
; p
++)
1685 /* As the font name doesn't conform to XLFD, we can't
1686 modify it to generalize it to allcs and allfamilies.
1687 Use the specified font plus the default. */
1688 fontsetname
= xmalloc (strlen (base_fontname
)
1689 + strlen (xic_default_fontset
) + 3);
1690 strcpy (fontsetname
, base_fontname
);
1691 strcat (fontsetname
, sep
);
1692 strcat (fontsetname
, xic_default_fontset
);
1697 const char *p1
= NULL
, *p2
= NULL
, *p3
= NULL
;
1698 char *font_allcs
= NULL
;
1699 char *font_allfamilies
= NULL
;
1700 char *font_all
= NULL
;
1701 const char *allcs
= "*-*-*-*-*-*-*";
1702 const char *allfamilies
= "-*-*-";
1703 const char *all
= "*-*-*-*-";
1706 for (i
= 0, p
= base_fontname
; i
< 8; p
++)
1719 /* If base_fontname specifies ADSTYLE, make it a
1723 ptrdiff_t diff
= (p2
- p3
) - 2;
1725 base
= alloca (strlen (base_fontname
) + 1);
1726 memcpy (base
, base_fontname
, p3
- base_fontname
);
1727 base
[p3
- base_fontname
] = '*';
1728 base
[(p3
- base_fontname
) + 1] = '-';
1729 strcpy (base
+ (p3
- base_fontname
) + 2, p2
);
1730 p
= base
+ (p
- base_fontname
) - diff
;
1731 p1
= base
+ (p1
- base_fontname
);
1732 p2
= base
+ (p2
- base_fontname
) - diff
;
1733 base_fontname
= base
;
1736 /* Build the font spec that matches all charsets. */
1737 len
= p
- base_fontname
+ strlen (allcs
) + 1;
1738 font_allcs
= alloca (len
);
1739 memcpy (font_allcs
, base_fontname
, p
- base_fontname
);
1740 strcat (font_allcs
, allcs
);
1742 /* Build the font spec that matches all families and
1744 len
= p
- p1
+ strlen (allcs
) + strlen (allfamilies
) + 1;
1745 font_allfamilies
= alloca (len
);
1746 strcpy (font_allfamilies
, allfamilies
);
1747 memcpy (font_allfamilies
+ strlen (allfamilies
), p1
, p
- p1
);
1748 strcat (font_allfamilies
, allcs
);
1750 /* Build the font spec that matches all. */
1751 len
= p
- p2
+ strlen (allcs
) + strlen (all
) + strlen (allfamilies
) + 1;
1752 font_all
= alloca (len
);
1753 strcpy (font_all
, allfamilies
);
1754 strcat (font_all
, all
);
1755 memcpy (font_all
+ strlen (all
) + strlen (allfamilies
), p2
, p
- p2
);
1756 strcat (font_all
, allcs
);
1758 /* Build the actual font set name. */
1759 len
= strlen (base_fontname
) + strlen (font_allcs
)
1760 + strlen (font_allfamilies
) + strlen (font_all
) + 5;
1761 fontsetname
= xmalloc (len
);
1762 strcpy (fontsetname
, base_fontname
);
1763 strcat (fontsetname
, sep
);
1764 strcat (fontsetname
, font_allcs
);
1765 strcat (fontsetname
, sep
);
1766 strcat (fontsetname
, font_allfamilies
);
1767 strcat (fontsetname
, sep
);
1768 strcat (fontsetname
, font_all
);
1772 return strcat (fontsetname
, ":");
1775 #endif /* HAVE_X_WINDOWS && USE_X_TOOLKIT */
1777 #ifdef DEBUG_XIC_FONTSET
1779 print_fontset_result (XFontSet xfs
, char *name
, char **missing_list
,
1783 fprintf (stderr
, "XIC Fontset created: %s\n", name
);
1786 fprintf (stderr
, "XIC Fontset failed: %s\n", name
);
1787 while (missing_count
-- > 0)
1789 fprintf (stderr
, " missing: %s\n", *missing_list
);
1798 xic_create_xfontset (struct frame
*f
)
1800 XFontSet xfs
= NULL
;
1801 struct font
*font
= FRAME_FONT (f
);
1802 int pixel_size
= font
->pixel_size
;
1803 Lisp_Object rest
, frame
;
1805 /* See if there is another frame already using same fontset. */
1806 FOR_EACH_FRAME (rest
, frame
)
1808 struct frame
*cf
= XFRAME (frame
);
1810 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
1811 && FRAME_DISPLAY_INFO (cf
) == FRAME_DISPLAY_INFO (f
)
1813 && FRAME_FONT (f
)->pixel_size
== pixel_size
)
1815 xfs
= FRAME_XIC_FONTSET (cf
);
1823 char **missing_list
;
1826 const char *xlfd_format
= "-*-*-medium-r-normal--%d-*-*-*-*-*";
1828 sprintf (buf
, xlfd_format
, pixel_size
);
1829 missing_list
= NULL
;
1830 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), buf
,
1831 &missing_list
, &missing_count
, &def_string
);
1832 #ifdef DEBUG_XIC_FONTSET
1833 print_fontset_result (xfs
, buf
, missing_list
, missing_count
);
1836 XFreeStringList (missing_list
);
1839 /* List of pixel sizes most likely available. Find one that
1840 is closest to pixel_size. */
1841 int sizes
[] = {0, 8, 10, 11, 12, 14, 17, 18, 20, 24, 26, 34, 0};
1842 int *smaller
, *larger
;
1844 for (smaller
= sizes
; smaller
[1]; smaller
++)
1845 if (smaller
[1] >= pixel_size
)
1847 larger
= smaller
+ 1;
1848 if (*larger
== pixel_size
)
1850 while (*smaller
|| *larger
)
1855 this_size
= *smaller
--;
1856 else if (! *smaller
)
1857 this_size
= *larger
++;
1858 else if (pixel_size
- *smaller
< *larger
- pixel_size
)
1859 this_size
= *smaller
--;
1861 this_size
= *larger
++;
1862 sprintf (buf
, xlfd_format
, this_size
);
1863 missing_list
= NULL
;
1864 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), buf
,
1865 &missing_list
, &missing_count
, &def_string
);
1866 #ifdef DEBUG_XIC_FONTSET
1867 print_fontset_result (xfs
, buf
, missing_list
, missing_count
);
1870 XFreeStringList (missing_list
);
1877 const char *last_resort
= "-*-*-*-r-normal--*-*-*-*-*-*";
1879 missing_list
= NULL
;
1880 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), last_resort
,
1881 &missing_list
, &missing_count
, &def_string
);
1882 #ifdef DEBUG_XIC_FONTSET
1883 print_fontset_result (xfs
, last_resort
, missing_list
, missing_count
);
1886 XFreeStringList (missing_list
);
1894 /* Free the X fontset of frame F if it is the last frame using it. */
1897 xic_free_xfontset (struct frame
*f
)
1899 Lisp_Object rest
, frame
;
1902 if (!FRAME_XIC_FONTSET (f
))
1905 /* See if there is another frame sharing the same fontset. */
1906 FOR_EACH_FRAME (rest
, frame
)
1908 struct frame
*cf
= XFRAME (frame
);
1909 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
1910 && FRAME_DISPLAY_INFO (cf
) == FRAME_DISPLAY_INFO (f
)
1911 && FRAME_XIC_FONTSET (cf
) == FRAME_XIC_FONTSET (f
))
1919 /* The fontset is not used anymore. It is safe to free it. */
1920 XFreeFontSet (FRAME_X_DISPLAY (f
), FRAME_XIC_FONTSET (f
));
1922 FRAME_XIC_FONTSET (f
) = NULL
;
1926 /* Value is the best input style, given user preferences USER (already
1927 checked to be supported by Emacs), and styles supported by the
1928 input method XIM. */
1931 best_xim_style (XIMStyles
*user
, XIMStyles
*xim
)
1935 for (i
= 0; i
< user
->count_styles
; ++i
)
1936 for (j
= 0; j
< xim
->count_styles
; ++j
)
1937 if (user
->supported_styles
[i
] == xim
->supported_styles
[j
])
1938 return user
->supported_styles
[i
];
1940 /* Return the default style. */
1941 return XIMPreeditNothing
| XIMStatusNothing
;
1944 /* Create XIC for frame F. */
1946 static XIMStyle xic_style
;
1949 create_frame_xic (struct frame
*f
)
1953 XFontSet xfs
= NULL
;
1958 /* Create X fontset. */
1959 xfs
= xic_create_xfontset (f
);
1960 xim
= FRAME_X_XIM (f
);
1965 XVaNestedList preedit_attr
;
1966 XVaNestedList status_attr
;
1968 s_area
.x
= 0; s_area
.y
= 0; s_area
.width
= 1; s_area
.height
= 1;
1969 spot
.x
= 0; spot
.y
= 1;
1971 /* Determine XIC style. */
1974 XIMStyles supported_list
;
1975 supported_list
.count_styles
= (sizeof supported_xim_styles
1976 / sizeof supported_xim_styles
[0]);
1977 supported_list
.supported_styles
= supported_xim_styles
;
1978 xic_style
= best_xim_style (&supported_list
,
1979 FRAME_X_XIM_STYLES (f
));
1982 preedit_attr
= XVaCreateNestedList (0,
1985 FRAME_FOREGROUND_PIXEL (f
),
1987 FRAME_BACKGROUND_PIXEL (f
),
1988 (xic_style
& XIMPreeditPosition
1993 status_attr
= XVaCreateNestedList (0,
1999 FRAME_FOREGROUND_PIXEL (f
),
2001 FRAME_BACKGROUND_PIXEL (f
),
2004 xic
= XCreateIC (xim
,
2005 XNInputStyle
, xic_style
,
2006 XNClientWindow
, FRAME_X_WINDOW (f
),
2007 XNFocusWindow
, FRAME_X_WINDOW (f
),
2008 XNStatusAttributes
, status_attr
,
2009 XNPreeditAttributes
, preedit_attr
,
2011 XFree (preedit_attr
);
2012 XFree (status_attr
);
2015 FRAME_XIC (f
) = xic
;
2016 FRAME_XIC_STYLE (f
) = xic_style
;
2017 FRAME_XIC_FONTSET (f
) = xfs
;
2021 /* Destroy XIC and free XIC fontset of frame F, if any. */
2024 free_frame_xic (struct frame
*f
)
2026 if (FRAME_XIC (f
) == NULL
)
2029 XDestroyIC (FRAME_XIC (f
));
2030 xic_free_xfontset (f
);
2032 FRAME_XIC (f
) = NULL
;
2036 /* Place preedit area for XIC of window W's frame to specified
2037 pixel position X/Y. X and Y are relative to window W. */
2040 xic_set_preeditarea (struct window
*w
, int x
, int y
)
2042 struct frame
*f
= XFRAME (w
->frame
);
2046 spot
.x
= WINDOW_TO_FRAME_PIXEL_X (w
, x
) + WINDOW_LEFT_FRINGE_WIDTH (w
);
2047 spot
.y
= WINDOW_TO_FRAME_PIXEL_Y (w
, y
) + FONT_BASE (FRAME_FONT (f
));
2048 attr
= XVaCreateNestedList (0, XNSpotLocation
, &spot
, NULL
);
2049 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2054 /* Place status area for XIC in bottom right corner of frame F.. */
2057 xic_set_statusarea (struct frame
*f
)
2059 XIC xic
= FRAME_XIC (f
);
2064 /* Negotiate geometry of status area. If input method has existing
2065 status area, use its current size. */
2066 area
.x
= area
.y
= area
.width
= area
.height
= 0;
2067 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &area
, NULL
);
2068 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2071 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &needed
, NULL
);
2072 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2075 if (needed
->width
== 0) /* Use XNArea instead of XNAreaNeeded */
2077 attr
= XVaCreateNestedList (0, XNArea
, &needed
, NULL
);
2078 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2082 area
.width
= needed
->width
;
2083 area
.height
= needed
->height
;
2084 area
.x
= FRAME_PIXEL_WIDTH (f
) - area
.width
- FRAME_INTERNAL_BORDER_WIDTH (f
);
2085 area
.y
= (FRAME_PIXEL_HEIGHT (f
) - area
.height
2086 - FRAME_MENUBAR_HEIGHT (f
)
2087 - FRAME_TOOLBAR_TOP_HEIGHT (f
)
2088 - FRAME_INTERNAL_BORDER_WIDTH (f
));
2091 attr
= XVaCreateNestedList (0, XNArea
, &area
, NULL
);
2092 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2097 /* Set X fontset for XIC of frame F, using base font name
2098 BASE_FONTNAME. Called when a new Emacs fontset is chosen. */
2101 xic_set_xfontset (struct frame
*f
, const char *base_fontname
)
2106 xic_free_xfontset (f
);
2108 xfs
= xic_create_xfontset (f
);
2110 attr
= XVaCreateNestedList (0, XNFontSet
, xfs
, NULL
);
2111 if (FRAME_XIC_STYLE (f
) & XIMPreeditPosition
)
2112 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2113 if (FRAME_XIC_STYLE (f
) & XIMStatusArea
)
2114 XSetICValues (FRAME_XIC (f
), XNStatusAttributes
, attr
, NULL
);
2117 FRAME_XIC_FONTSET (f
) = xfs
;
2120 #endif /* HAVE_X_I18N */
2124 #ifdef USE_X_TOOLKIT
2126 /* Create and set up the X widget for frame F. */
2129 x_window (struct frame
*f
, long window_prompting
, int minibuffer_only
)
2131 XClassHint class_hints
;
2132 XSetWindowAttributes attributes
;
2133 unsigned long attribute_mask
;
2134 Widget shell_widget
;
2136 Widget frame_widget
;
2142 /* Use the resource name as the top-level widget name
2143 for looking up resources. Make a non-Lisp copy
2144 for the window manager, so GC relocation won't bother it.
2146 Elsewhere we specify the window name for the window manager. */
2147 f
->namebuf
= xstrdup (SSDATA (Vx_resource_name
));
2150 XtSetArg (al
[ac
], XtNallowShellResize
, 1); ac
++;
2151 XtSetArg (al
[ac
], XtNinput
, 1); ac
++;
2152 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2153 XtSetArg (al
[ac
], XtNborderWidth
, f
->border_width
); ac
++;
2154 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2155 XtSetArg (al
[ac
], XtNdepth
, FRAME_DISPLAY_INFO (f
)->n_planes
); ac
++;
2156 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2157 shell_widget
= XtAppCreateShell (f
->namebuf
, EMACS_CLASS
,
2158 applicationShellWidgetClass
,
2159 FRAME_X_DISPLAY (f
), al
, ac
);
2161 f
->output_data
.x
->widget
= shell_widget
;
2162 /* maybe_set_screen_title_format (shell_widget); */
2164 pane_widget
= lw_create_widget ("main", "pane", widget_id_tick
++,
2165 NULL
, shell_widget
, False
,
2166 NULL
, NULL
, NULL
, NULL
);
2169 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2170 XtSetArg (al
[ac
], XtNdepth
, FRAME_DISPLAY_INFO (f
)->n_planes
); ac
++;
2171 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2172 XtSetArg (al
[ac
], XtNborderWidth
, 0); ac
++;
2173 XtSetValues (pane_widget
, al
, ac
);
2174 f
->output_data
.x
->column_widget
= pane_widget
;
2176 /* mappedWhenManaged to false tells to the paned window to not map/unmap
2177 the emacs screen when changing menubar. This reduces flickering. */
2180 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2181 XtSetArg (al
[ac
], XtNshowGrip
, 0); ac
++;
2182 XtSetArg (al
[ac
], XtNallowResize
, 1); ac
++;
2183 XtSetArg (al
[ac
], XtNresizeToPreferred
, 1); ac
++;
2184 XtSetArg (al
[ac
], XtNemacsFrame
, f
); ac
++;
2185 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2186 XtSetArg (al
[ac
], XtNdepth
, FRAME_DISPLAY_INFO (f
)->n_planes
); ac
++;
2187 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2188 XtSetArg (al
[ac
], XtNborderWidth
, 0); ac
++;
2189 frame_widget
= XtCreateWidget (f
->namebuf
, emacsFrameClass
, pane_widget
,
2192 f
->output_data
.x
->edit_widget
= frame_widget
;
2194 XtManageChild (frame_widget
);
2196 /* Do some needed geometry management. */
2198 char *tem
, shell_position
[sizeof "=x++" + 4 * INT_STRLEN_BOUND (int)];
2201 int extra_borders
= 0;
2203 = (f
->output_data
.x
->menubar_widget
2204 ? (f
->output_data
.x
->menubar_widget
->core
.height
2205 + f
->output_data
.x
->menubar_widget
->core
.border_width
)
2208 #if 0 /* Experimentally, we now get the right results
2209 for -geometry -0-0 without this. 24 Aug 96, rms. */
2210 if (FRAME_EXTERNAL_MENU_BAR (f
))
2213 XtVaGetValues (pane_widget
, XtNinternalBorderWidth
, &ibw
, NULL
);
2214 menubar_size
+= ibw
;
2218 f
->output_data
.x
->menubar_height
= menubar_size
;
2221 /* Motif seems to need this amount added to the sizes
2222 specified for the shell widget. The Athena/Lucid widgets don't.
2223 Both conclusions reached experimentally. -- rms. */
2224 XtVaGetValues (f
->output_data
.x
->edit_widget
, XtNinternalBorderWidth
,
2225 &extra_borders
, NULL
);
2229 /* Convert our geometry parameters into a geometry string
2231 Note that we do not specify here whether the position
2232 is a user-specified or program-specified one.
2233 We pass that information later, in x_wm_set_size_hints. */
2235 int left
= f
->left_pos
;
2236 int xneg
= window_prompting
& XNegative
;
2237 int top
= f
->top_pos
;
2238 int yneg
= window_prompting
& YNegative
;
2244 if (window_prompting
& USPosition
)
2245 sprintf (shell_position
, "=%dx%d%c%d%c%d",
2246 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2247 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
,
2248 (xneg
? '-' : '+'), left
,
2249 (yneg
? '-' : '+'), top
);
2252 sprintf (shell_position
, "=%dx%d",
2253 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2254 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
);
2256 /* Setting x and y when the position is not specified in
2257 the geometry string will set program position in the WM hints.
2258 If Emacs had just one program position, we could set it in
2259 fallback resources, but since each make-frame call can specify
2260 different program positions, this is easier. */
2261 XtSetArg (gal
[gac
], XtNx
, left
); gac
++;
2262 XtSetArg (gal
[gac
], XtNy
, top
); gac
++;
2266 /* We don't free this because we don't know whether
2267 it is safe to free it while the frame exists.
2268 It isn't worth the trouble of arranging to free it
2269 when the frame is deleted. */
2270 tem
= xstrdup (shell_position
);
2271 XtSetArg (gal
[gac
], XtNgeometry
, tem
); gac
++;
2272 XtSetValues (shell_widget
, gal
, gac
);
2275 XtManageChild (pane_widget
);
2276 XtRealizeWidget (shell_widget
);
2278 if (FRAME_X_EMBEDDED_P (f
))
2279 XReparentWindow (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
),
2280 f
->output_data
.x
->parent_desc
, 0, 0);
2282 FRAME_X_WINDOW (f
) = XtWindow (frame_widget
);
2284 validate_x_resource_name ();
2286 class_hints
.res_name
= SSDATA (Vx_resource_name
);
2287 class_hints
.res_class
= SSDATA (Vx_resource_class
);
2288 XSetClassHint (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
), &class_hints
);
2291 FRAME_XIC (f
) = NULL
;
2293 create_frame_xic (f
);
2296 f
->output_data
.x
->wm_hints
.input
= True
;
2297 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2298 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2299 &f
->output_data
.x
->wm_hints
);
2301 hack_wm_protocols (f
, shell_widget
);
2304 XtAddEventHandler (shell_widget
, 0, True
, _XEditResCheckMessages
, 0);
2307 /* Do a stupid property change to force the server to generate a
2308 PropertyNotify event so that the event_stream server timestamp will
2309 be initialized to something relevant to the time we created the window.
2311 XChangeProperty (XtDisplay (frame_widget
), XtWindow (frame_widget
),
2312 FRAME_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
2313 XA_ATOM
, 32, PropModeAppend
, NULL
, 0);
2315 /* Make all the standard events reach the Emacs frame. */
2316 attributes
.event_mask
= STANDARD_EVENT_SET
;
2321 /* XIM server might require some X events. */
2322 unsigned long fevent
= NoEventMask
;
2323 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2324 attributes
.event_mask
|= fevent
;
2326 #endif /* HAVE_X_I18N */
2328 attribute_mask
= CWEventMask
;
2329 XChangeWindowAttributes (XtDisplay (shell_widget
), XtWindow (shell_widget
),
2330 attribute_mask
, &attributes
);
2332 XtMapWidget (frame_widget
);
2334 /* x_set_name normally ignores requests to set the name if the
2335 requested name is the same as the current name. This is the one
2336 place where that assumption isn't correct; f->name is set, but
2337 the X server hasn't been told. */
2340 int explicit = f
->explicit_name
;
2342 f
->explicit_name
= 0;
2344 fset_name (f
, Qnil
);
2345 x_set_name (f
, name
, explicit);
2348 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2349 f
->output_data
.x
->current_cursor
2350 = f
->output_data
.x
->text_cursor
);
2354 /* This is a no-op, except under Motif. Make sure main areas are
2355 set to something reasonable, in case we get an error later. */
2356 lw_set_main_areas (pane_widget
, 0, frame_widget
);
2359 #else /* not USE_X_TOOLKIT */
2362 x_window (struct frame
*f
)
2364 if (! xg_create_frame_widgets (f
))
2365 error ("Unable to create window");
2368 FRAME_XIC (f
) = NULL
;
2372 create_frame_xic (f
);
2375 /* XIM server might require some X events. */
2376 unsigned long fevent
= NoEventMask
;
2377 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2379 if (fevent
!= NoEventMask
)
2381 XSetWindowAttributes attributes
;
2382 XWindowAttributes wattr
;
2383 unsigned long attribute_mask
;
2385 XGetWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2387 attributes
.event_mask
= wattr
.your_event_mask
| fevent
;
2388 attribute_mask
= CWEventMask
;
2389 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2390 attribute_mask
, &attributes
);
2398 #else /*! USE_GTK */
2399 /* Create and set up the X window for frame F. */
2402 x_window (struct frame
*f
)
2404 XClassHint class_hints
;
2405 XSetWindowAttributes attributes
;
2406 unsigned long attribute_mask
;
2408 attributes
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
2409 attributes
.border_pixel
= f
->output_data
.x
->border_pixel
;
2410 attributes
.bit_gravity
= StaticGravity
;
2411 attributes
.backing_store
= NotUseful
;
2412 attributes
.save_under
= True
;
2413 attributes
.event_mask
= STANDARD_EVENT_SET
;
2414 attributes
.colormap
= FRAME_X_COLORMAP (f
);
2415 attribute_mask
= (CWBackPixel
| CWBorderPixel
| CWBitGravity
| CWEventMask
2420 = XCreateWindow (FRAME_X_DISPLAY (f
),
2421 f
->output_data
.x
->parent_desc
,
2424 FRAME_PIXEL_WIDTH (f
), FRAME_PIXEL_HEIGHT (f
),
2426 CopyFromParent
, /* depth */
2427 InputOutput
, /* class */
2429 attribute_mask
, &attributes
);
2434 create_frame_xic (f
);
2437 /* XIM server might require some X events. */
2438 unsigned long fevent
= NoEventMask
;
2439 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2440 attributes
.event_mask
|= fevent
;
2441 attribute_mask
= CWEventMask
;
2442 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2443 attribute_mask
, &attributes
);
2446 #endif /* HAVE_X_I18N */
2448 validate_x_resource_name ();
2450 class_hints
.res_name
= SSDATA (Vx_resource_name
);
2451 class_hints
.res_class
= SSDATA (Vx_resource_class
);
2452 XSetClassHint (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), &class_hints
);
2454 /* The menubar is part of the ordinary display;
2455 it does not count in addition to the height of the window. */
2456 f
->output_data
.x
->menubar_height
= 0;
2458 /* This indicates that we use the "Passive Input" input model.
2459 Unless we do this, we don't get the Focus{In,Out} events that we
2460 need to draw the cursor correctly. Accursed bureaucrats.
2461 XWhipsAndChains (FRAME_X_DISPLAY (f), IronMaiden, &TheRack); */
2463 f
->output_data
.x
->wm_hints
.input
= True
;
2464 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2465 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2466 &f
->output_data
.x
->wm_hints
);
2467 f
->output_data
.x
->wm_hints
.icon_pixmap
= None
;
2469 /* Request "save yourself" and "delete window" commands from wm. */
2472 protocols
[0] = FRAME_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
2473 protocols
[1] = FRAME_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
2474 XSetWMProtocols (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), protocols
, 2);
2477 /* x_set_name normally ignores requests to set the name if the
2478 requested name is the same as the current name. This is the one
2479 place where that assumption isn't correct; f->name is set, but
2480 the X server hasn't been told. */
2483 int explicit = f
->explicit_name
;
2485 f
->explicit_name
= 0;
2487 fset_name (f
, Qnil
);
2488 x_set_name (f
, name
, explicit);
2491 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2492 f
->output_data
.x
->current_cursor
2493 = f
->output_data
.x
->text_cursor
);
2497 if (FRAME_X_WINDOW (f
) == 0)
2498 error ("Unable to create window");
2501 #endif /* not USE_GTK */
2502 #endif /* not USE_X_TOOLKIT */
2504 /* Verify that the icon position args for this window are valid. */
2507 x_icon_verify (struct frame
*f
, Lisp_Object parms
)
2509 Lisp_Object icon_x
, icon_y
;
2511 /* Set the position of the icon. Note that twm groups all
2512 icons in an icon window. */
2513 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2514 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2515 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2517 CHECK_NUMBER (icon_x
);
2518 CHECK_NUMBER (icon_y
);
2520 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2521 error ("Both left and top icon corners of icon must be specified");
2524 /* Handle the icon stuff for this window. Perhaps later we might
2525 want an x_set_icon_position which can be called interactively as
2529 x_icon (struct frame
*f
, Lisp_Object parms
)
2531 Lisp_Object icon_x
, icon_y
;
2533 struct x_display_info
*dpyinfo
= FRAME_DISPLAY_INFO (f
);
2536 /* Set the position of the icon. Note that twm groups all
2537 icons in an icon window. */
2538 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2539 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2540 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2542 CHECK_TYPE_RANGED_INTEGER (int, icon_x
);
2543 CHECK_TYPE_RANGED_INTEGER (int, icon_y
);
2545 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2546 error ("Both left and top icon corners of icon must be specified");
2550 if (! EQ (icon_x
, Qunbound
))
2551 x_wm_set_icon_position (f
, XINT (icon_x
), XINT (icon_y
));
2553 #if 0 /* x_get_arg removes the visibility parameter as a side effect,
2554 but x_create_frame still needs it. */
2555 /* Start up iconic or window? */
2556 x_wm_set_window_state
2557 (f
, (EQ (x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0, RES_TYPE_SYMBOL
),
2563 x_text_icon (f
, SSDATA ((!NILP (f
->icon_name
)
2570 /* Make the GCs needed for this window, setting the
2571 background, border and mouse colors; also create the
2572 mouse cursor and the gray border tile. */
2575 x_make_gc (struct frame
*f
)
2577 XGCValues gc_values
;
2581 /* Create the GCs of this frame.
2582 Note that many default values are used. */
2584 gc_values
.foreground
= FRAME_FOREGROUND_PIXEL (f
);
2585 gc_values
.background
= FRAME_BACKGROUND_PIXEL (f
);
2586 gc_values
.line_width
= 0; /* Means 1 using fast algorithm. */
2587 f
->output_data
.x
->normal_gc
2588 = XCreateGC (FRAME_X_DISPLAY (f
),
2590 GCLineWidth
| GCForeground
| GCBackground
,
2593 /* Reverse video style. */
2594 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2595 gc_values
.background
= FRAME_FOREGROUND_PIXEL (f
);
2596 f
->output_data
.x
->reverse_gc
2597 = XCreateGC (FRAME_X_DISPLAY (f
),
2599 GCForeground
| GCBackground
| GCLineWidth
,
2602 /* Cursor has cursor-color background, background-color foreground. */
2603 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2604 gc_values
.background
= f
->output_data
.x
->cursor_pixel
;
2605 gc_values
.fill_style
= FillOpaqueStippled
;
2606 f
->output_data
.x
->cursor_gc
2607 = XCreateGC (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2608 (GCForeground
| GCBackground
2609 | GCFillStyle
| GCLineWidth
),
2612 /* Create the gray border tile used when the pointer is not in
2613 the frame. Since this depends on the frame's pixel values,
2614 this must be done on a per-frame basis. */
2615 f
->output_data
.x
->border_tile
2616 = (XCreatePixmapFromBitmapData
2617 (FRAME_X_DISPLAY (f
), FRAME_DISPLAY_INFO (f
)->root_window
,
2618 gray_bits
, gray_width
, gray_height
,
2619 FRAME_FOREGROUND_PIXEL (f
),
2620 FRAME_BACKGROUND_PIXEL (f
),
2621 DefaultDepth (FRAME_X_DISPLAY (f
), FRAME_X_SCREEN_NUMBER (f
))));
2627 /* Free what was allocated in x_make_gc. */
2630 x_free_gcs (struct frame
*f
)
2632 Display
*dpy
= FRAME_X_DISPLAY (f
);
2636 if (f
->output_data
.x
->normal_gc
)
2638 XFreeGC (dpy
, f
->output_data
.x
->normal_gc
);
2639 f
->output_data
.x
->normal_gc
= 0;
2642 if (f
->output_data
.x
->reverse_gc
)
2644 XFreeGC (dpy
, f
->output_data
.x
->reverse_gc
);
2645 f
->output_data
.x
->reverse_gc
= 0;
2648 if (f
->output_data
.x
->cursor_gc
)
2650 XFreeGC (dpy
, f
->output_data
.x
->cursor_gc
);
2651 f
->output_data
.x
->cursor_gc
= 0;
2654 if (f
->output_data
.x
->border_tile
)
2656 XFreePixmap (dpy
, f
->output_data
.x
->border_tile
);
2657 f
->output_data
.x
->border_tile
= 0;
2664 /* Handler for signals raised during x_create_frame and
2665 x_create_tip_frame. FRAME is the frame which is partially
2669 unwind_create_frame (Lisp_Object frame
)
2671 struct frame
*f
= XFRAME (frame
);
2673 /* If frame is already dead, nothing to do. This can happen if the
2674 display is disconnected after the frame has become official, but
2675 before x_create_frame removes the unwind protect. */
2676 if (!FRAME_LIVE_P (f
))
2679 /* If frame is ``official'', nothing to do. */
2680 if (NILP (Fmemq (frame
, Vframe_list
)))
2682 #if defined GLYPH_DEBUG && defined ENABLE_CHECKING
2683 struct x_display_info
*dpyinfo
= FRAME_DISPLAY_INFO (f
);
2686 x_free_frame_resources (f
);
2689 #if defined GLYPH_DEBUG && defined ENABLE_CHECKING
2690 /* Check that reference counts are indeed correct. */
2691 eassert (dpyinfo
->reference_count
== dpyinfo_refcount
);
2692 eassert (dpyinfo
->terminal
->image_cache
->refcount
== image_cache_refcount
);
2701 do_unwind_create_frame (Lisp_Object frame
)
2703 unwind_create_frame (frame
);
2707 unwind_create_frame_1 (Lisp_Object val
)
2709 inhibit_lisp_code
= val
;
2713 x_default_font_parameter (struct frame
*f
, Lisp_Object parms
)
2715 struct x_display_info
*dpyinfo
= FRAME_DISPLAY_INFO (f
);
2716 Lisp_Object font_param
= x_get_arg (dpyinfo
, parms
, Qfont
, NULL
, NULL
,
2718 Lisp_Object font
= Qnil
;
2719 if (EQ (font_param
, Qunbound
))
2722 if (NILP (font_param
))
2724 /* System font should take precedence over X resources. We suggest this
2725 regardless of font-use-system-font because .emacs may not have been
2727 const char *system_font
= xsettings_get_system_font ();
2729 font
= font_open_by_name (f
, build_unibyte_string (system_font
));
2733 font
= !NILP (font_param
) ? font_param
2734 : x_get_arg (dpyinfo
, parms
, Qfont
, "font", "Font", RES_TYPE_STRING
);
2736 if (! FONTP (font
) && ! STRINGP (font
))
2741 /* This will find the normal Xft font. */
2744 "-adobe-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-1",
2745 "-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-1",
2746 "-*-*-medium-r-normal-*-*-140-*-*-c-*-iso8859-1",
2747 /* This was formerly the first thing tried, but it finds
2748 too many fonts and takes too long. */
2749 "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1",
2750 /* If those didn't work, look for something which will
2752 "-*-fixed-*-*-*-*-*-140-*-*-c-*-iso8859-1",
2757 for (i
= 0; names
[i
]; i
++)
2759 font
= font_open_by_name (f
, build_unibyte_string (names
[i
]));
2764 error ("No suitable font was found");
2766 else if (!NILP (font_param
))
2768 /* Remember the explicit font parameter, so we can re-apply it after
2769 we've applied the `default' face settings. */
2770 x_set_frame_parameters (f
, list1 (Fcons (Qfont_param
, font_param
)));
2773 /* This call will make X resources override any system font setting. */
2774 x_default_parameter (f
, parms
, Qfont
, font
, "font", "Font", RES_TYPE_STRING
);
2778 DEFUN ("x-wm-set-size-hint", Fx_wm_set_size_hint
, Sx_wm_set_size_hint
,
2780 doc
: /* Send the size hints for frame FRAME to the window manager.
2781 If FRAME is omitted or nil, use the selected frame.
2782 Signal error if FRAME is not an X frame. */)
2785 struct frame
*f
= decode_window_system_frame (frame
);
2788 x_wm_set_size_hint (f
, 0, 0);
2794 set_machine_and_pid_properties (struct frame
*f
)
2796 long pid
= (long) getpid ();
2798 /* This will set WM_CLIENT_MACHINE and WM_LOCALE_NAME. */
2799 XSetWMProperties (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), NULL
, NULL
,
2800 NULL
, 0, NULL
, NULL
, NULL
);
2801 XChangeProperty (FRAME_X_DISPLAY (f
),
2802 FRAME_OUTER_WINDOW (f
),
2803 XInternAtom (FRAME_X_DISPLAY (f
),
2806 XA_CARDINAL
, 32, PropModeReplace
,
2807 (unsigned char *) &pid
, 1);
2810 DEFUN ("x-create-frame", Fx_create_frame
, Sx_create_frame
,
2812 doc
: /* Make a new X window, which is called a "frame" in Emacs terms.
2813 Return an Emacs frame object.
2814 PARMS is an alist of frame parameters.
2815 If the parameters specify that the frame should not have a minibuffer,
2816 and do not specify a specific minibuffer window to use,
2817 then `default-minibuffer-frame' must be a frame whose minibuffer can
2818 be shared by the new frame.
2820 This function is an internal primitive--use `make-frame' instead. */)
2824 Lisp_Object frame
, tem
;
2826 int minibuffer_only
= 0;
2827 long window_prompting
= 0;
2829 ptrdiff_t count
= SPECPDL_INDEX ();
2830 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
2831 Lisp_Object display
;
2832 struct x_display_info
*dpyinfo
= NULL
;
2836 parms
= Fcopy_alist (parms
);
2838 /* Use this general default value to start with
2839 until we know if this frame has a specified name. */
2840 Vx_resource_name
= Vinvocation_name
;
2842 display
= x_get_arg (dpyinfo
, parms
, Qterminal
, 0, 0, RES_TYPE_NUMBER
);
2843 if (EQ (display
, Qunbound
))
2844 display
= x_get_arg (dpyinfo
, parms
, Qdisplay
, 0, 0, RES_TYPE_STRING
);
2845 if (EQ (display
, Qunbound
))
2847 dpyinfo
= check_x_display_info (display
);
2848 kb
= dpyinfo
->terminal
->kboard
;
2850 if (!dpyinfo
->terminal
->name
)
2851 error ("Terminal is not live, can't create new frames on it");
2853 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
2855 && ! EQ (name
, Qunbound
)
2857 error ("Invalid frame name--not a string or nil");
2860 Vx_resource_name
= name
;
2862 /* See if parent window is specified. */
2863 parent
= x_get_arg (dpyinfo
, parms
, Qparent_id
, NULL
, NULL
, RES_TYPE_NUMBER
);
2864 if (EQ (parent
, Qunbound
))
2866 if (! NILP (parent
))
2867 CHECK_NUMBER (parent
);
2869 /* make_frame_without_minibuffer can run Lisp code and garbage collect. */
2870 /* No need to protect DISPLAY because that's not used after passing
2871 it to make_frame_without_minibuffer. */
2873 GCPRO4 (parms
, parent
, name
, frame
);
2874 tem
= x_get_arg (dpyinfo
, parms
, Qminibuffer
, "minibuffer", "Minibuffer",
2876 if (EQ (tem
, Qnone
) || NILP (tem
))
2877 f
= make_frame_without_minibuffer (Qnil
, kb
, display
);
2878 else if (EQ (tem
, Qonly
))
2880 f
= make_minibuffer_frame ();
2881 minibuffer_only
= 1;
2883 else if (WINDOWP (tem
))
2884 f
= make_frame_without_minibuffer (tem
, kb
, display
);
2888 XSETFRAME (frame
, f
);
2890 f
->terminal
= dpyinfo
->terminal
;
2892 f
->output_method
= output_x_window
;
2893 f
->output_data
.x
= xzalloc (sizeof *f
->output_data
.x
);
2894 f
->output_data
.x
->icon_bitmap
= -1;
2895 FRAME_FONTSET (f
) = -1;
2896 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
2897 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
2898 #ifdef USE_TOOLKIT_SCROLL_BARS
2899 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
2900 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
2901 #endif /* USE_TOOLKIT_SCROLL_BARS */
2902 f
->output_data
.x
->white_relief
.pixel
= -1;
2903 f
->output_data
.x
->black_relief
.pixel
= -1;
2906 x_get_arg (dpyinfo
, parms
, Qicon_name
, "iconName", "Title",
2908 if (! STRINGP (f
->icon_name
))
2909 fset_icon_name (f
, Qnil
);
2911 FRAME_DISPLAY_INFO (f
) = dpyinfo
;
2913 /* With FRAME_DISPLAY_INFO set up, this unwind-protect is safe. */
2914 record_unwind_protect (do_unwind_create_frame
, frame
);
2916 /* These colors will be set anyway later, but it's important
2917 to get the color reference counts right, so initialize them! */
2920 struct gcpro gcpro1
;
2922 /* Function x_decode_color can signal an error. Make
2923 sure to initialize color slots so that we won't try
2924 to free colors we haven't allocated. */
2925 FRAME_FOREGROUND_PIXEL (f
) = -1;
2926 FRAME_BACKGROUND_PIXEL (f
) = -1;
2927 f
->output_data
.x
->cursor_pixel
= -1;
2928 f
->output_data
.x
->cursor_foreground_pixel
= -1;
2929 f
->output_data
.x
->border_pixel
= -1;
2930 f
->output_data
.x
->mouse_pixel
= -1;
2932 black
= build_string ("black");
2934 FRAME_FOREGROUND_PIXEL (f
)
2935 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
2936 FRAME_BACKGROUND_PIXEL (f
)
2937 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
2938 f
->output_data
.x
->cursor_pixel
2939 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
2940 f
->output_data
.x
->cursor_foreground_pixel
2941 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
2942 f
->output_data
.x
->border_pixel
2943 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
2944 f
->output_data
.x
->mouse_pixel
2945 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
2949 /* Specify the parent under which to make this X window. */
2953 f
->output_data
.x
->parent_desc
= (Window
) XFASTINT (parent
);
2954 f
->output_data
.x
->explicit_parent
= 1;
2958 f
->output_data
.x
->parent_desc
= FRAME_DISPLAY_INFO (f
)->root_window
;
2959 f
->output_data
.x
->explicit_parent
= 0;
2962 /* Set the name; the functions to which we pass f expect the name to
2964 if (EQ (name
, Qunbound
) || NILP (name
))
2966 fset_name (f
, build_string (dpyinfo
->x_id_name
));
2967 f
->explicit_name
= 0;
2971 fset_name (f
, name
);
2972 f
->explicit_name
= 1;
2973 /* use the frame's title when getting resources for this frame. */
2974 specbind (Qx_resource_name
, name
);
2977 #ifdef HAVE_FREETYPE
2979 register_font_driver (&xftfont_driver
, f
);
2980 #else /* not HAVE_XFT */
2981 register_font_driver (&ftxfont_driver
, f
);
2982 #endif /* not HAVE_XFT */
2983 #endif /* HAVE_FREETYPE */
2984 register_font_driver (&xfont_driver
, f
);
2986 x_default_parameter (f
, parms
, Qfont_backend
, Qnil
,
2987 "fontBackend", "FontBackend", RES_TYPE_STRING
);
2989 /* Extract the window parameters from the supplied values
2990 that are needed to determine window geometry. */
2991 x_default_font_parameter (f
, parms
);
2992 if (!FRAME_FONT (f
))
2994 delete_frame (frame
, Qnoelisp
);
2995 error ("Invalid frame font");
2998 /* Frame contents get displaced if an embedded X window has a border. */
2999 if (! FRAME_X_EMBEDDED_P (f
))
3000 x_default_parameter (f
, parms
, Qborder_width
, make_number (0),
3001 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
3003 /* This defaults to 1 in order to match xterm. We recognize either
3004 internalBorderWidth or internalBorder (which is what xterm calls
3006 if (NILP (Fassq (Qinternal_border_width
, parms
)))
3010 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
3011 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
3012 if (! EQ (value
, Qunbound
))
3013 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
3016 x_default_parameter (f
, parms
, Qinternal_border_width
,
3017 #ifdef USE_GTK /* We used to impose 0 in xg_create_frame_widgets. */
3022 "internalBorderWidth", "internalBorderWidth",
3024 x_default_parameter (f
, parms
, Qvertical_scroll_bars
,
3025 #if defined (USE_GTK) && defined (USE_TOOLKIT_SCROLL_BARS)
3030 "verticalScrollBars", "ScrollBars",
3033 /* Also do the stuff which must be set before the window exists. */
3034 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
3035 "foreground", "Foreground", RES_TYPE_STRING
);
3036 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
3037 "background", "Background", RES_TYPE_STRING
);
3038 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
3039 "pointerColor", "Foreground", RES_TYPE_STRING
);
3040 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
3041 "borderColor", "BorderColor", RES_TYPE_STRING
);
3042 x_default_parameter (f
, parms
, Qscreen_gamma
, Qnil
,
3043 "screenGamma", "ScreenGamma", RES_TYPE_FLOAT
);
3044 x_default_parameter (f
, parms
, Qline_spacing
, Qnil
,
3045 "lineSpacing", "LineSpacing", RES_TYPE_NUMBER
);
3046 x_default_parameter (f
, parms
, Qleft_fringe
, Qnil
,
3047 "leftFringe", "LeftFringe", RES_TYPE_NUMBER
);
3048 x_default_parameter (f
, parms
, Qright_fringe
, Qnil
,
3049 "rightFringe", "RightFringe", RES_TYPE_NUMBER
);
3051 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_foreground
,
3052 "scrollBarForeground",
3053 "ScrollBarForeground", 1);
3054 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_background
,
3055 "scrollBarBackground",
3056 "ScrollBarBackground", 0);
3059 image_cache_refcount
=
3060 FRAME_IMAGE_CACHE (f
) ? FRAME_IMAGE_CACHE (f
)->refcount
: 0;
3061 dpyinfo_refcount
= dpyinfo
->reference_count
;
3062 #endif /* GLYPH_DEBUG */
3064 /* Init faces before x_default_parameter is called for scroll-bar
3065 parameters because that function calls x_set_scroll_bar_width,
3066 which calls change_frame_size, which calls Fset_window_buffer,
3067 which runs hooks, which call Fvertical_motion. At the end, we
3068 end up in init_iterator with a null face cache, which should not
3070 init_frame_faces (f
);
3073 /* PXW: This is a duplicate from below. We have to do it here since
3074 otherwise x_set_tool_bar_lines will work with the character sizes
3075 installed by init_frame_faces while the frame's pixel size is still
3076 calculated from a character size of 1 and we subsequently hit the
3077 eassert (height >= 0) assertion in window_box_height. The
3078 non-pixelwise code apparently worked around this because it had one
3079 frame line vs one toolbar line which left us with a zero root
3080 window height which was obviously wrong as well ... */
3081 width
= FRAME_TEXT_WIDTH (f
);
3082 height
= FRAME_TEXT_HEIGHT (f
);
3083 FRAME_TEXT_HEIGHT (f
) = 0;
3084 SET_FRAME_WIDTH (f
, 0);
3085 change_frame_size (f
, width
, height
, 1, 0, 0, 1);
3086 #endif /* USE_GTK */
3088 /* Set the menu-bar-lines and tool-bar-lines parameters. We don't
3089 look up the X resources controlling the menu-bar and tool-bar
3090 here; they are processed specially at startup, and reflected in
3091 the values of the mode variables.
3093 Avoid calling window-configuration-change-hook; otherwise we
3094 could get an infloop in next_frame since the frame is not yet in
3097 ptrdiff_t count2
= SPECPDL_INDEX ();
3098 record_unwind_protect (unwind_create_frame_1
, inhibit_lisp_code
);
3099 inhibit_lisp_code
= Qt
;
3101 x_default_parameter (f
, parms
, Qmenu_bar_lines
,
3102 NILP (Vmenu_bar_mode
)
3103 ? make_number (0) : make_number (1),
3104 NULL
, NULL
, RES_TYPE_NUMBER
);
3105 x_default_parameter (f
, parms
, Qtool_bar_lines
,
3106 NILP (Vtool_bar_mode
)
3107 ? make_number (0) : make_number (1),
3108 NULL
, NULL
, RES_TYPE_NUMBER
);
3110 unbind_to (count2
, Qnil
);
3113 x_default_parameter (f
, parms
, Qbuffer_predicate
, Qnil
,
3114 "bufferPredicate", "BufferPredicate",
3116 x_default_parameter (f
, parms
, Qtitle
, Qnil
,
3117 "title", "Title", RES_TYPE_STRING
);
3118 x_default_parameter (f
, parms
, Qwait_for_wm
, Qt
,
3119 "waitForWM", "WaitForWM", RES_TYPE_BOOLEAN
);
3120 x_default_parameter (f
, parms
, Qfullscreen
, Qnil
,
3121 "fullscreen", "Fullscreen", RES_TYPE_SYMBOL
);
3122 x_default_parameter (f
, parms
, Qtool_bar_position
,
3123 f
->tool_bar_position
, 0, 0, RES_TYPE_SYMBOL
);
3125 /* Compute the size of the X window. */
3126 window_prompting
= x_figure_window_size (f
, parms
, 1);
3128 tem
= x_get_arg (dpyinfo
, parms
, Qunsplittable
, 0, 0, RES_TYPE_BOOLEAN
);
3129 f
->no_split
= minibuffer_only
|| EQ (tem
, Qt
);
3131 x_icon_verify (f
, parms
);
3133 /* Create the X widget or window. */
3134 #ifdef USE_X_TOOLKIT
3135 x_window (f
, window_prompting
, minibuffer_only
);
3143 /* Now consider the frame official. */
3144 f
->terminal
->reference_count
++;
3145 FRAME_DISPLAY_INFO (f
)->reference_count
++;
3146 Vframe_list
= Fcons (frame
, Vframe_list
);
3148 /* We need to do this after creating the X window, so that the
3149 icon-creation functions can say whose icon they're describing. */
3150 x_default_parameter (f
, parms
, Qicon_type
, Qt
,
3151 "bitmapIcon", "BitmapIcon", RES_TYPE_BOOLEAN
);
3153 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
3154 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3155 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
3156 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3157 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
3158 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
3159 x_default_parameter (f
, parms
, Qscroll_bar_width
, Qnil
,
3160 "scrollBarWidth", "ScrollBarWidth",
3162 x_default_parameter (f
, parms
, Qalpha
, Qnil
,
3163 "alpha", "Alpha", RES_TYPE_NUMBER
);
3165 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
3166 Change will not be effected unless different from the current
3168 width
= FRAME_TEXT_WIDTH (f
);
3169 height
= FRAME_TEXT_HEIGHT (f
);
3170 FRAME_TEXT_HEIGHT (f
) = 0;
3171 SET_FRAME_WIDTH (f
, 0);
3172 change_frame_size (f
, width
, height
, 1, 0, 0, 1);
3174 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
3175 /* Create the menu bar. */
3176 if (!minibuffer_only
&& FRAME_EXTERNAL_MENU_BAR (f
))
3178 /* If this signals an error, we haven't set size hints for the
3179 frame and we didn't make it visible. */
3180 initialize_frame_menubar (f
);
3183 /* This is a no-op, except under Motif where it arranges the
3184 main window for the widgets on it. */
3185 lw_set_main_areas (f
->output_data
.x
->column_widget
,
3186 f
->output_data
.x
->menubar_widget
,
3187 f
->output_data
.x
->edit_widget
);
3188 #endif /* not USE_GTK */
3190 #endif /* USE_X_TOOLKIT || USE_GTK */
3192 /* Tell the server what size and position, etc, we want, and how
3193 badly we want them. This should be done after we have the menu
3194 bar so that its size can be taken into account. */
3196 x_wm_set_size_hint (f
, window_prompting
, 0);
3199 /* Make the window appear on the frame and enable display, unless
3200 the caller says not to. However, with explicit parent, Emacs
3201 cannot control visibility, so don't try. */
3202 if (! f
->output_data
.x
->explicit_parent
)
3204 Lisp_Object visibility
;
3206 visibility
= x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0,
3208 if (EQ (visibility
, Qunbound
))
3211 if (EQ (visibility
, Qicon
))
3212 x_iconify_frame (f
);
3213 else if (! NILP (visibility
))
3214 x_make_frame_visible (f
);
3217 /* Must have been Qnil. */
3223 /* Set machine name and pid for the purpose of window managers. */
3224 set_machine_and_pid_properties (f
);
3226 /* Set the WM leader property. GTK does this itself, so this is not
3227 needed when using GTK. */
3228 if (dpyinfo
->client_leader_window
!= 0)
3230 XChangeProperty (FRAME_X_DISPLAY (f
),
3231 FRAME_OUTER_WINDOW (f
),
3232 dpyinfo
->Xatom_wm_client_leader
,
3233 XA_WINDOW
, 32, PropModeReplace
,
3234 (unsigned char *) &dpyinfo
->client_leader_window
, 1);
3239 /* Initialize `default-minibuffer-frame' in case this is the first
3240 frame on this terminal. */
3241 if (FRAME_HAS_MINIBUF_P (f
)
3242 && (!FRAMEP (KVAR (kb
, Vdefault_minibuffer_frame
))
3243 || !FRAME_LIVE_P (XFRAME (KVAR (kb
, Vdefault_minibuffer_frame
)))))
3244 kset_default_minibuffer_frame (kb
, frame
);
3246 /* All remaining specified parameters, which have not been "used"
3247 by x_get_arg and friends, now go in the misc. alist of the frame. */
3248 for (tem
= parms
; CONSP (tem
); tem
= XCDR (tem
))
3249 if (CONSP (XCAR (tem
)) && !NILP (XCAR (XCAR (tem
))))
3250 fset_param_alist (f
, Fcons (XCAR (tem
), f
->param_alist
));
3254 /* Make sure windows on this frame appear in calls to next-window
3255 and similar functions. */
3256 Vwindow_list
= Qnil
;
3258 return unbind_to (count
, frame
);
3262 /* FRAME is used only to get a handle on the X display. We don't pass the
3263 display info directly because we're called from frame.c, which doesn't
3264 know about that structure. */
3267 x_get_focus_frame (struct frame
*frame
)
3269 struct x_display_info
*dpyinfo
= FRAME_DISPLAY_INFO (frame
);
3271 if (! dpyinfo
->x_focus_frame
)
3274 XSETFRAME (xfocus
, dpyinfo
->x_focus_frame
);
3279 /* In certain situations, when the window manager follows a
3280 click-to-focus policy, there seems to be no way around calling
3281 XSetInputFocus to give another frame the input focus .
3283 In an ideal world, XSetInputFocus should generally be avoided so
3284 that applications don't interfere with the window manager's focus
3285 policy. But I think it's okay to use when it's clearly done
3286 following a user-command. */
3289 x_focus_frame (struct frame
*f
)
3291 Display
*dpy
= FRAME_X_DISPLAY (f
);
3294 x_catch_errors (dpy
);
3296 if (FRAME_X_EMBEDDED_P (f
))
3298 /* For Xembedded frames, normally the embedder forwards key
3299 events. See XEmbed Protocol Specification at
3300 http://freedesktop.org/wiki/Specifications/xembed-spec */
3301 xembed_request_focus (f
);
3305 XSetInputFocus (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
3306 RevertToParent
, CurrentTime
);
3307 x_ewmh_activate_frame (f
);
3310 x_uncatch_errors ();
3315 DEFUN ("xw-color-defined-p", Fxw_color_defined_p
, Sxw_color_defined_p
, 1, 2, 0,
3316 doc
: /* Internal function called by `color-defined-p', which see
3317 .\(Note that the Nextstep version of this function ignores FRAME.) */)
3318 (Lisp_Object color
, Lisp_Object frame
)
3321 struct frame
*f
= decode_window_system_frame (frame
);
3323 CHECK_STRING (color
);
3325 if (x_defined_color (f
, SSDATA (color
), &foo
, 0))
3331 DEFUN ("xw-color-values", Fxw_color_values
, Sxw_color_values
, 1, 2, 0,
3332 doc
: /* Internal function called by `color-values', which see. */)
3333 (Lisp_Object color
, Lisp_Object frame
)
3336 struct frame
*f
= decode_window_system_frame (frame
);
3338 CHECK_STRING (color
);
3340 if (x_defined_color (f
, SSDATA (color
), &foo
, 0))
3341 return list3i (foo
.red
, foo
.green
, foo
.blue
);
3346 DEFUN ("xw-display-color-p", Fxw_display_color_p
, Sxw_display_color_p
, 0, 1, 0,
3347 doc
: /* Internal function called by `display-color-p', which see. */)
3348 (Lisp_Object terminal
)
3350 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3352 if (dpyinfo
->n_planes
<= 2)
3355 switch (dpyinfo
->visual
->class)
3368 DEFUN ("x-display-grayscale-p", Fx_display_grayscale_p
, Sx_display_grayscale_p
,
3370 doc
: /* Return t if the X display supports shades of gray.
3371 Note that color displays do support shades of gray.
3372 The optional argument TERMINAL specifies which display to ask about.
3373 TERMINAL should be a terminal object, a frame or a display name (a string).
3374 If omitted or nil, that stands for the selected frame's display. */)
3375 (Lisp_Object terminal
)
3377 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3379 if (dpyinfo
->n_planes
<= 1)
3382 switch (dpyinfo
->visual
->class)
3397 DEFUN ("x-display-pixel-width", Fx_display_pixel_width
, Sx_display_pixel_width
,
3399 doc
: /* Return the width in pixels of the X display TERMINAL.
3400 The optional argument TERMINAL specifies which display to ask about.
3401 TERMINAL should be a terminal object, a frame or a display name (a string).
3402 If omitted or nil, that stands for the selected frame's display.
3404 On \"multi-monitor\" setups this refers to the pixel width for all
3405 physical monitors associated with TERMINAL. To get information for
3406 each physical monitor, use `display-monitor-attributes-list'. */)
3407 (Lisp_Object terminal
)
3409 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3411 return make_number (x_display_pixel_width (dpyinfo
));
3414 DEFUN ("x-display-pixel-height", Fx_display_pixel_height
,
3415 Sx_display_pixel_height
, 0, 1, 0,
3416 doc
: /* Return the height in pixels of the X display TERMINAL.
3417 The optional argument TERMINAL specifies which display to ask about.
3418 TERMINAL should be a terminal object, a frame or a display name (a string).
3419 If omitted or nil, that stands for the selected frame's display.
3421 On \"multi-monitor\" setups this refers to the pixel height for all
3422 physical monitors associated with TERMINAL. To get information for
3423 each physical monitor, use `display-monitor-attributes-list'. */)
3424 (Lisp_Object terminal
)
3426 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3428 return make_number (x_display_pixel_height (dpyinfo
));
3431 DEFUN ("x-display-planes", Fx_display_planes
, Sx_display_planes
,
3433 doc
: /* Return the number of bitplanes of the X display TERMINAL.
3434 The optional argument TERMINAL specifies which display to ask about.
3435 TERMINAL should be a terminal object, a frame or a display name (a string).
3436 If omitted or nil, that stands for the selected frame's display. */)
3437 (Lisp_Object terminal
)
3439 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3441 return make_number (dpyinfo
->n_planes
);
3444 DEFUN ("x-display-color-cells", Fx_display_color_cells
, Sx_display_color_cells
,
3446 doc
: /* Return the number of color cells of the X display TERMINAL.
3447 The optional argument TERMINAL specifies which display to ask about.
3448 TERMINAL should be a terminal object, a frame or a display name (a string).
3449 If omitted or nil, that stands for the selected frame's display. */)
3450 (Lisp_Object terminal
)
3452 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3454 int nr_planes
= DisplayPlanes (dpyinfo
->display
,
3455 XScreenNumberOfScreen (dpyinfo
->screen
));
3457 /* Truncate nr_planes to 24 to avoid integer overflow.
3458 Some displays says 32, but only 24 bits are actually significant.
3459 There are only very few and rare video cards that have more than
3460 24 significant bits. Also 24 bits is more than 16 million colors,
3461 it "should be enough for everyone". */
3462 if (nr_planes
> 24) nr_planes
= 24;
3464 return make_number (1 << nr_planes
);
3467 DEFUN ("x-server-max-request-size", Fx_server_max_request_size
,
3468 Sx_server_max_request_size
,
3470 doc
: /* Return the maximum request size of the X server of display TERMINAL.
3471 The optional argument TERMINAL specifies which display to ask about.
3472 TERMINAL should be a terminal object, a frame or a display name (a string).
3473 If omitted or nil, that stands for the selected frame's display. */)
3474 (Lisp_Object terminal
)
3476 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3478 return make_number (MAXREQUEST (dpyinfo
->display
));
3481 DEFUN ("x-server-vendor", Fx_server_vendor
, Sx_server_vendor
, 0, 1, 0,
3482 doc
: /* Return the "vendor ID" string of the X server of display TERMINAL.
3483 \(Labeling every distributor as a "vendor" embodies the false assumption
3484 that operating systems cannot be developed and distributed noncommercially.)
3485 The optional argument TERMINAL specifies which display to ask about.
3486 TERMINAL should be a terminal object, a frame or a display name (a string).
3487 If omitted or nil, that stands for the selected frame's display. */)
3488 (Lisp_Object terminal
)
3490 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3491 const char *vendor
= ServerVendor (dpyinfo
->display
);
3493 if (! vendor
) vendor
= "";
3494 return build_string (vendor
);
3497 DEFUN ("x-server-version", Fx_server_version
, Sx_server_version
, 0, 1, 0,
3498 doc
: /* Return the version numbers of the X server of display TERMINAL.
3499 The value is a list of three integers: the major and minor
3500 version numbers of the X Protocol in use, and the distributor-specific release
3501 number. See also the function `x-server-vendor'.
3503 The optional argument TERMINAL specifies which display to ask about.
3504 TERMINAL should be a terminal object, a frame or a display name (a string).
3505 If omitted or nil, that stands for the selected frame's display. */)
3506 (Lisp_Object terminal
)
3508 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3509 Display
*dpy
= dpyinfo
->display
;
3511 return list3i (ProtocolVersion (dpy
), ProtocolRevision (dpy
),
3512 VendorRelease (dpy
));
3515 DEFUN ("x-display-screens", Fx_display_screens
, Sx_display_screens
, 0, 1, 0,
3516 doc
: /* Return the number of screens on the X server of display TERMINAL.
3517 The optional argument TERMINAL specifies which display to ask about.
3518 TERMINAL should be a terminal object, a frame or a display name (a string).
3519 If omitted or nil, that stands for the selected frame's display. */)
3520 (Lisp_Object terminal
)
3522 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3524 return make_number (ScreenCount (dpyinfo
->display
));
3527 DEFUN ("x-display-mm-height", Fx_display_mm_height
, Sx_display_mm_height
, 0, 1, 0,
3528 doc
: /* Return the height in millimeters of the X display TERMINAL.
3529 The optional argument TERMINAL specifies which display to ask about.
3530 TERMINAL should be a terminal object, a frame or a display name (a string).
3531 If omitted or nil, that stands for the selected frame's display.
3533 On \"multi-monitor\" setups this refers to the height in millimeters for
3534 all physical monitors associated with TERMINAL. To get information
3535 for each physical monitor, use `display-monitor-attributes-list'. */)
3536 (Lisp_Object terminal
)
3538 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3540 return make_number (HeightMMOfScreen (dpyinfo
->screen
));
3543 DEFUN ("x-display-mm-width", Fx_display_mm_width
, Sx_display_mm_width
, 0, 1, 0,
3544 doc
: /* Return the width in millimeters of the X display TERMINAL.
3545 The optional argument TERMINAL specifies which display to ask about.
3546 TERMINAL should be a terminal object, a frame or a display name (a string).
3547 If omitted or nil, that stands for the selected frame's display.
3549 On \"multi-monitor\" setups this refers to the width in millimeters for
3550 all physical monitors associated with TERMINAL. To get information
3551 for each physical monitor, use `display-monitor-attributes-list'. */)
3552 (Lisp_Object terminal
)
3554 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3556 return make_number (WidthMMOfScreen (dpyinfo
->screen
));
3559 DEFUN ("x-display-backing-store", Fx_display_backing_store
,
3560 Sx_display_backing_store
, 0, 1, 0,
3561 doc
: /* Return an indication of whether X display TERMINAL does backing store.
3562 The value may be `always', `when-mapped', or `not-useful'.
3563 The optional argument TERMINAL specifies which display to ask about.
3564 TERMINAL should be a terminal object, a frame or a display name (a string).
3565 If omitted or nil, that stands for the selected frame's display. */)
3566 (Lisp_Object terminal
)
3568 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3571 switch (DoesBackingStore (dpyinfo
->screen
))
3574 result
= intern ("always");
3578 result
= intern ("when-mapped");
3582 result
= intern ("not-useful");
3586 error ("Strange value for BackingStore parameter of screen");
3592 DEFUN ("x-display-visual-class", Fx_display_visual_class
,
3593 Sx_display_visual_class
, 0, 1, 0,
3594 doc
: /* Return the visual class of the X display TERMINAL.
3595 The value is one of the symbols `static-gray', `gray-scale',
3596 `static-color', `pseudo-color', `true-color', or `direct-color'.
3598 The optional argument TERMINAL specifies which display to ask about.
3599 TERMINAL should a terminal object, a frame or a display name (a string).
3600 If omitted or nil, that stands for the selected frame's display. */)
3601 (Lisp_Object terminal
)
3603 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3606 switch (dpyinfo
->visual
->class)
3609 result
= intern ("static-gray");
3612 result
= intern ("gray-scale");
3615 result
= intern ("static-color");
3618 result
= intern ("pseudo-color");
3621 result
= intern ("true-color");
3624 result
= intern ("direct-color");
3627 error ("Display has an unknown visual class");
3633 DEFUN ("x-display-save-under", Fx_display_save_under
,
3634 Sx_display_save_under
, 0, 1, 0,
3635 doc
: /* Return t if the X display TERMINAL supports the save-under feature.
3636 The optional argument TERMINAL specifies which display to ask about.
3637 TERMINAL should be a terminal object, a frame or a display name (a string).
3638 If omitted or nil, that stands for the selected frame's display. */)
3639 (Lisp_Object terminal
)
3641 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3643 if (DoesSaveUnders (dpyinfo
->screen
) == True
)
3649 /* Store the geometry of the workarea on display DPYINFO into *RECT.
3650 Return false if and only if the workarea information cannot be
3651 obtained via the _NET_WORKAREA root window property. */
3653 #if ! GTK_CHECK_VERSION (3, 4, 0)
3655 x_get_net_workarea (struct x_display_info
*dpyinfo
, XRectangle
*rect
)
3657 Display
*dpy
= dpyinfo
->display
;
3658 long offset
, max_len
;
3659 Atom target_type
, actual_type
;
3660 unsigned long actual_size
, bytes_remaining
;
3661 int rc
, actual_format
;
3662 unsigned char *tmp_data
= NULL
;
3663 bool result
= false;
3665 x_catch_errors (dpy
);
3668 target_type
= XA_CARDINAL
;
3669 rc
= XGetWindowProperty (dpy
, dpyinfo
->root_window
,
3670 dpyinfo
->Xatom_net_current_desktop
,
3671 offset
, max_len
, False
, target_type
,
3672 &actual_type
, &actual_format
, &actual_size
,
3673 &bytes_remaining
, &tmp_data
);
3674 if (rc
== Success
&& actual_type
== target_type
&& !x_had_errors_p (dpy
)
3675 && actual_format
== 32 && actual_size
== max_len
)
3677 long current_desktop
= ((long *) tmp_data
)[0];
3682 offset
= 4 * current_desktop
;
3684 rc
= XGetWindowProperty (dpy
, dpyinfo
->root_window
,
3685 dpyinfo
->Xatom_net_workarea
,
3686 offset
, max_len
, False
, target_type
,
3687 &actual_type
, &actual_format
, &actual_size
,
3688 &bytes_remaining
, &tmp_data
);
3689 if (rc
== Success
&& actual_type
== target_type
&& !x_had_errors_p (dpy
)
3690 && actual_format
== 32 && actual_size
== max_len
)
3692 long *values
= (long *) tmp_data
;
3694 rect
->x
= values
[0];
3695 rect
->y
= values
[1];
3696 rect
->width
= values
[2];
3697 rect
->height
= values
[3];
3707 x_uncatch_errors ();
3715 /* Return monitor number where F is "most" or closest to. */
3717 x_get_monitor_for_frame (struct frame
*f
,
3718 struct MonitorInfo
*monitors
,
3722 int area
= 0, dist
= -1;
3723 int best_area
= -1, best_dist
= -1;
3726 if (n_monitors
== 1) return 0;
3727 frect
.x
= f
->left_pos
;
3728 frect
.y
= f
->top_pos
;
3729 frect
.width
= FRAME_PIXEL_WIDTH (f
);
3730 frect
.height
= FRAME_PIXEL_HEIGHT (f
);
3732 for (i
= 0; i
< n_monitors
; ++i
)
3734 struct MonitorInfo
*mi
= &monitors
[i
];
3738 if (mi
->geom
.width
== 0) continue;
3740 if (x_intersect_rectangles (&mi
->geom
, &frect
, &res
))
3742 a
= res
.width
* res
.height
;
3750 if (a
== 0 && area
== 0)
3753 if (frect
.x
+ frect
.width
< mi
->geom
.x
)
3754 dx
= mi
->geom
.x
- frect
.x
+ frect
.width
;
3755 else if (frect
.x
> mi
->geom
.x
+ mi
->geom
.width
)
3756 dx
= frect
.x
- mi
->geom
.x
+ mi
->geom
.width
;
3759 if (frect
.y
+ frect
.height
< mi
->geom
.y
)
3760 dy
= mi
->geom
.y
- frect
.y
+ frect
.height
;
3761 else if (frect
.y
> mi
->geom
.y
+ mi
->geom
.height
)
3762 dy
= frect
.y
- mi
->geom
.y
+ mi
->geom
.height
;
3767 if (dist
== -1 || dist
> d
)
3775 return best_area
!= -1 ? best_area
: (best_dist
!= -1 ? best_dist
: 0);
3779 x_make_monitor_attribute_list (struct MonitorInfo
*monitors
,
3781 int primary_monitor
,
3782 struct x_display_info
*dpyinfo
,
3785 Lisp_Object monitor_frames
= Fmake_vector (make_number (n_monitors
), Qnil
);
3786 Lisp_Object frame
, rest
;
3788 FOR_EACH_FRAME (rest
, frame
)
3790 struct frame
*f
= XFRAME (frame
);
3792 if (FRAME_X_P (f
) && FRAME_DISPLAY_INFO (f
) == dpyinfo
3793 && !EQ (frame
, tip_frame
))
3795 int i
= x_get_monitor_for_frame (f
, monitors
, n_monitors
);
3796 ASET (monitor_frames
, i
, Fcons (frame
, AREF (monitor_frames
, i
)));
3800 return make_monitor_attribute_list (monitors
, n_monitors
, primary_monitor
,
3801 monitor_frames
, source
);
3805 x_get_monitor_attributes_fallback (struct x_display_info
*dpyinfo
)
3807 struct MonitorInfo monitor
;
3808 XRectangle workarea_r
;
3810 /* Fallback: treat (possibly) multiple physical monitors as if they
3811 formed a single monitor as a whole. This should provide a
3812 consistent result at least on single monitor environments. */
3813 monitor
.geom
.x
= monitor
.geom
.y
= 0;
3814 monitor
.geom
.width
= x_display_pixel_width (dpyinfo
);
3815 monitor
.geom
.height
= x_display_pixel_height (dpyinfo
);
3816 monitor
.mm_width
= WidthMMOfScreen (dpyinfo
->screen
);
3817 monitor
.mm_height
= HeightMMOfScreen (dpyinfo
->screen
);
3818 monitor
.name
= xstrdup ("combined screen");
3820 if (x_get_net_workarea (dpyinfo
, &workarea_r
))
3821 monitor
.work
= workarea_r
;
3823 monitor
.work
= monitor
.geom
;
3824 return x_make_monitor_attribute_list (&monitor
, 1, 0, dpyinfo
, "fallback");
3828 #ifdef HAVE_XINERAMA
3830 x_get_monitor_attributes_xinerama (struct x_display_info
*dpyinfo
)
3833 Lisp_Object attributes_list
= Qnil
;
3834 Display
*dpy
= dpyinfo
->display
;
3835 XineramaScreenInfo
*info
= XineramaQueryScreens (dpy
, &n_monitors
);
3836 struct MonitorInfo
*monitors
;
3837 double mm_width_per_pixel
, mm_height_per_pixel
;
3839 if (! info
|| n_monitors
== 0)
3843 return attributes_list
;
3846 mm_width_per_pixel
= ((double) WidthMMOfScreen (dpyinfo
->screen
)
3847 / x_display_pixel_width (dpyinfo
));
3848 mm_height_per_pixel
= ((double) HeightMMOfScreen (dpyinfo
->screen
)
3849 / x_display_pixel_height (dpyinfo
));
3850 monitors
= xzalloc (n_monitors
* sizeof *monitors
);
3851 for (i
= 0; i
< n_monitors
; ++i
)
3853 struct MonitorInfo
*mi
= &monitors
[i
];
3854 XRectangle workarea_r
;
3856 mi
->geom
.x
= info
[i
].x_org
;
3857 mi
->geom
.y
= info
[i
].y_org
;
3858 mi
->geom
.width
= info
[i
].width
;
3859 mi
->geom
.height
= info
[i
].height
;
3860 mi
->mm_width
= mi
->geom
.width
* mm_width_per_pixel
+ 0.5;
3861 mi
->mm_height
= mi
->geom
.height
* mm_height_per_pixel
+ 0.5;
3864 /* Xinerama usually have primary monitor first, just use that. */
3865 if (i
== 0 && x_get_net_workarea (dpyinfo
, &workarea_r
))
3867 mi
->work
= workarea_r
;
3868 if (! x_intersect_rectangles (&mi
->geom
, &mi
->work
, &mi
->work
))
3869 mi
->work
= mi
->geom
;
3872 mi
->work
= mi
->geom
;
3876 attributes_list
= x_make_monitor_attribute_list (monitors
,
3881 free_monitors (monitors
, n_monitors
);
3882 return attributes_list
;
3884 #endif /* HAVE_XINERAMA */
3889 x_get_monitor_attributes_xrandr (struct x_display_info
*dpyinfo
)
3891 Lisp_Object attributes_list
= Qnil
;
3892 XRRScreenResources
*resources
;
3893 Display
*dpy
= dpyinfo
->display
;
3894 int i
, n_monitors
, primary
= -1;
3895 RROutput pxid
= None
;
3896 struct MonitorInfo
*monitors
;
3898 #ifdef HAVE_XRRGETSCREENRESOURCESCURRENT
3899 resources
= XRRGetScreenResourcesCurrent (dpy
, dpyinfo
->root_window
);
3901 resources
= XRRGetScreenResources (dpy
, dpyinfo
->root_window
);
3903 if (! resources
|| resources
->noutput
== 0)
3906 XRRFreeScreenResources (resources
);
3909 n_monitors
= resources
->noutput
;
3910 monitors
= xzalloc (n_monitors
* sizeof *monitors
);
3912 #ifdef HAVE_XRRGETOUTPUTPRIMARY
3913 pxid
= XRRGetOutputPrimary (dpy
, dpyinfo
->root_window
);
3916 for (i
= 0; i
< n_monitors
; ++i
)
3918 XRROutputInfo
*info
= XRRGetOutputInfo (dpy
, resources
,
3919 resources
->outputs
[i
]);
3920 Connection conn
= info
? info
->connection
: RR_Disconnected
;
3921 RRCrtc id
= info
? info
->crtc
: None
;
3923 if (strcmp (info
->name
, "default") == 0)
3925 /* Non XRandr 1.2 driver, does not give useful data. */
3926 XRRFreeOutputInfo (info
);
3927 XRRFreeScreenResources (resources
);
3928 free_monitors (monitors
, n_monitors
);
3932 if (conn
!= RR_Disconnected
&& id
!= None
)
3934 XRRCrtcInfo
*crtc
= XRRGetCrtcInfo (dpy
, resources
, id
);
3935 struct MonitorInfo
*mi
= &monitors
[i
];
3936 XRectangle workarea_r
;
3940 XRRFreeOutputInfo (info
);
3944 mi
->geom
.x
= crtc
->x
;
3945 mi
->geom
.y
= crtc
->y
;
3946 mi
->geom
.width
= crtc
->width
;
3947 mi
->geom
.height
= crtc
->height
;
3948 mi
->mm_width
= info
->mm_width
;
3949 mi
->mm_height
= info
->mm_height
;
3950 mi
->name
= xstrdup (info
->name
);
3952 if (pxid
!= None
&& pxid
== resources
->outputs
[i
])
3954 else if (primary
== -1 && strcmp (info
->name
, "LVDS") == 0)
3957 if (i
== primary
&& x_get_net_workarea (dpyinfo
, &workarea_r
))
3959 mi
->work
= workarea_r
;
3960 if (! x_intersect_rectangles (&mi
->geom
, &mi
->work
, &mi
->work
))
3961 mi
->work
= mi
->geom
;
3964 mi
->work
= mi
->geom
;
3966 XRRFreeCrtcInfo (crtc
);
3968 XRRFreeOutputInfo (info
);
3970 XRRFreeScreenResources (resources
);
3972 attributes_list
= x_make_monitor_attribute_list (monitors
,
3977 free_monitors (monitors
, n_monitors
);
3978 return attributes_list
;
3980 #endif /* HAVE_XRANDR */
3983 x_get_monitor_attributes (struct x_display_info
*dpyinfo
)
3985 Lisp_Object attributes_list
= Qnil
;
3986 Display
*dpy
= dpyinfo
->display
;
3988 (void) dpy
; /* Suppress unused variable warning. */
3991 int xrr_event_base
, xrr_error_base
;
3992 bool xrr_ok
= false;
3993 xrr_ok
= XRRQueryExtension (dpy
, &xrr_event_base
, &xrr_error_base
);
3996 int xrr_major
, xrr_minor
;
3997 XRRQueryVersion (dpy
, &xrr_major
, &xrr_minor
);
3998 xrr_ok
= (xrr_major
== 1 && xrr_minor
>= 2) || xrr_major
> 1;
4002 attributes_list
= x_get_monitor_attributes_xrandr (dpyinfo
);
4003 #endif /* HAVE_XRANDR */
4005 #ifdef HAVE_XINERAMA
4006 if (NILP (attributes_list
))
4008 int xin_event_base
, xin_error_base
;
4009 bool xin_ok
= false;
4010 xin_ok
= XineramaQueryExtension (dpy
, &xin_event_base
, &xin_error_base
);
4011 if (xin_ok
&& XineramaIsActive (dpy
))
4012 attributes_list
= x_get_monitor_attributes_xinerama (dpyinfo
);
4014 #endif /* HAVE_XINERAMA */
4016 if (NILP (attributes_list
))
4017 attributes_list
= x_get_monitor_attributes_fallback (dpyinfo
);
4019 return attributes_list
;
4022 #endif /* !USE_GTK */
4024 DEFUN ("x-display-monitor-attributes-list", Fx_display_monitor_attributes_list
,
4025 Sx_display_monitor_attributes_list
,
4027 doc
: /* Return a list of physical monitor attributes on the X display TERMINAL.
4029 The optional argument TERMINAL specifies which display to ask about.
4030 TERMINAL should be a terminal object, a frame or a display name (a string).
4031 If omitted or nil, that stands for the selected frame's display.
4033 In addition to the standard attribute keys listed in
4034 `display-monitor-attributes-list', the following keys are contained in
4037 source -- String describing the source from which multi-monitor
4038 information is obtained, one of \"Gdk\", \"XRandr\",
4039 \"Xinerama\", or \"fallback\"
4041 Internal use only, use `display-monitor-attributes-list' instead. */)
4042 (Lisp_Object terminal
)
4044 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4045 Lisp_Object attributes_list
= Qnil
;
4048 double mm_width_per_pixel
, mm_height_per_pixel
;
4051 gint primary_monitor
= 0, n_monitors
, i
;
4052 Lisp_Object monitor_frames
, rest
, frame
;
4053 static const char *source
= "Gdk";
4054 struct MonitorInfo
*monitors
;
4057 mm_width_per_pixel
= ((double) WidthMMOfScreen (dpyinfo
->screen
)
4058 / x_display_pixel_width (dpyinfo
));
4059 mm_height_per_pixel
= ((double) HeightMMOfScreen (dpyinfo
->screen
)
4060 / x_display_pixel_height (dpyinfo
));
4061 gdpy
= gdk_x11_lookup_xdisplay (dpyinfo
->display
);
4062 gscreen
= gdk_display_get_default_screen (gdpy
);
4063 #if GTK_CHECK_VERSION (2, 20, 0)
4064 primary_monitor
= gdk_screen_get_primary_monitor (gscreen
);
4066 n_monitors
= gdk_screen_get_n_monitors (gscreen
);
4067 monitor_frames
= Fmake_vector (make_number (n_monitors
), Qnil
);
4068 monitors
= xzalloc (n_monitors
* sizeof *monitors
);
4070 FOR_EACH_FRAME (rest
, frame
)
4072 struct frame
*f
= XFRAME (frame
);
4074 if (FRAME_X_P (f
) && FRAME_DISPLAY_INFO (f
) == dpyinfo
4075 && !EQ (frame
, tip_frame
))
4077 GdkWindow
*gwin
= gtk_widget_get_window (FRAME_GTK_WIDGET (f
));
4079 i
= gdk_screen_get_monitor_at_window (gscreen
, gwin
);
4080 ASET (monitor_frames
, i
, Fcons (frame
, AREF (monitor_frames
, i
)));
4084 for (i
= 0; i
< n_monitors
; ++i
)
4086 gint width_mm
= -1, height_mm
= -1;
4087 GdkRectangle rec
, work
;
4088 struct MonitorInfo
*mi
= &monitors
[i
];
4090 gdk_screen_get_monitor_geometry (gscreen
, i
, &rec
);
4092 #if GTK_CHECK_VERSION (2, 14, 0)
4093 width_mm
= gdk_screen_get_monitor_width_mm (gscreen
, i
);
4094 height_mm
= gdk_screen_get_monitor_height_mm (gscreen
, i
);
4097 width_mm
= rec
.width
* mm_width_per_pixel
+ 0.5;
4099 height_mm
= rec
.height
* mm_height_per_pixel
+ 0.5;
4101 #if GTK_CHECK_VERSION (3, 4, 0)
4102 gdk_screen_get_monitor_workarea (gscreen
, i
, &work
);
4104 /* Emulate the behavior of GTK+ 3.4. */
4106 XRectangle workarea_r
;
4108 if (i
== primary_monitor
&& x_get_net_workarea (dpyinfo
, &workarea_r
))
4110 work
.x
= workarea_r
.x
;
4111 work
.y
= workarea_r
.y
;
4112 work
.width
= workarea_r
.width
;
4113 work
.height
= workarea_r
.height
;
4114 if (! gdk_rectangle_intersect (&rec
, &work
, &work
))
4125 mi
->geom
.width
= rec
.width
;
4126 mi
->geom
.height
= rec
.height
;
4127 mi
->work
.x
= work
.x
;
4128 mi
->work
.y
= work
.y
;
4129 mi
->work
.width
= work
.width
;
4130 mi
->work
.height
= work
.height
;
4131 mi
->mm_width
= width_mm
;
4132 mi
->mm_height
= height_mm
;
4134 #if GTK_CHECK_VERSION (2, 14, 0)
4135 mi
->name
= gdk_screen_get_monitor_plug_name (gscreen
, i
);
4139 attributes_list
= make_monitor_attribute_list (monitors
,
4145 #else /* not USE_GTK */
4148 attributes_list
= x_get_monitor_attributes (dpyinfo
);
4151 #endif /* not USE_GTK */
4153 return attributes_list
;
4156 /************************************************************************
4158 ************************************************************************/
4161 /* Mapping visual names to visuals. */
4163 static struct visual_class
4170 {"StaticGray", StaticGray
},
4171 {"GrayScale", GrayScale
},
4172 {"StaticColor", StaticColor
},
4173 {"PseudoColor", PseudoColor
},
4174 {"TrueColor", TrueColor
},
4175 {"DirectColor", DirectColor
},
4180 #ifndef HAVE_XSCREENNUMBEROFSCREEN
4182 /* Value is the screen number of screen SCR. This is a substitute for
4183 the X function with the same name when that doesn't exist. */
4186 XScreenNumberOfScreen (scr
)
4187 register Screen
*scr
;
4189 Display
*dpy
= scr
->display
;
4192 for (i
= 0; i
< dpy
->nscreens
; ++i
)
4193 if (scr
== dpy
->screens
+ i
)
4199 #endif /* not HAVE_XSCREENNUMBEROFSCREEN */
4202 /* Select the visual that should be used on display DPYINFO. Set
4203 members of DPYINFO appropriately. Called from x_term_init. */
4206 select_visual (struct x_display_info
*dpyinfo
)
4208 Display
*dpy
= dpyinfo
->display
;
4209 Screen
*screen
= dpyinfo
->screen
;
4212 /* See if a visual is specified. */
4213 value
= display_x_get_resource (dpyinfo
,
4214 build_string ("visualClass"),
4215 build_string ("VisualClass"),
4217 if (STRINGP (value
))
4219 /* VALUE should be of the form CLASS-DEPTH, where CLASS is one
4220 of `PseudoColor', `TrueColor' etc. and DEPTH is the color
4221 depth, a decimal number. NAME is compared with case ignored. */
4222 char *s
= alloca (SBYTES (value
) + 1);
4227 strcpy (s
, SSDATA (value
));
4228 dash
= strchr (s
, '-');
4231 dpyinfo
->n_planes
= atoi (dash
+ 1);
4235 /* We won't find a matching visual with depth 0, so that
4236 an error will be printed below. */
4237 dpyinfo
->n_planes
= 0;
4239 /* Determine the visual class. */
4240 for (i
= 0; visual_classes
[i
].name
; ++i
)
4241 if (xstrcasecmp (s
, visual_classes
[i
].name
) == 0)
4243 class = visual_classes
[i
].class;
4247 /* Look up a matching visual for the specified class. */
4249 || !XMatchVisualInfo (dpy
, XScreenNumberOfScreen (screen
),
4250 dpyinfo
->n_planes
, class, &vinfo
))
4251 fatal ("Invalid visual specification `%s'", SDATA (value
));
4253 dpyinfo
->visual
= vinfo
.visual
;
4258 XVisualInfo
*vinfo
, vinfo_template
;
4260 dpyinfo
->visual
= DefaultVisualOfScreen (screen
);
4262 vinfo_template
.visualid
= XVisualIDFromVisual (dpyinfo
->visual
);
4263 vinfo_template
.screen
= XScreenNumberOfScreen (screen
);
4264 vinfo
= XGetVisualInfo (dpy
, VisualIDMask
| VisualScreenMask
,
4265 &vinfo_template
, &n_visuals
);
4267 fatal ("Can't get proper X visual info");
4269 dpyinfo
->n_planes
= vinfo
->depth
;
4275 /* Return the X display structure for the display named NAME.
4276 Open a new connection if necessary. */
4278 static struct x_display_info
*
4279 x_display_info_for_name (Lisp_Object name
)
4281 struct x_display_info
*dpyinfo
;
4283 CHECK_STRING (name
);
4285 for (dpyinfo
= x_display_list
; dpyinfo
; dpyinfo
= dpyinfo
->next
)
4286 if (!NILP (Fstring_equal (XCAR (dpyinfo
->name_list_element
), name
)))
4289 /* Use this general default value to start with. */
4290 Vx_resource_name
= Vinvocation_name
;
4292 validate_x_resource_name ();
4294 dpyinfo
= x_term_init (name
, 0, SSDATA (Vx_resource_name
));
4297 error ("Cannot connect to X server %s", SDATA (name
));
4299 XSETFASTINT (Vwindow_system_version
, 11);
4305 DEFUN ("x-open-connection", Fx_open_connection
, Sx_open_connection
,
4307 doc
: /* Open a connection to a display server.
4308 DISPLAY is the name of the display to connect to.
4309 Optional second arg XRM-STRING is a string of resources in xrdb format.
4310 If the optional third arg MUST-SUCCEED is non-nil,
4311 terminate Emacs if we can't open the connection.
4312 \(In the Nextstep version, the last two arguments are currently ignored.) */)
4313 (Lisp_Object display
, Lisp_Object xrm_string
, Lisp_Object must_succeed
)
4316 struct x_display_info
*dpyinfo
;
4318 CHECK_STRING (display
);
4319 if (! NILP (xrm_string
))
4320 CHECK_STRING (xrm_string
);
4322 xrm_option
= NILP (xrm_string
) ? 0 : SSDATA (xrm_string
);
4324 validate_x_resource_name ();
4326 /* This is what opens the connection and sets x_current_display.
4327 This also initializes many symbols, such as those used for input. */
4328 dpyinfo
= x_term_init (display
, xrm_option
,
4329 SSDATA (Vx_resource_name
));
4333 if (!NILP (must_succeed
))
4334 fatal ("Cannot connect to X server %s.\n\
4335 Check the DISPLAY environment variable or use `-d'.\n\
4336 Also use the `xauth' program to verify that you have the proper\n\
4337 authorization information needed to connect the X server.\n\
4338 An insecure way to solve the problem may be to use `xhost'.\n",
4341 error ("Cannot connect to X server %s", SDATA (display
));
4344 XSETFASTINT (Vwindow_system_version
, 11);
4348 DEFUN ("x-close-connection", Fx_close_connection
,
4349 Sx_close_connection
, 1, 1, 0,
4350 doc
: /* Close the connection to TERMINAL's X server.
4351 For TERMINAL, specify a terminal object, a frame or a display name (a
4352 string). If TERMINAL is nil, that stands for the selected frame's
4354 (Lisp_Object terminal
)
4356 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4358 if (dpyinfo
->reference_count
> 0)
4359 error ("Display still has frames on it");
4361 x_delete_terminal (dpyinfo
->terminal
);
4366 DEFUN ("x-display-list", Fx_display_list
, Sx_display_list
, 0, 0, 0,
4367 doc
: /* Return the list of display names that Emacs has connections to. */)
4370 Lisp_Object result
= Qnil
;
4371 struct x_display_info
*xdi
;
4373 for (xdi
= x_display_list
; xdi
; xdi
= xdi
->next
)
4374 result
= Fcons (XCAR (xdi
->name_list_element
), result
);
4379 DEFUN ("x-synchronize", Fx_synchronize
, Sx_synchronize
, 1, 2, 0,
4380 doc
: /* If ON is non-nil, report X errors as soon as the erring request is made.
4381 This function only has an effect on X Windows. With MS Windows, it is
4382 defined but does nothing.
4384 If ON is nil, allow buffering of requests.
4385 Turning on synchronization prohibits the Xlib routines from buffering
4386 requests and seriously degrades performance, but makes debugging much
4388 The optional second argument TERMINAL specifies which display to act on.
4389 TERMINAL should be a terminal object, a frame or a display name (a string).
4390 If TERMINAL is omitted or nil, that stands for the selected frame's display. */)
4391 (Lisp_Object on
, Lisp_Object terminal
)
4393 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4395 XSynchronize (dpyinfo
->display
, !EQ (on
, Qnil
));
4400 /* Wait for responses to all X commands issued so far for frame F. */
4403 x_sync (struct frame
*f
)
4406 XSync (FRAME_X_DISPLAY (f
), False
);
4411 /***********************************************************************
4413 ***********************************************************************/
4415 DEFUN ("x-change-window-property", Fx_change_window_property
,
4416 Sx_change_window_property
, 2, 6, 0,
4417 doc
: /* Change window property PROP to VALUE on the X window of FRAME.
4418 PROP must be a string. VALUE may be a string or a list of conses,
4419 numbers and/or strings. If an element in the list is a string, it is
4420 converted to an atom and the value of the atom is used. If an element
4421 is a cons, it is converted to a 32 bit number where the car is the 16
4422 top bits and the cdr is the lower 16 bits.
4424 FRAME nil or omitted means use the selected frame.
4425 If TYPE is given and non-nil, it is the name of the type of VALUE.
4426 If TYPE is not given or nil, the type is STRING.
4427 FORMAT gives the size in bits of each element if VALUE is a list.
4428 It must be one of 8, 16 or 32.
4429 If VALUE is a string or FORMAT is nil or not given, FORMAT defaults to 8.
4430 If OUTER-P is non-nil, the property is changed for the outer X window of
4431 FRAME. Default is to change on the edit X window. */)
4432 (Lisp_Object prop
, Lisp_Object value
, Lisp_Object frame
,
4433 Lisp_Object type
, Lisp_Object format
, Lisp_Object outer_p
)
4435 struct frame
*f
= decode_window_system_frame (frame
);
4437 Atom target_type
= XA_STRING
;
4438 int element_format
= 8;
4439 unsigned char *data
;
4443 CHECK_STRING (prop
);
4445 if (! NILP (format
))
4447 CHECK_NUMBER (format
);
4449 if (XINT (format
) != 8 && XINT (format
) != 16
4450 && XINT (format
) != 32)
4451 error ("FORMAT must be one of 8, 16 or 32");
4452 element_format
= XINT (format
);
4459 nelements
= x_check_property_data (value
);
4460 if (nelements
== -1)
4461 error ("Bad data in VALUE, must be number, string or cons");
4463 /* The man page for XChangeProperty:
4464 "If the specified format is 32, the property data must be a
4466 This applies even if long is more than 32 bits. The X library
4467 converts to 32 bits before sending to the X server. */
4468 elsize
= element_format
== 32 ? sizeof (long) : element_format
>> 3;
4469 data
= xnmalloc (nelements
, elsize
);
4471 x_fill_property_data (FRAME_X_DISPLAY (f
), value
, data
, element_format
);
4475 CHECK_STRING (value
);
4476 data
= SDATA (value
);
4477 if (INT_MAX
< SBYTES (value
))
4478 error ("VALUE too long");
4479 nelements
= SBYTES (value
);
4483 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (prop
), False
);
4486 CHECK_STRING (type
);
4487 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (type
), False
);
4490 if (! NILP (outer_p
)) w
= FRAME_OUTER_WINDOW (f
);
4491 else w
= FRAME_X_WINDOW (f
);
4493 XChangeProperty (FRAME_X_DISPLAY (f
), w
,
4494 prop_atom
, target_type
, element_format
, PropModeReplace
,
4497 if (CONSP (value
)) xfree (data
);
4499 /* Make sure the property is set when we return. */
4500 XFlush (FRAME_X_DISPLAY (f
));
4507 DEFUN ("x-delete-window-property", Fx_delete_window_property
,
4508 Sx_delete_window_property
, 1, 2, 0,
4509 doc
: /* Remove window property PROP from X window of FRAME.
4510 FRAME nil or omitted means use the selected frame. Value is PROP. */)
4511 (Lisp_Object prop
, Lisp_Object frame
)
4513 struct frame
*f
= decode_window_system_frame (frame
);
4516 CHECK_STRING (prop
);
4518 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (prop
), False
);
4519 XDeleteProperty (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), prop_atom
);
4521 /* Make sure the property is removed when we return. */
4522 XFlush (FRAME_X_DISPLAY (f
));
4529 DEFUN ("x-window-property", Fx_window_property
, Sx_window_property
,
4531 doc
: /* Value is the value of window property PROP on FRAME.
4532 If FRAME is nil or omitted, use the selected frame.
4534 On X Windows, the following optional arguments are also accepted:
4535 If TYPE is nil or omitted, get the property as a string.
4536 Otherwise TYPE is the name of the atom that denotes the type expected.
4537 If SOURCE is non-nil, get the property on that window instead of from
4538 FRAME. The number 0 denotes the root window.
4539 If DELETE-P is non-nil, delete the property after retrieving it.
4540 If VECTOR-RET-P is non-nil, don't return a string but a vector of values.
4542 On MS Windows, this function accepts but ignores those optional arguments.
4544 Value is nil if FRAME hasn't a property with name PROP or if PROP has
4545 no value of TYPE (always string in the MS Windows case). */)
4546 (Lisp_Object prop
, Lisp_Object frame
, Lisp_Object type
,
4547 Lisp_Object source
, Lisp_Object delete_p
, Lisp_Object vector_ret_p
)
4549 struct frame
*f
= decode_window_system_frame (frame
);
4552 Lisp_Object prop_value
= Qnil
;
4553 unsigned char *tmp_data
= NULL
;
4555 Atom target_type
= XA_STRING
;
4557 unsigned long actual_size
, bytes_remaining
;
4558 Window target_window
= FRAME_X_WINDOW (f
);
4559 struct gcpro gcpro1
;
4561 GCPRO1 (prop_value
);
4562 CHECK_STRING (prop
);
4564 if (! NILP (source
))
4566 CONS_TO_INTEGER (source
, Window
, target_window
);
4567 if (! target_window
)
4568 target_window
= FRAME_DISPLAY_INFO (f
)->root_window
;
4574 if (strcmp ("AnyPropertyType", SSDATA (type
)) == 0)
4575 target_type
= AnyPropertyType
;
4577 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (type
), False
);
4580 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (prop
), False
);
4581 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4582 prop_atom
, 0, 0, False
, target_type
,
4583 &actual_type
, &actual_format
, &actual_size
,
4584 &bytes_remaining
, &tmp_data
);
4587 int size
= bytes_remaining
;
4592 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4593 prop_atom
, 0, bytes_remaining
,
4594 ! NILP (delete_p
), target_type
,
4595 &actual_type
, &actual_format
,
4596 &actual_size
, &bytes_remaining
,
4598 if (rc
== Success
&& tmp_data
)
4600 /* The man page for XGetWindowProperty says:
4601 "If the returned format is 32, the returned data is represented
4602 as a long array and should be cast to that type to obtain the
4604 This applies even if long is more than 32 bits, the X library
4605 converts from 32 bit elements received from the X server to long
4606 and passes the long array to us. Thus, for that case memcpy can not
4607 be used. We convert to a 32 bit type here, because so much code
4610 The bytes and offsets passed to XGetWindowProperty refers to the
4611 property and those are indeed in 32 bit quantities if format is
4614 if (BITS_PER_LONG
> 32 && actual_format
== 32)
4617 int *idata
= (int *) tmp_data
;
4618 long *ldata
= (long *) tmp_data
;
4620 for (i
= 0; i
< actual_size
; ++i
)
4621 idata
[i
] = (int) ldata
[i
];
4624 if (NILP (vector_ret_p
))
4625 prop_value
= make_string ((char *) tmp_data
, size
);
4627 prop_value
= x_property_data_to_lisp (f
,
4634 if (tmp_data
) XFree (tmp_data
);
4644 /***********************************************************************
4646 ***********************************************************************/
4648 /* Timer function of hourglass_atimer. TIMER is equal to
4651 Display an hourglass pointer on all frames by mapping the frames'
4652 hourglass_window. Set the hourglass_p flag in the frames'
4653 output_data.x structure to indicate that an hourglass cursor is
4654 shown on the frames. */
4657 show_hourglass (struct atimer
*timer
)
4659 /* The timer implementation will cancel this timer automatically
4660 after this function has run. Set hourglass_atimer to null
4661 so that we know the timer doesn't have to be canceled. */
4662 hourglass_atimer
= NULL
;
4664 if (!hourglass_shown_p
)
4666 Lisp_Object rest
, frame
;
4670 FOR_EACH_FRAME (rest
, frame
)
4672 struct frame
*f
= XFRAME (frame
);
4674 if (FRAME_LIVE_P (f
) && FRAME_X_P (f
) && FRAME_X_DISPLAY (f
))
4676 Display
*dpy
= FRAME_X_DISPLAY (f
);
4678 #ifdef USE_X_TOOLKIT
4679 if (f
->output_data
.x
->widget
)
4681 if (FRAME_OUTER_WINDOW (f
))
4684 f
->output_data
.x
->hourglass_p
= 1;
4686 if (!f
->output_data
.x
->hourglass_window
)
4688 unsigned long mask
= CWCursor
;
4689 XSetWindowAttributes attrs
;
4691 Window parent
= FRAME_X_WINDOW (f
);
4693 Window parent
= FRAME_OUTER_WINDOW (f
);
4695 attrs
.cursor
= f
->output_data
.x
->hourglass_cursor
;
4697 f
->output_data
.x
->hourglass_window
4698 = XCreateWindow (dpy
, parent
,
4699 0, 0, 32000, 32000, 0, 0,
4705 XMapRaised (dpy
, f
->output_data
.x
->hourglass_window
);
4711 hourglass_shown_p
= 1;
4717 /* Hide the hourglass pointer on all frames, if it is currently
4721 hide_hourglass (void)
4723 if (hourglass_shown_p
)
4725 Lisp_Object rest
, frame
;
4728 FOR_EACH_FRAME (rest
, frame
)
4730 struct frame
*f
= XFRAME (frame
);
4733 /* Watch out for newly created frames. */
4734 && f
->output_data
.x
->hourglass_window
)
4736 XUnmapWindow (FRAME_X_DISPLAY (f
),
4737 f
->output_data
.x
->hourglass_window
);
4738 /* Sync here because XTread_socket looks at the
4739 hourglass_p flag that is reset to zero below. */
4740 XSync (FRAME_X_DISPLAY (f
), False
);
4741 f
->output_data
.x
->hourglass_p
= 0;
4745 hourglass_shown_p
= 0;
4752 /***********************************************************************
4754 ***********************************************************************/
4756 static Lisp_Object
x_create_tip_frame (struct x_display_info
*,
4757 Lisp_Object
, Lisp_Object
);
4758 static void compute_tip_xy (struct frame
*, Lisp_Object
, Lisp_Object
,
4759 Lisp_Object
, int, int, int *, int *);
4761 /* The frame of a currently visible tooltip. */
4763 Lisp_Object tip_frame
;
4765 /* If non-nil, a timer started that hides the last tooltip when it
4768 static Lisp_Object tip_timer
;
4771 /* If non-nil, a vector of 3 elements containing the last args
4772 with which x-show-tip was called. See there. */
4774 static Lisp_Object last_show_tip_args
;
4778 unwind_create_tip_frame (Lisp_Object frame
)
4780 Lisp_Object deleted
;
4782 deleted
= unwind_create_frame (frame
);
4783 if (EQ (deleted
, Qt
))
4791 /* Create a frame for a tooltip on the display described by DPYINFO.
4792 PARMS is a list of frame parameters. TEXT is the string to
4793 display in the tip frame. Value is the frame.
4795 Note that functions called here, esp. x_default_parameter can
4796 signal errors, for instance when a specified color name is
4797 undefined. We have to make sure that we're in a consistent state
4798 when this happens. */
4801 x_create_tip_frame (struct x_display_info
*dpyinfo
,
4809 ptrdiff_t count
= SPECPDL_INDEX ();
4810 struct gcpro gcpro1
, gcpro2
, gcpro3
;
4811 int face_change_count_before
= face_change_count
;
4813 struct buffer
*old_buffer
;
4815 if (!dpyinfo
->terminal
->name
)
4816 error ("Terminal is not live, can't create new frames on it");
4818 parms
= Fcopy_alist (parms
);
4820 /* Get the name of the frame to use for resource lookup. */
4821 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
4823 && !EQ (name
, Qunbound
)
4825 error ("Invalid frame name--not a string or nil");
4828 GCPRO3 (parms
, name
, frame
);
4830 XSETFRAME (frame
, f
);
4832 buffer
= Fget_buffer_create (build_string (" *tip*"));
4833 /* Use set_window_buffer instead of Fset_window_buffer (see
4834 discussion of bug#11984, bug#12025, bug#12026). */
4835 set_window_buffer (FRAME_ROOT_WINDOW (f
), buffer
, 0, 0);
4836 old_buffer
= current_buffer
;
4837 set_buffer_internal_1 (XBUFFER (buffer
));
4838 bset_truncate_lines (current_buffer
, Qnil
);
4839 specbind (Qinhibit_read_only
, Qt
);
4840 specbind (Qinhibit_modification_hooks
, Qt
);
4843 set_buffer_internal_1 (old_buffer
);
4845 record_unwind_protect (unwind_create_tip_frame
, frame
);
4847 f
->terminal
= dpyinfo
->terminal
;
4849 /* By setting the output method, we're essentially saying that
4850 the frame is live, as per FRAME_LIVE_P. If we get a signal
4851 from this point on, x_destroy_window might screw up reference
4853 f
->output_method
= output_x_window
;
4854 f
->output_data
.x
= xzalloc (sizeof *f
->output_data
.x
);
4855 f
->output_data
.x
->icon_bitmap
= -1;
4856 FRAME_FONTSET (f
) = -1;
4857 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
4858 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
4859 #ifdef USE_TOOLKIT_SCROLL_BARS
4860 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
4861 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
4862 #endif /* USE_TOOLKIT_SCROLL_BARS */
4863 f
->output_data
.x
->white_relief
.pixel
= -1;
4864 f
->output_data
.x
->black_relief
.pixel
= -1;
4866 fset_icon_name (f
, Qnil
);
4867 FRAME_DISPLAY_INFO (f
) = dpyinfo
;
4868 f
->output_data
.x
->parent_desc
= FRAME_DISPLAY_INFO (f
)->root_window
;
4869 f
->output_data
.x
->explicit_parent
= 0;
4871 /* These colors will be set anyway later, but it's important
4872 to get the color reference counts right, so initialize them! */
4875 struct gcpro gcpro1
;
4877 /* Function x_decode_color can signal an error. Make
4878 sure to initialize color slots so that we won't try
4879 to free colors we haven't allocated. */
4880 FRAME_FOREGROUND_PIXEL (f
) = -1;
4881 FRAME_BACKGROUND_PIXEL (f
) = -1;
4882 f
->output_data
.x
->cursor_pixel
= -1;
4883 f
->output_data
.x
->cursor_foreground_pixel
= -1;
4884 f
->output_data
.x
->border_pixel
= -1;
4885 f
->output_data
.x
->mouse_pixel
= -1;
4887 black
= build_string ("black");
4889 FRAME_FOREGROUND_PIXEL (f
)
4890 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4891 FRAME_BACKGROUND_PIXEL (f
)
4892 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4893 f
->output_data
.x
->cursor_pixel
4894 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4895 f
->output_data
.x
->cursor_foreground_pixel
4896 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4897 f
->output_data
.x
->border_pixel
4898 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4899 f
->output_data
.x
->mouse_pixel
4900 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4904 /* Set the name; the functions to which we pass f expect the name to
4906 if (EQ (name
, Qunbound
) || NILP (name
))
4908 fset_name (f
, build_string (dpyinfo
->x_id_name
));
4909 f
->explicit_name
= 0;
4913 fset_name (f
, name
);
4914 f
->explicit_name
= 1;
4915 /* use the frame's title when getting resources for this frame. */
4916 specbind (Qx_resource_name
, name
);
4919 register_font_driver (&xfont_driver
, f
);
4920 #ifdef HAVE_FREETYPE
4922 register_font_driver (&xftfont_driver
, f
);
4923 #else /* not HAVE_XFT */
4924 register_font_driver (&ftxfont_driver
, f
);
4925 #endif /* not HAVE_XFT */
4926 #endif /* HAVE_FREETYPE */
4928 x_default_parameter (f
, parms
, Qfont_backend
, Qnil
,
4929 "fontBackend", "FontBackend", RES_TYPE_STRING
);
4931 /* Extract the window parameters from the supplied values that are
4932 needed to determine window geometry. */
4933 x_default_font_parameter (f
, parms
);
4935 x_default_parameter (f
, parms
, Qborder_width
, make_number (0),
4936 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
4938 /* This defaults to 2 in order to match xterm. We recognize either
4939 internalBorderWidth or internalBorder (which is what xterm calls
4941 if (NILP (Fassq (Qinternal_border_width
, parms
)))
4945 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
4946 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
4947 if (! EQ (value
, Qunbound
))
4948 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
4952 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
4953 "internalBorderWidth", "internalBorderWidth",
4955 x_default_parameter (f
, parms
, Qright_divider_width
, make_number (0),
4956 NULL
, NULL
, RES_TYPE_NUMBER
);
4957 x_default_parameter (f
, parms
, Qbottom_divider_width
, make_number (0),
4958 NULL
, NULL
, RES_TYPE_NUMBER
);
4960 /* Also do the stuff which must be set before the window exists. */
4961 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
4962 "foreground", "Foreground", RES_TYPE_STRING
);
4963 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
4964 "background", "Background", RES_TYPE_STRING
);
4965 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
4966 "pointerColor", "Foreground", RES_TYPE_STRING
);
4967 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
4968 "cursorColor", "Foreground", RES_TYPE_STRING
);
4969 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
4970 "borderColor", "BorderColor", RES_TYPE_STRING
);
4973 image_cache_refcount
=
4974 FRAME_IMAGE_CACHE (f
) ? FRAME_IMAGE_CACHE (f
)->refcount
: 0;
4975 dpyinfo_refcount
= dpyinfo
->reference_count
;
4976 #endif /* GLYPH_DEBUG */
4978 /* Init faces before x_default_parameter is called for scroll-bar
4979 parameters because that function calls x_set_scroll_bar_width,
4980 which calls change_frame_size, which calls Fset_window_buffer,
4981 which runs hooks, which call Fvertical_motion. At the end, we
4982 end up in init_iterator with a null face cache, which should not
4984 init_frame_faces (f
);
4986 f
->output_data
.x
->parent_desc
= FRAME_DISPLAY_INFO (f
)->root_window
;
4988 x_figure_window_size (f
, parms
, 0);
4991 XSetWindowAttributes attrs
;
4993 Atom type
= FRAME_DISPLAY_INFO (f
)->Xatom_net_window_type_tooltip
;
4996 mask
= CWBackPixel
| CWOverrideRedirect
| CWEventMask
;
4997 if (DoesSaveUnders (dpyinfo
->screen
))
4998 mask
|= CWSaveUnder
;
5000 /* Window managers look at the override-redirect flag to determine
5001 whether or net to give windows a decoration (Xlib spec, chapter
5003 attrs
.override_redirect
= True
;
5004 attrs
.save_under
= True
;
5005 attrs
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
5006 /* Arrange for getting MapNotify and UnmapNotify events. */
5007 attrs
.event_mask
= StructureNotifyMask
;
5009 = FRAME_X_WINDOW (f
)
5010 = XCreateWindow (FRAME_X_DISPLAY (f
),
5011 FRAME_DISPLAY_INFO (f
)->root_window
,
5012 /* x, y, width, height */
5016 CopyFromParent
, InputOutput
, CopyFromParent
,
5018 XChangeProperty (FRAME_X_DISPLAY (f
), tip_window
,
5019 FRAME_DISPLAY_INFO (f
)->Xatom_net_window_type
,
5020 XA_ATOM
, 32, PropModeReplace
,
5021 (unsigned char *)&type
, 1);
5027 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
5028 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
5029 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
5030 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
5031 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
5032 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
5034 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
5035 Change will not be effected unless different from the current
5037 width
= FRAME_COLS (f
);
5038 height
= FRAME_LINES (f
);
5039 SET_FRAME_COLS (f
, 0);
5040 FRAME_LINES (f
) = 0;
5041 change_frame_size (f
, width
, height
, 1, 0, 0, 0);
5043 /* Add `tooltip' frame parameter's default value. */
5044 if (NILP (Fframe_parameter (frame
, Qtooltip
)))
5045 Fmodify_frame_parameters (frame
, list1 (Fcons (Qtooltip
, Qt
)));
5047 /* FIXME - can this be done in a similar way to normal frames?
5048 http://lists.gnu.org/archive/html/emacs-devel/2007-10/msg00641.html */
5050 /* Set the `display-type' frame parameter before setting up faces. */
5052 Lisp_Object disptype
;
5054 if (FRAME_DISPLAY_INFO (f
)->n_planes
== 1)
5055 disptype
= intern ("mono");
5056 else if (FRAME_DISPLAY_INFO (f
)->visual
->class == GrayScale
5057 || FRAME_DISPLAY_INFO (f
)->visual
->class == StaticGray
)
5058 disptype
= intern ("grayscale");
5060 disptype
= intern ("color");
5062 if (NILP (Fframe_parameter (frame
, Qdisplay_type
)))
5063 Fmodify_frame_parameters (frame
, list1 (Fcons (Qdisplay_type
, disptype
)));
5066 /* Set up faces after all frame parameters are known. This call
5067 also merges in face attributes specified for new frames.
5069 Frame parameters may be changed if .Xdefaults contains
5070 specifications for the default font. For example, if there is an
5071 `Emacs.default.attributeBackground: pink', the `background-color'
5072 attribute of the frame get's set, which let's the internal border
5073 of the tooltip frame appear in pink. Prevent this. */
5075 Lisp_Object bg
= Fframe_parameter (frame
, Qbackground_color
);
5077 /* Set tip_frame here, so that */
5079 call2 (Qface_set_after_frame_default
, frame
, Qnil
);
5081 if (!EQ (bg
, Fframe_parameter (frame
, Qbackground_color
)))
5082 Fmodify_frame_parameters (frame
, list1 (Fcons (Qbackground_color
, bg
)));
5089 /* Now that the frame will be official, it counts as a reference to
5090 its display and terminal. */
5091 FRAME_DISPLAY_INFO (f
)->reference_count
++;
5092 f
->terminal
->reference_count
++;
5094 /* It is now ok to make the frame official even if we get an error
5095 below. And the frame needs to be on Vframe_list or making it
5096 visible won't work. */
5097 Vframe_list
= Fcons (frame
, Vframe_list
);
5100 /* Setting attributes of faces of the tooltip frame from resources
5101 and similar will increment face_change_count, which leads to the
5102 clearing of all current matrices. Since this isn't necessary
5103 here, avoid it by resetting face_change_count to the value it
5104 had before we created the tip frame. */
5105 face_change_count
= face_change_count_before
;
5107 /* Discard the unwind_protect. */
5108 return unbind_to (count
, frame
);
5112 /* Compute where to display tip frame F. PARMS is the list of frame
5113 parameters for F. DX and DY are specified offsets from the current
5114 location of the mouse. WIDTH and HEIGHT are the width and height
5115 of the tooltip. Return coordinates relative to the root window of
5116 the display in *ROOT_X, and *ROOT_Y. */
5119 compute_tip_xy (struct frame
*f
, Lisp_Object parms
, Lisp_Object dx
, Lisp_Object dy
, int width
, int height
, int *root_x
, int *root_y
)
5121 Lisp_Object left
, top
;
5126 /* User-specified position? */
5127 left
= Fcdr (Fassq (Qleft
, parms
));
5128 top
= Fcdr (Fassq (Qtop
, parms
));
5130 /* Move the tooltip window where the mouse pointer is. Resize and
5132 if (!INTEGERP (left
) || !INTEGERP (top
))
5135 XQueryPointer (FRAME_X_DISPLAY (f
), FRAME_DISPLAY_INFO (f
)->root_window
,
5136 &root
, &child
, root_x
, root_y
, &win_x
, &win_y
, &pmask
);
5141 *root_y
= XINT (top
);
5142 else if (*root_y
+ XINT (dy
) <= 0)
5143 *root_y
= 0; /* Can happen for negative dy */
5144 else if (*root_y
+ XINT (dy
) + height
5145 <= x_display_pixel_height (FRAME_DISPLAY_INFO (f
)))
5146 /* It fits below the pointer */
5147 *root_y
+= XINT (dy
);
5148 else if (height
+ XINT (dy
) <= *root_y
)
5149 /* It fits above the pointer. */
5150 *root_y
-= height
+ XINT (dy
);
5152 /* Put it on the top. */
5155 if (INTEGERP (left
))
5156 *root_x
= XINT (left
);
5157 else if (*root_x
+ XINT (dx
) <= 0)
5158 *root_x
= 0; /* Can happen for negative dx */
5159 else if (*root_x
+ XINT (dx
) + width
5160 <= x_display_pixel_width (FRAME_DISPLAY_INFO (f
)))
5161 /* It fits to the right of the pointer. */
5162 *root_x
+= XINT (dx
);
5163 else if (width
+ XINT (dx
) <= *root_x
)
5164 /* It fits to the left of the pointer. */
5165 *root_x
-= width
+ XINT (dx
);
5167 /* Put it left-justified on the screen--it ought to fit that way. */
5172 DEFUN ("x-show-tip", Fx_show_tip
, Sx_show_tip
, 1, 6, 0,
5173 doc
: /* Show STRING in a "tooltip" window on frame FRAME.
5174 A tooltip window is a small X window displaying a string.
5176 This is an internal function; Lisp code should call `tooltip-show'.
5178 FRAME nil or omitted means use the selected frame.
5180 PARMS is an optional list of frame parameters which can be used to
5181 change the tooltip's appearance.
5183 Automatically hide the tooltip after TIMEOUT seconds. TIMEOUT nil
5184 means use the default timeout of 5 seconds.
5186 If the list of frame parameters PARMS contains a `left' parameters,
5187 the tooltip is displayed at that x-position. Otherwise it is
5188 displayed at the mouse position, with offset DX added (default is 5 if
5189 DX isn't specified). Likewise for the y-position; if a `top' frame
5190 parameter is specified, it determines the y-position of the tooltip
5191 window, otherwise it is displayed at the mouse position, with offset
5192 DY added (default is -10).
5194 A tooltip's maximum size is specified by `x-max-tooltip-size'.
5195 Text larger than the specified size is clipped. */)
5196 (Lisp_Object string
, Lisp_Object frame
, Lisp_Object parms
, Lisp_Object timeout
, Lisp_Object dx
, Lisp_Object dy
)
5201 struct buffer
*old_buffer
;
5202 struct text_pos pos
;
5203 int i
, width
, height
, seen_reversed_p
;
5204 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
5205 int old_windows_or_buffers_changed
= windows_or_buffers_changed
;
5206 ptrdiff_t count
= SPECPDL_INDEX ();
5208 specbind (Qinhibit_redisplay
, Qt
);
5210 GCPRO4 (string
, parms
, frame
, timeout
);
5212 CHECK_STRING (string
);
5213 if (SCHARS (string
) == 0)
5214 string
= make_unibyte_string (" ", 1);
5216 f
= decode_window_system_frame (frame
);
5218 timeout
= make_number (5);
5220 CHECK_NATNUM (timeout
);
5223 dx
= make_number (5);
5228 dy
= make_number (-10);
5233 if (x_gtk_use_system_tooltips
)
5237 /* Hide a previous tip, if any. */
5241 ok
= xg_prepare_tooltip (f
, string
, &width
, &height
);
5244 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
5245 xg_show_tooltip (f
, root_x
, root_y
);
5246 /* This is used in Fx_hide_tip. */
5247 XSETFRAME (tip_frame
, f
);
5250 if (ok
) goto start_timer
;
5252 #endif /* USE_GTK */
5254 if (NILP (last_show_tip_args
))
5255 last_show_tip_args
= Fmake_vector (make_number (3), Qnil
);
5257 if (!NILP (tip_frame
))
5259 Lisp_Object last_string
= AREF (last_show_tip_args
, 0);
5260 Lisp_Object last_frame
= AREF (last_show_tip_args
, 1);
5261 Lisp_Object last_parms
= AREF (last_show_tip_args
, 2);
5263 if (EQ (frame
, last_frame
)
5264 && !NILP (Fequal (last_string
, string
))
5265 && !NILP (Fequal (last_parms
, parms
)))
5267 struct frame
*tip_f
= XFRAME (tip_frame
);
5269 /* Only DX and DY have changed. */
5270 if (!NILP (tip_timer
))
5272 Lisp_Object timer
= tip_timer
;
5274 call1 (Qcancel_timer
, timer
);
5278 compute_tip_xy (tip_f
, parms
, dx
, dy
, FRAME_PIXEL_WIDTH (tip_f
),
5279 FRAME_PIXEL_HEIGHT (tip_f
), &root_x
, &root_y
);
5280 XMoveWindow (FRAME_X_DISPLAY (tip_f
), FRAME_X_WINDOW (tip_f
),
5287 /* Hide a previous tip, if any. */
5290 ASET (last_show_tip_args
, 0, string
);
5291 ASET (last_show_tip_args
, 1, frame
);
5292 ASET (last_show_tip_args
, 2, parms
);
5294 /* Add default values to frame parameters. */
5295 if (NILP (Fassq (Qname
, parms
)))
5296 parms
= Fcons (Fcons (Qname
, build_string ("tooltip")), parms
);
5297 if (NILP (Fassq (Qinternal_border_width
, parms
)))
5298 parms
= Fcons (Fcons (Qinternal_border_width
, make_number (3)), parms
);
5299 if (NILP (Fassq (Qborder_width
, parms
)))
5300 parms
= Fcons (Fcons (Qborder_width
, make_number (1)), parms
);
5301 if (NILP (Fassq (Qbottom_divider_width
, parms
)))
5302 parms
= Fcons (Fcons (Qbottom_divider_width
, make_number (0)), parms
);
5303 if (NILP (Fassq (Qright_divider_width
, parms
)))
5304 parms
= Fcons (Fcons (Qright_divider_width
, make_number (0)), parms
);
5305 if (NILP (Fassq (Qborder_color
, parms
)))
5306 parms
= Fcons (Fcons (Qborder_color
, build_string ("lightyellow")), parms
);
5307 if (NILP (Fassq (Qbackground_color
, parms
)))
5308 parms
= Fcons (Fcons (Qbackground_color
, build_string ("lightyellow")),
5311 /* Create a frame for the tooltip, and record it in the global
5312 variable tip_frame. */
5313 frame
= x_create_tip_frame (FRAME_DISPLAY_INFO (f
), parms
, string
);
5316 /* Set up the frame's root window. */
5317 w
= XWINDOW (FRAME_ROOT_WINDOW (f
));
5323 if (CONSP (Vx_max_tooltip_size
)
5324 && RANGED_INTEGERP (1, XCAR (Vx_max_tooltip_size
), INT_MAX
)
5325 && RANGED_INTEGERP (1, XCDR (Vx_max_tooltip_size
), INT_MAX
))
5327 w
->total_cols
= XFASTINT (XCAR (Vx_max_tooltip_size
));
5328 w
->total_lines
= XFASTINT (XCDR (Vx_max_tooltip_size
));
5333 w
->total_lines
= 40;
5336 w
->pixel_width
= w
->total_cols
* FRAME_COLUMN_WIDTH (f
);
5337 w
->pixel_height
= w
->total_lines
* FRAME_LINE_HEIGHT (f
);
5339 FRAME_TOTAL_COLS (f
) = w
->total_cols
;
5340 adjust_frame_glyphs (f
);
5341 w
->pseudo_window_p
= 1;
5343 /* Display the tooltip text in a temporary buffer. */
5344 old_buffer
= current_buffer
;
5345 set_buffer_internal_1 (XBUFFER (XWINDOW (FRAME_ROOT_WINDOW (f
))->contents
));
5346 bset_truncate_lines (current_buffer
, Qnil
);
5347 clear_glyph_matrix (w
->desired_matrix
);
5348 clear_glyph_matrix (w
->current_matrix
);
5349 SET_TEXT_POS (pos
, BEGV
, BEGV_BYTE
);
5350 try_window (FRAME_ROOT_WINDOW (f
), pos
, TRY_WINDOW_IGNORE_FONTS_CHANGE
);
5352 /* Compute width and height of the tooltip. */
5353 width
= height
= seen_reversed_p
= 0;
5354 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
5356 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
5360 /* Stop at the first empty row at the end. */
5361 if (!row
->enabled_p
|| !MATRIX_ROW_DISPLAYS_TEXT_P (row
))
5364 /* Let the row go over the full width of the frame. */
5365 row
->full_width_p
= 1;
5367 row_width
= row
->pixel_width
;
5368 if (row
->used
[TEXT_AREA
])
5370 /* There's a glyph at the end of rows that is used to place
5371 the cursor there. Don't include the width of this glyph. */
5372 if (!row
->reversed_p
)
5374 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
5375 if (INTEGERP (last
->object
))
5376 row_width
-= last
->pixel_width
;
5380 /* There could be a stretch glyph at the beginning of R2L
5381 rows that is produced by extend_face_to_end_of_line.
5382 Don't count that glyph. */
5383 struct glyph
*g
= row
->glyphs
[TEXT_AREA
];
5385 if (g
->type
== STRETCH_GLYPH
&& INTEGERP (g
->object
))
5387 row_width
-= g
->pixel_width
;
5388 seen_reversed_p
= 1;
5393 height
+= row
->height
;
5394 width
= max (width
, row_width
);
5397 /* If we've seen partial-length R2L rows, we need to re-adjust the
5398 tool-tip frame width and redisplay it again, to avoid over-wide
5399 tips due to the stretch glyph that extends R2L lines to full
5400 width of the frame. */
5401 if (seen_reversed_p
)
5403 /* w->total_cols and FRAME_TOTAL_COLS want the width in columns,
5405 w
->pixel_width
= width
;
5406 width
/= WINDOW_FRAME_COLUMN_WIDTH (w
);
5407 w
->total_cols
= width
;
5408 FRAME_TOTAL_COLS (f
) = width
;
5409 SET_FRAME_WIDTH (f
, width
);
5410 adjust_frame_glyphs (f
);
5411 clear_glyph_matrix (w
->desired_matrix
);
5412 clear_glyph_matrix (w
->current_matrix
);
5413 try_window (FRAME_ROOT_WINDOW (f
), pos
, 0);
5415 /* Recompute width and height of the tooltip. */
5416 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
5418 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
5422 if (!row
->enabled_p
|| !MATRIX_ROW_DISPLAYS_TEXT_P (row
))
5424 row
->full_width_p
= 1;
5425 row_width
= row
->pixel_width
;
5426 if (row
->used
[TEXT_AREA
] && !row
->reversed_p
)
5428 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
5429 if (INTEGERP (last
->object
))
5430 row_width
-= last
->pixel_width
;
5433 height
+= row
->height
;
5434 width
= max (width
, row_width
);
5438 /* Add the frame's internal border to the width and height the X
5439 window should have. */
5440 height
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5441 width
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5443 /* Move the tooltip window where the mouse pointer is. Resize and
5445 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
5448 XMoveResizeWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5449 root_x
, root_y
, width
, height
);
5450 XMapRaised (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
));
5453 /* Draw into the window. */
5454 w
->must_be_updated_p
= 1;
5455 update_single_window (w
, 1);
5457 /* Restore original current buffer. */
5458 set_buffer_internal_1 (old_buffer
);
5459 windows_or_buffers_changed
= old_windows_or_buffers_changed
;
5462 /* Let the tip disappear after timeout seconds. */
5463 tip_timer
= call3 (intern ("run-at-time"), timeout
, Qnil
,
5464 intern ("x-hide-tip"));
5467 return unbind_to (count
, Qnil
);
5471 DEFUN ("x-hide-tip", Fx_hide_tip
, Sx_hide_tip
, 0, 0, 0,
5472 doc
: /* Hide the current tooltip window, if there is any.
5473 Value is t if tooltip was open, nil otherwise. */)
5477 Lisp_Object deleted
, frame
, timer
;
5478 struct gcpro gcpro1
, gcpro2
;
5480 /* Return quickly if nothing to do. */
5481 if (NILP (tip_timer
) && NILP (tip_frame
))
5486 GCPRO2 (frame
, timer
);
5487 tip_frame
= tip_timer
= deleted
= Qnil
;
5489 count
= SPECPDL_INDEX ();
5490 specbind (Qinhibit_redisplay
, Qt
);
5491 specbind (Qinhibit_quit
, Qt
);
5494 call1 (Qcancel_timer
, timer
);
5498 /* When using system tooltip, tip_frame is the Emacs frame on which
5499 the tip is shown. */
5500 struct frame
*f
= XFRAME (frame
);
5501 if (FRAME_LIVE_P (f
) && xg_hide_tooltip (f
))
5508 delete_frame (frame
, Qnil
);
5512 /* Bloodcurdling hack alert: The Lucid menu bar widget's
5513 redisplay procedure is not called when a tip frame over menu
5514 items is unmapped. Redisplay the menu manually... */
5517 struct frame
*f
= SELECTED_FRAME ();
5518 w
= f
->output_data
.x
->menubar_widget
;
5520 if (!DoesSaveUnders (FRAME_DISPLAY_INFO (f
)->screen
)
5524 xlwmenu_redisplay (w
);
5528 #endif /* USE_LUCID */
5532 return unbind_to (count
, deleted
);
5537 /***********************************************************************
5538 File selection dialog
5539 ***********************************************************************/
5541 DEFUN ("x-uses-old-gtk-dialog", Fx_uses_old_gtk_dialog
,
5542 Sx_uses_old_gtk_dialog
,
5544 doc
: /* Return t if the old Gtk+ file selection dialog is used. */)
5550 && window_system_available (SELECTED_FRAME ())
5551 && xg_uses_old_file_dialog ())
5559 /* Callback for "OK" and "Cancel" on file selection dialog. */
5562 file_dialog_cb (Widget widget
, XtPointer client_data
, XtPointer call_data
)
5564 int *result
= client_data
;
5565 XmAnyCallbackStruct
*cb
= call_data
;
5566 *result
= cb
->reason
;
5570 /* Callback for unmapping a file selection dialog. This is used to
5571 capture the case where a dialog is closed via a window manager's
5572 closer button, for example. Using a XmNdestroyCallback didn't work
5576 file_dialog_unmap_cb (Widget widget
, XtPointer client_data
, XtPointer call_data
)
5578 int *result
= client_data
;
5579 *result
= XmCR_CANCEL
;
5583 clean_up_file_dialog (void *arg
)
5585 Widget dialog
= arg
;
5589 XtUnmanageChild (dialog
);
5590 XtDestroyWidget (dialog
);
5591 x_menu_set_in_use (0);
5596 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5597 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5598 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5599 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5600 or directory must exist.
5602 This function is only defined on NS, MS Windows, and X Windows with the
5603 Motif or Gtk toolkits. With the Motif toolkit, ONLY-DIR-P is ignored.
5604 Otherwise, if ONLY-DIR-P is non-nil, the user can only select directories. */)
5605 (Lisp_Object prompt
, Lisp_Object dir
, Lisp_Object default_filename
,
5606 Lisp_Object mustmatch
, Lisp_Object only_dir_p
)
5609 struct frame
*f
= SELECTED_FRAME ();
5610 Lisp_Object file
= Qnil
;
5611 Lisp_Object decoded_file
;
5612 Widget dialog
, text
, help
;
5615 XmString dir_xmstring
, pattern_xmstring
;
5616 ptrdiff_t count
= SPECPDL_INDEX ();
5617 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5619 check_window_system (f
);
5621 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5623 if (popup_activated ())
5624 error ("Trying to use a menu from within a menu-entry");
5626 CHECK_STRING (prompt
);
5629 /* Prevent redisplay. */
5630 specbind (Qinhibit_redisplay
, Qt
);
5634 /* Create the dialog with PROMPT as title, using DIR as initial
5635 directory and using "*" as pattern. */
5636 dir
= Fexpand_file_name (dir
, Qnil
);
5637 dir_xmstring
= XmStringCreateLocalized (SSDATA (dir
));
5638 pattern_xmstring
= XmStringCreateLocalized ("*");
5640 XtSetArg (al
[ac
], XmNtitle
, SDATA (prompt
)); ++ac
;
5641 XtSetArg (al
[ac
], XmNdirectory
, dir_xmstring
); ++ac
;
5642 XtSetArg (al
[ac
], XmNpattern
, pattern_xmstring
); ++ac
;
5643 XtSetArg (al
[ac
], XmNresizePolicy
, XmRESIZE_GROW
); ++ac
;
5644 XtSetArg (al
[ac
], XmNdialogStyle
, XmDIALOG_APPLICATION_MODAL
); ++ac
;
5645 dialog
= XmCreateFileSelectionDialog (f
->output_data
.x
->widget
,
5647 XmStringFree (dir_xmstring
);
5648 XmStringFree (pattern_xmstring
);
5650 /* Add callbacks for OK and Cancel. */
5651 XtAddCallback (dialog
, XmNokCallback
, file_dialog_cb
,
5652 (XtPointer
) &result
);
5653 XtAddCallback (dialog
, XmNcancelCallback
, file_dialog_cb
,
5654 (XtPointer
) &result
);
5655 XtAddCallback (dialog
, XmNunmapCallback
, file_dialog_unmap_cb
,
5656 (XtPointer
) &result
);
5658 /* Remove the help button since we can't display help. */
5659 help
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_HELP_BUTTON
);
5660 XtUnmanageChild (help
);
5662 /* Mark OK button as default. */
5663 XtVaSetValues (XmFileSelectionBoxGetChild (dialog
, XmDIALOG_OK_BUTTON
),
5664 XmNshowAsDefault
, True
, NULL
);
5666 /* If MUSTMATCH is non-nil, disable the file entry field of the
5667 dialog, so that the user must select a file from the files list
5668 box. We can't remove it because we wouldn't have a way to get at
5669 the result file name, then. */
5670 text
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5671 if (!NILP (mustmatch
))
5674 label
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_SELECTION_LABEL
);
5675 XtSetSensitive (text
, False
);
5676 XtSetSensitive (label
, False
);
5679 /* Manage the dialog, so that list boxes get filled. */
5680 XtManageChild (dialog
);
5682 if (STRINGP (default_filename
))
5684 XmString default_xmstring
;
5685 Widget wtext
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5686 Widget list
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_LIST
);
5688 XmTextPosition last_pos
= XmTextFieldGetLastPosition (wtext
);
5689 XmTextFieldReplace (wtext
, 0, last_pos
,
5690 (SSDATA (Ffile_name_nondirectory (default_filename
))));
5692 /* Select DEFAULT_FILENAME in the files list box. DEFAULT_FILENAME
5693 must include the path for this to work. */
5695 default_xmstring
= XmStringCreateLocalized (SSDATA (default_filename
));
5697 if (XmListItemExists (list
, default_xmstring
))
5699 int item_pos
= XmListItemPos (list
, default_xmstring
);
5700 /* Select the item and scroll it into view. */
5701 XmListSelectPos (list
, item_pos
, True
);
5702 XmListSetPos (list
, item_pos
);
5705 XmStringFree (default_xmstring
);
5708 record_unwind_protect_ptr (clean_up_file_dialog
, dialog
);
5710 /* Process events until the user presses Cancel or OK. */
5711 x_menu_set_in_use (1);
5716 x_menu_wait_for_event (0);
5717 XtAppNextEvent (Xt_app_con
, &event
);
5718 if (event
.type
== KeyPress
5719 && FRAME_X_DISPLAY (f
) == event
.xkey
.display
)
5721 KeySym keysym
= XLookupKeysym (&event
.xkey
, 0);
5723 /* Pop down on C-g. */
5724 if (keysym
== XK_g
&& (event
.xkey
.state
& ControlMask
) != 0)
5725 XtUnmanageChild (dialog
);
5728 (void) x_dispatch_event (&event
, FRAME_X_DISPLAY (f
));
5731 /* Get the result. */
5732 if (result
== XmCR_OK
)
5734 XmString text_string
;
5737 XtVaGetValues (dialog
, XmNtextString
, &text_string
, NULL
);
5738 XmStringGetLtoR (text_string
, XmFONTLIST_DEFAULT_TAG
, &data
);
5739 XmStringFree (text_string
);
5740 file
= build_string (data
);
5749 /* Make "Cancel" equivalent to C-g. */
5751 Fsignal (Qquit
, Qnil
);
5753 decoded_file
= DECODE_FILE (file
);
5755 return unbind_to (count
, decoded_file
);
5758 #endif /* USE_MOTIF */
5763 clean_up_dialog (void)
5765 x_menu_set_in_use (0);
5768 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5769 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5770 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5771 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5772 or directory must exist.
5774 This function is only defined on NS, MS Windows, and X Windows with the
5775 Motif or Gtk toolkits. With the Motif toolkit, ONLY-DIR-P is ignored.
5776 Otherwise, if ONLY-DIR-P is non-nil, the user can only select directories. */)
5777 (Lisp_Object prompt
, Lisp_Object dir
, Lisp_Object default_filename
, Lisp_Object mustmatch
, Lisp_Object only_dir_p
)
5779 struct frame
*f
= SELECTED_FRAME ();
5781 Lisp_Object file
= Qnil
;
5782 Lisp_Object decoded_file
;
5783 ptrdiff_t count
= SPECPDL_INDEX ();
5784 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5787 check_window_system (f
);
5789 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5791 if (popup_activated ())
5792 error ("Trying to use a menu from within a menu-entry");
5794 CHECK_STRING (prompt
);
5797 /* Prevent redisplay. */
5798 specbind (Qinhibit_redisplay
, Qt
);
5799 record_unwind_protect_void (clean_up_dialog
);
5803 if (STRINGP (default_filename
))
5804 cdef_file
= SSDATA (default_filename
);
5806 cdef_file
= SSDATA (dir
);
5808 fn
= xg_get_file_name (f
, SSDATA (prompt
), cdef_file
,
5810 ! NILP (only_dir_p
));
5814 file
= build_string (fn
);
5821 /* Make "Cancel" equivalent to C-g. */
5823 Fsignal (Qquit
, Qnil
);
5825 decoded_file
= DECODE_FILE (file
);
5827 return unbind_to (count
, decoded_file
);
5831 #ifdef HAVE_FREETYPE
5833 DEFUN ("x-select-font", Fx_select_font
, Sx_select_font
, 0, 2, 0,
5834 doc
: /* Read a font using a GTK dialog.
5835 Return either a font spec (for GTK versions >= 3.2) or a string
5836 containing a GTK-style font name.
5838 FRAME is the frame on which to pop up the font chooser. If omitted or
5839 nil, it defaults to the selected frame. */)
5840 (Lisp_Object frame
, Lisp_Object ignored
)
5842 struct frame
*f
= decode_window_system_frame (frame
);
5844 Lisp_Object font_param
;
5845 char *default_name
= NULL
;
5846 struct gcpro gcpro1
, gcpro2
;
5847 ptrdiff_t count
= SPECPDL_INDEX ();
5849 if (popup_activated ())
5850 error ("Trying to use a menu from within a menu-entry");
5852 /* Prevent redisplay. */
5853 specbind (Qinhibit_redisplay
, Qt
);
5854 record_unwind_protect_void (clean_up_dialog
);
5858 GCPRO2 (font_param
, font
);
5860 XSETFONT (font
, FRAME_FONT (f
));
5861 font_param
= Ffont_get (font
, intern (":name"));
5862 if (STRINGP (font_param
))
5863 default_name
= xstrdup (SSDATA (font_param
));
5866 font_param
= Fframe_parameter (frame
, Qfont_param
);
5867 if (STRINGP (font_param
))
5868 default_name
= xstrdup (SSDATA (font_param
));
5871 font
= xg_get_font (f
, default_name
);
5872 xfree (default_name
);
5877 Fsignal (Qquit
, Qnil
);
5879 return unbind_to (count
, font
);
5881 #endif /* HAVE_FREETYPE */
5883 #endif /* USE_GTK */
5886 /***********************************************************************
5888 ***********************************************************************/
5891 #include <X11/XKBlib.h>
5892 #include <X11/keysym.h>
5895 DEFUN ("x-backspace-delete-keys-p", Fx_backspace_delete_keys_p
,
5896 Sx_backspace_delete_keys_p
, 0, 1, 0,
5897 doc
: /* Check if both Backspace and Delete keys are on the keyboard of FRAME.
5898 FRAME nil means use the selected frame.
5899 Value is t if we know that both keys are present, and are mapped to the
5900 usual X keysyms. Value is `lambda' if we cannot determine if both keys are
5901 present and mapped to the usual X keysyms. */)
5908 struct frame
*f
= decode_window_system_frame (frame
);
5909 Display
*dpy
= FRAME_X_DISPLAY (f
);
5910 Lisp_Object have_keys
;
5911 int major
, minor
, op
, event
, error_code
;
5915 /* Check library version in case we're dynamically linked. */
5916 major
= XkbMajorVersion
;
5917 minor
= XkbMinorVersion
;
5918 if (!XkbLibraryVersion (&major
, &minor
))
5924 /* Check that the server supports XKB. */
5925 major
= XkbMajorVersion
;
5926 minor
= XkbMinorVersion
;
5927 if (!XkbQueryExtension (dpy
, &op
, &event
, &error_code
, &major
, &minor
))
5933 /* In this code we check that the keyboard has physical keys with names
5934 that start with BKSP (Backspace) and DELE (Delete), and that they
5935 generate keysym XK_BackSpace and XK_Delete respectively.
5936 This function is used to test if normal-erase-is-backspace should be
5938 An alternative approach would be to just check if XK_BackSpace and
5939 XK_Delete are mapped to any key. But if any of those are mapped to
5940 some non-intuitive key combination (Meta-Shift-Ctrl-whatever) and the
5941 user doesn't know about it, it is better to return false here.
5942 It is more obvious to the user what to do if she/he has two keys
5943 clearly marked with names/symbols and one key does something not
5944 expected (i.e. she/he then tries the other).
5945 The cases where Backspace/Delete is mapped to some other key combination
5946 are rare, and in those cases, normal-erase-is-backspace can be turned on
5950 kb
= XkbGetMap (dpy
, XkbAllMapComponentsMask
, XkbUseCoreKbd
);
5953 int delete_keycode
= 0, backspace_keycode
= 0, i
;
5955 if (XkbGetNames (dpy
, XkbAllNamesMask
, kb
) == Success
)
5957 for (i
= kb
->min_key_code
;
5958 (i
< kb
->max_key_code
5959 && (delete_keycode
== 0 || backspace_keycode
== 0));
5962 /* The XKB symbolic key names can be seen most easily in
5963 the PS file generated by `xkbprint -label name
5965 if (memcmp ("DELE", kb
->names
->keys
[i
].name
, 4) == 0)
5967 else if (memcmp ("BKSP", kb
->names
->keys
[i
].name
, 4) == 0)
5968 backspace_keycode
= i
;
5971 XkbFreeNames (kb
, 0, True
);
5974 XkbFreeClientMap (kb
, 0, True
);
5977 && backspace_keycode
5978 && XKeysymToKeycode (dpy
, XK_Delete
) == delete_keycode
5979 && XKeysymToKeycode (dpy
, XK_BackSpace
) == backspace_keycode
)
5989 /***********************************************************************
5991 ***********************************************************************/
5993 /* Keep this list in the same order as frame_parms in frame.c.
5994 Use 0 for unsupported frame parameters. */
5996 frame_parm_handler x_frame_parm_handlers
[] =
6000 x_set_background_color
,
6006 x_set_foreground_color
,
6009 x_set_internal_border_width
,
6010 x_set_right_divider_width
,
6011 x_set_bottom_divider_width
,
6012 x_set_menu_bar_lines
,
6014 x_explicitly_set_name
,
6015 x_set_scroll_bar_width
,
6018 x_set_vertical_scroll_bars
,
6020 x_set_tool_bar_lines
,
6021 x_set_scroll_bar_foreground
,
6022 x_set_scroll_bar_background
,
6032 x_set_tool_bar_position
,
6038 /* The section below is built by the lisp expression at the top of the file,
6039 just above where these variables are declared. */
6040 /*&&& init symbols here &&&*/
6041 DEFSYM (Qsuppress_icon
, "suppress-icon");
6042 DEFSYM (Qundefined_color
, "undefined-color");
6043 DEFSYM (Qcompound_text
, "compound-text");
6044 DEFSYM (Qcancel_timer
, "cancel-timer");
6045 DEFSYM (Qfont_param
, "font-parameter");
6046 /* This is the end of symbol initialization. */
6048 Fput (Qundefined_color
, Qerror_conditions
,
6049 listn (CONSTYPE_PURE
, 2, Qundefined_color
, Qerror
));
6050 Fput (Qundefined_color
, Qerror_message
,
6051 build_pure_c_string ("Undefined color"));
6053 DEFVAR_LISP ("x-pointer-shape", Vx_pointer_shape
,
6054 doc
: /* The shape of the pointer when over text.
6055 Changing the value does not affect existing frames
6056 unless you set the mouse color. */);
6057 Vx_pointer_shape
= Qnil
;
6059 #if 0 /* This doesn't really do anything. */
6060 DEFVAR_LISP ("x-nontext-pointer-shape", Vx_nontext_pointer_shape
,
6061 doc
: /* The shape of the pointer when not over text.
6062 This variable takes effect when you create a new frame
6063 or when you set the mouse color. */);
6065 Vx_nontext_pointer_shape
= Qnil
;
6067 DEFVAR_LISP ("x-hourglass-pointer-shape", Vx_hourglass_pointer_shape
,
6068 doc
: /* The shape of the pointer when Emacs is busy.
6069 This variable takes effect when you create a new frame
6070 or when you set the mouse color. */);
6071 Vx_hourglass_pointer_shape
= Qnil
;
6073 #if 0 /* This doesn't really do anything. */
6074 DEFVAR_LISP ("x-mode-pointer-shape", Vx_mode_pointer_shape
,
6075 doc
: /* The shape of the pointer when over the mode line.
6076 This variable takes effect when you create a new frame
6077 or when you set the mouse color. */);
6079 Vx_mode_pointer_shape
= Qnil
;
6081 DEFVAR_LISP ("x-sensitive-text-pointer-shape",
6082 Vx_sensitive_text_pointer_shape
,
6083 doc
: /* The shape of the pointer when over mouse-sensitive text.
6084 This variable takes effect when you create a new frame
6085 or when you set the mouse color. */);
6086 Vx_sensitive_text_pointer_shape
= Qnil
;
6088 DEFVAR_LISP ("x-window-horizontal-drag-cursor",
6089 Vx_window_horizontal_drag_shape
,
6090 doc
: /* Pointer shape to use for indicating a window can be dragged horizontally.
6091 This variable takes effect when you create a new frame
6092 or when you set the mouse color. */);
6093 Vx_window_horizontal_drag_shape
= Qnil
;
6095 DEFVAR_LISP ("x-window-vertical-drag-cursor",
6096 Vx_window_vertical_drag_shape
,
6097 doc
: /* Pointer shape to use for indicating a window can be dragged vertically.
6098 This variable takes effect when you create a new frame
6099 or when you set the mouse color. */);
6100 Vx_window_vertical_drag_shape
= Qnil
;
6102 DEFVAR_LISP ("x-cursor-fore-pixel", Vx_cursor_fore_pixel
,
6103 doc
: /* A string indicating the foreground color of the cursor box. */);
6104 Vx_cursor_fore_pixel
= Qnil
;
6106 DEFVAR_LISP ("x-max-tooltip-size", Vx_max_tooltip_size
,
6107 doc
: /* Maximum size for tooltips.
6108 Value is a pair (COLUMNS . ROWS). Text larger than this is clipped. */);
6109 Vx_max_tooltip_size
= Fcons (make_number (80), make_number (40));
6111 DEFVAR_LISP ("x-no-window-manager", Vx_no_window_manager
,
6112 doc
: /* Non-nil if no X window manager is in use.
6113 Emacs doesn't try to figure this out; this is always nil
6114 unless you set it to something else. */);
6115 /* We don't have any way to find this out, so set it to nil
6116 and maybe the user would like to set it to t. */
6117 Vx_no_window_manager
= Qnil
;
6119 DEFVAR_LISP ("x-pixel-size-width-font-regexp",
6120 Vx_pixel_size_width_font_regexp
,
6121 doc
: /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'.
6123 Since Emacs gets width of a font matching with this regexp from
6124 PIXEL_SIZE field of the name, font finding mechanism gets faster for
6125 such a font. This is especially effective for such large fonts as
6126 Chinese, Japanese, and Korean. */);
6127 Vx_pixel_size_width_font_regexp
= Qnil
;
6129 /* This is not ifdef:ed, so other builds than GTK can customize it. */
6130 DEFVAR_BOOL ("x-gtk-use-old-file-dialog", x_gtk_use_old_file_dialog
,
6131 doc
: /* Non-nil means prompt with the old GTK file selection dialog.
6132 If nil or if the file selection dialog is not available, the new GTK file
6133 chooser is used instead. To turn off all file dialogs set the
6134 variable `use-file-dialog'. */);
6135 x_gtk_use_old_file_dialog
= 0;
6137 DEFVAR_BOOL ("x-gtk-show-hidden-files", x_gtk_show_hidden_files
,
6138 doc
: /* If non-nil, the GTK file chooser will by default show hidden files.
6139 Note that this is just the default, there is a toggle button on the file
6140 chooser to show or not show hidden files on a case by case basis. */);
6141 x_gtk_show_hidden_files
= 0;
6143 DEFVAR_BOOL ("x-gtk-file-dialog-help-text", x_gtk_file_dialog_help_text
,
6144 doc
: /* If non-nil, the GTK file chooser will show additional help text.
6145 If more space for files in the file chooser dialog is wanted, set this to nil
6146 to turn the additional text off. */);
6147 x_gtk_file_dialog_help_text
= 1;
6149 DEFVAR_BOOL ("x-gtk-whole-detached-tool-bar", x_gtk_whole_detached_tool_bar
,
6150 doc
: /* If non-nil, a detached tool bar is shown in full.
6151 The default is to just show an arrow and pressing on that arrow shows
6152 the tool bar buttons. */);
6153 x_gtk_whole_detached_tool_bar
= 0;
6155 DEFVAR_BOOL ("x-gtk-use-system-tooltips", x_gtk_use_system_tooltips
,
6156 doc
: /* If non-nil with a Gtk+ built Emacs, the Gtk+ tooltip is used.
6157 Otherwise use Emacs own tooltip implementation.
6158 When using Gtk+ tooltips, the tooltip face is not used. */);
6159 x_gtk_use_system_tooltips
= 1;
6161 /* Tell Emacs about this window system. */
6162 Fprovide (Qx
, Qnil
);
6164 #ifdef USE_X_TOOLKIT
6165 Fprovide (intern_c_string ("x-toolkit"), Qnil
);
6167 Fprovide (intern_c_string ("motif"), Qnil
);
6169 DEFVAR_LISP ("motif-version-string", Vmotif_version_string
,
6170 doc
: /* Version info for LessTif/Motif. */);
6171 Vmotif_version_string
= build_string (XmVERSION_STRING
);
6172 #endif /* USE_MOTIF */
6173 #endif /* USE_X_TOOLKIT */
6176 /* Provide x-toolkit also for GTK. Internally GTK does not use Xt so it
6177 is not an X toolkit in that sense (USE_X_TOOLKIT is not defined).
6178 But for a user it is a toolkit for X, and indeed, configure
6179 accepts --with-x-toolkit=gtk. */
6180 Fprovide (intern_c_string ("x-toolkit"), Qnil
);
6181 Fprovide (intern_c_string ("gtk"), Qnil
);
6182 Fprovide (intern_c_string ("move-toolbar"), Qnil
);
6184 DEFVAR_LISP ("gtk-version-string", Vgtk_version_string
,
6185 doc
: /* Version info for GTK+. */);
6187 char gtk_version
[sizeof ".." + 3 * INT_STRLEN_BOUND (int)];
6188 int len
= sprintf (gtk_version
, "%d.%d.%d",
6189 GTK_MAJOR_VERSION
, GTK_MINOR_VERSION
, GTK_MICRO_VERSION
);
6190 Vgtk_version_string
= make_pure_string (gtk_version
, len
, len
, 0);
6192 #endif /* USE_GTK */
6194 /* X window properties. */
6195 defsubr (&Sx_change_window_property
);
6196 defsubr (&Sx_delete_window_property
);
6197 defsubr (&Sx_window_property
);
6199 defsubr (&Sxw_display_color_p
);
6200 defsubr (&Sx_display_grayscale_p
);
6201 defsubr (&Sxw_color_defined_p
);
6202 defsubr (&Sxw_color_values
);
6203 defsubr (&Sx_server_max_request_size
);
6204 defsubr (&Sx_server_vendor
);
6205 defsubr (&Sx_server_version
);
6206 defsubr (&Sx_display_pixel_width
);
6207 defsubr (&Sx_display_pixel_height
);
6208 defsubr (&Sx_display_mm_width
);
6209 defsubr (&Sx_display_mm_height
);
6210 defsubr (&Sx_display_screens
);
6211 defsubr (&Sx_display_planes
);
6212 defsubr (&Sx_display_color_cells
);
6213 defsubr (&Sx_display_visual_class
);
6214 defsubr (&Sx_display_backing_store
);
6215 defsubr (&Sx_display_save_under
);
6216 defsubr (&Sx_display_monitor_attributes_list
);
6217 defsubr (&Sx_wm_set_size_hint
);
6218 defsubr (&Sx_create_frame
);
6219 defsubr (&Sx_open_connection
);
6220 defsubr (&Sx_close_connection
);
6221 defsubr (&Sx_display_list
);
6222 defsubr (&Sx_synchronize
);
6223 defsubr (&Sx_backspace_delete_keys_p
);
6225 defsubr (&Sx_show_tip
);
6226 defsubr (&Sx_hide_tip
);
6228 staticpro (&tip_timer
);
6230 staticpro (&tip_frame
);
6232 last_show_tip_args
= Qnil
;
6233 staticpro (&last_show_tip_args
);
6235 defsubr (&Sx_uses_old_gtk_dialog
);
6236 #if defined (USE_MOTIF) || defined (USE_GTK)
6237 defsubr (&Sx_file_dialog
);
6240 #if defined (USE_GTK) && defined (HAVE_FREETYPE)
6241 defsubr (&Sx_select_font
);