1 /* Functions for the X window system.
2 Copyright (C) 1989, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000,
3 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010
4 Free Software Foundation, Inc.
6 This file is part of GNU Emacs.
8 GNU Emacs is free software: you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation, either version 3 of the License, or
11 (at your option) any later version.
13 GNU Emacs is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
18 You should have received a copy of the GNU General Public License
19 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
31 /* This makes the fields of a Display accessible, in Xlib header files. */
33 #define XLIB_ILLEGAL_ACCESS
40 #include "intervals.h"
41 #include "dispextern.h"
43 #include "blockinput.h"
45 #include "character.h"
50 #include "termhooks.h"
58 #include <sys/types.h>
61 #if 1 /* Used to be #ifdef EMACS_BITMAP_FILES, but this should always work. */
62 #include "bitmaps/gray.xbm"
64 #include <X11/bitmaps/gray>
67 #include "xsettings.h"
74 #include <X11/Shell.h>
78 #include <X11/Xaw3d/Paned.h>
79 #include <X11/Xaw3d/Label.h>
80 #else /* !HAVE_XAW3D */
81 #include <X11/Xaw/Paned.h>
82 #include <X11/Xaw/Label.h>
83 #endif /* HAVE_XAW3D */
84 #endif /* USE_MOTIF */
87 #undef USG /* ####KLUDGE for Solaris 2.2 and up */
96 #include "../lwlib/lwlib.h"
100 #include <Xm/DialogS.h>
101 #include <Xm/FileSB.h>
104 #if !defined(NO_EDITRES)
106 extern void _XEditResCheckMessages ();
107 #endif /* not defined NO_EDITRES */
109 /* Unique id counter for widgets created by the Lucid Widget Library. */
111 extern LWLIB_ID widget_id_tick
;
114 /* This is part of a kludge--see lwlib/xlwmenu.c. */
115 extern XFontStruct
*xlwmenu_default_font
;
118 extern void free_frame_menubar ();
119 extern double atof ();
123 /* LessTif/Motif version info. */
125 static Lisp_Object Vmotif_version_string
;
127 #endif /* USE_MOTIF */
129 #endif /* USE_X_TOOLKIT */
133 /* GTK+ version info */
135 static Lisp_Object Vgtk_version_string
;
139 #define MAXREQUEST(dpy) (XMaxRequestSize (dpy))
141 /* The gray bitmap `bitmaps/gray'. This is done because xterm.c uses
142 it, and including `bitmaps/gray' more than once is a problem when
143 config.h defines `static' as an empty replacement string. */
145 int gray_bitmap_width
= gray_width
;
146 int gray_bitmap_height
= gray_height
;
147 char *gray_bitmap_bits
= gray_bits
;
149 /* Non-zero means prompt with the old GTK file selection dialog. */
151 int x_gtk_use_old_file_dialog
;
153 /* If non-zero, by default show hidden files in the GTK file chooser. */
155 int x_gtk_show_hidden_files
;
157 /* If non-zero, don't show additional help text in the GTK file chooser. */
159 int x_gtk_file_dialog_help_text
;
161 /* If non-zero, don't collapse to tool bar when it is detached. */
163 int x_gtk_whole_detached_tool_bar
;
165 /* The background and shape of the mouse pointer, and shape when not
166 over text or in the modeline. */
168 Lisp_Object Vx_pointer_shape
, Vx_nontext_pointer_shape
, Vx_mode_pointer_shape
;
169 Lisp_Object Vx_hourglass_pointer_shape
;
171 /* The shape when over mouse-sensitive text. */
173 Lisp_Object Vx_sensitive_text_pointer_shape
;
175 /* If non-nil, the pointer shape to indicate that windows can be
176 dragged horizontally. */
178 Lisp_Object Vx_window_horizontal_drag_shape
;
180 /* Color of chars displayed in cursor box. */
182 Lisp_Object Vx_cursor_fore_pixel
;
184 /* Nonzero if using X. */
188 /* Non nil if no window manager is in use. */
190 Lisp_Object Vx_no_window_manager
;
192 /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'. */
194 Lisp_Object Vx_pixel_size_width_font_regexp
;
197 Lisp_Object Qsuppress_icon
;
198 Lisp_Object Qundefined_color
;
199 Lisp_Object Qcompound_text
, Qcancel_timer
;
200 Lisp_Object Qfont_param
;
204 extern Lisp_Object Vwindow_system_version
;
206 /* The below are defined in frame.c. */
209 int image_cache_refcount
, dpyinfo_refcount
;
212 #if defined (USE_GTK) && defined (HAVE_FREETYPE)
213 char *x_last_font_name
;
217 /* Error if we are not connected to X. */
223 error ("X windows are not in use or not initialized");
226 /* Nonzero if we can use mouse menus.
227 You should not call this unless HAVE_MENUS is defined. */
235 /* Extract a frame as a FRAME_PTR, defaulting to the selected frame
236 and checking validity for X. */
239 check_x_frame (frame
)
245 frame
= selected_frame
;
246 CHECK_LIVE_FRAME (frame
);
249 error ("Non-X frame used");
253 /* Let the user specify an X display with a Lisp object.
254 OBJECT may be nil, a frame or a terminal object.
255 nil stands for the selected frame--or, if that is not an X frame,
256 the first X display on the list. */
258 struct x_display_info
*
259 check_x_display_info (object
)
262 struct x_display_info
*dpyinfo
= NULL
;
266 struct frame
*sf
= XFRAME (selected_frame
);
268 if (FRAME_X_P (sf
) && FRAME_LIVE_P (sf
))
269 dpyinfo
= FRAME_X_DISPLAY_INFO (sf
);
270 else if (x_display_list
!= 0)
271 dpyinfo
= x_display_list
;
273 error ("X windows are not in use or not initialized");
275 else if (TERMINALP (object
))
277 struct terminal
*t
= get_terminal (object
, 1);
279 if (t
->type
!= output_x_window
)
280 error ("Terminal %d is not an X display", XINT (object
));
282 dpyinfo
= t
->display_info
.x
;
284 else if (STRINGP (object
))
285 dpyinfo
= x_display_info_for_name (object
);
288 FRAME_PTR f
= check_x_frame (object
);
289 dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
296 /* Return the Emacs frame-object corresponding to an X window.
297 It could be the frame's main window or an icon window. */
299 /* This function can be called during GC, so use GC_xxx type test macros. */
302 x_window_to_frame (dpyinfo
, wdesc
)
303 struct x_display_info
*dpyinfo
;
306 Lisp_Object tail
, frame
;
309 if (wdesc
== None
) return 0;
311 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCDR (tail
))
317 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
319 if (f
->output_data
.x
->hourglass_window
== wdesc
)
322 if ((f
->output_data
.x
->edit_widget
323 && XtWindow (f
->output_data
.x
->edit_widget
) == wdesc
)
324 /* A tooltip frame? */
325 || (!f
->output_data
.x
->edit_widget
326 && FRAME_X_WINDOW (f
) == wdesc
)
327 || f
->output_data
.x
->icon_desc
== wdesc
)
329 #else /* not USE_X_TOOLKIT */
331 if (f
->output_data
.x
->edit_widget
)
333 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
334 struct x_output
*x
= f
->output_data
.x
;
335 if (gwdesc
!= 0 && gwdesc
== x
->edit_widget
)
339 if (FRAME_X_WINDOW (f
) == wdesc
340 || f
->output_data
.x
->icon_desc
== wdesc
)
342 #endif /* not USE_X_TOOLKIT */
347 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
348 /* Like x_window_to_frame but also compares the window with the widget's
352 x_any_window_to_frame (dpyinfo
, wdesc
)
353 struct x_display_info
*dpyinfo
;
356 Lisp_Object tail
, frame
;
357 struct frame
*f
, *found
;
360 if (wdesc
== None
) return NULL
;
363 for (tail
= Vframe_list
; CONSP (tail
) && !found
; tail
= XCDR (tail
))
370 if (FRAME_X_P (f
) && FRAME_X_DISPLAY_INFO (f
) == dpyinfo
)
372 /* This frame matches if the window is any of its widgets. */
373 x
= f
->output_data
.x
;
374 if (x
->hourglass_window
== wdesc
)
379 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
381 && gtk_widget_get_toplevel (gwdesc
) == x
->widget
)
384 if (wdesc
== XtWindow (x
->widget
)
385 || wdesc
== XtWindow (x
->column_widget
)
386 || wdesc
== XtWindow (x
->edit_widget
))
388 /* Match if the window is this frame's menubar. */
389 else if (lw_window_is_in_menubar (wdesc
, x
->menubar_widget
))
393 else if (FRAME_X_WINDOW (f
) == wdesc
)
394 /* A tooltip frame. */
402 /* Likewise, but consider only the menu bar widget. */
405 x_menubar_window_to_frame (dpyinfo
, wdesc
)
406 struct x_display_info
*dpyinfo
;
409 Lisp_Object tail
, frame
;
413 if (wdesc
== None
) return 0;
415 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCDR (tail
))
421 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
423 x
= f
->output_data
.x
;
424 /* Match if the window is this frame's menubar. */
426 if (x
->menubar_widget
)
428 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
430 /* This gives false positives, but the rectangle check in xterm.c
431 where this is called takes care of that. */
433 && (gwdesc
== x
->menubar_widget
434 || gtk_widget_is_ancestor (x
->menubar_widget
, gwdesc
)
435 || gtk_widget_is_ancestor (gwdesc
, x
->menubar_widget
)))
439 if (x
->menubar_widget
440 && lw_window_is_in_menubar (wdesc
, x
->menubar_widget
))
447 /* Return the frame whose principal (outermost) window is WDESC.
448 If WDESC is some other (smaller) window, we return 0. */
451 x_top_window_to_frame (dpyinfo
, wdesc
)
452 struct x_display_info
*dpyinfo
;
455 Lisp_Object tail
, frame
;
459 if (wdesc
== None
) return 0;
461 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCDR (tail
))
467 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
469 x
= f
->output_data
.x
;
473 /* This frame matches if the window is its topmost widget. */
475 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
476 if (gwdesc
== x
->widget
)
479 if (wdesc
== XtWindow (x
->widget
))
481 #if 0 /* I don't know why it did this,
482 but it seems logically wrong,
483 and it causes trouble for MapNotify events. */
484 /* Match if the window is this frame's menubar. */
485 if (x
->menubar_widget
486 && wdesc
== XtWindow (x
->menubar_widget
))
491 else if (FRAME_X_WINDOW (f
) == wdesc
)
497 #endif /* USE_X_TOOLKIT || USE_GTK */
501 static void x_default_font_parameter
P_ ((struct frame
*, Lisp_Object
));
503 static Lisp_Object unwind_create_frame
P_ ((Lisp_Object
));
504 static Lisp_Object unwind_create_tip_frame
P_ ((Lisp_Object
));
506 void x_set_foreground_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
507 static void x_set_wait_for_wm
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
508 void x_set_background_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
509 void x_set_mouse_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
510 void x_set_cursor_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
511 void x_set_border_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
512 void x_set_cursor_type
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
513 void x_set_icon_type
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
514 void x_set_icon_name
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
515 void x_explicitly_set_name
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
516 void x_set_menu_bar_lines
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
517 void x_set_title
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
518 void x_set_tool_bar_lines
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
519 void x_set_scroll_bar_foreground
P_ ((struct frame
*, Lisp_Object
,
521 void x_set_scroll_bar_background
P_ ((struct frame
*, Lisp_Object
,
523 static Lisp_Object x_default_scroll_bar_color_parameter
P_ ((struct frame
*,
530 /* Store the screen positions of frame F into XPTR and YPTR.
531 These are the positions of the containing window manager window,
532 not Emacs's own window. */
535 x_real_positions (f
, xptr
, yptr
)
539 int win_x
, win_y
, outer_x
, outer_y
;
540 int real_x
= 0, real_y
= 0;
542 Window win
= f
->output_data
.x
->parent_desc
;
546 x_catch_errors (FRAME_X_DISPLAY (f
));
548 if (win
== FRAME_X_DISPLAY_INFO (f
)->root_window
)
549 win
= FRAME_OUTER_WINDOW (f
);
551 /* This loop traverses up the containment tree until we hit the root
552 window. Window managers may intersect many windows between our window
553 and the root window. The window we find just before the root window
554 should be the outer WM window. */
557 Window wm_window
, rootw
;
558 Window
*tmp_children
;
559 unsigned int tmp_nchildren
;
562 success
= XQueryTree (FRAME_X_DISPLAY (f
), win
, &rootw
,
563 &wm_window
, &tmp_children
, &tmp_nchildren
);
565 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
567 /* Don't free tmp_children if XQueryTree failed. */
571 XFree ((char *) tmp_children
);
573 if (wm_window
== rootw
|| had_errors
)
584 /* Get the real coordinates for the WM window upper left corner */
585 XGetGeometry (FRAME_X_DISPLAY (f
), win
,
586 &rootw
, &real_x
, &real_y
, &ign
, &ign
, &ign
, &ign
);
588 /* Translate real coordinates to coordinates relative to our
589 window. For our window, the upper left corner is 0, 0.
590 Since the upper left corner of the WM window is outside
591 our window, win_x and win_y will be negative:
593 ------------------ ---> x
595 | ----------------- v y
598 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
600 /* From-window, to-window. */
601 FRAME_X_DISPLAY_INFO (f
)->root_window
,
604 /* From-position, to-position. */
605 real_x
, real_y
, &win_x
, &win_y
,
610 if (FRAME_X_WINDOW (f
) == FRAME_OUTER_WINDOW (f
))
617 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
619 /* From-window, to-window. */
620 FRAME_X_DISPLAY_INFO (f
)->root_window
,
621 FRAME_OUTER_WINDOW (f
),
623 /* From-position, to-position. */
624 real_x
, real_y
, &outer_x
, &outer_y
,
630 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
637 if (had_errors
) return;
639 f
->x_pixels_diff
= -win_x
;
640 f
->y_pixels_diff
= -win_y
;
642 FRAME_X_OUTPUT (f
)->x_pixels_outer_diff
= -outer_x
;
643 FRAME_X_OUTPUT (f
)->y_pixels_outer_diff
= -outer_y
;
652 /* Gamma-correct COLOR on frame F. */
655 gamma_correct (f
, color
)
661 color
->red
= pow (color
->red
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
662 color
->green
= pow (color
->green
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
663 color
->blue
= pow (color
->blue
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
668 /* Decide if color named COLOR_NAME is valid for use on frame F. If
669 so, return the RGB values in COLOR. If ALLOC_P is non-zero,
670 allocate the color. Value is zero if COLOR_NAME is invalid, or
671 no color could be allocated. */
674 x_defined_color (f
, color_name
, color
, alloc_p
)
681 Display
*dpy
= FRAME_X_DISPLAY (f
);
682 Colormap cmap
= FRAME_X_COLORMAP (f
);
685 success_p
= XParseColor (dpy
, cmap
, color_name
, color
);
686 if (success_p
&& alloc_p
)
687 success_p
= x_alloc_nearest_color (f
, cmap
, color
);
694 /* Return the pixel color value for color COLOR_NAME on frame F. If F
695 is a monochrome frame, return MONO_COLOR regardless of what ARG says.
696 Signal an error if color can't be allocated. */
699 x_decode_color (f
, color_name
, mono_color
)
701 Lisp_Object color_name
;
706 CHECK_STRING (color_name
);
708 #if 0 /* Don't do this. It's wrong when we're not using the default
709 colormap, it makes freeing difficult, and it's probably not
710 an important optimization. */
711 if (strcmp (SDATA (color_name
), "black") == 0)
712 return BLACK_PIX_DEFAULT (f
);
713 else if (strcmp (SDATA (color_name
), "white") == 0)
714 return WHITE_PIX_DEFAULT (f
);
717 /* Return MONO_COLOR for monochrome frames. */
718 if (FRAME_X_DISPLAY_INFO (f
)->n_planes
== 1)
721 /* x_defined_color is responsible for coping with failures
722 by looking for a near-miss. */
723 if (x_defined_color (f
, SDATA (color_name
), &cdef
, 1))
726 signal_error ("Undefined color", color_name
);
731 /* Change the `wait-for-wm' frame parameter of frame F. OLD_VALUE is
732 the previous value of that parameter, NEW_VALUE is the new value.
733 See also the comment of wait_for_wm in struct x_output. */
736 x_set_wait_for_wm (f
, new_value
, old_value
)
738 Lisp_Object new_value
, old_value
;
740 f
->output_data
.x
->wait_for_wm
= !NILP (new_value
);
745 /* Set icon from FILE for frame F. By using GTK functions the icon
746 may be any format that GdkPixbuf knows about, i.e. not just bitmaps. */
749 xg_set_icon (f
, file
)
756 found
= x_find_image_file (file
);
762 char *filename
= (char *) SDATA (found
);
765 pixbuf
= gdk_pixbuf_new_from_file (filename
, &err
);
769 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
771 g_object_unref (pixbuf
);
785 xg_set_icon_from_xpm_data (f
, data
)
790 GdkPixbuf
*pixbuf
= gdk_pixbuf_new_from_xpm_data ((const char **) data
);
795 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)), pixbuf
);
796 g_object_unref (pixbuf
);
802 /* Functions called only from `x_set_frame_param'
803 to set individual parameters.
805 If FRAME_X_WINDOW (f) is 0,
806 the frame is being created and its X-window does not exist yet.
807 In that case, just record the parameter's new value
808 in the standard place; do not attempt to change the window. */
811 x_set_foreground_color (f
, arg
, oldval
)
813 Lisp_Object arg
, oldval
;
815 struct x_output
*x
= f
->output_data
.x
;
816 unsigned long fg
, old_fg
;
818 fg
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
819 old_fg
= FRAME_FOREGROUND_PIXEL (f
);
820 FRAME_FOREGROUND_PIXEL (f
) = fg
;
822 if (FRAME_X_WINDOW (f
) != 0)
824 Display
*dpy
= FRAME_X_DISPLAY (f
);
827 XSetForeground (dpy
, x
->normal_gc
, fg
);
828 XSetBackground (dpy
, x
->reverse_gc
, fg
);
830 if (x
->cursor_pixel
== old_fg
)
832 unload_color (f
, x
->cursor_pixel
);
833 x
->cursor_pixel
= x_copy_color (f
, fg
);
834 XSetBackground (dpy
, x
->cursor_gc
, x
->cursor_pixel
);
839 update_face_from_frame_parameter (f
, Qforeground_color
, arg
);
841 if (FRAME_VISIBLE_P (f
))
845 unload_color (f
, old_fg
);
849 x_set_background_color (f
, arg
, oldval
)
851 Lisp_Object arg
, oldval
;
853 struct x_output
*x
= f
->output_data
.x
;
856 bg
= x_decode_color (f
, arg
, WHITE_PIX_DEFAULT (f
));
857 unload_color (f
, FRAME_BACKGROUND_PIXEL (f
));
858 FRAME_BACKGROUND_PIXEL (f
) = bg
;
860 if (FRAME_X_WINDOW (f
) != 0)
862 Display
*dpy
= FRAME_X_DISPLAY (f
);
865 XSetBackground (dpy
, x
->normal_gc
, bg
);
866 XSetForeground (dpy
, x
->reverse_gc
, bg
);
867 XSetWindowBackground (dpy
, FRAME_X_WINDOW (f
), bg
);
868 XSetForeground (dpy
, x
->cursor_gc
, bg
);
871 xg_set_background_color (f
, bg
);
874 #ifndef USE_TOOLKIT_SCROLL_BARS /* Turns out to be annoying with
875 toolkit scroll bars. */
878 for (bar
= FRAME_SCROLL_BARS (f
);
880 bar
= XSCROLL_BAR (bar
)->next
)
882 Window window
= XSCROLL_BAR (bar
)->x_window
;
883 XSetWindowBackground (dpy
, window
, bg
);
886 #endif /* USE_TOOLKIT_SCROLL_BARS */
889 update_face_from_frame_parameter (f
, Qbackground_color
, arg
);
891 if (FRAME_VISIBLE_P (f
))
897 make_invisible_cursor (f
)
900 Display
*dpy
= FRAME_X_DISPLAY (f
);
901 static char const no_data
[] = { 0 };
906 x_catch_errors (dpy
);
907 pix
= XCreateBitmapFromData (dpy
, FRAME_X_DISPLAY_INFO (f
)->root_window
,
909 if (! x_had_errors_p (dpy
) && pix
!= None
)
912 col
.red
= col
.green
= col
.blue
= 0;
913 col
.flags
= DoRed
| DoGreen
| DoBlue
;
914 c
= XCreatePixmapCursor (dpy
, pix
, pix
, &col
, &col
, 0, 0);
915 if (x_had_errors_p (dpy
) || c
== None
)
917 XFreePixmap (dpy
, pix
);
926 x_set_mouse_color (f
, arg
, oldval
)
928 Lisp_Object arg
, oldval
;
930 struct x_output
*x
= f
->output_data
.x
;
931 Display
*dpy
= FRAME_X_DISPLAY (f
);
932 Cursor cursor
, nontext_cursor
, mode_cursor
, hand_cursor
;
933 Cursor hourglass_cursor
, horizontal_drag_cursor
;
934 unsigned long pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
935 unsigned long mask_color
= FRAME_BACKGROUND_PIXEL (f
);
937 /* Don't let pointers be invisible. */
938 if (mask_color
== pixel
)
940 x_free_colors (f
, &pixel
, 1);
941 pixel
= x_copy_color (f
, FRAME_FOREGROUND_PIXEL (f
));
944 unload_color (f
, x
->mouse_pixel
);
945 x
->mouse_pixel
= pixel
;
949 /* It's not okay to crash if the user selects a screwy cursor. */
950 x_catch_errors (dpy
);
952 if (!NILP (Vx_pointer_shape
))
954 CHECK_NUMBER (Vx_pointer_shape
);
955 cursor
= XCreateFontCursor (dpy
, XINT (Vx_pointer_shape
));
958 cursor
= XCreateFontCursor (dpy
, XC_xterm
);
959 x_check_errors (dpy
, "bad text pointer cursor: %s");
961 if (!NILP (Vx_nontext_pointer_shape
))
963 CHECK_NUMBER (Vx_nontext_pointer_shape
);
965 = XCreateFontCursor (dpy
, XINT (Vx_nontext_pointer_shape
));
968 nontext_cursor
= XCreateFontCursor (dpy
, XC_left_ptr
);
969 x_check_errors (dpy
, "bad nontext pointer cursor: %s");
971 if (!NILP (Vx_hourglass_pointer_shape
))
973 CHECK_NUMBER (Vx_hourglass_pointer_shape
);
975 = XCreateFontCursor (dpy
, XINT (Vx_hourglass_pointer_shape
));
978 hourglass_cursor
= XCreateFontCursor (dpy
, XC_watch
);
979 x_check_errors (dpy
, "bad hourglass pointer cursor: %s");
981 if (!NILP (Vx_mode_pointer_shape
))
983 CHECK_NUMBER (Vx_mode_pointer_shape
);
984 mode_cursor
= XCreateFontCursor (dpy
, XINT (Vx_mode_pointer_shape
));
987 mode_cursor
= XCreateFontCursor (dpy
, XC_xterm
);
988 x_check_errors (dpy
, "bad modeline pointer cursor: %s");
990 if (!NILP (Vx_sensitive_text_pointer_shape
))
992 CHECK_NUMBER (Vx_sensitive_text_pointer_shape
);
994 = XCreateFontCursor (dpy
, XINT (Vx_sensitive_text_pointer_shape
));
997 hand_cursor
= XCreateFontCursor (dpy
, XC_hand2
);
999 if (!NILP (Vx_window_horizontal_drag_shape
))
1001 CHECK_NUMBER (Vx_window_horizontal_drag_shape
);
1002 horizontal_drag_cursor
1003 = XCreateFontCursor (dpy
, XINT (Vx_window_horizontal_drag_shape
));
1006 horizontal_drag_cursor
1007 = XCreateFontCursor (dpy
, XC_sb_h_double_arrow
);
1009 /* Check and report errors with the above calls. */
1010 x_check_errors (dpy
, "can't set cursor shape: %s");
1011 x_uncatch_errors ();
1014 XColor fore_color
, back_color
;
1016 fore_color
.pixel
= x
->mouse_pixel
;
1017 x_query_color (f
, &fore_color
);
1018 back_color
.pixel
= mask_color
;
1019 x_query_color (f
, &back_color
);
1021 XRecolorCursor (dpy
, cursor
, &fore_color
, &back_color
);
1022 XRecolorCursor (dpy
, nontext_cursor
, &fore_color
, &back_color
);
1023 XRecolorCursor (dpy
, mode_cursor
, &fore_color
, &back_color
);
1024 XRecolorCursor (dpy
, hand_cursor
, &fore_color
, &back_color
);
1025 XRecolorCursor (dpy
, hourglass_cursor
, &fore_color
, &back_color
);
1026 XRecolorCursor (dpy
, horizontal_drag_cursor
, &fore_color
, &back_color
);
1029 if (FRAME_X_WINDOW (f
) != 0)
1030 XDefineCursor (dpy
, FRAME_X_WINDOW (f
),
1031 f
->output_data
.x
->current_cursor
= cursor
);
1033 if (FRAME_X_DISPLAY_INFO (f
)->invisible_cursor
== 0)
1034 FRAME_X_DISPLAY_INFO (f
)->invisible_cursor
= make_invisible_cursor (f
);
1036 if (cursor
!= x
->text_cursor
1037 && x
->text_cursor
!= 0)
1038 XFreeCursor (dpy
, x
->text_cursor
);
1039 x
->text_cursor
= cursor
;
1041 if (nontext_cursor
!= x
->nontext_cursor
1042 && x
->nontext_cursor
!= 0)
1043 XFreeCursor (dpy
, x
->nontext_cursor
);
1044 x
->nontext_cursor
= nontext_cursor
;
1046 if (hourglass_cursor
!= x
->hourglass_cursor
1047 && x
->hourglass_cursor
!= 0)
1048 XFreeCursor (dpy
, x
->hourglass_cursor
);
1049 x
->hourglass_cursor
= hourglass_cursor
;
1051 if (mode_cursor
!= x
->modeline_cursor
1052 && x
->modeline_cursor
!= 0)
1053 XFreeCursor (dpy
, f
->output_data
.x
->modeline_cursor
);
1054 x
->modeline_cursor
= mode_cursor
;
1056 if (hand_cursor
!= x
->hand_cursor
1057 && x
->hand_cursor
!= 0)
1058 XFreeCursor (dpy
, x
->hand_cursor
);
1059 x
->hand_cursor
= hand_cursor
;
1061 if (horizontal_drag_cursor
!= x
->horizontal_drag_cursor
1062 && x
->horizontal_drag_cursor
!= 0)
1063 XFreeCursor (dpy
, x
->horizontal_drag_cursor
);
1064 x
->horizontal_drag_cursor
= horizontal_drag_cursor
;
1069 update_face_from_frame_parameter (f
, Qmouse_color
, arg
);
1073 x_set_cursor_color (f
, arg
, oldval
)
1075 Lisp_Object arg
, oldval
;
1077 unsigned long fore_pixel
, pixel
;
1078 int fore_pixel_allocated_p
= 0, pixel_allocated_p
= 0;
1079 struct x_output
*x
= f
->output_data
.x
;
1081 if (!NILP (Vx_cursor_fore_pixel
))
1083 fore_pixel
= x_decode_color (f
, Vx_cursor_fore_pixel
,
1084 WHITE_PIX_DEFAULT (f
));
1085 fore_pixel_allocated_p
= 1;
1088 fore_pixel
= FRAME_BACKGROUND_PIXEL (f
);
1090 pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1091 pixel_allocated_p
= 1;
1093 /* Make sure that the cursor color differs from the background color. */
1094 if (pixel
== FRAME_BACKGROUND_PIXEL (f
))
1096 if (pixel_allocated_p
)
1098 x_free_colors (f
, &pixel
, 1);
1099 pixel_allocated_p
= 0;
1102 pixel
= x
->mouse_pixel
;
1103 if (pixel
== fore_pixel
)
1105 if (fore_pixel_allocated_p
)
1107 x_free_colors (f
, &fore_pixel
, 1);
1108 fore_pixel_allocated_p
= 0;
1110 fore_pixel
= FRAME_BACKGROUND_PIXEL (f
);
1114 unload_color (f
, x
->cursor_foreground_pixel
);
1115 if (!fore_pixel_allocated_p
)
1116 fore_pixel
= x_copy_color (f
, fore_pixel
);
1117 x
->cursor_foreground_pixel
= fore_pixel
;
1119 unload_color (f
, x
->cursor_pixel
);
1120 if (!pixel_allocated_p
)
1121 pixel
= x_copy_color (f
, pixel
);
1122 x
->cursor_pixel
= pixel
;
1124 if (FRAME_X_WINDOW (f
) != 0)
1127 XSetBackground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, x
->cursor_pixel
);
1128 XSetForeground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, fore_pixel
);
1131 if (FRAME_VISIBLE_P (f
))
1133 x_update_cursor (f
, 0);
1134 x_update_cursor (f
, 1);
1138 update_face_from_frame_parameter (f
, Qcursor_color
, arg
);
1141 /* Set the border-color of frame F to pixel value PIX.
1142 Note that this does not fully take effect if done before
1143 F has an x-window. */
1146 x_set_border_pixel (f
, pix
)
1150 unload_color (f
, f
->output_data
.x
->border_pixel
);
1151 f
->output_data
.x
->border_pixel
= pix
;
1153 if (FRAME_X_WINDOW (f
) != 0 && f
->border_width
> 0)
1156 XSetWindowBorder (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1157 (unsigned long)pix
);
1160 if (FRAME_VISIBLE_P (f
))
1165 /* Set the border-color of frame F to value described by ARG.
1166 ARG can be a string naming a color.
1167 The border-color is used for the border that is drawn by the X server.
1168 Note that this does not fully take effect if done before
1169 F has an x-window; it must be redone when the window is created.
1171 Note: this is done in two routines because of the way X10 works.
1173 Note: under X11, this is normally the province of the window manager,
1174 and so emacs' border colors may be overridden. */
1177 x_set_border_color (f
, arg
, oldval
)
1179 Lisp_Object arg
, oldval
;
1184 pix
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1185 x_set_border_pixel (f
, pix
);
1186 update_face_from_frame_parameter (f
, Qborder_color
, arg
);
1191 x_set_cursor_type (f
, arg
, oldval
)
1193 Lisp_Object arg
, oldval
;
1195 set_frame_cursor_types (f
, arg
);
1197 /* Make sure the cursor gets redrawn. */
1198 cursor_type_changed
= 1;
1202 x_set_icon_type (f
, arg
, oldval
)
1204 Lisp_Object arg
, oldval
;
1210 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1213 else if (!STRINGP (oldval
) && EQ (oldval
, Qnil
) == EQ (arg
, Qnil
))
1218 result
= x_text_icon (f
,
1219 (char *) SDATA ((!NILP (f
->icon_name
)
1223 result
= x_bitmap_icon (f
, arg
);
1228 error ("No icon window available");
1231 XFlush (FRAME_X_DISPLAY (f
));
1236 x_set_icon_name (f
, arg
, oldval
)
1238 Lisp_Object arg
, oldval
;
1244 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1247 else if (!NILP (arg
) || NILP (oldval
))
1252 if (f
->output_data
.x
->icon_bitmap
!= 0)
1257 result
= x_text_icon (f
,
1258 (char *) SDATA ((!NILP (f
->icon_name
)
1267 error ("No icon window available");
1270 XFlush (FRAME_X_DISPLAY (f
));
1276 x_set_menu_bar_lines (f
, value
, oldval
)
1278 Lisp_Object value
, oldval
;
1281 #if ! defined (USE_X_TOOLKIT) && ! defined (USE_GTK)
1282 int olines
= FRAME_MENU_BAR_LINES (f
);
1285 /* Right now, menu bars don't work properly in minibuf-only frames;
1286 most of the commands try to apply themselves to the minibuffer
1287 frame itself, and get an error because you can't switch buffers
1288 in or split the minibuffer window. */
1289 if (FRAME_MINIBUF_ONLY_P (f
))
1292 if (INTEGERP (value
))
1293 nlines
= XINT (value
);
1297 /* Make sure we redisplay all windows in this frame. */
1298 windows_or_buffers_changed
++;
1300 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
1301 FRAME_MENU_BAR_LINES (f
) = 0;
1304 FRAME_EXTERNAL_MENU_BAR (f
) = 1;
1305 if (FRAME_X_P (f
) && f
->output_data
.x
->menubar_widget
== 0)
1306 /* Make sure next redisplay shows the menu bar. */
1307 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= Qt
;
1311 if (FRAME_EXTERNAL_MENU_BAR (f
) == 1)
1312 free_frame_menubar (f
);
1313 FRAME_EXTERNAL_MENU_BAR (f
) = 0;
1315 f
->output_data
.x
->menubar_widget
= 0;
1317 #else /* not USE_X_TOOLKIT && not USE_GTK */
1318 FRAME_MENU_BAR_LINES (f
) = nlines
;
1319 change_window_heights (f
->root_window
, nlines
- olines
);
1321 /* If the menu bar height gets changed, the internal border below
1322 the top margin has to be cleared. Also, if the menu bar gets
1323 larger, the area for the added lines has to be cleared except for
1324 the first menu bar line that is to be drawn later. */
1325 if (nlines
!= olines
)
1327 int height
= FRAME_INTERNAL_BORDER_WIDTH (f
);
1328 int width
= FRAME_PIXEL_WIDTH (f
);
1331 /* height can be zero here. */
1332 if (height
> 0 && width
> 0)
1334 y
= FRAME_TOP_MARGIN_HEIGHT (f
);
1337 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1338 0, y
, width
, height
, False
);
1342 if (nlines
> 1 && nlines
> olines
)
1344 y
= (olines
== 0 ? 1 : olines
) * FRAME_LINE_HEIGHT (f
);
1345 height
= nlines
* FRAME_LINE_HEIGHT (f
) - y
;
1348 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1349 0, y
, width
, height
, False
);
1353 if (nlines
== 0 && WINDOWP (f
->menu_bar_window
))
1354 clear_glyph_matrix (XWINDOW (f
->menu_bar_window
)->current_matrix
);
1356 #endif /* not USE_X_TOOLKIT && not USE_GTK */
1361 /* Set the number of lines used for the tool bar of frame F to VALUE.
1362 VALUE not an integer, or < 0 means set the lines to zero. OLDVAL
1363 is the old number of tool bar lines. This function changes the
1364 height of all windows on frame F to match the new tool bar height.
1365 The frame's height doesn't change. */
1368 x_set_tool_bar_lines (f
, value
, oldval
)
1370 Lisp_Object value
, oldval
;
1372 int delta
, nlines
, root_height
;
1373 Lisp_Object root_window
;
1375 /* Treat tool bars like menu bars. */
1376 if (FRAME_MINIBUF_ONLY_P (f
))
1379 /* Use VALUE only if an integer >= 0. */
1380 if (INTEGERP (value
) && XINT (value
) >= 0)
1381 nlines
= XFASTINT (value
);
1386 FRAME_TOOL_BAR_LINES (f
) = 0;
1389 FRAME_EXTERNAL_TOOL_BAR (f
) = 1;
1390 if (FRAME_X_P (f
) && f
->output_data
.x
->toolbar_widget
== 0)
1391 /* Make sure next redisplay shows the tool bar. */
1392 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= Qt
;
1393 update_frame_tool_bar (f
);
1397 if (FRAME_EXTERNAL_TOOL_BAR (f
))
1398 free_frame_tool_bar (f
);
1399 FRAME_EXTERNAL_TOOL_BAR (f
) = 0;
1405 /* Make sure we redisplay all windows in this frame. */
1406 ++windows_or_buffers_changed
;
1408 delta
= nlines
- FRAME_TOOL_BAR_LINES (f
);
1410 /* Don't resize the tool-bar to more than we have room for. */
1411 root_window
= FRAME_ROOT_WINDOW (f
);
1412 root_height
= WINDOW_TOTAL_LINES (XWINDOW (root_window
));
1413 if (root_height
- delta
< 1)
1415 delta
= root_height
- 1;
1416 nlines
= FRAME_TOOL_BAR_LINES (f
) + delta
;
1419 FRAME_TOOL_BAR_LINES (f
) = nlines
;
1420 change_window_heights (root_window
, delta
);
1423 /* We also have to make sure that the internal border at the top of
1424 the frame, below the menu bar or tool bar, is redrawn when the
1425 tool bar disappears. This is so because the internal border is
1426 below the tool bar if one is displayed, but is below the menu bar
1427 if there isn't a tool bar. The tool bar draws into the area
1428 below the menu bar. */
1429 if (FRAME_X_WINDOW (f
) && FRAME_TOOL_BAR_LINES (f
) == 0)
1432 clear_current_matrices (f
);
1435 /* If the tool bar gets smaller, the internal border below it
1436 has to be cleared. It was formerly part of the display
1437 of the larger tool bar, and updating windows won't clear it. */
1440 int height
= FRAME_INTERNAL_BORDER_WIDTH (f
);
1441 int width
= FRAME_PIXEL_WIDTH (f
);
1442 int y
= (FRAME_MENU_BAR_LINES (f
) + nlines
) * FRAME_LINE_HEIGHT (f
);
1444 /* height can be zero here. */
1445 if (height
> 0 && width
> 0)
1448 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1449 0, y
, width
, height
, False
);
1453 if (WINDOWP (f
->tool_bar_window
))
1454 clear_glyph_matrix (XWINDOW (f
->tool_bar_window
)->current_matrix
);
1459 /* Set the foreground color for scroll bars on frame F to VALUE.
1460 VALUE should be a string, a color name. If it isn't a string or
1461 isn't a valid color name, do nothing. OLDVAL is the old value of
1462 the frame parameter. */
1465 x_set_scroll_bar_foreground (f
, value
, oldval
)
1467 Lisp_Object value
, oldval
;
1469 unsigned long pixel
;
1471 if (STRINGP (value
))
1472 pixel
= x_decode_color (f
, value
, BLACK_PIX_DEFAULT (f
));
1476 if (f
->output_data
.x
->scroll_bar_foreground_pixel
!= -1)
1477 unload_color (f
, f
->output_data
.x
->scroll_bar_foreground_pixel
);
1479 f
->output_data
.x
->scroll_bar_foreground_pixel
= pixel
;
1480 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1482 /* Remove all scroll bars because they have wrong colors. */
1483 if (FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
)
1484 (*FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
) (f
);
1485 if (FRAME_TERMINAL (f
)->judge_scroll_bars_hook
)
1486 (*FRAME_TERMINAL (f
)->judge_scroll_bars_hook
) (f
);
1488 update_face_from_frame_parameter (f
, Qscroll_bar_foreground
, value
);
1494 /* Set the background color for scroll bars on frame F to VALUE VALUE
1495 should be a string, a color name. If it isn't a string or isn't a
1496 valid color name, do nothing. OLDVAL is the old value of the frame
1500 x_set_scroll_bar_background (f
, value
, oldval
)
1502 Lisp_Object value
, oldval
;
1504 unsigned long pixel
;
1506 if (STRINGP (value
))
1507 pixel
= x_decode_color (f
, value
, WHITE_PIX_DEFAULT (f
));
1511 if (f
->output_data
.x
->scroll_bar_background_pixel
!= -1)
1512 unload_color (f
, f
->output_data
.x
->scroll_bar_background_pixel
);
1514 #ifdef USE_TOOLKIT_SCROLL_BARS
1515 /* Scrollbar shadow colors. */
1516 if (f
->output_data
.x
->scroll_bar_top_shadow_pixel
!= -1)
1518 unload_color (f
, f
->output_data
.x
->scroll_bar_top_shadow_pixel
);
1519 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
1521 if (f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
!= -1)
1523 unload_color (f
, f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
);
1524 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
1526 #endif /* USE_TOOLKIT_SCROLL_BARS */
1528 f
->output_data
.x
->scroll_bar_background_pixel
= pixel
;
1529 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1531 /* Remove all scroll bars because they have wrong colors. */
1532 if (FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
)
1533 (*FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
) (f
);
1534 if (FRAME_TERMINAL (f
)->judge_scroll_bars_hook
)
1535 (*FRAME_TERMINAL (f
)->judge_scroll_bars_hook
) (f
);
1537 update_face_from_frame_parameter (f
, Qscroll_bar_background
, value
);
1543 /* Encode Lisp string STRING as a text in a format appropriate for
1544 XICCC (X Inter Client Communication Conventions).
1546 This can call Lisp code, so callers must GCPRO.
1548 If STRING contains only ASCII characters, do no conversion and
1549 return the string data of STRING. Otherwise, encode the text by
1550 CODING_SYSTEM, and return a newly allocated memory area which
1551 should be freed by `xfree' by a caller.
1553 SELECTIONP non-zero means the string is being encoded for an X
1554 selection, so it is safe to run pre-write conversions (which
1557 Store the byte length of resulting text in *TEXT_BYTES.
1559 If the text contains only ASCII and Latin-1, store 1 in *STRING_P,
1560 which means that the `encoding' of the result can be `STRING'.
1561 Otherwise store 0 in *STRINGP, which means that the `encoding' of
1562 the result should be `COMPOUND_TEXT'. */
1564 static unsigned char *
1565 x_encode_text (string
, coding_system
, selectionp
, text_bytes
, stringp
, freep
)
1566 Lisp_Object string
, coding_system
;
1567 int *text_bytes
, *stringp
;
1571 int result
= string_xstring_p (string
);
1572 struct coding_system coding
;
1576 /* No multibyte character in OBJ. We need not encode it. */
1577 *text_bytes
= SBYTES (string
);
1580 return SDATA (string
);
1583 setup_coding_system (coding_system
, &coding
);
1584 coding
.mode
|= (CODING_MODE_SAFE_ENCODING
| CODING_MODE_LAST_BLOCK
);
1585 /* We suppress producing escape sequences for composition. */
1586 coding
.common_flags
&= ~CODING_ANNOTATION_MASK
;
1587 coding
.dst_bytes
= SCHARS (string
) * 2;
1588 coding
.destination
= (unsigned char *) xmalloc (coding
.dst_bytes
);
1589 encode_coding_object (&coding
, string
, 0, 0,
1590 SCHARS (string
), SBYTES (string
), Qnil
);
1591 *text_bytes
= coding
.produced
;
1592 *stringp
= (result
== 1 || !EQ (coding_system
, Qcompound_text
));
1594 return coding
.destination
;
1598 /* Set the WM name to NAME for frame F. Also set the icon name.
1599 If the frame already has an icon name, use that, otherwise set the
1600 icon name to NAME. */
1603 x_set_name_internal (f
, name
)
1607 if (FRAME_X_WINDOW (f
))
1611 XTextProperty text
, icon
;
1613 int do_free_icon_value
= 0, do_free_text_value
= 0;
1614 Lisp_Object coding_system
;
1616 Lisp_Object encoded_name
;
1617 struct gcpro gcpro1
;
1619 /* As ENCODE_UTF_8 may cause GC and relocation of string data,
1620 we use it before x_encode_text that may return string data. */
1622 encoded_name
= ENCODE_UTF_8 (name
);
1626 coding_system
= Qcompound_text
;
1627 /* Note: Encoding strategy
1629 We encode NAME by compound-text and use "COMPOUND-TEXT" in
1630 text.encoding. But, there are non-internationalized window
1631 managers which don't support that encoding. So, if NAME
1632 contains only ASCII and 8859-1 characters, encode it by
1633 iso-latin-1, and use "STRING" in text.encoding hoping that
1634 such window managers at least analyze this format correctly,
1635 i.e. treat 8-bit bytes as 8859-1 characters.
1637 We may also be able to use "UTF8_STRING" in text.encoding
1638 in the future which can encode all Unicode characters.
1639 But, for the moment, there's no way to know that the
1640 current window manager supports it or not. */
1641 text
.value
= x_encode_text (name
, coding_system
, 0, &bytes
, &stringp
,
1642 &do_free_text_value
);
1643 text
.encoding
= (stringp
? XA_STRING
1644 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1646 text
.nitems
= bytes
;
1648 if (!STRINGP (f
->icon_name
))
1654 /* See the above comment "Note: Encoding strategy". */
1655 icon
.value
= x_encode_text (f
->icon_name
, coding_system
, 0,
1656 &bytes
, &stringp
, &do_free_icon_value
);
1657 icon
.encoding
= (stringp
? XA_STRING
1658 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1660 icon
.nitems
= bytes
;
1664 gtk_window_set_title (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
1665 (char *) SDATA (encoded_name
));
1666 #else /* not USE_GTK */
1667 XSetWMName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &text
);
1668 #endif /* not USE_GTK */
1670 XSetWMIconName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &icon
);
1672 if (do_free_icon_value
)
1674 if (do_free_text_value
)
1681 /* Change the name of frame F to NAME. If NAME is nil, set F's name to
1684 If EXPLICIT is non-zero, that indicates that lisp code is setting the
1685 name; if NAME is a string, set F's name to NAME and set
1686 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1688 If EXPLICIT is zero, that indicates that Emacs redisplay code is
1689 suggesting a new name, which lisp code should override; if
1690 F->explicit_name is set, ignore the new name; otherwise, set it. */
1693 x_set_name (f
, name
, explicit)
1698 /* Make sure that requests from lisp code override requests from
1699 Emacs redisplay code. */
1702 /* If we're switching from explicit to implicit, we had better
1703 update the mode lines and thereby update the title. */
1704 if (f
->explicit_name
&& NILP (name
))
1705 update_mode_lines
= 1;
1707 f
->explicit_name
= ! NILP (name
);
1709 else if (f
->explicit_name
)
1712 /* If NAME is nil, set the name to the x_id_name. */
1715 /* Check for no change needed in this very common case
1716 before we do any consing. */
1717 if (!strcmp (FRAME_X_DISPLAY_INFO (f
)->x_id_name
,
1720 name
= build_string (FRAME_X_DISPLAY_INFO (f
)->x_id_name
);
1723 CHECK_STRING (name
);
1725 /* Don't change the name if it's already NAME. */
1726 if (! NILP (Fstring_equal (name
, f
->name
)))
1731 /* For setting the frame title, the title parameter should override
1732 the name parameter. */
1733 if (! NILP (f
->title
))
1736 x_set_name_internal (f
, name
);
1739 /* This function should be called when the user's lisp code has
1740 specified a name for the frame; the name will override any set by the
1743 x_explicitly_set_name (f
, arg
, oldval
)
1745 Lisp_Object arg
, oldval
;
1747 x_set_name (f
, arg
, 1);
1750 /* This function should be called by Emacs redisplay code to set the
1751 name; names set this way will never override names set by the user's
1754 x_implicitly_set_name (f
, arg
, oldval
)
1756 Lisp_Object arg
, oldval
;
1758 x_set_name (f
, arg
, 0);
1761 /* Change the title of frame F to NAME.
1762 If NAME is nil, use the frame name as the title. */
1765 x_set_title (f
, name
, old_name
)
1767 Lisp_Object name
, old_name
;
1769 /* Don't change the title if it's already NAME. */
1770 if (EQ (name
, f
->title
))
1773 update_mode_lines
= 1;
1780 CHECK_STRING (name
);
1782 x_set_name_internal (f
, name
);
1786 x_set_scroll_bar_default_width (f
)
1789 int wid
= FRAME_COLUMN_WIDTH (f
);
1791 #ifdef USE_TOOLKIT_SCROLL_BARS
1792 /* A minimum width of 14 doesn't look good for toolkit scroll bars. */
1793 int width
= 16 + 2 * VERTICAL_SCROLL_BAR_WIDTH_TRIM
;
1794 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (width
+ wid
- 1) / wid
;
1795 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = width
;
1797 /* Make the actual width at least 14 pixels and a multiple of a
1799 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (14 + wid
- 1) / wid
;
1801 /* Use all of that space (aside from required margins) for the
1803 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = 0;
1808 /* Record in frame F the specified or default value according to ALIST
1809 of the parameter named PROP (a Lisp symbol). If no value is
1810 specified for PROP, look for an X default for XPROP on the frame
1811 named NAME. If that is not found either, use the value DEFLT. */
1814 x_default_scroll_bar_color_parameter (f
, alist
, prop
, xprop
, xclass
,
1823 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
1826 tem
= x_get_arg (dpyinfo
, alist
, prop
, xprop
, xclass
, RES_TYPE_STRING
);
1827 if (EQ (tem
, Qunbound
))
1829 #ifdef USE_TOOLKIT_SCROLL_BARS
1831 /* See if an X resource for the scroll bar color has been
1833 tem
= display_x_get_resource (dpyinfo
,
1834 build_string (foreground_p
1837 empty_unibyte_string
,
1838 build_string ("verticalScrollBar"),
1839 empty_unibyte_string
);
1842 /* If nothing has been specified, scroll bars will use a
1843 toolkit-dependent default. Because these defaults are
1844 difficult to get at without actually creating a scroll
1845 bar, use nil to indicate that no color has been
1850 #else /* not USE_TOOLKIT_SCROLL_BARS */
1854 #endif /* not USE_TOOLKIT_SCROLL_BARS */
1857 x_set_frame_parameters (f
, Fcons (Fcons (prop
, tem
), Qnil
));
1864 #ifdef USE_X_TOOLKIT
1866 /* If the WM_PROTOCOLS property does not already contain WM_TAKE_FOCUS,
1867 WM_DELETE_WINDOW, and WM_SAVE_YOURSELF, then add them. (They may
1868 already be present because of the toolkit (Motif adds some of them,
1869 for example, but Xt doesn't). */
1872 hack_wm_protocols (f
, widget
)
1876 Display
*dpy
= XtDisplay (widget
);
1877 Window w
= XtWindow (widget
);
1878 int need_delete
= 1;
1885 unsigned char *catoms
;
1887 unsigned long nitems
= 0;
1888 unsigned long bytes_after
;
1890 if ((XGetWindowProperty (dpy
, w
,
1891 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1892 (long)0, (long)100, False
, XA_ATOM
,
1893 &type
, &format
, &nitems
, &bytes_after
,
1896 && format
== 32 && type
== XA_ATOM
)
1898 Atom
*atoms
= (Atom
*) catoms
;
1903 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
)
1905 else if (atoms
[nitems
]
1906 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
)
1908 else if (atoms
[nitems
]
1909 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
)
1920 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
1922 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
;
1924 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
1926 XChangeProperty (dpy
, w
, FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1927 XA_ATOM
, 32, PropModeAppend
,
1928 (unsigned char *) props
, count
);
1936 /* Support routines for XIC (X Input Context). */
1940 static XFontSet xic_create_xfontset
P_ ((struct frame
*));
1941 static XIMStyle best_xim_style
P_ ((XIMStyles
*, XIMStyles
*));
1944 /* Supported XIM styles, ordered by preference. */
1946 static XIMStyle supported_xim_styles
[] =
1948 XIMPreeditPosition
| XIMStatusArea
,
1949 XIMPreeditPosition
| XIMStatusNothing
,
1950 XIMPreeditPosition
| XIMStatusNone
,
1951 XIMPreeditNothing
| XIMStatusArea
,
1952 XIMPreeditNothing
| XIMStatusNothing
,
1953 XIMPreeditNothing
| XIMStatusNone
,
1954 XIMPreeditNone
| XIMStatusArea
,
1955 XIMPreeditNone
| XIMStatusNothing
,
1956 XIMPreeditNone
| XIMStatusNone
,
1961 /* Create an X fontset on frame F with base font name BASE_FONTNAME. */
1963 char xic_defaut_fontset
[] = "-*-*-*-r-normal--14-*-*-*-*-*-*-*";
1965 /* Create an Xt fontset spec from the name of a base font.
1966 If `motif' is True use the Motif syntax. */
1968 xic_create_fontsetname (base_fontname
, motif
)
1969 char *base_fontname
;
1972 const char *sep
= motif
? ";" : ",";
1975 /* Make a fontset name from the base font name. */
1976 if (xic_defaut_fontset
== base_fontname
)
1977 { /* There is no base font name, use the default. */
1978 int len
= strlen (base_fontname
) + 2;
1979 fontsetname
= xmalloc (len
);
1980 bzero (fontsetname
, len
);
1981 strcpy (fontsetname
, base_fontname
);
1985 /* Make a fontset name from the base font name.
1986 The font set will be made of the following elements:
1988 - the base font where the charset spec is replaced by -*-*.
1989 - the same but with the family also replaced with -*-*-. */
1990 char *p
= base_fontname
;
1993 for (i
= 0; *p
; p
++)
1996 { /* As the font name doesn't conform to XLFD, we can't
1997 modify it to generalize it to allcs and allfamilies.
1998 Use the specified font plus the default. */
1999 int len
= strlen (base_fontname
) + strlen (xic_defaut_fontset
) + 3;
2000 fontsetname
= xmalloc (len
);
2001 bzero (fontsetname
, len
);
2002 strcpy (fontsetname
, base_fontname
);
2003 strcat (fontsetname
, sep
);
2004 strcat (fontsetname
, xic_defaut_fontset
);
2009 char *p1
= NULL
, *p2
= NULL
, *p3
= NULL
;
2010 char *font_allcs
= NULL
;
2011 char *font_allfamilies
= NULL
;
2012 char *font_all
= NULL
;
2013 char *allcs
= "*-*-*-*-*-*-*";
2014 char *allfamilies
= "-*-*-";
2015 char *all
= "*-*-*-*-";
2018 for (i
= 0, p
= base_fontname
; i
< 8; p
++)
2031 /* If base_fontname specifies ADSTYLE, make it a
2035 int diff
= (p2
- p3
) - 2;
2037 base
= alloca (strlen (base_fontname
) + 1);
2038 bcopy (base_fontname
, base
, p3
- base_fontname
);
2039 base
[p3
- base_fontname
] = '*';
2040 base
[(p3
- base_fontname
) + 1] = '-';
2041 strcpy (base
+ (p3
- base_fontname
) + 2, p2
);
2042 p
= base
+ (p
- base_fontname
) - diff
;
2043 p1
= base
+ (p1
- base_fontname
);
2044 p2
= base
+ (p2
- base_fontname
) - diff
;
2045 base_fontname
= base
;
2048 /* Build the font spec that matches all charsets. */
2049 len
= p
- base_fontname
+ strlen (allcs
) + 1;
2050 font_allcs
= (char *) alloca (len
);
2051 bzero (font_allcs
, len
);
2052 bcopy (base_fontname
, font_allcs
, p
- base_fontname
);
2053 strcat (font_allcs
, allcs
);
2055 /* Build the font spec that matches all families and
2057 len
= p
- p1
+ strlen (allcs
) + strlen (allfamilies
) + 1;
2058 font_allfamilies
= (char *) alloca (len
);
2059 bzero (font_allfamilies
, len
);
2060 strcpy (font_allfamilies
, allfamilies
);
2061 bcopy (p1
, font_allfamilies
+ strlen (allfamilies
), p
- p1
);
2062 strcat (font_allfamilies
, allcs
);
2064 /* Build the font spec that matches all. */
2065 len
= p
- p2
+ strlen (allcs
) + strlen (all
) + strlen (allfamilies
) + 1;
2066 font_all
= (char *) alloca (len
);
2067 bzero (font_all
, len
);
2068 strcpy (font_all
, allfamilies
);
2069 strcat (font_all
, all
);
2070 bcopy (p2
, font_all
+ strlen (all
) + strlen (allfamilies
), p
- p2
);
2071 strcat (font_all
, allcs
);
2073 /* Build the actual font set name. */
2074 len
= strlen (base_fontname
) + strlen (font_allcs
)
2075 + strlen (font_allfamilies
) + strlen (font_all
) + 5;
2076 fontsetname
= xmalloc (len
);
2077 bzero (fontsetname
, len
);
2078 strcpy (fontsetname
, base_fontname
);
2079 strcat (fontsetname
, sep
);
2080 strcat (fontsetname
, font_allcs
);
2081 strcat (fontsetname
, sep
);
2082 strcat (fontsetname
, font_allfamilies
);
2083 strcat (fontsetname
, sep
);
2084 strcat (fontsetname
, font_all
);
2088 strcat (fontsetname
, ":");
2092 #ifdef DEBUG_XIC_FONTSET
2094 print_fontset_result (xfs
, name
, missing_list
, missing_count
)
2097 char **missing_list
;
2101 fprintf (stderr
, "XIC Fontset created: %s\n", name
);
2104 fprintf (stderr
, "XIC Fontset failed: %s\n", name
);
2105 while (missing_count
-- > 0)
2107 fprintf (stderr
, " missing: %s\n", *missing_list
);
2116 xic_create_xfontset (f
)
2119 XFontSet xfs
= NULL
;
2120 struct font
*font
= FRAME_FONT (f
);
2121 int pixel_size
= font
->pixel_size
;
2122 Lisp_Object rest
, frame
;
2124 /* See if there is another frame already using same fontset. */
2125 FOR_EACH_FRAME (rest
, frame
)
2127 struct frame
*cf
= XFRAME (frame
);
2129 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
2130 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
2132 && FRAME_FONT (f
)->pixel_size
== pixel_size
)
2134 xfs
= FRAME_XIC_FONTSET (cf
);
2142 char **missing_list
;
2145 char *xlfd_format
= "-*-*-medium-r-normal--%d-*-*-*-*-*";
2147 sprintf (buf
, xlfd_format
, pixel_size
);
2148 missing_list
= NULL
;
2149 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), buf
,
2150 &missing_list
, &missing_count
, &def_string
);
2151 #ifdef DEBUG_XIC_FONTSET
2152 print_fontset_result (xfs
, buf
, missing_list
, missing_count
);
2155 XFreeStringList (missing_list
);
2158 /* List of pixel sizes most likely available. Find one that
2159 is closest to pixel_size. */
2160 int sizes
[] = {0, 8, 10, 11, 12, 14, 17, 18, 20, 24, 26, 34, 0};
2161 int *smaller
, *larger
;
2163 for (smaller
= sizes
; smaller
[1]; smaller
++)
2164 if (smaller
[1] >= pixel_size
)
2166 larger
= smaller
+ 1;
2167 if (*larger
== pixel_size
)
2169 while (*smaller
|| *larger
)
2174 this_size
= *smaller
--;
2175 else if (! *smaller
)
2176 this_size
= *larger
++;
2177 else if (pixel_size
- *smaller
< *larger
- pixel_size
)
2178 this_size
= *smaller
--;
2180 this_size
= *larger
++;
2181 sprintf (buf
, xlfd_format
, this_size
);
2182 missing_list
= NULL
;
2183 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), buf
,
2184 &missing_list
, &missing_count
, &def_string
);
2185 #ifdef DEBUG_XIC_FONTSET
2186 print_fontset_result (xfs
, buf
, missing_list
, missing_count
);
2189 XFreeStringList (missing_list
);
2196 char *last_resort
= "-*-*-*-r-normal--*-*-*-*-*-*";
2198 missing_list
= NULL
;
2199 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), last_resort
,
2200 &missing_list
, &missing_count
, &def_string
);
2201 #ifdef DEBUG_XIC_FONTSET
2202 print_fontset_result (xfs
, last_resort
, missing_list
, missing_count
);
2205 XFreeStringList (missing_list
);
2213 /* Free the X fontset of frame F if it is the last frame using it. */
2216 xic_free_xfontset (f
)
2219 Lisp_Object rest
, frame
;
2222 if (!FRAME_XIC_FONTSET (f
))
2225 /* See if there is another frame sharing the same fontset. */
2226 FOR_EACH_FRAME (rest
, frame
)
2228 struct frame
*cf
= XFRAME (frame
);
2229 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
2230 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
2231 && FRAME_XIC_FONTSET (cf
) == FRAME_XIC_FONTSET (f
))
2239 /* The fontset is not used anymore. It is safe to free it. */
2240 XFreeFontSet (FRAME_X_DISPLAY (f
), FRAME_XIC_FONTSET (f
));
2242 if (FRAME_XIC_BASE_FONTNAME (f
))
2243 xfree (FRAME_XIC_BASE_FONTNAME (f
));
2244 FRAME_XIC_BASE_FONTNAME (f
) = NULL
;
2245 FRAME_XIC_FONTSET (f
) = NULL
;
2249 /* Value is the best input style, given user preferences USER (already
2250 checked to be supported by Emacs), and styles supported by the
2251 input method XIM. */
2254 best_xim_style (user
, xim
)
2260 for (i
= 0; i
< user
->count_styles
; ++i
)
2261 for (j
= 0; j
< xim
->count_styles
; ++j
)
2262 if (user
->supported_styles
[i
] == xim
->supported_styles
[j
])
2263 return user
->supported_styles
[i
];
2265 /* Return the default style. */
2266 return XIMPreeditNothing
| XIMStatusNothing
;
2269 /* Create XIC for frame F. */
2271 static XIMStyle xic_style
;
2274 create_frame_xic (f
)
2279 XFontSet xfs
= NULL
;
2284 /* Create X fontset. */
2285 xfs
= xic_create_xfontset (f
);
2286 xim
= FRAME_X_XIM (f
);
2291 XVaNestedList preedit_attr
;
2292 XVaNestedList status_attr
;
2294 s_area
.x
= 0; s_area
.y
= 0; s_area
.width
= 1; s_area
.height
= 1;
2295 spot
.x
= 0; spot
.y
= 1;
2297 /* Determine XIC style. */
2300 XIMStyles supported_list
;
2301 supported_list
.count_styles
= (sizeof supported_xim_styles
2302 / sizeof supported_xim_styles
[0]);
2303 supported_list
.supported_styles
= supported_xim_styles
;
2304 xic_style
= best_xim_style (&supported_list
,
2305 FRAME_X_XIM_STYLES (f
));
2308 preedit_attr
= XVaCreateNestedList (0,
2311 FRAME_FOREGROUND_PIXEL (f
),
2313 FRAME_BACKGROUND_PIXEL (f
),
2314 (xic_style
& XIMPreeditPosition
2319 status_attr
= XVaCreateNestedList (0,
2325 FRAME_FOREGROUND_PIXEL (f
),
2327 FRAME_BACKGROUND_PIXEL (f
),
2330 xic
= XCreateIC (xim
,
2331 XNInputStyle
, xic_style
,
2332 XNClientWindow
, FRAME_X_WINDOW (f
),
2333 XNFocusWindow
, FRAME_X_WINDOW (f
),
2334 XNStatusAttributes
, status_attr
,
2335 XNPreeditAttributes
, preedit_attr
,
2337 XFree (preedit_attr
);
2338 XFree (status_attr
);
2341 FRAME_XIC (f
) = xic
;
2342 FRAME_XIC_STYLE (f
) = xic_style
;
2343 FRAME_XIC_FONTSET (f
) = xfs
;
2347 /* Destroy XIC and free XIC fontset of frame F, if any. */
2353 if (FRAME_XIC (f
) == NULL
)
2356 XDestroyIC (FRAME_XIC (f
));
2357 xic_free_xfontset (f
);
2359 FRAME_XIC (f
) = NULL
;
2363 /* Place preedit area for XIC of window W's frame to specified
2364 pixel position X/Y. X and Y are relative to window W. */
2367 xic_set_preeditarea (w
, x
, y
)
2371 struct frame
*f
= XFRAME (w
->frame
);
2375 spot
.x
= WINDOW_TO_FRAME_PIXEL_X (w
, x
) + WINDOW_LEFT_FRINGE_WIDTH (w
);
2376 spot
.y
= WINDOW_TO_FRAME_PIXEL_Y (w
, y
) + FONT_BASE (FRAME_FONT (f
));
2377 attr
= XVaCreateNestedList (0, XNSpotLocation
, &spot
, NULL
);
2378 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2383 /* Place status area for XIC in bottom right corner of frame F.. */
2386 xic_set_statusarea (f
)
2389 XIC xic
= FRAME_XIC (f
);
2394 /* Negotiate geometry of status area. If input method has existing
2395 status area, use its current size. */
2396 area
.x
= area
.y
= area
.width
= area
.height
= 0;
2397 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &area
, NULL
);
2398 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2401 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &needed
, NULL
);
2402 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2405 if (needed
->width
== 0) /* Use XNArea instead of XNAreaNeeded */
2407 attr
= XVaCreateNestedList (0, XNArea
, &needed
, NULL
);
2408 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2412 area
.width
= needed
->width
;
2413 area
.height
= needed
->height
;
2414 area
.x
= FRAME_PIXEL_WIDTH (f
) - area
.width
- FRAME_INTERNAL_BORDER_WIDTH (f
);
2415 area
.y
= (FRAME_PIXEL_HEIGHT (f
) - area
.height
2416 - FRAME_MENUBAR_HEIGHT (f
)
2417 - FRAME_TOOLBAR_HEIGHT (f
)
2418 - FRAME_INTERNAL_BORDER_WIDTH (f
));
2421 attr
= XVaCreateNestedList (0, XNArea
, &area
, NULL
);
2422 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2427 /* Set X fontset for XIC of frame F, using base font name
2428 BASE_FONTNAME. Called when a new Emacs fontset is chosen. */
2431 xic_set_xfontset (f
, base_fontname
)
2433 char *base_fontname
;
2438 xic_free_xfontset (f
);
2440 xfs
= xic_create_xfontset (f
);
2442 attr
= XVaCreateNestedList (0, XNFontSet
, xfs
, NULL
);
2443 if (FRAME_XIC_STYLE (f
) & XIMPreeditPosition
)
2444 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2445 if (FRAME_XIC_STYLE (f
) & XIMStatusArea
)
2446 XSetICValues (FRAME_XIC (f
), XNStatusAttributes
, attr
, NULL
);
2449 FRAME_XIC_FONTSET (f
) = xfs
;
2452 #endif /* HAVE_X_I18N */
2456 #ifdef USE_X_TOOLKIT
2458 /* Create and set up the X widget for frame F. */
2461 x_window (f
, window_prompting
, minibuffer_only
)
2463 long window_prompting
;
2464 int minibuffer_only
;
2466 XClassHint class_hints
;
2467 XSetWindowAttributes attributes
;
2468 unsigned long attribute_mask
;
2469 Widget shell_widget
;
2471 Widget frame_widget
;
2477 /* Use the resource name as the top-level widget name
2478 for looking up resources. Make a non-Lisp copy
2479 for the window manager, so GC relocation won't bother it.
2481 Elsewhere we specify the window name for the window manager. */
2484 char *str
= (char *) SDATA (Vx_resource_name
);
2485 f
->namebuf
= (char *) xmalloc (strlen (str
) + 1);
2486 strcpy (f
->namebuf
, str
);
2490 XtSetArg (al
[ac
], XtNallowShellResize
, 1); ac
++;
2491 XtSetArg (al
[ac
], XtNinput
, 1); ac
++;
2492 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2493 XtSetArg (al
[ac
], XtNborderWidth
, f
->border_width
); ac
++;
2494 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2495 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2496 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2497 shell_widget
= XtAppCreateShell (f
->namebuf
, EMACS_CLASS
,
2498 applicationShellWidgetClass
,
2499 FRAME_X_DISPLAY (f
), al
, ac
);
2501 f
->output_data
.x
->widget
= shell_widget
;
2502 /* maybe_set_screen_title_format (shell_widget); */
2504 pane_widget
= lw_create_widget ("main", "pane", widget_id_tick
++,
2505 (widget_value
*) NULL
,
2506 shell_widget
, False
,
2510 (lw_callback
) NULL
);
2513 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2514 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2515 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2516 XtSetValues (pane_widget
, al
, ac
);
2517 f
->output_data
.x
->column_widget
= pane_widget
;
2519 /* mappedWhenManaged to false tells to the paned window to not map/unmap
2520 the emacs screen when changing menubar. This reduces flickering. */
2523 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2524 XtSetArg (al
[ac
], XtNshowGrip
, 0); ac
++;
2525 XtSetArg (al
[ac
], XtNallowResize
, 1); ac
++;
2526 XtSetArg (al
[ac
], XtNresizeToPreferred
, 1); ac
++;
2527 XtSetArg (al
[ac
], XtNemacsFrame
, f
); ac
++;
2528 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2529 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2530 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2531 frame_widget
= XtCreateWidget (f
->namebuf
, emacsFrameClass
, pane_widget
,
2534 f
->output_data
.x
->edit_widget
= frame_widget
;
2536 XtManageChild (frame_widget
);
2538 /* Do some needed geometry management. */
2541 char *tem
, shell_position
[32];
2544 int extra_borders
= 0;
2546 = (f
->output_data
.x
->menubar_widget
2547 ? (f
->output_data
.x
->menubar_widget
->core
.height
2548 + f
->output_data
.x
->menubar_widget
->core
.border_width
)
2551 #if 0 /* Experimentally, we now get the right results
2552 for -geometry -0-0 without this. 24 Aug 96, rms. */
2553 if (FRAME_EXTERNAL_MENU_BAR (f
))
2556 XtVaGetValues (pane_widget
, XtNinternalBorderWidth
, &ibw
, NULL
);
2557 menubar_size
+= ibw
;
2561 f
->output_data
.x
->menubar_height
= menubar_size
;
2564 /* Motif seems to need this amount added to the sizes
2565 specified for the shell widget. The Athena/Lucid widgets don't.
2566 Both conclusions reached experimentally. -- rms. */
2567 XtVaGetValues (f
->output_data
.x
->edit_widget
, XtNinternalBorderWidth
,
2568 &extra_borders
, NULL
);
2572 /* Convert our geometry parameters into a geometry string
2574 Note that we do not specify here whether the position
2575 is a user-specified or program-specified one.
2576 We pass that information later, in x_wm_set_size_hints. */
2578 int left
= f
->left_pos
;
2579 int xneg
= window_prompting
& XNegative
;
2580 int top
= f
->top_pos
;
2581 int yneg
= window_prompting
& YNegative
;
2587 if (window_prompting
& USPosition
)
2588 sprintf (shell_position
, "=%dx%d%c%d%c%d",
2589 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2590 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
,
2591 (xneg
? '-' : '+'), left
,
2592 (yneg
? '-' : '+'), top
);
2595 sprintf (shell_position
, "=%dx%d",
2596 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2597 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
);
2599 /* Setting x and y when the position is not specified in
2600 the geometry string will set program position in the WM hints.
2601 If Emacs had just one program position, we could set it in
2602 fallback resources, but since each make-frame call can specify
2603 different program positions, this is easier. */
2604 XtSetArg (al
[ac
], XtNx
, left
); ac
++;
2605 XtSetArg (al
[ac
], XtNy
, top
); ac
++;
2609 len
= strlen (shell_position
) + 1;
2610 /* We don't free this because we don't know whether
2611 it is safe to free it while the frame exists.
2612 It isn't worth the trouble of arranging to free it
2613 when the frame is deleted. */
2614 tem
= (char *) xmalloc (len
);
2615 strncpy (tem
, shell_position
, len
);
2616 XtSetArg (al
[ac
], XtNgeometry
, tem
); ac
++;
2617 XtSetValues (shell_widget
, al
, ac
);
2620 XtManageChild (pane_widget
);
2621 XtRealizeWidget (shell_widget
);
2623 if (FRAME_X_EMBEDDED_P (f
))
2624 XReparentWindow (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
),
2625 f
->output_data
.x
->parent_desc
, 0, 0);
2627 FRAME_X_WINDOW (f
) = XtWindow (frame_widget
);
2629 validate_x_resource_name ();
2631 class_hints
.res_name
= (char *) SDATA (Vx_resource_name
);
2632 class_hints
.res_class
= (char *) SDATA (Vx_resource_class
);
2633 XSetClassHint (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
), &class_hints
);
2636 FRAME_XIC (f
) = NULL
;
2638 create_frame_xic (f
);
2641 f
->output_data
.x
->wm_hints
.input
= True
;
2642 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2643 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2644 &f
->output_data
.x
->wm_hints
);
2646 hack_wm_protocols (f
, shell_widget
);
2649 XtAddEventHandler (shell_widget
, 0, True
, _XEditResCheckMessages
, 0);
2652 /* Do a stupid property change to force the server to generate a
2653 PropertyNotify event so that the event_stream server timestamp will
2654 be initialized to something relevant to the time we created the window.
2656 XChangeProperty (XtDisplay (frame_widget
), XtWindow (frame_widget
),
2657 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
2658 XA_ATOM
, 32, PropModeAppend
,
2659 (unsigned char*) NULL
, 0);
2661 /* Make all the standard events reach the Emacs frame. */
2662 attributes
.event_mask
= STANDARD_EVENT_SET
;
2667 /* XIM server might require some X events. */
2668 unsigned long fevent
= NoEventMask
;
2669 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2670 attributes
.event_mask
|= fevent
;
2672 #endif /* HAVE_X_I18N */
2674 attribute_mask
= CWEventMask
;
2675 XChangeWindowAttributes (XtDisplay (shell_widget
), XtWindow (shell_widget
),
2676 attribute_mask
, &attributes
);
2678 XtMapWidget (frame_widget
);
2680 /* x_set_name normally ignores requests to set the name if the
2681 requested name is the same as the current name. This is the one
2682 place where that assumption isn't correct; f->name is set, but
2683 the X server hasn't been told. */
2686 int explicit = f
->explicit_name
;
2688 f
->explicit_name
= 0;
2691 x_set_name (f
, name
, explicit);
2694 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2695 f
->output_data
.x
->current_cursor
2696 = f
->output_data
.x
->text_cursor
);
2700 /* This is a no-op, except under Motif. Make sure main areas are
2701 set to something reasonable, in case we get an error later. */
2702 lw_set_main_areas (pane_widget
, 0, frame_widget
);
2705 #else /* not USE_X_TOOLKIT */
2711 if (! xg_create_frame_widgets (f
))
2712 error ("Unable to create window");
2715 FRAME_XIC (f
) = NULL
;
2719 create_frame_xic (f
);
2722 /* XIM server might require some X events. */
2723 unsigned long fevent
= NoEventMask
;
2724 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2726 if (fevent
!= NoEventMask
)
2728 XSetWindowAttributes attributes
;
2729 XWindowAttributes wattr
;
2730 unsigned long attribute_mask
;
2732 XGetWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2734 attributes
.event_mask
= wattr
.your_event_mask
| fevent
;
2735 attribute_mask
= CWEventMask
;
2736 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2737 attribute_mask
, &attributes
);
2745 #else /*! USE_GTK */
2746 /* Create and set up the X window for frame F. */
2753 XClassHint class_hints
;
2754 XSetWindowAttributes attributes
;
2755 unsigned long attribute_mask
;
2757 attributes
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
2758 attributes
.border_pixel
= f
->output_data
.x
->border_pixel
;
2759 attributes
.bit_gravity
= StaticGravity
;
2760 attributes
.backing_store
= NotUseful
;
2761 attributes
.save_under
= True
;
2762 attributes
.event_mask
= STANDARD_EVENT_SET
;
2763 attributes
.colormap
= FRAME_X_COLORMAP (f
);
2764 attribute_mask
= (CWBackPixel
| CWBorderPixel
| CWBitGravity
| CWEventMask
2769 = XCreateWindow (FRAME_X_DISPLAY (f
),
2770 f
->output_data
.x
->parent_desc
,
2773 FRAME_PIXEL_WIDTH (f
), FRAME_PIXEL_HEIGHT (f
),
2775 CopyFromParent
, /* depth */
2776 InputOutput
, /* class */
2778 attribute_mask
, &attributes
);
2783 create_frame_xic (f
);
2786 /* XIM server might require some X events. */
2787 unsigned long fevent
= NoEventMask
;
2788 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2789 attributes
.event_mask
|= fevent
;
2790 attribute_mask
= CWEventMask
;
2791 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2792 attribute_mask
, &attributes
);
2795 #endif /* HAVE_X_I18N */
2797 validate_x_resource_name ();
2799 class_hints
.res_name
= (char *) SDATA (Vx_resource_name
);
2800 class_hints
.res_class
= (char *) SDATA (Vx_resource_class
);
2801 XSetClassHint (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), &class_hints
);
2803 /* The menubar is part of the ordinary display;
2804 it does not count in addition to the height of the window. */
2805 f
->output_data
.x
->menubar_height
= 0;
2807 /* This indicates that we use the "Passive Input" input model.
2808 Unless we do this, we don't get the Focus{In,Out} events that we
2809 need to draw the cursor correctly. Accursed bureaucrats.
2810 XWhipsAndChains (FRAME_X_DISPLAY (f), IronMaiden, &TheRack); */
2812 f
->output_data
.x
->wm_hints
.input
= True
;
2813 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2814 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2815 &f
->output_data
.x
->wm_hints
);
2816 f
->output_data
.x
->wm_hints
.icon_pixmap
= None
;
2818 /* Request "save yourself" and "delete window" commands from wm. */
2821 protocols
[0] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
2822 protocols
[1] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
2823 XSetWMProtocols (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), protocols
, 2);
2826 /* x_set_name normally ignores requests to set the name if the
2827 requested name is the same as the current name. This is the one
2828 place where that assumption isn't correct; f->name is set, but
2829 the X server hasn't been told. */
2832 int explicit = f
->explicit_name
;
2834 f
->explicit_name
= 0;
2837 x_set_name (f
, name
, explicit);
2840 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2841 f
->output_data
.x
->current_cursor
2842 = f
->output_data
.x
->text_cursor
);
2846 if (FRAME_X_WINDOW (f
) == 0)
2847 error ("Unable to create window");
2850 #endif /* not USE_GTK */
2851 #endif /* not USE_X_TOOLKIT */
2853 /* Verify that the icon position args for this window are valid. */
2856 x_icon_verify (f
, parms
)
2860 Lisp_Object icon_x
, icon_y
;
2862 /* Set the position of the icon. Note that twm groups all
2863 icons in an icon window. */
2864 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2865 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2866 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2868 CHECK_NUMBER (icon_x
);
2869 CHECK_NUMBER (icon_y
);
2871 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2872 error ("Both left and top icon corners of icon must be specified");
2875 /* Handle the icon stuff for this window. Perhaps later we might
2876 want an x_set_icon_position which can be called interactively as
2884 Lisp_Object icon_x
, icon_y
;
2886 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2889 /* Set the position of the icon. Note that twm groups all
2890 icons in an icon window. */
2891 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2892 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2893 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2895 CHECK_NUMBER (icon_x
);
2896 CHECK_NUMBER (icon_y
);
2898 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2899 error ("Both left and top icon corners of icon must be specified");
2903 if (! EQ (icon_x
, Qunbound
))
2904 x_wm_set_icon_position (f
, XINT (icon_x
), XINT (icon_y
));
2906 #if 0 /* x_get_arg removes the visibility parameter as a side effect,
2907 but x_create_frame still needs it. */
2908 /* Start up iconic or window? */
2909 x_wm_set_window_state
2910 (f
, (EQ (x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0, RES_TYPE_SYMBOL
),
2916 x_text_icon (f
, (char *) SDATA ((!NILP (f
->icon_name
)
2923 /* Make the GCs needed for this window, setting the
2924 background, border and mouse colors; also create the
2925 mouse cursor and the gray border tile. */
2931 XGCValues gc_values
;
2935 /* Create the GCs of this frame.
2936 Note that many default values are used. */
2938 gc_values
.foreground
= FRAME_FOREGROUND_PIXEL (f
);
2939 gc_values
.background
= FRAME_BACKGROUND_PIXEL (f
);
2940 gc_values
.line_width
= 0; /* Means 1 using fast algorithm. */
2941 f
->output_data
.x
->normal_gc
2942 = XCreateGC (FRAME_X_DISPLAY (f
),
2944 GCLineWidth
| GCForeground
| GCBackground
,
2947 /* Reverse video style. */
2948 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2949 gc_values
.background
= FRAME_FOREGROUND_PIXEL (f
);
2950 f
->output_data
.x
->reverse_gc
2951 = XCreateGC (FRAME_X_DISPLAY (f
),
2953 GCForeground
| GCBackground
| GCLineWidth
,
2956 /* Cursor has cursor-color background, background-color foreground. */
2957 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2958 gc_values
.background
= f
->output_data
.x
->cursor_pixel
;
2959 gc_values
.fill_style
= FillOpaqueStippled
;
2960 f
->output_data
.x
->cursor_gc
2961 = XCreateGC (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2962 (GCForeground
| GCBackground
2963 | GCFillStyle
| GCLineWidth
),
2967 f
->output_data
.x
->white_relief
.gc
= 0;
2968 f
->output_data
.x
->black_relief
.gc
= 0;
2970 /* Create the gray border tile used when the pointer is not in
2971 the frame. Since this depends on the frame's pixel values,
2972 this must be done on a per-frame basis. */
2973 f
->output_data
.x
->border_tile
2974 = (XCreatePixmapFromBitmapData
2975 (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
2976 gray_bits
, gray_width
, gray_height
,
2977 FRAME_FOREGROUND_PIXEL (f
),
2978 FRAME_BACKGROUND_PIXEL (f
),
2979 DefaultDepth (FRAME_X_DISPLAY (f
), FRAME_X_SCREEN_NUMBER (f
))));
2985 /* Free what was allocated in x_make_gc. */
2991 Display
*dpy
= FRAME_X_DISPLAY (f
);
2995 if (f
->output_data
.x
->normal_gc
)
2997 XFreeGC (dpy
, f
->output_data
.x
->normal_gc
);
2998 f
->output_data
.x
->normal_gc
= 0;
3001 if (f
->output_data
.x
->reverse_gc
)
3003 XFreeGC (dpy
, f
->output_data
.x
->reverse_gc
);
3004 f
->output_data
.x
->reverse_gc
= 0;
3007 if (f
->output_data
.x
->cursor_gc
)
3009 XFreeGC (dpy
, f
->output_data
.x
->cursor_gc
);
3010 f
->output_data
.x
->cursor_gc
= 0;
3013 if (f
->output_data
.x
->border_tile
)
3015 XFreePixmap (dpy
, f
->output_data
.x
->border_tile
);
3016 f
->output_data
.x
->border_tile
= 0;
3023 /* Handler for signals raised during x_create_frame and
3024 x_create_top_frame. FRAME is the frame which is partially
3028 unwind_create_frame (frame
)
3031 struct frame
*f
= XFRAME (frame
);
3033 /* If frame is already dead, nothing to do. This can happen if the
3034 display is disconnected after the frame has become official, but
3035 before x_create_frame removes the unwind protect. */
3036 if (!FRAME_LIVE_P (f
))
3039 /* If frame is ``official'', nothing to do. */
3040 if (!CONSP (Vframe_list
) || !EQ (XCAR (Vframe_list
), frame
))
3043 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
3046 x_free_frame_resources (f
);
3049 /* Check that reference counts are indeed correct. */
3050 xassert (dpyinfo
->reference_count
== dpyinfo_refcount
);
3051 xassert (dpyinfo
->image_cache
->refcount
== image_cache_refcount
);
3061 x_default_font_parameter (f
, parms
)
3065 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
3066 Lisp_Object font_param
= x_get_arg (dpyinfo
, parms
, Qfont
, NULL
, NULL
,
3069 int got_from_gconf
= 0;
3070 if (EQ (font_param
, Qunbound
))
3073 if (NILP (font_param
))
3075 /* System font takes precedendce over X resources. We must suggest this
3076 regardless of font-use-system-font because .emacs may not have been
3078 const char *system_font
= xsettings_get_system_font ();
3079 if (system_font
) font_param
= make_string (system_font
,
3080 strlen (system_font
));
3083 font
= !NILP (font_param
) ? font_param
3084 : x_get_arg (dpyinfo
, parms
, Qfont
, "font", "Font", RES_TYPE_STRING
);
3086 if (! STRINGP (font
))
3091 /* This will find the normal Xft font. */
3094 "-adobe-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-1",
3095 "-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-1",
3096 "-*-*-medium-r-normal-*-*-140-*-*-c-*-iso8859-1",
3097 /* This was formerly the first thing tried, but it finds
3098 too many fonts and takes too long. */
3099 "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1",
3100 /* If those didn't work, look for something which will
3102 "-*-fixed-*-*-*-*-*-140-*-*-c-*-iso8859-1",
3107 for (i
= 0; names
[i
]; i
++)
3109 font
= font_open_by_name (f
, names
[i
]);
3114 error ("No suitable font was found");
3116 else if (!NILP (font_param
))
3118 /* Remember the explicit font parameter, so we can re-apply it after
3119 we've applied the `default' face settings. */
3120 x_set_frame_parameters (f
, Fcons (Fcons (Qfont_param
, font_param
), Qnil
));
3123 x_default_parameter (f
, parms
, Qfont
, font
,
3124 got_from_gconf
? NULL
: "font",
3125 got_from_gconf
? NULL
: "Font",
3130 DEFUN ("x-wm-set-size-hint", Fx_wm_set_size_hint
, Sx_wm_set_size_hint
,
3132 doc
: /* Send the size hints for frame FRAME to the window manager.
3133 If FRAME is nil, use the selected frame. */)
3139 frame
= selected_frame
;
3143 x_wm_set_size_hint (f
, 0, 0);
3148 /* Return current desktop index for the display where frame F is.
3149 If we can't find out the current desktop, return 0. */
3152 x_get_current_desktop (f
)
3156 unsigned long actual_size
, bytes_remaining
;
3157 int rc
, actual_format
;
3158 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
3160 Display
*dpy
= FRAME_X_DISPLAY (f
);
3162 int current_desktop
;
3165 x_catch_errors (dpy
);
3166 rc
= XGetWindowProperty (dpy
, dpyinfo
->root_window
,
3167 XInternAtom (dpy
, "_NET_CURRENT_DESKTOP", False
),
3168 0, max_len
, False
, XA_CARDINAL
,
3169 &actual_type
, &actual_format
, &actual_size
,
3170 &bytes_remaining
, (unsigned char **)&data
);
3172 if (rc
!= Success
|| actual_type
!= XA_CARDINAL
|| x_had_errors_p (dpy
)
3173 || actual_size
== 0 || actual_format
!= 32)
3174 current_desktop
= 0;
3176 current_desktop
= (int)*data
;
3178 if (data
) XFree (data
);
3179 x_uncatch_errors ();
3181 return current_desktop
;
3184 /* Return current size for DESKTOP_INDEX on the display where frame F is.
3185 If we can't find out the size, return 0, otherwise 1. */
3188 x_get_desktop_workarea (f
, desktop_index
, deskw
, deskh
)
3194 unsigned long actual_size
, bytes_remaining
;
3195 int rc
, actual_format
;
3196 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
3197 long max_len
= 1000; /* This handles 250 desktops, who has that many? */
3198 Display
*dpy
= FRAME_X_DISPLAY (f
);
3203 x_catch_errors (dpy
);
3204 rc
= XGetWindowProperty (dpy
, dpyinfo
->root_window
,
3205 XInternAtom (dpy
, "_NET_WORKAREA", False
),
3206 0, max_len
, False
, XA_CARDINAL
,
3207 &actual_type
, &actual_format
, &actual_size
,
3208 &bytes_remaining
, (unsigned char **)&data
);
3210 if (rc
!= Success
|| actual_type
!= XA_CARDINAL
|| x_had_errors_p (dpy
)
3211 || actual_size
< 3 || actual_format
!= 32)
3217 if (actual_size
== 4 /* Only one info for all desktops. */
3218 || desktop_index
*4 > actual_size
) /* destop_index out of range. */
3221 idx
= desktop_index
*4;
3222 *deskw
= data
[idx
+2] - data
[idx
];
3223 *deskh
= data
[idx
+3] - data
[idx
+1];
3227 if (data
) XFree (data
);
3228 x_uncatch_errors ();
3233 DEFUN ("x-create-frame", Fx_create_frame
, Sx_create_frame
,
3235 doc
: /* Make a new X window, which is called a "frame" in Emacs terms.
3236 Return an Emacs frame object.
3237 PARMS is an alist of frame parameters.
3238 If the parameters specify that the frame should not have a minibuffer,
3239 and do not specify a specific minibuffer window to use,
3240 then `default-minibuffer-frame' must be a frame whose minibuffer can
3241 be shared by the new frame.
3243 This function is an internal primitive--use `make-frame' instead. */)
3248 Lisp_Object frame
, tem
;
3250 int minibuffer_only
= 0;
3251 long window_prompting
= 0;
3252 int width
, height
, deskw
= -1, deskh
= -1, current_desktop
= -1;
3253 int count
= SPECPDL_INDEX ();
3254 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
3255 Lisp_Object display
;
3256 struct x_display_info
*dpyinfo
= NULL
;
3260 parms
= Fcopy_alist (parms
);
3262 /* Use this general default value to start with
3263 until we know if this frame has a specified name. */
3264 Vx_resource_name
= Vinvocation_name
;
3266 display
= x_get_arg (dpyinfo
, parms
, Qterminal
, 0, 0, RES_TYPE_NUMBER
);
3267 if (EQ (display
, Qunbound
))
3268 display
= x_get_arg (dpyinfo
, parms
, Qdisplay
, 0, 0, RES_TYPE_STRING
);
3269 if (EQ (display
, Qunbound
))
3271 dpyinfo
= check_x_display_info (display
);
3272 kb
= dpyinfo
->terminal
->kboard
;
3274 if (!dpyinfo
->terminal
->name
)
3275 error ("Terminal is not live, can't create new frames on it");
3277 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
3279 && ! EQ (name
, Qunbound
)
3281 error ("Invalid frame name--not a string or nil");
3284 Vx_resource_name
= name
;
3286 /* See if parent window is specified. */
3287 parent
= x_get_arg (dpyinfo
, parms
, Qparent_id
, NULL
, NULL
, RES_TYPE_NUMBER
);
3288 if (EQ (parent
, Qunbound
))
3290 if (! NILP (parent
))
3291 CHECK_NUMBER (parent
);
3293 /* make_frame_without_minibuffer can run Lisp code and garbage collect. */
3294 /* No need to protect DISPLAY because that's not used after passing
3295 it to make_frame_without_minibuffer. */
3297 GCPRO4 (parms
, parent
, name
, frame
);
3298 tem
= x_get_arg (dpyinfo
, parms
, Qminibuffer
, "minibuffer", "Minibuffer",
3300 if (EQ (tem
, Qnone
) || NILP (tem
))
3301 f
= make_frame_without_minibuffer (Qnil
, kb
, display
);
3302 else if (EQ (tem
, Qonly
))
3304 f
= make_minibuffer_frame ();
3305 minibuffer_only
= 1;
3307 else if (WINDOWP (tem
))
3308 f
= make_frame_without_minibuffer (tem
, kb
, display
);
3312 XSETFRAME (frame
, f
);
3314 /* Note that X Windows does support scroll bars. */
3315 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 1;
3317 f
->terminal
= dpyinfo
->terminal
;
3318 f
->terminal
->reference_count
++;
3320 f
->output_method
= output_x_window
;
3321 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
3322 bzero (f
->output_data
.x
, sizeof (struct x_output
));
3323 f
->output_data
.x
->icon_bitmap
= -1;
3324 FRAME_FONTSET (f
) = -1;
3325 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
3326 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
3327 #ifdef USE_TOOLKIT_SCROLL_BARS
3328 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
3329 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
3330 #endif /* USE_TOOLKIT_SCROLL_BARS */
3333 = x_get_arg (dpyinfo
, parms
, Qicon_name
, "iconName", "Title",
3335 if (! STRINGP (f
->icon_name
))
3336 f
->icon_name
= Qnil
;
3338 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
3340 /* With FRAME_X_DISPLAY_INFO set up, this unwind-protect is safe. */
3341 record_unwind_protect (unwind_create_frame
, frame
);
3343 image_cache_refcount
= FRAME_IMAGE_CACHE (f
)->refcount
;
3344 dpyinfo_refcount
= dpyinfo
->reference_count
;
3345 #endif /* GLYPH_DEBUG */
3347 /* These colors will be set anyway later, but it's important
3348 to get the color reference counts right, so initialize them! */
3351 struct gcpro gcpro1
;
3353 /* Function x_decode_color can signal an error. Make
3354 sure to initialize color slots so that we won't try
3355 to free colors we haven't allocated. */
3356 FRAME_FOREGROUND_PIXEL (f
) = -1;
3357 FRAME_BACKGROUND_PIXEL (f
) = -1;
3358 f
->output_data
.x
->cursor_pixel
= -1;
3359 f
->output_data
.x
->cursor_foreground_pixel
= -1;
3360 f
->output_data
.x
->border_pixel
= -1;
3361 f
->output_data
.x
->mouse_pixel
= -1;
3363 black
= build_string ("black");
3365 FRAME_FOREGROUND_PIXEL (f
)
3366 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3367 FRAME_BACKGROUND_PIXEL (f
)
3368 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3369 f
->output_data
.x
->cursor_pixel
3370 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3371 f
->output_data
.x
->cursor_foreground_pixel
3372 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3373 f
->output_data
.x
->border_pixel
3374 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3375 f
->output_data
.x
->mouse_pixel
3376 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3380 /* Specify the parent under which to make this X window. */
3384 f
->output_data
.x
->parent_desc
= (Window
) XFASTINT (parent
);
3385 f
->output_data
.x
->explicit_parent
= 1;
3389 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
3390 f
->output_data
.x
->explicit_parent
= 0;
3393 /* Set the name; the functions to which we pass f expect the name to
3395 if (EQ (name
, Qunbound
) || NILP (name
))
3397 f
->name
= build_string (dpyinfo
->x_id_name
);
3398 f
->explicit_name
= 0;
3403 f
->explicit_name
= 1;
3404 /* use the frame's title when getting resources for this frame. */
3405 specbind (Qx_resource_name
, name
);
3408 f
->resx
= dpyinfo
->resx
;
3409 f
->resy
= dpyinfo
->resy
;
3411 #ifdef HAVE_FREETYPE
3413 register_font_driver (&xftfont_driver
, f
);
3414 #else /* not HAVE_XFT */
3415 register_font_driver (&ftxfont_driver
, f
);
3416 #endif /* not HAVE_XFT */
3417 #endif /* HAVE_FREETYPE */
3418 register_font_driver (&xfont_driver
, f
);
3420 x_default_parameter (f
, parms
, Qfont_backend
, Qnil
,
3421 "fontBackend", "FontBackend", RES_TYPE_STRING
);
3423 /* Extract the window parameters from the supplied values
3424 that are needed to determine window geometry. */
3425 x_default_font_parameter (f
, parms
);
3426 if (!FRAME_FONT (f
))
3428 delete_frame (frame
, Qnoelisp
);
3429 error ("Invalid frame font");
3433 /* Prevent lwlib/xlwmenu.c from crashing because of a bug
3434 whereby it fails to get any font. */
3435 xlwmenu_default_font
= XLoadQueryFont (FRAME_X_DISPLAY (f
), "fixed");
3438 /* Frame contents get displaced if an embedded X window has a border. */
3439 if (! FRAME_X_EMBEDDED_P (f
))
3440 x_default_parameter (f
, parms
, Qborder_width
, make_number (2),
3441 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
3443 /* This defaults to 1 in order to match xterm. We recognize either
3444 internalBorderWidth or internalBorder (which is what xterm calls
3446 if (NILP (Fassq (Qinternal_border_width
, parms
)))
3450 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
3451 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
3452 if (! EQ (value
, Qunbound
))
3453 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
3456 x_default_parameter (f
, parms
, Qinternal_border_width
,
3457 #ifdef USE_GTK /* We used to impose 0 in xg_create_frame_widgets. */
3462 "internalBorderWidth", "internalBorderWidth",
3464 x_default_parameter (f
, parms
, Qvertical_scroll_bars
, Qleft
,
3465 "verticalScrollBars", "ScrollBars",
3468 /* Also do the stuff which must be set before the window exists. */
3469 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
3470 "foreground", "Foreground", RES_TYPE_STRING
);
3471 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
3472 "background", "Background", RES_TYPE_STRING
);
3473 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
3474 "pointerColor", "Foreground", RES_TYPE_STRING
);
3475 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
3476 "cursorColor", "Foreground", RES_TYPE_STRING
);
3477 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
3478 "borderColor", "BorderColor", RES_TYPE_STRING
);
3479 x_default_parameter (f
, parms
, Qscreen_gamma
, Qnil
,
3480 "screenGamma", "ScreenGamma", RES_TYPE_FLOAT
);
3481 x_default_parameter (f
, parms
, Qline_spacing
, Qnil
,
3482 "lineSpacing", "LineSpacing", RES_TYPE_NUMBER
);
3483 x_default_parameter (f
, parms
, Qleft_fringe
, Qnil
,
3484 "leftFringe", "LeftFringe", RES_TYPE_NUMBER
);
3485 x_default_parameter (f
, parms
, Qright_fringe
, Qnil
,
3486 "rightFringe", "RightFringe", RES_TYPE_NUMBER
);
3488 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_foreground
,
3489 "scrollBarForeground",
3490 "ScrollBarForeground", 1);
3491 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_background
,
3492 "scrollBarBackground",
3493 "ScrollBarBackground", 0);
3495 /* Init faces before x_default_parameter is called for scroll-bar
3496 parameters because that function calls x_set_scroll_bar_width,
3497 which calls change_frame_size, which calls Fset_window_buffer,
3498 which runs hooks, which call Fvertical_motion. At the end, we
3499 end up in init_iterator with a null face cache, which should not
3501 init_frame_faces (f
);
3503 x_default_parameter (f
, parms
, Qmenu_bar_lines
, make_number (1),
3504 "menuBar", "MenuBar", RES_TYPE_NUMBER
);
3505 x_default_parameter (f
, parms
, Qtool_bar_lines
, make_number (1),
3506 "toolBar", "ToolBar", RES_TYPE_NUMBER
);
3507 x_default_parameter (f
, parms
, Qbuffer_predicate
, Qnil
,
3508 "bufferPredicate", "BufferPredicate",
3510 x_default_parameter (f
, parms
, Qtitle
, Qnil
,
3511 "title", "Title", RES_TYPE_STRING
);
3512 x_default_parameter (f
, parms
, Qwait_for_wm
, Qt
,
3513 "waitForWM", "WaitForWM", RES_TYPE_BOOLEAN
);
3514 x_default_parameter (f
, parms
, Qfullscreen
, Qnil
,
3515 "fullscreen", "Fullscreen", RES_TYPE_SYMBOL
);
3517 /* Compute the size of the X window. */
3518 window_prompting
= x_figure_window_size (f
, parms
, 1);
3520 /* Don't make height higher than display height unless the user asked
3522 height
= FRAME_LINES (f
);
3523 tem
= x_get_arg (dpyinfo
, parms
, Qheight
, 0, 0, RES_TYPE_NUMBER
);
3524 if (EQ (tem
, Qunbound
))
3526 int ph
= FRAME_TEXT_LINES_TO_PIXEL_HEIGHT (f
, FRAME_LINES (f
));
3527 int dph
= DisplayHeight (FRAME_X_DISPLAY (f
), FRAME_X_SCREEN_NUMBER (f
));
3528 /* Some desktops have fixed menus above and/or panels below. Try to
3529 figure out the usable size we have for emacs. */
3530 current_desktop
= x_get_current_desktop (f
);
3531 x_get_desktop_workarea (f
, current_desktop
, &deskw
, &deskh
);
3532 if (deskh
> 0 && deskh
< dph
) dph
= deskh
;
3536 height
= FRAME_PIXEL_HEIGHT_TO_TEXT_LINES (f
, dph
) -
3537 FRAME_TOOL_BAR_LINES (f
) - FRAME_MENU_BAR_LINES (f
);
3538 if (FRAME_EXTERNAL_TOOL_BAR (f
))
3539 height
-= 2; /* We can't know how big it will be. */
3540 if (FRAME_EXTERNAL_MENU_BAR (f
))
3541 height
-= 2; /* We can't know how big it will be. */
3545 /* Don't make width wider than display width unless the user asked
3547 width
= FRAME_COLS (f
);
3548 tem
= x_get_arg (dpyinfo
, parms
, Qwidth
, 0, 0, RES_TYPE_NUMBER
);
3549 if (EQ (tem
, Qunbound
))
3551 int pw
= FRAME_TEXT_COLS_TO_PIXEL_WIDTH (f
, FRAME_COLS (f
));
3552 int dpw
= DisplayWidth (FRAME_X_DISPLAY (f
), FRAME_X_SCREEN_NUMBER (f
));
3555 current_desktop
= x_get_current_desktop (f
);
3556 x_get_desktop_workarea (f
, current_desktop
, &deskw
, &deskh
);
3558 if (deskw
> 0 && deskw
< dpw
) dpw
= deskw
;
3561 width
= FRAME_PIXEL_WIDTH_TO_TEXT_COLS (f
, dpw
);
3564 if (height
!= FRAME_LINES (f
) || width
!= FRAME_COLS (f
))
3566 check_frame_size (f
, &height
, &width
);
3567 FRAME_LINES (f
) = height
;
3568 SET_FRAME_COLS (f
, width
);
3572 tem
= x_get_arg (dpyinfo
, parms
, Qunsplittable
, 0, 0, RES_TYPE_BOOLEAN
);
3573 f
->no_split
= minibuffer_only
|| EQ (tem
, Qt
);
3575 x_icon_verify (f
, parms
);
3577 /* Create the X widget or window. */
3578 #ifdef USE_X_TOOLKIT
3579 x_window (f
, window_prompting
, minibuffer_only
);
3587 /* Now consider the frame official. */
3588 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
3589 Vframe_list
= Fcons (frame
, Vframe_list
);
3591 /* We need to do this after creating the X window, so that the
3592 icon-creation functions can say whose icon they're describing. */
3593 x_default_parameter (f
, parms
, Qicon_type
, Qt
,
3594 "bitmapIcon", "BitmapIcon", RES_TYPE_SYMBOL
);
3596 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
3597 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3598 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
3599 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3600 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
3601 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
3602 x_default_parameter (f
, parms
, Qscroll_bar_width
, Qnil
,
3603 "scrollBarWidth", "ScrollBarWidth",
3605 x_default_parameter (f
, parms
, Qalpha
, Qnil
,
3606 "alpha", "Alpha", RES_TYPE_NUMBER
);
3608 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
3609 Change will not be effected unless different from the current
3611 width
= FRAME_COLS (f
);
3612 height
= FRAME_LINES (f
);
3614 SET_FRAME_COLS (f
, 0);
3615 FRAME_LINES (f
) = 0;
3616 change_frame_size (f
, height
, width
, 1, 0, 0);
3618 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
3619 /* Create the menu bar. */
3620 if (!minibuffer_only
&& FRAME_EXTERNAL_MENU_BAR (f
))
3622 /* If this signals an error, we haven't set size hints for the
3623 frame and we didn't make it visible. */
3624 initialize_frame_menubar (f
);
3627 /* This is a no-op, except under Motif where it arranges the
3628 main window for the widgets on it. */
3629 lw_set_main_areas (f
->output_data
.x
->column_widget
,
3630 f
->output_data
.x
->menubar_widget
,
3631 f
->output_data
.x
->edit_widget
);
3632 #endif /* not USE_GTK */
3634 #endif /* USE_X_TOOLKIT || USE_GTK */
3636 /* Tell the server what size and position, etc, we want, and how
3637 badly we want them. This should be done after we have the menu
3638 bar so that its size can be taken into account. */
3640 x_wm_set_size_hint (f
, window_prompting
, 0);
3643 /* Make the window appear on the frame and enable display, unless
3644 the caller says not to. However, with explicit parent, Emacs
3645 cannot control visibility, so don't try. */
3646 if (! f
->output_data
.x
->explicit_parent
)
3648 Lisp_Object visibility
;
3650 visibility
= x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0,
3652 if (EQ (visibility
, Qunbound
))
3655 if (EQ (visibility
, Qicon
))
3656 x_iconify_frame (f
);
3657 else if (! NILP (visibility
))
3658 x_make_frame_visible (f
);
3660 /* Must have been Qnil. */
3664 /* Set the WM leader property. GTK does this itself, so this is not
3665 needed when using GTK. */
3666 if (dpyinfo
->client_leader_window
!= 0)
3669 XChangeProperty (FRAME_X_DISPLAY (f
),
3670 FRAME_OUTER_WINDOW (f
),
3671 dpyinfo
->Xatom_wm_client_leader
,
3672 XA_WINDOW
, 32, PropModeReplace
,
3673 (unsigned char *) &dpyinfo
->client_leader_window
, 1);
3677 /* Initialize `default-minibuffer-frame' in case this is the first
3678 frame on this terminal. */
3679 if (FRAME_HAS_MINIBUF_P (f
)
3680 && (!FRAMEP (kb
->Vdefault_minibuffer_frame
)
3681 || !FRAME_LIVE_P (XFRAME (kb
->Vdefault_minibuffer_frame
))))
3682 kb
->Vdefault_minibuffer_frame
= frame
;
3684 /* All remaining specified parameters, which have not been "used"
3685 by x_get_arg and friends, now go in the misc. alist of the frame. */
3686 for (tem
= parms
; CONSP (tem
); tem
= XCDR (tem
))
3687 if (CONSP (XCAR (tem
)) && !NILP (XCAR (XCAR (tem
))))
3688 f
->param_alist
= Fcons (XCAR (tem
), f
->param_alist
);
3692 /* Make sure windows on this frame appear in calls to next-window
3693 and similar functions. */
3694 Vwindow_list
= Qnil
;
3696 return unbind_to (count
, frame
);
3700 /* FRAME is used only to get a handle on the X display. We don't pass the
3701 display info directly because we're called from frame.c, which doesn't
3702 know about that structure. */
3705 x_get_focus_frame (frame
)
3706 struct frame
*frame
;
3708 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (frame
);
3710 if (! dpyinfo
->x_focus_frame
)
3713 XSETFRAME (xfocus
, dpyinfo
->x_focus_frame
);
3718 /* In certain situations, when the window manager follows a
3719 click-to-focus policy, there seems to be no way around calling
3720 XSetInputFocus to give another frame the input focus .
3722 In an ideal world, XSetInputFocus should generally be avoided so
3723 that applications don't interfere with the window manager's focus
3724 policy. But I think it's okay to use when it's clearly done
3725 following a user-command. */
3727 DEFUN ("x-focus-frame", Fx_focus_frame
, Sx_focus_frame
, 1, 1, 0,
3728 doc
: /* Set the input focus to FRAME.
3729 FRAME nil means use the selected frame. */)
3733 struct frame
*f
= check_x_frame (frame
);
3734 Display
*dpy
= FRAME_X_DISPLAY (f
);
3737 x_catch_errors (dpy
);
3738 XSetInputFocus (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
3739 RevertToParent
, CurrentTime
);
3740 x_ewmh_activate_frame (f
);
3741 x_uncatch_errors ();
3748 DEFUN ("xw-color-defined-p", Fxw_color_defined_p
, Sxw_color_defined_p
, 1, 2, 0,
3749 doc
: /* Internal function called by `color-defined-p', which see. */)
3751 Lisp_Object color
, frame
;
3754 FRAME_PTR f
= check_x_frame (frame
);
3756 CHECK_STRING (color
);
3758 if (x_defined_color (f
, SDATA (color
), &foo
, 0))
3764 DEFUN ("xw-color-values", Fxw_color_values
, Sxw_color_values
, 1, 2, 0,
3765 doc
: /* Internal function called by `color-values', which see. */)
3767 Lisp_Object color
, frame
;
3770 FRAME_PTR f
= check_x_frame (frame
);
3772 CHECK_STRING (color
);
3774 if (x_defined_color (f
, SDATA (color
), &foo
, 0))
3775 return list3 (make_number (foo
.red
),
3776 make_number (foo
.green
),
3777 make_number (foo
.blue
));
3782 DEFUN ("xw-display-color-p", Fxw_display_color_p
, Sxw_display_color_p
, 0, 1, 0,
3783 doc
: /* Internal function called by `display-color-p', which see. */)
3785 Lisp_Object terminal
;
3787 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3789 if (dpyinfo
->n_planes
<= 2)
3792 switch (dpyinfo
->visual
->class)
3805 DEFUN ("x-display-grayscale-p", Fx_display_grayscale_p
, Sx_display_grayscale_p
,
3807 doc
: /* Return t if the X display supports shades of gray.
3808 Note that color displays do support shades of gray.
3809 The optional argument TERMINAL specifies which display to ask about.
3810 TERMINAL should be a terminal object, a frame or a display name (a string).
3811 If omitted or nil, that stands for the selected frame's display. */)
3813 Lisp_Object terminal
;
3815 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3817 if (dpyinfo
->n_planes
<= 1)
3820 switch (dpyinfo
->visual
->class)
3835 DEFUN ("x-display-pixel-width", Fx_display_pixel_width
, Sx_display_pixel_width
,
3837 doc
: /* Return the width in pixels of the X display TERMINAL.
3838 The optional argument TERMINAL specifies which display to ask about.
3839 TERMINAL should be a terminal object, a frame or a display name (a string).
3840 If omitted or nil, that stands for the selected frame's display. */)
3842 Lisp_Object terminal
;
3844 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3846 return make_number (x_display_pixel_width (dpyinfo
));
3849 DEFUN ("x-display-pixel-height", Fx_display_pixel_height
,
3850 Sx_display_pixel_height
, 0, 1, 0,
3851 doc
: /* Return the height in pixels of the X display TERMINAL.
3852 The optional argument TERMINAL specifies which display to ask about.
3853 TERMINAL should be a terminal object, a frame or a display name (a string).
3854 If omitted or nil, that stands for the selected frame's display. */)
3856 Lisp_Object terminal
;
3858 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3860 return make_number (x_display_pixel_height (dpyinfo
));
3863 DEFUN ("x-display-planes", Fx_display_planes
, Sx_display_planes
,
3865 doc
: /* Return the number of bitplanes of the X display TERMINAL.
3866 The optional argument TERMINAL specifies which display to ask about.
3867 TERMINAL should be a terminal object, a frame or a display name (a string).
3868 If omitted or nil, that stands for the selected frame's display. */)
3870 Lisp_Object terminal
;
3872 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3874 return make_number (dpyinfo
->n_planes
);
3877 DEFUN ("x-display-color-cells", Fx_display_color_cells
, Sx_display_color_cells
,
3879 doc
: /* Return the number of color cells of the X display TERMINAL.
3880 The optional argument TERMINAL specifies which display to ask about.
3881 TERMINAL should be a terminal object, a frame or a display name (a string).
3882 If omitted or nil, that stands for the selected frame's display. */)
3884 Lisp_Object terminal
;
3886 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3888 int nr_planes
= DisplayPlanes (dpyinfo
->display
,
3889 XScreenNumberOfScreen (dpyinfo
->screen
));
3891 /* Truncate nr_planes to 24 to avoid integer overflow.
3892 Some displays says 32, but only 24 bits are actually significant.
3893 There are only very few and rare video cards that have more than
3894 24 significant bits. Also 24 bits is more than 16 million colors,
3895 it "should be enough for everyone". */
3896 if (nr_planes
> 24) nr_planes
= 24;
3898 return make_number (1 << nr_planes
);
3901 DEFUN ("x-server-max-request-size", Fx_server_max_request_size
,
3902 Sx_server_max_request_size
,
3904 doc
: /* Return the maximum request size of the X server of display TERMINAL.
3905 The optional argument TERMINAL specifies which display to ask about.
3906 TERMINAL should be a terminal object, a frame or a display name (a string).
3907 If omitted or nil, that stands for the selected frame's display. */)
3909 Lisp_Object terminal
;
3911 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3913 return make_number (MAXREQUEST (dpyinfo
->display
));
3916 DEFUN ("x-server-vendor", Fx_server_vendor
, Sx_server_vendor
, 0, 1, 0,
3917 doc
: /* Return the "vendor ID" string of the X server of display TERMINAL.
3918 \(Labelling every distributor as a "vendor" embodies the false assumption
3919 that operating systems cannot be developed and distributed noncommercially.)
3920 The optional argument TERMINAL specifies which display to ask about.
3921 TERMINAL should be a terminal object, a frame or a display name (a string).
3922 If omitted or nil, that stands for the selected frame's display. */)
3924 Lisp_Object terminal
;
3926 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3927 char *vendor
= ServerVendor (dpyinfo
->display
);
3929 if (! vendor
) vendor
= "";
3930 return build_string (vendor
);
3933 DEFUN ("x-server-version", Fx_server_version
, Sx_server_version
, 0, 1, 0,
3934 doc
: /* Return the version numbers of the X server of display TERMINAL.
3935 The value is a list of three integers: the major and minor
3936 version numbers of the X Protocol in use, and the distributor-specific release
3937 number. See also the function `x-server-vendor'.
3939 The optional argument TERMINAL specifies which display to ask about.
3940 TERMINAL should be a terminal object, a frame or a display name (a string).
3941 If omitted or nil, that stands for the selected frame's display. */)
3943 Lisp_Object terminal
;
3945 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3946 Display
*dpy
= dpyinfo
->display
;
3948 return Fcons (make_number (ProtocolVersion (dpy
)),
3949 Fcons (make_number (ProtocolRevision (dpy
)),
3950 Fcons (make_number (VendorRelease (dpy
)), Qnil
)));
3953 DEFUN ("x-display-screens", Fx_display_screens
, Sx_display_screens
, 0, 1, 0,
3954 doc
: /* Return the number of screens on the X server of display TERMINAL.
3955 The optional argument TERMINAL specifies which display to ask about.
3956 TERMINAL should be a terminal object, a frame or a display name (a string).
3957 If omitted or nil, that stands for the selected frame's display. */)
3959 Lisp_Object terminal
;
3961 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3963 return make_number (ScreenCount (dpyinfo
->display
));
3966 DEFUN ("x-display-mm-height", Fx_display_mm_height
, Sx_display_mm_height
, 0, 1, 0,
3967 doc
: /* Return the height in millimeters of the X display TERMINAL.
3968 The optional argument TERMINAL specifies which display to ask about.
3969 TERMINAL should be a terminal object, a frame or a display name (a string).
3970 If omitted or nil, that stands for the selected frame's display. */)
3972 Lisp_Object terminal
;
3974 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3976 return make_number (HeightMMOfScreen (dpyinfo
->screen
));
3979 DEFUN ("x-display-mm-width", Fx_display_mm_width
, Sx_display_mm_width
, 0, 1, 0,
3980 doc
: /* Return the width in millimeters of the X display TERMINAL.
3981 The optional argument TERMINAL specifies which display to ask about.
3982 TERMINAL should be a terminal object, a frame or a display name (a string).
3983 If omitted or nil, that stands for the selected frame's display. */)
3985 Lisp_Object terminal
;
3987 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3989 return make_number (WidthMMOfScreen (dpyinfo
->screen
));
3992 DEFUN ("x-display-backing-store", Fx_display_backing_store
,
3993 Sx_display_backing_store
, 0, 1, 0,
3994 doc
: /* Return an indication of whether X display TERMINAL does backing store.
3995 The value may be `always', `when-mapped', or `not-useful'.
3996 The optional argument TERMINAL specifies which display to ask about.
3997 TERMINAL should be a terminal object, a frame or a display name (a string).
3998 If omitted or nil, that stands for the selected frame's display. */)
4000 Lisp_Object terminal
;
4002 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4005 switch (DoesBackingStore (dpyinfo
->screen
))
4008 result
= intern ("always");
4012 result
= intern ("when-mapped");
4016 result
= intern ("not-useful");
4020 error ("Strange value for BackingStore parameter of screen");
4027 DEFUN ("x-display-visual-class", Fx_display_visual_class
,
4028 Sx_display_visual_class
, 0, 1, 0,
4029 doc
: /* Return the visual class of the X display TERMINAL.
4030 The value is one of the symbols `static-gray', `gray-scale',
4031 `static-color', `pseudo-color', `true-color', or `direct-color'.
4033 The optional argument TERMINAL specifies which display to ask about.
4034 TERMINAL should a terminal object, a frame or a display name (a string).
4035 If omitted or nil, that stands for the selected frame's display. */)
4037 Lisp_Object terminal
;
4039 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4042 switch (dpyinfo
->visual
->class)
4045 result
= intern ("static-gray");
4048 result
= intern ("gray-scale");
4051 result
= intern ("static-color");
4054 result
= intern ("pseudo-color");
4057 result
= intern ("true-color");
4060 result
= intern ("direct-color");
4063 error ("Display has an unknown visual class");
4070 DEFUN ("x-display-save-under", Fx_display_save_under
,
4071 Sx_display_save_under
, 0, 1, 0,
4072 doc
: /* Return t if the X display TERMINAL supports the save-under feature.
4073 The optional argument TERMINAL specifies which display to ask about.
4074 TERMINAL should be a terminal object, a frame or a display name (a string).
4075 If omitted or nil, that stands for the selected frame's display. */)
4077 Lisp_Object terminal
;
4079 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4081 if (DoesSaveUnders (dpyinfo
->screen
) == True
)
4089 register struct frame
*f
;
4091 return FRAME_PIXEL_WIDTH (f
);
4096 register struct frame
*f
;
4098 return FRAME_PIXEL_HEIGHT (f
);
4103 register struct frame
*f
;
4105 return FRAME_COLUMN_WIDTH (f
);
4110 register struct frame
*f
;
4112 return FRAME_LINE_HEIGHT (f
);
4117 register struct frame
*f
;
4119 return FRAME_X_DISPLAY_INFO (f
)->n_planes
;
4124 /************************************************************************
4126 ************************************************************************/
4129 /* Mapping visual names to visuals. */
4131 static struct visual_class
4138 {"StaticGray", StaticGray
},
4139 {"GrayScale", GrayScale
},
4140 {"StaticColor", StaticColor
},
4141 {"PseudoColor", PseudoColor
},
4142 {"TrueColor", TrueColor
},
4143 {"DirectColor", DirectColor
},
4148 #ifndef HAVE_XSCREENNUMBEROFSCREEN
4150 /* Value is the screen number of screen SCR. This is a substitute for
4151 the X function with the same name when that doesn't exist. */
4154 XScreenNumberOfScreen (scr
)
4155 register Screen
*scr
;
4157 Display
*dpy
= scr
->display
;
4160 for (i
= 0; i
< dpy
->nscreens
; ++i
)
4161 if (scr
== dpy
->screens
+ i
)
4167 #endif /* not HAVE_XSCREENNUMBEROFSCREEN */
4170 /* Select the visual that should be used on display DPYINFO. Set
4171 members of DPYINFO appropriately. Called from x_term_init. */
4174 select_visual (dpyinfo
)
4175 struct x_display_info
*dpyinfo
;
4177 Display
*dpy
= dpyinfo
->display
;
4178 Screen
*screen
= dpyinfo
->screen
;
4181 /* See if a visual is specified. */
4182 value
= display_x_get_resource (dpyinfo
,
4183 build_string ("visualClass"),
4184 build_string ("VisualClass"),
4186 if (STRINGP (value
))
4188 /* VALUE should be of the form CLASS-DEPTH, where CLASS is one
4189 of `PseudoColor', `TrueColor' etc. and DEPTH is the color
4190 depth, a decimal number. NAME is compared with case ignored. */
4191 char *s
= (char *) alloca (SBYTES (value
) + 1);
4196 strcpy (s
, SDATA (value
));
4197 dash
= index (s
, '-');
4200 dpyinfo
->n_planes
= atoi (dash
+ 1);
4204 /* We won't find a matching visual with depth 0, so that
4205 an error will be printed below. */
4206 dpyinfo
->n_planes
= 0;
4208 /* Determine the visual class. */
4209 for (i
= 0; visual_classes
[i
].name
; ++i
)
4210 if (xstrcasecmp (s
, visual_classes
[i
].name
) == 0)
4212 class = visual_classes
[i
].class;
4216 /* Look up a matching visual for the specified class. */
4218 || !XMatchVisualInfo (dpy
, XScreenNumberOfScreen (screen
),
4219 dpyinfo
->n_planes
, class, &vinfo
))
4220 fatal ("Invalid visual specification `%s'", SDATA (value
));
4222 dpyinfo
->visual
= vinfo
.visual
;
4227 XVisualInfo
*vinfo
, vinfo_template
;
4229 dpyinfo
->visual
= DefaultVisualOfScreen (screen
);
4231 vinfo_template
.visualid
= XVisualIDFromVisual (dpyinfo
->visual
);
4232 vinfo_template
.screen
= XScreenNumberOfScreen (screen
);
4233 vinfo
= XGetVisualInfo (dpy
, VisualIDMask
| VisualScreenMask
,
4234 &vinfo_template
, &n_visuals
);
4236 fatal ("Can't get proper X visual info");
4238 dpyinfo
->n_planes
= vinfo
->depth
;
4239 XFree ((char *) vinfo
);
4244 /* Return the X display structure for the display named NAME.
4245 Open a new connection if necessary. */
4247 struct x_display_info
*
4248 x_display_info_for_name (name
)
4252 struct x_display_info
*dpyinfo
;
4254 CHECK_STRING (name
);
4257 if (! EQ (Vinitial_window_system
, intern ("x")))
4258 error ("Not using X Windows"); /* That doesn't stop us anymore. */
4261 for (dpyinfo
= x_display_list
, names
= x_display_name_list
;
4263 dpyinfo
= dpyinfo
->next
, names
= XCDR (names
))
4266 tem
= Fstring_equal (XCAR (XCAR (names
)), name
);
4271 /* Use this general default value to start with. */
4272 Vx_resource_name
= Vinvocation_name
;
4274 validate_x_resource_name ();
4276 dpyinfo
= x_term_init (name
, (char *)0,
4277 (char *) SDATA (Vx_resource_name
));
4280 error ("Cannot connect to X server %s", SDATA (name
));
4283 XSETFASTINT (Vwindow_system_version
, 11);
4289 DEFUN ("x-open-connection", Fx_open_connection
, Sx_open_connection
,
4291 doc
: /* Open a connection to an X server.
4292 DISPLAY is the name of the display to connect to.
4293 Optional second arg XRM-STRING is a string of resources in xrdb format.
4294 If the optional third arg MUST-SUCCEED is non-nil,
4295 terminate Emacs if we can't open the connection. */)
4296 (display
, xrm_string
, must_succeed
)
4297 Lisp_Object display
, xrm_string
, must_succeed
;
4299 unsigned char *xrm_option
;
4300 struct x_display_info
*dpyinfo
;
4302 CHECK_STRING (display
);
4303 if (! NILP (xrm_string
))
4304 CHECK_STRING (xrm_string
);
4307 if (! EQ (Vinitial_window_system
, intern ("x")))
4308 error ("Not using X Windows"); /* That doesn't stop us anymore. */
4311 if (! NILP (xrm_string
))
4312 xrm_option
= (unsigned char *) SDATA (xrm_string
);
4314 xrm_option
= (unsigned char *) 0;
4316 validate_x_resource_name ();
4318 /* This is what opens the connection and sets x_current_display.
4319 This also initializes many symbols, such as those used for input. */
4320 dpyinfo
= x_term_init (display
, xrm_option
,
4321 (char *) SDATA (Vx_resource_name
));
4325 if (!NILP (must_succeed
))
4326 fatal ("Cannot connect to X server %s.\n\
4327 Check the DISPLAY environment variable or use `-d'.\n\
4328 Also use the `xauth' program to verify that you have the proper\n\
4329 authorization information needed to connect the X server.\n\
4330 An insecure way to solve the problem may be to use `xhost'.\n",
4333 error ("Cannot connect to X server %s", SDATA (display
));
4338 XSETFASTINT (Vwindow_system_version
, 11);
4342 DEFUN ("x-close-connection", Fx_close_connection
,
4343 Sx_close_connection
, 1, 1, 0,
4344 doc
: /* Close the connection to TERMINAL's X server.
4345 For TERMINAL, specify a terminal object, a frame or a display name (a
4346 string). If TERMINAL is nil, that stands for the selected frame's
4349 Lisp_Object terminal
;
4351 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4353 if (dpyinfo
->reference_count
> 0)
4354 error ("Display still has frames on it");
4356 x_delete_terminal (dpyinfo
->terminal
);
4361 DEFUN ("x-display-list", Fx_display_list
, Sx_display_list
, 0, 0, 0,
4362 doc
: /* Return the list of display names that Emacs has connections to. */)
4365 Lisp_Object tail
, result
;
4368 for (tail
= x_display_name_list
; CONSP (tail
); tail
= XCDR (tail
))
4369 result
= Fcons (XCAR (XCAR (tail
)), result
);
4374 DEFUN ("x-synchronize", Fx_synchronize
, Sx_synchronize
, 1, 2, 0,
4375 doc
: /* If ON is non-nil, report X errors as soon as the erring request is made.
4376 If ON is nil, allow buffering of requests.
4377 Turning on synchronization prohibits the Xlib routines from buffering
4378 requests and seriously degrades performance, but makes debugging much
4380 The optional second argument TERMINAL specifies which display to act on.
4381 TERMINAL should be a terminal object, a frame or a display name (a string).
4382 If TERMINAL is omitted or nil, that stands for the selected frame's display. */)
4384 Lisp_Object terminal
, on
;
4386 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4388 XSynchronize (dpyinfo
->display
, !EQ (on
, Qnil
));
4393 /* Wait for responses to all X commands issued so far for frame F. */
4400 XSync (FRAME_X_DISPLAY (f
), False
);
4405 /***********************************************************************
4407 ***********************************************************************/
4409 DEFUN ("x-change-window-property", Fx_change_window_property
,
4410 Sx_change_window_property
, 2, 6, 0,
4411 doc
: /* Change window property PROP to VALUE on the X window of FRAME.
4412 PROP must be a string.
4413 VALUE may be a string or a list of conses, numbers and/or strings.
4414 If an element in the list is a string, it is converted to
4415 an Atom and the value of the Atom is used. If an element is a cons,
4416 it is converted to a 32 bit number where the car is the 16 top bits and the
4417 cdr is the lower 16 bits.
4418 FRAME nil or omitted means use the selected frame.
4419 If TYPE is given and non-nil, it is the name of the type of VALUE.
4420 If TYPE is not given or nil, the type is STRING.
4421 FORMAT gives the size in bits of each element if VALUE is a list.
4422 It must be one of 8, 16 or 32.
4423 If VALUE is a string or FORMAT is nil or not given, FORMAT defaults to 8.
4424 If OUTER_P is non-nil, the property is changed for the outer X window of
4425 FRAME. Default is to change on the edit X window.
4428 (prop
, value
, frame
, type
, format
, outer_p
)
4429 Lisp_Object prop
, value
, frame
, type
, format
, outer_p
;
4431 struct frame
*f
= check_x_frame (frame
);
4433 Atom target_type
= XA_STRING
;
4434 int element_format
= 8;
4435 unsigned char *data
;
4439 CHECK_STRING (prop
);
4441 if (! NILP (format
))
4443 CHECK_NUMBER (format
);
4444 element_format
= XFASTINT (format
);
4446 if (element_format
!= 8 && element_format
!= 16
4447 && element_format
!= 32)
4448 error ("FORMAT must be one of 8, 16 or 32");
4453 nelements
= x_check_property_data (value
);
4454 if (nelements
== -1)
4455 error ("Bad data in VALUE, must be number, string or cons");
4457 if (element_format
== 8)
4458 data
= (unsigned char *) xmalloc (nelements
);
4459 else if (element_format
== 16)
4460 data
= (unsigned char *) xmalloc (nelements
*2);
4461 else /* format == 32 */
4462 /* The man page for XChangeProperty:
4463 "If the specified format is 32, the property data must be a
4465 This applies even if long is more than 64 bits. The X library
4466 converts to 32 bits before sending to the X server. */
4467 data
= (unsigned char *) xmalloc (nelements
* sizeof(long));
4469 x_fill_property_data (FRAME_X_DISPLAY (f
), value
, data
, element_format
);
4473 CHECK_STRING (value
);
4474 data
= SDATA (value
);
4475 nelements
= SCHARS (value
);
4479 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4482 CHECK_STRING (type
);
4483 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (type
), False
);
4486 if (! NILP (outer_p
)) w
= FRAME_OUTER_WINDOW (f
);
4487 else w
= FRAME_X_WINDOW (f
);
4489 XChangeProperty (FRAME_X_DISPLAY (f
), w
,
4490 prop_atom
, target_type
, element_format
, PropModeReplace
,
4493 if (CONSP (value
)) xfree (data
);
4495 /* Make sure the property is set when we return. */
4496 XFlush (FRAME_X_DISPLAY (f
));
4503 DEFUN ("x-delete-window-property", Fx_delete_window_property
,
4504 Sx_delete_window_property
, 1, 2, 0,
4505 doc
: /* Remove window property PROP from X window of FRAME.
4506 FRAME nil or omitted means use the selected frame. Value is PROP. */)
4508 Lisp_Object prop
, frame
;
4510 struct frame
*f
= check_x_frame (frame
);
4513 CHECK_STRING (prop
);
4515 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4516 XDeleteProperty (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), prop_atom
);
4518 /* Make sure the property is removed when we return. */
4519 XFlush (FRAME_X_DISPLAY (f
));
4526 DEFUN ("x-window-property", Fx_window_property
, Sx_window_property
,
4528 doc
: /* Value is the value of window property PROP on FRAME.
4529 If FRAME is nil or omitted, use the selected frame.
4530 If TYPE is nil or omitted, get the property as a string. Otherwise TYPE
4531 is the name of the Atom that denotes the type expected.
4532 If SOURCE is non-nil, get the property on that window instead of from
4533 FRAME. The number 0 denotes the root window.
4534 If DELETE_P is non-nil, delete the property after retreiving it.
4535 If VECTOR_RET_P is non-nil, don't return a string but a vector of values.
4537 Value is nil if FRAME hasn't a property with name PROP or if PROP has
4538 no value of TYPE. */)
4539 (prop
, frame
, type
, source
, delete_p
, vector_ret_p
)
4540 Lisp_Object prop
, frame
, type
, source
, delete_p
, vector_ret_p
;
4542 struct frame
*f
= check_x_frame (frame
);
4545 Lisp_Object prop_value
= Qnil
;
4546 unsigned char *tmp_data
= NULL
;
4548 Atom target_type
= XA_STRING
;
4550 unsigned long actual_size
, bytes_remaining
;
4551 Window target_window
= FRAME_X_WINDOW (f
);
4552 struct gcpro gcpro1
;
4554 GCPRO1 (prop_value
);
4555 CHECK_STRING (prop
);
4557 if (! NILP (source
))
4559 if (NUMBERP (source
))
4561 if (FLOATP (source
))
4562 target_window
= (Window
) XFLOAT (source
);
4564 target_window
= XFASTINT (source
);
4566 if (target_window
== 0)
4567 target_window
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4569 else if (CONSP (source
))
4570 target_window
= cons_to_long (source
);
4576 if (strcmp ("AnyPropertyType", SDATA (type
)) == 0)
4577 target_type
= AnyPropertyType
;
4579 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (type
), False
);
4582 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4583 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4584 prop_atom
, 0, 0, False
, target_type
,
4585 &actual_type
, &actual_format
, &actual_size
,
4586 &bytes_remaining
, &tmp_data
);
4589 int size
= bytes_remaining
;
4594 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4595 prop_atom
, 0, bytes_remaining
,
4596 ! NILP (delete_p
), target_type
,
4597 &actual_type
, &actual_format
,
4598 &actual_size
, &bytes_remaining
,
4600 if (rc
== Success
&& tmp_data
)
4602 /* The man page for XGetWindowProperty says:
4603 "If the returned format is 32, the returned data is represented
4604 as a long array and should be cast to that type to obtain the
4606 This applies even if long is more than 32 bits, the X library
4607 converts from 32 bit elements received from the X server to long
4608 and passes the long array to us. Thus, for that case bcopy can not
4609 be used. We convert to a 32 bit type here, because so much code
4612 The bytes and offsets passed to XGetWindowProperty refers to the
4613 property and those are indeed in 32 bit quantities if format is
4616 if (actual_format
== 32 && actual_format
< BITS_PER_LONG
)
4619 int *idata
= (int *) tmp_data
;
4620 long *ldata
= (long *) tmp_data
;
4622 for (i
= 0; i
< actual_size
; ++i
)
4623 idata
[i
] = (int) ldata
[i
];
4626 if (NILP (vector_ret_p
))
4627 prop_value
= make_string (tmp_data
, size
);
4629 prop_value
= x_property_data_to_lisp (f
,
4636 if (tmp_data
) XFree (tmp_data
);
4646 /***********************************************************************
4648 ***********************************************************************/
4650 /* Timer function of hourglass_atimer. TIMER is equal to
4653 Display an hourglass pointer on all frames by mapping the frames'
4654 hourglass_window. Set the hourglass_p flag in the frames'
4655 output_data.x structure to indicate that an hourglass cursor is
4656 shown on the frames. */
4659 show_hourglass (timer
)
4660 struct atimer
*timer
;
4662 /* The timer implementation will cancel this timer automatically
4663 after this function has run. Set hourglass_atimer to null
4664 so that we know the timer doesn't have to be canceled. */
4665 hourglass_atimer
= NULL
;
4667 if (!hourglass_shown_p
)
4669 Lisp_Object rest
, frame
;
4673 FOR_EACH_FRAME (rest
, frame
)
4675 struct frame
*f
= XFRAME (frame
);
4677 if (FRAME_LIVE_P (f
) && FRAME_X_P (f
) && FRAME_X_DISPLAY (f
))
4679 Display
*dpy
= FRAME_X_DISPLAY (f
);
4681 #ifdef USE_X_TOOLKIT
4682 if (f
->output_data
.x
->widget
)
4684 if (FRAME_OUTER_WINDOW (f
))
4687 f
->output_data
.x
->hourglass_p
= 1;
4689 if (!f
->output_data
.x
->hourglass_window
)
4691 unsigned long mask
= CWCursor
;
4692 XSetWindowAttributes attrs
;
4694 Window parent
= FRAME_X_WINDOW (f
);
4696 Window parent
= FRAME_OUTER_WINDOW (f
);
4698 attrs
.cursor
= f
->output_data
.x
->hourglass_cursor
;
4700 f
->output_data
.x
->hourglass_window
4701 = XCreateWindow (dpy
, parent
,
4702 0, 0, 32000, 32000, 0, 0,
4708 XMapRaised (dpy
, f
->output_data
.x
->hourglass_window
);
4714 hourglass_shown_p
= 1;
4720 /* Hide the hourglass pointer on all frames, if it is currently
4726 if (hourglass_shown_p
)
4728 Lisp_Object rest
, frame
;
4731 FOR_EACH_FRAME (rest
, frame
)
4733 struct frame
*f
= XFRAME (frame
);
4736 /* Watch out for newly created frames. */
4737 && f
->output_data
.x
->hourglass_window
)
4739 XUnmapWindow (FRAME_X_DISPLAY (f
),
4740 f
->output_data
.x
->hourglass_window
);
4741 /* Sync here because XTread_socket looks at the
4742 hourglass_p flag that is reset to zero below. */
4743 XSync (FRAME_X_DISPLAY (f
), False
);
4744 f
->output_data
.x
->hourglass_p
= 0;
4748 hourglass_shown_p
= 0;
4755 /***********************************************************************
4757 ***********************************************************************/
4759 static Lisp_Object x_create_tip_frame
P_ ((struct x_display_info
*,
4760 Lisp_Object
, Lisp_Object
));
4761 static void compute_tip_xy
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
,
4762 Lisp_Object
, int, int, int *, int *));
4764 /* The frame of a currently visible tooltip. */
4766 Lisp_Object tip_frame
;
4768 /* If non-nil, a timer started that hides the last tooltip when it
4771 Lisp_Object tip_timer
;
4774 /* If non-nil, a vector of 3 elements containing the last args
4775 with which x-show-tip was called. See there. */
4777 Lisp_Object last_show_tip_args
;
4779 /* Maximum size for tooltips; a cons (COLUMNS . ROWS). */
4781 Lisp_Object Vx_max_tooltip_size
;
4785 unwind_create_tip_frame (frame
)
4788 Lisp_Object deleted
;
4790 deleted
= unwind_create_frame (frame
);
4791 if (EQ (deleted
, Qt
))
4801 /* Create a frame for a tooltip on the display described by DPYINFO.
4802 PARMS is a list of frame parameters. TEXT is the string to
4803 display in the tip frame. Value is the frame.
4805 Note that functions called here, esp. x_default_parameter can
4806 signal errors, for instance when a specified color name is
4807 undefined. We have to make sure that we're in a consistent state
4808 when this happens. */
4811 x_create_tip_frame (dpyinfo
, parms
, text
)
4812 struct x_display_info
*dpyinfo
;
4813 Lisp_Object parms
, text
;
4816 Lisp_Object frame
, tem
;
4818 long window_prompting
= 0;
4820 int count
= SPECPDL_INDEX ();
4821 struct gcpro gcpro1
, gcpro2
, gcpro3
;
4822 int face_change_count_before
= face_change_count
;
4824 struct buffer
*old_buffer
;
4828 if (!dpyinfo
->terminal
->name
)
4829 error ("Terminal is not live, can't create new frames on it");
4831 parms
= Fcopy_alist (parms
);
4833 /* Get the name of the frame to use for resource lookup. */
4834 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
4836 && !EQ (name
, Qunbound
)
4838 error ("Invalid frame name--not a string or nil");
4841 GCPRO3 (parms
, name
, frame
);
4843 XSETFRAME (frame
, f
);
4845 buffer
= Fget_buffer_create (build_string (" *tip*"));
4846 Fset_window_buffer (FRAME_ROOT_WINDOW (f
), buffer
, Qnil
);
4847 old_buffer
= current_buffer
;
4848 set_buffer_internal_1 (XBUFFER (buffer
));
4849 current_buffer
->truncate_lines
= Qnil
;
4850 specbind (Qinhibit_read_only
, Qt
);
4851 specbind (Qinhibit_modification_hooks
, Qt
);
4854 set_buffer_internal_1 (old_buffer
);
4856 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 0;
4857 record_unwind_protect (unwind_create_tip_frame
, frame
);
4859 f
->terminal
= dpyinfo
->terminal
;
4860 f
->terminal
->reference_count
++;
4862 /* By setting the output method, we're essentially saying that
4863 the frame is live, as per FRAME_LIVE_P. If we get a signal
4864 from this point on, x_destroy_window might screw up reference
4866 f
->output_method
= output_x_window
;
4867 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
4868 bzero (f
->output_data
.x
, sizeof (struct x_output
));
4869 f
->output_data
.x
->icon_bitmap
= -1;
4870 FRAME_FONTSET (f
) = -1;
4871 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
4872 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
4873 #ifdef USE_TOOLKIT_SCROLL_BARS
4874 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
4875 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
4876 #endif /* USE_TOOLKIT_SCROLL_BARS */
4877 f
->icon_name
= Qnil
;
4878 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
4880 image_cache_refcount
= FRAME_IMAGE_CACHE (f
)->refcount
;
4881 dpyinfo_refcount
= dpyinfo
->reference_count
;
4882 #endif /* GLYPH_DEBUG */
4883 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4884 f
->output_data
.x
->explicit_parent
= 0;
4886 /* These colors will be set anyway later, but it's important
4887 to get the color reference counts right, so initialize them! */
4890 struct gcpro gcpro1
;
4892 /* Function x_decode_color can signal an error. Make
4893 sure to initialize color slots so that we won't try
4894 to free colors we haven't allocated. */
4895 FRAME_FOREGROUND_PIXEL (f
) = -1;
4896 FRAME_BACKGROUND_PIXEL (f
) = -1;
4897 f
->output_data
.x
->cursor_pixel
= -1;
4898 f
->output_data
.x
->cursor_foreground_pixel
= -1;
4899 f
->output_data
.x
->border_pixel
= -1;
4900 f
->output_data
.x
->mouse_pixel
= -1;
4902 black
= build_string ("black");
4904 FRAME_FOREGROUND_PIXEL (f
)
4905 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4906 FRAME_BACKGROUND_PIXEL (f
)
4907 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4908 f
->output_data
.x
->cursor_pixel
4909 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4910 f
->output_data
.x
->cursor_foreground_pixel
4911 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4912 f
->output_data
.x
->border_pixel
4913 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4914 f
->output_data
.x
->mouse_pixel
4915 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4919 /* Set the name; the functions to which we pass f expect the name to
4921 if (EQ (name
, Qunbound
) || NILP (name
))
4923 f
->name
= build_string (dpyinfo
->x_id_name
);
4924 f
->explicit_name
= 0;
4929 f
->explicit_name
= 1;
4930 /* use the frame's title when getting resources for this frame. */
4931 specbind (Qx_resource_name
, name
);
4934 f
->resx
= dpyinfo
->resx
;
4935 f
->resy
= dpyinfo
->resy
;
4937 register_font_driver (&xfont_driver
, f
);
4938 #ifdef HAVE_FREETYPE
4940 register_font_driver (&xftfont_driver
, f
);
4941 #else /* not HAVE_XFT */
4942 register_font_driver (&ftxfont_driver
, f
);
4943 #endif /* not HAVE_XFT */
4944 #endif /* HAVE_FREETYPE */
4946 x_default_parameter (f
, parms
, Qfont_backend
, Qnil
,
4947 "fontBackend", "FontBackend", RES_TYPE_STRING
);
4949 /* Extract the window parameters from the supplied values that are
4950 needed to determine window geometry. */
4951 x_default_font_parameter (f
, parms
);
4953 x_default_parameter (f
, parms
, Qborder_width
, make_number (2),
4954 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
4956 /* This defaults to 2 in order to match xterm. We recognize either
4957 internalBorderWidth or internalBorder (which is what xterm calls
4959 if (NILP (Fassq (Qinternal_border_width
, parms
)))
4963 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
4964 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
4965 if (! EQ (value
, Qunbound
))
4966 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
4970 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
4971 "internalBorderWidth", "internalBorderWidth",
4974 /* Also do the stuff which must be set before the window exists. */
4975 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
4976 "foreground", "Foreground", RES_TYPE_STRING
);
4977 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
4978 "background", "Background", RES_TYPE_STRING
);
4979 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
4980 "pointerColor", "Foreground", RES_TYPE_STRING
);
4981 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
4982 "cursorColor", "Foreground", RES_TYPE_STRING
);
4983 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
4984 "borderColor", "BorderColor", RES_TYPE_STRING
);
4986 /* Init faces before x_default_parameter is called for scroll-bar
4987 parameters because that function calls x_set_scroll_bar_width,
4988 which calls change_frame_size, which calls Fset_window_buffer,
4989 which runs hooks, which call Fvertical_motion. At the end, we
4990 end up in init_iterator with a null face cache, which should not
4992 init_frame_faces (f
);
4994 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4996 window_prompting
= x_figure_window_size (f
, parms
, 0);
4999 XSetWindowAttributes attrs
;
5001 Atom type
= FRAME_X_DISPLAY_INFO (f
)->Xatom_net_window_type_tooltip
;
5004 mask
= CWBackPixel
| CWOverrideRedirect
| CWEventMask
;
5005 if (DoesSaveUnders (dpyinfo
->screen
))
5006 mask
|= CWSaveUnder
;
5008 /* Window managers look at the override-redirect flag to determine
5009 whether or net to give windows a decoration (Xlib spec, chapter
5011 attrs
.override_redirect
= True
;
5012 attrs
.save_under
= True
;
5013 attrs
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
5014 /* Arrange for getting MapNotify and UnmapNotify events. */
5015 attrs
.event_mask
= StructureNotifyMask
;
5017 = FRAME_X_WINDOW (f
)
5018 = XCreateWindow (FRAME_X_DISPLAY (f
),
5019 FRAME_X_DISPLAY_INFO (f
)->root_window
,
5020 /* x, y, width, height */
5024 CopyFromParent
, InputOutput
, CopyFromParent
,
5026 XChangeProperty (FRAME_X_DISPLAY (f
), tip_window
,
5027 FRAME_X_DISPLAY_INFO (f
)->Xatom_net_window_type
,
5028 XA_ATOM
, 32, PropModeReplace
,
5029 (unsigned char *)&type
, 1);
5035 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
5036 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
5037 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
5038 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
5039 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
5040 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
5042 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
5043 Change will not be effected unless different from the current
5045 width
= FRAME_COLS (f
);
5046 height
= FRAME_LINES (f
);
5047 SET_FRAME_COLS (f
, 0);
5048 FRAME_LINES (f
) = 0;
5049 change_frame_size (f
, height
, width
, 1, 0, 0);
5051 /* Add `tooltip' frame parameter's default value. */
5052 if (NILP (Fframe_parameter (frame
, intern ("tooltip"))))
5053 Fmodify_frame_parameters (frame
, Fcons (Fcons (intern ("tooltip"), Qt
),
5056 /* FIXME - can this be done in a similar way to normal frames?
5057 http://lists.gnu.org/archive/html/emacs-devel/2007-10/msg00641.html */
5059 /* Set the `display-type' frame parameter before setting up faces. */
5061 Lisp_Object disptype
;
5063 if (FRAME_X_DISPLAY_INFO (f
)->n_planes
== 1)
5064 disptype
= intern ("mono");
5065 else if (FRAME_X_DISPLAY_INFO (f
)->visual
->class == GrayScale
5066 || FRAME_X_DISPLAY_INFO (f
)->visual
->class == StaticGray
)
5067 disptype
= intern ("grayscale");
5069 disptype
= intern ("color");
5071 if (NILP (Fframe_parameter (frame
, Qdisplay_type
)))
5072 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qdisplay_type
, disptype
),
5076 /* Set up faces after all frame parameters are known. This call
5077 also merges in face attributes specified for new frames.
5079 Frame parameters may be changed if .Xdefaults contains
5080 specifications for the default font. For example, if there is an
5081 `Emacs.default.attributeBackground: pink', the `background-color'
5082 attribute of the frame get's set, which let's the internal border
5083 of the tooltip frame appear in pink. Prevent this. */
5085 Lisp_Object bg
= Fframe_parameter (frame
, Qbackground_color
);
5087 /* Set tip_frame here, so that */
5089 call2 (Qface_set_after_frame_default
, frame
, Qnil
);
5091 if (!EQ (bg
, Fframe_parameter (frame
, Qbackground_color
)))
5092 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qbackground_color
, bg
),
5100 /* It is now ok to make the frame official even if we get an error
5101 below. And the frame needs to be on Vframe_list or making it
5102 visible won't work. */
5103 Vframe_list
= Fcons (frame
, Vframe_list
);
5105 /* Now that the frame is official, it counts as a reference to
5107 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
5109 /* Setting attributes of faces of the tooltip frame from resources
5110 and similar will increment face_change_count, which leads to the
5111 clearing of all current matrices. Since this isn't necessary
5112 here, avoid it by resetting face_change_count to the value it
5113 had before we created the tip frame. */
5114 face_change_count
= face_change_count_before
;
5116 /* Discard the unwind_protect. */
5117 return unbind_to (count
, frame
);
5121 /* Compute where to display tip frame F. PARMS is the list of frame
5122 parameters for F. DX and DY are specified offsets from the current
5123 location of the mouse. WIDTH and HEIGHT are the width and height
5124 of the tooltip. Return coordinates relative to the root window of
5125 the display in *ROOT_X, and *ROOT_Y. */
5128 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, root_x
, root_y
)
5130 Lisp_Object parms
, dx
, dy
;
5132 int *root_x
, *root_y
;
5134 Lisp_Object left
, top
;
5139 /* User-specified position? */
5140 left
= Fcdr (Fassq (Qleft
, parms
));
5141 top
= Fcdr (Fassq (Qtop
, parms
));
5143 /* Move the tooltip window where the mouse pointer is. Resize and
5145 if (!INTEGERP (left
) || !INTEGERP (top
))
5148 XQueryPointer (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
5149 &root
, &child
, root_x
, root_y
, &win_x
, &win_y
, &pmask
);
5154 *root_y
= XINT (top
);
5155 else if (*root_y
+ XINT (dy
) <= 0)
5156 *root_y
= 0; /* Can happen for negative dy */
5157 else if (*root_y
+ XINT (dy
) + height
5158 <= x_display_pixel_height (FRAME_X_DISPLAY_INFO (f
)))
5159 /* It fits below the pointer */
5160 *root_y
+= XINT (dy
);
5161 else if (height
+ XINT (dy
) <= *root_y
)
5162 /* It fits above the pointer. */
5163 *root_y
-= height
+ XINT (dy
);
5165 /* Put it on the top. */
5168 if (INTEGERP (left
))
5169 *root_x
= XINT (left
);
5170 else if (*root_x
+ XINT (dx
) <= 0)
5171 *root_x
= 0; /* Can happen for negative dx */
5172 else if (*root_x
+ XINT (dx
) + width
5173 <= x_display_pixel_width (FRAME_X_DISPLAY_INFO (f
)))
5174 /* It fits to the right of the pointer. */
5175 *root_x
+= XINT (dx
);
5176 else if (width
+ XINT (dx
) <= *root_x
)
5177 /* It fits to the left of the pointer. */
5178 *root_x
-= width
+ XINT (dx
);
5180 /* Put it left-justified on the screen--it ought to fit that way. */
5185 DEFUN ("x-show-tip", Fx_show_tip
, Sx_show_tip
, 1, 6, 0,
5186 doc
: /* Show STRING in a "tooltip" window on frame FRAME.
5187 A tooltip window is a small X window displaying a string.
5189 This is an internal function; Lisp code should call `tooltip-show'.
5191 FRAME nil or omitted means use the selected frame.
5193 PARMS is an optional list of frame parameters which can be used to
5194 change the tooltip's appearance.
5196 Automatically hide the tooltip after TIMEOUT seconds. TIMEOUT nil
5197 means use the default timeout of 5 seconds.
5199 If the list of frame parameters PARAMS contains a `left' parameters,
5200 the tooltip is displayed at that x-position. Otherwise it is
5201 displayed at the mouse position, with offset DX added (default is 5 if
5202 DX isn't specified). Likewise for the y-position; if a `top' frame
5203 parameter is specified, it determines the y-position of the tooltip
5204 window, otherwise it is displayed at the mouse position, with offset
5205 DY added (default is -10).
5207 A tooltip's maximum size is specified by `x-max-tooltip-size'.
5208 Text larger than the specified size is clipped. */)
5209 (string
, frame
, parms
, timeout
, dx
, dy
)
5210 Lisp_Object string
, frame
, parms
, timeout
, dx
, dy
;
5215 struct buffer
*old_buffer
;
5216 struct text_pos pos
;
5217 int i
, width
, height
;
5218 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
5219 int old_windows_or_buffers_changed
= windows_or_buffers_changed
;
5220 int count
= SPECPDL_INDEX ();
5222 specbind (Qinhibit_redisplay
, Qt
);
5224 GCPRO4 (string
, parms
, frame
, timeout
);
5226 CHECK_STRING (string
);
5227 if (SCHARS (string
) == 0)
5228 string
= make_unibyte_string (" ", 1);
5230 f
= check_x_frame (frame
);
5232 timeout
= make_number (5);
5234 CHECK_NATNUM (timeout
);
5237 dx
= make_number (5);
5242 dy
= make_number (-10);
5246 if (NILP (last_show_tip_args
))
5247 last_show_tip_args
= Fmake_vector (make_number (3), Qnil
);
5249 if (!NILP (tip_frame
))
5251 Lisp_Object last_string
= AREF (last_show_tip_args
, 0);
5252 Lisp_Object last_frame
= AREF (last_show_tip_args
, 1);
5253 Lisp_Object last_parms
= AREF (last_show_tip_args
, 2);
5255 if (EQ (frame
, last_frame
)
5256 && !NILP (Fequal (last_string
, string
))
5257 && !NILP (Fequal (last_parms
, parms
)))
5259 struct frame
*f
= XFRAME (tip_frame
);
5261 /* Only DX and DY have changed. */
5262 if (!NILP (tip_timer
))
5264 Lisp_Object timer
= tip_timer
;
5266 call1 (Qcancel_timer
, timer
);
5270 compute_tip_xy (f
, parms
, dx
, dy
, FRAME_PIXEL_WIDTH (f
),
5271 FRAME_PIXEL_HEIGHT (f
), &root_x
, &root_y
);
5272 XMoveWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5279 /* Hide a previous tip, if any. */
5282 ASET (last_show_tip_args
, 0, string
);
5283 ASET (last_show_tip_args
, 1, frame
);
5284 ASET (last_show_tip_args
, 2, parms
);
5286 /* Add default values to frame parameters. */
5287 if (NILP (Fassq (Qname
, parms
)))
5288 parms
= Fcons (Fcons (Qname
, build_string ("tooltip")), parms
);
5289 if (NILP (Fassq (Qinternal_border_width
, parms
)))
5290 parms
= Fcons (Fcons (Qinternal_border_width
, make_number (3)), parms
);
5291 if (NILP (Fassq (Qborder_width
, parms
)))
5292 parms
= Fcons (Fcons (Qborder_width
, make_number (1)), parms
);
5293 if (NILP (Fassq (Qborder_color
, parms
)))
5294 parms
= Fcons (Fcons (Qborder_color
, build_string ("lightyellow")), parms
);
5295 if (NILP (Fassq (Qbackground_color
, parms
)))
5296 parms
= Fcons (Fcons (Qbackground_color
, build_string ("lightyellow")),
5299 /* Create a frame for the tooltip, and record it in the global
5300 variable tip_frame. */
5301 frame
= x_create_tip_frame (FRAME_X_DISPLAY_INFO (f
), parms
, string
);
5304 /* Set up the frame's root window. */
5305 w
= XWINDOW (FRAME_ROOT_WINDOW (f
));
5306 w
->left_col
= w
->top_line
= make_number (0);
5308 if (CONSP (Vx_max_tooltip_size
)
5309 && INTEGERP (XCAR (Vx_max_tooltip_size
))
5310 && XINT (XCAR (Vx_max_tooltip_size
)) > 0
5311 && INTEGERP (XCDR (Vx_max_tooltip_size
))
5312 && XINT (XCDR (Vx_max_tooltip_size
)) > 0)
5314 w
->total_cols
= XCAR (Vx_max_tooltip_size
);
5315 w
->total_lines
= XCDR (Vx_max_tooltip_size
);
5319 w
->total_cols
= make_number (80);
5320 w
->total_lines
= make_number (40);
5323 FRAME_TOTAL_COLS (f
) = XINT (w
->total_cols
);
5325 w
->pseudo_window_p
= 1;
5327 /* Display the tooltip text in a temporary buffer. */
5328 old_buffer
= current_buffer
;
5329 set_buffer_internal_1 (XBUFFER (XWINDOW (FRAME_ROOT_WINDOW (f
))->buffer
));
5330 current_buffer
->truncate_lines
= Qnil
;
5331 clear_glyph_matrix (w
->desired_matrix
);
5332 clear_glyph_matrix (w
->current_matrix
);
5333 SET_TEXT_POS (pos
, BEGV
, BEGV_BYTE
);
5334 try_window (FRAME_ROOT_WINDOW (f
), pos
, 0);
5336 /* Compute width and height of the tooltip. */
5338 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
5340 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
5344 /* Stop at the first empty row at the end. */
5345 if (!row
->enabled_p
|| !row
->displays_text_p
)
5348 /* Let the row go over the full width of the frame. */
5349 row
->full_width_p
= 1;
5351 /* There's a glyph at the end of rows that is used to place
5352 the cursor there. Don't include the width of this glyph. */
5353 if (row
->used
[TEXT_AREA
])
5355 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
5356 row_width
= row
->pixel_width
- last
->pixel_width
;
5359 row_width
= row
->pixel_width
;
5361 height
+= row
->height
;
5362 width
= max (width
, row_width
);
5365 /* Add the frame's internal border to the width and height the X
5366 window should have. */
5367 height
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5368 width
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5370 /* Move the tooltip window where the mouse pointer is. Resize and
5372 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
5375 XMoveResizeWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5376 root_x
, root_y
, width
, height
);
5377 XMapRaised (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
));
5380 /* Draw into the window. */
5381 w
->must_be_updated_p
= 1;
5382 update_single_window (w
, 1);
5384 /* Restore original current buffer. */
5385 set_buffer_internal_1 (old_buffer
);
5386 windows_or_buffers_changed
= old_windows_or_buffers_changed
;
5389 /* Let the tip disappear after timeout seconds. */
5390 tip_timer
= call3 (intern ("run-at-time"), timeout
, Qnil
,
5391 intern ("x-hide-tip"));
5394 return unbind_to (count
, Qnil
);
5398 DEFUN ("x-hide-tip", Fx_hide_tip
, Sx_hide_tip
, 0, 0, 0,
5399 doc
: /* Hide the current tooltip window, if there is any.
5400 Value is t if tooltip was open, nil otherwise. */)
5404 Lisp_Object deleted
, frame
, timer
;
5405 struct gcpro gcpro1
, gcpro2
;
5407 /* Return quickly if nothing to do. */
5408 if (NILP (tip_timer
) && NILP (tip_frame
))
5413 GCPRO2 (frame
, timer
);
5414 tip_frame
= tip_timer
= deleted
= Qnil
;
5416 count
= SPECPDL_INDEX ();
5417 specbind (Qinhibit_redisplay
, Qt
);
5418 specbind (Qinhibit_quit
, Qt
);
5421 call1 (Qcancel_timer
, timer
);
5425 delete_frame (frame
, Qnil
);
5429 /* Bloodcurdling hack alert: The Lucid menu bar widget's
5430 redisplay procedure is not called when a tip frame over menu
5431 items is unmapped. Redisplay the menu manually... */
5433 struct frame
*f
= SELECTED_FRAME ();
5434 Widget w
= f
->output_data
.x
->menubar_widget
;
5435 extern void xlwmenu_redisplay
P_ ((Widget
));
5437 if (!DoesSaveUnders (FRAME_X_DISPLAY_INFO (f
)->screen
)
5441 xlwmenu_redisplay (w
);
5445 #endif /* USE_LUCID */
5449 return unbind_to (count
, deleted
);
5454 /***********************************************************************
5455 File selection dialog
5456 ***********************************************************************/
5458 DEFUN ("x-uses-old-gtk-dialog", Fx_uses_old_gtk_dialog
,
5459 Sx_uses_old_gtk_dialog
,
5461 doc
: /* Return t if the old Gtk+ file selection dialog is used. */)
5465 extern int use_dialog_box
;
5466 extern int use_file_dialog
;
5471 && xg_uses_old_file_dialog ())
5479 /* Callback for "OK" and "Cancel" on file selection dialog. */
5482 file_dialog_cb (widget
, client_data
, call_data
)
5484 XtPointer call_data
, client_data
;
5486 int *result
= (int *) client_data
;
5487 XmAnyCallbackStruct
*cb
= (XmAnyCallbackStruct
*) call_data
;
5488 *result
= cb
->reason
;
5492 /* Callback for unmapping a file selection dialog. This is used to
5493 capture the case where a dialog is closed via a window manager's
5494 closer button, for example. Using a XmNdestroyCallback didn't work
5498 file_dialog_unmap_cb (widget
, client_data
, call_data
)
5500 XtPointer call_data
, client_data
;
5502 int *result
= (int *) client_data
;
5503 *result
= XmCR_CANCEL
;
5507 clean_up_file_dialog (arg
)
5510 struct Lisp_Save_Value
*p
= XSAVE_VALUE (arg
);
5511 Widget dialog
= (Widget
) p
->pointer
;
5515 XtUnmanageChild (dialog
);
5516 XtDestroyWidget (dialog
);
5517 x_menu_set_in_use (0);
5524 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5525 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5526 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5527 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5528 or directory must exist. ONLY-DIR-P is ignored." */)
5529 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
)
5530 Lisp_Object prompt
, dir
, default_filename
, mustmatch
, only_dir_p
;
5533 struct frame
*f
= SELECTED_FRAME ();
5534 Lisp_Object file
= Qnil
;
5535 Lisp_Object decoded_file
;
5536 Widget dialog
, text
, help
;
5539 extern XtAppContext Xt_app_con
;
5540 XmString dir_xmstring
, pattern_xmstring
;
5541 int count
= SPECPDL_INDEX ();
5542 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5546 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5548 if (popup_activated ())
5549 error ("Trying to use a menu from within a menu-entry");
5551 CHECK_STRING (prompt
);
5554 /* Prevent redisplay. */
5555 specbind (Qinhibit_redisplay
, Qt
);
5559 /* Create the dialog with PROMPT as title, using DIR as initial
5560 directory and using "*" as pattern. */
5561 dir
= Fexpand_file_name (dir
, Qnil
);
5562 dir_xmstring
= XmStringCreateLocalized (SDATA (dir
));
5563 pattern_xmstring
= XmStringCreateLocalized ("*");
5565 XtSetArg (al
[ac
], XmNtitle
, SDATA (prompt
)); ++ac
;
5566 XtSetArg (al
[ac
], XmNdirectory
, dir_xmstring
); ++ac
;
5567 XtSetArg (al
[ac
], XmNpattern
, pattern_xmstring
); ++ac
;
5568 XtSetArg (al
[ac
], XmNresizePolicy
, XmRESIZE_GROW
); ++ac
;
5569 XtSetArg (al
[ac
], XmNdialogStyle
, XmDIALOG_APPLICATION_MODAL
); ++ac
;
5570 dialog
= XmCreateFileSelectionDialog (f
->output_data
.x
->widget
,
5572 XmStringFree (dir_xmstring
);
5573 XmStringFree (pattern_xmstring
);
5575 /* Add callbacks for OK and Cancel. */
5576 XtAddCallback (dialog
, XmNokCallback
, file_dialog_cb
,
5577 (XtPointer
) &result
);
5578 XtAddCallback (dialog
, XmNcancelCallback
, file_dialog_cb
,
5579 (XtPointer
) &result
);
5580 XtAddCallback (dialog
, XmNunmapCallback
, file_dialog_unmap_cb
,
5581 (XtPointer
) &result
);
5583 /* Remove the help button since we can't display help. */
5584 help
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_HELP_BUTTON
);
5585 XtUnmanageChild (help
);
5587 /* Mark OK button as default. */
5588 XtVaSetValues (XmFileSelectionBoxGetChild (dialog
, XmDIALOG_OK_BUTTON
),
5589 XmNshowAsDefault
, True
, NULL
);
5591 /* If MUSTMATCH is non-nil, disable the file entry field of the
5592 dialog, so that the user must select a file from the files list
5593 box. We can't remove it because we wouldn't have a way to get at
5594 the result file name, then. */
5595 text
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5596 if (!NILP (mustmatch
))
5599 label
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_SELECTION_LABEL
);
5600 XtSetSensitive (text
, False
);
5601 XtSetSensitive (label
, False
);
5604 /* Manage the dialog, so that list boxes get filled. */
5605 XtManageChild (dialog
);
5607 if (STRINGP (default_filename
))
5609 XmString default_xmstring
;
5610 Widget wtext
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5611 Widget list
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_LIST
);
5613 XmTextPosition last_pos
= XmTextFieldGetLastPosition (wtext
);
5614 XmTextFieldReplace (wtext
, 0, last_pos
,
5615 (SDATA (Ffile_name_nondirectory (default_filename
))));
5617 /* Select DEFAULT_FILENAME in the files list box. DEFAULT_FILENAME
5618 must include the path for this to work. */
5620 default_xmstring
= XmStringCreateLocalized (SDATA (default_filename
));
5622 if (XmListItemExists (list
, default_xmstring
))
5624 int item_pos
= XmListItemPos (list
, default_xmstring
);
5625 /* Select the item and scroll it into view. */
5626 XmListSelectPos (list
, item_pos
, True
);
5627 XmListSetPos (list
, item_pos
);
5630 XmStringFree (default_xmstring
);
5633 record_unwind_protect (clean_up_file_dialog
, make_save_value (dialog
, 0));
5635 /* Process events until the user presses Cancel or OK. */
5636 x_menu_set_in_use (1);
5641 x_menu_wait_for_event (0);
5642 XtAppNextEvent (Xt_app_con
, &event
);
5643 if (event
.type
== KeyPress
5644 && FRAME_X_DISPLAY (f
) == event
.xkey
.display
)
5646 KeySym keysym
= XLookupKeysym (&event
.xkey
, 0);
5648 /* Pop down on C-g. */
5649 if (keysym
== XK_g
&& (event
.xkey
.state
& ControlMask
) != 0)
5650 XtUnmanageChild (dialog
);
5653 (void) x_dispatch_event (&event
, FRAME_X_DISPLAY (f
));
5656 /* Get the result. */
5657 if (result
== XmCR_OK
)
5662 XtVaGetValues (dialog
, XmNtextString
, &text
, NULL
);
5663 XmStringGetLtoR (text
, XmFONTLIST_DEFAULT_TAG
, &data
);
5664 XmStringFree (text
);
5665 file
= build_string (data
);
5674 /* Make "Cancel" equivalent to C-g. */
5676 Fsignal (Qquit
, Qnil
);
5678 decoded_file
= DECODE_FILE (file
);
5680 return unbind_to (count
, decoded_file
);
5683 #endif /* USE_MOTIF */
5688 clean_up_dialog (arg
)
5691 x_menu_set_in_use (0);
5696 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5697 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5698 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5699 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5700 or directory must exist. If ONLY-DIR-P is non-nil, the user can only select
5702 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
)
5703 Lisp_Object prompt
, dir
, default_filename
, mustmatch
, only_dir_p
;
5705 FRAME_PTR f
= SELECTED_FRAME ();
5707 Lisp_Object file
= Qnil
;
5708 Lisp_Object decoded_file
;
5709 int count
= SPECPDL_INDEX ();
5710 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5715 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5717 if (popup_activated ())
5718 error ("Trying to use a menu from within a menu-entry");
5720 CHECK_STRING (prompt
);
5723 /* Prevent redisplay. */
5724 specbind (Qinhibit_redisplay
, Qt
);
5725 record_unwind_protect (clean_up_dialog
, Qnil
);
5729 if (STRINGP (default_filename
))
5730 cdef_file
= SDATA (default_filename
);
5732 cdef_file
= SDATA (dir
);
5734 fn
= xg_get_file_name (f
, SDATA (prompt
), cdef_file
,
5736 ! NILP (only_dir_p
));
5740 file
= build_string (fn
);
5747 /* Make "Cancel" equivalent to C-g. */
5749 Fsignal (Qquit
, Qnil
);
5751 decoded_file
= DECODE_FILE (file
);
5753 return unbind_to (count
, decoded_file
);
5757 #ifdef HAVE_FREETYPE
5759 DEFUN ("x-select-font", Fx_select_font
, Sx_select_font
, 0, 2, 0,
5760 doc
: /* Read a font name using a GTK font selection dialog.
5761 Return a GTK-style font string corresponding to the selection.
5763 If FRAME is omitted or nil, it defaults to the selected frame. */)
5765 Lisp_Object frame
, ignored
;
5767 FRAME_PTR f
= check_x_frame (frame
);
5770 Lisp_Object font_param
;
5771 char *default_name
= NULL
;
5772 struct gcpro gcpro1
, gcpro2
;
5773 int count
= SPECPDL_INDEX ();
5777 if (popup_activated ())
5778 error ("Trying to use a menu from within a menu-entry");
5780 /* Prevent redisplay. */
5781 specbind (Qinhibit_redisplay
, Qt
);
5782 record_unwind_protect (clean_up_dialog
, Qnil
);
5786 GCPRO2(font_param
, font
);
5788 XSETFONT (font
, FRAME_FONT (f
));
5789 font_param
= Ffont_get (font
, intern (":name"));
5790 if (STRINGP (font_param
))
5791 default_name
= xstrdup (SDATA (font_param
));
5794 font_param
= Fframe_parameter (frame
, Qfont_param
);
5795 if (STRINGP (font_param
))
5796 default_name
= xstrdup (SDATA (font_param
));
5799 if (default_name
== NULL
&& x_last_font_name
!= NULL
)
5800 default_name
= xstrdup (x_last_font_name
);
5802 /* Convert fontconfig names to Gtk names, i.e. remove - before number */
5805 char *p
= strrchr (default_name
, '-');
5809 while (isdigit (*ep
))
5811 if (*ep
== '\0') *p
= ' ';
5815 name
= xg_get_font_name (f
, default_name
);
5816 xfree (default_name
);
5820 font
= build_string (name
);
5821 g_free (x_last_font_name
);
5822 x_last_font_name
= name
;
5828 Fsignal (Qquit
, Qnil
);
5830 return unbind_to (count
, font
);
5832 #endif /* HAVE_FREETYPE */
5834 #endif /* USE_GTK */
5837 /***********************************************************************
5839 ***********************************************************************/
5841 #ifdef HAVE_XKBGETKEYBOARD
5842 #include <X11/XKBlib.h>
5843 #include <X11/keysym.h>
5846 DEFUN ("x-backspace-delete-keys-p", Fx_backspace_delete_keys_p
,
5847 Sx_backspace_delete_keys_p
, 0, 1, 0,
5848 doc
: /* Check if both Backspace and Delete keys are on the keyboard of FRAME.
5849 FRAME nil means use the selected frame.
5850 Value is t if we know that both keys are present, and are mapped to the
5851 usual X keysyms. Value is `lambda' if we cannot determine if both keys are
5852 present and mapped to the usual X keysyms. */)
5856 #ifdef HAVE_XKBGETKEYBOARD
5858 struct frame
*f
= check_x_frame (frame
);
5859 Display
*dpy
= FRAME_X_DISPLAY (f
);
5860 Lisp_Object have_keys
;
5861 int major
, minor
, op
, event
, error
;
5865 /* Check library version in case we're dynamically linked. */
5866 major
= XkbMajorVersion
;
5867 minor
= XkbMinorVersion
;
5868 if (!XkbLibraryVersion (&major
, &minor
))
5874 /* Check that the server supports XKB. */
5875 major
= XkbMajorVersion
;
5876 minor
= XkbMinorVersion
;
5877 if (!XkbQueryExtension (dpy
, &op
, &event
, &error
, &major
, &minor
))
5883 /* In this code we check that the keyboard has physical keys with names
5884 that start with BKSP (Backspace) and DELE (Delete), and that they
5885 generate keysym XK_BackSpace and XK_Delete respectively.
5886 This function is used to test if normal-erase-is-backspace should be
5888 An alternative approach would be to just check if XK_BackSpace and
5889 XK_Delete are mapped to any key. But if any of those are mapped to
5890 some non-intuitive key combination (Meta-Shift-Ctrl-whatever) and the
5891 user doesn't know about it, it is better to return false here.
5892 It is more obvious to the user what to do if she/he has two keys
5893 clearly marked with names/symbols and one key does something not
5894 expected (i.e. she/he then tries the other).
5895 The cases where Backspace/Delete is mapped to some other key combination
5896 are rare, and in those cases, normal-erase-is-backspace can be turned on
5900 kb
= XkbGetMap (dpy
, XkbAllMapComponentsMask
, XkbUseCoreKbd
);
5903 int delete_keycode
= 0, backspace_keycode
= 0, i
;
5905 if (XkbGetNames (dpy
, XkbAllNamesMask
, kb
) == Success
)
5907 for (i
= kb
->min_key_code
;
5908 (i
< kb
->max_key_code
5909 && (delete_keycode
== 0 || backspace_keycode
== 0));
5912 /* The XKB symbolic key names can be seen most easily in
5913 the PS file generated by `xkbprint -label name
5915 if (bcmp ("DELE", kb
->names
->keys
[i
].name
, 4) == 0)
5917 else if (bcmp ("BKSP", kb
->names
->keys
[i
].name
, 4) == 0)
5918 backspace_keycode
= i
;
5921 XkbFreeNames (kb
, 0, True
);
5924 XkbFreeClientMap (kb
, 0, True
);
5927 && backspace_keycode
5928 && XKeysymToKeycode (dpy
, XK_Delete
) == delete_keycode
5929 && XKeysymToKeycode (dpy
, XK_BackSpace
) == backspace_keycode
)
5934 #else /* not HAVE_XKBGETKEYBOARD */
5936 #endif /* not HAVE_XKBGETKEYBOARD */
5941 /***********************************************************************
5943 ***********************************************************************/
5945 /* Keep this list in the same order as frame_parms in frame.c.
5946 Use 0 for unsupported frame parameters. */
5948 frame_parm_handler x_frame_parm_handlers
[] =
5952 x_set_background_color
,
5958 x_set_foreground_color
,
5961 x_set_internal_border_width
,
5962 x_set_menu_bar_lines
,
5964 x_explicitly_set_name
,
5965 x_set_scroll_bar_width
,
5968 x_set_vertical_scroll_bars
,
5970 x_set_tool_bar_lines
,
5971 x_set_scroll_bar_foreground
,
5972 x_set_scroll_bar_background
,
5987 /* This is zero if not using X windows. */
5990 /* The section below is built by the lisp expression at the top of the file,
5991 just above where these variables are declared. */
5992 /*&&& init symbols here &&&*/
5993 Qnone
= intern_c_string ("none");
5995 Qsuppress_icon
= intern_c_string ("suppress-icon");
5996 staticpro (&Qsuppress_icon
);
5997 Qundefined_color
= intern_c_string ("undefined-color");
5998 staticpro (&Qundefined_color
);
5999 Qcompound_text
= intern_c_string ("compound-text");
6000 staticpro (&Qcompound_text
);
6001 Qcancel_timer
= intern_c_string ("cancel-timer");
6002 staticpro (&Qcancel_timer
);
6003 Qfont_param
= intern_c_string ("font-parameter");
6004 staticpro (&Qfont_param
);
6005 /* This is the end of symbol initialization. */
6007 /* Text property `display' should be nonsticky by default. */
6008 Vtext_property_default_nonsticky
6009 = Fcons (Fcons (Qdisplay
, Qt
), Vtext_property_default_nonsticky
);
6012 Fput (Qundefined_color
, Qerror_conditions
,
6013 pure_cons (Qundefined_color
, pure_cons (Qerror
, Qnil
)));
6014 Fput (Qundefined_color
, Qerror_message
,
6015 make_pure_c_string ("Undefined color"));
6017 DEFVAR_LISP ("x-pointer-shape", &Vx_pointer_shape
,
6018 doc
: /* The shape of the pointer when over text.
6019 Changing the value does not affect existing frames
6020 unless you set the mouse color. */);
6021 Vx_pointer_shape
= Qnil
;
6023 #if 0 /* This doesn't really do anything. */
6024 DEFVAR_LISP ("x-nontext-pointer-shape", &Vx_nontext_pointer_shape
,
6025 doc
: /* The shape of the pointer when not over text.
6026 This variable takes effect when you create a new frame
6027 or when you set the mouse color. */);
6029 Vx_nontext_pointer_shape
= Qnil
;
6031 DEFVAR_LISP ("x-hourglass-pointer-shape", &Vx_hourglass_pointer_shape
,
6032 doc
: /* The shape of the pointer when Emacs is busy.
6033 This variable takes effect when you create a new frame
6034 or when you set the mouse color. */);
6035 Vx_hourglass_pointer_shape
= Qnil
;
6037 #if 0 /* This doesn't really do anything. */
6038 DEFVAR_LISP ("x-mode-pointer-shape", &Vx_mode_pointer_shape
,
6039 doc
: /* The shape of the pointer when over the mode line.
6040 This variable takes effect when you create a new frame
6041 or when you set the mouse color. */);
6043 Vx_mode_pointer_shape
= Qnil
;
6045 DEFVAR_LISP ("x-sensitive-text-pointer-shape",
6046 &Vx_sensitive_text_pointer_shape
,
6047 doc
: /* The shape of the pointer when over mouse-sensitive text.
6048 This variable takes effect when you create a new frame
6049 or when you set the mouse color. */);
6050 Vx_sensitive_text_pointer_shape
= Qnil
;
6052 DEFVAR_LISP ("x-window-horizontal-drag-cursor",
6053 &Vx_window_horizontal_drag_shape
,
6054 doc
: /* Pointer shape to use for indicating a window can be dragged horizontally.
6055 This variable takes effect when you create a new frame
6056 or when you set the mouse color. */);
6057 Vx_window_horizontal_drag_shape
= Qnil
;
6059 DEFVAR_LISP ("x-cursor-fore-pixel", &Vx_cursor_fore_pixel
,
6060 doc
: /* A string indicating the foreground color of the cursor box. */);
6061 Vx_cursor_fore_pixel
= Qnil
;
6063 DEFVAR_LISP ("x-max-tooltip-size", &Vx_max_tooltip_size
,
6064 doc
: /* Maximum size for tooltips. Value is a pair (COLUMNS . ROWS).
6065 Text larger than this is clipped. */);
6066 Vx_max_tooltip_size
= Fcons (make_number (80), make_number (40));
6068 DEFVAR_LISP ("x-no-window-manager", &Vx_no_window_manager
,
6069 doc
: /* Non-nil if no X window manager is in use.
6070 Emacs doesn't try to figure this out; this is always nil
6071 unless you set it to something else. */);
6072 /* We don't have any way to find this out, so set it to nil
6073 and maybe the user would like to set it to t. */
6074 Vx_no_window_manager
= Qnil
;
6076 DEFVAR_LISP ("x-pixel-size-width-font-regexp",
6077 &Vx_pixel_size_width_font_regexp
,
6078 doc
: /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'.
6080 Since Emacs gets width of a font matching with this regexp from
6081 PIXEL_SIZE field of the name, font finding mechanism gets faster for
6082 such a font. This is especially effective for such large fonts as
6083 Chinese, Japanese, and Korean. */);
6084 Vx_pixel_size_width_font_regexp
= Qnil
;
6086 /* This is not ifdef:ed, so other builds than GTK can customize it. */
6087 DEFVAR_BOOL ("x-gtk-use-old-file-dialog", &x_gtk_use_old_file_dialog
,
6088 doc
: /* *Non-nil means prompt with the old GTK file selection dialog.
6089 If nil or if the file selection dialog is not available, the new GTK file
6090 chooser is used instead. To turn off all file dialogs set the
6091 variable `use-file-dialog'. */);
6092 x_gtk_use_old_file_dialog
= 0;
6094 DEFVAR_BOOL ("x-gtk-show-hidden-files", &x_gtk_show_hidden_files
,
6095 doc
: /* *If non-nil, the GTK file chooser will by default show hidden files.
6096 Note that this is just the default, there is a toggle button on the file
6097 chooser to show or not show hidden files on a case by case basis. */);
6098 x_gtk_show_hidden_files
= 0;
6100 DEFVAR_BOOL ("x-gtk-file-dialog-help-text", &x_gtk_file_dialog_help_text
,
6101 doc
: /* *If non-nil, the GTK file chooser will show additional help text.
6102 If more space for files in the file chooser dialog is wanted, set this to nil
6103 to turn the additional text off. */);
6104 x_gtk_file_dialog_help_text
= 1;
6106 DEFVAR_BOOL ("x-gtk-whole-detached-tool-bar", &x_gtk_whole_detached_tool_bar
,
6107 doc
: /* *If non-nil, a detached tool bar is shown in full.
6108 The default is to just show an arrow and pressing on that arrow shows
6109 the tool bar buttons. */);
6110 x_gtk_whole_detached_tool_bar
= 0;
6112 Fprovide (intern_c_string ("x"), Qnil
);
6114 #ifdef USE_X_TOOLKIT
6115 Fprovide (intern_c_string ("x-toolkit"), Qnil
);
6117 Fprovide (intern_c_string ("motif"), Qnil
);
6119 DEFVAR_LISP ("motif-version-string", &Vmotif_version_string
,
6120 doc
: /* Version info for LessTif/Motif. */);
6121 Vmotif_version_string
= build_string (XmVERSION_STRING
);
6122 #endif /* USE_MOTIF */
6123 #endif /* USE_X_TOOLKIT */
6126 /* Provide x-toolkit also for GTK. Internally GTK does not use Xt so it
6127 is not an X toolkit in that sense (USE_X_TOOLKIT is not defined).
6128 But for a user it is a toolkit for X, and indeed, configure
6129 accepts --with-x-toolkit=gtk. */
6130 Fprovide (intern_c_string ("x-toolkit"), Qnil
);
6131 Fprovide (intern_c_string ("gtk"), Qnil
);
6133 DEFVAR_LISP ("gtk-version-string", &Vgtk_version_string
,
6134 doc
: /* Version info for GTK+. */);
6136 char gtk_version
[40];
6137 g_snprintf (gtk_version
, sizeof (gtk_version
), "%u.%u.%u",
6138 GTK_MAJOR_VERSION
, GTK_MINOR_VERSION
, GTK_MICRO_VERSION
);
6139 Vgtk_version_string
= make_pure_string (gtk_version
, strlen (gtk_version
), strlen (gtk_version
), 0);
6141 #endif /* USE_GTK */
6143 /* X window properties. */
6144 defsubr (&Sx_change_window_property
);
6145 defsubr (&Sx_delete_window_property
);
6146 defsubr (&Sx_window_property
);
6148 defsubr (&Sxw_display_color_p
);
6149 defsubr (&Sx_display_grayscale_p
);
6150 defsubr (&Sxw_color_defined_p
);
6151 defsubr (&Sxw_color_values
);
6152 defsubr (&Sx_server_max_request_size
);
6153 defsubr (&Sx_server_vendor
);
6154 defsubr (&Sx_server_version
);
6155 defsubr (&Sx_display_pixel_width
);
6156 defsubr (&Sx_display_pixel_height
);
6157 defsubr (&Sx_display_mm_width
);
6158 defsubr (&Sx_display_mm_height
);
6159 defsubr (&Sx_display_screens
);
6160 defsubr (&Sx_display_planes
);
6161 defsubr (&Sx_display_color_cells
);
6162 defsubr (&Sx_display_visual_class
);
6163 defsubr (&Sx_display_backing_store
);
6164 defsubr (&Sx_display_save_under
);
6165 defsubr (&Sx_wm_set_size_hint
);
6166 defsubr (&Sx_create_frame
);
6167 defsubr (&Sx_open_connection
);
6168 defsubr (&Sx_close_connection
);
6169 defsubr (&Sx_display_list
);
6170 defsubr (&Sx_synchronize
);
6171 defsubr (&Sx_focus_frame
);
6172 defsubr (&Sx_backspace_delete_keys_p
);
6174 /* Setting callback functions for fontset handler. */
6175 check_window_system_func
= check_x
;
6177 defsubr (&Sx_show_tip
);
6178 defsubr (&Sx_hide_tip
);
6180 staticpro (&tip_timer
);
6182 staticpro (&tip_frame
);
6184 last_show_tip_args
= Qnil
;
6185 staticpro (&last_show_tip_args
);
6187 defsubr (&Sx_uses_old_gtk_dialog
);
6188 #if defined (USE_MOTIF) || defined (USE_GTK)
6189 defsubr (&Sx_file_dialog
);
6192 #if defined (USE_GTK) && defined (HAVE_FREETYPE)
6193 defsubr (&Sx_select_font
);
6194 x_last_font_name
= NULL
;
6198 #endif /* HAVE_X_WINDOWS */
6200 /* arch-tag: 55040d02-5485-4d58-8b22-95a7a05f3288
6201 (do not change this comment) */