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 Free Software Foundation.
5 This file is part of GNU Emacs.
7 GNU Emacs is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 2, or (at your option)
12 GNU Emacs is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with GNU Emacs; see the file COPYING. If not, write to
19 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
20 Boston, MA 02111-1307, USA. */
31 /* This makes the fields of a Display accessible, in Xlib header files. */
33 #define XLIB_ILLEGAL_ACCESS
40 #include "intervals.h"
41 #include "dispextern.h"
43 #include "blockinput.h"
49 #include "termhooks.h"
55 #include <sys/types.h>
59 #if 1 /* Used to be #ifdef EMACS_BITMAP_FILES, but this should always work. */
60 #include "bitmaps/gray.xbm"
62 #include <X11/bitmaps/gray>
65 #include "[.bitmaps]gray.xbm"
73 #include <X11/Shell.h>
76 #include <X11/Xaw/Paned.h>
77 #include <X11/Xaw/Label.h>
78 #endif /* USE_MOTIF */
81 #undef USG /* ####KLUDGE for Solaris 2.2 and up */
90 #include "../lwlib/lwlib.h"
94 #include <Xm/DialogS.h>
95 #include <Xm/FileSB.h>
98 /* Do the EDITRES protocol if running X11R5
99 Exception: HP-UX (at least version A.09.05) has X11R5 without EditRes */
101 #if (XtSpecificationRelease >= 5) && !defined(NO_EDITRES)
103 extern void _XEditResCheckMessages ();
104 #endif /* R5 + Athena */
106 /* Unique id counter for widgets created by the Lucid Widget Library. */
108 extern LWLIB_ID widget_id_tick
;
111 /* This is part of a kludge--see lwlib/xlwmenu.c. */
112 extern XFontStruct
*xlwmenu_default_font
;
115 extern void free_frame_menubar ();
116 extern double atof ();
120 /* LessTif/Motif version info. */
122 static Lisp_Object Vmotif_version_string
;
124 #endif /* USE_MOTIF */
126 #endif /* USE_X_TOOLKIT */
130 /* GTK+ version info */
132 static Lisp_Object Vgtk_version_string
;
137 #define MAXREQUEST(dpy) (XMaxRequestSize (dpy))
139 #define MAXREQUEST(dpy) ((dpy)->max_request_size)
142 /* The gray bitmap `bitmaps/gray'. This is done because xterm.c uses
143 it, and including `bitmaps/gray' more than once is a problem when
144 config.h defines `static' as an empty replacement string. */
146 int gray_bitmap_width
= gray_width
;
147 int gray_bitmap_height
= gray_height
;
148 char *gray_bitmap_bits
= gray_bits
;
150 /* Non-zero means we're allowed to display an hourglass cursor. */
152 int display_hourglass_p
;
154 /* Non-zero means prompt with the old GTK file selection dialog. */
156 int x_use_old_gtk_file_dialog
;
158 /* The background and shape of the mouse pointer, and shape when not
159 over text or in the modeline. */
161 Lisp_Object Vx_pointer_shape
, Vx_nontext_pointer_shape
, Vx_mode_pointer_shape
;
162 Lisp_Object Vx_hourglass_pointer_shape
;
164 /* The shape when over mouse-sensitive text. */
166 Lisp_Object Vx_sensitive_text_pointer_shape
;
168 /* If non-nil, the pointer shape to indicate that windows can be
169 dragged horizontally. */
171 Lisp_Object Vx_window_horizontal_drag_shape
;
173 /* Color of chars displayed in cursor box. */
175 Lisp_Object Vx_cursor_fore_pixel
;
177 /* Nonzero if using X. */
181 /* Non nil if no window manager is in use. */
183 Lisp_Object Vx_no_window_manager
;
185 /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'. */
187 Lisp_Object Vx_pixel_size_width_font_regexp
;
190 Lisp_Object Qsuppress_icon
;
191 Lisp_Object Qundefined_color
;
192 Lisp_Object Qcompound_text
, Qcancel_timer
;
196 extern Lisp_Object Vwindow_system_version
;
198 /* The below are defined in frame.c. */
201 int image_cache_refcount
, dpyinfo_refcount
;
206 /* Error if we are not connected to X. */
212 error ("X windows are not in use or not initialized");
215 /* Nonzero if we can use mouse menus.
216 You should not call this unless HAVE_MENUS is defined. */
224 /* Extract a frame as a FRAME_PTR, defaulting to the selected frame
225 and checking validity for X. */
228 check_x_frame (frame
)
234 frame
= selected_frame
;
235 CHECK_LIVE_FRAME (frame
);
238 error ("Non-X frame used");
242 /* Let the user specify an X display with a frame.
243 nil stands for the selected frame--or, if that is not an X frame,
244 the first X display on the list. */
246 struct x_display_info
*
247 check_x_display_info (frame
)
250 struct x_display_info
*dpyinfo
= NULL
;
254 struct frame
*sf
= XFRAME (selected_frame
);
256 if (FRAME_X_P (sf
) && FRAME_LIVE_P (sf
))
257 dpyinfo
= FRAME_X_DISPLAY_INFO (sf
);
258 else if (x_display_list
!= 0)
259 dpyinfo
= x_display_list
;
261 error ("X windows are not in use or not initialized");
263 else if (STRINGP (frame
))
264 dpyinfo
= x_display_info_for_name (frame
);
267 FRAME_PTR f
= check_x_frame (frame
);
268 dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
275 /* Return the Emacs frame-object corresponding to an X window.
276 It could be the frame's main window or an icon window. */
278 /* This function can be called during GC, so use GC_xxx type test macros. */
281 x_window_to_frame (dpyinfo
, wdesc
)
282 struct x_display_info
*dpyinfo
;
285 Lisp_Object tail
, frame
;
288 if (wdesc
== None
) return 0;
290 for (tail
= Vframe_list
; GC_CONSP (tail
); tail
= XCDR (tail
))
293 if (!GC_FRAMEP (frame
))
296 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
298 if (f
->output_data
.x
->hourglass_window
== wdesc
)
301 if ((f
->output_data
.x
->edit_widget
302 && XtWindow (f
->output_data
.x
->edit_widget
) == wdesc
)
303 /* A tooltip frame? */
304 || (!f
->output_data
.x
->edit_widget
305 && FRAME_X_WINDOW (f
) == wdesc
)
306 || f
->output_data
.x
->icon_desc
== wdesc
)
308 #else /* not USE_X_TOOLKIT */
310 if (f
->output_data
.x
->edit_widget
)
312 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
313 struct x_output
*x
= f
->output_data
.x
;
314 if (gwdesc
!= 0 && gwdesc
== x
->edit_widget
)
318 if (FRAME_X_WINDOW (f
) == wdesc
319 || f
->output_data
.x
->icon_desc
== wdesc
)
321 #endif /* not USE_X_TOOLKIT */
326 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
327 /* Like x_window_to_frame but also compares the window with the widget's
331 x_any_window_to_frame (dpyinfo
, wdesc
)
332 struct x_display_info
*dpyinfo
;
335 Lisp_Object tail
, frame
;
336 struct frame
*f
, *found
;
339 if (wdesc
== None
) return NULL
;
342 for (tail
= Vframe_list
; GC_CONSP (tail
) && !found
; tail
= XCDR (tail
))
345 if (!GC_FRAMEP (frame
))
349 if (FRAME_X_P (f
) && FRAME_X_DISPLAY_INFO (f
) == dpyinfo
)
351 /* This frame matches if the window is any of its widgets. */
352 x
= f
->output_data
.x
;
353 if (x
->hourglass_window
== wdesc
)
358 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
360 && (gwdesc
== x
->widget
361 || gwdesc
== x
->edit_widget
362 || gwdesc
== x
->vbox_widget
363 || gwdesc
== x
->menubar_widget
))
366 if (wdesc
== XtWindow (x
->widget
)
367 || wdesc
== XtWindow (x
->column_widget
)
368 || wdesc
== XtWindow (x
->edit_widget
))
370 /* Match if the window is this frame's menubar. */
371 else if (lw_window_is_in_menubar (wdesc
, x
->menubar_widget
))
375 else if (FRAME_X_WINDOW (f
) == wdesc
)
376 /* A tooltip frame. */
384 /* Likewise, but exclude the menu bar widget. */
387 x_non_menubar_window_to_frame (dpyinfo
, wdesc
)
388 struct x_display_info
*dpyinfo
;
391 Lisp_Object tail
, frame
;
395 if (wdesc
== None
) return 0;
397 for (tail
= Vframe_list
; GC_CONSP (tail
); tail
= XCDR (tail
))
400 if (!GC_FRAMEP (frame
))
403 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
405 x
= f
->output_data
.x
;
406 /* This frame matches if the window is any of its widgets. */
407 if (x
->hourglass_window
== wdesc
)
412 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
414 && (gwdesc
== x
->widget
415 || gwdesc
== x
->edit_widget
416 || gwdesc
== x
->vbox_widget
))
419 if (wdesc
== XtWindow (x
->widget
)
420 || wdesc
== XtWindow (x
->column_widget
)
421 || wdesc
== XtWindow (x
->edit_widget
))
425 else if (FRAME_X_WINDOW (f
) == wdesc
)
426 /* A tooltip frame. */
432 /* Likewise, but consider only the menu bar widget. */
435 x_menubar_window_to_frame (dpyinfo
, wdesc
)
436 struct x_display_info
*dpyinfo
;
439 Lisp_Object tail
, frame
;
443 if (wdesc
== None
) return 0;
445 for (tail
= Vframe_list
; GC_CONSP (tail
); tail
= XCDR (tail
))
448 if (!GC_FRAMEP (frame
))
451 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
453 x
= f
->output_data
.x
;
454 /* Match if the window is this frame's menubar. */
456 if (x
->menubar_widget
)
458 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
463 && (gwdesc
== x
->menubar_widget
464 || gtk_widget_get_parent (gwdesc
) == x
->menubar_widget
))
470 if (x
->menubar_widget
471 && lw_window_is_in_menubar (wdesc
, x
->menubar_widget
))
478 /* Return the frame whose principal (outermost) window is WDESC.
479 If WDESC is some other (smaller) window, we return 0. */
482 x_top_window_to_frame (dpyinfo
, wdesc
)
483 struct x_display_info
*dpyinfo
;
486 Lisp_Object tail
, frame
;
490 if (wdesc
== None
) return 0;
492 for (tail
= Vframe_list
; GC_CONSP (tail
); tail
= XCDR (tail
))
495 if (!GC_FRAMEP (frame
))
498 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
500 x
= f
->output_data
.x
;
504 /* This frame matches if the window is its topmost widget. */
506 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
507 if (gwdesc
== x
->widget
)
510 if (wdesc
== XtWindow (x
->widget
))
512 #if 0 /* I don't know why it did this,
513 but it seems logically wrong,
514 and it causes trouble for MapNotify events. */
515 /* Match if the window is this frame's menubar. */
516 if (x
->menubar_widget
517 && wdesc
== XtWindow (x
->menubar_widget
))
522 else if (FRAME_X_WINDOW (f
) == wdesc
)
528 #endif /* USE_X_TOOLKIT || USE_GTK */
532 static Lisp_Object unwind_create_frame
P_ ((Lisp_Object
));
533 static Lisp_Object unwind_create_tip_frame
P_ ((Lisp_Object
));
535 void x_set_foreground_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
536 static void x_set_wait_for_wm
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
537 void x_set_background_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
538 void x_set_mouse_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
539 void x_set_cursor_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
540 void x_set_border_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
541 void x_set_cursor_type
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
542 void x_set_icon_type
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
543 void x_set_icon_name
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
544 void x_explicitly_set_name
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
545 void x_set_menu_bar_lines
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
546 void x_set_title
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
547 void x_set_tool_bar_lines
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
548 void x_set_scroll_bar_foreground
P_ ((struct frame
*, Lisp_Object
,
550 void x_set_scroll_bar_background
P_ ((struct frame
*, Lisp_Object
,
552 static Lisp_Object x_default_scroll_bar_color_parameter
P_ ((struct frame
*,
559 /* Store the screen positions of frame F into XPTR and YPTR.
560 These are the positions of the containing window manager window,
561 not Emacs's own window. */
564 x_real_positions (f
, xptr
, yptr
)
568 int win_x
, win_y
, outer_x
, outer_y
;
569 int real_x
= 0, real_y
= 0;
571 Window win
= f
->output_data
.x
->parent_desc
;
577 count
= x_catch_errors (FRAME_X_DISPLAY (f
));
579 if (win
== FRAME_X_DISPLAY_INFO (f
)->root_window
)
580 win
= FRAME_OUTER_WINDOW (f
);
582 /* This loop traverses up the containment tree until we hit the root
583 window. Window managers may intersect many windows between our window
584 and the root window. The window we find just before the root window
585 should be the outer WM window. */
588 Window wm_window
, rootw
;
589 Window
*tmp_children
;
590 unsigned int tmp_nchildren
;
593 success
= XQueryTree (FRAME_X_DISPLAY (f
), win
, &rootw
,
594 &wm_window
, &tmp_children
, &tmp_nchildren
);
596 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
598 /* Don't free tmp_children if XQueryTree failed. */
602 XFree ((char *) tmp_children
);
604 if (wm_window
== rootw
|| had_errors
)
615 /* Get the real coordinates for the WM window upper left corner */
616 XGetGeometry (FRAME_X_DISPLAY (f
), win
,
617 &rootw
, &real_x
, &real_y
, &ign
, &ign
, &ign
, &ign
);
619 /* Translate real coordinates to coordinates relative to our
620 window. For our window, the upper left corner is 0, 0.
621 Since the upper left corner of the WM window is outside
622 our window, win_x and win_y will be negative:
624 ------------------ ---> x
626 | ----------------- v y
629 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
631 /* From-window, to-window. */
632 FRAME_X_DISPLAY_INFO (f
)->root_window
,
635 /* From-position, to-position. */
636 real_x
, real_y
, &win_x
, &win_y
,
641 if (FRAME_X_WINDOW (f
) == FRAME_OUTER_WINDOW (f
))
648 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
650 /* From-window, to-window. */
651 FRAME_X_DISPLAY_INFO (f
)->root_window
,
652 FRAME_OUTER_WINDOW (f
),
654 /* From-position, to-position. */
655 real_x
, real_y
, &outer_x
, &outer_y
,
661 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
664 x_uncatch_errors (FRAME_X_DISPLAY (f
), count
);
668 if (had_errors
) return;
670 f
->x_pixels_diff
= -win_x
;
671 f
->y_pixels_diff
= -win_y
;
673 FRAME_X_OUTPUT (f
)->x_pixels_outer_diff
= -outer_x
;
674 FRAME_X_OUTPUT (f
)->y_pixels_outer_diff
= -outer_y
;
683 /* Gamma-correct COLOR on frame F. */
686 gamma_correct (f
, color
)
692 color
->red
= pow (color
->red
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
693 color
->green
= pow (color
->green
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
694 color
->blue
= pow (color
->blue
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
699 /* Decide if color named COLOR_NAME is valid for use on frame F. If
700 so, return the RGB values in COLOR. If ALLOC_P is non-zero,
701 allocate the color. Value is zero if COLOR_NAME is invalid, or
702 no color could be allocated. */
705 x_defined_color (f
, color_name
, color
, alloc_p
)
712 Display
*dpy
= FRAME_X_DISPLAY (f
);
713 Colormap cmap
= FRAME_X_COLORMAP (f
);
716 success_p
= XParseColor (dpy
, cmap
, color_name
, color
);
717 if (success_p
&& alloc_p
)
718 success_p
= x_alloc_nearest_color (f
, cmap
, color
);
725 /* Return the pixel color value for color COLOR_NAME on frame F. If F
726 is a monochrome frame, return MONO_COLOR regardless of what ARG says.
727 Signal an error if color can't be allocated. */
730 x_decode_color (f
, color_name
, mono_color
)
732 Lisp_Object color_name
;
737 CHECK_STRING (color_name
);
739 #if 0 /* Don't do this. It's wrong when we're not using the default
740 colormap, it makes freeing difficult, and it's probably not
741 an important optimization. */
742 if (strcmp (SDATA (color_name
), "black") == 0)
743 return BLACK_PIX_DEFAULT (f
);
744 else if (strcmp (SDATA (color_name
), "white") == 0)
745 return WHITE_PIX_DEFAULT (f
);
748 /* Return MONO_COLOR for monochrome frames. */
749 if (FRAME_X_DISPLAY_INFO (f
)->n_planes
== 1)
752 /* x_defined_color is responsible for coping with failures
753 by looking for a near-miss. */
754 if (x_defined_color (f
, SDATA (color_name
), &cdef
, 1))
757 Fsignal (Qerror
, Fcons (build_string ("Undefined color"),
758 Fcons (color_name
, Qnil
)));
764 /* Change the `wait-for-wm' frame parameter of frame F. OLD_VALUE is
765 the previous value of that parameter, NEW_VALUE is the new value.
766 See also the comment of wait_for_wm in struct x_output. */
769 x_set_wait_for_wm (f
, new_value
, old_value
)
771 Lisp_Object new_value
, old_value
;
773 f
->output_data
.x
->wait_for_wm
= !NILP (new_value
);
778 /* Set icon from FILE for frame F. By using GTK functions the icon
779 may be any format that GdkPixbuf knows about, i.e. not just bitmaps. */
782 xg_set_icon (f
, file
)
792 found
= x_find_image_file (file
);
800 filename
= SDATA (found
);
803 pixbuf
= gdk_pixbuf_new_from_file (filename
, &err
);
807 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
809 g_object_unref (pixbuf
);
825 /* Functions called only from `x_set_frame_param'
826 to set individual parameters.
828 If FRAME_X_WINDOW (f) is 0,
829 the frame is being created and its X-window does not exist yet.
830 In that case, just record the parameter's new value
831 in the standard place; do not attempt to change the window. */
834 x_set_foreground_color (f
, arg
, oldval
)
836 Lisp_Object arg
, oldval
;
838 struct x_output
*x
= f
->output_data
.x
;
839 unsigned long fg
, old_fg
;
841 fg
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
842 old_fg
= x
->foreground_pixel
;
843 x
->foreground_pixel
= fg
;
845 if (FRAME_X_WINDOW (f
) != 0)
847 Display
*dpy
= FRAME_X_DISPLAY (f
);
850 XSetForeground (dpy
, x
->normal_gc
, fg
);
851 XSetBackground (dpy
, x
->reverse_gc
, fg
);
853 if (x
->cursor_pixel
== old_fg
)
855 unload_color (f
, x
->cursor_pixel
);
856 x
->cursor_pixel
= x_copy_color (f
, fg
);
857 XSetBackground (dpy
, x
->cursor_gc
, x
->cursor_pixel
);
862 update_face_from_frame_parameter (f
, Qforeground_color
, arg
);
864 if (FRAME_VISIBLE_P (f
))
868 unload_color (f
, old_fg
);
872 x_set_background_color (f
, arg
, oldval
)
874 Lisp_Object arg
, oldval
;
876 struct x_output
*x
= f
->output_data
.x
;
879 bg
= x_decode_color (f
, arg
, WHITE_PIX_DEFAULT (f
));
880 unload_color (f
, x
->background_pixel
);
881 x
->background_pixel
= bg
;
883 if (FRAME_X_WINDOW (f
) != 0)
885 Display
*dpy
= FRAME_X_DISPLAY (f
);
888 XSetBackground (dpy
, x
->normal_gc
, bg
);
889 XSetForeground (dpy
, x
->reverse_gc
, bg
);
890 XSetWindowBackground (dpy
, FRAME_X_WINDOW (f
), bg
);
891 XSetForeground (dpy
, x
->cursor_gc
, bg
);
894 xg_set_background_color (f
, bg
);
897 #ifndef USE_TOOLKIT_SCROLL_BARS /* Turns out to be annoying with
898 toolkit scroll bars. */
901 for (bar
= FRAME_SCROLL_BARS (f
);
903 bar
= XSCROLL_BAR (bar
)->next
)
905 Window window
= SCROLL_BAR_X_WINDOW (XSCROLL_BAR (bar
));
906 XSetWindowBackground (dpy
, window
, bg
);
909 #endif /* USE_TOOLKIT_SCROLL_BARS */
912 update_face_from_frame_parameter (f
, Qbackground_color
, arg
);
914 if (FRAME_VISIBLE_P (f
))
920 x_set_mouse_color (f
, arg
, oldval
)
922 Lisp_Object arg
, oldval
;
924 struct x_output
*x
= f
->output_data
.x
;
925 Display
*dpy
= FRAME_X_DISPLAY (f
);
926 Cursor cursor
, nontext_cursor
, mode_cursor
, hand_cursor
;
927 Cursor hourglass_cursor
, horizontal_drag_cursor
;
929 unsigned long pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
930 unsigned long mask_color
= x
->background_pixel
;
932 /* Don't let pointers be invisible. */
933 if (mask_color
== pixel
)
935 x_free_colors (f
, &pixel
, 1);
936 pixel
= x_copy_color (f
, x
->foreground_pixel
);
939 unload_color (f
, x
->mouse_pixel
);
940 x
->mouse_pixel
= pixel
;
944 /* It's not okay to crash if the user selects a screwy cursor. */
945 count
= x_catch_errors (dpy
);
947 if (!NILP (Vx_pointer_shape
))
949 CHECK_NUMBER (Vx_pointer_shape
);
950 cursor
= XCreateFontCursor (dpy
, XINT (Vx_pointer_shape
));
953 cursor
= XCreateFontCursor (dpy
, XC_xterm
);
954 x_check_errors (dpy
, "bad text pointer cursor: %s");
956 if (!NILP (Vx_nontext_pointer_shape
))
958 CHECK_NUMBER (Vx_nontext_pointer_shape
);
960 = XCreateFontCursor (dpy
, XINT (Vx_nontext_pointer_shape
));
963 nontext_cursor
= XCreateFontCursor (dpy
, XC_left_ptr
);
964 x_check_errors (dpy
, "bad nontext pointer cursor: %s");
966 if (!NILP (Vx_hourglass_pointer_shape
))
968 CHECK_NUMBER (Vx_hourglass_pointer_shape
);
970 = XCreateFontCursor (dpy
, XINT (Vx_hourglass_pointer_shape
));
973 hourglass_cursor
= XCreateFontCursor (dpy
, XC_watch
);
974 x_check_errors (dpy
, "bad hourglass pointer cursor: %s");
976 if (!NILP (Vx_mode_pointer_shape
))
978 CHECK_NUMBER (Vx_mode_pointer_shape
);
979 mode_cursor
= XCreateFontCursor (dpy
, XINT (Vx_mode_pointer_shape
));
982 mode_cursor
= XCreateFontCursor (dpy
, XC_xterm
);
983 x_check_errors (dpy
, "bad modeline pointer cursor: %s");
985 if (!NILP (Vx_sensitive_text_pointer_shape
))
987 CHECK_NUMBER (Vx_sensitive_text_pointer_shape
);
989 = XCreateFontCursor (dpy
, XINT (Vx_sensitive_text_pointer_shape
));
992 hand_cursor
= XCreateFontCursor (dpy
, XC_hand2
);
994 if (!NILP (Vx_window_horizontal_drag_shape
))
996 CHECK_NUMBER (Vx_window_horizontal_drag_shape
);
997 horizontal_drag_cursor
998 = XCreateFontCursor (dpy
, XINT (Vx_window_horizontal_drag_shape
));
1001 horizontal_drag_cursor
1002 = XCreateFontCursor (dpy
, XC_sb_h_double_arrow
);
1004 /* Check and report errors with the above calls. */
1005 x_check_errors (dpy
, "can't set cursor shape: %s");
1006 x_uncatch_errors (dpy
, count
);
1009 XColor fore_color
, back_color
;
1011 fore_color
.pixel
= x
->mouse_pixel
;
1012 x_query_color (f
, &fore_color
);
1013 back_color
.pixel
= mask_color
;
1014 x_query_color (f
, &back_color
);
1016 XRecolorCursor (dpy
, cursor
, &fore_color
, &back_color
);
1017 XRecolorCursor (dpy
, nontext_cursor
, &fore_color
, &back_color
);
1018 XRecolorCursor (dpy
, mode_cursor
, &fore_color
, &back_color
);
1019 XRecolorCursor (dpy
, hand_cursor
, &fore_color
, &back_color
);
1020 XRecolorCursor (dpy
, hourglass_cursor
, &fore_color
, &back_color
);
1021 XRecolorCursor (dpy
, horizontal_drag_cursor
, &fore_color
, &back_color
);
1024 if (FRAME_X_WINDOW (f
) != 0)
1025 XDefineCursor (dpy
, FRAME_X_WINDOW (f
), cursor
);
1027 if (cursor
!= x
->text_cursor
1028 && x
->text_cursor
!= 0)
1029 XFreeCursor (dpy
, x
->text_cursor
);
1030 x
->text_cursor
= cursor
;
1032 if (nontext_cursor
!= x
->nontext_cursor
1033 && x
->nontext_cursor
!= 0)
1034 XFreeCursor (dpy
, x
->nontext_cursor
);
1035 x
->nontext_cursor
= nontext_cursor
;
1037 if (hourglass_cursor
!= x
->hourglass_cursor
1038 && x
->hourglass_cursor
!= 0)
1039 XFreeCursor (dpy
, x
->hourglass_cursor
);
1040 x
->hourglass_cursor
= hourglass_cursor
;
1042 if (mode_cursor
!= x
->modeline_cursor
1043 && x
->modeline_cursor
!= 0)
1044 XFreeCursor (dpy
, f
->output_data
.x
->modeline_cursor
);
1045 x
->modeline_cursor
= mode_cursor
;
1047 if (hand_cursor
!= x
->hand_cursor
1048 && x
->hand_cursor
!= 0)
1049 XFreeCursor (dpy
, x
->hand_cursor
);
1050 x
->hand_cursor
= hand_cursor
;
1052 if (horizontal_drag_cursor
!= x
->horizontal_drag_cursor
1053 && x
->horizontal_drag_cursor
!= 0)
1054 XFreeCursor (dpy
, x
->horizontal_drag_cursor
);
1055 x
->horizontal_drag_cursor
= horizontal_drag_cursor
;
1060 update_face_from_frame_parameter (f
, Qmouse_color
, arg
);
1064 x_set_cursor_color (f
, arg
, oldval
)
1066 Lisp_Object arg
, oldval
;
1068 unsigned long fore_pixel
, pixel
;
1069 int fore_pixel_allocated_p
= 0, pixel_allocated_p
= 0;
1070 struct x_output
*x
= f
->output_data
.x
;
1072 if (!NILP (Vx_cursor_fore_pixel
))
1074 fore_pixel
= x_decode_color (f
, Vx_cursor_fore_pixel
,
1075 WHITE_PIX_DEFAULT (f
));
1076 fore_pixel_allocated_p
= 1;
1079 fore_pixel
= x
->background_pixel
;
1081 pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1082 pixel_allocated_p
= 1;
1084 /* Make sure that the cursor color differs from the background color. */
1085 if (pixel
== x
->background_pixel
)
1087 if (pixel_allocated_p
)
1089 x_free_colors (f
, &pixel
, 1);
1090 pixel_allocated_p
= 0;
1093 pixel
= x
->mouse_pixel
;
1094 if (pixel
== fore_pixel
)
1096 if (fore_pixel_allocated_p
)
1098 x_free_colors (f
, &fore_pixel
, 1);
1099 fore_pixel_allocated_p
= 0;
1101 fore_pixel
= x
->background_pixel
;
1105 unload_color (f
, x
->cursor_foreground_pixel
);
1106 if (!fore_pixel_allocated_p
)
1107 fore_pixel
= x_copy_color (f
, fore_pixel
);
1108 x
->cursor_foreground_pixel
= fore_pixel
;
1110 unload_color (f
, x
->cursor_pixel
);
1111 if (!pixel_allocated_p
)
1112 pixel
= x_copy_color (f
, pixel
);
1113 x
->cursor_pixel
= pixel
;
1115 if (FRAME_X_WINDOW (f
) != 0)
1118 XSetBackground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, x
->cursor_pixel
);
1119 XSetForeground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, fore_pixel
);
1122 if (FRAME_VISIBLE_P (f
))
1124 x_update_cursor (f
, 0);
1125 x_update_cursor (f
, 1);
1129 update_face_from_frame_parameter (f
, Qcursor_color
, arg
);
1132 /* Set the border-color of frame F to pixel value PIX.
1133 Note that this does not fully take effect if done before
1134 F has an x-window. */
1137 x_set_border_pixel (f
, pix
)
1141 unload_color (f
, f
->output_data
.x
->border_pixel
);
1142 f
->output_data
.x
->border_pixel
= pix
;
1144 if (FRAME_X_WINDOW (f
) != 0 && f
->border_width
> 0)
1147 XSetWindowBorder (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1148 (unsigned long)pix
);
1151 if (FRAME_VISIBLE_P (f
))
1156 /* Set the border-color of frame F to value described by ARG.
1157 ARG can be a string naming a color.
1158 The border-color is used for the border that is drawn by the X server.
1159 Note that this does not fully take effect if done before
1160 F has an x-window; it must be redone when the window is created.
1162 Note: this is done in two routines because of the way X10 works.
1164 Note: under X11, this is normally the province of the window manager,
1165 and so emacs' border colors may be overridden. */
1168 x_set_border_color (f
, arg
, oldval
)
1170 Lisp_Object arg
, oldval
;
1175 pix
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1176 x_set_border_pixel (f
, pix
);
1177 update_face_from_frame_parameter (f
, Qborder_color
, arg
);
1182 x_set_cursor_type (f
, arg
, oldval
)
1184 Lisp_Object arg
, oldval
;
1186 set_frame_cursor_types (f
, arg
);
1188 /* Make sure the cursor gets redrawn. */
1189 cursor_type_changed
= 1;
1193 x_set_icon_type (f
, arg
, oldval
)
1195 Lisp_Object arg
, oldval
;
1201 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1204 else if (!STRINGP (oldval
) && EQ (oldval
, Qnil
) == EQ (arg
, Qnil
))
1209 result
= x_text_icon (f
,
1210 (char *) SDATA ((!NILP (f
->icon_name
)
1214 result
= x_bitmap_icon (f
, arg
);
1219 error ("No icon window available");
1222 XFlush (FRAME_X_DISPLAY (f
));
1227 x_set_icon_name (f
, arg
, oldval
)
1229 Lisp_Object arg
, oldval
;
1235 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1238 else if (!STRINGP (oldval
) && EQ (oldval
, Qnil
) == EQ (arg
, Qnil
))
1243 if (f
->output_data
.x
->icon_bitmap
!= 0)
1248 result
= x_text_icon (f
,
1249 (char *) SDATA ((!NILP (f
->icon_name
)
1258 error ("No icon window available");
1261 XFlush (FRAME_X_DISPLAY (f
));
1267 x_set_menu_bar_lines (f
, value
, oldval
)
1269 Lisp_Object value
, oldval
;
1272 #if ! defined (USE_X_TOOLKIT) && ! defined (USE_GTK)
1273 int olines
= FRAME_MENU_BAR_LINES (f
);
1276 /* Right now, menu bars don't work properly in minibuf-only frames;
1277 most of the commands try to apply themselves to the minibuffer
1278 frame itself, and get an error because you can't switch buffers
1279 in or split the minibuffer window. */
1280 if (FRAME_MINIBUF_ONLY_P (f
))
1283 if (INTEGERP (value
))
1284 nlines
= XINT (value
);
1288 /* Make sure we redisplay all windows in this frame. */
1289 windows_or_buffers_changed
++;
1291 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
1292 FRAME_MENU_BAR_LINES (f
) = 0;
1295 FRAME_EXTERNAL_MENU_BAR (f
) = 1;
1296 if (FRAME_X_P (f
) && f
->output_data
.x
->menubar_widget
== 0)
1297 /* Make sure next redisplay shows the menu bar. */
1298 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= Qt
;
1302 if (FRAME_EXTERNAL_MENU_BAR (f
) == 1)
1303 free_frame_menubar (f
);
1304 FRAME_EXTERNAL_MENU_BAR (f
) = 0;
1306 f
->output_data
.x
->menubar_widget
= 0;
1308 #else /* not USE_X_TOOLKIT && not USE_GTK */
1309 FRAME_MENU_BAR_LINES (f
) = nlines
;
1310 change_window_heights (f
->root_window
, nlines
- olines
);
1311 #endif /* not USE_X_TOOLKIT */
1316 /* Set the number of lines used for the tool bar of frame F to VALUE.
1317 VALUE not an integer, or < 0 means set the lines to zero. OLDVAL
1318 is the old number of tool bar lines. This function changes the
1319 height of all windows on frame F to match the new tool bar height.
1320 The frame's height doesn't change. */
1323 x_set_tool_bar_lines (f
, value
, oldval
)
1325 Lisp_Object value
, oldval
;
1327 int delta
, nlines
, root_height
;
1328 Lisp_Object root_window
;
1330 /* Treat tool bars like menu bars. */
1331 if (FRAME_MINIBUF_ONLY_P (f
))
1334 /* Use VALUE only if an integer >= 0. */
1335 if (INTEGERP (value
) && XINT (value
) >= 0)
1336 nlines
= XFASTINT (value
);
1341 FRAME_TOOL_BAR_LINES (f
) = 0;
1344 FRAME_EXTERNAL_TOOL_BAR (f
) = 1;
1345 if (FRAME_X_P (f
) && f
->output_data
.x
->toolbar_widget
== 0)
1346 /* Make sure next redisplay shows the tool bar. */
1347 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= Qt
;
1348 update_frame_tool_bar (f
);
1352 if (FRAME_EXTERNAL_TOOL_BAR (f
))
1353 free_frame_tool_bar (f
);
1354 FRAME_EXTERNAL_TOOL_BAR (f
) = 0;
1360 /* Make sure we redisplay all windows in this frame. */
1361 ++windows_or_buffers_changed
;
1363 delta
= nlines
- FRAME_TOOL_BAR_LINES (f
);
1365 /* Don't resize the tool-bar to more than we have room for. */
1366 root_window
= FRAME_ROOT_WINDOW (f
);
1367 root_height
= WINDOW_TOTAL_LINES (XWINDOW (root_window
));
1368 if (root_height
- delta
< 1)
1370 delta
= root_height
- 1;
1371 nlines
= FRAME_TOOL_BAR_LINES (f
) + delta
;
1374 FRAME_TOOL_BAR_LINES (f
) = nlines
;
1375 change_window_heights (root_window
, delta
);
1378 /* We also have to make sure that the internal border at the top of
1379 the frame, below the menu bar or tool bar, is redrawn when the
1380 tool bar disappears. This is so because the internal border is
1381 below the tool bar if one is displayed, but is below the menu bar
1382 if there isn't a tool bar. The tool bar draws into the area
1383 below the menu bar. */
1384 if (FRAME_X_WINDOW (f
) && FRAME_TOOL_BAR_LINES (f
) == 0)
1388 clear_current_matrices (f
);
1389 updating_frame
= NULL
;
1392 /* If the tool bar gets smaller, the internal border below it
1393 has to be cleared. It was formerly part of the display
1394 of the larger tool bar, and updating windows won't clear it. */
1397 int height
= FRAME_INTERNAL_BORDER_WIDTH (f
);
1398 int width
= FRAME_PIXEL_WIDTH (f
);
1399 int y
= nlines
* FRAME_LINE_HEIGHT (f
);
1401 /* height can be zero here. */
1402 if (height
> 0 && width
> 0)
1405 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1406 0, y
, width
, height
, False
);
1410 if (WINDOWP (f
->tool_bar_window
))
1411 clear_glyph_matrix (XWINDOW (f
->tool_bar_window
)->current_matrix
);
1416 /* Set the foreground color for scroll bars on frame F to VALUE.
1417 VALUE should be a string, a color name. If it isn't a string or
1418 isn't a valid color name, do nothing. OLDVAL is the old value of
1419 the frame parameter. */
1422 x_set_scroll_bar_foreground (f
, value
, oldval
)
1424 Lisp_Object value
, oldval
;
1426 unsigned long pixel
;
1428 if (STRINGP (value
))
1429 pixel
= x_decode_color (f
, value
, BLACK_PIX_DEFAULT (f
));
1433 if (f
->output_data
.x
->scroll_bar_foreground_pixel
!= -1)
1434 unload_color (f
, f
->output_data
.x
->scroll_bar_foreground_pixel
);
1436 f
->output_data
.x
->scroll_bar_foreground_pixel
= pixel
;
1437 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1439 /* Remove all scroll bars because they have wrong colors. */
1440 if (condemn_scroll_bars_hook
)
1441 (*condemn_scroll_bars_hook
) (f
);
1442 if (judge_scroll_bars_hook
)
1443 (*judge_scroll_bars_hook
) (f
);
1445 update_face_from_frame_parameter (f
, Qscroll_bar_foreground
, value
);
1451 /* Set the background color for scroll bars on frame F to VALUE VALUE
1452 should be a string, a color name. If it isn't a string or isn't a
1453 valid color name, do nothing. OLDVAL is the old value of the frame
1457 x_set_scroll_bar_background (f
, value
, oldval
)
1459 Lisp_Object value
, oldval
;
1461 unsigned long pixel
;
1463 if (STRINGP (value
))
1464 pixel
= x_decode_color (f
, value
, WHITE_PIX_DEFAULT (f
));
1468 if (f
->output_data
.x
->scroll_bar_background_pixel
!= -1)
1469 unload_color (f
, f
->output_data
.x
->scroll_bar_background_pixel
);
1471 #ifdef USE_TOOLKIT_SCROLL_BARS
1472 /* Scrollbar shadow colors. */
1473 if (f
->output_data
.x
->scroll_bar_top_shadow_pixel
!= -1)
1475 unload_color (f
, f
->output_data
.x
->scroll_bar_top_shadow_pixel
);
1476 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
1478 if (f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
!= -1)
1480 unload_color (f
, f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
);
1481 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
1483 #endif /* USE_TOOLKIT_SCROLL_BARS */
1485 f
->output_data
.x
->scroll_bar_background_pixel
= pixel
;
1486 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1488 /* Remove all scroll bars because they have wrong colors. */
1489 if (condemn_scroll_bars_hook
)
1490 (*condemn_scroll_bars_hook
) (f
);
1491 if (judge_scroll_bars_hook
)
1492 (*judge_scroll_bars_hook
) (f
);
1494 update_face_from_frame_parameter (f
, Qscroll_bar_background
, value
);
1500 /* Encode Lisp string STRING as a text in a format appropriate for
1501 XICCC (X Inter Client Communication Conventions).
1503 If STRING contains only ASCII characters, do no conversion and
1504 return the string data of STRING. Otherwise, encode the text by
1505 CODING_SYSTEM, and return a newly allocated memory area which
1506 should be freed by `xfree' by a caller.
1508 SELECTIONP non-zero means the string is being encoded for an X
1509 selection, so it is safe to run pre-write conversions (which
1512 Store the byte length of resulting text in *TEXT_BYTES.
1514 If the text contains only ASCII and Latin-1, store 1 in *STRING_P,
1515 which means that the `encoding' of the result can be `STRING'.
1516 Otherwise store 0 in *STRINGP, which means that the `encoding' of
1517 the result should be `COMPOUND_TEXT'. */
1520 x_encode_text (string
, coding_system
, selectionp
, text_bytes
, stringp
)
1521 Lisp_Object string
, coding_system
;
1522 int *text_bytes
, *stringp
;
1525 unsigned char *str
= SDATA (string
);
1526 int chars
= SCHARS (string
);
1527 int bytes
= SBYTES (string
);
1531 struct coding_system coding
;
1532 extern Lisp_Object Qcompound_text_with_extensions
;
1534 charset_info
= find_charset_in_text (str
, chars
, bytes
, NULL
, Qnil
);
1535 if (charset_info
== 0)
1537 /* No multibyte character in OBJ. We need not encode it. */
1538 *text_bytes
= bytes
;
1543 setup_coding_system (coding_system
, &coding
);
1545 && SYMBOLP (coding
.pre_write_conversion
)
1546 && !NILP (Ffboundp (coding
.pre_write_conversion
)))
1548 string
= run_pre_post_conversion_on_str (string
, &coding
, 1);
1549 str
= SDATA (string
);
1550 chars
= SCHARS (string
);
1551 bytes
= SBYTES (string
);
1553 coding
.src_multibyte
= 1;
1554 coding
.dst_multibyte
= 0;
1555 coding
.mode
|= CODING_MODE_LAST_BLOCK
;
1556 if (coding
.type
== coding_type_iso2022
)
1557 coding
.flags
|= CODING_FLAG_ISO_SAFE
;
1558 /* We suppress producing escape sequences for composition. */
1559 coding
.composing
= COMPOSITION_DISABLED
;
1560 bufsize
= encoding_buffer_size (&coding
, bytes
);
1561 buf
= (unsigned char *) xmalloc (bufsize
);
1562 encode_coding (&coding
, str
, buf
, bytes
, bufsize
);
1563 *text_bytes
= coding
.produced
;
1564 *stringp
= (charset_info
== 1
1565 || (!EQ (coding_system
, Qcompound_text
)
1566 && !EQ (coding_system
, Qcompound_text_with_extensions
)));
1571 /* Set the WM name to NAME for frame F. Also set the icon name.
1572 If the frame already has an icon name, use that, otherwise set the
1573 icon name to NAME. */
1576 x_set_name_internal (f
, name
)
1580 if (FRAME_X_WINDOW (f
))
1585 XTextProperty text
, icon
;
1587 int do_free_icon_value
= 0, do_free_text_value
= 0;
1588 Lisp_Object coding_system
;
1590 coding_system
= Qcompound_text
;
1591 /* Note: Encoding strategy
1593 We encode NAME by compound-text and use "COMPOUND-TEXT" in
1594 text.encoding. But, there are non-internationalized window
1595 managers which don't support that encoding. So, if NAME
1596 contains only ASCII and 8859-1 characters, encode it by
1597 iso-latin-1, and use "STRING" in text.encoding hoping that
1598 such window managers at least analyze this format correctly,
1599 i.e. treat 8-bit bytes as 8859-1 characters.
1601 We may also be able to use "UTF8_STRING" in text.encoding
1602 in the future which can encode all Unicode characters.
1603 But, for the moment, there's no way to know that the
1604 current window manager supports it or not. */
1605 text
.value
= x_encode_text (name
, coding_system
, 0, &bytes
, &stringp
);
1606 text
.encoding
= (stringp
? XA_STRING
1607 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1609 text
.nitems
= bytes
;
1611 /* Check early, because ENCODE_UTF_8 below may GC and name may be
1613 do_free_text_value
= text
.value
!= SDATA (name
);
1615 if (NILP (f
->icon_name
))
1621 /* See the above comment "Note: Encoding strategy". */
1622 icon
.value
= x_encode_text (f
->icon_name
, coding_system
, 0,
1624 icon
.encoding
= (stringp
? XA_STRING
1625 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1627 icon
.nitems
= bytes
;
1628 do_free_icon_value
= icon
.value
!= SDATA (f
->icon_name
);
1632 gtk_window_set_title (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
1633 SDATA (ENCODE_UTF_8 (name
)));
1634 #else /* not USE_GTK */
1635 XSetWMName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &text
);
1636 #endif /* not USE_GTK */
1638 XSetWMIconName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &icon
);
1640 if (do_free_icon_value
)
1642 if (do_free_text_value
)
1645 #else /* not HAVE_X11R4 */
1646 XSetIconName (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1648 XStoreName (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1650 #endif /* not HAVE_X11R4 */
1655 /* Change the name of frame F to NAME. If NAME is nil, set F's name to
1658 If EXPLICIT is non-zero, that indicates that lisp code is setting the
1659 name; if NAME is a string, set F's name to NAME and set
1660 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1662 If EXPLICIT is zero, that indicates that Emacs redisplay code is
1663 suggesting a new name, which lisp code should override; if
1664 F->explicit_name is set, ignore the new name; otherwise, set it. */
1667 x_set_name (f
, name
, explicit)
1672 /* Make sure that requests from lisp code override requests from
1673 Emacs redisplay code. */
1676 /* If we're switching from explicit to implicit, we had better
1677 update the mode lines and thereby update the title. */
1678 if (f
->explicit_name
&& NILP (name
))
1679 update_mode_lines
= 1;
1681 f
->explicit_name
= ! NILP (name
);
1683 else if (f
->explicit_name
)
1686 /* If NAME is nil, set the name to the x_id_name. */
1689 /* Check for no change needed in this very common case
1690 before we do any consing. */
1691 if (!strcmp (FRAME_X_DISPLAY_INFO (f
)->x_id_name
,
1694 name
= build_string (FRAME_X_DISPLAY_INFO (f
)->x_id_name
);
1697 CHECK_STRING (name
);
1699 /* Don't change the name if it's already NAME. */
1700 if (! NILP (Fstring_equal (name
, f
->name
)))
1705 /* For setting the frame title, the title parameter should override
1706 the name parameter. */
1707 if (! NILP (f
->title
))
1710 x_set_name_internal (f
, name
);
1713 /* This function should be called when the user's lisp code has
1714 specified a name for the frame; the name will override any set by the
1717 x_explicitly_set_name (f
, arg
, oldval
)
1719 Lisp_Object arg
, oldval
;
1721 x_set_name (f
, arg
, 1);
1724 /* This function should be called by Emacs redisplay code to set the
1725 name; names set this way will never override names set by the user's
1728 x_implicitly_set_name (f
, arg
, oldval
)
1730 Lisp_Object arg
, oldval
;
1732 x_set_name (f
, arg
, 0);
1735 /* Change the title of frame F to NAME.
1736 If NAME is nil, use the frame name as the title.
1738 If EXPLICIT is non-zero, that indicates that lisp code is setting the
1739 name; if NAME is a string, set F's name to NAME and set
1740 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1742 If EXPLICIT is zero, that indicates that Emacs redisplay code is
1743 suggesting a new name, which lisp code should override; if
1744 F->explicit_name is set, ignore the new name; otherwise, set it. */
1747 x_set_title (f
, name
, old_name
)
1749 Lisp_Object name
, old_name
;
1751 /* Don't change the title if it's already NAME. */
1752 if (EQ (name
, f
->title
))
1755 update_mode_lines
= 1;
1762 CHECK_STRING (name
);
1764 x_set_name_internal (f
, name
);
1768 x_set_scroll_bar_default_width (f
)
1771 int wid
= FRAME_COLUMN_WIDTH (f
);
1773 #ifdef USE_TOOLKIT_SCROLL_BARS
1774 /* A minimum width of 14 doesn't look good for toolkit scroll bars. */
1775 int width
= 16 + 2 * VERTICAL_SCROLL_BAR_WIDTH_TRIM
;
1776 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (width
+ wid
- 1) / wid
;
1777 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = width
;
1779 /* Make the actual width at least 14 pixels and a multiple of a
1781 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (14 + wid
- 1) / wid
;
1783 /* Use all of that space (aside from required margins) for the
1785 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = 0;
1790 /* Record in frame F the specified or default value according to ALIST
1791 of the parameter named PROP (a Lisp symbol). If no value is
1792 specified for PROP, look for an X default for XPROP on the frame
1793 named NAME. If that is not found either, use the value DEFLT. */
1796 x_default_scroll_bar_color_parameter (f
, alist
, prop
, xprop
, xclass
,
1805 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
1808 tem
= x_get_arg (dpyinfo
, alist
, prop
, xprop
, xclass
, RES_TYPE_STRING
);
1809 if (EQ (tem
, Qunbound
))
1811 #ifdef USE_TOOLKIT_SCROLL_BARS
1813 /* See if an X resource for the scroll bar color has been
1815 tem
= display_x_get_resource (dpyinfo
,
1816 build_string (foreground_p
1820 build_string ("verticalScrollBar"),
1824 /* If nothing has been specified, scroll bars will use a
1825 toolkit-dependent default. Because these defaults are
1826 difficult to get at without actually creating a scroll
1827 bar, use nil to indicate that no color has been
1832 #else /* not USE_TOOLKIT_SCROLL_BARS */
1836 #endif /* not USE_TOOLKIT_SCROLL_BARS */
1839 x_set_frame_parameters (f
, Fcons (Fcons (prop
, tem
), Qnil
));
1845 #if !defined (HAVE_X11R4) && !defined (HAVE_XSETWMPROTOCOLS)
1848 XSetWMProtocols (dpy
, w
, protocols
, count
)
1855 prop
= XInternAtom (dpy
, "WM_PROTOCOLS", False
);
1856 if (prop
== None
) return False
;
1857 XChangeProperty (dpy
, w
, prop
, XA_ATOM
, 32, PropModeReplace
,
1858 (unsigned char *) protocols
, count
);
1861 #endif /* not HAVE_X11R4 && not HAVE_XSETWMPROTOCOLS */
1863 #ifdef USE_X_TOOLKIT
1865 /* If the WM_PROTOCOLS property does not already contain WM_TAKE_FOCUS,
1866 WM_DELETE_WINDOW, and WM_SAVE_YOURSELF, then add them. (They may
1867 already be present because of the toolkit (Motif adds some of them,
1868 for example, but Xt doesn't). */
1871 hack_wm_protocols (f
, widget
)
1875 Display
*dpy
= XtDisplay (widget
);
1876 Window w
= XtWindow (widget
);
1877 int need_delete
= 1;
1883 Atom type
, *atoms
= 0;
1885 unsigned long nitems
= 0;
1886 unsigned long bytes_after
;
1888 if ((XGetWindowProperty (dpy
, w
,
1889 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1890 (long)0, (long)100, False
, XA_ATOM
,
1891 &type
, &format
, &nitems
, &bytes_after
,
1892 (unsigned char **) &atoms
)
1894 && format
== 32 && type
== XA_ATOM
)
1898 if (atoms
[nitems
] == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
)
1900 else if (atoms
[nitems
] == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
)
1902 else if (atoms
[nitems
] == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
)
1905 if (atoms
) XFree ((char *) atoms
);
1911 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
1913 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
;
1915 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
1917 XChangeProperty (dpy
, w
, FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1918 XA_ATOM
, 32, PropModeAppend
,
1919 (unsigned char *) props
, count
);
1927 /* Support routines for XIC (X Input Context). */
1931 static XFontSet xic_create_xfontset
P_ ((struct frame
*, char *));
1932 static XIMStyle best_xim_style
P_ ((XIMStyles
*, XIMStyles
*));
1935 /* Supported XIM styles, ordered by preference. */
1937 static XIMStyle supported_xim_styles
[] =
1939 XIMPreeditPosition
| XIMStatusArea
,
1940 XIMPreeditPosition
| XIMStatusNothing
,
1941 XIMPreeditPosition
| XIMStatusNone
,
1942 XIMPreeditNothing
| XIMStatusArea
,
1943 XIMPreeditNothing
| XIMStatusNothing
,
1944 XIMPreeditNothing
| XIMStatusNone
,
1945 XIMPreeditNone
| XIMStatusArea
,
1946 XIMPreeditNone
| XIMStatusNothing
,
1947 XIMPreeditNone
| XIMStatusNone
,
1952 /* Create an X fontset on frame F with base font name BASE_FONTNAME. */
1955 xic_create_xfontset (f
, base_fontname
)
1957 char *base_fontname
;
1959 XFontSet xfs
= NULL
;
1960 char **missing_list
= NULL
;
1963 Lisp_Object rest
, frame
;
1965 /* See if there is another frame already using same fontset. */
1966 FOR_EACH_FRAME (rest
, frame
)
1968 struct frame
*cf
= XFRAME (frame
);
1969 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
1970 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
1971 && FRAME_XIC_BASE_FONTNAME (cf
)
1972 && !strcmp (FRAME_XIC_BASE_FONTNAME (cf
), base_fontname
))
1974 xfs
= FRAME_XIC_FONTSET (cf
);
1982 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
),
1983 base_fontname
, &missing_list
,
1984 &missing_count
, &def_string
);
1986 XFreeStringList (missing_list
);
1989 if (FRAME_XIC_BASE_FONTNAME (f
))
1990 xfree (FRAME_XIC_BASE_FONTNAME (f
));
1991 FRAME_XIC_BASE_FONTNAME (f
) = xstrdup (base_fontname
);
1993 /* No need to free def_string. */
1997 /* Free the X fontset of frame F if it is the last frame using it. */
2000 xic_free_xfontset (f
)
2003 Lisp_Object rest
, frame
;
2006 if (!FRAME_XIC_FONTSET (f
))
2009 /* See if there is another frame sharing the same fontset. */
2010 FOR_EACH_FRAME (rest
, frame
)
2012 struct frame
*cf
= XFRAME (frame
);
2013 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
2014 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
2015 && FRAME_XIC_FONTSET (cf
) == FRAME_XIC_FONTSET (f
))
2023 /* The fontset is not used anymore. It is safe to free it. */
2024 XFreeFontSet (FRAME_X_DISPLAY (f
), FRAME_XIC_FONTSET (f
));
2026 if (FRAME_XIC_BASE_FONTNAME (f
))
2027 xfree (FRAME_XIC_BASE_FONTNAME (f
));
2028 FRAME_XIC_BASE_FONTNAME (f
) = NULL
;
2029 FRAME_XIC_FONTSET (f
) = NULL
;
2033 /* Value is the best input style, given user preferences USER (already
2034 checked to be supported by Emacs), and styles supported by the
2035 input method XIM. */
2038 best_xim_style (user
, xim
)
2044 for (i
= 0; i
< user
->count_styles
; ++i
)
2045 for (j
= 0; j
< xim
->count_styles
; ++j
)
2046 if (user
->supported_styles
[i
] == xim
->supported_styles
[j
])
2047 return user
->supported_styles
[i
];
2049 /* Return the default style. */
2050 return XIMPreeditNothing
| XIMStatusNothing
;
2053 /* Create XIC for frame F. */
2055 static XIMStyle xic_style
;
2058 create_frame_xic (f
)
2063 XFontSet xfs
= NULL
;
2068 xim
= FRAME_X_XIM (f
);
2073 XVaNestedList preedit_attr
;
2074 XVaNestedList status_attr
;
2075 char *base_fontname
;
2078 s_area
.x
= 0; s_area
.y
= 0; s_area
.width
= 1; s_area
.height
= 1;
2079 spot
.x
= 0; spot
.y
= 1;
2080 /* Create X fontset. */
2081 fontset
= FRAME_FONTSET (f
);
2083 base_fontname
= "-*-*-*-r-normal--14-*-*-*-*-*-*-*";
2086 /* Determine the base fontname from the ASCII font name of
2088 char *ascii_font
= (char *) SDATA (fontset_ascii (fontset
));
2089 char *p
= ascii_font
;
2092 for (i
= 0; *p
; p
++)
2095 /* As the font name doesn't conform to XLFD, we can't
2096 modify it to get a suitable base fontname for the
2098 base_fontname
= "-*-*-*-r-normal--14-*-*-*-*-*-*-*";
2101 int len
= strlen (ascii_font
) + 1;
2104 for (i
= 0, p
= ascii_font
; i
< 8; p
++)
2113 base_fontname
= (char *) alloca (len
);
2114 bzero (base_fontname
, len
);
2115 strcpy (base_fontname
, "-*-*-");
2116 bcopy (p1
, base_fontname
+ 5, p
- p1
);
2117 strcat (base_fontname
, "*-*-*-*-*-*-*");
2120 xfs
= xic_create_xfontset (f
, base_fontname
);
2122 /* Determine XIC style. */
2125 XIMStyles supported_list
;
2126 supported_list
.count_styles
= (sizeof supported_xim_styles
2127 / sizeof supported_xim_styles
[0]);
2128 supported_list
.supported_styles
= supported_xim_styles
;
2129 xic_style
= best_xim_style (&supported_list
,
2130 FRAME_X_XIM_STYLES (f
));
2133 preedit_attr
= XVaCreateNestedList (0,
2136 FRAME_FOREGROUND_PIXEL (f
),
2138 FRAME_BACKGROUND_PIXEL (f
),
2139 (xic_style
& XIMPreeditPosition
2144 status_attr
= XVaCreateNestedList (0,
2150 FRAME_FOREGROUND_PIXEL (f
),
2152 FRAME_BACKGROUND_PIXEL (f
),
2155 xic
= XCreateIC (xim
,
2156 XNInputStyle
, xic_style
,
2157 XNClientWindow
, FRAME_X_WINDOW (f
),
2158 XNFocusWindow
, FRAME_X_WINDOW (f
),
2159 XNStatusAttributes
, status_attr
,
2160 XNPreeditAttributes
, preedit_attr
,
2162 XFree (preedit_attr
);
2163 XFree (status_attr
);
2166 FRAME_XIC (f
) = xic
;
2167 FRAME_XIC_STYLE (f
) = xic_style
;
2168 FRAME_XIC_FONTSET (f
) = xfs
;
2172 /* Destroy XIC and free XIC fontset of frame F, if any. */
2178 if (FRAME_XIC (f
) == NULL
)
2181 XDestroyIC (FRAME_XIC (f
));
2182 xic_free_xfontset (f
);
2184 FRAME_XIC (f
) = NULL
;
2188 /* Place preedit area for XIC of window W's frame to specified
2189 pixel position X/Y. X and Y are relative to window W. */
2192 xic_set_preeditarea (w
, x
, y
)
2196 struct frame
*f
= XFRAME (w
->frame
);
2200 spot
.x
= WINDOW_TO_FRAME_PIXEL_X (w
, x
) + WINDOW_LEFT_FRINGE_WIDTH (w
);
2201 spot
.y
= WINDOW_TO_FRAME_PIXEL_Y (w
, y
) + FONT_BASE (FRAME_FONT (f
));
2202 attr
= XVaCreateNestedList (0, XNSpotLocation
, &spot
, NULL
);
2203 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2208 /* Place status area for XIC in bottom right corner of frame F.. */
2211 xic_set_statusarea (f
)
2214 XIC xic
= FRAME_XIC (f
);
2219 /* Negotiate geometry of status area. If input method has existing
2220 status area, use its current size. */
2221 area
.x
= area
.y
= area
.width
= area
.height
= 0;
2222 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &area
, NULL
);
2223 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2226 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &needed
, NULL
);
2227 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2230 if (needed
->width
== 0) /* Use XNArea instead of XNAreaNeeded */
2232 attr
= XVaCreateNestedList (0, XNArea
, &needed
, NULL
);
2233 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2237 area
.width
= needed
->width
;
2238 area
.height
= needed
->height
;
2239 area
.x
= FRAME_PIXEL_WIDTH (f
) - area
.width
- FRAME_INTERNAL_BORDER_WIDTH (f
);
2240 area
.y
= (FRAME_PIXEL_HEIGHT (f
) - area
.height
2241 - FRAME_MENUBAR_HEIGHT (f
)
2242 - FRAME_TOOLBAR_HEIGHT (f
)
2243 - FRAME_INTERNAL_BORDER_WIDTH (f
));
2246 attr
= XVaCreateNestedList (0, XNArea
, &area
, NULL
);
2247 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2252 /* Set X fontset for XIC of frame F, using base font name
2253 BASE_FONTNAME. Called when a new Emacs fontset is chosen. */
2256 xic_set_xfontset (f
, base_fontname
)
2258 char *base_fontname
;
2263 xic_free_xfontset (f
);
2265 xfs
= xic_create_xfontset (f
, base_fontname
);
2267 attr
= XVaCreateNestedList (0, XNFontSet
, xfs
, NULL
);
2268 if (FRAME_XIC_STYLE (f
) & XIMPreeditPosition
)
2269 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2270 if (FRAME_XIC_STYLE (f
) & XIMStatusArea
)
2271 XSetICValues (FRAME_XIC (f
), XNStatusAttributes
, attr
, NULL
);
2274 FRAME_XIC_FONTSET (f
) = xfs
;
2277 #endif /* HAVE_X_I18N */
2281 #ifdef USE_X_TOOLKIT
2283 /* Create and set up the X widget for frame F. */
2286 x_window (f
, window_prompting
, minibuffer_only
)
2288 long window_prompting
;
2289 int minibuffer_only
;
2291 XClassHint class_hints
;
2292 XSetWindowAttributes attributes
;
2293 unsigned long attribute_mask
;
2294 Widget shell_widget
;
2296 Widget frame_widget
;
2302 /* Use the resource name as the top-level widget name
2303 for looking up resources. Make a non-Lisp copy
2304 for the window manager, so GC relocation won't bother it.
2306 Elsewhere we specify the window name for the window manager. */
2309 char *str
= (char *) SDATA (Vx_resource_name
);
2310 f
->namebuf
= (char *) xmalloc (strlen (str
) + 1);
2311 strcpy (f
->namebuf
, str
);
2315 XtSetArg (al
[ac
], XtNallowShellResize
, 1); ac
++;
2316 XtSetArg (al
[ac
], XtNinput
, 1); ac
++;
2317 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2318 XtSetArg (al
[ac
], XtNborderWidth
, f
->border_width
); ac
++;
2319 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2320 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2321 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2322 shell_widget
= XtAppCreateShell (f
->namebuf
, EMACS_CLASS
,
2323 applicationShellWidgetClass
,
2324 FRAME_X_DISPLAY (f
), al
, ac
);
2326 f
->output_data
.x
->widget
= shell_widget
;
2327 /* maybe_set_screen_title_format (shell_widget); */
2329 pane_widget
= lw_create_widget ("main", "pane", widget_id_tick
++,
2330 (widget_value
*) NULL
,
2331 shell_widget
, False
,
2335 (lw_callback
) NULL
);
2338 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2339 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2340 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2341 XtSetValues (pane_widget
, al
, ac
);
2342 f
->output_data
.x
->column_widget
= pane_widget
;
2344 /* mappedWhenManaged to false tells to the paned window to not map/unmap
2345 the emacs screen when changing menubar. This reduces flickering. */
2348 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2349 XtSetArg (al
[ac
], XtNshowGrip
, 0); ac
++;
2350 XtSetArg (al
[ac
], XtNallowResize
, 1); ac
++;
2351 XtSetArg (al
[ac
], XtNresizeToPreferred
, 1); ac
++;
2352 XtSetArg (al
[ac
], XtNemacsFrame
, f
); ac
++;
2353 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2354 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2355 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2356 frame_widget
= XtCreateWidget (f
->namebuf
, emacsFrameClass
, pane_widget
,
2359 f
->output_data
.x
->edit_widget
= frame_widget
;
2361 XtManageChild (frame_widget
);
2363 /* Do some needed geometry management. */
2366 char *tem
, shell_position
[32];
2369 int extra_borders
= 0;
2371 = (f
->output_data
.x
->menubar_widget
2372 ? (f
->output_data
.x
->menubar_widget
->core
.height
2373 + f
->output_data
.x
->menubar_widget
->core
.border_width
)
2376 #if 0 /* Experimentally, we now get the right results
2377 for -geometry -0-0 without this. 24 Aug 96, rms. */
2378 if (FRAME_EXTERNAL_MENU_BAR (f
))
2381 XtVaGetValues (pane_widget
, XtNinternalBorderWidth
, &ibw
, NULL
);
2382 menubar_size
+= ibw
;
2386 f
->output_data
.x
->menubar_height
= menubar_size
;
2389 /* Motif seems to need this amount added to the sizes
2390 specified for the shell widget. The Athena/Lucid widgets don't.
2391 Both conclusions reached experimentally. -- rms. */
2392 XtVaGetValues (f
->output_data
.x
->edit_widget
, XtNinternalBorderWidth
,
2393 &extra_borders
, NULL
);
2397 /* Convert our geometry parameters into a geometry string
2399 Note that we do not specify here whether the position
2400 is a user-specified or program-specified one.
2401 We pass that information later, in x_wm_set_size_hints. */
2403 int left
= f
->left_pos
;
2404 int xneg
= window_prompting
& XNegative
;
2405 int top
= f
->top_pos
;
2406 int yneg
= window_prompting
& YNegative
;
2412 if (window_prompting
& USPosition
)
2413 sprintf (shell_position
, "=%dx%d%c%d%c%d",
2414 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2415 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
,
2416 (xneg
? '-' : '+'), left
,
2417 (yneg
? '-' : '+'), top
);
2420 sprintf (shell_position
, "=%dx%d",
2421 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2422 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
);
2424 /* Setting x and y when the position is not specified in
2425 the geometry string will set program position in the WM hints.
2426 If Emacs had just one program position, we could set it in
2427 fallback resources, but since each make-frame call can specify
2428 different program positions, this is easier. */
2429 XtSetArg (al
[ac
], XtNx
, left
); ac
++;
2430 XtSetArg (al
[ac
], XtNy
, top
); ac
++;
2434 len
= strlen (shell_position
) + 1;
2435 /* We don't free this because we don't know whether
2436 it is safe to free it while the frame exists.
2437 It isn't worth the trouble of arranging to free it
2438 when the frame is deleted. */
2439 tem
= (char *) xmalloc (len
);
2440 strncpy (tem
, shell_position
, len
);
2441 XtSetArg (al
[ac
], XtNgeometry
, tem
); ac
++;
2442 XtSetValues (shell_widget
, al
, ac
);
2445 XtManageChild (pane_widget
);
2446 XtRealizeWidget (shell_widget
);
2448 FRAME_X_WINDOW (f
) = XtWindow (frame_widget
);
2450 validate_x_resource_name ();
2452 class_hints
.res_name
= (char *) SDATA (Vx_resource_name
);
2453 class_hints
.res_class
= (char *) SDATA (Vx_resource_class
);
2454 XSetClassHint (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
), &class_hints
);
2457 FRAME_XIC (f
) = NULL
;
2459 create_frame_xic (f
);
2462 f
->output_data
.x
->wm_hints
.input
= True
;
2463 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2464 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2465 &f
->output_data
.x
->wm_hints
);
2467 hack_wm_protocols (f
, shell_widget
);
2470 XtAddEventHandler (shell_widget
, 0, True
, _XEditResCheckMessages
, 0);
2473 /* Do a stupid property change to force the server to generate a
2474 PropertyNotify event so that the event_stream server timestamp will
2475 be initialized to something relevant to the time we created the window.
2477 XChangeProperty (XtDisplay (frame_widget
), XtWindow (frame_widget
),
2478 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
2479 XA_ATOM
, 32, PropModeAppend
,
2480 (unsigned char*) NULL
, 0);
2482 /* Make all the standard events reach the Emacs frame. */
2483 attributes
.event_mask
= STANDARD_EVENT_SET
;
2488 /* XIM server might require some X events. */
2489 unsigned long fevent
= NoEventMask
;
2490 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2491 attributes
.event_mask
|= fevent
;
2493 #endif /* HAVE_X_I18N */
2495 attribute_mask
= CWEventMask
;
2496 XChangeWindowAttributes (XtDisplay (shell_widget
), XtWindow (shell_widget
),
2497 attribute_mask
, &attributes
);
2499 XtMapWidget (frame_widget
);
2501 /* x_set_name normally ignores requests to set the name if the
2502 requested name is the same as the current name. This is the one
2503 place where that assumption isn't correct; f->name is set, but
2504 the X server hasn't been told. */
2507 int explicit = f
->explicit_name
;
2509 f
->explicit_name
= 0;
2512 x_set_name (f
, name
, explicit);
2515 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2516 f
->output_data
.x
->text_cursor
);
2520 /* This is a no-op, except under Motif. Make sure main areas are
2521 set to something reasonable, in case we get an error later. */
2522 lw_set_main_areas (pane_widget
, 0, frame_widget
);
2525 #else /* not USE_X_TOOLKIT */
2531 if (! xg_create_frame_widgets (f
))
2532 error ("Unable to create window");
2535 FRAME_XIC (f
) = NULL
;
2539 create_frame_xic (f
);
2542 /* XIM server might require some X events. */
2543 unsigned long fevent
= NoEventMask
;
2544 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2546 if (fevent
!= NoEventMask
)
2548 XSetWindowAttributes attributes
;
2549 XWindowAttributes wattr
;
2550 unsigned long attribute_mask
;
2552 XGetWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2554 attributes
.event_mask
= wattr
.your_event_mask
| fevent
;
2555 attribute_mask
= CWEventMask
;
2556 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2557 attribute_mask
, &attributes
);
2565 #else /*! USE_GTK */
2566 /* Create and set up the X window for frame F. */
2573 XClassHint class_hints
;
2574 XSetWindowAttributes attributes
;
2575 unsigned long attribute_mask
;
2577 attributes
.background_pixel
= f
->output_data
.x
->background_pixel
;
2578 attributes
.border_pixel
= f
->output_data
.x
->border_pixel
;
2579 attributes
.bit_gravity
= StaticGravity
;
2580 attributes
.backing_store
= NotUseful
;
2581 attributes
.save_under
= True
;
2582 attributes
.event_mask
= STANDARD_EVENT_SET
;
2583 attributes
.colormap
= FRAME_X_COLORMAP (f
);
2584 attribute_mask
= (CWBackPixel
| CWBorderPixel
| CWBitGravity
| CWEventMask
2589 = XCreateWindow (FRAME_X_DISPLAY (f
),
2590 f
->output_data
.x
->parent_desc
,
2593 FRAME_PIXEL_WIDTH (f
), FRAME_PIXEL_HEIGHT (f
),
2595 CopyFromParent
, /* depth */
2596 InputOutput
, /* class */
2598 attribute_mask
, &attributes
);
2603 create_frame_xic (f
);
2606 /* XIM server might require some X events. */
2607 unsigned long fevent
= NoEventMask
;
2608 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2609 attributes
.event_mask
|= fevent
;
2610 attribute_mask
= CWEventMask
;
2611 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2612 attribute_mask
, &attributes
);
2615 #endif /* HAVE_X_I18N */
2617 validate_x_resource_name ();
2619 class_hints
.res_name
= (char *) SDATA (Vx_resource_name
);
2620 class_hints
.res_class
= (char *) SDATA (Vx_resource_class
);
2621 XSetClassHint (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), &class_hints
);
2623 /* The menubar is part of the ordinary display;
2624 it does not count in addition to the height of the window. */
2625 f
->output_data
.x
->menubar_height
= 0;
2627 /* This indicates that we use the "Passive Input" input model.
2628 Unless we do this, we don't get the Focus{In,Out} events that we
2629 need to draw the cursor correctly. Accursed bureaucrats.
2630 XWhipsAndChains (FRAME_X_DISPLAY (f), IronMaiden, &TheRack); */
2632 f
->output_data
.x
->wm_hints
.input
= True
;
2633 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2634 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2635 &f
->output_data
.x
->wm_hints
);
2636 f
->output_data
.x
->wm_hints
.icon_pixmap
= None
;
2638 /* Request "save yourself" and "delete window" commands from wm. */
2641 protocols
[0] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
2642 protocols
[1] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
2643 XSetWMProtocols (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), protocols
, 2);
2646 /* x_set_name normally ignores requests to set the name if the
2647 requested name is the same as the current name. This is the one
2648 place where that assumption isn't correct; f->name is set, but
2649 the X server hasn't been told. */
2652 int explicit = f
->explicit_name
;
2654 f
->explicit_name
= 0;
2657 x_set_name (f
, name
, explicit);
2660 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2661 f
->output_data
.x
->text_cursor
);
2665 if (FRAME_X_WINDOW (f
) == 0)
2666 error ("Unable to create window");
2669 #endif /* not USE_GTK */
2670 #endif /* not USE_X_TOOLKIT */
2672 /* Verify that the icon position args for this window are valid. */
2675 x_icon_verify (f
, parms
)
2679 Lisp_Object icon_x
, icon_y
;
2681 /* Set the position of the icon. Note that twm groups all
2682 icons in an icon window. */
2683 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2684 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2685 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2687 CHECK_NUMBER (icon_x
);
2688 CHECK_NUMBER (icon_y
);
2690 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2691 error ("Both left and top icon corners of icon must be specified");
2694 /* Handle the icon stuff for this window. Perhaps later we might
2695 want an x_set_icon_position which can be called interactively as
2703 Lisp_Object icon_x
, icon_y
;
2704 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2706 /* Set the position of the icon. Note that twm groups all
2707 icons in an icon window. */
2708 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2709 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2710 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2712 CHECK_NUMBER (icon_x
);
2713 CHECK_NUMBER (icon_y
);
2715 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2716 error ("Both left and top icon corners of icon must be specified");
2720 if (! EQ (icon_x
, Qunbound
))
2721 x_wm_set_icon_position (f
, XINT (icon_x
), XINT (icon_y
));
2723 /* Start up iconic or window? */
2724 x_wm_set_window_state
2725 (f
, (EQ (x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0, RES_TYPE_SYMBOL
),
2730 x_text_icon (f
, (char *) SDATA ((!NILP (f
->icon_name
)
2737 /* Make the GCs needed for this window, setting the
2738 background, border and mouse colors; also create the
2739 mouse cursor and the gray border tile. */
2741 static char cursor_bits
[] =
2743 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2744 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2745 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2746 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00
2753 XGCValues gc_values
;
2757 /* Create the GCs of this frame.
2758 Note that many default values are used. */
2761 gc_values
.font
= FRAME_FONT (f
)->fid
;
2762 gc_values
.foreground
= f
->output_data
.x
->foreground_pixel
;
2763 gc_values
.background
= f
->output_data
.x
->background_pixel
;
2764 gc_values
.line_width
= 0; /* Means 1 using fast algorithm. */
2765 f
->output_data
.x
->normal_gc
2766 = XCreateGC (FRAME_X_DISPLAY (f
),
2768 GCLineWidth
| GCFont
| GCForeground
| GCBackground
,
2771 /* Reverse video style. */
2772 gc_values
.foreground
= f
->output_data
.x
->background_pixel
;
2773 gc_values
.background
= f
->output_data
.x
->foreground_pixel
;
2774 f
->output_data
.x
->reverse_gc
2775 = XCreateGC (FRAME_X_DISPLAY (f
),
2777 GCFont
| GCForeground
| GCBackground
| GCLineWidth
,
2780 /* Cursor has cursor-color background, background-color foreground. */
2781 gc_values
.foreground
= f
->output_data
.x
->background_pixel
;
2782 gc_values
.background
= f
->output_data
.x
->cursor_pixel
;
2783 gc_values
.fill_style
= FillOpaqueStippled
;
2785 = XCreateBitmapFromData (FRAME_X_DISPLAY (f
),
2786 FRAME_X_DISPLAY_INFO (f
)->root_window
,
2787 cursor_bits
, 16, 16);
2788 f
->output_data
.x
->cursor_gc
2789 = XCreateGC (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2790 (GCFont
| GCForeground
| GCBackground
2791 | GCFillStyle
/* | GCStipple */ | GCLineWidth
),
2795 f
->output_data
.x
->white_relief
.gc
= 0;
2796 f
->output_data
.x
->black_relief
.gc
= 0;
2798 /* Create the gray border tile used when the pointer is not in
2799 the frame. Since this depends on the frame's pixel values,
2800 this must be done on a per-frame basis. */
2801 f
->output_data
.x
->border_tile
2802 = (XCreatePixmapFromBitmapData
2803 (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
2804 gray_bits
, gray_width
, gray_height
,
2805 f
->output_data
.x
->foreground_pixel
,
2806 f
->output_data
.x
->background_pixel
,
2807 DefaultDepth (FRAME_X_DISPLAY (f
), FRAME_X_SCREEN_NUMBER (f
))));
2813 /* Free what was was allocated in x_make_gc. */
2819 Display
*dpy
= FRAME_X_DISPLAY (f
);
2823 if (f
->output_data
.x
->normal_gc
)
2825 XFreeGC (dpy
, f
->output_data
.x
->normal_gc
);
2826 f
->output_data
.x
->normal_gc
= 0;
2829 if (f
->output_data
.x
->reverse_gc
)
2831 XFreeGC (dpy
, f
->output_data
.x
->reverse_gc
);
2832 f
->output_data
.x
->reverse_gc
= 0;
2835 if (f
->output_data
.x
->cursor_gc
)
2837 XFreeGC (dpy
, f
->output_data
.x
->cursor_gc
);
2838 f
->output_data
.x
->cursor_gc
= 0;
2841 if (f
->output_data
.x
->border_tile
)
2843 XFreePixmap (dpy
, f
->output_data
.x
->border_tile
);
2844 f
->output_data
.x
->border_tile
= 0;
2851 /* Handler for signals raised during x_create_frame and
2852 x_create_top_frame. FRAME is the frame which is partially
2856 unwind_create_frame (frame
)
2859 struct frame
*f
= XFRAME (frame
);
2861 /* If frame is ``official'', nothing to do. */
2862 if (!CONSP (Vframe_list
) || !EQ (XCAR (Vframe_list
), frame
))
2865 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2868 x_free_frame_resources (f
);
2871 /* Check that reference counts are indeed correct. */
2872 xassert (dpyinfo
->reference_count
== dpyinfo_refcount
);
2873 xassert (dpyinfo
->image_cache
->refcount
== image_cache_refcount
);
2882 DEFUN ("x-create-frame", Fx_create_frame
, Sx_create_frame
,
2884 doc
: /* Make a new X window, which is called a "frame" in Emacs terms.
2885 Returns an Emacs frame object.
2886 ALIST is an alist of frame parameters.
2887 If the parameters specify that the frame should not have a minibuffer,
2888 and do not specify a specific minibuffer window to use,
2889 then `default-minibuffer-frame' must be a frame whose minibuffer can
2890 be shared by the new frame.
2892 This function is an internal primitive--use `make-frame' instead. */)
2897 Lisp_Object frame
, tem
;
2899 int minibuffer_only
= 0;
2900 long window_prompting
= 0;
2902 int count
= SPECPDL_INDEX ();
2903 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
2904 Lisp_Object display
;
2905 struct x_display_info
*dpyinfo
= NULL
;
2911 /* Use this general default value to start with
2912 until we know if this frame has a specified name. */
2913 Vx_resource_name
= Vinvocation_name
;
2915 display
= x_get_arg (dpyinfo
, parms
, Qdisplay
, 0, 0, RES_TYPE_STRING
);
2916 if (EQ (display
, Qunbound
))
2918 dpyinfo
= check_x_display_info (display
);
2920 kb
= dpyinfo
->kboard
;
2922 kb
= &the_only_kboard
;
2925 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
2927 && ! EQ (name
, Qunbound
)
2929 error ("Invalid frame name--not a string or nil");
2932 Vx_resource_name
= name
;
2934 /* See if parent window is specified. */
2935 parent
= x_get_arg (dpyinfo
, parms
, Qparent_id
, NULL
, NULL
, RES_TYPE_NUMBER
);
2936 if (EQ (parent
, Qunbound
))
2938 if (! NILP (parent
))
2939 CHECK_NUMBER (parent
);
2941 /* make_frame_without_minibuffer can run Lisp code and garbage collect. */
2942 /* No need to protect DISPLAY because that's not used after passing
2943 it to make_frame_without_minibuffer. */
2945 GCPRO4 (parms
, parent
, name
, frame
);
2946 tem
= x_get_arg (dpyinfo
, parms
, Qminibuffer
, "minibuffer", "Minibuffer",
2948 if (EQ (tem
, Qnone
) || NILP (tem
))
2949 f
= make_frame_without_minibuffer (Qnil
, kb
, display
);
2950 else if (EQ (tem
, Qonly
))
2952 f
= make_minibuffer_frame ();
2953 minibuffer_only
= 1;
2955 else if (WINDOWP (tem
))
2956 f
= make_frame_without_minibuffer (tem
, kb
, display
);
2960 XSETFRAME (frame
, f
);
2962 /* Note that X Windows does support scroll bars. */
2963 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 1;
2965 f
->output_method
= output_x_window
;
2966 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
2967 bzero (f
->output_data
.x
, sizeof (struct x_output
));
2968 f
->output_data
.x
->icon_bitmap
= -1;
2969 FRAME_FONTSET (f
) = -1;
2970 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
2971 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
2972 #ifdef USE_TOOLKIT_SCROLL_BARS
2973 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
2974 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
2975 #endif /* USE_TOOLKIT_SCROLL_BARS */
2976 record_unwind_protect (unwind_create_frame
, frame
);
2979 = x_get_arg (dpyinfo
, parms
, Qicon_name
, "iconName", "Title",
2981 if (! STRINGP (f
->icon_name
))
2982 f
->icon_name
= Qnil
;
2984 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
2986 image_cache_refcount
= FRAME_X_IMAGE_CACHE (f
)->refcount
;
2987 dpyinfo_refcount
= dpyinfo
->reference_count
;
2988 #endif /* GLYPH_DEBUG */
2990 FRAME_KBOARD (f
) = kb
;
2993 /* These colors will be set anyway later, but it's important
2994 to get the color reference counts right, so initialize them! */
2997 struct gcpro gcpro1
;
2999 /* Function x_decode_color can signal an error. Make
3000 sure to initialize color slots so that we won't try
3001 to free colors we haven't allocated. */
3002 f
->output_data
.x
->foreground_pixel
= -1;
3003 f
->output_data
.x
->background_pixel
= -1;
3004 f
->output_data
.x
->cursor_pixel
= -1;
3005 f
->output_data
.x
->cursor_foreground_pixel
= -1;
3006 f
->output_data
.x
->border_pixel
= -1;
3007 f
->output_data
.x
->mouse_pixel
= -1;
3009 black
= build_string ("black");
3011 f
->output_data
.x
->foreground_pixel
3012 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3013 f
->output_data
.x
->background_pixel
3014 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3015 f
->output_data
.x
->cursor_pixel
3016 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3017 f
->output_data
.x
->cursor_foreground_pixel
3018 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3019 f
->output_data
.x
->border_pixel
3020 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3021 f
->output_data
.x
->mouse_pixel
3022 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3026 /* Specify the parent under which to make this X window. */
3030 f
->output_data
.x
->parent_desc
= (Window
) XFASTINT (parent
);
3031 f
->output_data
.x
->explicit_parent
= 1;
3035 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
3036 f
->output_data
.x
->explicit_parent
= 0;
3039 /* Set the name; the functions to which we pass f expect the name to
3041 if (EQ (name
, Qunbound
) || NILP (name
))
3043 f
->name
= build_string (dpyinfo
->x_id_name
);
3044 f
->explicit_name
= 0;
3049 f
->explicit_name
= 1;
3050 /* use the frame's title when getting resources for this frame. */
3051 specbind (Qx_resource_name
, name
);
3054 /* Extract the window parameters from the supplied values
3055 that are needed to determine window geometry. */
3059 font
= x_get_arg (dpyinfo
, parms
, Qfont
, "font", "Font", RES_TYPE_STRING
);
3062 /* First, try whatever font the caller has specified. */
3065 tem
= Fquery_fontset (font
, Qnil
);
3067 font
= x_new_fontset (f
, SDATA (tem
));
3069 font
= x_new_font (f
, SDATA (font
));
3072 /* Try out a font which we hope has bold and italic variations. */
3073 if (!STRINGP (font
))
3074 font
= x_new_font (f
, "-adobe-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-1");
3075 if (!STRINGP (font
))
3076 font
= x_new_font (f
, "-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-1");
3077 if (! STRINGP (font
))
3078 font
= x_new_font (f
, "-*-*-medium-r-normal-*-*-140-*-*-c-*-iso8859-1");
3079 if (! STRINGP (font
))
3080 /* This was formerly the first thing tried, but it finds too many fonts
3081 and takes too long. */
3082 font
= x_new_font (f
, "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1");
3083 /* If those didn't work, look for something which will at least work. */
3084 if (! STRINGP (font
))
3085 font
= x_new_font (f
, "-*-fixed-*-*-*-*-*-140-*-*-c-*-iso8859-1");
3087 if (! STRINGP (font
))
3088 font
= build_string ("fixed");
3090 x_default_parameter (f
, parms
, Qfont
, font
,
3091 "font", "Font", RES_TYPE_STRING
);
3095 /* Prevent lwlib/xlwmenu.c from crashing because of a bug
3096 whereby it fails to get any font. */
3097 xlwmenu_default_font
= FRAME_FONT (f
);
3100 x_default_parameter (f
, parms
, Qborder_width
, make_number (2),
3101 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
3103 /* This defaults to 1 in order to match xterm. We recognize either
3104 internalBorderWidth or internalBorder (which is what xterm calls
3106 if (NILP (Fassq (Qinternal_border_width
, parms
)))
3110 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
3111 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
3112 if (! EQ (value
, Qunbound
))
3113 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
3116 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
3117 "internalBorderWidth", "internalBorderWidth",
3119 x_default_parameter (f
, parms
, Qvertical_scroll_bars
, Qleft
,
3120 "verticalScrollBars", "ScrollBars",
3123 /* Also do the stuff which must be set before the window exists. */
3124 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
3125 "foreground", "Foreground", RES_TYPE_STRING
);
3126 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
3127 "background", "Background", RES_TYPE_STRING
);
3128 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
3129 "pointerColor", "Foreground", RES_TYPE_STRING
);
3130 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
3131 "cursorColor", "Foreground", RES_TYPE_STRING
);
3132 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
3133 "borderColor", "BorderColor", RES_TYPE_STRING
);
3134 x_default_parameter (f
, parms
, Qscreen_gamma
, Qnil
,
3135 "screenGamma", "ScreenGamma", RES_TYPE_FLOAT
);
3136 x_default_parameter (f
, parms
, Qline_spacing
, Qnil
,
3137 "lineSpacing", "LineSpacing", RES_TYPE_NUMBER
);
3138 x_default_parameter (f
, parms
, Qleft_fringe
, Qnil
,
3139 "leftFringe", "LeftFringe", RES_TYPE_NUMBER
);
3140 x_default_parameter (f
, parms
, Qright_fringe
, Qnil
,
3141 "rightFringe", "RightFringe", RES_TYPE_NUMBER
);
3143 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_foreground
,
3144 "scrollBarForeground",
3145 "ScrollBarForeground", 1);
3146 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_background
,
3147 "scrollBarBackground",
3148 "ScrollBarBackground", 0);
3150 /* Init faces before x_default_parameter is called for scroll-bar
3151 parameters because that function calls x_set_scroll_bar_width,
3152 which calls change_frame_size, which calls Fset_window_buffer,
3153 which runs hooks, which call Fvertical_motion. At the end, we
3154 end up in init_iterator with a null face cache, which should not
3156 init_frame_faces (f
);
3158 x_default_parameter (f
, parms
, Qmenu_bar_lines
, make_number (1),
3159 "menuBar", "MenuBar", RES_TYPE_NUMBER
);
3160 x_default_parameter (f
, parms
, Qtool_bar_lines
, make_number (1),
3161 "toolBar", "ToolBar", RES_TYPE_NUMBER
);
3162 x_default_parameter (f
, parms
, Qbuffer_predicate
, Qnil
,
3163 "bufferPredicate", "BufferPredicate",
3165 x_default_parameter (f
, parms
, Qtitle
, Qnil
,
3166 "title", "Title", RES_TYPE_STRING
);
3167 x_default_parameter (f
, parms
, Qwait_for_wm
, Qt
,
3168 "waitForWM", "WaitForWM", RES_TYPE_BOOLEAN
);
3169 x_default_parameter (f
, parms
, Qfullscreen
, Qnil
,
3170 "fullscreen", "Fullscreen", RES_TYPE_SYMBOL
);
3172 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
3174 /* Compute the size of the X window. */
3175 window_prompting
= x_figure_window_size (f
, parms
, 1);
3177 tem
= x_get_arg (dpyinfo
, parms
, Qunsplittable
, 0, 0, RES_TYPE_BOOLEAN
);
3178 f
->no_split
= minibuffer_only
|| EQ (tem
, Qt
);
3180 x_icon_verify (f
, parms
);
3182 /* Create the X widget or window. */
3183 #ifdef USE_X_TOOLKIT
3184 x_window (f
, window_prompting
, minibuffer_only
);
3192 /* Now consider the frame official. */
3193 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
3194 Vframe_list
= Fcons (frame
, Vframe_list
);
3196 /* We need to do this after creating the X window, so that the
3197 icon-creation functions can say whose icon they're describing. */
3198 x_default_parameter (f
, parms
, Qicon_type
, Qnil
,
3199 "bitmapIcon", "BitmapIcon", RES_TYPE_SYMBOL
);
3201 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
3202 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3203 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
3204 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3205 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
3206 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
3207 x_default_parameter (f
, parms
, Qscroll_bar_width
, Qnil
,
3208 "scrollBarWidth", "ScrollBarWidth",
3211 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
3212 Change will not be effected unless different from the current
3214 width
= FRAME_COLS (f
);
3215 height
= FRAME_LINES (f
);
3217 SET_FRAME_COLS (f
, 0);
3218 FRAME_LINES (f
) = 0;
3219 change_frame_size (f
, height
, width
, 1, 0, 0);
3221 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
3222 /* Create the menu bar. */
3223 if (!minibuffer_only
&& FRAME_EXTERNAL_MENU_BAR (f
))
3225 /* If this signals an error, we haven't set size hints for the
3226 frame and we didn't make it visible. */
3227 initialize_frame_menubar (f
);
3230 /* This is a no-op, except under Motif where it arranges the
3231 main window for the widgets on it. */
3232 lw_set_main_areas (f
->output_data
.x
->column_widget
,
3233 f
->output_data
.x
->menubar_widget
,
3234 f
->output_data
.x
->edit_widget
);
3235 #endif /* not USE_GTK */
3237 #endif /* USE_X_TOOLKIT || USE_GTK */
3239 /* Tell the server what size and position, etc, we want, and how
3240 badly we want them. This should be done after we have the menu
3241 bar so that its size can be taken into account. */
3243 x_wm_set_size_hint (f
, window_prompting
, 0);
3246 /* Make the window appear on the frame and enable display, unless
3247 the caller says not to. However, with explicit parent, Emacs
3248 cannot control visibility, so don't try. */
3249 if (! f
->output_data
.x
->explicit_parent
)
3251 Lisp_Object visibility
;
3253 visibility
= x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0,
3255 if (EQ (visibility
, Qunbound
))
3258 if (EQ (visibility
, Qicon
))
3259 x_iconify_frame (f
);
3260 else if (! NILP (visibility
))
3261 x_make_frame_visible (f
);
3263 /* Must have been Qnil. */
3267 /* Set the WM leader property. GTK does this itself, so this is not
3268 needed when using GTK. */
3269 if (dpyinfo
->client_leader_window
!= 0)
3272 XChangeProperty (FRAME_X_DISPLAY (f
),
3273 FRAME_OUTER_WINDOW (f
),
3274 dpyinfo
->Xatom_wm_client_leader
,
3275 XA_WINDOW
, 32, PropModeReplace
,
3276 (char *) &dpyinfo
->client_leader_window
, 1);
3282 /* Make sure windows on this frame appear in calls to next-window
3283 and similar functions. */
3284 Vwindow_list
= Qnil
;
3286 return unbind_to (count
, frame
);
3290 /* FRAME is used only to get a handle on the X display. We don't pass the
3291 display info directly because we're called from frame.c, which doesn't
3292 know about that structure. */
3295 x_get_focus_frame (frame
)
3296 struct frame
*frame
;
3298 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (frame
);
3300 if (! dpyinfo
->x_focus_frame
)
3303 XSETFRAME (xfocus
, dpyinfo
->x_focus_frame
);
3308 /* In certain situations, when the window manager follows a
3309 click-to-focus policy, there seems to be no way around calling
3310 XSetInputFocus to give another frame the input focus .
3312 In an ideal world, XSetInputFocus should generally be avoided so
3313 that applications don't interfere with the window manager's focus
3314 policy. But I think it's okay to use when it's clearly done
3315 following a user-command. */
3317 DEFUN ("x-focus-frame", Fx_focus_frame
, Sx_focus_frame
, 1, 1, 0,
3318 doc
: /* Set the input focus to FRAME.
3319 FRAME nil means use the selected frame. */)
3323 struct frame
*f
= check_x_frame (frame
);
3324 Display
*dpy
= FRAME_X_DISPLAY (f
);
3328 count
= x_catch_errors (dpy
);
3329 XSetInputFocus (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
3330 RevertToParent
, CurrentTime
);
3331 x_uncatch_errors (dpy
, count
);
3338 DEFUN ("xw-color-defined-p", Fxw_color_defined_p
, Sxw_color_defined_p
, 1, 2, 0,
3339 doc
: /* Internal function called by `color-defined-p', which see. */)
3341 Lisp_Object color
, frame
;
3344 FRAME_PTR f
= check_x_frame (frame
);
3346 CHECK_STRING (color
);
3348 if (x_defined_color (f
, SDATA (color
), &foo
, 0))
3354 DEFUN ("xw-color-values", Fxw_color_values
, Sxw_color_values
, 1, 2, 0,
3355 doc
: /* Internal function called by `color-values', which see. */)
3357 Lisp_Object color
, frame
;
3360 FRAME_PTR f
= check_x_frame (frame
);
3362 CHECK_STRING (color
);
3364 if (x_defined_color (f
, SDATA (color
), &foo
, 0))
3368 rgb
[0] = make_number (foo
.red
);
3369 rgb
[1] = make_number (foo
.green
);
3370 rgb
[2] = make_number (foo
.blue
);
3371 return Flist (3, rgb
);
3377 DEFUN ("xw-display-color-p", Fxw_display_color_p
, Sxw_display_color_p
, 0, 1, 0,
3378 doc
: /* Internal function called by `display-color-p', which see. */)
3380 Lisp_Object display
;
3382 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3384 if (dpyinfo
->n_planes
<= 2)
3387 switch (dpyinfo
->visual
->class)
3400 DEFUN ("x-display-grayscale-p", Fx_display_grayscale_p
, Sx_display_grayscale_p
,
3402 doc
: /* Return t if the X display supports shades of gray.
3403 Note that color displays do support shades of gray.
3404 The optional argument DISPLAY specifies which display to ask about.
3405 DISPLAY should be either a frame or a display name (a string).
3406 If omitted or nil, that stands for the selected frame's display. */)
3408 Lisp_Object display
;
3410 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3412 if (dpyinfo
->n_planes
<= 1)
3415 switch (dpyinfo
->visual
->class)
3430 DEFUN ("x-display-pixel-width", Fx_display_pixel_width
, Sx_display_pixel_width
,
3432 doc
: /* Returns the width in pixels of the X display DISPLAY.
3433 The optional argument DISPLAY specifies which display to ask about.
3434 DISPLAY should be either a frame or a display name (a string).
3435 If omitted or nil, that stands for the selected frame's display. */)
3437 Lisp_Object display
;
3439 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3441 return make_number (dpyinfo
->width
);
3444 DEFUN ("x-display-pixel-height", Fx_display_pixel_height
,
3445 Sx_display_pixel_height
, 0, 1, 0,
3446 doc
: /* Returns the height in pixels of the X display DISPLAY.
3447 The optional argument DISPLAY specifies which display to ask about.
3448 DISPLAY should be either a frame or a display name (a string).
3449 If omitted or nil, that stands for the selected frame's display. */)
3451 Lisp_Object display
;
3453 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3455 return make_number (dpyinfo
->height
);
3458 DEFUN ("x-display-planes", Fx_display_planes
, Sx_display_planes
,
3460 doc
: /* Returns the number of bitplanes of the X display DISPLAY.
3461 The optional argument DISPLAY specifies which display to ask about.
3462 DISPLAY should be either a frame or a display name (a string).
3463 If omitted or nil, that stands for the selected frame's display. */)
3465 Lisp_Object display
;
3467 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3469 return make_number (dpyinfo
->n_planes
);
3472 DEFUN ("x-display-color-cells", Fx_display_color_cells
, Sx_display_color_cells
,
3474 doc
: /* Returns the number of color cells of the X display DISPLAY.
3475 The optional argument DISPLAY specifies which display to ask about.
3476 DISPLAY should be either a frame or a display name (a string).
3477 If omitted or nil, that stands for the selected frame's display. */)
3479 Lisp_Object display
;
3481 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3483 int nr_planes
= DisplayPlanes (dpyinfo
->display
,
3484 XScreenNumberOfScreen (dpyinfo
->screen
));
3486 /* Truncate nr_planes to 24 to avoid integer overflow.
3487 Some displays says 32, but only 24 bits are actually significant.
3488 There are only very few and rare video cards that have more than
3489 24 significant bits. Also 24 bits is more than 16 million colors,
3490 it "should be enough for everyone". */
3491 if (nr_planes
> 24) nr_planes
= 24;
3493 return make_number (1 << nr_planes
);
3496 DEFUN ("x-server-max-request-size", Fx_server_max_request_size
,
3497 Sx_server_max_request_size
,
3499 doc
: /* Returns the maximum request size of the X server of display DISPLAY.
3500 The optional argument DISPLAY specifies which display to ask about.
3501 DISPLAY should be either a frame or a display name (a string).
3502 If omitted or nil, that stands for the selected frame's display. */)
3504 Lisp_Object display
;
3506 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3508 return make_number (MAXREQUEST (dpyinfo
->display
));
3511 DEFUN ("x-server-vendor", Fx_server_vendor
, Sx_server_vendor
, 0, 1, 0,
3512 doc
: /* Returns the "vendor ID" string of the X server of display DISPLAY.
3513 \(Labelling every distributor as a "vendor" embodies the false assumption
3514 that operating systems cannot be developed and distributed noncommercially.)
3515 The optional argument DISPLAY specifies which display to ask about.
3516 DISPLAY should be either a frame or a display name (a string).
3517 If omitted or nil, that stands for the selected frame's display. */)
3519 Lisp_Object display
;
3521 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3522 char *vendor
= ServerVendor (dpyinfo
->display
);
3524 if (! vendor
) vendor
= "";
3525 return build_string (vendor
);
3528 DEFUN ("x-server-version", Fx_server_version
, Sx_server_version
, 0, 1, 0,
3529 doc
: /* Returns the version numbers of the X server of display DISPLAY.
3530 The value is a list of three integers: the major and minor
3531 version numbers of the X Protocol in use, and the distributor-specific release
3532 number. See also the function `x-server-vendor'.
3534 The optional argument DISPLAY specifies which display to ask about.
3535 DISPLAY should be either a frame or a display name (a string).
3536 If omitted or nil, that stands for the selected frame's display. */)
3538 Lisp_Object display
;
3540 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3541 Display
*dpy
= dpyinfo
->display
;
3543 return Fcons (make_number (ProtocolVersion (dpy
)),
3544 Fcons (make_number (ProtocolRevision (dpy
)),
3545 Fcons (make_number (VendorRelease (dpy
)), Qnil
)));
3548 DEFUN ("x-display-screens", Fx_display_screens
, Sx_display_screens
, 0, 1, 0,
3549 doc
: /* Return the number of screens on the X server of display DISPLAY.
3550 The optional argument DISPLAY specifies which display to ask about.
3551 DISPLAY should be either a frame or a display name (a string).
3552 If omitted or nil, that stands for the selected frame's display. */)
3554 Lisp_Object display
;
3556 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3558 return make_number (ScreenCount (dpyinfo
->display
));
3561 DEFUN ("x-display-mm-height", Fx_display_mm_height
, Sx_display_mm_height
, 0, 1, 0,
3562 doc
: /* Return the height in millimeters of the X display DISPLAY.
3563 The optional argument DISPLAY specifies which display to ask about.
3564 DISPLAY should be either a frame or a display name (a string).
3565 If omitted or nil, that stands for the selected frame's display. */)
3567 Lisp_Object display
;
3569 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3571 return make_number (HeightMMOfScreen (dpyinfo
->screen
));
3574 DEFUN ("x-display-mm-width", Fx_display_mm_width
, Sx_display_mm_width
, 0, 1, 0,
3575 doc
: /* Return the width in millimeters of the X display DISPLAY.
3576 The optional argument DISPLAY specifies which display to ask about.
3577 DISPLAY should be either a frame or a display name (a string).
3578 If omitted or nil, that stands for the selected frame's display. */)
3580 Lisp_Object display
;
3582 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3584 return make_number (WidthMMOfScreen (dpyinfo
->screen
));
3587 DEFUN ("x-display-backing-store", Fx_display_backing_store
,
3588 Sx_display_backing_store
, 0, 1, 0,
3589 doc
: /* Returns an indication of whether X display DISPLAY does backing store.
3590 The value may be `always', `when-mapped', or `not-useful'.
3591 The optional argument DISPLAY specifies which display to ask about.
3592 DISPLAY should be either a frame or a display name (a string).
3593 If omitted or nil, that stands for the selected frame's display. */)
3595 Lisp_Object display
;
3597 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3600 switch (DoesBackingStore (dpyinfo
->screen
))
3603 result
= intern ("always");
3607 result
= intern ("when-mapped");
3611 result
= intern ("not-useful");
3615 error ("Strange value for BackingStore parameter of screen");
3622 DEFUN ("x-display-visual-class", Fx_display_visual_class
,
3623 Sx_display_visual_class
, 0, 1, 0,
3624 doc
: /* Return the visual class of the X display DISPLAY.
3625 The value is one of the symbols `static-gray', `gray-scale',
3626 `static-color', `pseudo-color', `true-color', or `direct-color'.
3628 The optional argument DISPLAY specifies which display to ask about.
3629 DISPLAY should be either a frame or a display name (a string).
3630 If omitted or nil, that stands for the selected frame's display. */)
3632 Lisp_Object display
;
3634 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3637 switch (dpyinfo
->visual
->class)
3640 result
= intern ("static-gray");
3643 result
= intern ("gray-scale");
3646 result
= intern ("static-color");
3649 result
= intern ("pseudo-color");
3652 result
= intern ("true-color");
3655 result
= intern ("direct-color");
3658 error ("Display has an unknown visual class");
3665 DEFUN ("x-display-save-under", Fx_display_save_under
,
3666 Sx_display_save_under
, 0, 1, 0,
3667 doc
: /* Returns t if the X display DISPLAY supports the save-under feature.
3668 The optional argument DISPLAY specifies which display to ask about.
3669 DISPLAY should be either a frame or a display name (a string).
3670 If omitted or nil, that stands for the selected frame's display. */)
3672 Lisp_Object display
;
3674 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3676 if (DoesSaveUnders (dpyinfo
->screen
) == True
)
3684 register struct frame
*f
;
3686 return FRAME_PIXEL_WIDTH (f
);
3691 register struct frame
*f
;
3693 return FRAME_PIXEL_HEIGHT (f
);
3698 register struct frame
*f
;
3700 return FRAME_COLUMN_WIDTH (f
);
3705 register struct frame
*f
;
3707 return FRAME_LINE_HEIGHT (f
);
3712 register struct frame
*f
;
3714 return FRAME_X_DISPLAY_INFO (f
)->n_planes
;
3719 /************************************************************************
3721 ************************************************************************/
3724 /* Mapping visual names to visuals. */
3726 static struct visual_class
3733 {"StaticGray", StaticGray
},
3734 {"GrayScale", GrayScale
},
3735 {"StaticColor", StaticColor
},
3736 {"PseudoColor", PseudoColor
},
3737 {"TrueColor", TrueColor
},
3738 {"DirectColor", DirectColor
},
3743 #ifndef HAVE_XSCREENNUMBEROFSCREEN
3745 /* Value is the screen number of screen SCR. This is a substitute for
3746 the X function with the same name when that doesn't exist. */
3749 XScreenNumberOfScreen (scr
)
3750 register Screen
*scr
;
3752 Display
*dpy
= scr
->display
;
3755 for (i
= 0; i
< dpy
->nscreens
; ++i
)
3756 if (scr
== dpy
->screens
+ i
)
3762 #endif /* not HAVE_XSCREENNUMBEROFSCREEN */
3765 /* Select the visual that should be used on display DPYINFO. Set
3766 members of DPYINFO appropriately. Called from x_term_init. */
3769 select_visual (dpyinfo
)
3770 struct x_display_info
*dpyinfo
;
3772 Display
*dpy
= dpyinfo
->display
;
3773 Screen
*screen
= dpyinfo
->screen
;
3776 /* See if a visual is specified. */
3777 value
= display_x_get_resource (dpyinfo
,
3778 build_string ("visualClass"),
3779 build_string ("VisualClass"),
3781 if (STRINGP (value
))
3783 /* VALUE should be of the form CLASS-DEPTH, where CLASS is one
3784 of `PseudoColor', `TrueColor' etc. and DEPTH is the color
3785 depth, a decimal number. NAME is compared with case ignored. */
3786 char *s
= (char *) alloca (SBYTES (value
) + 1);
3791 strcpy (s
, SDATA (value
));
3792 dash
= index (s
, '-');
3795 dpyinfo
->n_planes
= atoi (dash
+ 1);
3799 /* We won't find a matching visual with depth 0, so that
3800 an error will be printed below. */
3801 dpyinfo
->n_planes
= 0;
3803 /* Determine the visual class. */
3804 for (i
= 0; visual_classes
[i
].name
; ++i
)
3805 if (xstricmp (s
, visual_classes
[i
].name
) == 0)
3807 class = visual_classes
[i
].class;
3811 /* Look up a matching visual for the specified class. */
3813 || !XMatchVisualInfo (dpy
, XScreenNumberOfScreen (screen
),
3814 dpyinfo
->n_planes
, class, &vinfo
))
3815 fatal ("Invalid visual specification `%s'", SDATA (value
));
3817 dpyinfo
->visual
= vinfo
.visual
;
3822 XVisualInfo
*vinfo
, vinfo_template
;
3824 dpyinfo
->visual
= DefaultVisualOfScreen (screen
);
3827 vinfo_template
.visualid
= XVisualIDFromVisual (dpyinfo
->visual
);
3829 vinfo_template
.visualid
= dpyinfo
->visual
->visualid
;
3831 vinfo_template
.screen
= XScreenNumberOfScreen (screen
);
3832 vinfo
= XGetVisualInfo (dpy
, VisualIDMask
| VisualScreenMask
,
3833 &vinfo_template
, &n_visuals
);
3835 fatal ("Can't get proper X visual info");
3837 dpyinfo
->n_planes
= vinfo
->depth
;
3838 XFree ((char *) vinfo
);
3843 /* Return the X display structure for the display named NAME.
3844 Open a new connection if necessary. */
3846 struct x_display_info
*
3847 x_display_info_for_name (name
)
3851 struct x_display_info
*dpyinfo
;
3853 CHECK_STRING (name
);
3855 if (! EQ (Vwindow_system
, intern ("x")))
3856 error ("Not using X Windows");
3858 for (dpyinfo
= x_display_list
, names
= x_display_name_list
;
3860 dpyinfo
= dpyinfo
->next
, names
= XCDR (names
))
3863 tem
= Fstring_equal (XCAR (XCAR (names
)), name
);
3868 /* Use this general default value to start with. */
3869 Vx_resource_name
= Vinvocation_name
;
3871 validate_x_resource_name ();
3873 dpyinfo
= x_term_init (name
, (char *)0,
3874 (char *) SDATA (Vx_resource_name
));
3877 error ("Cannot connect to X server %s", SDATA (name
));
3880 XSETFASTINT (Vwindow_system_version
, 11);
3886 DEFUN ("x-open-connection", Fx_open_connection
, Sx_open_connection
,
3888 doc
: /* Open a connection to an X server.
3889 DISPLAY is the name of the display to connect to.
3890 Optional second arg XRM-STRING is a string of resources in xrdb format.
3891 If the optional third arg MUST-SUCCEED is non-nil,
3892 terminate Emacs if we can't open the connection. */)
3893 (display
, xrm_string
, must_succeed
)
3894 Lisp_Object display
, xrm_string
, must_succeed
;
3896 unsigned char *xrm_option
;
3897 struct x_display_info
*dpyinfo
;
3899 CHECK_STRING (display
);
3900 if (! NILP (xrm_string
))
3901 CHECK_STRING (xrm_string
);
3903 if (! EQ (Vwindow_system
, intern ("x")))
3904 error ("Not using X Windows");
3906 if (! NILP (xrm_string
))
3907 xrm_option
= (unsigned char *) SDATA (xrm_string
);
3909 xrm_option
= (unsigned char *) 0;
3911 validate_x_resource_name ();
3913 /* This is what opens the connection and sets x_current_display.
3914 This also initializes many symbols, such as those used for input. */
3915 dpyinfo
= x_term_init (display
, xrm_option
,
3916 (char *) SDATA (Vx_resource_name
));
3920 if (!NILP (must_succeed
))
3921 fatal ("Cannot connect to X server %s.\n\
3922 Check the DISPLAY environment variable or use `-d'.\n\
3923 Also use the `xauth' program to verify that you have the proper\n\
3924 authorization information needed to connect the X server.\n\
3925 An insecure way to solve the problem may be to use `xhost'.\n",
3928 error ("Cannot connect to X server %s", SDATA (display
));
3933 XSETFASTINT (Vwindow_system_version
, 11);
3937 DEFUN ("x-close-connection", Fx_close_connection
,
3938 Sx_close_connection
, 1, 1, 0,
3939 doc
: /* Close the connection to DISPLAY's X server.
3940 For DISPLAY, specify either a frame or a display name (a string).
3941 If DISPLAY is nil, that stands for the selected frame's display. */)
3943 Lisp_Object display
;
3945 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3948 if (dpyinfo
->reference_count
> 0)
3949 error ("Display still has frames on it");
3952 /* Free the fonts in the font table. */
3953 for (i
= 0; i
< dpyinfo
->n_fonts
; i
++)
3954 if (dpyinfo
->font_table
[i
].name
)
3956 XFreeFont (dpyinfo
->display
, dpyinfo
->font_table
[i
].font
);
3959 x_destroy_all_bitmaps (dpyinfo
);
3960 XSetCloseDownMode (dpyinfo
->display
, DestroyAll
);
3962 #ifdef USE_X_TOOLKIT
3963 XtCloseDisplay (dpyinfo
->display
);
3965 XCloseDisplay (dpyinfo
->display
);
3968 x_delete_display (dpyinfo
);
3974 DEFUN ("x-display-list", Fx_display_list
, Sx_display_list
, 0, 0, 0,
3975 doc
: /* Return the list of display names that Emacs has connections to. */)
3978 Lisp_Object tail
, result
;
3981 for (tail
= x_display_name_list
; ! NILP (tail
); tail
= XCDR (tail
))
3982 result
= Fcons (XCAR (XCAR (tail
)), result
);
3987 DEFUN ("x-synchronize", Fx_synchronize
, Sx_synchronize
, 1, 2, 0,
3988 doc
: /* If ON is non-nil, report X errors as soon as the erring request is made.
3989 If ON is nil, allow buffering of requests.
3990 Turning on synchronization prohibits the Xlib routines from buffering
3991 requests and seriously degrades performance, but makes debugging much
3993 The optional second argument DISPLAY specifies which display to act on.
3994 DISPLAY should be either a frame or a display name (a string).
3995 If DISPLAY is omitted or nil, that stands for the selected frame's display. */)
3997 Lisp_Object display
, on
;
3999 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
4001 XSynchronize (dpyinfo
->display
, !EQ (on
, Qnil
));
4006 /* Wait for responses to all X commands issued so far for frame F. */
4013 XSync (FRAME_X_DISPLAY (f
), False
);
4018 /***********************************************************************
4020 ***********************************************************************/
4022 DEFUN ("x-change-window-property", Fx_change_window_property
,
4023 Sx_change_window_property
, 2, 6, 0,
4024 doc
: /* Change window property PROP to VALUE on the X window of FRAME.
4025 PROP must be a string.
4026 VALUE may be a string or a list of conses, numbers and/or strings.
4027 If an element in the list is a string, it is converted to
4028 an Atom and the value of the Atom is used. If an element is a cons,
4029 it is converted to a 32 bit number where the car is the 16 top bits and the
4030 cdr is the lower 16 bits.
4031 FRAME nil or omitted means use the selected frame.
4032 If TYPE is given and non-nil, it is the name of the type of VALUE.
4033 If TYPE is not given or nil, the type is STRING.
4034 FORMAT gives the size in bits of each element if VALUE is a list.
4035 It must be one of 8, 16 or 32.
4036 If VALUE is a string or FORMAT is nil or not given, FORMAT defaults to 8.
4037 If OUTER_P is non-nil, the property is changed for the outer X window of
4038 FRAME. Default is to change on the edit X window.
4041 (prop
, value
, frame
, type
, format
, outer_p
)
4042 Lisp_Object prop
, value
, frame
, type
, format
, outer_p
;
4044 struct frame
*f
= check_x_frame (frame
);
4046 Atom target_type
= XA_STRING
;
4047 int element_format
= 8;
4048 unsigned char *data
;
4052 CHECK_STRING (prop
);
4054 if (! NILP (format
))
4056 CHECK_NUMBER (format
);
4057 element_format
= XFASTINT (format
);
4059 if (element_format
!= 8 && element_format
!= 16
4060 && element_format
!= 32)
4061 error ("FORMAT must be one of 8, 16 or 32");
4066 nelements
= x_check_property_data (value
);
4067 if (nelements
== -1)
4068 error ("Bad data in VALUE, must be number, string or cons");
4070 if (element_format
== 8)
4071 data
= (unsigned char *) xmalloc (nelements
);
4072 else if (element_format
== 16)
4073 data
= (unsigned char *) xmalloc (nelements
*2);
4074 else /* format == 32 */
4075 /* The man page for XChangeProperty:
4076 "If the specified format is 32, the property data must be a
4078 This applies even if long is more than 64 bits. The X library
4079 converts to 32 bits before sending to the X server. */
4080 data
= (unsigned char *) xmalloc (nelements
* sizeof(long));
4082 x_fill_property_data (FRAME_X_DISPLAY (f
), value
, data
, element_format
);
4086 CHECK_STRING (value
);
4087 data
= SDATA (value
);
4088 nelements
= SCHARS (value
);
4092 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4095 CHECK_STRING (type
);
4096 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (type
), False
);
4099 if (! NILP (outer_p
)) w
= FRAME_OUTER_WINDOW (f
);
4100 else w
= FRAME_X_WINDOW (f
);
4102 XChangeProperty (FRAME_X_DISPLAY (f
), w
,
4103 prop_atom
, target_type
, element_format
, PropModeReplace
,
4106 if (CONSP (value
)) xfree (data
);
4108 /* Make sure the property is set when we return. */
4109 XFlush (FRAME_X_DISPLAY (f
));
4116 DEFUN ("x-delete-window-property", Fx_delete_window_property
,
4117 Sx_delete_window_property
, 1, 2, 0,
4118 doc
: /* Remove window property PROP from X window of FRAME.
4119 FRAME nil or omitted means use the selected frame. Value is PROP. */)
4121 Lisp_Object prop
, frame
;
4123 struct frame
*f
= check_x_frame (frame
);
4126 CHECK_STRING (prop
);
4128 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4129 XDeleteProperty (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), prop_atom
);
4131 /* Make sure the property is removed when we return. */
4132 XFlush (FRAME_X_DISPLAY (f
));
4139 DEFUN ("x-window-property", Fx_window_property
, Sx_window_property
,
4141 doc
: /* Value is the value of window property PROP on FRAME.
4142 If FRAME is nil or omitted, use the selected frame.
4143 If TYPE is nil or omitted, get the property as a string. Otherwise TYPE
4144 is the name of the Atom that denotes the type expected.
4145 If SOURCE is non-nil, get the property on that window instead of from
4146 FRAME. The number 0 denotes the root window.
4147 If DELETE_P is non-nil, delete the property after retreiving it.
4148 If VECTOR_RET_P is non-nil, don't return a string but a vector of values.
4150 Value is nil if FRAME hasn't a property with name PROP or if PROP has
4151 no value of TYPE. */)
4152 (prop
, frame
, type
, source
, delete_p
, vector_ret_p
)
4153 Lisp_Object prop
, frame
, type
, source
, delete_p
, vector_ret_p
;
4155 struct frame
*f
= check_x_frame (frame
);
4158 Lisp_Object prop_value
= Qnil
;
4159 char *tmp_data
= NULL
;
4161 Atom target_type
= XA_STRING
;
4163 unsigned long actual_size
, bytes_remaining
;
4164 Window target_window
= FRAME_X_WINDOW (f
);
4165 struct gcpro gcpro1
;
4167 GCPRO1 (prop_value
);
4168 CHECK_STRING (prop
);
4170 if (! NILP (source
))
4172 if (NUMBERP (source
))
4174 if (FLOATP (source
))
4175 target_window
= (Window
) XFLOAT (source
);
4177 target_window
= XFASTINT (source
);
4179 if (target_window
== 0)
4180 target_window
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4182 else if (CONSP (source
))
4183 target_window
= cons_to_long (source
);
4189 if (strcmp ("AnyPropertyType", SDATA (type
)) == 0)
4190 target_type
= AnyPropertyType
;
4192 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (type
), False
);
4195 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4196 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4197 prop_atom
, 0, 0, False
, target_type
,
4198 &actual_type
, &actual_format
, &actual_size
,
4199 &bytes_remaining
, (unsigned char **) &tmp_data
);
4202 int size
= bytes_remaining
;
4207 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4208 prop_atom
, 0, bytes_remaining
,
4209 ! NILP (delete_p
), target_type
,
4210 &actual_type
, &actual_format
,
4211 &actual_size
, &bytes_remaining
,
4212 (unsigned char **) &tmp_data
);
4213 if (rc
== Success
&& tmp_data
)
4215 /* The man page for XGetWindowProperty says:
4216 "If the returned format is 32, the returned data is represented
4217 as a long array and should be cast to that type to obtain the
4219 This applies even if long is more than 32 bits, the X library
4220 converts from 32 bit elements received from the X server to long
4221 and passes the long array to us. Thus, for that case bcopy can not
4222 be used. We convert to a 32 bit type here, because so much code
4225 The bytes and offsets passed to XGetWindowProperty refers to the
4226 property and those are indeed in 32 bit quantities if format is
4229 if (actual_format
== 32 && actual_format
< BITS_PER_LONG
)
4232 int *idata
= (int *) tmp_data
;
4233 long *ldata
= (long *) tmp_data
;
4235 for (i
= 0; i
< actual_size
; ++i
)
4236 idata
[i
]= (int) ldata
[i
];
4239 if (NILP (vector_ret_p
))
4240 prop_value
= make_string (tmp_data
, size
);
4242 prop_value
= x_property_data_to_lisp (f
,
4243 (unsigned char *) tmp_data
,
4249 if (tmp_data
) XFree (tmp_data
);
4259 /***********************************************************************
4261 ***********************************************************************/
4263 /* If non-null, an asynchronous timer that, when it expires, displays
4264 an hourglass cursor on all frames. */
4266 static struct atimer
*hourglass_atimer
;
4268 /* Non-zero means an hourglass cursor is currently shown. */
4270 static int hourglass_shown_p
;
4272 /* Number of seconds to wait before displaying an hourglass cursor. */
4274 static Lisp_Object Vhourglass_delay
;
4276 /* Default number of seconds to wait before displaying an hourglass
4279 #define DEFAULT_HOURGLASS_DELAY 1
4281 /* Function prototypes. */
4283 static void show_hourglass
P_ ((struct atimer
*));
4284 static void hide_hourglass
P_ ((void));
4287 /* Cancel a currently active hourglass timer, and start a new one. */
4293 int secs
, usecs
= 0;
4295 cancel_hourglass ();
4297 if (INTEGERP (Vhourglass_delay
)
4298 && XINT (Vhourglass_delay
) > 0)
4299 secs
= XFASTINT (Vhourglass_delay
);
4300 else if (FLOATP (Vhourglass_delay
)
4301 && XFLOAT_DATA (Vhourglass_delay
) > 0)
4304 tem
= Ftruncate (Vhourglass_delay
, Qnil
);
4305 secs
= XFASTINT (tem
);
4306 usecs
= (XFLOAT_DATA (Vhourglass_delay
) - secs
) * 1000000;
4309 secs
= DEFAULT_HOURGLASS_DELAY
;
4311 EMACS_SET_SECS_USECS (delay
, secs
, usecs
);
4312 hourglass_atimer
= start_atimer (ATIMER_RELATIVE
, delay
,
4313 show_hourglass
, NULL
);
4317 /* Cancel the hourglass cursor timer if active, hide a busy cursor if
4323 if (hourglass_atimer
)
4325 cancel_atimer (hourglass_atimer
);
4326 hourglass_atimer
= NULL
;
4329 if (hourglass_shown_p
)
4334 /* Timer function of hourglass_atimer. TIMER is equal to
4337 Display an hourglass pointer on all frames by mapping the frames'
4338 hourglass_window. Set the hourglass_p flag in the frames'
4339 output_data.x structure to indicate that an hourglass cursor is
4340 shown on the frames. */
4343 show_hourglass (timer
)
4344 struct atimer
*timer
;
4346 /* The timer implementation will cancel this timer automatically
4347 after this function has run. Set hourglass_atimer to null
4348 so that we know the timer doesn't have to be canceled. */
4349 hourglass_atimer
= NULL
;
4351 if (!hourglass_shown_p
)
4353 Lisp_Object rest
, frame
;
4357 FOR_EACH_FRAME (rest
, frame
)
4359 struct frame
*f
= XFRAME (frame
);
4361 if (FRAME_LIVE_P (f
) && FRAME_X_P (f
) && FRAME_X_DISPLAY (f
))
4363 Display
*dpy
= FRAME_X_DISPLAY (f
);
4365 #ifdef USE_X_TOOLKIT
4366 if (f
->output_data
.x
->widget
)
4368 if (FRAME_OUTER_WINDOW (f
))
4371 f
->output_data
.x
->hourglass_p
= 1;
4373 if (!f
->output_data
.x
->hourglass_window
)
4375 unsigned long mask
= CWCursor
;
4376 XSetWindowAttributes attrs
;
4378 Window parent
= FRAME_X_WINDOW (f
);
4380 Window parent
= FRAME_OUTER_WINDOW (f
);
4382 attrs
.cursor
= f
->output_data
.x
->hourglass_cursor
;
4384 f
->output_data
.x
->hourglass_window
4385 = XCreateWindow (dpy
, parent
,
4386 0, 0, 32000, 32000, 0, 0,
4392 XMapRaised (dpy
, f
->output_data
.x
->hourglass_window
);
4398 hourglass_shown_p
= 1;
4404 /* Hide the hourglass pointer on all frames, if it is currently
4410 if (hourglass_shown_p
)
4412 Lisp_Object rest
, frame
;
4415 FOR_EACH_FRAME (rest
, frame
)
4417 struct frame
*f
= XFRAME (frame
);
4420 /* Watch out for newly created frames. */
4421 && f
->output_data
.x
->hourglass_window
)
4423 XUnmapWindow (FRAME_X_DISPLAY (f
),
4424 f
->output_data
.x
->hourglass_window
);
4425 /* Sync here because XTread_socket looks at the
4426 hourglass_p flag that is reset to zero below. */
4427 XSync (FRAME_X_DISPLAY (f
), False
);
4428 f
->output_data
.x
->hourglass_p
= 0;
4432 hourglass_shown_p
= 0;
4439 /***********************************************************************
4441 ***********************************************************************/
4443 static Lisp_Object x_create_tip_frame
P_ ((struct x_display_info
*,
4444 Lisp_Object
, Lisp_Object
));
4445 static void compute_tip_xy
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
,
4446 Lisp_Object
, int, int, int *, int *));
4448 /* The frame of a currently visible tooltip. */
4450 Lisp_Object tip_frame
;
4452 /* If non-nil, a timer started that hides the last tooltip when it
4455 Lisp_Object tip_timer
;
4458 /* If non-nil, a vector of 3 elements containing the last args
4459 with which x-show-tip was called. See there. */
4461 Lisp_Object last_show_tip_args
;
4463 /* Maximum size for tooltips; a cons (COLUMNS . ROWS). */
4465 Lisp_Object Vx_max_tooltip_size
;
4469 unwind_create_tip_frame (frame
)
4472 Lisp_Object deleted
;
4474 deleted
= unwind_create_frame (frame
);
4475 if (EQ (deleted
, Qt
))
4485 /* Create a frame for a tooltip on the display described by DPYINFO.
4486 PARMS is a list of frame parameters. TEXT is the string to
4487 display in the tip frame. Value is the frame.
4489 Note that functions called here, esp. x_default_parameter can
4490 signal errors, for instance when a specified color name is
4491 undefined. We have to make sure that we're in a consistent state
4492 when this happens. */
4495 x_create_tip_frame (dpyinfo
, parms
, text
)
4496 struct x_display_info
*dpyinfo
;
4497 Lisp_Object parms
, text
;
4500 Lisp_Object frame
, tem
;
4502 long window_prompting
= 0;
4504 int count
= SPECPDL_INDEX ();
4505 struct gcpro gcpro1
, gcpro2
, gcpro3
;
4507 int face_change_count_before
= face_change_count
;
4509 struct buffer
*old_buffer
;
4513 /* Use this general default value to start with until we know if
4514 this frame has a specified name. */
4515 Vx_resource_name
= Vinvocation_name
;
4518 kb
= dpyinfo
->kboard
;
4520 kb
= &the_only_kboard
;
4523 /* Get the name of the frame to use for resource lookup. */
4524 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
4526 && !EQ (name
, Qunbound
)
4528 error ("Invalid frame name--not a string or nil");
4529 Vx_resource_name
= name
;
4532 GCPRO3 (parms
, name
, frame
);
4534 XSETFRAME (frame
, f
);
4536 buffer
= Fget_buffer_create (build_string (" *tip*"));
4537 Fset_window_buffer (FRAME_ROOT_WINDOW (f
), buffer
, Qnil
);
4538 old_buffer
= current_buffer
;
4539 set_buffer_internal_1 (XBUFFER (buffer
));
4540 current_buffer
->truncate_lines
= Qnil
;
4541 specbind (Qinhibit_read_only
, Qt
);
4542 specbind (Qinhibit_modification_hooks
, Qt
);
4545 set_buffer_internal_1 (old_buffer
);
4547 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 0;
4548 record_unwind_protect (unwind_create_tip_frame
, frame
);
4550 /* By setting the output method, we're essentially saying that
4551 the frame is live, as per FRAME_LIVE_P. If we get a signal
4552 from this point on, x_destroy_window might screw up reference
4554 f
->output_method
= output_x_window
;
4555 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
4556 bzero (f
->output_data
.x
, sizeof (struct x_output
));
4557 f
->output_data
.x
->icon_bitmap
= -1;
4558 FRAME_FONTSET (f
) = -1;
4559 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
4560 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
4561 #ifdef USE_TOOLKIT_SCROLL_BARS
4562 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
4563 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
4564 #endif /* USE_TOOLKIT_SCROLL_BARS */
4565 f
->icon_name
= Qnil
;
4566 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
4568 image_cache_refcount
= FRAME_X_IMAGE_CACHE (f
)->refcount
;
4569 dpyinfo_refcount
= dpyinfo
->reference_count
;
4570 #endif /* GLYPH_DEBUG */
4572 FRAME_KBOARD (f
) = kb
;
4574 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4575 f
->output_data
.x
->explicit_parent
= 0;
4577 /* These colors will be set anyway later, but it's important
4578 to get the color reference counts right, so initialize them! */
4581 struct gcpro gcpro1
;
4583 black
= build_string ("black");
4585 f
->output_data
.x
->foreground_pixel
4586 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4587 f
->output_data
.x
->background_pixel
4588 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4589 f
->output_data
.x
->cursor_pixel
4590 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4591 f
->output_data
.x
->cursor_foreground_pixel
4592 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4593 f
->output_data
.x
->border_pixel
4594 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4595 f
->output_data
.x
->mouse_pixel
4596 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4600 /* Set the name; the functions to which we pass f expect the name to
4602 if (EQ (name
, Qunbound
) || NILP (name
))
4604 f
->name
= build_string (dpyinfo
->x_id_name
);
4605 f
->explicit_name
= 0;
4610 f
->explicit_name
= 1;
4611 /* use the frame's title when getting resources for this frame. */
4612 specbind (Qx_resource_name
, name
);
4615 /* Extract the window parameters from the supplied values that are
4616 needed to determine window geometry. */
4620 font
= x_get_arg (dpyinfo
, parms
, Qfont
, "font", "Font", RES_TYPE_STRING
);
4623 /* First, try whatever font the caller has specified. */
4626 tem
= Fquery_fontset (font
, Qnil
);
4628 font
= x_new_fontset (f
, SDATA (tem
));
4630 font
= x_new_font (f
, SDATA (font
));
4633 /* Try out a font which we hope has bold and italic variations. */
4634 if (!STRINGP (font
))
4635 font
= x_new_font (f
, "-adobe-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-1");
4636 if (!STRINGP (font
))
4637 font
= x_new_font (f
, "-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-1");
4638 if (! STRINGP (font
))
4639 font
= x_new_font (f
, "-*-*-medium-r-normal-*-*-140-*-*-c-*-iso8859-1");
4640 if (! STRINGP (font
))
4641 /* This was formerly the first thing tried, but it finds too many fonts
4642 and takes too long. */
4643 font
= x_new_font (f
, "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1");
4644 /* If those didn't work, look for something which will at least work. */
4645 if (! STRINGP (font
))
4646 font
= x_new_font (f
, "-*-fixed-*-*-*-*-*-140-*-*-c-*-iso8859-1");
4648 if (! STRINGP (font
))
4649 font
= build_string ("fixed");
4651 x_default_parameter (f
, parms
, Qfont
, font
,
4652 "font", "Font", RES_TYPE_STRING
);
4655 x_default_parameter (f
, parms
, Qborder_width
, make_number (2),
4656 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
4658 /* This defaults to 2 in order to match xterm. We recognize either
4659 internalBorderWidth or internalBorder (which is what xterm calls
4661 if (NILP (Fassq (Qinternal_border_width
, parms
)))
4665 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
4666 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
4667 if (! EQ (value
, Qunbound
))
4668 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
4672 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
4673 "internalBorderWidth", "internalBorderWidth",
4676 /* Also do the stuff which must be set before the window exists. */
4677 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
4678 "foreground", "Foreground", RES_TYPE_STRING
);
4679 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
4680 "background", "Background", RES_TYPE_STRING
);
4681 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
4682 "pointerColor", "Foreground", RES_TYPE_STRING
);
4683 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
4684 "cursorColor", "Foreground", RES_TYPE_STRING
);
4685 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
4686 "borderColor", "BorderColor", RES_TYPE_STRING
);
4688 /* Init faces before x_default_parameter is called for scroll-bar
4689 parameters because that function calls x_set_scroll_bar_width,
4690 which calls change_frame_size, which calls Fset_window_buffer,
4691 which runs hooks, which call Fvertical_motion. At the end, we
4692 end up in init_iterator with a null face cache, which should not
4694 init_frame_faces (f
);
4696 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4698 window_prompting
= x_figure_window_size (f
, parms
, 0);
4701 XSetWindowAttributes attrs
;
4705 mask
= CWBackPixel
| CWOverrideRedirect
| CWEventMask
;
4706 if (DoesSaveUnders (dpyinfo
->screen
))
4707 mask
|= CWSaveUnder
;
4709 /* Window managers look at the override-redirect flag to determine
4710 whether or net to give windows a decoration (Xlib spec, chapter
4712 attrs
.override_redirect
= True
;
4713 attrs
.save_under
= True
;
4714 attrs
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
4715 /* Arrange for getting MapNotify and UnmapNotify events. */
4716 attrs
.event_mask
= StructureNotifyMask
;
4718 = FRAME_X_WINDOW (f
)
4719 = XCreateWindow (FRAME_X_DISPLAY (f
),
4720 FRAME_X_DISPLAY_INFO (f
)->root_window
,
4721 /* x, y, width, height */
4725 CopyFromParent
, InputOutput
, CopyFromParent
,
4732 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
4733 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4734 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
4735 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4736 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
4737 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
4739 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
4740 Change will not be effected unless different from the current
4742 width
= FRAME_COLS (f
);
4743 height
= FRAME_LINES (f
);
4744 SET_FRAME_COLS (f
, 0);
4745 FRAME_LINES (f
) = 0;
4746 change_frame_size (f
, height
, width
, 1, 0, 0);
4748 /* Add `tooltip' frame parameter's default value. */
4749 if (NILP (Fframe_parameter (frame
, intern ("tooltip"))))
4750 Fmodify_frame_parameters (frame
, Fcons (Fcons (intern ("tooltip"), Qt
),
4753 /* Set up faces after all frame parameters are known. This call
4754 also merges in face attributes specified for new frames.
4756 Frame parameters may be changed if .Xdefaults contains
4757 specifications for the default font. For example, if there is an
4758 `Emacs.default.attributeBackground: pink', the `background-color'
4759 attribute of the frame get's set, which let's the internal border
4760 of the tooltip frame appear in pink. Prevent this. */
4762 Lisp_Object bg
= Fframe_parameter (frame
, Qbackground_color
);
4764 /* Set tip_frame here, so that */
4766 call1 (Qface_set_after_frame_default
, frame
);
4768 if (!EQ (bg
, Fframe_parameter (frame
, Qbackground_color
)))
4769 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qbackground_color
, bg
),
4777 /* It is now ok to make the frame official even if we get an error
4778 below. And the frame needs to be on Vframe_list or making it
4779 visible won't work. */
4780 Vframe_list
= Fcons (frame
, Vframe_list
);
4782 /* Now that the frame is official, it counts as a reference to
4784 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
4786 /* Setting attributes of faces of the tooltip frame from resources
4787 and similar will increment face_change_count, which leads to the
4788 clearing of all current matrices. Since this isn't necessary
4789 here, avoid it by resetting face_change_count to the value it
4790 had before we created the tip frame. */
4791 face_change_count
= face_change_count_before
;
4793 /* Discard the unwind_protect. */
4794 return unbind_to (count
, frame
);
4798 /* Compute where to display tip frame F. PARMS is the list of frame
4799 parameters for F. DX and DY are specified offsets from the current
4800 location of the mouse. WIDTH and HEIGHT are the width and height
4801 of the tooltip. Return coordinates relative to the root window of
4802 the display in *ROOT_X, and *ROOT_Y. */
4805 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, root_x
, root_y
)
4807 Lisp_Object parms
, dx
, dy
;
4809 int *root_x
, *root_y
;
4811 Lisp_Object left
, top
;
4816 /* User-specified position? */
4817 left
= Fcdr (Fassq (Qleft
, parms
));
4818 top
= Fcdr (Fassq (Qtop
, parms
));
4820 /* Move the tooltip window where the mouse pointer is. Resize and
4822 if (!INTEGERP (left
) || !INTEGERP (top
))
4825 XQueryPointer (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
4826 &root
, &child
, root_x
, root_y
, &win_x
, &win_y
, &pmask
);
4831 *root_y
= XINT (top
);
4832 else if (*root_y
+ XINT (dy
) - height
< 0)
4833 *root_y
-= XINT (dy
);
4837 *root_y
+= XINT (dy
);
4840 if (INTEGERP (left
))
4841 *root_x
= XINT (left
);
4842 else if (*root_x
+ XINT (dx
) + width
<= FRAME_X_DISPLAY_INFO (f
)->width
)
4843 /* It fits to the right of the pointer. */
4844 *root_x
+= XINT (dx
);
4845 else if (width
+ XINT (dx
) <= *root_x
)
4846 /* It fits to the left of the pointer. */
4847 *root_x
-= width
+ XINT (dx
);
4849 /* Put it left-justified on the screen--it ought to fit that way. */
4854 DEFUN ("x-show-tip", Fx_show_tip
, Sx_show_tip
, 1, 6, 0,
4855 doc
: /* Show STRING in a "tooltip" window on frame FRAME.
4856 A tooltip window is a small X window displaying a string.
4858 FRAME nil or omitted means use the selected frame.
4860 PARMS is an optional list of frame parameters which can be used to
4861 change the tooltip's appearance.
4863 Automatically hide the tooltip after TIMEOUT seconds. TIMEOUT nil
4864 means use the default timeout of 5 seconds.
4866 If the list of frame parameters PARAMS contains a `left' parameters,
4867 the tooltip is displayed at that x-position. Otherwise it is
4868 displayed at the mouse position, with offset DX added (default is 5 if
4869 DX isn't specified). Likewise for the y-position; if a `top' frame
4870 parameter is specified, it determines the y-position of the tooltip
4871 window, otherwise it is displayed at the mouse position, with offset
4872 DY added (default is -10).
4874 A tooltip's maximum size is specified by `x-max-tooltip-size'.
4875 Text larger than the specified size is clipped. */)
4876 (string
, frame
, parms
, timeout
, dx
, dy
)
4877 Lisp_Object string
, frame
, parms
, timeout
, dx
, dy
;
4882 struct buffer
*old_buffer
;
4883 struct text_pos pos
;
4884 int i
, width
, height
;
4885 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
4886 int old_windows_or_buffers_changed
= windows_or_buffers_changed
;
4887 int count
= SPECPDL_INDEX ();
4889 specbind (Qinhibit_redisplay
, Qt
);
4891 GCPRO4 (string
, parms
, frame
, timeout
);
4893 CHECK_STRING (string
);
4894 f
= check_x_frame (frame
);
4896 timeout
= make_number (5);
4898 CHECK_NATNUM (timeout
);
4901 dx
= make_number (5);
4906 dy
= make_number (-10);
4910 if (NILP (last_show_tip_args
))
4911 last_show_tip_args
= Fmake_vector (make_number (3), Qnil
);
4913 if (!NILP (tip_frame
))
4915 Lisp_Object last_string
= AREF (last_show_tip_args
, 0);
4916 Lisp_Object last_frame
= AREF (last_show_tip_args
, 1);
4917 Lisp_Object last_parms
= AREF (last_show_tip_args
, 2);
4919 if (EQ (frame
, last_frame
)
4920 && !NILP (Fequal (last_string
, string
))
4921 && !NILP (Fequal (last_parms
, parms
)))
4923 struct frame
*f
= XFRAME (tip_frame
);
4925 /* Only DX and DY have changed. */
4926 if (!NILP (tip_timer
))
4928 Lisp_Object timer
= tip_timer
;
4930 call1 (Qcancel_timer
, timer
);
4934 compute_tip_xy (f
, parms
, dx
, dy
, FRAME_PIXEL_WIDTH (f
),
4935 FRAME_PIXEL_HEIGHT (f
), &root_x
, &root_y
);
4936 XMoveWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
4943 /* Hide a previous tip, if any. */
4946 ASET (last_show_tip_args
, 0, string
);
4947 ASET (last_show_tip_args
, 1, frame
);
4948 ASET (last_show_tip_args
, 2, parms
);
4950 /* Add default values to frame parameters. */
4951 if (NILP (Fassq (Qname
, parms
)))
4952 parms
= Fcons (Fcons (Qname
, build_string ("tooltip")), parms
);
4953 if (NILP (Fassq (Qinternal_border_width
, parms
)))
4954 parms
= Fcons (Fcons (Qinternal_border_width
, make_number (3)), parms
);
4955 if (NILP (Fassq (Qborder_width
, parms
)))
4956 parms
= Fcons (Fcons (Qborder_width
, make_number (1)), parms
);
4957 if (NILP (Fassq (Qborder_color
, parms
)))
4958 parms
= Fcons (Fcons (Qborder_color
, build_string ("lightyellow")), parms
);
4959 if (NILP (Fassq (Qbackground_color
, parms
)))
4960 parms
= Fcons (Fcons (Qbackground_color
, build_string ("lightyellow")),
4963 /* Create a frame for the tooltip, and record it in the global
4964 variable tip_frame. */
4965 frame
= x_create_tip_frame (FRAME_X_DISPLAY_INFO (f
), parms
, string
);
4968 /* Set up the frame's root window. */
4969 w
= XWINDOW (FRAME_ROOT_WINDOW (f
));
4970 w
->left_col
= w
->top_line
= make_number (0);
4972 if (CONSP (Vx_max_tooltip_size
)
4973 && INTEGERP (XCAR (Vx_max_tooltip_size
))
4974 && XINT (XCAR (Vx_max_tooltip_size
)) > 0
4975 && INTEGERP (XCDR (Vx_max_tooltip_size
))
4976 && XINT (XCDR (Vx_max_tooltip_size
)) > 0)
4978 w
->total_cols
= XCAR (Vx_max_tooltip_size
);
4979 w
->total_lines
= XCDR (Vx_max_tooltip_size
);
4983 w
->total_cols
= make_number (80);
4984 w
->total_lines
= make_number (40);
4987 FRAME_TOTAL_COLS (f
) = XINT (w
->total_cols
);
4989 w
->pseudo_window_p
= 1;
4991 /* Display the tooltip text in a temporary buffer. */
4992 old_buffer
= current_buffer
;
4993 set_buffer_internal_1 (XBUFFER (XWINDOW (FRAME_ROOT_WINDOW (f
))->buffer
));
4994 current_buffer
->truncate_lines
= Qnil
;
4995 clear_glyph_matrix (w
->desired_matrix
);
4996 clear_glyph_matrix (w
->current_matrix
);
4997 SET_TEXT_POS (pos
, BEGV
, BEGV_BYTE
);
4998 try_window (FRAME_ROOT_WINDOW (f
), pos
);
5000 /* Compute width and height of the tooltip. */
5002 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
5004 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
5008 /* Stop at the first empty row at the end. */
5009 if (!row
->enabled_p
|| !row
->displays_text_p
)
5012 /* Let the row go over the full width of the frame. */
5013 row
->full_width_p
= 1;
5015 /* There's a glyph at the end of rows that is used to place
5016 the cursor there. Don't include the width of this glyph. */
5017 if (row
->used
[TEXT_AREA
])
5019 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
5020 row_width
= row
->pixel_width
- last
->pixel_width
;
5023 row_width
= row
->pixel_width
;
5025 height
+= row
->height
;
5026 width
= max (width
, row_width
);
5029 /* Add the frame's internal border to the width and height the X
5030 window should have. */
5031 height
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5032 width
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5034 /* Move the tooltip window where the mouse pointer is. Resize and
5036 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
5039 XMoveResizeWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5040 root_x
, root_y
, width
, height
);
5041 XMapRaised (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
));
5044 /* Draw into the window. */
5045 w
->must_be_updated_p
= 1;
5046 update_single_window (w
, 1);
5048 /* Restore original current buffer. */
5049 set_buffer_internal_1 (old_buffer
);
5050 windows_or_buffers_changed
= old_windows_or_buffers_changed
;
5053 /* Let the tip disappear after timeout seconds. */
5054 tip_timer
= call3 (intern ("run-at-time"), timeout
, Qnil
,
5055 intern ("x-hide-tip"));
5058 return unbind_to (count
, Qnil
);
5062 DEFUN ("x-hide-tip", Fx_hide_tip
, Sx_hide_tip
, 0, 0, 0,
5063 doc
: /* Hide the current tooltip window, if there is any.
5064 Value is t if tooltip was open, nil otherwise. */)
5068 Lisp_Object deleted
, frame
, timer
;
5069 struct gcpro gcpro1
, gcpro2
;
5071 /* Return quickly if nothing to do. */
5072 if (NILP (tip_timer
) && NILP (tip_frame
))
5077 GCPRO2 (frame
, timer
);
5078 tip_frame
= tip_timer
= deleted
= Qnil
;
5080 count
= SPECPDL_INDEX ();
5081 specbind (Qinhibit_redisplay
, Qt
);
5082 specbind (Qinhibit_quit
, Qt
);
5085 call1 (Qcancel_timer
, timer
);
5089 Fdelete_frame (frame
, Qnil
);
5093 /* Bloodcurdling hack alert: The Lucid menu bar widget's
5094 redisplay procedure is not called when a tip frame over menu
5095 items is unmapped. Redisplay the menu manually... */
5097 struct frame
*f
= SELECTED_FRAME ();
5098 Widget w
= f
->output_data
.x
->menubar_widget
;
5099 extern void xlwmenu_redisplay
P_ ((Widget
));
5101 if (!DoesSaveUnders (FRAME_X_DISPLAY_INFO (f
)->screen
)
5105 xlwmenu_redisplay (w
);
5109 #endif /* USE_LUCID */
5113 return unbind_to (count
, deleted
);
5118 /***********************************************************************
5119 File selection dialog
5120 ***********************************************************************/
5124 /* Callback for "OK" and "Cancel" on file selection dialog. */
5127 file_dialog_cb (widget
, client_data
, call_data
)
5129 XtPointer call_data
, client_data
;
5131 int *result
= (int *) client_data
;
5132 XmAnyCallbackStruct
*cb
= (XmAnyCallbackStruct
*) call_data
;
5133 *result
= cb
->reason
;
5137 /* Callback for unmapping a file selection dialog. This is used to
5138 capture the case where a dialog is closed via a window manager's
5139 closer button, for example. Using a XmNdestroyCallback didn't work
5143 file_dialog_unmap_cb (widget
, client_data
, call_data
)
5145 XtPointer call_data
, client_data
;
5147 int *result
= (int *) client_data
;
5148 *result
= XmCR_CANCEL
;
5152 clean_up_file_dialog (arg
)
5155 struct Lisp_Save_Value
*p
= XSAVE_VALUE (arg
);
5156 Widget dialog
= (Widget
) p
->pointer
;
5160 XtUnmanageChild (dialog
);
5161 XtDestroyWidget (dialog
);
5162 x_menu_set_in_use (0);
5169 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5170 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5171 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5172 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5173 or directory must exist. ONLY-DIR-P is ignored." */)
5174 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
)
5175 Lisp_Object prompt
, dir
, default_filename
, mustmatch
, only_dir_p
;
5178 struct frame
*f
= SELECTED_FRAME ();
5179 Lisp_Object file
= Qnil
;
5180 Widget dialog
, text
, help
;
5183 extern XtAppContext Xt_app_con
;
5184 XmString dir_xmstring
, pattern_xmstring
;
5185 int count
= SPECPDL_INDEX ();
5186 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5188 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5190 if (popup_activated ())
5191 error ("Trying to use a menu from within a menu-entry");
5193 CHECK_STRING (prompt
);
5196 /* Prevent redisplay. */
5197 specbind (Qinhibit_redisplay
, Qt
);
5201 /* Create the dialog with PROMPT as title, using DIR as initial
5202 directory and using "*" as pattern. */
5203 dir
= Fexpand_file_name (dir
, Qnil
);
5204 dir_xmstring
= XmStringCreateLocalized (SDATA (dir
));
5205 pattern_xmstring
= XmStringCreateLocalized ("*");
5207 XtSetArg (al
[ac
], XmNtitle
, SDATA (prompt
)); ++ac
;
5208 XtSetArg (al
[ac
], XmNdirectory
, dir_xmstring
); ++ac
;
5209 XtSetArg (al
[ac
], XmNpattern
, pattern_xmstring
); ++ac
;
5210 XtSetArg (al
[ac
], XmNresizePolicy
, XmRESIZE_GROW
); ++ac
;
5211 XtSetArg (al
[ac
], XmNdialogStyle
, XmDIALOG_APPLICATION_MODAL
); ++ac
;
5212 dialog
= XmCreateFileSelectionDialog (f
->output_data
.x
->widget
,
5214 XmStringFree (dir_xmstring
);
5215 XmStringFree (pattern_xmstring
);
5217 /* Add callbacks for OK and Cancel. */
5218 XtAddCallback (dialog
, XmNokCallback
, file_dialog_cb
,
5219 (XtPointer
) &result
);
5220 XtAddCallback (dialog
, XmNcancelCallback
, file_dialog_cb
,
5221 (XtPointer
) &result
);
5222 XtAddCallback (dialog
, XmNunmapCallback
, file_dialog_unmap_cb
,
5223 (XtPointer
) &result
);
5225 /* Remove the help button since we can't display help. */
5226 help
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_HELP_BUTTON
);
5227 XtUnmanageChild (help
);
5229 /* Mark OK button as default. */
5230 XtVaSetValues (XmFileSelectionBoxGetChild (dialog
, XmDIALOG_OK_BUTTON
),
5231 XmNshowAsDefault
, True
, NULL
);
5233 /* If MUSTMATCH is non-nil, disable the file entry field of the
5234 dialog, so that the user must select a file from the files list
5235 box. We can't remove it because we wouldn't have a way to get at
5236 the result file name, then. */
5237 text
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5238 if (!NILP (mustmatch
))
5241 label
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_SELECTION_LABEL
);
5242 XtSetSensitive (text
, False
);
5243 XtSetSensitive (label
, False
);
5246 /* Manage the dialog, so that list boxes get filled. */
5247 XtManageChild (dialog
);
5249 if (STRINGP (default_filename
))
5251 XmString default_xmstring
;
5252 Widget wtext
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5253 Widget list
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_LIST
);
5255 XmTextPosition last_pos
= XmTextFieldGetLastPosition (wtext
);
5256 XmTextFieldReplace (wtext
, 0, last_pos
,
5257 (SDATA (Ffile_name_nondirectory (default_filename
))));
5259 /* Select DEFAULT_FILENAME in the files list box. DEFAULT_FILENAME
5260 must include the path for this to work. */
5262 default_xmstring
= XmStringCreateLocalized (SDATA (default_filename
));
5264 if (XmListItemExists (list
, default_xmstring
))
5266 int item_pos
= XmListItemPos (list
, default_xmstring
);
5267 /* Select the item and scroll it into view. */
5268 XmListSelectPos (list
, item_pos
, True
);
5269 XmListSetPos (list
, item_pos
);
5272 XmStringFree (default_xmstring
);
5275 record_unwind_protect (clean_up_file_dialog
, make_save_value (dialog
, 0));
5277 /* Process events until the user presses Cancel or OK. */
5278 x_menu_set_in_use (1);
5283 x_menu_wait_for_event (0);
5284 XtAppNextEvent (Xt_app_con
, &event
);
5285 if (event
.type
== KeyPress
5286 && FRAME_X_DISPLAY (f
) == event
.xkey
.display
)
5288 KeySym keysym
= XLookupKeysym (&event
.xkey
, 0);
5290 /* Pop down on C-g. */
5291 if (keysym
== XK_g
&& (event
.xkey
.state
& ControlMask
) != 0)
5292 XtUnmanageChild (dialog
);
5295 (void) x_dispatch_event (&event
, FRAME_X_DISPLAY (f
));
5298 /* Get the result. */
5299 if (result
== XmCR_OK
)
5304 XtVaGetValues (dialog
, XmNtextString
, &text
, NULL
);
5305 XmStringGetLtoR (text
, XmFONTLIST_DEFAULT_TAG
, &data
);
5306 XmStringFree (text
);
5307 file
= build_string (data
);
5316 /* Make "Cancel" equivalent to C-g. */
5318 Fsignal (Qquit
, Qnil
);
5320 return unbind_to (count
, file
);
5323 #endif /* USE_MOTIF */
5328 clean_up_dialog (arg
)
5331 x_menu_set_in_use (0);
5336 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5337 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5338 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5339 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5340 or directory must exist. If ONLY-DIR-P is non-nil, the user can only select
5342 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
)
5343 Lisp_Object prompt
, dir
, default_filename
, mustmatch
, only_dir_p
;
5345 FRAME_PTR f
= SELECTED_FRAME ();
5347 Lisp_Object file
= Qnil
;
5348 int count
= SPECPDL_INDEX ();
5349 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5352 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5354 if (popup_activated ())
5355 error ("Trying to use a menu from within a menu-entry");
5357 CHECK_STRING (prompt
);
5360 /* Prevent redisplay. */
5361 specbind (Qinhibit_redisplay
, Qt
);
5362 record_unwind_protect (clean_up_dialog
, Qnil
);
5366 if (STRINGP (default_filename
))
5367 cdef_file
= SDATA (default_filename
);
5369 cdef_file
= SDATA (dir
);
5371 fn
= xg_get_file_name (f
, SDATA (prompt
), cdef_file
,
5373 ! NILP (only_dir_p
));
5377 file
= build_string (fn
);
5384 /* Make "Cancel" equivalent to C-g. */
5386 Fsignal (Qquit
, Qnil
);
5388 return unbind_to (count
, file
);
5391 #endif /* USE_GTK */
5394 /***********************************************************************
5396 ***********************************************************************/
5398 #ifdef HAVE_XKBGETKEYBOARD
5399 #include <X11/XKBlib.h>
5400 #include <X11/keysym.h>
5403 DEFUN ("x-backspace-delete-keys-p", Fx_backspace_delete_keys_p
,
5404 Sx_backspace_delete_keys_p
, 0, 1, 0,
5405 doc
: /* Check if both Backspace and Delete keys are on the keyboard of FRAME.
5406 FRAME nil means use the selected frame.
5407 Value is t if we know that both keys are present, and are mapped to the
5408 usual X keysyms. */)
5412 #ifdef HAVE_XKBGETKEYBOARD
5414 struct frame
*f
= check_x_frame (frame
);
5415 Display
*dpy
= FRAME_X_DISPLAY (f
);
5416 Lisp_Object have_keys
;
5417 int major
, minor
, op
, event
, error
;
5421 /* Check library version in case we're dynamically linked. */
5422 major
= XkbMajorVersion
;
5423 minor
= XkbMinorVersion
;
5424 if (!XkbLibraryVersion (&major
, &minor
))
5430 /* Check that the server supports XKB. */
5431 major
= XkbMajorVersion
;
5432 minor
= XkbMinorVersion
;
5433 if (!XkbQueryExtension (dpy
, &op
, &event
, &error
, &major
, &minor
))
5439 /* In this code we check that the keyboard has physical keys with names
5440 that start with BKSP (Backspace) and DELE (Delete), and that they
5441 generate keysym XK_BackSpace and XK_Delete respectively.
5442 This function is used to test if normal-erase-is-backspace should be
5444 An alternative approach would be to just check if XK_BackSpace and
5445 XK_Delete are mapped to any key. But if any of those are mapped to
5446 some non-intuitive key combination (Meta-Shift-Ctrl-whatever) and the
5447 user doesn't know about it, it is better to return false here.
5448 It is more obvious to the user what to do if she/he has two keys
5449 clearly marked with names/symbols and one key does something not
5450 expected (i.e. she/he then tries the other).
5451 The cases where Backspace/Delete is mapped to some other key combination
5452 are rare, and in those cases, normal-erase-is-backspace can be turned on
5456 kb
= XkbGetMap (dpy
, XkbAllMapComponentsMask
, XkbUseCoreKbd
);
5459 int delete_keycode
= 0, backspace_keycode
= 0, i
;
5461 if (XkbGetNames (dpy
, XkbAllNamesMask
, kb
) == Success
)
5463 for (i
= kb
->min_key_code
;
5464 (i
< kb
->max_key_code
5465 && (delete_keycode
== 0 || backspace_keycode
== 0));
5468 /* The XKB symbolic key names can be seen most easily in
5469 the PS file generated by `xkbprint -label name
5471 if (bcmp ("DELE", kb
->names
->keys
[i
].name
, 4) == 0)
5473 else if (bcmp ("BKSP", kb
->names
->keys
[i
].name
, 4) == 0)
5474 backspace_keycode
= i
;
5477 XkbFreeNames (kb
, 0, True
);
5480 XkbFreeClientMap (kb
, 0, True
);
5483 && backspace_keycode
5484 && XKeysymToKeycode (dpy
, XK_Delete
) == delete_keycode
5485 && XKeysymToKeycode (dpy
, XK_BackSpace
) == backspace_keycode
)
5490 #else /* not HAVE_XKBGETKEYBOARD */
5492 #endif /* not HAVE_XKBGETKEYBOARD */
5497 /***********************************************************************
5499 ***********************************************************************/
5501 /* Keep this list in the same order as frame_parms in frame.c.
5502 Use 0 for unsupported frame parameters. */
5504 frame_parm_handler x_frame_parm_handlers
[] =
5508 x_set_background_color
,
5514 x_set_foreground_color
,
5517 x_set_internal_border_width
,
5518 x_set_menu_bar_lines
,
5520 x_explicitly_set_name
,
5521 x_set_scroll_bar_width
,
5524 x_set_vertical_scroll_bars
,
5526 x_set_tool_bar_lines
,
5527 x_set_scroll_bar_foreground
,
5528 x_set_scroll_bar_background
,
5540 /* This is zero if not using X windows. */
5543 /* The section below is built by the lisp expression at the top of the file,
5544 just above where these variables are declared. */
5545 /*&&& init symbols here &&&*/
5546 Qnone
= intern ("none");
5548 Qsuppress_icon
= intern ("suppress-icon");
5549 staticpro (&Qsuppress_icon
);
5550 Qundefined_color
= intern ("undefined-color");
5551 staticpro (&Qundefined_color
);
5552 Qcompound_text
= intern ("compound-text");
5553 staticpro (&Qcompound_text
);
5554 Qcancel_timer
= intern ("cancel-timer");
5555 staticpro (&Qcancel_timer
);
5556 /* This is the end of symbol initialization. */
5558 /* Text property `display' should be nonsticky by default. */
5559 Vtext_property_default_nonsticky
5560 = Fcons (Fcons (Qdisplay
, Qt
), Vtext_property_default_nonsticky
);
5563 Fput (Qundefined_color
, Qerror_conditions
,
5564 Fcons (Qundefined_color
, Fcons (Qerror
, Qnil
)));
5565 Fput (Qundefined_color
, Qerror_message
,
5566 build_string ("Undefined color"));
5568 DEFVAR_LISP ("x-pointer-shape", &Vx_pointer_shape
,
5569 doc
: /* The shape of the pointer when over text.
5570 Changing the value does not affect existing frames
5571 unless you set the mouse color. */);
5572 Vx_pointer_shape
= Qnil
;
5574 #if 0 /* This doesn't really do anything. */
5575 DEFVAR_LISP ("x-nontext-pointer-shape", &Vx_nontext_pointer_shape
,
5576 doc
: /* The shape of the pointer when not over text.
5577 This variable takes effect when you create a new frame
5578 or when you set the mouse color. */);
5580 Vx_nontext_pointer_shape
= Qnil
;
5582 DEFVAR_LISP ("x-hourglass-pointer-shape", &Vx_hourglass_pointer_shape
,
5583 doc
: /* The shape of the pointer when Emacs is busy.
5584 This variable takes effect when you create a new frame
5585 or when you set the mouse color. */);
5586 Vx_hourglass_pointer_shape
= Qnil
;
5588 DEFVAR_BOOL ("display-hourglass", &display_hourglass_p
,
5589 doc
: /* Non-zero means Emacs displays an hourglass pointer on window systems. */);
5590 display_hourglass_p
= 1;
5592 DEFVAR_LISP ("hourglass-delay", &Vhourglass_delay
,
5593 doc
: /* *Seconds to wait before displaying an hourglass pointer.
5594 Value must be an integer or float. */);
5595 Vhourglass_delay
= make_number (DEFAULT_HOURGLASS_DELAY
);
5597 #if 0 /* This doesn't really do anything. */
5598 DEFVAR_LISP ("x-mode-pointer-shape", &Vx_mode_pointer_shape
,
5599 doc
: /* The shape of the pointer when over the mode line.
5600 This variable takes effect when you create a new frame
5601 or when you set the mouse color. */);
5603 Vx_mode_pointer_shape
= Qnil
;
5605 DEFVAR_LISP ("x-sensitive-text-pointer-shape",
5606 &Vx_sensitive_text_pointer_shape
,
5607 doc
: /* The shape of the pointer when over mouse-sensitive text.
5608 This variable takes effect when you create a new frame
5609 or when you set the mouse color. */);
5610 Vx_sensitive_text_pointer_shape
= Qnil
;
5612 DEFVAR_LISP ("x-window-horizontal-drag-cursor",
5613 &Vx_window_horizontal_drag_shape
,
5614 doc
: /* Pointer shape to use for indicating a window can be dragged horizontally.
5615 This variable takes effect when you create a new frame
5616 or when you set the mouse color. */);
5617 Vx_window_horizontal_drag_shape
= Qnil
;
5619 DEFVAR_LISP ("x-cursor-fore-pixel", &Vx_cursor_fore_pixel
,
5620 doc
: /* A string indicating the foreground color of the cursor box. */);
5621 Vx_cursor_fore_pixel
= Qnil
;
5623 DEFVAR_LISP ("x-max-tooltip-size", &Vx_max_tooltip_size
,
5624 doc
: /* Maximum size for tooltips. Value is a pair (COLUMNS . ROWS).
5625 Text larger than this is clipped. */);
5626 Vx_max_tooltip_size
= Fcons (make_number (80), make_number (40));
5628 DEFVAR_LISP ("x-no-window-manager", &Vx_no_window_manager
,
5629 doc
: /* Non-nil if no X window manager is in use.
5630 Emacs doesn't try to figure this out; this is always nil
5631 unless you set it to something else. */);
5632 /* We don't have any way to find this out, so set it to nil
5633 and maybe the user would like to set it to t. */
5634 Vx_no_window_manager
= Qnil
;
5636 DEFVAR_LISP ("x-pixel-size-width-font-regexp",
5637 &Vx_pixel_size_width_font_regexp
,
5638 doc
: /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'.
5640 Since Emacs gets width of a font matching with this regexp from
5641 PIXEL_SIZE field of the name, font finding mechanism gets faster for
5642 such a font. This is especially effective for such large fonts as
5643 Chinese, Japanese, and Korean. */);
5644 Vx_pixel_size_width_font_regexp
= Qnil
;
5646 /* This is not ifdef:ed, so other builds than GTK can customize it. */
5647 DEFVAR_BOOL ("x-use-old-gtk-file-dialog", &x_use_old_gtk_file_dialog
,
5648 doc
: /* *Non-nil means prompt with the old GTK file selection dialog.
5649 If nil or if the file selection dialog is not available, the new GTK file
5650 chooser is used instead. To turn off all file dialogs set the
5651 variable `use-file-dialog'. */);
5652 x_use_old_gtk_file_dialog
= 0;
5654 #ifdef USE_X_TOOLKIT
5655 Fprovide (intern ("x-toolkit"), Qnil
);
5657 Fprovide (intern ("motif"), Qnil
);
5659 DEFVAR_LISP ("motif-version-string", &Vmotif_version_string
,
5660 doc
: /* Version info for LessTif/Motif. */);
5661 Vmotif_version_string
= build_string (XmVERSION_STRING
);
5662 #endif /* USE_MOTIF */
5663 #endif /* USE_X_TOOLKIT */
5666 /* Provide x-toolkit also for GTK. Internally GTK does not use Xt so it
5667 is not an X toolkit in that sense (USE_X_TOOLKIT is not defined).
5668 But for a user it is a toolkit for X, and indeed, configure
5669 accepts --with-x-toolkit=gtk. */
5670 Fprovide (intern ("x-toolkit"), Qnil
);
5671 Fprovide (intern ("gtk"), Qnil
);
5673 DEFVAR_LISP ("gtk-version-string", &Vgtk_version_string
,
5674 doc
: /* Version info for GTK+. */);
5676 char gtk_version
[40];
5677 g_snprintf (gtk_version
, sizeof (gtk_version
), "%u.%u.%u",
5678 GTK_MAJOR_VERSION
, GTK_MINOR_VERSION
, GTK_MICRO_VERSION
);
5679 Vgtk_version_string
= build_string (gtk_version
);
5681 #endif /* USE_GTK */
5683 /* X window properties. */
5684 defsubr (&Sx_change_window_property
);
5685 defsubr (&Sx_delete_window_property
);
5686 defsubr (&Sx_window_property
);
5688 defsubr (&Sxw_display_color_p
);
5689 defsubr (&Sx_display_grayscale_p
);
5690 defsubr (&Sxw_color_defined_p
);
5691 defsubr (&Sxw_color_values
);
5692 defsubr (&Sx_server_max_request_size
);
5693 defsubr (&Sx_server_vendor
);
5694 defsubr (&Sx_server_version
);
5695 defsubr (&Sx_display_pixel_width
);
5696 defsubr (&Sx_display_pixel_height
);
5697 defsubr (&Sx_display_mm_width
);
5698 defsubr (&Sx_display_mm_height
);
5699 defsubr (&Sx_display_screens
);
5700 defsubr (&Sx_display_planes
);
5701 defsubr (&Sx_display_color_cells
);
5702 defsubr (&Sx_display_visual_class
);
5703 defsubr (&Sx_display_backing_store
);
5704 defsubr (&Sx_display_save_under
);
5705 defsubr (&Sx_create_frame
);
5706 defsubr (&Sx_open_connection
);
5707 defsubr (&Sx_close_connection
);
5708 defsubr (&Sx_display_list
);
5709 defsubr (&Sx_synchronize
);
5710 defsubr (&Sx_focus_frame
);
5711 defsubr (&Sx_backspace_delete_keys_p
);
5713 /* Setting callback functions for fontset handler. */
5714 get_font_info_func
= x_get_font_info
;
5716 #if 0 /* This function pointer doesn't seem to be used anywhere.
5717 And the pointer assigned has the wrong type, anyway. */
5718 list_fonts_func
= x_list_fonts
;
5721 load_font_func
= x_load_font
;
5722 find_ccl_program_func
= x_find_ccl_program
;
5723 query_font_func
= x_query_font
;
5724 set_frame_fontset_func
= x_set_font
;
5725 check_window_system_func
= check_x
;
5727 hourglass_atimer
= NULL
;
5728 hourglass_shown_p
= 0;
5730 defsubr (&Sx_show_tip
);
5731 defsubr (&Sx_hide_tip
);
5733 staticpro (&tip_timer
);
5735 staticpro (&tip_frame
);
5737 last_show_tip_args
= Qnil
;
5738 staticpro (&last_show_tip_args
);
5740 #if defined (USE_MOTIF) || defined (USE_GTK)
5741 defsubr (&Sx_file_dialog
);
5745 #endif /* HAVE_X_WINDOWS */
5747 /* arch-tag: 55040d02-5485-4d58-8b22-95a7a05f3288
5748 (do not change this comment) */