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
3521 for it. Try sizes 24 and 10 if current is too large. */
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 h
= FRAME_LINES (f
) + FRAME_TOOL_BAR_LINES (f
)
3527 + FRAME_MENU_BAR_LINES (f
) + 2;
3528 int ph
= FRAME_TEXT_LINES_TO_PIXEL_HEIGHT (f
, h
);
3529 int dph
= DisplayHeight (FRAME_X_DISPLAY (f
), FRAME_X_SCREEN_NUMBER (f
));
3530 static int tryheight
[] = { 24, 10, 0 } ;
3533 ph
+= (FRAME_EXTERNAL_TOOL_BAR (f
) ? 32 : 0) /* Gtk toolbar size */
3534 + (FRAME_EXTERNAL_MENU_BAR (f
) ? 24 : 0); /* Arbitrary */
3536 /* Some desktops have fixed menus above and/or panels below. Try to
3537 figure out the usable size we have for emacs. */
3538 current_desktop
= x_get_current_desktop (f
);
3539 x_get_desktop_workarea (f
, current_desktop
, &deskw
, &deskh
);
3540 if (deskh
> 0 && deskh
< dph
) dph
= deskh
;
3542 /* Allow 40 pixels for manager decorations. */
3543 for (i
= 0; ph
+40 > dph
&& tryheight
[i
] != 0; ++i
)
3545 height
= tryheight
[i
];
3546 h
= height
+ FRAME_TOOL_BAR_LINES (f
) + FRAME_MENU_BAR_LINES (f
) + 2;
3547 ph
= FRAME_TEXT_LINES_TO_PIXEL_HEIGHT (f
, h
)
3548 + (FRAME_EXTERNAL_TOOL_BAR (f
) ? 32 : 0)
3549 + (FRAME_EXTERNAL_MENU_BAR (f
) ? 24 : 0);
3553 /* Don't make width wider than display width unless the user asked
3555 width
= FRAME_COLS (f
);
3556 tem
= x_get_arg (dpyinfo
, parms
, Qwidth
, 0, 0, RES_TYPE_NUMBER
);
3557 if (EQ (tem
, Qunbound
))
3559 int pw
= FRAME_TEXT_COLS_TO_PIXEL_WIDTH (f
, FRAME_COLS (f
));
3560 int dpw
= DisplayWidth (FRAME_X_DISPLAY (f
), FRAME_X_SCREEN_NUMBER (f
));
3563 current_desktop
= x_get_current_desktop (f
);
3564 x_get_desktop_workarea (f
, current_desktop
, &deskw
, &deskh
);
3566 if (deskw
> 0 && deskw
< dpw
) dpw
= deskw
;
3569 width
= FRAME_PIXEL_WIDTH_TO_TEXT_COLS (f
, dpw
);
3572 if (height
!= FRAME_LINES (f
) || width
!= FRAME_COLS (f
))
3574 check_frame_size (f
, &height
, &width
);
3575 FRAME_LINES (f
) = height
;
3576 SET_FRAME_COLS (f
, width
);
3580 tem
= x_get_arg (dpyinfo
, parms
, Qunsplittable
, 0, 0, RES_TYPE_BOOLEAN
);
3581 f
->no_split
= minibuffer_only
|| EQ (tem
, Qt
);
3583 x_icon_verify (f
, parms
);
3585 /* Create the X widget or window. */
3586 #ifdef USE_X_TOOLKIT
3587 x_window (f
, window_prompting
, minibuffer_only
);
3595 /* Now consider the frame official. */
3596 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
3597 Vframe_list
= Fcons (frame
, Vframe_list
);
3599 /* We need to do this after creating the X window, so that the
3600 icon-creation functions can say whose icon they're describing. */
3601 x_default_parameter (f
, parms
, Qicon_type
, Qt
,
3602 "bitmapIcon", "BitmapIcon", RES_TYPE_SYMBOL
);
3604 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
3605 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3606 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
3607 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3608 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
3609 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
3610 x_default_parameter (f
, parms
, Qscroll_bar_width
, Qnil
,
3611 "scrollBarWidth", "ScrollBarWidth",
3613 x_default_parameter (f
, parms
, Qalpha
, Qnil
,
3614 "alpha", "Alpha", RES_TYPE_NUMBER
);
3616 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
3617 Change will not be effected unless different from the current
3619 width
= FRAME_COLS (f
);
3620 height
= FRAME_LINES (f
);
3622 SET_FRAME_COLS (f
, 0);
3623 FRAME_LINES (f
) = 0;
3624 change_frame_size (f
, height
, width
, 1, 0, 0);
3626 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
3627 /* Create the menu bar. */
3628 if (!minibuffer_only
&& FRAME_EXTERNAL_MENU_BAR (f
))
3630 /* If this signals an error, we haven't set size hints for the
3631 frame and we didn't make it visible. */
3632 initialize_frame_menubar (f
);
3635 /* This is a no-op, except under Motif where it arranges the
3636 main window for the widgets on it. */
3637 lw_set_main_areas (f
->output_data
.x
->column_widget
,
3638 f
->output_data
.x
->menubar_widget
,
3639 f
->output_data
.x
->edit_widget
);
3640 #endif /* not USE_GTK */
3642 #endif /* USE_X_TOOLKIT || USE_GTK */
3644 /* Tell the server what size and position, etc, we want, and how
3645 badly we want them. This should be done after we have the menu
3646 bar so that its size can be taken into account. */
3648 x_wm_set_size_hint (f
, window_prompting
, 0);
3651 /* Make the window appear on the frame and enable display, unless
3652 the caller says not to. However, with explicit parent, Emacs
3653 cannot control visibility, so don't try. */
3654 if (! f
->output_data
.x
->explicit_parent
)
3656 Lisp_Object visibility
;
3658 visibility
= x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0,
3660 if (EQ (visibility
, Qunbound
))
3663 if (EQ (visibility
, Qicon
))
3664 x_iconify_frame (f
);
3665 else if (! NILP (visibility
))
3666 x_make_frame_visible (f
);
3668 /* Must have been Qnil. */
3672 /* Set the WM leader property. GTK does this itself, so this is not
3673 needed when using GTK. */
3674 if (dpyinfo
->client_leader_window
!= 0)
3677 XChangeProperty (FRAME_X_DISPLAY (f
),
3678 FRAME_OUTER_WINDOW (f
),
3679 dpyinfo
->Xatom_wm_client_leader
,
3680 XA_WINDOW
, 32, PropModeReplace
,
3681 (unsigned char *) &dpyinfo
->client_leader_window
, 1);
3685 /* Initialize `default-minibuffer-frame' in case this is the first
3686 frame on this terminal. */
3687 if (FRAME_HAS_MINIBUF_P (f
)
3688 && (!FRAMEP (kb
->Vdefault_minibuffer_frame
)
3689 || !FRAME_LIVE_P (XFRAME (kb
->Vdefault_minibuffer_frame
))))
3690 kb
->Vdefault_minibuffer_frame
= frame
;
3692 /* All remaining specified parameters, which have not been "used"
3693 by x_get_arg and friends, now go in the misc. alist of the frame. */
3694 for (tem
= parms
; CONSP (tem
); tem
= XCDR (tem
))
3695 if (CONSP (XCAR (tem
)) && !NILP (XCAR (XCAR (tem
))))
3696 f
->param_alist
= Fcons (XCAR (tem
), f
->param_alist
);
3700 /* Make sure windows on this frame appear in calls to next-window
3701 and similar functions. */
3702 Vwindow_list
= Qnil
;
3704 return unbind_to (count
, frame
);
3708 /* FRAME is used only to get a handle on the X display. We don't pass the
3709 display info directly because we're called from frame.c, which doesn't
3710 know about that structure. */
3713 x_get_focus_frame (frame
)
3714 struct frame
*frame
;
3716 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (frame
);
3718 if (! dpyinfo
->x_focus_frame
)
3721 XSETFRAME (xfocus
, dpyinfo
->x_focus_frame
);
3726 /* In certain situations, when the window manager follows a
3727 click-to-focus policy, there seems to be no way around calling
3728 XSetInputFocus to give another frame the input focus .
3730 In an ideal world, XSetInputFocus should generally be avoided so
3731 that applications don't interfere with the window manager's focus
3732 policy. But I think it's okay to use when it's clearly done
3733 following a user-command. */
3735 DEFUN ("x-focus-frame", Fx_focus_frame
, Sx_focus_frame
, 1, 1, 0,
3736 doc
: /* Set the input focus to FRAME.
3737 FRAME nil means use the selected frame. */)
3741 struct frame
*f
= check_x_frame (frame
);
3742 Display
*dpy
= FRAME_X_DISPLAY (f
);
3745 x_catch_errors (dpy
);
3746 XSetInputFocus (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
3747 RevertToParent
, CurrentTime
);
3748 x_ewmh_activate_frame (f
);
3749 x_uncatch_errors ();
3756 DEFUN ("xw-color-defined-p", Fxw_color_defined_p
, Sxw_color_defined_p
, 1, 2, 0,
3757 doc
: /* Internal function called by `color-defined-p', which see. */)
3759 Lisp_Object color
, frame
;
3762 FRAME_PTR f
= check_x_frame (frame
);
3764 CHECK_STRING (color
);
3766 if (x_defined_color (f
, SDATA (color
), &foo
, 0))
3772 DEFUN ("xw-color-values", Fxw_color_values
, Sxw_color_values
, 1, 2, 0,
3773 doc
: /* Internal function called by `color-values', which see. */)
3775 Lisp_Object color
, frame
;
3778 FRAME_PTR f
= check_x_frame (frame
);
3780 CHECK_STRING (color
);
3782 if (x_defined_color (f
, SDATA (color
), &foo
, 0))
3783 return list3 (make_number (foo
.red
),
3784 make_number (foo
.green
),
3785 make_number (foo
.blue
));
3790 DEFUN ("xw-display-color-p", Fxw_display_color_p
, Sxw_display_color_p
, 0, 1, 0,
3791 doc
: /* Internal function called by `display-color-p', which see. */)
3793 Lisp_Object terminal
;
3795 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3797 if (dpyinfo
->n_planes
<= 2)
3800 switch (dpyinfo
->visual
->class)
3813 DEFUN ("x-display-grayscale-p", Fx_display_grayscale_p
, Sx_display_grayscale_p
,
3815 doc
: /* Return t if the X display supports shades of gray.
3816 Note that color displays do support shades of gray.
3817 The optional argument TERMINAL specifies which display to ask about.
3818 TERMINAL should be a terminal object, a frame or a display name (a string).
3819 If omitted or nil, that stands for the selected frame's display. */)
3821 Lisp_Object terminal
;
3823 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3825 if (dpyinfo
->n_planes
<= 1)
3828 switch (dpyinfo
->visual
->class)
3843 DEFUN ("x-display-pixel-width", Fx_display_pixel_width
, Sx_display_pixel_width
,
3845 doc
: /* Return the width in pixels of the X display TERMINAL.
3846 The optional argument TERMINAL specifies which display to ask about.
3847 TERMINAL should be a terminal object, a frame or a display name (a string).
3848 If omitted or nil, that stands for the selected frame's display. */)
3850 Lisp_Object terminal
;
3852 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3854 return make_number (x_display_pixel_width (dpyinfo
));
3857 DEFUN ("x-display-pixel-height", Fx_display_pixel_height
,
3858 Sx_display_pixel_height
, 0, 1, 0,
3859 doc
: /* Return the height in pixels of the X display TERMINAL.
3860 The optional argument TERMINAL specifies which display to ask about.
3861 TERMINAL should be a terminal object, a frame or a display name (a string).
3862 If omitted or nil, that stands for the selected frame's display. */)
3864 Lisp_Object terminal
;
3866 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3868 return make_number (x_display_pixel_height (dpyinfo
));
3871 DEFUN ("x-display-planes", Fx_display_planes
, Sx_display_planes
,
3873 doc
: /* Return the number of bitplanes of the X display TERMINAL.
3874 The optional argument TERMINAL specifies which display to ask about.
3875 TERMINAL should be a terminal object, a frame or a display name (a string).
3876 If omitted or nil, that stands for the selected frame's display. */)
3878 Lisp_Object terminal
;
3880 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3882 return make_number (dpyinfo
->n_planes
);
3885 DEFUN ("x-display-color-cells", Fx_display_color_cells
, Sx_display_color_cells
,
3887 doc
: /* Return the number of color cells of the X display TERMINAL.
3888 The optional argument TERMINAL specifies which display to ask about.
3889 TERMINAL should be a terminal object, a frame or a display name (a string).
3890 If omitted or nil, that stands for the selected frame's display. */)
3892 Lisp_Object terminal
;
3894 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3896 int nr_planes
= DisplayPlanes (dpyinfo
->display
,
3897 XScreenNumberOfScreen (dpyinfo
->screen
));
3899 /* Truncate nr_planes to 24 to avoid integer overflow.
3900 Some displays says 32, but only 24 bits are actually significant.
3901 There are only very few and rare video cards that have more than
3902 24 significant bits. Also 24 bits is more than 16 million colors,
3903 it "should be enough for everyone". */
3904 if (nr_planes
> 24) nr_planes
= 24;
3906 return make_number (1 << nr_planes
);
3909 DEFUN ("x-server-max-request-size", Fx_server_max_request_size
,
3910 Sx_server_max_request_size
,
3912 doc
: /* Return the maximum request size of the X server of display TERMINAL.
3913 The optional argument TERMINAL specifies which display to ask about.
3914 TERMINAL should be a terminal object, a frame or a display name (a string).
3915 If omitted or nil, that stands for the selected frame's display. */)
3917 Lisp_Object terminal
;
3919 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3921 return make_number (MAXREQUEST (dpyinfo
->display
));
3924 DEFUN ("x-server-vendor", Fx_server_vendor
, Sx_server_vendor
, 0, 1, 0,
3925 doc
: /* Return the "vendor ID" string of the X server of display TERMINAL.
3926 \(Labelling every distributor as a "vendor" embodies the false assumption
3927 that operating systems cannot be developed and distributed noncommercially.)
3928 The optional argument TERMINAL specifies which display to ask about.
3929 TERMINAL should be a terminal object, a frame or a display name (a string).
3930 If omitted or nil, that stands for the selected frame's display. */)
3932 Lisp_Object terminal
;
3934 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3935 char *vendor
= ServerVendor (dpyinfo
->display
);
3937 if (! vendor
) vendor
= "";
3938 return build_string (vendor
);
3941 DEFUN ("x-server-version", Fx_server_version
, Sx_server_version
, 0, 1, 0,
3942 doc
: /* Return the version numbers of the X server of display TERMINAL.
3943 The value is a list of three integers: the major and minor
3944 version numbers of the X Protocol in use, and the distributor-specific release
3945 number. See also the function `x-server-vendor'.
3947 The optional argument TERMINAL specifies which display to ask about.
3948 TERMINAL should be a terminal object, a frame or a display name (a string).
3949 If omitted or nil, that stands for the selected frame's display. */)
3951 Lisp_Object terminal
;
3953 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3954 Display
*dpy
= dpyinfo
->display
;
3956 return Fcons (make_number (ProtocolVersion (dpy
)),
3957 Fcons (make_number (ProtocolRevision (dpy
)),
3958 Fcons (make_number (VendorRelease (dpy
)), Qnil
)));
3961 DEFUN ("x-display-screens", Fx_display_screens
, Sx_display_screens
, 0, 1, 0,
3962 doc
: /* Return the number of screens on the X server of display TERMINAL.
3963 The optional argument TERMINAL specifies which display to ask about.
3964 TERMINAL should be a terminal object, a frame or a display name (a string).
3965 If omitted or nil, that stands for the selected frame's display. */)
3967 Lisp_Object terminal
;
3969 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3971 return make_number (ScreenCount (dpyinfo
->display
));
3974 DEFUN ("x-display-mm-height", Fx_display_mm_height
, Sx_display_mm_height
, 0, 1, 0,
3975 doc
: /* Return the height in millimeters of the X display TERMINAL.
3976 The optional argument TERMINAL specifies which display to ask about.
3977 TERMINAL should be a terminal object, a frame or a display name (a string).
3978 If omitted or nil, that stands for the selected frame's display. */)
3980 Lisp_Object terminal
;
3982 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3984 return make_number (HeightMMOfScreen (dpyinfo
->screen
));
3987 DEFUN ("x-display-mm-width", Fx_display_mm_width
, Sx_display_mm_width
, 0, 1, 0,
3988 doc
: /* Return the width in millimeters of the X display TERMINAL.
3989 The optional argument TERMINAL specifies which display to ask about.
3990 TERMINAL should be a terminal object, a frame or a display name (a string).
3991 If omitted or nil, that stands for the selected frame's display. */)
3993 Lisp_Object terminal
;
3995 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3997 return make_number (WidthMMOfScreen (dpyinfo
->screen
));
4000 DEFUN ("x-display-backing-store", Fx_display_backing_store
,
4001 Sx_display_backing_store
, 0, 1, 0,
4002 doc
: /* Return an indication of whether X display TERMINAL does backing store.
4003 The value may be `always', `when-mapped', or `not-useful'.
4004 The optional argument TERMINAL specifies which display to ask about.
4005 TERMINAL should be a terminal object, a frame or a display name (a string).
4006 If omitted or nil, that stands for the selected frame's display. */)
4008 Lisp_Object terminal
;
4010 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4013 switch (DoesBackingStore (dpyinfo
->screen
))
4016 result
= intern ("always");
4020 result
= intern ("when-mapped");
4024 result
= intern ("not-useful");
4028 error ("Strange value for BackingStore parameter of screen");
4035 DEFUN ("x-display-visual-class", Fx_display_visual_class
,
4036 Sx_display_visual_class
, 0, 1, 0,
4037 doc
: /* Return the visual class of the X display TERMINAL.
4038 The value is one of the symbols `static-gray', `gray-scale',
4039 `static-color', `pseudo-color', `true-color', or `direct-color'.
4041 The optional argument TERMINAL specifies which display to ask about.
4042 TERMINAL should a terminal object, a frame or a display name (a string).
4043 If omitted or nil, that stands for the selected frame's display. */)
4045 Lisp_Object terminal
;
4047 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4050 switch (dpyinfo
->visual
->class)
4053 result
= intern ("static-gray");
4056 result
= intern ("gray-scale");
4059 result
= intern ("static-color");
4062 result
= intern ("pseudo-color");
4065 result
= intern ("true-color");
4068 result
= intern ("direct-color");
4071 error ("Display has an unknown visual class");
4078 DEFUN ("x-display-save-under", Fx_display_save_under
,
4079 Sx_display_save_under
, 0, 1, 0,
4080 doc
: /* Return t if the X display TERMINAL supports the save-under feature.
4081 The optional argument TERMINAL specifies which display to ask about.
4082 TERMINAL should be a terminal object, a frame or a display name (a string).
4083 If omitted or nil, that stands for the selected frame's display. */)
4085 Lisp_Object terminal
;
4087 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4089 if (DoesSaveUnders (dpyinfo
->screen
) == True
)
4097 register struct frame
*f
;
4099 return FRAME_PIXEL_WIDTH (f
);
4104 register struct frame
*f
;
4106 return FRAME_PIXEL_HEIGHT (f
);
4111 register struct frame
*f
;
4113 return FRAME_COLUMN_WIDTH (f
);
4118 register struct frame
*f
;
4120 return FRAME_LINE_HEIGHT (f
);
4125 register struct frame
*f
;
4127 return FRAME_X_DISPLAY_INFO (f
)->n_planes
;
4132 /************************************************************************
4134 ************************************************************************/
4137 /* Mapping visual names to visuals. */
4139 static struct visual_class
4146 {"StaticGray", StaticGray
},
4147 {"GrayScale", GrayScale
},
4148 {"StaticColor", StaticColor
},
4149 {"PseudoColor", PseudoColor
},
4150 {"TrueColor", TrueColor
},
4151 {"DirectColor", DirectColor
},
4156 #ifndef HAVE_XSCREENNUMBEROFSCREEN
4158 /* Value is the screen number of screen SCR. This is a substitute for
4159 the X function with the same name when that doesn't exist. */
4162 XScreenNumberOfScreen (scr
)
4163 register Screen
*scr
;
4165 Display
*dpy
= scr
->display
;
4168 for (i
= 0; i
< dpy
->nscreens
; ++i
)
4169 if (scr
== dpy
->screens
+ i
)
4175 #endif /* not HAVE_XSCREENNUMBEROFSCREEN */
4178 /* Select the visual that should be used on display DPYINFO. Set
4179 members of DPYINFO appropriately. Called from x_term_init. */
4182 select_visual (dpyinfo
)
4183 struct x_display_info
*dpyinfo
;
4185 Display
*dpy
= dpyinfo
->display
;
4186 Screen
*screen
= dpyinfo
->screen
;
4189 /* See if a visual is specified. */
4190 value
= display_x_get_resource (dpyinfo
,
4191 build_string ("visualClass"),
4192 build_string ("VisualClass"),
4194 if (STRINGP (value
))
4196 /* VALUE should be of the form CLASS-DEPTH, where CLASS is one
4197 of `PseudoColor', `TrueColor' etc. and DEPTH is the color
4198 depth, a decimal number. NAME is compared with case ignored. */
4199 char *s
= (char *) alloca (SBYTES (value
) + 1);
4204 strcpy (s
, SDATA (value
));
4205 dash
= index (s
, '-');
4208 dpyinfo
->n_planes
= atoi (dash
+ 1);
4212 /* We won't find a matching visual with depth 0, so that
4213 an error will be printed below. */
4214 dpyinfo
->n_planes
= 0;
4216 /* Determine the visual class. */
4217 for (i
= 0; visual_classes
[i
].name
; ++i
)
4218 if (xstrcasecmp (s
, visual_classes
[i
].name
) == 0)
4220 class = visual_classes
[i
].class;
4224 /* Look up a matching visual for the specified class. */
4226 || !XMatchVisualInfo (dpy
, XScreenNumberOfScreen (screen
),
4227 dpyinfo
->n_planes
, class, &vinfo
))
4228 fatal ("Invalid visual specification `%s'", SDATA (value
));
4230 dpyinfo
->visual
= vinfo
.visual
;
4235 XVisualInfo
*vinfo
, vinfo_template
;
4237 dpyinfo
->visual
= DefaultVisualOfScreen (screen
);
4239 vinfo_template
.visualid
= XVisualIDFromVisual (dpyinfo
->visual
);
4240 vinfo_template
.screen
= XScreenNumberOfScreen (screen
);
4241 vinfo
= XGetVisualInfo (dpy
, VisualIDMask
| VisualScreenMask
,
4242 &vinfo_template
, &n_visuals
);
4244 fatal ("Can't get proper X visual info");
4246 dpyinfo
->n_planes
= vinfo
->depth
;
4247 XFree ((char *) vinfo
);
4252 /* Return the X display structure for the display named NAME.
4253 Open a new connection if necessary. */
4255 struct x_display_info
*
4256 x_display_info_for_name (name
)
4260 struct x_display_info
*dpyinfo
;
4262 CHECK_STRING (name
);
4265 if (! EQ (Vinitial_window_system
, intern ("x")))
4266 error ("Not using X Windows"); /* That doesn't stop us anymore. */
4269 for (dpyinfo
= x_display_list
, names
= x_display_name_list
;
4271 dpyinfo
= dpyinfo
->next
, names
= XCDR (names
))
4274 tem
= Fstring_equal (XCAR (XCAR (names
)), name
);
4279 /* Use this general default value to start with. */
4280 Vx_resource_name
= Vinvocation_name
;
4282 validate_x_resource_name ();
4284 dpyinfo
= x_term_init (name
, (char *)0,
4285 (char *) SDATA (Vx_resource_name
));
4288 error ("Cannot connect to X server %s", SDATA (name
));
4291 XSETFASTINT (Vwindow_system_version
, 11);
4297 DEFUN ("x-open-connection", Fx_open_connection
, Sx_open_connection
,
4299 doc
: /* Open a connection to an X server.
4300 DISPLAY is the name of the display to connect to.
4301 Optional second arg XRM-STRING is a string of resources in xrdb format.
4302 If the optional third arg MUST-SUCCEED is non-nil,
4303 terminate Emacs if we can't open the connection. */)
4304 (display
, xrm_string
, must_succeed
)
4305 Lisp_Object display
, xrm_string
, must_succeed
;
4307 unsigned char *xrm_option
;
4308 struct x_display_info
*dpyinfo
;
4310 CHECK_STRING (display
);
4311 if (! NILP (xrm_string
))
4312 CHECK_STRING (xrm_string
);
4315 if (! EQ (Vinitial_window_system
, intern ("x")))
4316 error ("Not using X Windows"); /* That doesn't stop us anymore. */
4319 if (! NILP (xrm_string
))
4320 xrm_option
= (unsigned char *) SDATA (xrm_string
);
4322 xrm_option
= (unsigned char *) 0;
4324 validate_x_resource_name ();
4326 /* This is what opens the connection and sets x_current_display.
4327 This also initializes many symbols, such as those used for input. */
4328 dpyinfo
= x_term_init (display
, xrm_option
,
4329 (char *) SDATA (Vx_resource_name
));
4333 if (!NILP (must_succeed
))
4334 fatal ("Cannot connect to X server %s.\n\
4335 Check the DISPLAY environment variable or use `-d'.\n\
4336 Also use the `xauth' program to verify that you have the proper\n\
4337 authorization information needed to connect the X server.\n\
4338 An insecure way to solve the problem may be to use `xhost'.\n",
4341 error ("Cannot connect to X server %s", SDATA (display
));
4346 XSETFASTINT (Vwindow_system_version
, 11);
4350 DEFUN ("x-close-connection", Fx_close_connection
,
4351 Sx_close_connection
, 1, 1, 0,
4352 doc
: /* Close the connection to TERMINAL's X server.
4353 For TERMINAL, specify a terminal object, a frame or a display name (a
4354 string). If TERMINAL is nil, that stands for the selected frame's
4357 Lisp_Object terminal
;
4359 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4361 if (dpyinfo
->reference_count
> 0)
4362 error ("Display still has frames on it");
4364 x_delete_terminal (dpyinfo
->terminal
);
4369 DEFUN ("x-display-list", Fx_display_list
, Sx_display_list
, 0, 0, 0,
4370 doc
: /* Return the list of display names that Emacs has connections to. */)
4373 Lisp_Object tail
, result
;
4376 for (tail
= x_display_name_list
; CONSP (tail
); tail
= XCDR (tail
))
4377 result
= Fcons (XCAR (XCAR (tail
)), result
);
4382 DEFUN ("x-synchronize", Fx_synchronize
, Sx_synchronize
, 1, 2, 0,
4383 doc
: /* If ON is non-nil, report X errors as soon as the erring request is made.
4384 If ON is nil, allow buffering of requests.
4385 Turning on synchronization prohibits the Xlib routines from buffering
4386 requests and seriously degrades performance, but makes debugging much
4388 The optional second argument TERMINAL specifies which display to act on.
4389 TERMINAL should be a terminal object, a frame or a display name (a string).
4390 If TERMINAL is omitted or nil, that stands for the selected frame's display. */)
4392 Lisp_Object terminal
, on
;
4394 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4396 XSynchronize (dpyinfo
->display
, !EQ (on
, Qnil
));
4401 /* Wait for responses to all X commands issued so far for frame F. */
4408 XSync (FRAME_X_DISPLAY (f
), False
);
4413 /***********************************************************************
4415 ***********************************************************************/
4417 DEFUN ("x-change-window-property", Fx_change_window_property
,
4418 Sx_change_window_property
, 2, 6, 0,
4419 doc
: /* Change window property PROP to VALUE on the X window of FRAME.
4420 PROP must be a string.
4421 VALUE may be a string or a list of conses, numbers and/or strings.
4422 If an element in the list is a string, it is converted to
4423 an Atom and the value of the Atom is used. If an element is a cons,
4424 it is converted to a 32 bit number where the car is the 16 top bits and the
4425 cdr is the lower 16 bits.
4426 FRAME nil or omitted means use the selected frame.
4427 If TYPE is given and non-nil, it is the name of the type of VALUE.
4428 If TYPE is not given or nil, the type is STRING.
4429 FORMAT gives the size in bits of each element if VALUE is a list.
4430 It must be one of 8, 16 or 32.
4431 If VALUE is a string or FORMAT is nil or not given, FORMAT defaults to 8.
4432 If OUTER_P is non-nil, the property is changed for the outer X window of
4433 FRAME. Default is to change on the edit X window.
4436 (prop
, value
, frame
, type
, format
, outer_p
)
4437 Lisp_Object prop
, value
, frame
, type
, format
, outer_p
;
4439 struct frame
*f
= check_x_frame (frame
);
4441 Atom target_type
= XA_STRING
;
4442 int element_format
= 8;
4443 unsigned char *data
;
4447 CHECK_STRING (prop
);
4449 if (! NILP (format
))
4451 CHECK_NUMBER (format
);
4452 element_format
= XFASTINT (format
);
4454 if (element_format
!= 8 && element_format
!= 16
4455 && element_format
!= 32)
4456 error ("FORMAT must be one of 8, 16 or 32");
4461 nelements
= x_check_property_data (value
);
4462 if (nelements
== -1)
4463 error ("Bad data in VALUE, must be number, string or cons");
4465 if (element_format
== 8)
4466 data
= (unsigned char *) xmalloc (nelements
);
4467 else if (element_format
== 16)
4468 data
= (unsigned char *) xmalloc (nelements
*2);
4469 else /* format == 32 */
4470 /* The man page for XChangeProperty:
4471 "If the specified format is 32, the property data must be a
4473 This applies even if long is more than 64 bits. The X library
4474 converts to 32 bits before sending to the X server. */
4475 data
= (unsigned char *) xmalloc (nelements
* sizeof(long));
4477 x_fill_property_data (FRAME_X_DISPLAY (f
), value
, data
, element_format
);
4481 CHECK_STRING (value
);
4482 data
= SDATA (value
);
4483 nelements
= SCHARS (value
);
4487 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4490 CHECK_STRING (type
);
4491 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (type
), False
);
4494 if (! NILP (outer_p
)) w
= FRAME_OUTER_WINDOW (f
);
4495 else w
= FRAME_X_WINDOW (f
);
4497 XChangeProperty (FRAME_X_DISPLAY (f
), w
,
4498 prop_atom
, target_type
, element_format
, PropModeReplace
,
4501 if (CONSP (value
)) xfree (data
);
4503 /* Make sure the property is set when we return. */
4504 XFlush (FRAME_X_DISPLAY (f
));
4511 DEFUN ("x-delete-window-property", Fx_delete_window_property
,
4512 Sx_delete_window_property
, 1, 2, 0,
4513 doc
: /* Remove window property PROP from X window of FRAME.
4514 FRAME nil or omitted means use the selected frame. Value is PROP. */)
4516 Lisp_Object prop
, frame
;
4518 struct frame
*f
= check_x_frame (frame
);
4521 CHECK_STRING (prop
);
4523 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4524 XDeleteProperty (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), prop_atom
);
4526 /* Make sure the property is removed when we return. */
4527 XFlush (FRAME_X_DISPLAY (f
));
4534 DEFUN ("x-window-property", Fx_window_property
, Sx_window_property
,
4536 doc
: /* Value is the value of window property PROP on FRAME.
4537 If FRAME is nil or omitted, use the selected frame.
4538 If TYPE is nil or omitted, get the property as a string. Otherwise TYPE
4539 is the name of the Atom that denotes the type expected.
4540 If SOURCE is non-nil, get the property on that window instead of from
4541 FRAME. The number 0 denotes the root window.
4542 If DELETE_P is non-nil, delete the property after retreiving it.
4543 If VECTOR_RET_P is non-nil, don't return a string but a vector of values.
4545 Value is nil if FRAME hasn't a property with name PROP or if PROP has
4546 no value of TYPE. */)
4547 (prop
, frame
, type
, source
, delete_p
, vector_ret_p
)
4548 Lisp_Object prop
, frame
, type
, source
, delete_p
, vector_ret_p
;
4550 struct frame
*f
= check_x_frame (frame
);
4553 Lisp_Object prop_value
= Qnil
;
4554 unsigned char *tmp_data
= NULL
;
4556 Atom target_type
= XA_STRING
;
4558 unsigned long actual_size
, bytes_remaining
;
4559 Window target_window
= FRAME_X_WINDOW (f
);
4560 struct gcpro gcpro1
;
4562 GCPRO1 (prop_value
);
4563 CHECK_STRING (prop
);
4565 if (! NILP (source
))
4567 if (NUMBERP (source
))
4569 if (FLOATP (source
))
4570 target_window
= (Window
) XFLOAT (source
);
4572 target_window
= XFASTINT (source
);
4574 if (target_window
== 0)
4575 target_window
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4577 else if (CONSP (source
))
4578 target_window
= cons_to_long (source
);
4584 if (strcmp ("AnyPropertyType", SDATA (type
)) == 0)
4585 target_type
= AnyPropertyType
;
4587 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (type
), False
);
4590 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4591 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4592 prop_atom
, 0, 0, False
, target_type
,
4593 &actual_type
, &actual_format
, &actual_size
,
4594 &bytes_remaining
, &tmp_data
);
4597 int size
= bytes_remaining
;
4602 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4603 prop_atom
, 0, bytes_remaining
,
4604 ! NILP (delete_p
), target_type
,
4605 &actual_type
, &actual_format
,
4606 &actual_size
, &bytes_remaining
,
4608 if (rc
== Success
&& tmp_data
)
4610 /* The man page for XGetWindowProperty says:
4611 "If the returned format is 32, the returned data is represented
4612 as a long array and should be cast to that type to obtain the
4614 This applies even if long is more than 32 bits, the X library
4615 converts from 32 bit elements received from the X server to long
4616 and passes the long array to us. Thus, for that case bcopy can not
4617 be used. We convert to a 32 bit type here, because so much code
4620 The bytes and offsets passed to XGetWindowProperty refers to the
4621 property and those are indeed in 32 bit quantities if format is
4624 if (actual_format
== 32 && actual_format
< BITS_PER_LONG
)
4627 int *idata
= (int *) tmp_data
;
4628 long *ldata
= (long *) tmp_data
;
4630 for (i
= 0; i
< actual_size
; ++i
)
4631 idata
[i
] = (int) ldata
[i
];
4634 if (NILP (vector_ret_p
))
4635 prop_value
= make_string (tmp_data
, size
);
4637 prop_value
= x_property_data_to_lisp (f
,
4644 if (tmp_data
) XFree (tmp_data
);
4654 /***********************************************************************
4656 ***********************************************************************/
4658 /* Timer function of hourglass_atimer. TIMER is equal to
4661 Display an hourglass pointer on all frames by mapping the frames'
4662 hourglass_window. Set the hourglass_p flag in the frames'
4663 output_data.x structure to indicate that an hourglass cursor is
4664 shown on the frames. */
4667 show_hourglass (timer
)
4668 struct atimer
*timer
;
4670 /* The timer implementation will cancel this timer automatically
4671 after this function has run. Set hourglass_atimer to null
4672 so that we know the timer doesn't have to be canceled. */
4673 hourglass_atimer
= NULL
;
4675 if (!hourglass_shown_p
)
4677 Lisp_Object rest
, frame
;
4681 FOR_EACH_FRAME (rest
, frame
)
4683 struct frame
*f
= XFRAME (frame
);
4685 if (FRAME_LIVE_P (f
) && FRAME_X_P (f
) && FRAME_X_DISPLAY (f
))
4687 Display
*dpy
= FRAME_X_DISPLAY (f
);
4689 #ifdef USE_X_TOOLKIT
4690 if (f
->output_data
.x
->widget
)
4692 if (FRAME_OUTER_WINDOW (f
))
4695 f
->output_data
.x
->hourglass_p
= 1;
4697 if (!f
->output_data
.x
->hourglass_window
)
4699 unsigned long mask
= CWCursor
;
4700 XSetWindowAttributes attrs
;
4702 Window parent
= FRAME_X_WINDOW (f
);
4704 Window parent
= FRAME_OUTER_WINDOW (f
);
4706 attrs
.cursor
= f
->output_data
.x
->hourglass_cursor
;
4708 f
->output_data
.x
->hourglass_window
4709 = XCreateWindow (dpy
, parent
,
4710 0, 0, 32000, 32000, 0, 0,
4716 XMapRaised (dpy
, f
->output_data
.x
->hourglass_window
);
4722 hourglass_shown_p
= 1;
4728 /* Hide the hourglass pointer on all frames, if it is currently
4734 if (hourglass_shown_p
)
4736 Lisp_Object rest
, frame
;
4739 FOR_EACH_FRAME (rest
, frame
)
4741 struct frame
*f
= XFRAME (frame
);
4744 /* Watch out for newly created frames. */
4745 && f
->output_data
.x
->hourglass_window
)
4747 XUnmapWindow (FRAME_X_DISPLAY (f
),
4748 f
->output_data
.x
->hourglass_window
);
4749 /* Sync here because XTread_socket looks at the
4750 hourglass_p flag that is reset to zero below. */
4751 XSync (FRAME_X_DISPLAY (f
), False
);
4752 f
->output_data
.x
->hourglass_p
= 0;
4756 hourglass_shown_p
= 0;
4763 /***********************************************************************
4765 ***********************************************************************/
4767 static Lisp_Object x_create_tip_frame
P_ ((struct x_display_info
*,
4768 Lisp_Object
, Lisp_Object
));
4769 static void compute_tip_xy
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
,
4770 Lisp_Object
, int, int, int *, int *));
4772 /* The frame of a currently visible tooltip. */
4774 Lisp_Object tip_frame
;
4776 /* If non-nil, a timer started that hides the last tooltip when it
4779 Lisp_Object tip_timer
;
4782 /* If non-nil, a vector of 3 elements containing the last args
4783 with which x-show-tip was called. See there. */
4785 Lisp_Object last_show_tip_args
;
4787 /* Maximum size for tooltips; a cons (COLUMNS . ROWS). */
4789 Lisp_Object Vx_max_tooltip_size
;
4793 unwind_create_tip_frame (frame
)
4796 Lisp_Object deleted
;
4798 deleted
= unwind_create_frame (frame
);
4799 if (EQ (deleted
, Qt
))
4809 /* Create a frame for a tooltip on the display described by DPYINFO.
4810 PARMS is a list of frame parameters. TEXT is the string to
4811 display in the tip frame. Value is the frame.
4813 Note that functions called here, esp. x_default_parameter can
4814 signal errors, for instance when a specified color name is
4815 undefined. We have to make sure that we're in a consistent state
4816 when this happens. */
4819 x_create_tip_frame (dpyinfo
, parms
, text
)
4820 struct x_display_info
*dpyinfo
;
4821 Lisp_Object parms
, text
;
4824 Lisp_Object frame
, tem
;
4826 long window_prompting
= 0;
4828 int count
= SPECPDL_INDEX ();
4829 struct gcpro gcpro1
, gcpro2
, gcpro3
;
4830 int face_change_count_before
= face_change_count
;
4832 struct buffer
*old_buffer
;
4836 if (!dpyinfo
->terminal
->name
)
4837 error ("Terminal is not live, can't create new frames on it");
4839 parms
= Fcopy_alist (parms
);
4841 /* Get the name of the frame to use for resource lookup. */
4842 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
4844 && !EQ (name
, Qunbound
)
4846 error ("Invalid frame name--not a string or nil");
4849 GCPRO3 (parms
, name
, frame
);
4851 XSETFRAME (frame
, f
);
4853 buffer
= Fget_buffer_create (build_string (" *tip*"));
4854 Fset_window_buffer (FRAME_ROOT_WINDOW (f
), buffer
, Qnil
);
4855 old_buffer
= current_buffer
;
4856 set_buffer_internal_1 (XBUFFER (buffer
));
4857 current_buffer
->truncate_lines
= Qnil
;
4858 specbind (Qinhibit_read_only
, Qt
);
4859 specbind (Qinhibit_modification_hooks
, Qt
);
4862 set_buffer_internal_1 (old_buffer
);
4864 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 0;
4865 record_unwind_protect (unwind_create_tip_frame
, frame
);
4867 f
->terminal
= dpyinfo
->terminal
;
4868 f
->terminal
->reference_count
++;
4870 /* By setting the output method, we're essentially saying that
4871 the frame is live, as per FRAME_LIVE_P. If we get a signal
4872 from this point on, x_destroy_window might screw up reference
4874 f
->output_method
= output_x_window
;
4875 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
4876 bzero (f
->output_data
.x
, sizeof (struct x_output
));
4877 f
->output_data
.x
->icon_bitmap
= -1;
4878 FRAME_FONTSET (f
) = -1;
4879 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
4880 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
4881 #ifdef USE_TOOLKIT_SCROLL_BARS
4882 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
4883 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
4884 #endif /* USE_TOOLKIT_SCROLL_BARS */
4885 f
->icon_name
= Qnil
;
4886 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
4888 image_cache_refcount
= FRAME_IMAGE_CACHE (f
)->refcount
;
4889 dpyinfo_refcount
= dpyinfo
->reference_count
;
4890 #endif /* GLYPH_DEBUG */
4891 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4892 f
->output_data
.x
->explicit_parent
= 0;
4894 /* These colors will be set anyway later, but it's important
4895 to get the color reference counts right, so initialize them! */
4898 struct gcpro gcpro1
;
4900 /* Function x_decode_color can signal an error. Make
4901 sure to initialize color slots so that we won't try
4902 to free colors we haven't allocated. */
4903 FRAME_FOREGROUND_PIXEL (f
) = -1;
4904 FRAME_BACKGROUND_PIXEL (f
) = -1;
4905 f
->output_data
.x
->cursor_pixel
= -1;
4906 f
->output_data
.x
->cursor_foreground_pixel
= -1;
4907 f
->output_data
.x
->border_pixel
= -1;
4908 f
->output_data
.x
->mouse_pixel
= -1;
4910 black
= build_string ("black");
4912 FRAME_FOREGROUND_PIXEL (f
)
4913 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4914 FRAME_BACKGROUND_PIXEL (f
)
4915 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4916 f
->output_data
.x
->cursor_pixel
4917 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4918 f
->output_data
.x
->cursor_foreground_pixel
4919 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4920 f
->output_data
.x
->border_pixel
4921 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4922 f
->output_data
.x
->mouse_pixel
4923 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4927 /* Set the name; the functions to which we pass f expect the name to
4929 if (EQ (name
, Qunbound
) || NILP (name
))
4931 f
->name
= build_string (dpyinfo
->x_id_name
);
4932 f
->explicit_name
= 0;
4937 f
->explicit_name
= 1;
4938 /* use the frame's title when getting resources for this frame. */
4939 specbind (Qx_resource_name
, name
);
4942 f
->resx
= dpyinfo
->resx
;
4943 f
->resy
= dpyinfo
->resy
;
4945 register_font_driver (&xfont_driver
, f
);
4946 #ifdef HAVE_FREETYPE
4948 register_font_driver (&xftfont_driver
, f
);
4949 #else /* not HAVE_XFT */
4950 register_font_driver (&ftxfont_driver
, f
);
4951 #endif /* not HAVE_XFT */
4952 #endif /* HAVE_FREETYPE */
4954 x_default_parameter (f
, parms
, Qfont_backend
, Qnil
,
4955 "fontBackend", "FontBackend", RES_TYPE_STRING
);
4957 /* Extract the window parameters from the supplied values that are
4958 needed to determine window geometry. */
4959 x_default_font_parameter (f
, parms
);
4961 x_default_parameter (f
, parms
, Qborder_width
, make_number (2),
4962 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
4964 /* This defaults to 2 in order to match xterm. We recognize either
4965 internalBorderWidth or internalBorder (which is what xterm calls
4967 if (NILP (Fassq (Qinternal_border_width
, parms
)))
4971 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
4972 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
4973 if (! EQ (value
, Qunbound
))
4974 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
4978 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
4979 "internalBorderWidth", "internalBorderWidth",
4982 /* Also do the stuff which must be set before the window exists. */
4983 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
4984 "foreground", "Foreground", RES_TYPE_STRING
);
4985 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
4986 "background", "Background", RES_TYPE_STRING
);
4987 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
4988 "pointerColor", "Foreground", RES_TYPE_STRING
);
4989 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
4990 "cursorColor", "Foreground", RES_TYPE_STRING
);
4991 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
4992 "borderColor", "BorderColor", RES_TYPE_STRING
);
4994 /* Init faces before x_default_parameter is called for scroll-bar
4995 parameters because that function calls x_set_scroll_bar_width,
4996 which calls change_frame_size, which calls Fset_window_buffer,
4997 which runs hooks, which call Fvertical_motion. At the end, we
4998 end up in init_iterator with a null face cache, which should not
5000 init_frame_faces (f
);
5002 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
5004 window_prompting
= x_figure_window_size (f
, parms
, 0);
5007 XSetWindowAttributes attrs
;
5009 Atom type
= FRAME_X_DISPLAY_INFO (f
)->Xatom_net_window_type_tooltip
;
5012 mask
= CWBackPixel
| CWOverrideRedirect
| CWEventMask
;
5013 if (DoesSaveUnders (dpyinfo
->screen
))
5014 mask
|= CWSaveUnder
;
5016 /* Window managers look at the override-redirect flag to determine
5017 whether or net to give windows a decoration (Xlib spec, chapter
5019 attrs
.override_redirect
= True
;
5020 attrs
.save_under
= True
;
5021 attrs
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
5022 /* Arrange for getting MapNotify and UnmapNotify events. */
5023 attrs
.event_mask
= StructureNotifyMask
;
5025 = FRAME_X_WINDOW (f
)
5026 = XCreateWindow (FRAME_X_DISPLAY (f
),
5027 FRAME_X_DISPLAY_INFO (f
)->root_window
,
5028 /* x, y, width, height */
5032 CopyFromParent
, InputOutput
, CopyFromParent
,
5034 XChangeProperty (FRAME_X_DISPLAY (f
), tip_window
,
5035 FRAME_X_DISPLAY_INFO (f
)->Xatom_net_window_type
,
5036 XA_ATOM
, 32, PropModeReplace
,
5037 (unsigned char *)&type
, 1);
5043 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
5044 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
5045 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
5046 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
5047 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
5048 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
5050 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
5051 Change will not be effected unless different from the current
5053 width
= FRAME_COLS (f
);
5054 height
= FRAME_LINES (f
);
5055 SET_FRAME_COLS (f
, 0);
5056 FRAME_LINES (f
) = 0;
5057 change_frame_size (f
, height
, width
, 1, 0, 0);
5059 /* Add `tooltip' frame parameter's default value. */
5060 if (NILP (Fframe_parameter (frame
, intern ("tooltip"))))
5061 Fmodify_frame_parameters (frame
, Fcons (Fcons (intern ("tooltip"), Qt
),
5064 /* FIXME - can this be done in a similar way to normal frames?
5065 http://lists.gnu.org/archive/html/emacs-devel/2007-10/msg00641.html */
5067 /* Set the `display-type' frame parameter before setting up faces. */
5069 Lisp_Object disptype
;
5071 if (FRAME_X_DISPLAY_INFO (f
)->n_planes
== 1)
5072 disptype
= intern ("mono");
5073 else if (FRAME_X_DISPLAY_INFO (f
)->visual
->class == GrayScale
5074 || FRAME_X_DISPLAY_INFO (f
)->visual
->class == StaticGray
)
5075 disptype
= intern ("grayscale");
5077 disptype
= intern ("color");
5079 if (NILP (Fframe_parameter (frame
, Qdisplay_type
)))
5080 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qdisplay_type
, disptype
),
5084 /* Set up faces after all frame parameters are known. This call
5085 also merges in face attributes specified for new frames.
5087 Frame parameters may be changed if .Xdefaults contains
5088 specifications for the default font. For example, if there is an
5089 `Emacs.default.attributeBackground: pink', the `background-color'
5090 attribute of the frame get's set, which let's the internal border
5091 of the tooltip frame appear in pink. Prevent this. */
5093 Lisp_Object bg
= Fframe_parameter (frame
, Qbackground_color
);
5095 /* Set tip_frame here, so that */
5097 call2 (Qface_set_after_frame_default
, frame
, Qnil
);
5099 if (!EQ (bg
, Fframe_parameter (frame
, Qbackground_color
)))
5100 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qbackground_color
, bg
),
5108 /* It is now ok to make the frame official even if we get an error
5109 below. And the frame needs to be on Vframe_list or making it
5110 visible won't work. */
5111 Vframe_list
= Fcons (frame
, Vframe_list
);
5113 /* Now that the frame is official, it counts as a reference to
5115 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
5117 /* Setting attributes of faces of the tooltip frame from resources
5118 and similar will increment face_change_count, which leads to the
5119 clearing of all current matrices. Since this isn't necessary
5120 here, avoid it by resetting face_change_count to the value it
5121 had before we created the tip frame. */
5122 face_change_count
= face_change_count_before
;
5124 /* Discard the unwind_protect. */
5125 return unbind_to (count
, frame
);
5129 /* Compute where to display tip frame F. PARMS is the list of frame
5130 parameters for F. DX and DY are specified offsets from the current
5131 location of the mouse. WIDTH and HEIGHT are the width and height
5132 of the tooltip. Return coordinates relative to the root window of
5133 the display in *ROOT_X, and *ROOT_Y. */
5136 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, root_x
, root_y
)
5138 Lisp_Object parms
, dx
, dy
;
5140 int *root_x
, *root_y
;
5142 Lisp_Object left
, top
;
5147 /* User-specified position? */
5148 left
= Fcdr (Fassq (Qleft
, parms
));
5149 top
= Fcdr (Fassq (Qtop
, parms
));
5151 /* Move the tooltip window where the mouse pointer is. Resize and
5153 if (!INTEGERP (left
) || !INTEGERP (top
))
5156 XQueryPointer (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
5157 &root
, &child
, root_x
, root_y
, &win_x
, &win_y
, &pmask
);
5162 *root_y
= XINT (top
);
5163 else if (*root_y
+ XINT (dy
) <= 0)
5164 *root_y
= 0; /* Can happen for negative dy */
5165 else if (*root_y
+ XINT (dy
) + height
5166 <= x_display_pixel_height (FRAME_X_DISPLAY_INFO (f
)))
5167 /* It fits below the pointer */
5168 *root_y
+= XINT (dy
);
5169 else if (height
+ XINT (dy
) <= *root_y
)
5170 /* It fits above the pointer. */
5171 *root_y
-= height
+ XINT (dy
);
5173 /* Put it on the top. */
5176 if (INTEGERP (left
))
5177 *root_x
= XINT (left
);
5178 else if (*root_x
+ XINT (dx
) <= 0)
5179 *root_x
= 0; /* Can happen for negative dx */
5180 else if (*root_x
+ XINT (dx
) + width
5181 <= x_display_pixel_width (FRAME_X_DISPLAY_INFO (f
)))
5182 /* It fits to the right of the pointer. */
5183 *root_x
+= XINT (dx
);
5184 else if (width
+ XINT (dx
) <= *root_x
)
5185 /* It fits to the left of the pointer. */
5186 *root_x
-= width
+ XINT (dx
);
5188 /* Put it left-justified on the screen--it ought to fit that way. */
5193 DEFUN ("x-show-tip", Fx_show_tip
, Sx_show_tip
, 1, 6, 0,
5194 doc
: /* Show STRING in a "tooltip" window on frame FRAME.
5195 A tooltip window is a small X window displaying a string.
5197 This is an internal function; Lisp code should call `tooltip-show'.
5199 FRAME nil or omitted means use the selected frame.
5201 PARMS is an optional list of frame parameters which can be used to
5202 change the tooltip's appearance.
5204 Automatically hide the tooltip after TIMEOUT seconds. TIMEOUT nil
5205 means use the default timeout of 5 seconds.
5207 If the list of frame parameters PARAMS contains a `left' parameters,
5208 the tooltip is displayed at that x-position. Otherwise it is
5209 displayed at the mouse position, with offset DX added (default is 5 if
5210 DX isn't specified). Likewise for the y-position; if a `top' frame
5211 parameter is specified, it determines the y-position of the tooltip
5212 window, otherwise it is displayed at the mouse position, with offset
5213 DY added (default is -10).
5215 A tooltip's maximum size is specified by `x-max-tooltip-size'.
5216 Text larger than the specified size is clipped. */)
5217 (string
, frame
, parms
, timeout
, dx
, dy
)
5218 Lisp_Object string
, frame
, parms
, timeout
, dx
, dy
;
5223 struct buffer
*old_buffer
;
5224 struct text_pos pos
;
5225 int i
, width
, height
;
5226 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
5227 int old_windows_or_buffers_changed
= windows_or_buffers_changed
;
5228 int count
= SPECPDL_INDEX ();
5230 specbind (Qinhibit_redisplay
, Qt
);
5232 GCPRO4 (string
, parms
, frame
, timeout
);
5234 CHECK_STRING (string
);
5235 if (SCHARS (string
) == 0)
5236 string
= make_unibyte_string (" ", 1);
5238 f
= check_x_frame (frame
);
5240 timeout
= make_number (5);
5242 CHECK_NATNUM (timeout
);
5245 dx
= make_number (5);
5250 dy
= make_number (-10);
5254 if (NILP (last_show_tip_args
))
5255 last_show_tip_args
= Fmake_vector (make_number (3), Qnil
);
5257 if (!NILP (tip_frame
))
5259 Lisp_Object last_string
= AREF (last_show_tip_args
, 0);
5260 Lisp_Object last_frame
= AREF (last_show_tip_args
, 1);
5261 Lisp_Object last_parms
= AREF (last_show_tip_args
, 2);
5263 if (EQ (frame
, last_frame
)
5264 && !NILP (Fequal (last_string
, string
))
5265 && !NILP (Fequal (last_parms
, parms
)))
5267 struct frame
*f
= XFRAME (tip_frame
);
5269 /* Only DX and DY have changed. */
5270 if (!NILP (tip_timer
))
5272 Lisp_Object timer
= tip_timer
;
5274 call1 (Qcancel_timer
, timer
);
5278 compute_tip_xy (f
, parms
, dx
, dy
, FRAME_PIXEL_WIDTH (f
),
5279 FRAME_PIXEL_HEIGHT (f
), &root_x
, &root_y
);
5280 XMoveWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5287 /* Hide a previous tip, if any. */
5290 ASET (last_show_tip_args
, 0, string
);
5291 ASET (last_show_tip_args
, 1, frame
);
5292 ASET (last_show_tip_args
, 2, parms
);
5294 /* Add default values to frame parameters. */
5295 if (NILP (Fassq (Qname
, parms
)))
5296 parms
= Fcons (Fcons (Qname
, build_string ("tooltip")), parms
);
5297 if (NILP (Fassq (Qinternal_border_width
, parms
)))
5298 parms
= Fcons (Fcons (Qinternal_border_width
, make_number (3)), parms
);
5299 if (NILP (Fassq (Qborder_width
, parms
)))
5300 parms
= Fcons (Fcons (Qborder_width
, make_number (1)), parms
);
5301 if (NILP (Fassq (Qborder_color
, parms
)))
5302 parms
= Fcons (Fcons (Qborder_color
, build_string ("lightyellow")), parms
);
5303 if (NILP (Fassq (Qbackground_color
, parms
)))
5304 parms
= Fcons (Fcons (Qbackground_color
, build_string ("lightyellow")),
5307 /* Create a frame for the tooltip, and record it in the global
5308 variable tip_frame. */
5309 frame
= x_create_tip_frame (FRAME_X_DISPLAY_INFO (f
), parms
, string
);
5312 /* Set up the frame's root window. */
5313 w
= XWINDOW (FRAME_ROOT_WINDOW (f
));
5314 w
->left_col
= w
->top_line
= make_number (0);
5316 if (CONSP (Vx_max_tooltip_size
)
5317 && INTEGERP (XCAR (Vx_max_tooltip_size
))
5318 && XINT (XCAR (Vx_max_tooltip_size
)) > 0
5319 && INTEGERP (XCDR (Vx_max_tooltip_size
))
5320 && XINT (XCDR (Vx_max_tooltip_size
)) > 0)
5322 w
->total_cols
= XCAR (Vx_max_tooltip_size
);
5323 w
->total_lines
= XCDR (Vx_max_tooltip_size
);
5327 w
->total_cols
= make_number (80);
5328 w
->total_lines
= make_number (40);
5331 FRAME_TOTAL_COLS (f
) = XINT (w
->total_cols
);
5333 w
->pseudo_window_p
= 1;
5335 /* Display the tooltip text in a temporary buffer. */
5336 old_buffer
= current_buffer
;
5337 set_buffer_internal_1 (XBUFFER (XWINDOW (FRAME_ROOT_WINDOW (f
))->buffer
));
5338 current_buffer
->truncate_lines
= Qnil
;
5339 clear_glyph_matrix (w
->desired_matrix
);
5340 clear_glyph_matrix (w
->current_matrix
);
5341 SET_TEXT_POS (pos
, BEGV
, BEGV_BYTE
);
5342 try_window (FRAME_ROOT_WINDOW (f
), pos
, 0);
5344 /* Compute width and height of the tooltip. */
5346 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
5348 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
5352 /* Stop at the first empty row at the end. */
5353 if (!row
->enabled_p
|| !row
->displays_text_p
)
5356 /* Let the row go over the full width of the frame. */
5357 row
->full_width_p
= 1;
5359 /* There's a glyph at the end of rows that is used to place
5360 the cursor there. Don't include the width of this glyph. */
5361 if (row
->used
[TEXT_AREA
])
5363 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
5364 row_width
= row
->pixel_width
- last
->pixel_width
;
5367 row_width
= row
->pixel_width
;
5369 height
+= row
->height
;
5370 width
= max (width
, row_width
);
5373 /* Add the frame's internal border to the width and height the X
5374 window should have. */
5375 height
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5376 width
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5378 /* Move the tooltip window where the mouse pointer is. Resize and
5380 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
5383 XMoveResizeWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5384 root_x
, root_y
, width
, height
);
5385 XMapRaised (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
));
5388 /* Draw into the window. */
5389 w
->must_be_updated_p
= 1;
5390 update_single_window (w
, 1);
5392 /* Restore original current buffer. */
5393 set_buffer_internal_1 (old_buffer
);
5394 windows_or_buffers_changed
= old_windows_or_buffers_changed
;
5397 /* Let the tip disappear after timeout seconds. */
5398 tip_timer
= call3 (intern ("run-at-time"), timeout
, Qnil
,
5399 intern ("x-hide-tip"));
5402 return unbind_to (count
, Qnil
);
5406 DEFUN ("x-hide-tip", Fx_hide_tip
, Sx_hide_tip
, 0, 0, 0,
5407 doc
: /* Hide the current tooltip window, if there is any.
5408 Value is t if tooltip was open, nil otherwise. */)
5412 Lisp_Object deleted
, frame
, timer
;
5413 struct gcpro gcpro1
, gcpro2
;
5415 /* Return quickly if nothing to do. */
5416 if (NILP (tip_timer
) && NILP (tip_frame
))
5421 GCPRO2 (frame
, timer
);
5422 tip_frame
= tip_timer
= deleted
= Qnil
;
5424 count
= SPECPDL_INDEX ();
5425 specbind (Qinhibit_redisplay
, Qt
);
5426 specbind (Qinhibit_quit
, Qt
);
5429 call1 (Qcancel_timer
, timer
);
5433 delete_frame (frame
, Qnil
);
5437 /* Bloodcurdling hack alert: The Lucid menu bar widget's
5438 redisplay procedure is not called when a tip frame over menu
5439 items is unmapped. Redisplay the menu manually... */
5441 struct frame
*f
= SELECTED_FRAME ();
5442 Widget w
= f
->output_data
.x
->menubar_widget
;
5443 extern void xlwmenu_redisplay
P_ ((Widget
));
5445 if (!DoesSaveUnders (FRAME_X_DISPLAY_INFO (f
)->screen
)
5449 xlwmenu_redisplay (w
);
5453 #endif /* USE_LUCID */
5457 return unbind_to (count
, deleted
);
5462 /***********************************************************************
5463 File selection dialog
5464 ***********************************************************************/
5466 DEFUN ("x-uses-old-gtk-dialog", Fx_uses_old_gtk_dialog
,
5467 Sx_uses_old_gtk_dialog
,
5469 doc
: /* Return t if the old Gtk+ file selection dialog is used. */)
5473 extern int use_dialog_box
;
5474 extern int use_file_dialog
;
5479 && xg_uses_old_file_dialog ())
5487 /* Callback for "OK" and "Cancel" on file selection dialog. */
5490 file_dialog_cb (widget
, client_data
, call_data
)
5492 XtPointer call_data
, client_data
;
5494 int *result
= (int *) client_data
;
5495 XmAnyCallbackStruct
*cb
= (XmAnyCallbackStruct
*) call_data
;
5496 *result
= cb
->reason
;
5500 /* Callback for unmapping a file selection dialog. This is used to
5501 capture the case where a dialog is closed via a window manager's
5502 closer button, for example. Using a XmNdestroyCallback didn't work
5506 file_dialog_unmap_cb (widget
, client_data
, call_data
)
5508 XtPointer call_data
, client_data
;
5510 int *result
= (int *) client_data
;
5511 *result
= XmCR_CANCEL
;
5515 clean_up_file_dialog (arg
)
5518 struct Lisp_Save_Value
*p
= XSAVE_VALUE (arg
);
5519 Widget dialog
= (Widget
) p
->pointer
;
5523 XtUnmanageChild (dialog
);
5524 XtDestroyWidget (dialog
);
5525 x_menu_set_in_use (0);
5532 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5533 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5534 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5535 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5536 or directory must exist. ONLY-DIR-P is ignored." */)
5537 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
)
5538 Lisp_Object prompt
, dir
, default_filename
, mustmatch
, only_dir_p
;
5541 struct frame
*f
= SELECTED_FRAME ();
5542 Lisp_Object file
= Qnil
;
5543 Lisp_Object decoded_file
;
5544 Widget dialog
, text
, help
;
5547 extern XtAppContext Xt_app_con
;
5548 XmString dir_xmstring
, pattern_xmstring
;
5549 int count
= SPECPDL_INDEX ();
5550 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5554 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5556 if (popup_activated ())
5557 error ("Trying to use a menu from within a menu-entry");
5559 CHECK_STRING (prompt
);
5562 /* Prevent redisplay. */
5563 specbind (Qinhibit_redisplay
, Qt
);
5567 /* Create the dialog with PROMPT as title, using DIR as initial
5568 directory and using "*" as pattern. */
5569 dir
= Fexpand_file_name (dir
, Qnil
);
5570 dir_xmstring
= XmStringCreateLocalized (SDATA (dir
));
5571 pattern_xmstring
= XmStringCreateLocalized ("*");
5573 XtSetArg (al
[ac
], XmNtitle
, SDATA (prompt
)); ++ac
;
5574 XtSetArg (al
[ac
], XmNdirectory
, dir_xmstring
); ++ac
;
5575 XtSetArg (al
[ac
], XmNpattern
, pattern_xmstring
); ++ac
;
5576 XtSetArg (al
[ac
], XmNresizePolicy
, XmRESIZE_GROW
); ++ac
;
5577 XtSetArg (al
[ac
], XmNdialogStyle
, XmDIALOG_APPLICATION_MODAL
); ++ac
;
5578 dialog
= XmCreateFileSelectionDialog (f
->output_data
.x
->widget
,
5580 XmStringFree (dir_xmstring
);
5581 XmStringFree (pattern_xmstring
);
5583 /* Add callbacks for OK and Cancel. */
5584 XtAddCallback (dialog
, XmNokCallback
, file_dialog_cb
,
5585 (XtPointer
) &result
);
5586 XtAddCallback (dialog
, XmNcancelCallback
, file_dialog_cb
,
5587 (XtPointer
) &result
);
5588 XtAddCallback (dialog
, XmNunmapCallback
, file_dialog_unmap_cb
,
5589 (XtPointer
) &result
);
5591 /* Remove the help button since we can't display help. */
5592 help
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_HELP_BUTTON
);
5593 XtUnmanageChild (help
);
5595 /* Mark OK button as default. */
5596 XtVaSetValues (XmFileSelectionBoxGetChild (dialog
, XmDIALOG_OK_BUTTON
),
5597 XmNshowAsDefault
, True
, NULL
);
5599 /* If MUSTMATCH is non-nil, disable the file entry field of the
5600 dialog, so that the user must select a file from the files list
5601 box. We can't remove it because we wouldn't have a way to get at
5602 the result file name, then. */
5603 text
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5604 if (!NILP (mustmatch
))
5607 label
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_SELECTION_LABEL
);
5608 XtSetSensitive (text
, False
);
5609 XtSetSensitive (label
, False
);
5612 /* Manage the dialog, so that list boxes get filled. */
5613 XtManageChild (dialog
);
5615 if (STRINGP (default_filename
))
5617 XmString default_xmstring
;
5618 Widget wtext
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5619 Widget list
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_LIST
);
5621 XmTextPosition last_pos
= XmTextFieldGetLastPosition (wtext
);
5622 XmTextFieldReplace (wtext
, 0, last_pos
,
5623 (SDATA (Ffile_name_nondirectory (default_filename
))));
5625 /* Select DEFAULT_FILENAME in the files list box. DEFAULT_FILENAME
5626 must include the path for this to work. */
5628 default_xmstring
= XmStringCreateLocalized (SDATA (default_filename
));
5630 if (XmListItemExists (list
, default_xmstring
))
5632 int item_pos
= XmListItemPos (list
, default_xmstring
);
5633 /* Select the item and scroll it into view. */
5634 XmListSelectPos (list
, item_pos
, True
);
5635 XmListSetPos (list
, item_pos
);
5638 XmStringFree (default_xmstring
);
5641 record_unwind_protect (clean_up_file_dialog
, make_save_value (dialog
, 0));
5643 /* Process events until the user presses Cancel or OK. */
5644 x_menu_set_in_use (1);
5649 x_menu_wait_for_event (0);
5650 XtAppNextEvent (Xt_app_con
, &event
);
5651 if (event
.type
== KeyPress
5652 && FRAME_X_DISPLAY (f
) == event
.xkey
.display
)
5654 KeySym keysym
= XLookupKeysym (&event
.xkey
, 0);
5656 /* Pop down on C-g. */
5657 if (keysym
== XK_g
&& (event
.xkey
.state
& ControlMask
) != 0)
5658 XtUnmanageChild (dialog
);
5661 (void) x_dispatch_event (&event
, FRAME_X_DISPLAY (f
));
5664 /* Get the result. */
5665 if (result
== XmCR_OK
)
5670 XtVaGetValues (dialog
, XmNtextString
, &text
, NULL
);
5671 XmStringGetLtoR (text
, XmFONTLIST_DEFAULT_TAG
, &data
);
5672 XmStringFree (text
);
5673 file
= build_string (data
);
5682 /* Make "Cancel" equivalent to C-g. */
5684 Fsignal (Qquit
, Qnil
);
5686 decoded_file
= DECODE_FILE (file
);
5688 return unbind_to (count
, decoded_file
);
5691 #endif /* USE_MOTIF */
5696 clean_up_dialog (arg
)
5699 x_menu_set_in_use (0);
5704 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5705 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5706 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5707 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5708 or directory must exist. If ONLY-DIR-P is non-nil, the user can only select
5710 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
)
5711 Lisp_Object prompt
, dir
, default_filename
, mustmatch
, only_dir_p
;
5713 FRAME_PTR f
= SELECTED_FRAME ();
5715 Lisp_Object file
= Qnil
;
5716 Lisp_Object decoded_file
;
5717 int count
= SPECPDL_INDEX ();
5718 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5723 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5725 if (popup_activated ())
5726 error ("Trying to use a menu from within a menu-entry");
5728 CHECK_STRING (prompt
);
5731 /* Prevent redisplay. */
5732 specbind (Qinhibit_redisplay
, Qt
);
5733 record_unwind_protect (clean_up_dialog
, Qnil
);
5737 if (STRINGP (default_filename
))
5738 cdef_file
= SDATA (default_filename
);
5740 cdef_file
= SDATA (dir
);
5742 fn
= xg_get_file_name (f
, SDATA (prompt
), cdef_file
,
5744 ! NILP (only_dir_p
));
5748 file
= build_string (fn
);
5755 /* Make "Cancel" equivalent to C-g. */
5757 Fsignal (Qquit
, Qnil
);
5759 decoded_file
= DECODE_FILE (file
);
5761 return unbind_to (count
, decoded_file
);
5765 #ifdef HAVE_FREETYPE
5767 DEFUN ("x-select-font", Fx_select_font
, Sx_select_font
, 0, 2, 0,
5768 doc
: /* Read a font name using a GTK font selection dialog.
5769 Return a GTK-style font string corresponding to the selection.
5771 If FRAME is omitted or nil, it defaults to the selected frame. */)
5773 Lisp_Object frame
, ignored
;
5775 FRAME_PTR f
= check_x_frame (frame
);
5778 Lisp_Object font_param
;
5779 char *default_name
= NULL
;
5780 struct gcpro gcpro1
, gcpro2
;
5781 int count
= SPECPDL_INDEX ();
5785 if (popup_activated ())
5786 error ("Trying to use a menu from within a menu-entry");
5788 /* Prevent redisplay. */
5789 specbind (Qinhibit_redisplay
, Qt
);
5790 record_unwind_protect (clean_up_dialog
, Qnil
);
5794 GCPRO2(font_param
, font
);
5796 XSETFONT (font
, FRAME_FONT (f
));
5797 font_param
= Ffont_get (font
, intern (":name"));
5798 if (STRINGP (font_param
))
5799 default_name
= xstrdup (SDATA (font_param
));
5802 font_param
= Fframe_parameter (frame
, Qfont_param
);
5803 if (STRINGP (font_param
))
5804 default_name
= xstrdup (SDATA (font_param
));
5807 if (default_name
== NULL
&& x_last_font_name
!= NULL
)
5808 default_name
= xstrdup (x_last_font_name
);
5810 /* Convert fontconfig names to Gtk names, i.e. remove - before number */
5813 char *p
= strrchr (default_name
, '-');
5817 while (isdigit (*ep
))
5819 if (*ep
== '\0') *p
= ' ';
5823 name
= xg_get_font_name (f
, default_name
);
5824 xfree (default_name
);
5828 font
= build_string (name
);
5829 g_free (x_last_font_name
);
5830 x_last_font_name
= name
;
5836 Fsignal (Qquit
, Qnil
);
5838 return unbind_to (count
, font
);
5840 #endif /* HAVE_FREETYPE */
5842 #endif /* USE_GTK */
5845 /***********************************************************************
5847 ***********************************************************************/
5849 #ifdef HAVE_XKBGETKEYBOARD
5850 #include <X11/XKBlib.h>
5851 #include <X11/keysym.h>
5854 DEFUN ("x-backspace-delete-keys-p", Fx_backspace_delete_keys_p
,
5855 Sx_backspace_delete_keys_p
, 0, 1, 0,
5856 doc
: /* Check if both Backspace and Delete keys are on the keyboard of FRAME.
5857 FRAME nil means use the selected frame.
5858 Value is t if we know that both keys are present, and are mapped to the
5859 usual X keysyms. Value is `lambda' if we cannot determine if both keys are
5860 present and mapped to the usual X keysyms. */)
5864 #ifdef HAVE_XKBGETKEYBOARD
5866 struct frame
*f
= check_x_frame (frame
);
5867 Display
*dpy
= FRAME_X_DISPLAY (f
);
5868 Lisp_Object have_keys
;
5869 int major
, minor
, op
, event
, error
;
5873 /* Check library version in case we're dynamically linked. */
5874 major
= XkbMajorVersion
;
5875 minor
= XkbMinorVersion
;
5876 if (!XkbLibraryVersion (&major
, &minor
))
5882 /* Check that the server supports XKB. */
5883 major
= XkbMajorVersion
;
5884 minor
= XkbMinorVersion
;
5885 if (!XkbQueryExtension (dpy
, &op
, &event
, &error
, &major
, &minor
))
5891 /* In this code we check that the keyboard has physical keys with names
5892 that start with BKSP (Backspace) and DELE (Delete), and that they
5893 generate keysym XK_BackSpace and XK_Delete respectively.
5894 This function is used to test if normal-erase-is-backspace should be
5896 An alternative approach would be to just check if XK_BackSpace and
5897 XK_Delete are mapped to any key. But if any of those are mapped to
5898 some non-intuitive key combination (Meta-Shift-Ctrl-whatever) and the
5899 user doesn't know about it, it is better to return false here.
5900 It is more obvious to the user what to do if she/he has two keys
5901 clearly marked with names/symbols and one key does something not
5902 expected (i.e. she/he then tries the other).
5903 The cases where Backspace/Delete is mapped to some other key combination
5904 are rare, and in those cases, normal-erase-is-backspace can be turned on
5908 kb
= XkbGetMap (dpy
, XkbAllMapComponentsMask
, XkbUseCoreKbd
);
5911 int delete_keycode
= 0, backspace_keycode
= 0, i
;
5913 if (XkbGetNames (dpy
, XkbAllNamesMask
, kb
) == Success
)
5915 for (i
= kb
->min_key_code
;
5916 (i
< kb
->max_key_code
5917 && (delete_keycode
== 0 || backspace_keycode
== 0));
5920 /* The XKB symbolic key names can be seen most easily in
5921 the PS file generated by `xkbprint -label name
5923 if (bcmp ("DELE", kb
->names
->keys
[i
].name
, 4) == 0)
5925 else if (bcmp ("BKSP", kb
->names
->keys
[i
].name
, 4) == 0)
5926 backspace_keycode
= i
;
5929 XkbFreeNames (kb
, 0, True
);
5932 XkbFreeClientMap (kb
, 0, True
);
5935 && backspace_keycode
5936 && XKeysymToKeycode (dpy
, XK_Delete
) == delete_keycode
5937 && XKeysymToKeycode (dpy
, XK_BackSpace
) == backspace_keycode
)
5942 #else /* not HAVE_XKBGETKEYBOARD */
5944 #endif /* not HAVE_XKBGETKEYBOARD */
5949 /***********************************************************************
5951 ***********************************************************************/
5953 /* Keep this list in the same order as frame_parms in frame.c.
5954 Use 0 for unsupported frame parameters. */
5956 frame_parm_handler x_frame_parm_handlers
[] =
5960 x_set_background_color
,
5966 x_set_foreground_color
,
5969 x_set_internal_border_width
,
5970 x_set_menu_bar_lines
,
5972 x_explicitly_set_name
,
5973 x_set_scroll_bar_width
,
5976 x_set_vertical_scroll_bars
,
5978 x_set_tool_bar_lines
,
5979 x_set_scroll_bar_foreground
,
5980 x_set_scroll_bar_background
,
5995 /* This is zero if not using X windows. */
5998 /* The section below is built by the lisp expression at the top of the file,
5999 just above where these variables are declared. */
6000 /*&&& init symbols here &&&*/
6001 Qnone
= intern_c_string ("none");
6003 Qsuppress_icon
= intern_c_string ("suppress-icon");
6004 staticpro (&Qsuppress_icon
);
6005 Qundefined_color
= intern_c_string ("undefined-color");
6006 staticpro (&Qundefined_color
);
6007 Qcompound_text
= intern_c_string ("compound-text");
6008 staticpro (&Qcompound_text
);
6009 Qcancel_timer
= intern_c_string ("cancel-timer");
6010 staticpro (&Qcancel_timer
);
6011 Qfont_param
= intern_c_string ("font-parameter");
6012 staticpro (&Qfont_param
);
6013 /* This is the end of symbol initialization. */
6015 /* Text property `display' should be nonsticky by default. */
6016 Vtext_property_default_nonsticky
6017 = Fcons (Fcons (Qdisplay
, Qt
), Vtext_property_default_nonsticky
);
6020 Fput (Qundefined_color
, Qerror_conditions
,
6021 pure_cons (Qundefined_color
, pure_cons (Qerror
, Qnil
)));
6022 Fput (Qundefined_color
, Qerror_message
,
6023 make_pure_c_string ("Undefined color"));
6025 DEFVAR_LISP ("x-pointer-shape", &Vx_pointer_shape
,
6026 doc
: /* The shape of the pointer when over text.
6027 Changing the value does not affect existing frames
6028 unless you set the mouse color. */);
6029 Vx_pointer_shape
= Qnil
;
6031 #if 0 /* This doesn't really do anything. */
6032 DEFVAR_LISP ("x-nontext-pointer-shape", &Vx_nontext_pointer_shape
,
6033 doc
: /* The shape of the pointer when not over text.
6034 This variable takes effect when you create a new frame
6035 or when you set the mouse color. */);
6037 Vx_nontext_pointer_shape
= Qnil
;
6039 DEFVAR_LISP ("x-hourglass-pointer-shape", &Vx_hourglass_pointer_shape
,
6040 doc
: /* The shape of the pointer when Emacs is busy.
6041 This variable takes effect when you create a new frame
6042 or when you set the mouse color. */);
6043 Vx_hourglass_pointer_shape
= Qnil
;
6045 #if 0 /* This doesn't really do anything. */
6046 DEFVAR_LISP ("x-mode-pointer-shape", &Vx_mode_pointer_shape
,
6047 doc
: /* The shape of the pointer when over the mode line.
6048 This variable takes effect when you create a new frame
6049 or when you set the mouse color. */);
6051 Vx_mode_pointer_shape
= Qnil
;
6053 DEFVAR_LISP ("x-sensitive-text-pointer-shape",
6054 &Vx_sensitive_text_pointer_shape
,
6055 doc
: /* The shape of the pointer when over mouse-sensitive text.
6056 This variable takes effect when you create a new frame
6057 or when you set the mouse color. */);
6058 Vx_sensitive_text_pointer_shape
= Qnil
;
6060 DEFVAR_LISP ("x-window-horizontal-drag-cursor",
6061 &Vx_window_horizontal_drag_shape
,
6062 doc
: /* Pointer shape to use for indicating a window can be dragged horizontally.
6063 This variable takes effect when you create a new frame
6064 or when you set the mouse color. */);
6065 Vx_window_horizontal_drag_shape
= Qnil
;
6067 DEFVAR_LISP ("x-cursor-fore-pixel", &Vx_cursor_fore_pixel
,
6068 doc
: /* A string indicating the foreground color of the cursor box. */);
6069 Vx_cursor_fore_pixel
= Qnil
;
6071 DEFVAR_LISP ("x-max-tooltip-size", &Vx_max_tooltip_size
,
6072 doc
: /* Maximum size for tooltips. Value is a pair (COLUMNS . ROWS).
6073 Text larger than this is clipped. */);
6074 Vx_max_tooltip_size
= Fcons (make_number (80), make_number (40));
6076 DEFVAR_LISP ("x-no-window-manager", &Vx_no_window_manager
,
6077 doc
: /* Non-nil if no X window manager is in use.
6078 Emacs doesn't try to figure this out; this is always nil
6079 unless you set it to something else. */);
6080 /* We don't have any way to find this out, so set it to nil
6081 and maybe the user would like to set it to t. */
6082 Vx_no_window_manager
= Qnil
;
6084 DEFVAR_LISP ("x-pixel-size-width-font-regexp",
6085 &Vx_pixel_size_width_font_regexp
,
6086 doc
: /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'.
6088 Since Emacs gets width of a font matching with this regexp from
6089 PIXEL_SIZE field of the name, font finding mechanism gets faster for
6090 such a font. This is especially effective for such large fonts as
6091 Chinese, Japanese, and Korean. */);
6092 Vx_pixel_size_width_font_regexp
= Qnil
;
6094 /* This is not ifdef:ed, so other builds than GTK can customize it. */
6095 DEFVAR_BOOL ("x-gtk-use-old-file-dialog", &x_gtk_use_old_file_dialog
,
6096 doc
: /* *Non-nil means prompt with the old GTK file selection dialog.
6097 If nil or if the file selection dialog is not available, the new GTK file
6098 chooser is used instead. To turn off all file dialogs set the
6099 variable `use-file-dialog'. */);
6100 x_gtk_use_old_file_dialog
= 0;
6102 DEFVAR_BOOL ("x-gtk-show-hidden-files", &x_gtk_show_hidden_files
,
6103 doc
: /* *If non-nil, the GTK file chooser will by default show hidden files.
6104 Note that this is just the default, there is a toggle button on the file
6105 chooser to show or not show hidden files on a case by case basis. */);
6106 x_gtk_show_hidden_files
= 0;
6108 DEFVAR_BOOL ("x-gtk-file-dialog-help-text", &x_gtk_file_dialog_help_text
,
6109 doc
: /* *If non-nil, the GTK file chooser will show additional help text.
6110 If more space for files in the file chooser dialog is wanted, set this to nil
6111 to turn the additional text off. */);
6112 x_gtk_file_dialog_help_text
= 1;
6114 DEFVAR_BOOL ("x-gtk-whole-detached-tool-bar", &x_gtk_whole_detached_tool_bar
,
6115 doc
: /* *If non-nil, a detached tool bar is shown in full.
6116 The default is to just show an arrow and pressing on that arrow shows
6117 the tool bar buttons. */);
6118 x_gtk_whole_detached_tool_bar
= 0;
6120 Fprovide (intern_c_string ("x"), Qnil
);
6122 #ifdef USE_X_TOOLKIT
6123 Fprovide (intern_c_string ("x-toolkit"), Qnil
);
6125 Fprovide (intern_c_string ("motif"), Qnil
);
6127 DEFVAR_LISP ("motif-version-string", &Vmotif_version_string
,
6128 doc
: /* Version info for LessTif/Motif. */);
6129 Vmotif_version_string
= build_string (XmVERSION_STRING
);
6130 #endif /* USE_MOTIF */
6131 #endif /* USE_X_TOOLKIT */
6134 /* Provide x-toolkit also for GTK. Internally GTK does not use Xt so it
6135 is not an X toolkit in that sense (USE_X_TOOLKIT is not defined).
6136 But for a user it is a toolkit for X, and indeed, configure
6137 accepts --with-x-toolkit=gtk. */
6138 Fprovide (intern_c_string ("x-toolkit"), Qnil
);
6139 Fprovide (intern_c_string ("gtk"), Qnil
);
6141 DEFVAR_LISP ("gtk-version-string", &Vgtk_version_string
,
6142 doc
: /* Version info for GTK+. */);
6144 char gtk_version
[40];
6145 g_snprintf (gtk_version
, sizeof (gtk_version
), "%u.%u.%u",
6146 GTK_MAJOR_VERSION
, GTK_MINOR_VERSION
, GTK_MICRO_VERSION
);
6147 Vgtk_version_string
= make_pure_string (gtk_version
, strlen (gtk_version
), strlen (gtk_version
), 0);
6149 #endif /* USE_GTK */
6151 /* X window properties. */
6152 defsubr (&Sx_change_window_property
);
6153 defsubr (&Sx_delete_window_property
);
6154 defsubr (&Sx_window_property
);
6156 defsubr (&Sxw_display_color_p
);
6157 defsubr (&Sx_display_grayscale_p
);
6158 defsubr (&Sxw_color_defined_p
);
6159 defsubr (&Sxw_color_values
);
6160 defsubr (&Sx_server_max_request_size
);
6161 defsubr (&Sx_server_vendor
);
6162 defsubr (&Sx_server_version
);
6163 defsubr (&Sx_display_pixel_width
);
6164 defsubr (&Sx_display_pixel_height
);
6165 defsubr (&Sx_display_mm_width
);
6166 defsubr (&Sx_display_mm_height
);
6167 defsubr (&Sx_display_screens
);
6168 defsubr (&Sx_display_planes
);
6169 defsubr (&Sx_display_color_cells
);
6170 defsubr (&Sx_display_visual_class
);
6171 defsubr (&Sx_display_backing_store
);
6172 defsubr (&Sx_display_save_under
);
6173 defsubr (&Sx_wm_set_size_hint
);
6174 defsubr (&Sx_create_frame
);
6175 defsubr (&Sx_open_connection
);
6176 defsubr (&Sx_close_connection
);
6177 defsubr (&Sx_display_list
);
6178 defsubr (&Sx_synchronize
);
6179 defsubr (&Sx_focus_frame
);
6180 defsubr (&Sx_backspace_delete_keys_p
);
6182 /* Setting callback functions for fontset handler. */
6183 check_window_system_func
= check_x
;
6185 defsubr (&Sx_show_tip
);
6186 defsubr (&Sx_hide_tip
);
6188 staticpro (&tip_timer
);
6190 staticpro (&tip_frame
);
6192 last_show_tip_args
= Qnil
;
6193 staticpro (&last_show_tip_args
);
6195 defsubr (&Sx_uses_old_gtk_dialog
);
6196 #if defined (USE_MOTIF) || defined (USE_GTK)
6197 defsubr (&Sx_file_dialog
);
6200 #if defined (USE_GTK) && defined (HAVE_FREETYPE)
6201 defsubr (&Sx_select_font
);
6202 x_last_font_name
= NULL
;
6206 #endif /* HAVE_X_WINDOWS */
6208 /* arch-tag: 55040d02-5485-4d58-8b22-95a7a05f3288
6209 (do not change this comment) */