1 /* Functions for the X window system.
2 Copyright (C) 1989, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000,
3 2001, 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc.
5 This file is part of GNU Emacs.
7 GNU Emacs is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 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., 51 Franklin Street, Fifth Floor,
20 Boston, MA 02110-1301, USA. */
30 /* This makes the fields of a Display accessible, in Xlib header files. */
32 #define XLIB_ILLEGAL_ACCESS
39 #include "intervals.h"
40 #include "dispextern.h"
42 #include "blockinput.h"
48 #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 /* If non-zero, by default show hidden files in the GTK file chooser. */
160 int x_gtk_show_hidden_files
;
162 /* If non-zero, don't collapse to tool bar when it is detached. */
164 int x_gtk_whole_detached_tool_bar
;
166 /* The background and shape of the mouse pointer, and shape when not
167 over text or in the modeline. */
169 Lisp_Object Vx_pointer_shape
, Vx_nontext_pointer_shape
, Vx_mode_pointer_shape
;
170 Lisp_Object Vx_hourglass_pointer_shape
;
172 /* The shape when over mouse-sensitive text. */
174 Lisp_Object Vx_sensitive_text_pointer_shape
;
176 /* If non-nil, the pointer shape to indicate that windows can be
177 dragged horizontally. */
179 Lisp_Object Vx_window_horizontal_drag_shape
;
181 /* Color of chars displayed in cursor box. */
183 Lisp_Object Vx_cursor_fore_pixel
;
185 /* Nonzero if using X. */
189 /* Non nil if no window manager is in use. */
191 Lisp_Object Vx_no_window_manager
;
193 /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'. */
195 Lisp_Object Vx_pixel_size_width_font_regexp
;
198 Lisp_Object Qsuppress_icon
;
199 Lisp_Object Qundefined_color
;
200 Lisp_Object Qcompound_text
, Qcancel_timer
;
204 extern Lisp_Object Vwindow_system_version
;
206 /* The below are defined in frame.c. */
209 int image_cache_refcount
, dpyinfo_refcount
;
214 /* Error if we are not connected to X. */
220 error ("X windows are not in use or not initialized");
223 /* Nonzero if we can use mouse menus.
224 You should not call this unless HAVE_MENUS is defined. */
232 /* Extract a frame as a FRAME_PTR, defaulting to the selected frame
233 and checking validity for X. */
236 check_x_frame (frame
)
242 frame
= selected_frame
;
243 CHECK_LIVE_FRAME (frame
);
246 error ("Non-X frame used");
250 /* Let the user specify an X display with a Lisp object.
251 OBJECT may be nil, a frame or a terminal id.
252 nil stands for the selected frame--or, if that is not an X frame,
253 the first X display on the list. */
255 struct x_display_info
*
256 check_x_display_info (object
)
259 struct x_display_info
*dpyinfo
= NULL
;
263 struct frame
*sf
= XFRAME (selected_frame
);
265 if (FRAME_X_P (sf
) && FRAME_LIVE_P (sf
))
266 dpyinfo
= FRAME_X_DISPLAY_INFO (sf
);
267 else if (x_display_list
!= 0)
268 dpyinfo
= x_display_list
;
270 error ("X windows are not in use or not initialized");
272 else if (INTEGERP (object
))
274 struct terminal
*t
= get_terminal (XINT (object
), 1);
276 if (t
->type
!= output_x_window
)
277 error ("Terminal %d is not an X display", XINT (object
));
279 dpyinfo
= t
->display_info
.x
;
281 else if (STRINGP (object
))
282 dpyinfo
= x_display_info_for_name (object
);
285 FRAME_PTR f
= check_x_frame (object
);
286 dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
293 /* Return the Emacs frame-object corresponding to an X window.
294 It could be the frame's main window or an icon window. */
296 /* This function can be called during GC, so use GC_xxx type test macros. */
299 x_window_to_frame (dpyinfo
, wdesc
)
300 struct x_display_info
*dpyinfo
;
303 Lisp_Object tail
, frame
;
306 if (wdesc
== None
) return 0;
308 for (tail
= Vframe_list
; GC_CONSP (tail
); tail
= XCDR (tail
))
311 if (!GC_FRAMEP (frame
))
314 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
316 if (f
->output_data
.x
->hourglass_window
== wdesc
)
319 if ((f
->output_data
.x
->edit_widget
320 && XtWindow (f
->output_data
.x
->edit_widget
) == wdesc
)
321 /* A tooltip frame? */
322 || (!f
->output_data
.x
->edit_widget
323 && FRAME_X_WINDOW (f
) == wdesc
)
324 || f
->output_data
.x
->icon_desc
== wdesc
)
326 #else /* not USE_X_TOOLKIT */
328 if (f
->output_data
.x
->edit_widget
)
330 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
331 struct x_output
*x
= f
->output_data
.x
;
332 if (gwdesc
!= 0 && gwdesc
== x
->edit_widget
)
336 if (FRAME_X_WINDOW (f
) == wdesc
337 || f
->output_data
.x
->icon_desc
== wdesc
)
339 #endif /* not USE_X_TOOLKIT */
344 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
345 /* Like x_window_to_frame but also compares the window with the widget's
349 x_any_window_to_frame (dpyinfo
, wdesc
)
350 struct x_display_info
*dpyinfo
;
353 Lisp_Object tail
, frame
;
354 struct frame
*f
, *found
;
357 if (wdesc
== None
) return NULL
;
360 for (tail
= Vframe_list
; GC_CONSP (tail
) && !found
; tail
= XCDR (tail
))
363 if (!GC_FRAMEP (frame
))
367 if (FRAME_X_P (f
) && FRAME_X_DISPLAY_INFO (f
) == dpyinfo
)
369 /* This frame matches if the window is any of its widgets. */
370 x
= f
->output_data
.x
;
371 if (x
->hourglass_window
== wdesc
)
376 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
378 && (gwdesc
== x
->widget
379 || gwdesc
== x
->edit_widget
380 || gwdesc
== x
->vbox_widget
381 || gwdesc
== x
->menubar_widget
))
384 if (wdesc
== XtWindow (x
->widget
)
385 || wdesc
== XtWindow (x
->column_widget
)
386 || wdesc
== XtWindow (x
->edit_widget
))
388 /* Match if the window is this frame's menubar. */
389 else if (lw_window_is_in_menubar (wdesc
, x
->menubar_widget
))
393 else if (FRAME_X_WINDOW (f
) == wdesc
)
394 /* A tooltip frame. */
402 /* Likewise, but exclude the menu bar widget. */
405 x_non_menubar_window_to_frame (dpyinfo
, wdesc
)
406 struct x_display_info
*dpyinfo
;
409 Lisp_Object tail
, frame
;
413 if (wdesc
== None
) return 0;
415 for (tail
= Vframe_list
; GC_CONSP (tail
); tail
= XCDR (tail
))
418 if (!GC_FRAMEP (frame
))
421 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
423 x
= f
->output_data
.x
;
424 /* This frame matches if the window is any of its widgets. */
425 if (x
->hourglass_window
== wdesc
)
430 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
432 && (gwdesc
== x
->widget
433 || gwdesc
== x
->edit_widget
434 || gwdesc
== x
->vbox_widget
))
437 if (wdesc
== XtWindow (x
->widget
)
438 || wdesc
== XtWindow (x
->column_widget
)
439 || wdesc
== XtWindow (x
->edit_widget
))
443 else if (FRAME_X_WINDOW (f
) == wdesc
)
444 /* A tooltip frame. */
450 /* Likewise, but consider only the menu bar widget. */
453 x_menubar_window_to_frame (dpyinfo
, wdesc
)
454 struct x_display_info
*dpyinfo
;
457 Lisp_Object tail
, frame
;
461 if (wdesc
== None
) return 0;
463 for (tail
= Vframe_list
; GC_CONSP (tail
); tail
= XCDR (tail
))
466 if (!GC_FRAMEP (frame
))
469 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
471 x
= f
->output_data
.x
;
472 /* Match if the window is this frame's menubar. */
474 if (x
->menubar_widget
)
476 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
481 && (gwdesc
== x
->menubar_widget
482 || gtk_widget_get_parent (gwdesc
) == x
->menubar_widget
))
488 if (x
->menubar_widget
489 && lw_window_is_in_menubar (wdesc
, x
->menubar_widget
))
496 /* Return the frame whose principal (outermost) window is WDESC.
497 If WDESC is some other (smaller) window, we return 0. */
500 x_top_window_to_frame (dpyinfo
, wdesc
)
501 struct x_display_info
*dpyinfo
;
504 Lisp_Object tail
, frame
;
508 if (wdesc
== None
) return 0;
510 for (tail
= Vframe_list
; GC_CONSP (tail
); tail
= XCDR (tail
))
513 if (!GC_FRAMEP (frame
))
516 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
518 x
= f
->output_data
.x
;
522 /* This frame matches if the window is its topmost widget. */
524 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
525 if (gwdesc
== x
->widget
)
528 if (wdesc
== XtWindow (x
->widget
))
530 #if 0 /* I don't know why it did this,
531 but it seems logically wrong,
532 and it causes trouble for MapNotify events. */
533 /* Match if the window is this frame's menubar. */
534 if (x
->menubar_widget
535 && wdesc
== XtWindow (x
->menubar_widget
))
540 else if (FRAME_X_WINDOW (f
) == wdesc
)
546 #endif /* USE_X_TOOLKIT || USE_GTK */
550 static Lisp_Object unwind_create_frame
P_ ((Lisp_Object
));
551 static Lisp_Object unwind_create_tip_frame
P_ ((Lisp_Object
));
553 void x_set_foreground_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
554 static void x_set_wait_for_wm
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
555 void x_set_background_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
556 void x_set_mouse_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
557 void x_set_cursor_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
558 void x_set_border_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
559 void x_set_cursor_type
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
560 void x_set_icon_type
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
561 void x_set_icon_name
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
562 void x_explicitly_set_name
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
563 void x_set_menu_bar_lines
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
564 void x_set_title
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
565 void x_set_tool_bar_lines
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
566 void x_set_scroll_bar_foreground
P_ ((struct frame
*, Lisp_Object
,
568 void x_set_scroll_bar_background
P_ ((struct frame
*, Lisp_Object
,
570 static Lisp_Object x_default_scroll_bar_color_parameter
P_ ((struct frame
*,
577 /* Store the screen positions of frame F into XPTR and YPTR.
578 These are the positions of the containing window manager window,
579 not Emacs's own window. */
582 x_real_positions (f
, xptr
, yptr
)
586 int win_x
, win_y
, outer_x
, outer_y
;
587 int real_x
= 0, real_y
= 0;
589 Window win
= f
->output_data
.x
->parent_desc
;
593 x_catch_errors (FRAME_X_DISPLAY (f
));
595 if (win
== FRAME_X_DISPLAY_INFO (f
)->root_window
)
596 win
= FRAME_OUTER_WINDOW (f
);
598 /* This loop traverses up the containment tree until we hit the root
599 window. Window managers may intersect many windows between our window
600 and the root window. The window we find just before the root window
601 should be the outer WM window. */
604 Window wm_window
, rootw
;
605 Window
*tmp_children
;
606 unsigned int tmp_nchildren
;
609 success
= XQueryTree (FRAME_X_DISPLAY (f
), win
, &rootw
,
610 &wm_window
, &tmp_children
, &tmp_nchildren
);
612 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
614 /* Don't free tmp_children if XQueryTree failed. */
618 XFree ((char *) tmp_children
);
620 if (wm_window
== rootw
|| had_errors
)
631 /* Get the real coordinates for the WM window upper left corner */
632 XGetGeometry (FRAME_X_DISPLAY (f
), win
,
633 &rootw
, &real_x
, &real_y
, &ign
, &ign
, &ign
, &ign
);
635 /* Translate real coordinates to coordinates relative to our
636 window. For our window, the upper left corner is 0, 0.
637 Since the upper left corner of the WM window is outside
638 our window, win_x and win_y will be negative:
640 ------------------ ---> x
642 | ----------------- v y
645 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
647 /* From-window, to-window. */
648 FRAME_X_DISPLAY_INFO (f
)->root_window
,
651 /* From-position, to-position. */
652 real_x
, real_y
, &win_x
, &win_y
,
657 if (FRAME_X_WINDOW (f
) == FRAME_OUTER_WINDOW (f
))
664 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
666 /* From-window, to-window. */
667 FRAME_X_DISPLAY_INFO (f
)->root_window
,
668 FRAME_OUTER_WINDOW (f
),
670 /* From-position, to-position. */
671 real_x
, real_y
, &outer_x
, &outer_y
,
677 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
684 if (had_errors
) return;
686 f
->x_pixels_diff
= -win_x
;
687 f
->y_pixels_diff
= -win_y
;
689 FRAME_X_OUTPUT (f
)->x_pixels_outer_diff
= -outer_x
;
690 FRAME_X_OUTPUT (f
)->y_pixels_outer_diff
= -outer_y
;
699 /* Gamma-correct COLOR on frame F. */
702 gamma_correct (f
, color
)
708 color
->red
= pow (color
->red
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
709 color
->green
= pow (color
->green
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
710 color
->blue
= pow (color
->blue
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
715 /* Decide if color named COLOR_NAME is valid for use on frame F. If
716 so, return the RGB values in COLOR. If ALLOC_P is non-zero,
717 allocate the color. Value is zero if COLOR_NAME is invalid, or
718 no color could be allocated. */
721 x_defined_color (f
, color_name
, color
, alloc_p
)
728 Display
*dpy
= FRAME_X_DISPLAY (f
);
729 Colormap cmap
= FRAME_X_COLORMAP (f
);
732 success_p
= XParseColor (dpy
, cmap
, color_name
, color
);
733 if (success_p
&& alloc_p
)
734 success_p
= x_alloc_nearest_color (f
, cmap
, color
);
741 /* Return the pixel color value for color COLOR_NAME on frame F. If F
742 is a monochrome frame, return MONO_COLOR regardless of what ARG says.
743 Signal an error if color can't be allocated. */
746 x_decode_color (f
, color_name
, mono_color
)
748 Lisp_Object color_name
;
753 CHECK_STRING (color_name
);
755 #if 0 /* Don't do this. It's wrong when we're not using the default
756 colormap, it makes freeing difficult, and it's probably not
757 an important optimization. */
758 if (strcmp (SDATA (color_name
), "black") == 0)
759 return BLACK_PIX_DEFAULT (f
);
760 else if (strcmp (SDATA (color_name
), "white") == 0)
761 return WHITE_PIX_DEFAULT (f
);
764 /* Return MONO_COLOR for monochrome frames. */
765 if (FRAME_X_DISPLAY_INFO (f
)->n_planes
== 1)
768 /* x_defined_color is responsible for coping with failures
769 by looking for a near-miss. */
770 if (x_defined_color (f
, SDATA (color_name
), &cdef
, 1))
773 Fsignal (Qerror
, Fcons (build_string ("Undefined color"),
774 Fcons (color_name
, Qnil
)));
780 /* Change the `wait-for-wm' frame parameter of frame F. OLD_VALUE is
781 the previous value of that parameter, NEW_VALUE is the new value.
782 See also the comment of wait_for_wm in struct x_output. */
785 x_set_wait_for_wm (f
, new_value
, old_value
)
787 Lisp_Object new_value
, old_value
;
789 f
->output_data
.x
->wait_for_wm
= !NILP (new_value
);
794 /* Set icon from FILE for frame F. By using GTK functions the icon
795 may be any format that GdkPixbuf knows about, i.e. not just bitmaps. */
798 xg_set_icon (f
, file
)
805 found
= x_find_image_file (file
);
811 char *filename
= (char *) SDATA (found
);
814 pixbuf
= gdk_pixbuf_new_from_file (filename
, &err
);
818 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
820 g_object_unref (pixbuf
);
834 xg_set_icon_from_xpm_data (f
, data
)
839 GdkPixbuf
*pixbuf
= gdk_pixbuf_new_from_xpm_data ((const char **) data
);
844 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)), pixbuf
);
845 g_object_unref (pixbuf
);
851 /* Functions called only from `x_set_frame_param'
852 to set individual parameters.
854 If FRAME_X_WINDOW (f) is 0,
855 the frame is being created and its X-window does not exist yet.
856 In that case, just record the parameter's new value
857 in the standard place; do not attempt to change the window. */
860 x_set_foreground_color (f
, arg
, oldval
)
862 Lisp_Object arg
, oldval
;
864 struct x_output
*x
= f
->output_data
.x
;
865 unsigned long fg
, old_fg
;
867 fg
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
868 old_fg
= FRAME_FOREGROUND_PIXEL (f
);
869 FRAME_FOREGROUND_PIXEL (f
) = fg
;
871 if (FRAME_X_WINDOW (f
) != 0)
873 Display
*dpy
= FRAME_X_DISPLAY (f
);
876 XSetForeground (dpy
, x
->normal_gc
, fg
);
877 XSetBackground (dpy
, x
->reverse_gc
, fg
);
879 if (x
->cursor_pixel
== old_fg
)
881 unload_color (f
, x
->cursor_pixel
);
882 x
->cursor_pixel
= x_copy_color (f
, fg
);
883 XSetBackground (dpy
, x
->cursor_gc
, x
->cursor_pixel
);
888 update_face_from_frame_parameter (f
, Qforeground_color
, arg
);
890 if (FRAME_VISIBLE_P (f
))
894 unload_color (f
, old_fg
);
898 x_set_background_color (f
, arg
, oldval
)
900 Lisp_Object arg
, oldval
;
902 struct x_output
*x
= f
->output_data
.x
;
905 bg
= x_decode_color (f
, arg
, WHITE_PIX_DEFAULT (f
));
906 unload_color (f
, FRAME_BACKGROUND_PIXEL (f
));
907 FRAME_BACKGROUND_PIXEL (f
) = bg
;
909 if (FRAME_X_WINDOW (f
) != 0)
911 Display
*dpy
= FRAME_X_DISPLAY (f
);
914 XSetBackground (dpy
, x
->normal_gc
, bg
);
915 XSetForeground (dpy
, x
->reverse_gc
, bg
);
916 XSetWindowBackground (dpy
, FRAME_X_WINDOW (f
), bg
);
917 XSetForeground (dpy
, x
->cursor_gc
, bg
);
920 xg_set_background_color (f
, bg
);
923 #ifndef USE_TOOLKIT_SCROLL_BARS /* Turns out to be annoying with
924 toolkit scroll bars. */
927 for (bar
= FRAME_SCROLL_BARS (f
);
929 bar
= XSCROLL_BAR (bar
)->next
)
931 Window window
= SCROLL_BAR_X_WINDOW (XSCROLL_BAR (bar
));
932 XSetWindowBackground (dpy
, window
, bg
);
935 #endif /* USE_TOOLKIT_SCROLL_BARS */
938 update_face_from_frame_parameter (f
, Qbackground_color
, arg
);
940 if (FRAME_VISIBLE_P (f
))
946 x_set_mouse_color (f
, arg
, oldval
)
948 Lisp_Object arg
, oldval
;
950 struct x_output
*x
= f
->output_data
.x
;
951 Display
*dpy
= FRAME_X_DISPLAY (f
);
952 Cursor cursor
, nontext_cursor
, mode_cursor
, hand_cursor
;
953 Cursor hourglass_cursor
, horizontal_drag_cursor
;
954 unsigned long pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
955 unsigned long mask_color
= FRAME_BACKGROUND_PIXEL (f
);
957 /* Don't let pointers be invisible. */
958 if (mask_color
== pixel
)
960 x_free_colors (f
, &pixel
, 1);
961 pixel
= x_copy_color (f
, FRAME_FOREGROUND_PIXEL (f
));
964 unload_color (f
, x
->mouse_pixel
);
965 x
->mouse_pixel
= pixel
;
969 /* It's not okay to crash if the user selects a screwy cursor. */
970 x_catch_errors (dpy
);
972 if (!NILP (Vx_pointer_shape
))
974 CHECK_NUMBER (Vx_pointer_shape
);
975 cursor
= XCreateFontCursor (dpy
, XINT (Vx_pointer_shape
));
978 cursor
= XCreateFontCursor (dpy
, XC_xterm
);
979 x_check_errors (dpy
, "bad text pointer cursor: %s");
981 if (!NILP (Vx_nontext_pointer_shape
))
983 CHECK_NUMBER (Vx_nontext_pointer_shape
);
985 = XCreateFontCursor (dpy
, XINT (Vx_nontext_pointer_shape
));
988 nontext_cursor
= XCreateFontCursor (dpy
, XC_left_ptr
);
989 x_check_errors (dpy
, "bad nontext pointer cursor: %s");
991 if (!NILP (Vx_hourglass_pointer_shape
))
993 CHECK_NUMBER (Vx_hourglass_pointer_shape
);
995 = XCreateFontCursor (dpy
, XINT (Vx_hourglass_pointer_shape
));
998 hourglass_cursor
= XCreateFontCursor (dpy
, XC_watch
);
999 x_check_errors (dpy
, "bad hourglass pointer cursor: %s");
1001 if (!NILP (Vx_mode_pointer_shape
))
1003 CHECK_NUMBER (Vx_mode_pointer_shape
);
1004 mode_cursor
= XCreateFontCursor (dpy
, XINT (Vx_mode_pointer_shape
));
1007 mode_cursor
= XCreateFontCursor (dpy
, XC_xterm
);
1008 x_check_errors (dpy
, "bad modeline pointer cursor: %s");
1010 if (!NILP (Vx_sensitive_text_pointer_shape
))
1012 CHECK_NUMBER (Vx_sensitive_text_pointer_shape
);
1014 = XCreateFontCursor (dpy
, XINT (Vx_sensitive_text_pointer_shape
));
1017 hand_cursor
= XCreateFontCursor (dpy
, XC_hand2
);
1019 if (!NILP (Vx_window_horizontal_drag_shape
))
1021 CHECK_NUMBER (Vx_window_horizontal_drag_shape
);
1022 horizontal_drag_cursor
1023 = XCreateFontCursor (dpy
, XINT (Vx_window_horizontal_drag_shape
));
1026 horizontal_drag_cursor
1027 = XCreateFontCursor (dpy
, XC_sb_h_double_arrow
);
1029 /* Check and report errors with the above calls. */
1030 x_check_errors (dpy
, "can't set cursor shape: %s");
1031 x_uncatch_errors ();
1034 XColor fore_color
, back_color
;
1036 fore_color
.pixel
= x
->mouse_pixel
;
1037 x_query_color (f
, &fore_color
);
1038 back_color
.pixel
= mask_color
;
1039 x_query_color (f
, &back_color
);
1041 XRecolorCursor (dpy
, cursor
, &fore_color
, &back_color
);
1042 XRecolorCursor (dpy
, nontext_cursor
, &fore_color
, &back_color
);
1043 XRecolorCursor (dpy
, mode_cursor
, &fore_color
, &back_color
);
1044 XRecolorCursor (dpy
, hand_cursor
, &fore_color
, &back_color
);
1045 XRecolorCursor (dpy
, hourglass_cursor
, &fore_color
, &back_color
);
1046 XRecolorCursor (dpy
, horizontal_drag_cursor
, &fore_color
, &back_color
);
1049 if (FRAME_X_WINDOW (f
) != 0)
1050 XDefineCursor (dpy
, FRAME_X_WINDOW (f
), cursor
);
1052 if (cursor
!= x
->text_cursor
1053 && x
->text_cursor
!= 0)
1054 XFreeCursor (dpy
, x
->text_cursor
);
1055 x
->text_cursor
= cursor
;
1057 if (nontext_cursor
!= x
->nontext_cursor
1058 && x
->nontext_cursor
!= 0)
1059 XFreeCursor (dpy
, x
->nontext_cursor
);
1060 x
->nontext_cursor
= nontext_cursor
;
1062 if (hourglass_cursor
!= x
->hourglass_cursor
1063 && x
->hourglass_cursor
!= 0)
1064 XFreeCursor (dpy
, x
->hourglass_cursor
);
1065 x
->hourglass_cursor
= hourglass_cursor
;
1067 if (mode_cursor
!= x
->modeline_cursor
1068 && x
->modeline_cursor
!= 0)
1069 XFreeCursor (dpy
, f
->output_data
.x
->modeline_cursor
);
1070 x
->modeline_cursor
= mode_cursor
;
1072 if (hand_cursor
!= x
->hand_cursor
1073 && x
->hand_cursor
!= 0)
1074 XFreeCursor (dpy
, x
->hand_cursor
);
1075 x
->hand_cursor
= hand_cursor
;
1077 if (horizontal_drag_cursor
!= x
->horizontal_drag_cursor
1078 && x
->horizontal_drag_cursor
!= 0)
1079 XFreeCursor (dpy
, x
->horizontal_drag_cursor
);
1080 x
->horizontal_drag_cursor
= horizontal_drag_cursor
;
1085 update_face_from_frame_parameter (f
, Qmouse_color
, arg
);
1089 x_set_cursor_color (f
, arg
, oldval
)
1091 Lisp_Object arg
, oldval
;
1093 unsigned long fore_pixel
, pixel
;
1094 int fore_pixel_allocated_p
= 0, pixel_allocated_p
= 0;
1095 struct x_output
*x
= f
->output_data
.x
;
1097 if (!NILP (Vx_cursor_fore_pixel
))
1099 fore_pixel
= x_decode_color (f
, Vx_cursor_fore_pixel
,
1100 WHITE_PIX_DEFAULT (f
));
1101 fore_pixel_allocated_p
= 1;
1104 fore_pixel
= FRAME_BACKGROUND_PIXEL (f
);
1106 pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1107 pixel_allocated_p
= 1;
1109 /* Make sure that the cursor color differs from the background color. */
1110 if (pixel
== FRAME_BACKGROUND_PIXEL (f
))
1112 if (pixel_allocated_p
)
1114 x_free_colors (f
, &pixel
, 1);
1115 pixel_allocated_p
= 0;
1118 pixel
= x
->mouse_pixel
;
1119 if (pixel
== fore_pixel
)
1121 if (fore_pixel_allocated_p
)
1123 x_free_colors (f
, &fore_pixel
, 1);
1124 fore_pixel_allocated_p
= 0;
1126 fore_pixel
= FRAME_BACKGROUND_PIXEL (f
);
1130 unload_color (f
, x
->cursor_foreground_pixel
);
1131 if (!fore_pixel_allocated_p
)
1132 fore_pixel
= x_copy_color (f
, fore_pixel
);
1133 x
->cursor_foreground_pixel
= fore_pixel
;
1135 unload_color (f
, x
->cursor_pixel
);
1136 if (!pixel_allocated_p
)
1137 pixel
= x_copy_color (f
, pixel
);
1138 x
->cursor_pixel
= pixel
;
1140 if (FRAME_X_WINDOW (f
) != 0)
1143 XSetBackground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, x
->cursor_pixel
);
1144 XSetForeground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, fore_pixel
);
1147 if (FRAME_VISIBLE_P (f
))
1149 x_update_cursor (f
, 0);
1150 x_update_cursor (f
, 1);
1154 update_face_from_frame_parameter (f
, Qcursor_color
, arg
);
1157 /* Set the border-color of frame F to pixel value PIX.
1158 Note that this does not fully take effect if done before
1159 F has an x-window. */
1162 x_set_border_pixel (f
, pix
)
1166 unload_color (f
, f
->output_data
.x
->border_pixel
);
1167 f
->output_data
.x
->border_pixel
= pix
;
1169 if (FRAME_X_WINDOW (f
) != 0 && f
->border_width
> 0)
1172 XSetWindowBorder (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1173 (unsigned long)pix
);
1176 if (FRAME_VISIBLE_P (f
))
1181 /* Set the border-color of frame F to value described by ARG.
1182 ARG can be a string naming a color.
1183 The border-color is used for the border that is drawn by the X server.
1184 Note that this does not fully take effect if done before
1185 F has an x-window; it must be redone when the window is created.
1187 Note: this is done in two routines because of the way X10 works.
1189 Note: under X11, this is normally the province of the window manager,
1190 and so emacs' border colors may be overridden. */
1193 x_set_border_color (f
, arg
, oldval
)
1195 Lisp_Object arg
, oldval
;
1200 pix
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1201 x_set_border_pixel (f
, pix
);
1202 update_face_from_frame_parameter (f
, Qborder_color
, arg
);
1207 x_set_cursor_type (f
, arg
, oldval
)
1209 Lisp_Object arg
, oldval
;
1211 set_frame_cursor_types (f
, arg
);
1213 /* Make sure the cursor gets redrawn. */
1214 cursor_type_changed
= 1;
1218 x_set_icon_type (f
, arg
, oldval
)
1220 Lisp_Object arg
, oldval
;
1226 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1229 else if (!STRINGP (oldval
) && EQ (oldval
, Qnil
) == EQ (arg
, Qnil
))
1234 result
= x_text_icon (f
,
1235 (char *) SDATA ((!NILP (f
->icon_name
)
1239 result
= x_bitmap_icon (f
, arg
);
1244 error ("No icon window available");
1247 XFlush (FRAME_X_DISPLAY (f
));
1252 x_set_icon_name (f
, arg
, oldval
)
1254 Lisp_Object arg
, oldval
;
1260 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1263 else if (!STRINGP (oldval
) && EQ (oldval
, Qnil
) == EQ (arg
, Qnil
))
1268 if (f
->output_data
.x
->icon_bitmap
!= 0)
1273 result
= x_text_icon (f
,
1274 (char *) SDATA ((!NILP (f
->icon_name
)
1283 error ("No icon window available");
1286 XFlush (FRAME_X_DISPLAY (f
));
1292 x_set_menu_bar_lines (f
, value
, oldval
)
1294 Lisp_Object value
, oldval
;
1297 #if ! defined (USE_X_TOOLKIT) && ! defined (USE_GTK)
1298 int olines
= FRAME_MENU_BAR_LINES (f
);
1301 /* Right now, menu bars don't work properly in minibuf-only frames;
1302 most of the commands try to apply themselves to the minibuffer
1303 frame itself, and get an error because you can't switch buffers
1304 in or split the minibuffer window. */
1305 if (FRAME_MINIBUF_ONLY_P (f
))
1308 if (INTEGERP (value
))
1309 nlines
= XINT (value
);
1313 /* Make sure we redisplay all windows in this frame. */
1314 windows_or_buffers_changed
++;
1316 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
1317 FRAME_MENU_BAR_LINES (f
) = 0;
1320 FRAME_EXTERNAL_MENU_BAR (f
) = 1;
1321 if (FRAME_X_P (f
) && f
->output_data
.x
->menubar_widget
== 0)
1322 /* Make sure next redisplay shows the menu bar. */
1323 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= Qt
;
1327 if (FRAME_EXTERNAL_MENU_BAR (f
) == 1)
1328 free_frame_menubar (f
);
1329 FRAME_EXTERNAL_MENU_BAR (f
) = 0;
1331 f
->output_data
.x
->menubar_widget
= 0;
1333 #else /* not USE_X_TOOLKIT && not USE_GTK */
1334 FRAME_MENU_BAR_LINES (f
) = nlines
;
1335 change_window_heights (f
->root_window
, nlines
- olines
);
1336 #endif /* not USE_X_TOOLKIT */
1341 /* Set the number of lines used for the tool bar of frame F to VALUE.
1342 VALUE not an integer, or < 0 means set the lines to zero. OLDVAL
1343 is the old number of tool bar lines. This function changes the
1344 height of all windows on frame F to match the new tool bar height.
1345 The frame's height doesn't change. */
1348 x_set_tool_bar_lines (f
, value
, oldval
)
1350 Lisp_Object value
, oldval
;
1352 int delta
, nlines
, root_height
;
1353 Lisp_Object root_window
;
1355 /* Treat tool bars like menu bars. */
1356 if (FRAME_MINIBUF_ONLY_P (f
))
1359 /* Use VALUE only if an integer >= 0. */
1360 if (INTEGERP (value
) && XINT (value
) >= 0)
1361 nlines
= XFASTINT (value
);
1366 FRAME_TOOL_BAR_LINES (f
) = 0;
1369 FRAME_EXTERNAL_TOOL_BAR (f
) = 1;
1370 if (FRAME_X_P (f
) && f
->output_data
.x
->toolbar_widget
== 0)
1371 /* Make sure next redisplay shows the tool bar. */
1372 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= Qt
;
1373 update_frame_tool_bar (f
);
1377 if (FRAME_EXTERNAL_TOOL_BAR (f
))
1378 free_frame_tool_bar (f
);
1379 FRAME_EXTERNAL_TOOL_BAR (f
) = 0;
1385 /* Make sure we redisplay all windows in this frame. */
1386 ++windows_or_buffers_changed
;
1388 delta
= nlines
- FRAME_TOOL_BAR_LINES (f
);
1390 /* Don't resize the tool-bar to more than we have room for. */
1391 root_window
= FRAME_ROOT_WINDOW (f
);
1392 root_height
= WINDOW_TOTAL_LINES (XWINDOW (root_window
));
1393 if (root_height
- delta
< 1)
1395 delta
= root_height
- 1;
1396 nlines
= FRAME_TOOL_BAR_LINES (f
) + delta
;
1399 FRAME_TOOL_BAR_LINES (f
) = nlines
;
1400 change_window_heights (root_window
, delta
);
1403 /* We also have to make sure that the internal border at the top of
1404 the frame, below the menu bar or tool bar, is redrawn when the
1405 tool bar disappears. This is so because the internal border is
1406 below the tool bar if one is displayed, but is below the menu bar
1407 if there isn't a tool bar. The tool bar draws into the area
1408 below the menu bar. */
1409 if (FRAME_X_WINDOW (f
) && FRAME_TOOL_BAR_LINES (f
) == 0)
1412 clear_current_matrices (f
);
1415 /* If the tool bar gets smaller, the internal border below it
1416 has to be cleared. It was formerly part of the display
1417 of the larger tool bar, and updating windows won't clear it. */
1420 int height
= FRAME_INTERNAL_BORDER_WIDTH (f
);
1421 int width
= FRAME_PIXEL_WIDTH (f
);
1422 int y
= nlines
* FRAME_LINE_HEIGHT (f
);
1424 /* height can be zero here. */
1425 if (height
> 0 && width
> 0)
1428 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1429 0, y
, width
, height
, False
);
1433 if (WINDOWP (f
->tool_bar_window
))
1434 clear_glyph_matrix (XWINDOW (f
->tool_bar_window
)->current_matrix
);
1439 /* Set the foreground color for scroll bars on frame F to VALUE.
1440 VALUE should be a string, a color name. If it isn't a string or
1441 isn't a valid color name, do nothing. OLDVAL is the old value of
1442 the frame parameter. */
1445 x_set_scroll_bar_foreground (f
, value
, oldval
)
1447 Lisp_Object value
, oldval
;
1449 unsigned long pixel
;
1451 if (STRINGP (value
))
1452 pixel
= x_decode_color (f
, value
, BLACK_PIX_DEFAULT (f
));
1456 if (f
->output_data
.x
->scroll_bar_foreground_pixel
!= -1)
1457 unload_color (f
, f
->output_data
.x
->scroll_bar_foreground_pixel
);
1459 f
->output_data
.x
->scroll_bar_foreground_pixel
= pixel
;
1460 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1462 /* Remove all scroll bars because they have wrong colors. */
1463 if (FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
)
1464 (*FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
) (f
);
1465 if (FRAME_TERMINAL (f
)->judge_scroll_bars_hook
)
1466 (*FRAME_TERMINAL (f
)->judge_scroll_bars_hook
) (f
);
1468 update_face_from_frame_parameter (f
, Qscroll_bar_foreground
, value
);
1474 /* Set the background color for scroll bars on frame F to VALUE VALUE
1475 should be a string, a color name. If it isn't a string or isn't a
1476 valid color name, do nothing. OLDVAL is the old value of the frame
1480 x_set_scroll_bar_background (f
, value
, oldval
)
1482 Lisp_Object value
, oldval
;
1484 unsigned long pixel
;
1486 if (STRINGP (value
))
1487 pixel
= x_decode_color (f
, value
, WHITE_PIX_DEFAULT (f
));
1491 if (f
->output_data
.x
->scroll_bar_background_pixel
!= -1)
1492 unload_color (f
, f
->output_data
.x
->scroll_bar_background_pixel
);
1494 #ifdef USE_TOOLKIT_SCROLL_BARS
1495 /* Scrollbar shadow colors. */
1496 if (f
->output_data
.x
->scroll_bar_top_shadow_pixel
!= -1)
1498 unload_color (f
, f
->output_data
.x
->scroll_bar_top_shadow_pixel
);
1499 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
1501 if (f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
!= -1)
1503 unload_color (f
, f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
);
1504 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
1506 #endif /* USE_TOOLKIT_SCROLL_BARS */
1508 f
->output_data
.x
->scroll_bar_background_pixel
= pixel
;
1509 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1511 /* Remove all scroll bars because they have wrong colors. */
1512 if (FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
)
1513 (*FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
) (f
);
1514 if (FRAME_TERMINAL (f
)->judge_scroll_bars_hook
)
1515 (*FRAME_TERMINAL (f
)->judge_scroll_bars_hook
) (f
);
1517 update_face_from_frame_parameter (f
, Qscroll_bar_background
, value
);
1523 /* Encode Lisp string STRING as a text in a format appropriate for
1524 XICCC (X Inter Client Communication Conventions).
1526 If STRING contains only ASCII characters, do no conversion and
1527 return the string data of STRING. Otherwise, encode the text by
1528 CODING_SYSTEM, and return a newly allocated memory area which
1529 should be freed by `xfree' by a caller.
1531 SELECTIONP non-zero means the string is being encoded for an X
1532 selection, so it is safe to run pre-write conversions (which
1535 Store the byte length of resulting text in *TEXT_BYTES.
1537 If the text contains only ASCII and Latin-1, store 1 in *STRING_P,
1538 which means that the `encoding' of the result can be `STRING'.
1539 Otherwise store 0 in *STRINGP, which means that the `encoding' of
1540 the result should be `COMPOUND_TEXT'. */
1542 static unsigned char *
1543 x_encode_text (string
, coding_system
, selectionp
, text_bytes
, stringp
, freep
)
1544 Lisp_Object string
, coding_system
;
1545 int *text_bytes
, *stringp
;
1549 unsigned char *str
= SDATA (string
);
1550 int chars
= SCHARS (string
);
1551 int bytes
= SBYTES (string
);
1555 struct coding_system coding
;
1556 extern Lisp_Object Qcompound_text_with_extensions
;
1558 charset_info
= find_charset_in_text (str
, chars
, bytes
, NULL
, Qnil
);
1559 if (charset_info
== 0)
1561 /* No multibyte character in OBJ. We need not encode it. */
1562 *text_bytes
= bytes
;
1568 setup_coding_system (coding_system
, &coding
);
1570 && SYMBOLP (coding
.pre_write_conversion
)
1571 && !NILP (Ffboundp (coding
.pre_write_conversion
)))
1573 string
= run_pre_post_conversion_on_str (string
, &coding
, 1);
1574 str
= SDATA (string
);
1575 chars
= SCHARS (string
);
1576 bytes
= SBYTES (string
);
1578 coding
.src_multibyte
= 1;
1579 coding
.dst_multibyte
= 0;
1580 coding
.mode
|= CODING_MODE_LAST_BLOCK
;
1581 if (coding
.type
== coding_type_iso2022
)
1582 coding
.flags
|= CODING_FLAG_ISO_SAFE
;
1583 /* We suppress producing escape sequences for composition. */
1584 coding
.composing
= COMPOSITION_DISABLED
;
1585 bufsize
= encoding_buffer_size (&coding
, bytes
);
1586 buf
= (unsigned char *) xmalloc (bufsize
);
1587 encode_coding (&coding
, str
, buf
, bytes
, bufsize
);
1588 *text_bytes
= coding
.produced
;
1589 *stringp
= (charset_info
== 1
1590 || (!EQ (coding_system
, Qcompound_text
)
1591 && !EQ (coding_system
, Qcompound_text_with_extensions
)));
1597 /* Set the WM name to NAME for frame F. Also set the icon name.
1598 If the frame already has an icon name, use that, otherwise set the
1599 icon name to NAME. */
1602 x_set_name_internal (f
, name
)
1606 if (FRAME_X_WINDOW (f
))
1611 XTextProperty text
, icon
;
1613 int do_free_icon_value
= 0, do_free_text_value
= 0;
1614 Lisp_Object coding_system
;
1616 coding_system
= Qcompound_text
;
1617 /* Note: Encoding strategy
1619 We encode NAME by compound-text and use "COMPOUND-TEXT" in
1620 text.encoding. But, there are non-internationalized window
1621 managers which don't support that encoding. So, if NAME
1622 contains only ASCII and 8859-1 characters, encode it by
1623 iso-latin-1, and use "STRING" in text.encoding hoping that
1624 such window managers at least analyze this format correctly,
1625 i.e. treat 8-bit bytes as 8859-1 characters.
1627 We may also be able to use "UTF8_STRING" in text.encoding
1628 in the future which can encode all Unicode characters.
1629 But, for the moment, there's no way to know that the
1630 current window manager supports it or not. */
1631 text
.value
= x_encode_text (name
, coding_system
, 0, &bytes
, &stringp
,
1632 &do_free_text_value
);
1633 text
.encoding
= (stringp
? XA_STRING
1634 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1636 text
.nitems
= bytes
;
1638 if (NILP (f
->icon_name
))
1644 /* See the above comment "Note: Encoding strategy". */
1645 icon
.value
= x_encode_text (f
->icon_name
, coding_system
, 0,
1646 &bytes
, &stringp
, &do_free_icon_value
);
1647 icon
.encoding
= (stringp
? XA_STRING
1648 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1650 icon
.nitems
= bytes
;
1654 gtk_window_set_title (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
1655 (char *) SDATA (ENCODE_UTF_8 (name
)));
1656 #else /* not USE_GTK */
1657 XSetWMName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &text
);
1658 #endif /* not USE_GTK */
1660 XSetWMIconName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &icon
);
1662 if (do_free_icon_value
)
1664 if (do_free_text_value
)
1667 #else /* not HAVE_X11R4 */
1668 XSetIconName (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1670 XStoreName (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1672 #endif /* not HAVE_X11R4 */
1677 /* Change the name of frame F to NAME. If NAME is nil, set F's name to
1680 If EXPLICIT is non-zero, that indicates that lisp code is setting the
1681 name; if NAME is a string, set F's name to NAME and set
1682 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1684 If EXPLICIT is zero, that indicates that Emacs redisplay code is
1685 suggesting a new name, which lisp code should override; if
1686 F->explicit_name is set, ignore the new name; otherwise, set it. */
1689 x_set_name (f
, name
, explicit)
1694 /* Make sure that requests from lisp code override requests from
1695 Emacs redisplay code. */
1698 /* If we're switching from explicit to implicit, we had better
1699 update the mode lines and thereby update the title. */
1700 if (f
->explicit_name
&& NILP (name
))
1701 update_mode_lines
= 1;
1703 f
->explicit_name
= ! NILP (name
);
1705 else if (f
->explicit_name
)
1708 /* If NAME is nil, set the name to the x_id_name. */
1711 /* Check for no change needed in this very common case
1712 before we do any consing. */
1713 if (!strcmp (FRAME_X_DISPLAY_INFO (f
)->x_id_name
,
1716 name
= build_string (FRAME_X_DISPLAY_INFO (f
)->x_id_name
);
1719 CHECK_STRING (name
);
1721 /* Don't change the name if it's already NAME. */
1722 if (! NILP (Fstring_equal (name
, f
->name
)))
1727 /* For setting the frame title, the title parameter should override
1728 the name parameter. */
1729 if (! NILP (f
->title
))
1732 x_set_name_internal (f
, name
);
1735 /* This function should be called when the user's lisp code has
1736 specified a name for the frame; the name will override any set by the
1739 x_explicitly_set_name (f
, arg
, oldval
)
1741 Lisp_Object arg
, oldval
;
1743 x_set_name (f
, arg
, 1);
1746 /* This function should be called by Emacs redisplay code to set the
1747 name; names set this way will never override names set by the user's
1750 x_implicitly_set_name (f
, arg
, oldval
)
1752 Lisp_Object arg
, oldval
;
1754 x_set_name (f
, arg
, 0);
1757 /* Change the title of frame F to NAME.
1758 If NAME is nil, use the frame name as the title.
1760 If EXPLICIT is non-zero, that indicates that lisp code is setting the
1761 name; if NAME is a string, set F's name to NAME and set
1762 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1764 If EXPLICIT is zero, that indicates that Emacs redisplay code is
1765 suggesting a new name, which lisp code should override; if
1766 F->explicit_name is set, ignore the new name; otherwise, set it. */
1769 x_set_title (f
, name
, old_name
)
1771 Lisp_Object name
, old_name
;
1773 /* Don't change the title if it's already NAME. */
1774 if (EQ (name
, f
->title
))
1777 update_mode_lines
= 1;
1784 CHECK_STRING (name
);
1786 x_set_name_internal (f
, name
);
1790 x_set_scroll_bar_default_width (f
)
1793 int wid
= FRAME_COLUMN_WIDTH (f
);
1795 #ifdef USE_TOOLKIT_SCROLL_BARS
1796 /* A minimum width of 14 doesn't look good for toolkit scroll bars. */
1797 int width
= 16 + 2 * VERTICAL_SCROLL_BAR_WIDTH_TRIM
;
1798 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (width
+ wid
- 1) / wid
;
1799 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = width
;
1801 /* Make the actual width at least 14 pixels and a multiple of a
1803 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (14 + wid
- 1) / wid
;
1805 /* Use all of that space (aside from required margins) for the
1807 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = 0;
1812 /* Record in frame F the specified or default value according to ALIST
1813 of the parameter named PROP (a Lisp symbol). If no value is
1814 specified for PROP, look for an X default for XPROP on the frame
1815 named NAME. If that is not found either, use the value DEFLT. */
1818 x_default_scroll_bar_color_parameter (f
, alist
, prop
, xprop
, xclass
,
1827 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
1830 tem
= x_get_arg (dpyinfo
, alist
, prop
, xprop
, xclass
, RES_TYPE_STRING
);
1831 if (EQ (tem
, Qunbound
))
1833 #ifdef USE_TOOLKIT_SCROLL_BARS
1835 /* See if an X resource for the scroll bar color has been
1837 tem
= display_x_get_resource (dpyinfo
,
1838 build_string (foreground_p
1842 build_string ("verticalScrollBar"),
1846 /* If nothing has been specified, scroll bars will use a
1847 toolkit-dependent default. Because these defaults are
1848 difficult to get at without actually creating a scroll
1849 bar, use nil to indicate that no color has been
1854 #else /* not USE_TOOLKIT_SCROLL_BARS */
1858 #endif /* not USE_TOOLKIT_SCROLL_BARS */
1861 x_set_frame_parameters (f
, Fcons (Fcons (prop
, tem
), Qnil
));
1867 #if !defined (HAVE_X11R4) && !defined (HAVE_XSETWMPROTOCOLS)
1870 XSetWMProtocols (dpy
, w
, protocols
, count
)
1877 prop
= XInternAtom (dpy
, "WM_PROTOCOLS", False
);
1878 if (prop
== None
) return False
;
1879 XChangeProperty (dpy
, w
, prop
, XA_ATOM
, 32, PropModeReplace
,
1880 (unsigned char *) protocols
, count
);
1883 #endif /* not HAVE_X11R4 && not HAVE_XSETWMPROTOCOLS */
1885 #ifdef USE_X_TOOLKIT
1887 /* If the WM_PROTOCOLS property does not already contain WM_TAKE_FOCUS,
1888 WM_DELETE_WINDOW, and WM_SAVE_YOURSELF, then add them. (They may
1889 already be present because of the toolkit (Motif adds some of them,
1890 for example, but Xt doesn't). */
1893 hack_wm_protocols (f
, widget
)
1897 Display
*dpy
= XtDisplay (widget
);
1898 Window w
= XtWindow (widget
);
1899 int need_delete
= 1;
1906 unsigned char *catoms
;
1908 unsigned long nitems
= 0;
1909 unsigned long bytes_after
;
1911 if ((XGetWindowProperty (dpy
, w
,
1912 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1913 (long)0, (long)100, False
, XA_ATOM
,
1914 &type
, &format
, &nitems
, &bytes_after
,
1917 && format
== 32 && type
== XA_ATOM
)
1919 Atom
*atoms
= (Atom
*) catoms
;
1924 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
)
1926 else if (atoms
[nitems
]
1927 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
)
1929 else if (atoms
[nitems
]
1930 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
)
1941 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
1943 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
;
1945 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
1947 XChangeProperty (dpy
, w
, FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1948 XA_ATOM
, 32, PropModeAppend
,
1949 (unsigned char *) props
, count
);
1957 /* Support routines for XIC (X Input Context). */
1961 static XFontSet xic_create_xfontset
P_ ((struct frame
*, char *));
1962 static XIMStyle best_xim_style
P_ ((XIMStyles
*, XIMStyles
*));
1965 /* Supported XIM styles, ordered by preference. */
1967 static XIMStyle supported_xim_styles
[] =
1969 XIMPreeditPosition
| XIMStatusArea
,
1970 XIMPreeditPosition
| XIMStatusNothing
,
1971 XIMPreeditPosition
| XIMStatusNone
,
1972 XIMPreeditNothing
| XIMStatusArea
,
1973 XIMPreeditNothing
| XIMStatusNothing
,
1974 XIMPreeditNothing
| XIMStatusNone
,
1975 XIMPreeditNone
| XIMStatusArea
,
1976 XIMPreeditNone
| XIMStatusNothing
,
1977 XIMPreeditNone
| XIMStatusNone
,
1982 /* Create an X fontset on frame F with base font name BASE_FONTNAME. */
1984 char xic_defaut_fontset
[] = "-*-*-*-r-normal--14-*-*-*-*-*-*-*";
1986 /* Create an Xt fontset spec from the name of a base font.
1987 If `motif' is True use the Motif syntax. */
1989 xic_create_fontsetname (base_fontname
, motif
)
1990 char *base_fontname
;
1993 const char *sep
= motif
? ";" : ",";
1996 /* Make a fontset name from the base font name. */
1997 if (xic_defaut_fontset
== base_fontname
)
1998 { /* There is no base font name, use the default. */
1999 int len
= strlen (base_fontname
) + 2;
2000 fontsetname
= xmalloc (len
);
2001 bzero (fontsetname
, len
);
2002 strcpy (fontsetname
, base_fontname
);
2006 /* Make a fontset name from the base font name.
2007 The font set will be made of the following elements:
2009 - the base font where the charset spec is replaced by -*-*.
2010 - the same but with the family also replaced with -*-*-. */
2011 char *p
= base_fontname
;
2014 for (i
= 0; *p
; p
++)
2017 { /* As the font name doesn't conform to XLFD, we can't
2018 modify it to generalize it to allcs and allfamilies.
2019 Use the specified font plus the default. */
2020 int len
= strlen (base_fontname
) + strlen (xic_defaut_fontset
) + 3;
2021 fontsetname
= xmalloc (len
);
2022 bzero (fontsetname
, len
);
2023 strcpy (fontsetname
, base_fontname
);
2024 strcat (fontsetname
, sep
);
2025 strcat (fontsetname
, xic_defaut_fontset
);
2030 char *p1
= NULL
, *p2
= NULL
;
2031 char *font_allcs
= NULL
;
2032 char *font_allfamilies
= NULL
;
2033 char *font_all
= NULL
;
2034 char *allcs
= "*-*-*-*-*-*-*";
2035 char *allfamilies
= "-*-*-";
2036 char *all
= "*-*-*-*-";
2038 for (i
= 0, p
= base_fontname
; i
< 8; p
++)
2049 /* Build the font spec that matches all charsets. */
2050 len
= p
- base_fontname
+ strlen (allcs
) + 1;
2051 font_allcs
= (char *) alloca (len
);
2052 bzero (font_allcs
, len
);
2053 bcopy (base_fontname
, font_allcs
, p
- base_fontname
);
2054 strcat (font_allcs
, allcs
);
2056 /* Build the font spec that matches all families. */
2057 len
= p
- p1
+ strlen (allcs
) + strlen (allfamilies
) + 1;
2058 font_allfamilies
= (char *) alloca (len
);
2059 bzero (font_allfamilies
, len
);
2060 strcpy (font_allfamilies
, allfamilies
);
2061 bcopy (p1
, font_allfamilies
+ strlen (allfamilies
), p
- p1
);
2062 strcat (font_allfamilies
, allcs
);
2064 /* Build the font spec that matches all. */
2065 len
= p
- p2
+ strlen (allcs
) + strlen (all
) + strlen (allfamilies
) + 1;
2066 font_all
= (char *) alloca (len
);
2067 bzero (font_all
, len
);
2068 strcpy (font_all
, allfamilies
);
2069 strcat (font_all
, all
);
2070 bcopy (p2
, font_all
+ strlen (all
) + strlen (allfamilies
), p
- p2
);
2071 strcat (font_all
, allcs
);
2073 /* Build the actual font set name. */
2074 len
= strlen (base_fontname
) + strlen (font_allcs
)
2075 + strlen (font_allfamilies
) + strlen (font_all
) + 5;
2076 fontsetname
= xmalloc (len
);
2077 bzero (fontsetname
, len
);
2078 strcpy (fontsetname
, base_fontname
);
2079 strcat (fontsetname
, sep
);
2080 strcat (fontsetname
, font_allcs
);
2081 strcat (fontsetname
, sep
);
2082 strcat (fontsetname
, font_allfamilies
);
2083 strcat (fontsetname
, sep
);
2084 strcat (fontsetname
, font_all
);
2088 strcat (fontsetname
, ":");
2093 xic_create_xfontset (f
, base_fontname
)
2095 char *base_fontname
;
2097 XFontSet xfs
= NULL
;
2098 char **missing_list
= NULL
;
2101 Lisp_Object rest
, frame
;
2104 base_fontname
= xic_defaut_fontset
;
2106 /* See if there is another frame already using same fontset. */
2107 FOR_EACH_FRAME (rest
, frame
)
2109 struct frame
*cf
= XFRAME (frame
);
2110 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
2111 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
2112 && FRAME_XIC_BASE_FONTNAME (cf
)
2113 && !strcmp (FRAME_XIC_BASE_FONTNAME (cf
), base_fontname
))
2115 xfs
= FRAME_XIC_FONTSET (cf
);
2122 char *fontsetname
= xic_create_fontsetname (base_fontname
, False
);
2125 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
),
2126 fontsetname
, &missing_list
,
2127 &missing_count
, &def_string
);
2129 XFreeStringList (missing_list
);
2130 xfree (fontsetname
);
2133 if (FRAME_XIC_BASE_FONTNAME (f
))
2134 xfree (FRAME_XIC_BASE_FONTNAME (f
));
2135 FRAME_XIC_BASE_FONTNAME (f
) = xstrdup (base_fontname
);
2137 /* No need to free def_string. */
2141 /* Free the X fontset of frame F if it is the last frame using it. */
2144 xic_free_xfontset (f
)
2147 Lisp_Object rest
, frame
;
2150 if (!FRAME_XIC_FONTSET (f
))
2153 /* See if there is another frame sharing the same fontset. */
2154 FOR_EACH_FRAME (rest
, frame
)
2156 struct frame
*cf
= XFRAME (frame
);
2157 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
2158 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
2159 && FRAME_XIC_FONTSET (cf
) == FRAME_XIC_FONTSET (f
))
2167 /* The fontset is not used anymore. It is safe to free it. */
2168 XFreeFontSet (FRAME_X_DISPLAY (f
), FRAME_XIC_FONTSET (f
));
2170 if (FRAME_XIC_BASE_FONTNAME (f
))
2171 xfree (FRAME_XIC_BASE_FONTNAME (f
));
2172 FRAME_XIC_BASE_FONTNAME (f
) = NULL
;
2173 FRAME_XIC_FONTSET (f
) = NULL
;
2177 /* Value is the best input style, given user preferences USER (already
2178 checked to be supported by Emacs), and styles supported by the
2179 input method XIM. */
2182 best_xim_style (user
, xim
)
2188 for (i
= 0; i
< user
->count_styles
; ++i
)
2189 for (j
= 0; j
< xim
->count_styles
; ++j
)
2190 if (user
->supported_styles
[i
] == xim
->supported_styles
[j
])
2191 return user
->supported_styles
[i
];
2193 /* Return the default style. */
2194 return XIMPreeditNothing
| XIMStatusNothing
;
2197 /* Create XIC for frame F. */
2199 static XIMStyle xic_style
;
2202 create_frame_xic (f
)
2207 XFontSet xfs
= NULL
;
2212 /* Create X fontset. */
2213 xfs
= xic_create_xfontset
2214 (f
, (FRAME_FONTSET (f
) < 0) ? NULL
2215 : (char *) SDATA (fontset_ascii (FRAME_FONTSET (f
))));
2217 xim
= FRAME_X_XIM (f
);
2222 XVaNestedList preedit_attr
;
2223 XVaNestedList status_attr
;
2225 s_area
.x
= 0; s_area
.y
= 0; s_area
.width
= 1; s_area
.height
= 1;
2226 spot
.x
= 0; spot
.y
= 1;
2228 /* Determine XIC style. */
2231 XIMStyles supported_list
;
2232 supported_list
.count_styles
= (sizeof supported_xim_styles
2233 / sizeof supported_xim_styles
[0]);
2234 supported_list
.supported_styles
= supported_xim_styles
;
2235 xic_style
= best_xim_style (&supported_list
,
2236 FRAME_X_XIM_STYLES (f
));
2239 preedit_attr
= XVaCreateNestedList (0,
2242 FRAME_FOREGROUND_PIXEL (f
),
2244 FRAME_BACKGROUND_PIXEL (f
),
2245 (xic_style
& XIMPreeditPosition
2250 status_attr
= XVaCreateNestedList (0,
2256 FRAME_FOREGROUND_PIXEL (f
),
2258 FRAME_BACKGROUND_PIXEL (f
),
2261 xic
= XCreateIC (xim
,
2262 XNInputStyle
, xic_style
,
2263 XNClientWindow
, FRAME_X_WINDOW (f
),
2264 XNFocusWindow
, FRAME_X_WINDOW (f
),
2265 XNStatusAttributes
, status_attr
,
2266 XNPreeditAttributes
, preedit_attr
,
2268 XFree (preedit_attr
);
2269 XFree (status_attr
);
2272 FRAME_XIC (f
) = xic
;
2273 FRAME_XIC_STYLE (f
) = xic_style
;
2274 FRAME_XIC_FONTSET (f
) = xfs
;
2278 /* Destroy XIC and free XIC fontset of frame F, if any. */
2284 if (FRAME_XIC (f
) == NULL
)
2287 XDestroyIC (FRAME_XIC (f
));
2288 xic_free_xfontset (f
);
2290 FRAME_XIC (f
) = NULL
;
2294 /* Place preedit area for XIC of window W's frame to specified
2295 pixel position X/Y. X and Y are relative to window W. */
2298 xic_set_preeditarea (w
, x
, y
)
2302 struct frame
*f
= XFRAME (w
->frame
);
2306 spot
.x
= WINDOW_TO_FRAME_PIXEL_X (w
, x
) + WINDOW_LEFT_FRINGE_WIDTH (w
);
2307 spot
.y
= WINDOW_TO_FRAME_PIXEL_Y (w
, y
) + FONT_BASE (FRAME_FONT (f
));
2308 attr
= XVaCreateNestedList (0, XNSpotLocation
, &spot
, NULL
);
2309 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2314 /* Place status area for XIC in bottom right corner of frame F.. */
2317 xic_set_statusarea (f
)
2320 XIC xic
= FRAME_XIC (f
);
2325 /* Negotiate geometry of status area. If input method has existing
2326 status area, use its current size. */
2327 area
.x
= area
.y
= area
.width
= area
.height
= 0;
2328 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &area
, NULL
);
2329 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2332 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &needed
, NULL
);
2333 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2336 if (needed
->width
== 0) /* Use XNArea instead of XNAreaNeeded */
2338 attr
= XVaCreateNestedList (0, XNArea
, &needed
, NULL
);
2339 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2343 area
.width
= needed
->width
;
2344 area
.height
= needed
->height
;
2345 area
.x
= FRAME_PIXEL_WIDTH (f
) - area
.width
- FRAME_INTERNAL_BORDER_WIDTH (f
);
2346 area
.y
= (FRAME_PIXEL_HEIGHT (f
) - area
.height
2347 - FRAME_MENUBAR_HEIGHT (f
)
2348 - FRAME_TOOLBAR_HEIGHT (f
)
2349 - FRAME_INTERNAL_BORDER_WIDTH (f
));
2352 attr
= XVaCreateNestedList (0, XNArea
, &area
, NULL
);
2353 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2358 /* Set X fontset for XIC of frame F, using base font name
2359 BASE_FONTNAME. Called when a new Emacs fontset is chosen. */
2362 xic_set_xfontset (f
, base_fontname
)
2364 char *base_fontname
;
2369 xic_free_xfontset (f
);
2371 xfs
= xic_create_xfontset (f
, base_fontname
);
2373 attr
= XVaCreateNestedList (0, XNFontSet
, xfs
, NULL
);
2374 if (FRAME_XIC_STYLE (f
) & XIMPreeditPosition
)
2375 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2376 if (FRAME_XIC_STYLE (f
) & XIMStatusArea
)
2377 XSetICValues (FRAME_XIC (f
), XNStatusAttributes
, attr
, NULL
);
2380 FRAME_XIC_FONTSET (f
) = xfs
;
2383 #endif /* HAVE_X_I18N */
2387 #ifdef USE_X_TOOLKIT
2389 /* Create and set up the X widget for frame F. */
2392 x_window (f
, window_prompting
, minibuffer_only
)
2394 long window_prompting
;
2395 int minibuffer_only
;
2397 XClassHint class_hints
;
2398 XSetWindowAttributes attributes
;
2399 unsigned long attribute_mask
;
2400 Widget shell_widget
;
2402 Widget frame_widget
;
2408 /* Use the resource name as the top-level widget name
2409 for looking up resources. Make a non-Lisp copy
2410 for the window manager, so GC relocation won't bother it.
2412 Elsewhere we specify the window name for the window manager. */
2415 char *str
= (char *) SDATA (Vx_resource_name
);
2416 f
->namebuf
= (char *) xmalloc (strlen (str
) + 1);
2417 strcpy (f
->namebuf
, str
);
2421 XtSetArg (al
[ac
], XtNallowShellResize
, 1); ac
++;
2422 XtSetArg (al
[ac
], XtNinput
, 1); ac
++;
2423 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2424 XtSetArg (al
[ac
], XtNborderWidth
, f
->border_width
); ac
++;
2425 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2426 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2427 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2428 shell_widget
= XtAppCreateShell (f
->namebuf
, EMACS_CLASS
,
2429 applicationShellWidgetClass
,
2430 FRAME_X_DISPLAY (f
), al
, ac
);
2432 f
->output_data
.x
->widget
= shell_widget
;
2433 /* maybe_set_screen_title_format (shell_widget); */
2435 pane_widget
= lw_create_widget ("main", "pane", widget_id_tick
++,
2436 (widget_value
*) NULL
,
2437 shell_widget
, False
,
2441 (lw_callback
) NULL
);
2444 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2445 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2446 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2447 XtSetValues (pane_widget
, al
, ac
);
2448 f
->output_data
.x
->column_widget
= pane_widget
;
2450 /* mappedWhenManaged to false tells to the paned window to not map/unmap
2451 the emacs screen when changing menubar. This reduces flickering. */
2454 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2455 XtSetArg (al
[ac
], XtNshowGrip
, 0); ac
++;
2456 XtSetArg (al
[ac
], XtNallowResize
, 1); ac
++;
2457 XtSetArg (al
[ac
], XtNresizeToPreferred
, 1); ac
++;
2458 XtSetArg (al
[ac
], XtNemacsFrame
, f
); ac
++;
2459 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2460 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2461 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2462 frame_widget
= XtCreateWidget (f
->namebuf
, emacsFrameClass
, pane_widget
,
2465 f
->output_data
.x
->edit_widget
= frame_widget
;
2467 XtManageChild (frame_widget
);
2469 /* Do some needed geometry management. */
2472 char *tem
, shell_position
[32];
2475 int extra_borders
= 0;
2477 = (f
->output_data
.x
->menubar_widget
2478 ? (f
->output_data
.x
->menubar_widget
->core
.height
2479 + f
->output_data
.x
->menubar_widget
->core
.border_width
)
2482 #if 0 /* Experimentally, we now get the right results
2483 for -geometry -0-0 without this. 24 Aug 96, rms. */
2484 if (FRAME_EXTERNAL_MENU_BAR (f
))
2487 XtVaGetValues (pane_widget
, XtNinternalBorderWidth
, &ibw
, NULL
);
2488 menubar_size
+= ibw
;
2492 f
->output_data
.x
->menubar_height
= menubar_size
;
2495 /* Motif seems to need this amount added to the sizes
2496 specified for the shell widget. The Athena/Lucid widgets don't.
2497 Both conclusions reached experimentally. -- rms. */
2498 XtVaGetValues (f
->output_data
.x
->edit_widget
, XtNinternalBorderWidth
,
2499 &extra_borders
, NULL
);
2503 /* Convert our geometry parameters into a geometry string
2505 Note that we do not specify here whether the position
2506 is a user-specified or program-specified one.
2507 We pass that information later, in x_wm_set_size_hints. */
2509 int left
= f
->left_pos
;
2510 int xneg
= window_prompting
& XNegative
;
2511 int top
= f
->top_pos
;
2512 int yneg
= window_prompting
& YNegative
;
2518 if (window_prompting
& USPosition
)
2519 sprintf (shell_position
, "=%dx%d%c%d%c%d",
2520 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2521 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
,
2522 (xneg
? '-' : '+'), left
,
2523 (yneg
? '-' : '+'), top
);
2526 sprintf (shell_position
, "=%dx%d",
2527 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2528 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
);
2530 /* Setting x and y when the position is not specified in
2531 the geometry string will set program position in the WM hints.
2532 If Emacs had just one program position, we could set it in
2533 fallback resources, but since each make-frame call can specify
2534 different program positions, this is easier. */
2535 XtSetArg (al
[ac
], XtNx
, left
); ac
++;
2536 XtSetArg (al
[ac
], XtNy
, top
); ac
++;
2540 len
= strlen (shell_position
) + 1;
2541 /* We don't free this because we don't know whether
2542 it is safe to free it while the frame exists.
2543 It isn't worth the trouble of arranging to free it
2544 when the frame is deleted. */
2545 tem
= (char *) xmalloc (len
);
2546 strncpy (tem
, shell_position
, len
);
2547 XtSetArg (al
[ac
], XtNgeometry
, tem
); ac
++;
2548 XtSetValues (shell_widget
, al
, ac
);
2551 XtManageChild (pane_widget
);
2552 XtRealizeWidget (shell_widget
);
2554 FRAME_X_WINDOW (f
) = XtWindow (frame_widget
);
2556 validate_x_resource_name ();
2558 class_hints
.res_name
= (char *) SDATA (Vx_resource_name
);
2559 class_hints
.res_class
= (char *) SDATA (Vx_resource_class
);
2560 XSetClassHint (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
), &class_hints
);
2563 FRAME_XIC (f
) = NULL
;
2565 create_frame_xic (f
);
2568 f
->output_data
.x
->wm_hints
.input
= True
;
2569 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2570 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2571 &f
->output_data
.x
->wm_hints
);
2573 hack_wm_protocols (f
, shell_widget
);
2576 XtAddEventHandler (shell_widget
, 0, True
, _XEditResCheckMessages
, 0);
2579 /* Do a stupid property change to force the server to generate a
2580 PropertyNotify event so that the event_stream server timestamp will
2581 be initialized to something relevant to the time we created the window.
2583 XChangeProperty (XtDisplay (frame_widget
), XtWindow (frame_widget
),
2584 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
2585 XA_ATOM
, 32, PropModeAppend
,
2586 (unsigned char*) NULL
, 0);
2588 /* Make all the standard events reach the Emacs frame. */
2589 attributes
.event_mask
= STANDARD_EVENT_SET
;
2594 /* XIM server might require some X events. */
2595 unsigned long fevent
= NoEventMask
;
2596 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2597 attributes
.event_mask
|= fevent
;
2599 #endif /* HAVE_X_I18N */
2601 attribute_mask
= CWEventMask
;
2602 XChangeWindowAttributes (XtDisplay (shell_widget
), XtWindow (shell_widget
),
2603 attribute_mask
, &attributes
);
2605 XtMapWidget (frame_widget
);
2607 /* x_set_name normally ignores requests to set the name if the
2608 requested name is the same as the current name. This is the one
2609 place where that assumption isn't correct; f->name is set, but
2610 the X server hasn't been told. */
2613 int explicit = f
->explicit_name
;
2615 f
->explicit_name
= 0;
2618 x_set_name (f
, name
, explicit);
2621 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2622 f
->output_data
.x
->text_cursor
);
2626 /* This is a no-op, except under Motif. Make sure main areas are
2627 set to something reasonable, in case we get an error later. */
2628 lw_set_main_areas (pane_widget
, 0, frame_widget
);
2631 #else /* not USE_X_TOOLKIT */
2637 if (! xg_create_frame_widgets (f
))
2638 error ("Unable to create window");
2641 FRAME_XIC (f
) = NULL
;
2645 create_frame_xic (f
);
2648 /* XIM server might require some X events. */
2649 unsigned long fevent
= NoEventMask
;
2650 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2652 if (fevent
!= NoEventMask
)
2654 XSetWindowAttributes attributes
;
2655 XWindowAttributes wattr
;
2656 unsigned long attribute_mask
;
2658 XGetWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2660 attributes
.event_mask
= wattr
.your_event_mask
| fevent
;
2661 attribute_mask
= CWEventMask
;
2662 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2663 attribute_mask
, &attributes
);
2671 #else /*! USE_GTK */
2672 /* Create and set up the X window for frame F. */
2679 XClassHint class_hints
;
2680 XSetWindowAttributes attributes
;
2681 unsigned long attribute_mask
;
2683 attributes
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
2684 attributes
.border_pixel
= f
->output_data
.x
->border_pixel
;
2685 attributes
.bit_gravity
= StaticGravity
;
2686 attributes
.backing_store
= NotUseful
;
2687 attributes
.save_under
= True
;
2688 attributes
.event_mask
= STANDARD_EVENT_SET
;
2689 attributes
.colormap
= FRAME_X_COLORMAP (f
);
2690 attribute_mask
= (CWBackPixel
| CWBorderPixel
| CWBitGravity
| CWEventMask
2695 = XCreateWindow (FRAME_X_DISPLAY (f
),
2696 f
->output_data
.x
->parent_desc
,
2699 FRAME_PIXEL_WIDTH (f
), FRAME_PIXEL_HEIGHT (f
),
2701 CopyFromParent
, /* depth */
2702 InputOutput
, /* class */
2704 attribute_mask
, &attributes
);
2709 create_frame_xic (f
);
2712 /* XIM server might require some X events. */
2713 unsigned long fevent
= NoEventMask
;
2714 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2715 attributes
.event_mask
|= fevent
;
2716 attribute_mask
= CWEventMask
;
2717 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2718 attribute_mask
, &attributes
);
2721 #endif /* HAVE_X_I18N */
2723 validate_x_resource_name ();
2725 class_hints
.res_name
= (char *) SDATA (Vx_resource_name
);
2726 class_hints
.res_class
= (char *) SDATA (Vx_resource_class
);
2727 XSetClassHint (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), &class_hints
);
2729 /* The menubar is part of the ordinary display;
2730 it does not count in addition to the height of the window. */
2731 f
->output_data
.x
->menubar_height
= 0;
2733 /* This indicates that we use the "Passive Input" input model.
2734 Unless we do this, we don't get the Focus{In,Out} events that we
2735 need to draw the cursor correctly. Accursed bureaucrats.
2736 XWhipsAndChains (FRAME_X_DISPLAY (f), IronMaiden, &TheRack); */
2738 f
->output_data
.x
->wm_hints
.input
= True
;
2739 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2740 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2741 &f
->output_data
.x
->wm_hints
);
2742 f
->output_data
.x
->wm_hints
.icon_pixmap
= None
;
2744 /* Request "save yourself" and "delete window" commands from wm. */
2747 protocols
[0] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
2748 protocols
[1] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
2749 XSetWMProtocols (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), protocols
, 2);
2752 /* x_set_name normally ignores requests to set the name if the
2753 requested name is the same as the current name. This is the one
2754 place where that assumption isn't correct; f->name is set, but
2755 the X server hasn't been told. */
2758 int explicit = f
->explicit_name
;
2760 f
->explicit_name
= 0;
2763 x_set_name (f
, name
, explicit);
2766 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2767 f
->output_data
.x
->text_cursor
);
2771 if (FRAME_X_WINDOW (f
) == 0)
2772 error ("Unable to create window");
2775 #endif /* not USE_GTK */
2776 #endif /* not USE_X_TOOLKIT */
2778 /* Verify that the icon position args for this window are valid. */
2781 x_icon_verify (f
, parms
)
2785 Lisp_Object icon_x
, icon_y
;
2787 /* Set the position of the icon. Note that twm groups all
2788 icons in an icon window. */
2789 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2790 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2791 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2793 CHECK_NUMBER (icon_x
);
2794 CHECK_NUMBER (icon_y
);
2796 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2797 error ("Both left and top icon corners of icon must be specified");
2800 /* Handle the icon stuff for this window. Perhaps later we might
2801 want an x_set_icon_position which can be called interactively as
2809 Lisp_Object icon_x
, icon_y
;
2810 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2812 /* Set the position of the icon. Note that twm groups all
2813 icons in an icon window. */
2814 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2815 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2816 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2818 CHECK_NUMBER (icon_x
);
2819 CHECK_NUMBER (icon_y
);
2821 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2822 error ("Both left and top icon corners of icon must be specified");
2826 if (! EQ (icon_x
, Qunbound
))
2827 x_wm_set_icon_position (f
, XINT (icon_x
), XINT (icon_y
));
2829 #if 0 /* x_get_arg removes the visibility parameter as a side effect,
2830 but x_create_frame still needs it. */
2831 /* Start up iconic or window? */
2832 x_wm_set_window_state
2833 (f
, (EQ (x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0, RES_TYPE_SYMBOL
),
2839 x_text_icon (f
, (char *) SDATA ((!NILP (f
->icon_name
)
2846 /* Make the GCs needed for this window, setting the
2847 background, border and mouse colors; also create the
2848 mouse cursor and the gray border tile. */
2850 static char cursor_bits
[] =
2852 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2853 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2854 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2855 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00
2862 XGCValues gc_values
;
2866 /* Create the GCs of this frame.
2867 Note that many default values are used. */
2870 gc_values
.font
= FRAME_FONT (f
)->fid
;
2871 gc_values
.foreground
= FRAME_FOREGROUND_PIXEL (f
);
2872 gc_values
.background
= FRAME_BACKGROUND_PIXEL (f
);
2873 gc_values
.line_width
= 0; /* Means 1 using fast algorithm. */
2874 f
->output_data
.x
->normal_gc
2875 = XCreateGC (FRAME_X_DISPLAY (f
),
2877 GCLineWidth
| GCFont
| GCForeground
| GCBackground
,
2880 /* Reverse video style. */
2881 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2882 gc_values
.background
= FRAME_FOREGROUND_PIXEL (f
);
2883 f
->output_data
.x
->reverse_gc
2884 = XCreateGC (FRAME_X_DISPLAY (f
),
2886 GCFont
| GCForeground
| GCBackground
| GCLineWidth
,
2889 /* Cursor has cursor-color background, background-color foreground. */
2890 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2891 gc_values
.background
= f
->output_data
.x
->cursor_pixel
;
2892 gc_values
.fill_style
= FillOpaqueStippled
;
2894 = XCreateBitmapFromData (FRAME_X_DISPLAY (f
),
2895 FRAME_X_DISPLAY_INFO (f
)->root_window
,
2896 cursor_bits
, 16, 16);
2897 f
->output_data
.x
->cursor_gc
2898 = XCreateGC (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2899 (GCFont
| GCForeground
| GCBackground
2900 | GCFillStyle
/* | GCStipple */ | GCLineWidth
),
2904 f
->output_data
.x
->white_relief
.gc
= 0;
2905 f
->output_data
.x
->black_relief
.gc
= 0;
2907 /* Create the gray border tile used when the pointer is not in
2908 the frame. Since this depends on the frame's pixel values,
2909 this must be done on a per-frame basis. */
2910 f
->output_data
.x
->border_tile
2911 = (XCreatePixmapFromBitmapData
2912 (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
2913 gray_bits
, gray_width
, gray_height
,
2914 FRAME_FOREGROUND_PIXEL (f
),
2915 FRAME_BACKGROUND_PIXEL (f
),
2916 DefaultDepth (FRAME_X_DISPLAY (f
), FRAME_X_SCREEN_NUMBER (f
))));
2922 /* Free what was was allocated in x_make_gc. */
2928 Display
*dpy
= FRAME_X_DISPLAY (f
);
2932 if (f
->output_data
.x
->normal_gc
)
2934 XFreeGC (dpy
, f
->output_data
.x
->normal_gc
);
2935 f
->output_data
.x
->normal_gc
= 0;
2938 if (f
->output_data
.x
->reverse_gc
)
2940 XFreeGC (dpy
, f
->output_data
.x
->reverse_gc
);
2941 f
->output_data
.x
->reverse_gc
= 0;
2944 if (f
->output_data
.x
->cursor_gc
)
2946 XFreeGC (dpy
, f
->output_data
.x
->cursor_gc
);
2947 f
->output_data
.x
->cursor_gc
= 0;
2950 if (f
->output_data
.x
->border_tile
)
2952 XFreePixmap (dpy
, f
->output_data
.x
->border_tile
);
2953 f
->output_data
.x
->border_tile
= 0;
2960 /* Handler for signals raised during x_create_frame and
2961 x_create_top_frame. FRAME is the frame which is partially
2965 unwind_create_frame (frame
)
2968 struct frame
*f
= XFRAME (frame
);
2970 /* If frame is already dead, nothing to do. This can happen if the
2971 display is disconnected after the frame has become official, but
2972 before x_create_frame removes the unwind protect. */
2973 if (!FRAME_LIVE_P (f
))
2976 /* If frame is ``official'', nothing to do. */
2977 if (!CONSP (Vframe_list
) || !EQ (XCAR (Vframe_list
), frame
))
2980 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2983 x_free_frame_resources (f
);
2986 /* Check that reference counts are indeed correct. */
2987 xassert (dpyinfo
->reference_count
== dpyinfo_refcount
);
2988 xassert (dpyinfo
->image_cache
->refcount
== image_cache_refcount
);
2997 DEFUN ("x-create-frame", Fx_create_frame
, Sx_create_frame
,
2999 doc
: /* Make a new X window, which is called a "frame" in Emacs terms.
3000 Returns an Emacs frame object.
3001 ALIST is an alist of frame parameters.
3002 If the parameters specify that the frame should not have a minibuffer,
3003 and do not specify a specific minibuffer window to use,
3004 then `default-minibuffer-frame' must be a frame whose minibuffer can
3005 be shared by the new frame.
3007 This function is an internal primitive--use `make-frame' instead. */)
3012 Lisp_Object frame
, tem
;
3014 int minibuffer_only
= 0;
3015 long window_prompting
= 0;
3017 int count
= SPECPDL_INDEX ();
3018 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
3019 Lisp_Object display
;
3020 struct x_display_info
*dpyinfo
= NULL
;
3024 parms
= Fcopy_alist (parms
);
3026 /* Use this general default value to start with
3027 until we know if this frame has a specified name. */
3028 Vx_resource_name
= Vinvocation_name
;
3030 display
= x_get_arg (dpyinfo
, parms
, Qterminal
, 0, 0, RES_TYPE_NUMBER
);
3031 if (EQ (display
, Qunbound
))
3032 display
= x_get_arg (dpyinfo
, parms
, Qdisplay
, 0, 0, RES_TYPE_STRING
);
3033 if (EQ (display
, Qunbound
))
3035 dpyinfo
= check_x_display_info (display
);
3037 kb
= dpyinfo
->terminal
->kboard
;
3039 kb
= &the_only_kboard
;
3042 if (dpyinfo
->terminal
->deleted
)
3043 error ("Terminal is being deleted, can't create new frames on it");
3045 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
3047 && ! EQ (name
, Qunbound
)
3049 error ("Invalid frame name--not a string or nil");
3052 Vx_resource_name
= name
;
3054 /* See if parent window is specified. */
3055 parent
= x_get_arg (dpyinfo
, parms
, Qparent_id
, NULL
, NULL
, RES_TYPE_NUMBER
);
3056 if (EQ (parent
, Qunbound
))
3058 if (! NILP (parent
))
3059 CHECK_NUMBER (parent
);
3061 /* make_frame_without_minibuffer can run Lisp code and garbage collect. */
3062 /* No need to protect DISPLAY because that's not used after passing
3063 it to make_frame_without_minibuffer. */
3065 GCPRO4 (parms
, parent
, name
, frame
);
3066 tem
= x_get_arg (dpyinfo
, parms
, Qminibuffer
, "minibuffer", "Minibuffer",
3068 if (EQ (tem
, Qnone
) || NILP (tem
))
3069 f
= make_frame_without_minibuffer (Qnil
, kb
, display
);
3070 else if (EQ (tem
, Qonly
))
3072 f
= make_minibuffer_frame ();
3073 minibuffer_only
= 1;
3075 else if (WINDOWP (tem
))
3076 f
= make_frame_without_minibuffer (tem
, kb
, display
);
3080 XSETFRAME (frame
, f
);
3082 /* Note that X Windows does support scroll bars. */
3083 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 1;
3085 f
->terminal
= dpyinfo
->terminal
;
3086 f
->terminal
->reference_count
++;
3088 f
->output_method
= output_x_window
;
3089 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
3090 bzero (f
->output_data
.x
, sizeof (struct x_output
));
3091 f
->output_data
.x
->icon_bitmap
= -1;
3092 FRAME_FONTSET (f
) = -1;
3093 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
3094 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
3095 #ifdef USE_TOOLKIT_SCROLL_BARS
3096 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
3097 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
3098 #endif /* USE_TOOLKIT_SCROLL_BARS */
3099 record_unwind_protect (unwind_create_frame
, frame
);
3102 = x_get_arg (dpyinfo
, parms
, Qicon_name
, "iconName", "Title",
3104 if (! STRINGP (f
->icon_name
))
3105 f
->icon_name
= Qnil
;
3107 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
3109 image_cache_refcount
= FRAME_X_IMAGE_CACHE (f
)->refcount
;
3110 dpyinfo_refcount
= dpyinfo
->reference_count
;
3111 #endif /* GLYPH_DEBUG */
3113 /* These colors will be set anyway later, but it's important
3114 to get the color reference counts right, so initialize them! */
3117 struct gcpro gcpro1
;
3119 /* Function x_decode_color can signal an error. Make
3120 sure to initialize color slots so that we won't try
3121 to free colors we haven't allocated. */
3122 FRAME_FOREGROUND_PIXEL (f
) = -1;
3123 FRAME_BACKGROUND_PIXEL (f
) = -1;
3124 f
->output_data
.x
->cursor_pixel
= -1;
3125 f
->output_data
.x
->cursor_foreground_pixel
= -1;
3126 f
->output_data
.x
->border_pixel
= -1;
3127 f
->output_data
.x
->mouse_pixel
= -1;
3129 black
= build_string ("black");
3131 FRAME_FOREGROUND_PIXEL (f
)
3132 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3133 FRAME_BACKGROUND_PIXEL (f
)
3134 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3135 f
->output_data
.x
->cursor_pixel
3136 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3137 f
->output_data
.x
->cursor_foreground_pixel
3138 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3139 f
->output_data
.x
->border_pixel
3140 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3141 f
->output_data
.x
->mouse_pixel
3142 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3146 /* Specify the parent under which to make this X window. */
3150 f
->output_data
.x
->parent_desc
= (Window
) XFASTINT (parent
);
3151 f
->output_data
.x
->explicit_parent
= 1;
3155 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
3156 f
->output_data
.x
->explicit_parent
= 0;
3159 /* Set the name; the functions to which we pass f expect the name to
3161 if (EQ (name
, Qunbound
) || NILP (name
))
3163 f
->name
= build_string (dpyinfo
->x_id_name
);
3164 f
->explicit_name
= 0;
3169 f
->explicit_name
= 1;
3170 /* use the frame's title when getting resources for this frame. */
3171 specbind (Qx_resource_name
, name
);
3174 /* Extract the window parameters from the supplied values
3175 that are needed to determine window geometry. */
3179 font
= x_get_arg (dpyinfo
, parms
, Qfont
, "font", "Font", RES_TYPE_STRING
);
3182 /* First, try whatever font the caller has specified. */
3185 tem
= Fquery_fontset (font
, Qnil
);
3187 font
= x_new_fontset (f
, SDATA (tem
));
3189 font
= x_new_font (f
, SDATA (font
));
3192 /* Try out a font which we hope has bold and italic variations. */
3193 if (!STRINGP (font
))
3194 font
= x_new_font (f
, "-adobe-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-1");
3195 if (!STRINGP (font
))
3196 font
= x_new_font (f
, "-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-1");
3197 if (! STRINGP (font
))
3198 font
= x_new_font (f
, "-*-*-medium-r-normal-*-*-140-*-*-c-*-iso8859-1");
3199 if (! STRINGP (font
))
3200 /* This was formerly the first thing tried, but it finds too many fonts
3201 and takes too long. */
3202 font
= x_new_font (f
, "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1");
3203 /* If those didn't work, look for something which will at least work. */
3204 if (! STRINGP (font
))
3205 font
= x_new_font (f
, "-*-fixed-*-*-*-*-*-140-*-*-c-*-iso8859-1");
3207 if (! STRINGP (font
))
3208 font
= build_string ("fixed");
3210 x_default_parameter (f
, parms
, Qfont
, font
,
3211 "font", "Font", RES_TYPE_STRING
);
3215 /* Prevent lwlib/xlwmenu.c from crashing because of a bug
3216 whereby it fails to get any font. */
3217 xlwmenu_default_font
= FRAME_FONT (f
);
3220 x_default_parameter (f
, parms
, Qborder_width
, make_number (2),
3221 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
3223 /* This defaults to 1 in order to match xterm. We recognize either
3224 internalBorderWidth or internalBorder (which is what xterm calls
3226 if (NILP (Fassq (Qinternal_border_width
, parms
)))
3230 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
3231 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
3232 if (! EQ (value
, Qunbound
))
3233 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
3236 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
3237 "internalBorderWidth", "internalBorderWidth",
3239 x_default_parameter (f
, parms
, Qvertical_scroll_bars
, Qleft
,
3240 "verticalScrollBars", "ScrollBars",
3243 /* Also do the stuff which must be set before the window exists. */
3244 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
3245 "foreground", "Foreground", RES_TYPE_STRING
);
3246 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
3247 "background", "Background", RES_TYPE_STRING
);
3248 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
3249 "pointerColor", "Foreground", RES_TYPE_STRING
);
3250 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
3251 "cursorColor", "Foreground", RES_TYPE_STRING
);
3252 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
3253 "borderColor", "BorderColor", RES_TYPE_STRING
);
3254 x_default_parameter (f
, parms
, Qscreen_gamma
, Qnil
,
3255 "screenGamma", "ScreenGamma", RES_TYPE_FLOAT
);
3256 x_default_parameter (f
, parms
, Qline_spacing
, Qnil
,
3257 "lineSpacing", "LineSpacing", RES_TYPE_NUMBER
);
3258 x_default_parameter (f
, parms
, Qleft_fringe
, Qnil
,
3259 "leftFringe", "LeftFringe", RES_TYPE_NUMBER
);
3260 x_default_parameter (f
, parms
, Qright_fringe
, Qnil
,
3261 "rightFringe", "RightFringe", RES_TYPE_NUMBER
);
3263 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_foreground
,
3264 "scrollBarForeground",
3265 "ScrollBarForeground", 1);
3266 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_background
,
3267 "scrollBarBackground",
3268 "ScrollBarBackground", 0);
3270 /* Init faces before x_default_parameter is called for scroll-bar
3271 parameters because that function calls x_set_scroll_bar_width,
3272 which calls change_frame_size, which calls Fset_window_buffer,
3273 which runs hooks, which call Fvertical_motion. At the end, we
3274 end up in init_iterator with a null face cache, which should not
3276 init_frame_faces (f
);
3278 x_default_parameter (f
, parms
, Qmenu_bar_lines
, make_number (1),
3279 "menuBar", "MenuBar", RES_TYPE_NUMBER
);
3280 x_default_parameter (f
, parms
, Qtool_bar_lines
, make_number (1),
3281 "toolBar", "ToolBar", RES_TYPE_NUMBER
);
3282 x_default_parameter (f
, parms
, Qbuffer_predicate
, Qnil
,
3283 "bufferPredicate", "BufferPredicate",
3285 x_default_parameter (f
, parms
, Qtitle
, Qnil
,
3286 "title", "Title", RES_TYPE_STRING
);
3287 x_default_parameter (f
, parms
, Qwait_for_wm
, Qt
,
3288 "waitForWM", "WaitForWM", RES_TYPE_BOOLEAN
);
3289 x_default_parameter (f
, parms
, Qfullscreen
, Qnil
,
3290 "fullscreen", "Fullscreen", RES_TYPE_SYMBOL
);
3292 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
3294 /* Compute the size of the X window. */
3295 window_prompting
= x_figure_window_size (f
, parms
, 1);
3297 tem
= x_get_arg (dpyinfo
, parms
, Qunsplittable
, 0, 0, RES_TYPE_BOOLEAN
);
3298 f
->no_split
= minibuffer_only
|| EQ (tem
, Qt
);
3300 x_icon_verify (f
, parms
);
3302 /* Create the X widget or window. */
3303 #ifdef USE_X_TOOLKIT
3304 x_window (f
, window_prompting
, minibuffer_only
);
3312 /* Now consider the frame official. */
3313 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
3314 Vframe_list
= Fcons (frame
, Vframe_list
);
3316 /* We need to do this after creating the X window, so that the
3317 icon-creation functions can say whose icon they're describing. */
3318 x_default_parameter (f
, parms
, Qicon_type
, Qt
,
3319 "bitmapIcon", "BitmapIcon", RES_TYPE_SYMBOL
);
3321 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
3322 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3323 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
3324 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3325 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
3326 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
3327 x_default_parameter (f
, parms
, Qscroll_bar_width
, Qnil
,
3328 "scrollBarWidth", "ScrollBarWidth",
3331 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
3332 Change will not be effected unless different from the current
3334 width
= FRAME_COLS (f
);
3335 height
= FRAME_LINES (f
);
3337 SET_FRAME_COLS (f
, 0);
3338 FRAME_LINES (f
) = 0;
3339 change_frame_size (f
, height
, width
, 1, 0, 0);
3341 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
3342 /* Create the menu bar. */
3343 if (!minibuffer_only
&& FRAME_EXTERNAL_MENU_BAR (f
))
3345 /* If this signals an error, we haven't set size hints for the
3346 frame and we didn't make it visible. */
3347 initialize_frame_menubar (f
);
3350 /* This is a no-op, except under Motif where it arranges the
3351 main window for the widgets on it. */
3352 lw_set_main_areas (f
->output_data
.x
->column_widget
,
3353 f
->output_data
.x
->menubar_widget
,
3354 f
->output_data
.x
->edit_widget
);
3355 #endif /* not USE_GTK */
3357 #endif /* USE_X_TOOLKIT || USE_GTK */
3359 /* Tell the server what size and position, etc, we want, and how
3360 badly we want them. This should be done after we have the menu
3361 bar so that its size can be taken into account. */
3363 x_wm_set_size_hint (f
, window_prompting
, 0);
3366 /* Make the window appear on the frame and enable display, unless
3367 the caller says not to. However, with explicit parent, Emacs
3368 cannot control visibility, so don't try. */
3369 if (! f
->output_data
.x
->explicit_parent
)
3371 Lisp_Object visibility
;
3373 visibility
= x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0,
3375 if (EQ (visibility
, Qunbound
))
3378 if (EQ (visibility
, Qicon
))
3379 x_iconify_frame (f
);
3380 else if (! NILP (visibility
))
3381 x_make_frame_visible (f
);
3383 /* Must have been Qnil. */
3387 /* Set the WM leader property. GTK does this itself, so this is not
3388 needed when using GTK. */
3389 if (dpyinfo
->client_leader_window
!= 0)
3392 XChangeProperty (FRAME_X_DISPLAY (f
),
3393 FRAME_OUTER_WINDOW (f
),
3394 dpyinfo
->Xatom_wm_client_leader
,
3395 XA_WINDOW
, 32, PropModeReplace
,
3396 (unsigned char *) &dpyinfo
->client_leader_window
, 1);
3400 /* Initialize `default-minibuffer-frame' in case this is the first
3401 frame on this terminal. */
3402 if (FRAME_HAS_MINIBUF_P (f
)
3403 && (!FRAMEP (kb
->Vdefault_minibuffer_frame
)
3404 || !FRAME_LIVE_P (XFRAME (kb
->Vdefault_minibuffer_frame
))))
3405 kb
->Vdefault_minibuffer_frame
= frame
;
3407 /* All remaining specified parameters, which have not been "used"
3408 by x_get_arg and friends, now go in the misc. alist of the frame. */
3409 for (tem
= parms
; !NILP (tem
); tem
= XCDR (tem
))
3410 if (CONSP (XCAR (tem
)) && !NILP (XCAR (XCAR (tem
))))
3411 f
->param_alist
= Fcons (XCAR (tem
), f
->param_alist
);
3413 store_frame_param (f
, Qwindow_system
, Qx
);
3417 /* Make sure windows on this frame appear in calls to next-window
3418 and similar functions. */
3419 Vwindow_list
= Qnil
;
3421 return unbind_to (count
, frame
);
3425 /* FRAME is used only to get a handle on the X display. We don't pass the
3426 display info directly because we're called from frame.c, which doesn't
3427 know about that structure. */
3430 x_get_focus_frame (frame
)
3431 struct frame
*frame
;
3433 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (frame
);
3435 if (! dpyinfo
->x_focus_frame
)
3438 XSETFRAME (xfocus
, dpyinfo
->x_focus_frame
);
3443 /* In certain situations, when the window manager follows a
3444 click-to-focus policy, there seems to be no way around calling
3445 XSetInputFocus to give another frame the input focus .
3447 In an ideal world, XSetInputFocus should generally be avoided so
3448 that applications don't interfere with the window manager's focus
3449 policy. But I think it's okay to use when it's clearly done
3450 following a user-command. */
3452 DEFUN ("x-focus-frame", Fx_focus_frame
, Sx_focus_frame
, 1, 1, 0,
3453 doc
: /* Set the input focus to FRAME.
3454 FRAME nil means use the selected frame. */)
3458 struct frame
*f
= check_x_frame (frame
);
3459 Display
*dpy
= FRAME_X_DISPLAY (f
);
3462 x_catch_errors (dpy
);
3463 XSetInputFocus (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
3464 RevertToParent
, CurrentTime
);
3465 x_uncatch_errors ();
3472 DEFUN ("xw-color-defined-p", Fxw_color_defined_p
, Sxw_color_defined_p
, 1, 2, 0,
3473 doc
: /* Internal function called by `color-defined-p', which see. */)
3475 Lisp_Object color
, frame
;
3478 FRAME_PTR f
= check_x_frame (frame
);
3480 CHECK_STRING (color
);
3482 if (x_defined_color (f
, SDATA (color
), &foo
, 0))
3488 DEFUN ("xw-color-values", Fxw_color_values
, Sxw_color_values
, 1, 2, 0,
3489 doc
: /* Internal function called by `color-values', which see. */)
3491 Lisp_Object color
, frame
;
3494 FRAME_PTR f
= check_x_frame (frame
);
3496 CHECK_STRING (color
);
3498 if (x_defined_color (f
, SDATA (color
), &foo
, 0))
3502 rgb
[0] = make_number (foo
.red
);
3503 rgb
[1] = make_number (foo
.green
);
3504 rgb
[2] = make_number (foo
.blue
);
3505 return Flist (3, rgb
);
3511 DEFUN ("xw-display-color-p", Fxw_display_color_p
, Sxw_display_color_p
, 0, 1, 0,
3512 doc
: /* Internal function called by `display-color-p', which see. */)
3514 Lisp_Object terminal
;
3516 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3518 if (dpyinfo
->n_planes
<= 2)
3521 switch (dpyinfo
->visual
->class)
3534 DEFUN ("x-display-grayscale-p", Fx_display_grayscale_p
, Sx_display_grayscale_p
,
3536 doc
: /* Return t if the X display supports shades of gray.
3537 Note that color displays do support shades of gray.
3538 The optional argument TERMINAL specifies which display to ask about.
3539 TERMINAL should be a terminal id, a frame or a display name (a string).
3540 If omitted or nil, that stands for the selected frame's display. */)
3542 Lisp_Object terminal
;
3544 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3546 if (dpyinfo
->n_planes
<= 1)
3549 switch (dpyinfo
->visual
->class)
3564 DEFUN ("x-display-pixel-width", Fx_display_pixel_width
, Sx_display_pixel_width
,
3566 doc
: /* Returns the width in pixels of the X display TERMINAL.
3567 The optional argument TERMINAL specifies which display to ask about.
3568 TERMINAL should be a terminal id, a frame or a display name (a string).
3569 If omitted or nil, that stands for the selected frame's display. */)
3571 Lisp_Object terminal
;
3573 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3575 return make_number (dpyinfo
->width
);
3578 DEFUN ("x-display-pixel-height", Fx_display_pixel_height
,
3579 Sx_display_pixel_height
, 0, 1, 0,
3580 doc
: /* Returns the height in pixels of the X display TERMINAL.
3581 The optional argument TERMINAL specifies which display to ask about.
3582 TERMINAL should be a terminal id, a frame or a display name (a string).
3583 If omitted or nil, that stands for the selected frame's display. */)
3585 Lisp_Object terminal
;
3587 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3589 return make_number (dpyinfo
->height
);
3592 DEFUN ("x-display-planes", Fx_display_planes
, Sx_display_planes
,
3594 doc
: /* Returns the number of bitplanes of the X display TERMINAL.
3595 The optional argument TERMINAL specifies which display to ask about.
3596 TERMINAL should be a terminal id, a frame or a display name (a string).
3597 If omitted or nil, that stands for the selected frame's display. */)
3599 Lisp_Object terminal
;
3601 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3603 return make_number (dpyinfo
->n_planes
);
3606 DEFUN ("x-display-color-cells", Fx_display_color_cells
, Sx_display_color_cells
,
3608 doc
: /* Returns the number of color cells of the X display TERMINAL.
3609 The optional argument TERMINAL specifies which display to ask about.
3610 TERMINAL should be a terminal id, a frame or a display name (a string).
3611 If omitted or nil, that stands for the selected frame's display. */)
3613 Lisp_Object terminal
;
3615 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3617 int nr_planes
= DisplayPlanes (dpyinfo
->display
,
3618 XScreenNumberOfScreen (dpyinfo
->screen
));
3620 /* Truncate nr_planes to 24 to avoid integer overflow.
3621 Some displays says 32, but only 24 bits are actually significant.
3622 There are only very few and rare video cards that have more than
3623 24 significant bits. Also 24 bits is more than 16 million colors,
3624 it "should be enough for everyone". */
3625 if (nr_planes
> 24) nr_planes
= 24;
3627 return make_number (1 << nr_planes
);
3630 DEFUN ("x-server-max-request-size", Fx_server_max_request_size
,
3631 Sx_server_max_request_size
,
3633 doc
: /* Returns the maximum request size of the X server of display TERMINAL.
3634 The optional argument TERMINAL specifies which display to ask about.
3635 TERMINAL should be a terminal id, a frame or a display name (a string).
3636 If omitted or nil, that stands for the selected frame's display. */)
3638 Lisp_Object terminal
;
3640 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3642 return make_number (MAXREQUEST (dpyinfo
->display
));
3645 DEFUN ("x-server-vendor", Fx_server_vendor
, Sx_server_vendor
, 0, 1, 0,
3646 doc
: /* Returns the "vendor ID" string of the X server of display TERMINAL.
3647 \(Labelling every distributor as a "vendor" embodies the false assumption
3648 that operating systems cannot be developed and distributed noncommercially.)
3649 The optional argument TERMINAL specifies which display to ask about.
3650 TERMINAL should be a terminal id, a frame or a display name (a string).
3651 If omitted or nil, that stands for the selected frame's display. */)
3653 Lisp_Object terminal
;
3655 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3656 char *vendor
= ServerVendor (dpyinfo
->display
);
3658 if (! vendor
) vendor
= "";
3659 return build_string (vendor
);
3662 DEFUN ("x-server-version", Fx_server_version
, Sx_server_version
, 0, 1, 0,
3663 doc
: /* Returns the version numbers of the X server of display TERMINAL.
3664 The value is a list of three integers: the major and minor
3665 version numbers of the X Protocol in use, and the distributor-specific release
3666 number. See also the function `x-server-vendor'.
3668 The optional argument TERMINAL specifies which display to ask about.
3669 TERMINAL should be a terminal id, a frame or a display name (a string).
3670 If omitted or nil, that stands for the selected frame's display. */)
3672 Lisp_Object terminal
;
3674 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3675 Display
*dpy
= dpyinfo
->display
;
3677 return Fcons (make_number (ProtocolVersion (dpy
)),
3678 Fcons (make_number (ProtocolRevision (dpy
)),
3679 Fcons (make_number (VendorRelease (dpy
)), Qnil
)));
3682 DEFUN ("x-display-screens", Fx_display_screens
, Sx_display_screens
, 0, 1, 0,
3683 doc
: /* Return the number of screens on the X server of display TERMINAL.
3684 The optional argument TERMINAL specifies which display to ask about.
3685 TERMINAL should be a terminal id, a frame or a display name (a string).
3686 If omitted or nil, that stands for the selected frame's display. */)
3688 Lisp_Object terminal
;
3690 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3692 return make_number (ScreenCount (dpyinfo
->display
));
3695 DEFUN ("x-display-mm-height", Fx_display_mm_height
, Sx_display_mm_height
, 0, 1, 0,
3696 doc
: /* Return the height in millimeters of the X display TERMINAL.
3697 The optional argument TERMINAL specifies which display to ask about.
3698 TERMINAL should be a terminal id, a frame or a display name (a string).
3699 If omitted or nil, that stands for the selected frame's display. */)
3701 Lisp_Object terminal
;
3703 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3705 return make_number (HeightMMOfScreen (dpyinfo
->screen
));
3708 DEFUN ("x-display-mm-width", Fx_display_mm_width
, Sx_display_mm_width
, 0, 1, 0,
3709 doc
: /* Return the width in millimeters of the X display TERMINAL.
3710 The optional argument TERMINAL specifies which display to ask about.
3711 TERMINAL should be a terminal id, a frame or a display name (a string).
3712 If omitted or nil, that stands for the selected frame's display. */)
3714 Lisp_Object terminal
;
3716 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3718 return make_number (WidthMMOfScreen (dpyinfo
->screen
));
3721 DEFUN ("x-display-backing-store", Fx_display_backing_store
,
3722 Sx_display_backing_store
, 0, 1, 0,
3723 doc
: /* Returns an indication of whether X display TERMINAL does backing store.
3724 The value may be `always', `when-mapped', or `not-useful'.
3725 The optional argument TERMINAL specifies which display to ask about.
3726 TERMINAL should be a terminal id, a frame or a display name (a string).
3727 If omitted or nil, that stands for the selected frame's display. */)
3729 Lisp_Object terminal
;
3731 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3734 switch (DoesBackingStore (dpyinfo
->screen
))
3737 result
= intern ("always");
3741 result
= intern ("when-mapped");
3745 result
= intern ("not-useful");
3749 error ("Strange value for BackingStore parameter of screen");
3756 DEFUN ("x-display-visual-class", Fx_display_visual_class
,
3757 Sx_display_visual_class
, 0, 1, 0,
3758 doc
: /* Return the visual class of the X display TERMINAL.
3759 The value is one of the symbols `static-gray', `gray-scale',
3760 `static-color', `pseudo-color', `true-color', or `direct-color'.
3762 The optional argument TERMINAL specifies which display to ask about.
3763 TERMINAL should a terminal id, a frame or a display name (a string).
3764 If omitted or nil, that stands for the selected frame's display. */)
3766 Lisp_Object terminal
;
3768 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3771 switch (dpyinfo
->visual
->class)
3774 result
= intern ("static-gray");
3777 result
= intern ("gray-scale");
3780 result
= intern ("static-color");
3783 result
= intern ("pseudo-color");
3786 result
= intern ("true-color");
3789 result
= intern ("direct-color");
3792 error ("Display has an unknown visual class");
3799 DEFUN ("x-display-save-under", Fx_display_save_under
,
3800 Sx_display_save_under
, 0, 1, 0,
3801 doc
: /* Returns t if the X display TERMINAL supports the save-under feature.
3802 The optional argument TERMINAL specifies which display to ask about.
3803 TERMINAL should be a terminal id, a frame or a display name (a string).
3804 If omitted or nil, that stands for the selected frame's display. */)
3806 Lisp_Object terminal
;
3808 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3810 if (DoesSaveUnders (dpyinfo
->screen
) == True
)
3818 register struct frame
*f
;
3820 return FRAME_PIXEL_WIDTH (f
);
3825 register struct frame
*f
;
3827 return FRAME_PIXEL_HEIGHT (f
);
3832 register struct frame
*f
;
3834 return FRAME_COLUMN_WIDTH (f
);
3839 register struct frame
*f
;
3841 return FRAME_LINE_HEIGHT (f
);
3846 register struct frame
*f
;
3848 return FRAME_X_DISPLAY_INFO (f
)->n_planes
;
3853 /************************************************************************
3855 ************************************************************************/
3858 /* Mapping visual names to visuals. */
3860 static struct visual_class
3867 {"StaticGray", StaticGray
},
3868 {"GrayScale", GrayScale
},
3869 {"StaticColor", StaticColor
},
3870 {"PseudoColor", PseudoColor
},
3871 {"TrueColor", TrueColor
},
3872 {"DirectColor", DirectColor
},
3877 #ifndef HAVE_XSCREENNUMBEROFSCREEN
3879 /* Value is the screen number of screen SCR. This is a substitute for
3880 the X function with the same name when that doesn't exist. */
3883 XScreenNumberOfScreen (scr
)
3884 register Screen
*scr
;
3886 Display
*dpy
= scr
->display
;
3889 for (i
= 0; i
< dpy
->nscreens
; ++i
)
3890 if (scr
== dpy
->screens
+ i
)
3896 #endif /* not HAVE_XSCREENNUMBEROFSCREEN */
3899 /* Select the visual that should be used on display DPYINFO. Set
3900 members of DPYINFO appropriately. Called from x_term_init. */
3903 select_visual (dpyinfo
)
3904 struct x_display_info
*dpyinfo
;
3906 Display
*dpy
= dpyinfo
->display
;
3907 Screen
*screen
= dpyinfo
->screen
;
3910 /* See if a visual is specified. */
3911 value
= display_x_get_resource (dpyinfo
,
3912 build_string ("visualClass"),
3913 build_string ("VisualClass"),
3915 if (STRINGP (value
))
3917 /* VALUE should be of the form CLASS-DEPTH, where CLASS is one
3918 of `PseudoColor', `TrueColor' etc. and DEPTH is the color
3919 depth, a decimal number. NAME is compared with case ignored. */
3920 char *s
= (char *) alloca (SBYTES (value
) + 1);
3925 strcpy (s
, SDATA (value
));
3926 dash
= index (s
, '-');
3929 dpyinfo
->n_planes
= atoi (dash
+ 1);
3933 /* We won't find a matching visual with depth 0, so that
3934 an error will be printed below. */
3935 dpyinfo
->n_planes
= 0;
3937 /* Determine the visual class. */
3938 for (i
= 0; visual_classes
[i
].name
; ++i
)
3939 if (xstricmp (s
, visual_classes
[i
].name
) == 0)
3941 class = visual_classes
[i
].class;
3945 /* Look up a matching visual for the specified class. */
3947 || !XMatchVisualInfo (dpy
, XScreenNumberOfScreen (screen
),
3948 dpyinfo
->n_planes
, class, &vinfo
))
3949 fatal ("Invalid visual specification `%s'", SDATA (value
));
3951 dpyinfo
->visual
= vinfo
.visual
;
3956 XVisualInfo
*vinfo
, vinfo_template
;
3958 dpyinfo
->visual
= DefaultVisualOfScreen (screen
);
3961 vinfo_template
.visualid
= XVisualIDFromVisual (dpyinfo
->visual
);
3963 vinfo_template
.visualid
= dpyinfo
->visual
->visualid
;
3965 vinfo_template
.screen
= XScreenNumberOfScreen (screen
);
3966 vinfo
= XGetVisualInfo (dpy
, VisualIDMask
| VisualScreenMask
,
3967 &vinfo_template
, &n_visuals
);
3969 fatal ("Can't get proper X visual info");
3971 dpyinfo
->n_planes
= vinfo
->depth
;
3972 XFree ((char *) vinfo
);
3977 /* Return the X display structure for the display named NAME.
3978 Open a new connection if necessary. */
3980 struct x_display_info
*
3981 x_display_info_for_name (name
)
3985 struct x_display_info
*dpyinfo
;
3987 CHECK_STRING (name
);
3990 if (! EQ (Vinitial_window_system
, intern ("x")))
3991 error ("Not using X Windows"); /* That doesn't stop us anymore. */
3994 for (dpyinfo
= x_display_list
, names
= x_display_name_list
;
3996 dpyinfo
= dpyinfo
->next
, names
= XCDR (names
))
3999 tem
= Fstring_equal (XCAR (XCAR (names
)), name
);
4004 /* Use this general default value to start with. */
4005 Vx_resource_name
= Vinvocation_name
;
4007 validate_x_resource_name ();
4009 dpyinfo
= x_term_init (name
, (char *)0,
4010 (char *) SDATA (Vx_resource_name
));
4013 error ("Cannot connect to X server %s", SDATA (name
));
4016 XSETFASTINT (Vwindow_system_version
, 11);
4022 DEFUN ("x-open-connection", Fx_open_connection
, Sx_open_connection
,
4024 doc
: /* Open a connection to an X server.
4025 DISPLAY is the name of the display to connect to.
4026 Optional second arg XRM-STRING is a string of resources in xrdb format.
4027 If the optional third arg MUST-SUCCEED is non-nil,
4028 terminate Emacs if we can't open the connection. */)
4029 (display
, xrm_string
, must_succeed
)
4030 Lisp_Object display
, xrm_string
, must_succeed
;
4032 unsigned char *xrm_option
;
4033 struct x_display_info
*dpyinfo
;
4035 CHECK_STRING (display
);
4036 if (! NILP (xrm_string
))
4037 CHECK_STRING (xrm_string
);
4040 if (! EQ (Vinitial_window_system
, intern ("x")))
4041 error ("Not using X Windows"); /* That doesn't stop us anymore. */
4044 if (! NILP (xrm_string
))
4045 xrm_option
= (unsigned char *) SDATA (xrm_string
);
4047 xrm_option
= (unsigned char *) 0;
4049 validate_x_resource_name ();
4051 /* This is what opens the connection and sets x_current_display.
4052 This also initializes many symbols, such as those used for input. */
4053 dpyinfo
= x_term_init (display
, xrm_option
,
4054 (char *) SDATA (Vx_resource_name
));
4058 if (!NILP (must_succeed
))
4059 fatal ("Cannot connect to X server %s.\n\
4060 Check the DISPLAY environment variable or use `-d'.\n\
4061 Also use the `xauth' program to verify that you have the proper\n\
4062 authorization information needed to connect the X server.\n\
4063 An insecure way to solve the problem may be to use `xhost'.\n",
4066 error ("Cannot connect to X server %s", SDATA (display
));
4071 XSETFASTINT (Vwindow_system_version
, 11);
4075 DEFUN ("x-close-connection", Fx_close_connection
,
4076 Sx_close_connection
, 1, 1, 0,
4077 doc
: /* Close the connection to TERMINAL's X server.
4078 For TERMINAL, specify a terminal id, a frame or a display name (a
4079 string). If TERMINAL is nil, that stands for the selected frame's
4082 Lisp_Object terminal
;
4084 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4086 if (dpyinfo
->reference_count
> 0)
4087 error ("Display still has frames on it");
4089 x_delete_terminal (dpyinfo
->terminal
);
4094 DEFUN ("x-display-list", Fx_display_list
, Sx_display_list
, 0, 0, 0,
4095 doc
: /* Return the list of display names that Emacs has connections to. */)
4098 Lisp_Object tail
, result
;
4101 for (tail
= x_display_name_list
; ! NILP (tail
); tail
= XCDR (tail
))
4102 result
= Fcons (XCAR (XCAR (tail
)), result
);
4107 DEFUN ("x-synchronize", Fx_synchronize
, Sx_synchronize
, 1, 2, 0,
4108 doc
: /* If ON is non-nil, report X errors as soon as the erring request is made.
4109 If ON is nil, allow buffering of requests.
4110 Turning on synchronization prohibits the Xlib routines from buffering
4111 requests and seriously degrades performance, but makes debugging much
4113 The optional second argument TERMINAL specifies which display to act on.
4114 TERMINAL should be a terminal id, a frame or a display name (a string).
4115 If TERMINAL is omitted or nil, that stands for the selected frame's display. */)
4117 Lisp_Object terminal
, on
;
4119 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4121 XSynchronize (dpyinfo
->display
, !EQ (on
, Qnil
));
4126 /* Wait for responses to all X commands issued so far for frame F. */
4133 XSync (FRAME_X_DISPLAY (f
), False
);
4138 /***********************************************************************
4140 ***********************************************************************/
4142 DEFUN ("x-change-window-property", Fx_change_window_property
,
4143 Sx_change_window_property
, 2, 6, 0,
4144 doc
: /* Change window property PROP to VALUE on the X window of FRAME.
4145 PROP must be a string.
4146 VALUE may be a string or a list of conses, numbers and/or strings.
4147 If an element in the list is a string, it is converted to
4148 an Atom and the value of the Atom is used. If an element is a cons,
4149 it is converted to a 32 bit number where the car is the 16 top bits and the
4150 cdr is the lower 16 bits.
4151 FRAME nil or omitted means use the selected frame.
4152 If TYPE is given and non-nil, it is the name of the type of VALUE.
4153 If TYPE is not given or nil, the type is STRING.
4154 FORMAT gives the size in bits of each element if VALUE is a list.
4155 It must be one of 8, 16 or 32.
4156 If VALUE is a string or FORMAT is nil or not given, FORMAT defaults to 8.
4157 If OUTER_P is non-nil, the property is changed for the outer X window of
4158 FRAME. Default is to change on the edit X window.
4161 (prop
, value
, frame
, type
, format
, outer_p
)
4162 Lisp_Object prop
, value
, frame
, type
, format
, outer_p
;
4164 struct frame
*f
= check_x_frame (frame
);
4166 Atom target_type
= XA_STRING
;
4167 int element_format
= 8;
4168 unsigned char *data
;
4172 CHECK_STRING (prop
);
4174 if (! NILP (format
))
4176 CHECK_NUMBER (format
);
4177 element_format
= XFASTINT (format
);
4179 if (element_format
!= 8 && element_format
!= 16
4180 && element_format
!= 32)
4181 error ("FORMAT must be one of 8, 16 or 32");
4186 nelements
= x_check_property_data (value
);
4187 if (nelements
== -1)
4188 error ("Bad data in VALUE, must be number, string or cons");
4190 if (element_format
== 8)
4191 data
= (unsigned char *) xmalloc (nelements
);
4192 else if (element_format
== 16)
4193 data
= (unsigned char *) xmalloc (nelements
*2);
4194 else /* format == 32 */
4195 /* The man page for XChangeProperty:
4196 "If the specified format is 32, the property data must be a
4198 This applies even if long is more than 64 bits. The X library
4199 converts to 32 bits before sending to the X server. */
4200 data
= (unsigned char *) xmalloc (nelements
* sizeof(long));
4202 x_fill_property_data (FRAME_X_DISPLAY (f
), value
, data
, element_format
);
4206 CHECK_STRING (value
);
4207 data
= SDATA (value
);
4208 nelements
= SCHARS (value
);
4212 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4215 CHECK_STRING (type
);
4216 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (type
), False
);
4219 if (! NILP (outer_p
)) w
= FRAME_OUTER_WINDOW (f
);
4220 else w
= FRAME_X_WINDOW (f
);
4222 XChangeProperty (FRAME_X_DISPLAY (f
), w
,
4223 prop_atom
, target_type
, element_format
, PropModeReplace
,
4226 if (CONSP (value
)) xfree (data
);
4228 /* Make sure the property is set when we return. */
4229 XFlush (FRAME_X_DISPLAY (f
));
4236 DEFUN ("x-delete-window-property", Fx_delete_window_property
,
4237 Sx_delete_window_property
, 1, 2, 0,
4238 doc
: /* Remove window property PROP from X window of FRAME.
4239 FRAME nil or omitted means use the selected frame. Value is PROP. */)
4241 Lisp_Object prop
, frame
;
4243 struct frame
*f
= check_x_frame (frame
);
4246 CHECK_STRING (prop
);
4248 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4249 XDeleteProperty (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), prop_atom
);
4251 /* Make sure the property is removed when we return. */
4252 XFlush (FRAME_X_DISPLAY (f
));
4259 DEFUN ("x-window-property", Fx_window_property
, Sx_window_property
,
4261 doc
: /* Value is the value of window property PROP on FRAME.
4262 If FRAME is nil or omitted, use the selected frame.
4263 If TYPE is nil or omitted, get the property as a string. Otherwise TYPE
4264 is the name of the Atom that denotes the type expected.
4265 If SOURCE is non-nil, get the property on that window instead of from
4266 FRAME. The number 0 denotes the root window.
4267 If DELETE_P is non-nil, delete the property after retreiving it.
4268 If VECTOR_RET_P is non-nil, don't return a string but a vector of values.
4270 Value is nil if FRAME hasn't a property with name PROP or if PROP has
4271 no value of TYPE. */)
4272 (prop
, frame
, type
, source
, delete_p
, vector_ret_p
)
4273 Lisp_Object prop
, frame
, type
, source
, delete_p
, vector_ret_p
;
4275 struct frame
*f
= check_x_frame (frame
);
4278 Lisp_Object prop_value
= Qnil
;
4279 unsigned char *tmp_data
= NULL
;
4281 Atom target_type
= XA_STRING
;
4283 unsigned long actual_size
, bytes_remaining
;
4284 Window target_window
= FRAME_X_WINDOW (f
);
4285 struct gcpro gcpro1
;
4287 GCPRO1 (prop_value
);
4288 CHECK_STRING (prop
);
4290 if (! NILP (source
))
4292 if (NUMBERP (source
))
4294 if (FLOATP (source
))
4295 target_window
= (Window
) XFLOAT (source
);
4297 target_window
= XFASTINT (source
);
4299 if (target_window
== 0)
4300 target_window
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4302 else if (CONSP (source
))
4303 target_window
= cons_to_long (source
);
4309 if (strcmp ("AnyPropertyType", SDATA (type
)) == 0)
4310 target_type
= AnyPropertyType
;
4312 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (type
), False
);
4315 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4316 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4317 prop_atom
, 0, 0, False
, target_type
,
4318 &actual_type
, &actual_format
, &actual_size
,
4319 &bytes_remaining
, &tmp_data
);
4322 int size
= bytes_remaining
;
4327 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4328 prop_atom
, 0, bytes_remaining
,
4329 ! NILP (delete_p
), target_type
,
4330 &actual_type
, &actual_format
,
4331 &actual_size
, &bytes_remaining
,
4333 if (rc
== Success
&& tmp_data
)
4335 /* The man page for XGetWindowProperty says:
4336 "If the returned format is 32, the returned data is represented
4337 as a long array and should be cast to that type to obtain the
4339 This applies even if long is more than 32 bits, the X library
4340 converts from 32 bit elements received from the X server to long
4341 and passes the long array to us. Thus, for that case bcopy can not
4342 be used. We convert to a 32 bit type here, because so much code
4345 The bytes and offsets passed to XGetWindowProperty refers to the
4346 property and those are indeed in 32 bit quantities if format is
4349 if (actual_format
== 32 && actual_format
< BITS_PER_LONG
)
4352 int *idata
= (int *) tmp_data
;
4353 long *ldata
= (long *) tmp_data
;
4355 for (i
= 0; i
< actual_size
; ++i
)
4356 idata
[i
] = (int) ldata
[i
];
4359 if (NILP (vector_ret_p
))
4360 prop_value
= make_string (tmp_data
, size
);
4362 prop_value
= x_property_data_to_lisp (f
,
4369 if (tmp_data
) XFree (tmp_data
);
4379 /***********************************************************************
4381 ***********************************************************************/
4383 /* If non-null, an asynchronous timer that, when it expires, displays
4384 an hourglass cursor on all frames. */
4386 static struct atimer
*hourglass_atimer
;
4388 /* Non-zero means an hourglass cursor is currently shown. */
4390 static int hourglass_shown_p
;
4392 /* Number of seconds to wait before displaying an hourglass cursor. */
4394 static Lisp_Object Vhourglass_delay
;
4396 /* Default number of seconds to wait before displaying an hourglass
4399 #define DEFAULT_HOURGLASS_DELAY 1
4401 /* Function prototypes. */
4403 static void show_hourglass
P_ ((struct atimer
*));
4404 static void hide_hourglass
P_ ((void));
4406 /* Return non-zero if houglass timer has been started or hourglass is shown. */
4409 hourglass_started ()
4411 return hourglass_shown_p
|| hourglass_atimer
!= NULL
;
4415 /* Cancel a currently active hourglass timer, and start a new one. */
4421 int secs
, usecs
= 0;
4423 cancel_hourglass ();
4425 if (INTEGERP (Vhourglass_delay
)
4426 && XINT (Vhourglass_delay
) > 0)
4427 secs
= XFASTINT (Vhourglass_delay
);
4428 else if (FLOATP (Vhourglass_delay
)
4429 && XFLOAT_DATA (Vhourglass_delay
) > 0)
4432 tem
= Ftruncate (Vhourglass_delay
, Qnil
);
4433 secs
= XFASTINT (tem
);
4434 usecs
= (XFLOAT_DATA (Vhourglass_delay
) - secs
) * 1000000;
4437 secs
= DEFAULT_HOURGLASS_DELAY
;
4439 EMACS_SET_SECS_USECS (delay
, secs
, usecs
);
4440 hourglass_atimer
= start_atimer (ATIMER_RELATIVE
, delay
,
4441 show_hourglass
, NULL
);
4445 /* Cancel the hourglass cursor timer if active, hide a busy cursor if
4451 if (hourglass_atimer
)
4453 cancel_atimer (hourglass_atimer
);
4454 hourglass_atimer
= NULL
;
4457 if (hourglass_shown_p
)
4462 /* Timer function of hourglass_atimer. TIMER is equal to
4465 Display an hourglass pointer on all frames by mapping the frames'
4466 hourglass_window. Set the hourglass_p flag in the frames'
4467 output_data.x structure to indicate that an hourglass cursor is
4468 shown on the frames. */
4471 show_hourglass (timer
)
4472 struct atimer
*timer
;
4474 /* The timer implementation will cancel this timer automatically
4475 after this function has run. Set hourglass_atimer to null
4476 so that we know the timer doesn't have to be canceled. */
4477 hourglass_atimer
= NULL
;
4479 if (!hourglass_shown_p
)
4481 Lisp_Object rest
, frame
;
4485 FOR_EACH_FRAME (rest
, frame
)
4487 struct frame
*f
= XFRAME (frame
);
4489 if (FRAME_LIVE_P (f
) && FRAME_X_P (f
) && FRAME_X_DISPLAY (f
))
4491 Display
*dpy
= FRAME_X_DISPLAY (f
);
4493 #ifdef USE_X_TOOLKIT
4494 if (f
->output_data
.x
->widget
)
4496 if (FRAME_OUTER_WINDOW (f
))
4499 f
->output_data
.x
->hourglass_p
= 1;
4501 if (!f
->output_data
.x
->hourglass_window
)
4503 unsigned long mask
= CWCursor
;
4504 XSetWindowAttributes attrs
;
4506 Window parent
= FRAME_X_WINDOW (f
);
4508 Window parent
= FRAME_OUTER_WINDOW (f
);
4510 attrs
.cursor
= f
->output_data
.x
->hourglass_cursor
;
4512 f
->output_data
.x
->hourglass_window
4513 = XCreateWindow (dpy
, parent
,
4514 0, 0, 32000, 32000, 0, 0,
4520 XMapRaised (dpy
, f
->output_data
.x
->hourglass_window
);
4526 hourglass_shown_p
= 1;
4532 /* Hide the hourglass pointer on all frames, if it is currently
4538 if (hourglass_shown_p
)
4540 Lisp_Object rest
, frame
;
4543 FOR_EACH_FRAME (rest
, frame
)
4545 struct frame
*f
= XFRAME (frame
);
4548 /* Watch out for newly created frames. */
4549 && f
->output_data
.x
->hourglass_window
)
4551 XUnmapWindow (FRAME_X_DISPLAY (f
),
4552 f
->output_data
.x
->hourglass_window
);
4553 /* Sync here because XTread_socket looks at the
4554 hourglass_p flag that is reset to zero below. */
4555 XSync (FRAME_X_DISPLAY (f
), False
);
4556 f
->output_data
.x
->hourglass_p
= 0;
4560 hourglass_shown_p
= 0;
4567 /***********************************************************************
4569 ***********************************************************************/
4571 static Lisp_Object x_create_tip_frame
P_ ((struct x_display_info
*,
4572 Lisp_Object
, Lisp_Object
));
4573 static void compute_tip_xy
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
,
4574 Lisp_Object
, int, int, int *, int *));
4576 /* The frame of a currently visible tooltip. */
4578 Lisp_Object tip_frame
;
4580 /* If non-nil, a timer started that hides the last tooltip when it
4583 Lisp_Object tip_timer
;
4586 /* If non-nil, a vector of 3 elements containing the last args
4587 with which x-show-tip was called. See there. */
4589 Lisp_Object last_show_tip_args
;
4591 /* Maximum size for tooltips; a cons (COLUMNS . ROWS). */
4593 Lisp_Object Vx_max_tooltip_size
;
4597 unwind_create_tip_frame (frame
)
4600 Lisp_Object deleted
;
4602 deleted
= unwind_create_frame (frame
);
4603 if (EQ (deleted
, Qt
))
4613 /* Create a frame for a tooltip on the display described by DPYINFO.
4614 PARMS is a list of frame parameters. TEXT is the string to
4615 display in the tip frame. Value is the frame.
4617 Note that functions called here, esp. x_default_parameter can
4618 signal errors, for instance when a specified color name is
4619 undefined. We have to make sure that we're in a consistent state
4620 when this happens. */
4623 x_create_tip_frame (dpyinfo
, parms
, text
)
4624 struct x_display_info
*dpyinfo
;
4625 Lisp_Object parms
, text
;
4628 Lisp_Object frame
, tem
;
4630 long window_prompting
= 0;
4632 int count
= SPECPDL_INDEX ();
4633 struct gcpro gcpro1
, gcpro2
, gcpro3
;
4634 int face_change_count_before
= face_change_count
;
4636 struct buffer
*old_buffer
;
4640 if (dpyinfo
->terminal
->deleted
)
4641 error ("Terminal is being deleted, can't create new frames on it");
4643 parms
= Fcopy_alist (parms
);
4645 /* Get the name of the frame to use for resource lookup. */
4646 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
4648 && !EQ (name
, Qunbound
)
4650 error ("Invalid frame name--not a string or nil");
4653 GCPRO3 (parms
, name
, frame
);
4655 XSETFRAME (frame
, f
);
4657 buffer
= Fget_buffer_create (build_string (" *tip*"));
4658 Fset_window_buffer (FRAME_ROOT_WINDOW (f
), buffer
, Qnil
);
4659 old_buffer
= current_buffer
;
4660 set_buffer_internal_1 (XBUFFER (buffer
));
4661 current_buffer
->truncate_lines
= Qnil
;
4662 specbind (Qinhibit_read_only
, Qt
);
4663 specbind (Qinhibit_modification_hooks
, Qt
);
4666 set_buffer_internal_1 (old_buffer
);
4668 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 0;
4669 record_unwind_protect (unwind_create_tip_frame
, frame
);
4671 f
->terminal
= dpyinfo
->terminal
;
4672 f
->terminal
->reference_count
++;
4674 /* By setting the output method, we're essentially saying that
4675 the frame is live, as per FRAME_LIVE_P. If we get a signal
4676 from this point on, x_destroy_window might screw up reference
4678 f
->output_method
= output_x_window
;
4679 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
4680 bzero (f
->output_data
.x
, sizeof (struct x_output
));
4681 f
->output_data
.x
->icon_bitmap
= -1;
4682 FRAME_FONTSET (f
) = -1;
4683 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
4684 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
4685 #ifdef USE_TOOLKIT_SCROLL_BARS
4686 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
4687 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
4688 #endif /* USE_TOOLKIT_SCROLL_BARS */
4689 f
->icon_name
= Qnil
;
4690 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
4692 image_cache_refcount
= FRAME_X_IMAGE_CACHE (f
)->refcount
;
4693 dpyinfo_refcount
= dpyinfo
->reference_count
;
4694 #endif /* GLYPH_DEBUG */
4695 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4696 f
->output_data
.x
->explicit_parent
= 0;
4698 /* These colors will be set anyway later, but it's important
4699 to get the color reference counts right, so initialize them! */
4702 struct gcpro gcpro1
;
4704 /* Function x_decode_color can signal an error. Make
4705 sure to initialize color slots so that we won't try
4706 to free colors we haven't allocated. */
4707 FRAME_FOREGROUND_PIXEL (f
) = -1;
4708 FRAME_BACKGROUND_PIXEL (f
) = -1;
4709 f
->output_data
.x
->cursor_pixel
= -1;
4710 f
->output_data
.x
->cursor_foreground_pixel
= -1;
4711 f
->output_data
.x
->border_pixel
= -1;
4712 f
->output_data
.x
->mouse_pixel
= -1;
4714 black
= build_string ("black");
4716 FRAME_FOREGROUND_PIXEL (f
)
4717 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4718 FRAME_BACKGROUND_PIXEL (f
)
4719 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4720 f
->output_data
.x
->cursor_pixel
4721 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4722 f
->output_data
.x
->cursor_foreground_pixel
4723 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4724 f
->output_data
.x
->border_pixel
4725 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4726 f
->output_data
.x
->mouse_pixel
4727 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4731 /* Set the name; the functions to which we pass f expect the name to
4733 if (EQ (name
, Qunbound
) || NILP (name
))
4735 f
->name
= build_string (dpyinfo
->x_id_name
);
4736 f
->explicit_name
= 0;
4741 f
->explicit_name
= 1;
4742 /* use the frame's title when getting resources for this frame. */
4743 specbind (Qx_resource_name
, name
);
4746 /* Extract the window parameters from the supplied values that are
4747 needed to determine window geometry. */
4751 font
= x_get_arg (dpyinfo
, parms
, Qfont
, "font", "Font", RES_TYPE_STRING
);
4754 /* First, try whatever font the caller has specified. */
4757 tem
= Fquery_fontset (font
, Qnil
);
4759 font
= x_new_fontset (f
, SDATA (tem
));
4761 font
= x_new_font (f
, SDATA (font
));
4764 /* Try out a font which we hope has bold and italic variations. */
4765 if (!STRINGP (font
))
4766 font
= x_new_font (f
, "-adobe-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-1");
4767 if (!STRINGP (font
))
4768 font
= x_new_font (f
, "-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-1");
4769 if (! STRINGP (font
))
4770 font
= x_new_font (f
, "-*-*-medium-r-normal-*-*-140-*-*-c-*-iso8859-1");
4771 if (! STRINGP (font
))
4772 /* This was formerly the first thing tried, but it finds too many fonts
4773 and takes too long. */
4774 font
= x_new_font (f
, "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1");
4775 /* If those didn't work, look for something which will at least work. */
4776 if (! STRINGP (font
))
4777 font
= x_new_font (f
, "-*-fixed-*-*-*-*-*-140-*-*-c-*-iso8859-1");
4779 if (! STRINGP (font
))
4780 font
= build_string ("fixed");
4782 x_default_parameter (f
, parms
, Qfont
, font
,
4783 "font", "Font", RES_TYPE_STRING
);
4786 x_default_parameter (f
, parms
, Qborder_width
, make_number (2),
4787 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
4789 /* This defaults to 2 in order to match xterm. We recognize either
4790 internalBorderWidth or internalBorder (which is what xterm calls
4792 if (NILP (Fassq (Qinternal_border_width
, parms
)))
4796 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
4797 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
4798 if (! EQ (value
, Qunbound
))
4799 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
4803 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
4804 "internalBorderWidth", "internalBorderWidth",
4807 /* Also do the stuff which must be set before the window exists. */
4808 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
4809 "foreground", "Foreground", RES_TYPE_STRING
);
4810 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
4811 "background", "Background", RES_TYPE_STRING
);
4812 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
4813 "pointerColor", "Foreground", RES_TYPE_STRING
);
4814 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
4815 "cursorColor", "Foreground", RES_TYPE_STRING
);
4816 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
4817 "borderColor", "BorderColor", RES_TYPE_STRING
);
4819 /* Init faces before x_default_parameter is called for scroll-bar
4820 parameters because that function calls x_set_scroll_bar_width,
4821 which calls change_frame_size, which calls Fset_window_buffer,
4822 which runs hooks, which call Fvertical_motion. At the end, we
4823 end up in init_iterator with a null face cache, which should not
4825 init_frame_faces (f
);
4827 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4829 window_prompting
= x_figure_window_size (f
, parms
, 0);
4832 XSetWindowAttributes attrs
;
4836 mask
= CWBackPixel
| CWOverrideRedirect
| CWEventMask
;
4837 if (DoesSaveUnders (dpyinfo
->screen
))
4838 mask
|= CWSaveUnder
;
4840 /* Window managers look at the override-redirect flag to determine
4841 whether or net to give windows a decoration (Xlib spec, chapter
4843 attrs
.override_redirect
= True
;
4844 attrs
.save_under
= True
;
4845 attrs
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
4846 /* Arrange for getting MapNotify and UnmapNotify events. */
4847 attrs
.event_mask
= StructureNotifyMask
;
4849 = FRAME_X_WINDOW (f
)
4850 = XCreateWindow (FRAME_X_DISPLAY (f
),
4851 FRAME_X_DISPLAY_INFO (f
)->root_window
,
4852 /* x, y, width, height */
4856 CopyFromParent
, InputOutput
, CopyFromParent
,
4863 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
4864 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4865 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
4866 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4867 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
4868 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
4870 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
4871 Change will not be effected unless different from the current
4873 width
= FRAME_COLS (f
);
4874 height
= FRAME_LINES (f
);
4875 SET_FRAME_COLS (f
, 0);
4876 FRAME_LINES (f
) = 0;
4877 change_frame_size (f
, height
, width
, 1, 0, 0);
4879 /* Add `tooltip' frame parameter's default value. */
4880 if (NILP (Fframe_parameter (frame
, intern ("tooltip"))))
4881 Fmodify_frame_parameters (frame
, Fcons (Fcons (intern ("tooltip"), Qt
),
4884 /* Set up faces after all frame parameters are known. This call
4885 also merges in face attributes specified for new frames.
4887 Frame parameters may be changed if .Xdefaults contains
4888 specifications for the default font. For example, if there is an
4889 `Emacs.default.attributeBackground: pink', the `background-color'
4890 attribute of the frame get's set, which let's the internal border
4891 of the tooltip frame appear in pink. Prevent this. */
4893 Lisp_Object bg
= Fframe_parameter (frame
, Qbackground_color
);
4895 /* Set tip_frame here, so that */
4897 call1 (Qface_set_after_frame_default
, frame
);
4899 if (!EQ (bg
, Fframe_parameter (frame
, Qbackground_color
)))
4900 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qbackground_color
, bg
),
4904 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qwindow_system
, Qx
), Qnil
));
4910 /* It is now ok to make the frame official even if we get an error
4911 below. And the frame needs to be on Vframe_list or making it
4912 visible won't work. */
4913 Vframe_list
= Fcons (frame
, Vframe_list
);
4915 /* Now that the frame is official, it counts as a reference to
4917 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
4919 /* Setting attributes of faces of the tooltip frame from resources
4920 and similar will increment face_change_count, which leads to the
4921 clearing of all current matrices. Since this isn't necessary
4922 here, avoid it by resetting face_change_count to the value it
4923 had before we created the tip frame. */
4924 face_change_count
= face_change_count_before
;
4926 /* Discard the unwind_protect. */
4927 return unbind_to (count
, frame
);
4931 /* Compute where to display tip frame F. PARMS is the list of frame
4932 parameters for F. DX and DY are specified offsets from the current
4933 location of the mouse. WIDTH and HEIGHT are the width and height
4934 of the tooltip. Return coordinates relative to the root window of
4935 the display in *ROOT_X, and *ROOT_Y. */
4938 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, root_x
, root_y
)
4940 Lisp_Object parms
, dx
, dy
;
4942 int *root_x
, *root_y
;
4944 Lisp_Object left
, top
;
4949 /* User-specified position? */
4950 left
= Fcdr (Fassq (Qleft
, parms
));
4951 top
= Fcdr (Fassq (Qtop
, parms
));
4953 /* Move the tooltip window where the mouse pointer is. Resize and
4955 if (!INTEGERP (left
) || !INTEGERP (top
))
4958 XQueryPointer (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
4959 &root
, &child
, root_x
, root_y
, &win_x
, &win_y
, &pmask
);
4964 *root_y
= XINT (top
);
4965 else if (*root_y
+ XINT (dy
) <= 0)
4966 *root_y
= 0; /* Can happen for negative dy */
4967 else if (*root_y
+ XINT (dy
) + height
<= FRAME_X_DISPLAY_INFO (f
)->height
)
4968 /* It fits below the pointer */
4969 *root_y
+= XINT (dy
);
4970 else if (height
+ XINT (dy
) <= *root_y
)
4971 /* It fits above the pointer. */
4972 *root_y
-= height
+ XINT (dy
);
4974 /* Put it on the top. */
4977 if (INTEGERP (left
))
4978 *root_x
= XINT (left
);
4979 else if (*root_x
+ XINT (dx
) <= 0)
4980 *root_x
= 0; /* Can happen for negative dx */
4981 else if (*root_x
+ XINT (dx
) + width
<= FRAME_X_DISPLAY_INFO (f
)->width
)
4982 /* It fits to the right of the pointer. */
4983 *root_x
+= XINT (dx
);
4984 else if (width
+ XINT (dx
) <= *root_x
)
4985 /* It fits to the left of the pointer. */
4986 *root_x
-= width
+ XINT (dx
);
4988 /* Put it left-justified on the screen--it ought to fit that way. */
4993 DEFUN ("x-show-tip", Fx_show_tip
, Sx_show_tip
, 1, 6, 0,
4994 doc
: /* Show STRING in a "tooltip" window on frame FRAME.
4995 A tooltip window is a small X window displaying a string.
4997 FRAME nil or omitted means use the selected frame.
4999 PARMS is an optional list of frame parameters which can be used to
5000 change the tooltip's appearance.
5002 Automatically hide the tooltip after TIMEOUT seconds. TIMEOUT nil
5003 means use the default timeout of 5 seconds.
5005 If the list of frame parameters PARAMS contains a `left' parameters,
5006 the tooltip is displayed at that x-position. Otherwise it is
5007 displayed at the mouse position, with offset DX added (default is 5 if
5008 DX isn't specified). Likewise for the y-position; if a `top' frame
5009 parameter is specified, it determines the y-position of the tooltip
5010 window, otherwise it is displayed at the mouse position, with offset
5011 DY added (default is -10).
5013 A tooltip's maximum size is specified by `x-max-tooltip-size'.
5014 Text larger than the specified size is clipped. */)
5015 (string
, frame
, parms
, timeout
, dx
, dy
)
5016 Lisp_Object string
, frame
, parms
, timeout
, dx
, dy
;
5021 struct buffer
*old_buffer
;
5022 struct text_pos pos
;
5023 int i
, width
, height
;
5024 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
5025 int old_windows_or_buffers_changed
= windows_or_buffers_changed
;
5026 int count
= SPECPDL_INDEX ();
5028 specbind (Qinhibit_redisplay
, Qt
);
5030 GCPRO4 (string
, parms
, frame
, timeout
);
5032 CHECK_STRING (string
);
5033 f
= check_x_frame (frame
);
5035 timeout
= make_number (5);
5037 CHECK_NATNUM (timeout
);
5040 dx
= make_number (5);
5045 dy
= make_number (-10);
5049 if (NILP (last_show_tip_args
))
5050 last_show_tip_args
= Fmake_vector (make_number (3), Qnil
);
5052 if (!NILP (tip_frame
))
5054 Lisp_Object last_string
= AREF (last_show_tip_args
, 0);
5055 Lisp_Object last_frame
= AREF (last_show_tip_args
, 1);
5056 Lisp_Object last_parms
= AREF (last_show_tip_args
, 2);
5058 if (EQ (frame
, last_frame
)
5059 && !NILP (Fequal (last_string
, string
))
5060 && !NILP (Fequal (last_parms
, parms
)))
5062 struct frame
*f
= XFRAME (tip_frame
);
5064 /* Only DX and DY have changed. */
5065 if (!NILP (tip_timer
))
5067 Lisp_Object timer
= tip_timer
;
5069 call1 (Qcancel_timer
, timer
);
5073 compute_tip_xy (f
, parms
, dx
, dy
, FRAME_PIXEL_WIDTH (f
),
5074 FRAME_PIXEL_HEIGHT (f
), &root_x
, &root_y
);
5075 XMoveWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5082 /* Hide a previous tip, if any. */
5085 ASET (last_show_tip_args
, 0, string
);
5086 ASET (last_show_tip_args
, 1, frame
);
5087 ASET (last_show_tip_args
, 2, parms
);
5089 /* Add default values to frame parameters. */
5090 if (NILP (Fassq (Qname
, parms
)))
5091 parms
= Fcons (Fcons (Qname
, build_string ("tooltip")), parms
);
5092 if (NILP (Fassq (Qinternal_border_width
, parms
)))
5093 parms
= Fcons (Fcons (Qinternal_border_width
, make_number (3)), parms
);
5094 if (NILP (Fassq (Qborder_width
, parms
)))
5095 parms
= Fcons (Fcons (Qborder_width
, make_number (1)), parms
);
5096 if (NILP (Fassq (Qborder_color
, parms
)))
5097 parms
= Fcons (Fcons (Qborder_color
, build_string ("lightyellow")), parms
);
5098 if (NILP (Fassq (Qbackground_color
, parms
)))
5099 parms
= Fcons (Fcons (Qbackground_color
, build_string ("lightyellow")),
5102 /* Create a frame for the tooltip, and record it in the global
5103 variable tip_frame. */
5104 frame
= x_create_tip_frame (FRAME_X_DISPLAY_INFO (f
), parms
, string
);
5107 /* Set up the frame's root window. */
5108 w
= XWINDOW (FRAME_ROOT_WINDOW (f
));
5109 w
->left_col
= w
->top_line
= make_number (0);
5111 if (CONSP (Vx_max_tooltip_size
)
5112 && INTEGERP (XCAR (Vx_max_tooltip_size
))
5113 && XINT (XCAR (Vx_max_tooltip_size
)) > 0
5114 && INTEGERP (XCDR (Vx_max_tooltip_size
))
5115 && XINT (XCDR (Vx_max_tooltip_size
)) > 0)
5117 w
->total_cols
= XCAR (Vx_max_tooltip_size
);
5118 w
->total_lines
= XCDR (Vx_max_tooltip_size
);
5122 w
->total_cols
= make_number (80);
5123 w
->total_lines
= make_number (40);
5126 FRAME_TOTAL_COLS (f
) = XINT (w
->total_cols
);
5128 w
->pseudo_window_p
= 1;
5130 /* Display the tooltip text in a temporary buffer. */
5131 old_buffer
= current_buffer
;
5132 set_buffer_internal_1 (XBUFFER (XWINDOW (FRAME_ROOT_WINDOW (f
))->buffer
));
5133 current_buffer
->truncate_lines
= Qnil
;
5134 clear_glyph_matrix (w
->desired_matrix
);
5135 clear_glyph_matrix (w
->current_matrix
);
5136 SET_TEXT_POS (pos
, BEGV
, BEGV_BYTE
);
5137 try_window (FRAME_ROOT_WINDOW (f
), pos
, 0);
5139 /* Compute width and height of the tooltip. */
5141 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
5143 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
5147 /* Stop at the first empty row at the end. */
5148 if (!row
->enabled_p
|| !row
->displays_text_p
)
5151 /* Let the row go over the full width of the frame. */
5152 row
->full_width_p
= 1;
5154 /* There's a glyph at the end of rows that is used to place
5155 the cursor there. Don't include the width of this glyph. */
5156 if (row
->used
[TEXT_AREA
])
5158 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
5159 row_width
= row
->pixel_width
- last
->pixel_width
;
5162 row_width
= row
->pixel_width
;
5164 height
+= row
->height
;
5165 width
= max (width
, row_width
);
5168 /* Add the frame's internal border to the width and height the X
5169 window should have. */
5170 height
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5171 width
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5173 /* Move the tooltip window where the mouse pointer is. Resize and
5175 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
5178 XMoveResizeWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5179 root_x
, root_y
, width
, height
);
5180 XMapRaised (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
));
5183 /* Draw into the window. */
5184 w
->must_be_updated_p
= 1;
5185 update_single_window (w
, 1);
5187 /* Restore original current buffer. */
5188 set_buffer_internal_1 (old_buffer
);
5189 windows_or_buffers_changed
= old_windows_or_buffers_changed
;
5192 /* Let the tip disappear after timeout seconds. */
5193 tip_timer
= call3 (intern ("run-at-time"), timeout
, Qnil
,
5194 intern ("x-hide-tip"));
5197 return unbind_to (count
, Qnil
);
5201 DEFUN ("x-hide-tip", Fx_hide_tip
, Sx_hide_tip
, 0, 0, 0,
5202 doc
: /* Hide the current tooltip window, if there is any.
5203 Value is t if tooltip was open, nil otherwise. */)
5207 Lisp_Object deleted
, frame
, timer
;
5208 struct gcpro gcpro1
, gcpro2
;
5210 /* Return quickly if nothing to do. */
5211 if (NILP (tip_timer
) && NILP (tip_frame
))
5216 GCPRO2 (frame
, timer
);
5217 tip_frame
= tip_timer
= deleted
= Qnil
;
5219 count
= SPECPDL_INDEX ();
5220 specbind (Qinhibit_redisplay
, Qt
);
5221 specbind (Qinhibit_quit
, Qt
);
5224 call1 (Qcancel_timer
, timer
);
5228 Fdelete_frame (frame
, Qnil
);
5232 /* Bloodcurdling hack alert: The Lucid menu bar widget's
5233 redisplay procedure is not called when a tip frame over menu
5234 items is unmapped. Redisplay the menu manually... */
5236 struct frame
*f
= SELECTED_FRAME ();
5237 Widget w
= f
->output_data
.x
->menubar_widget
;
5238 extern void xlwmenu_redisplay
P_ ((Widget
));
5240 if (!DoesSaveUnders (FRAME_X_DISPLAY_INFO (f
)->screen
)
5244 xlwmenu_redisplay (w
);
5248 #endif /* USE_LUCID */
5252 return unbind_to (count
, deleted
);
5257 /***********************************************************************
5258 File selection dialog
5259 ***********************************************************************/
5261 DEFUN ("x-uses-old-gtk-dialog", Fx_uses_old_gtk_dialog
,
5262 Sx_uses_old_gtk_dialog
,
5264 doc
: /* Return t if the old Gtk+ file selection dialog is used. */)
5268 extern int use_dialog_box
;
5269 extern int use_file_dialog
;
5274 && xg_uses_old_file_dialog ())
5282 /* Callback for "OK" and "Cancel" on file selection dialog. */
5285 file_dialog_cb (widget
, client_data
, call_data
)
5287 XtPointer call_data
, client_data
;
5289 int *result
= (int *) client_data
;
5290 XmAnyCallbackStruct
*cb
= (XmAnyCallbackStruct
*) call_data
;
5291 *result
= cb
->reason
;
5295 /* Callback for unmapping a file selection dialog. This is used to
5296 capture the case where a dialog is closed via a window manager's
5297 closer button, for example. Using a XmNdestroyCallback didn't work
5301 file_dialog_unmap_cb (widget
, client_data
, call_data
)
5303 XtPointer call_data
, client_data
;
5305 int *result
= (int *) client_data
;
5306 *result
= XmCR_CANCEL
;
5310 clean_up_file_dialog (arg
)
5313 struct Lisp_Save_Value
*p
= XSAVE_VALUE (arg
);
5314 Widget dialog
= (Widget
) p
->pointer
;
5318 XtUnmanageChild (dialog
);
5319 XtDestroyWidget (dialog
);
5320 x_menu_set_in_use (0);
5327 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5328 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5329 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5330 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5331 or directory must exist. ONLY-DIR-P is ignored." */)
5332 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
)
5333 Lisp_Object prompt
, dir
, default_filename
, mustmatch
, only_dir_p
;
5336 struct frame
*f
= SELECTED_FRAME ();
5337 Lisp_Object file
= Qnil
;
5338 Lisp_Object decoded_file
;
5339 Widget dialog
, text
, help
;
5342 extern XtAppContext Xt_app_con
;
5343 XmString dir_xmstring
, pattern_xmstring
;
5344 int count
= SPECPDL_INDEX ();
5345 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5347 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5349 if (popup_activated ())
5350 error ("Trying to use a menu from within a menu-entry");
5352 CHECK_STRING (prompt
);
5355 /* Prevent redisplay. */
5356 specbind (Qinhibit_redisplay
, Qt
);
5360 /* Create the dialog with PROMPT as title, using DIR as initial
5361 directory and using "*" as pattern. */
5362 dir
= Fexpand_file_name (dir
, Qnil
);
5363 dir_xmstring
= XmStringCreateLocalized (SDATA (dir
));
5364 pattern_xmstring
= XmStringCreateLocalized ("*");
5366 XtSetArg (al
[ac
], XmNtitle
, SDATA (prompt
)); ++ac
;
5367 XtSetArg (al
[ac
], XmNdirectory
, dir_xmstring
); ++ac
;
5368 XtSetArg (al
[ac
], XmNpattern
, pattern_xmstring
); ++ac
;
5369 XtSetArg (al
[ac
], XmNresizePolicy
, XmRESIZE_GROW
); ++ac
;
5370 XtSetArg (al
[ac
], XmNdialogStyle
, XmDIALOG_APPLICATION_MODAL
); ++ac
;
5371 dialog
= XmCreateFileSelectionDialog (f
->output_data
.x
->widget
,
5373 XmStringFree (dir_xmstring
);
5374 XmStringFree (pattern_xmstring
);
5376 /* Add callbacks for OK and Cancel. */
5377 XtAddCallback (dialog
, XmNokCallback
, file_dialog_cb
,
5378 (XtPointer
) &result
);
5379 XtAddCallback (dialog
, XmNcancelCallback
, file_dialog_cb
,
5380 (XtPointer
) &result
);
5381 XtAddCallback (dialog
, XmNunmapCallback
, file_dialog_unmap_cb
,
5382 (XtPointer
) &result
);
5384 /* Remove the help button since we can't display help. */
5385 help
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_HELP_BUTTON
);
5386 XtUnmanageChild (help
);
5388 /* Mark OK button as default. */
5389 XtVaSetValues (XmFileSelectionBoxGetChild (dialog
, XmDIALOG_OK_BUTTON
),
5390 XmNshowAsDefault
, True
, NULL
);
5392 /* If MUSTMATCH is non-nil, disable the file entry field of the
5393 dialog, so that the user must select a file from the files list
5394 box. We can't remove it because we wouldn't have a way to get at
5395 the result file name, then. */
5396 text
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5397 if (!NILP (mustmatch
))
5400 label
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_SELECTION_LABEL
);
5401 XtSetSensitive (text
, False
);
5402 XtSetSensitive (label
, False
);
5405 /* Manage the dialog, so that list boxes get filled. */
5406 XtManageChild (dialog
);
5408 if (STRINGP (default_filename
))
5410 XmString default_xmstring
;
5411 Widget wtext
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5412 Widget list
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_LIST
);
5414 XmTextPosition last_pos
= XmTextFieldGetLastPosition (wtext
);
5415 XmTextFieldReplace (wtext
, 0, last_pos
,
5416 (SDATA (Ffile_name_nondirectory (default_filename
))));
5418 /* Select DEFAULT_FILENAME in the files list box. DEFAULT_FILENAME
5419 must include the path for this to work. */
5421 default_xmstring
= XmStringCreateLocalized (SDATA (default_filename
));
5423 if (XmListItemExists (list
, default_xmstring
))
5425 int item_pos
= XmListItemPos (list
, default_xmstring
);
5426 /* Select the item and scroll it into view. */
5427 XmListSelectPos (list
, item_pos
, True
);
5428 XmListSetPos (list
, item_pos
);
5431 XmStringFree (default_xmstring
);
5434 record_unwind_protect (clean_up_file_dialog
, make_save_value (dialog
, 0));
5436 /* Process events until the user presses Cancel or OK. */
5437 x_menu_set_in_use (1);
5442 x_menu_wait_for_event (0);
5443 XtAppNextEvent (Xt_app_con
, &event
);
5444 if (event
.type
== KeyPress
5445 && FRAME_X_DISPLAY (f
) == event
.xkey
.display
)
5447 KeySym keysym
= XLookupKeysym (&event
.xkey
, 0);
5449 /* Pop down on C-g. */
5450 if (keysym
== XK_g
&& (event
.xkey
.state
& ControlMask
) != 0)
5451 XtUnmanageChild (dialog
);
5454 (void) x_dispatch_event (&event
, FRAME_X_DISPLAY (f
));
5457 /* Get the result. */
5458 if (result
== XmCR_OK
)
5463 XtVaGetValues (dialog
, XmNtextString
, &text
, NULL
);
5464 XmStringGetLtoR (text
, XmFONTLIST_DEFAULT_TAG
, &data
);
5465 XmStringFree (text
);
5466 file
= build_string (data
);
5475 /* Make "Cancel" equivalent to C-g. */
5477 Fsignal (Qquit
, Qnil
);
5479 decoded_file
= DECODE_FILE (file
);
5481 return unbind_to (count
, decoded_file
);
5484 #endif /* USE_MOTIF */
5489 clean_up_dialog (arg
)
5492 x_menu_set_in_use (0);
5497 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5498 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5499 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5500 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5501 or directory must exist. If ONLY-DIR-P is non-nil, the user can only select
5503 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
)
5504 Lisp_Object prompt
, dir
, default_filename
, mustmatch
, only_dir_p
;
5506 FRAME_PTR f
= SELECTED_FRAME ();
5508 Lisp_Object file
= Qnil
;
5509 Lisp_Object decoded_file
;
5510 int count
= SPECPDL_INDEX ();
5511 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5514 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5516 if (popup_activated ())
5517 error ("Trying to use a menu from within a menu-entry");
5519 CHECK_STRING (prompt
);
5522 /* Prevent redisplay. */
5523 specbind (Qinhibit_redisplay
, Qt
);
5524 record_unwind_protect (clean_up_dialog
, Qnil
);
5528 if (STRINGP (default_filename
))
5529 cdef_file
= SDATA (default_filename
);
5531 cdef_file
= SDATA (dir
);
5533 fn
= xg_get_file_name (f
, SDATA (prompt
), cdef_file
,
5535 ! NILP (only_dir_p
));
5539 file
= build_string (fn
);
5546 /* Make "Cancel" equivalent to C-g. */
5548 Fsignal (Qquit
, Qnil
);
5550 decoded_file
= DECODE_FILE (file
);
5552 return unbind_to (count
, decoded_file
);
5555 #endif /* USE_GTK */
5558 /***********************************************************************
5560 ***********************************************************************/
5562 #ifdef HAVE_XKBGETKEYBOARD
5563 #include <X11/XKBlib.h>
5564 #include <X11/keysym.h>
5567 DEFUN ("x-backspace-delete-keys-p", Fx_backspace_delete_keys_p
,
5568 Sx_backspace_delete_keys_p
, 0, 1, 0,
5569 doc
: /* Check if both Backspace and Delete keys are on the keyboard of FRAME.
5570 FRAME nil means use the selected frame.
5571 Value is t if we know that both keys are present, and are mapped to the
5572 usual X keysyms. Value is `lambda' if we cannot determine if both keys are
5573 present and mapped to the usual X keysyms. */)
5577 #ifdef HAVE_XKBGETKEYBOARD
5579 struct frame
*f
= check_x_frame (frame
);
5580 Display
*dpy
= FRAME_X_DISPLAY (f
);
5581 Lisp_Object have_keys
;
5582 int major
, minor
, op
, event
, error
;
5586 /* Check library version in case we're dynamically linked. */
5587 major
= XkbMajorVersion
;
5588 minor
= XkbMinorVersion
;
5589 if (!XkbLibraryVersion (&major
, &minor
))
5595 /* Check that the server supports XKB. */
5596 major
= XkbMajorVersion
;
5597 minor
= XkbMinorVersion
;
5598 if (!XkbQueryExtension (dpy
, &op
, &event
, &error
, &major
, &minor
))
5604 /* In this code we check that the keyboard has physical keys with names
5605 that start with BKSP (Backspace) and DELE (Delete), and that they
5606 generate keysym XK_BackSpace and XK_Delete respectively.
5607 This function is used to test if normal-erase-is-backspace should be
5609 An alternative approach would be to just check if XK_BackSpace and
5610 XK_Delete are mapped to any key. But if any of those are mapped to
5611 some non-intuitive key combination (Meta-Shift-Ctrl-whatever) and the
5612 user doesn't know about it, it is better to return false here.
5613 It is more obvious to the user what to do if she/he has two keys
5614 clearly marked with names/symbols and one key does something not
5615 expected (i.e. she/he then tries the other).
5616 The cases where Backspace/Delete is mapped to some other key combination
5617 are rare, and in those cases, normal-erase-is-backspace can be turned on
5621 kb
= XkbGetMap (dpy
, XkbAllMapComponentsMask
, XkbUseCoreKbd
);
5624 int delete_keycode
= 0, backspace_keycode
= 0, i
;
5626 if (XkbGetNames (dpy
, XkbAllNamesMask
, kb
) == Success
)
5628 for (i
= kb
->min_key_code
;
5629 (i
< kb
->max_key_code
5630 && (delete_keycode
== 0 || backspace_keycode
== 0));
5633 /* The XKB symbolic key names can be seen most easily in
5634 the PS file generated by `xkbprint -label name
5636 if (bcmp ("DELE", kb
->names
->keys
[i
].name
, 4) == 0)
5638 else if (bcmp ("BKSP", kb
->names
->keys
[i
].name
, 4) == 0)
5639 backspace_keycode
= i
;
5642 XkbFreeNames (kb
, 0, True
);
5645 XkbFreeClientMap (kb
, 0, True
);
5648 && backspace_keycode
5649 && XKeysymToKeycode (dpy
, XK_Delete
) == delete_keycode
5650 && XKeysymToKeycode (dpy
, XK_BackSpace
) == backspace_keycode
)
5655 #else /* not HAVE_XKBGETKEYBOARD */
5657 #endif /* not HAVE_XKBGETKEYBOARD */
5662 /***********************************************************************
5664 ***********************************************************************/
5666 /* Keep this list in the same order as frame_parms in frame.c.
5667 Use 0 for unsupported frame parameters. */
5669 frame_parm_handler x_frame_parm_handlers
[] =
5673 x_set_background_color
,
5679 x_set_foreground_color
,
5682 x_set_internal_border_width
,
5683 x_set_menu_bar_lines
,
5685 x_explicitly_set_name
,
5686 x_set_scroll_bar_width
,
5689 x_set_vertical_scroll_bars
,
5691 x_set_tool_bar_lines
,
5692 x_set_scroll_bar_foreground
,
5693 x_set_scroll_bar_background
,
5705 /* This is zero if not using X windows. */
5708 /* The section below is built by the lisp expression at the top of the file,
5709 just above where these variables are declared. */
5710 /*&&& init symbols here &&&*/
5711 Qnone
= intern ("none");
5713 Qsuppress_icon
= intern ("suppress-icon");
5714 staticpro (&Qsuppress_icon
);
5715 Qundefined_color
= intern ("undefined-color");
5716 staticpro (&Qundefined_color
);
5717 Qcompound_text
= intern ("compound-text");
5718 staticpro (&Qcompound_text
);
5719 Qcancel_timer
= intern ("cancel-timer");
5720 staticpro (&Qcancel_timer
);
5721 /* This is the end of symbol initialization. */
5723 /* Text property `display' should be nonsticky by default. */
5724 Vtext_property_default_nonsticky
5725 = Fcons (Fcons (Qdisplay
, Qt
), Vtext_property_default_nonsticky
);
5728 Fput (Qundefined_color
, Qerror_conditions
,
5729 Fcons (Qundefined_color
, Fcons (Qerror
, Qnil
)));
5730 Fput (Qundefined_color
, Qerror_message
,
5731 build_string ("Undefined color"));
5733 DEFVAR_LISP ("x-pointer-shape", &Vx_pointer_shape
,
5734 doc
: /* The shape of the pointer when over text.
5735 Changing the value does not affect existing frames
5736 unless you set the mouse color. */);
5737 Vx_pointer_shape
= Qnil
;
5739 #if 0 /* This doesn't really do anything. */
5740 DEFVAR_LISP ("x-nontext-pointer-shape", &Vx_nontext_pointer_shape
,
5741 doc
: /* The shape of the pointer when not over text.
5742 This variable takes effect when you create a new frame
5743 or when you set the mouse color. */);
5745 Vx_nontext_pointer_shape
= Qnil
;
5747 DEFVAR_LISP ("x-hourglass-pointer-shape", &Vx_hourglass_pointer_shape
,
5748 doc
: /* The shape of the pointer when Emacs is busy.
5749 This variable takes effect when you create a new frame
5750 or when you set the mouse color. */);
5751 Vx_hourglass_pointer_shape
= Qnil
;
5753 DEFVAR_BOOL ("display-hourglass", &display_hourglass_p
,
5754 doc
: /* Non-zero means Emacs displays an hourglass pointer on window systems. */);
5755 display_hourglass_p
= 1;
5757 DEFVAR_LISP ("hourglass-delay", &Vhourglass_delay
,
5758 doc
: /* *Seconds to wait before displaying an hourglass pointer.
5759 Value must be an integer or float. */);
5760 Vhourglass_delay
= make_number (DEFAULT_HOURGLASS_DELAY
);
5762 #if 0 /* This doesn't really do anything. */
5763 DEFVAR_LISP ("x-mode-pointer-shape", &Vx_mode_pointer_shape
,
5764 doc
: /* The shape of the pointer when over the mode line.
5765 This variable takes effect when you create a new frame
5766 or when you set the mouse color. */);
5768 Vx_mode_pointer_shape
= Qnil
;
5770 DEFVAR_LISP ("x-sensitive-text-pointer-shape",
5771 &Vx_sensitive_text_pointer_shape
,
5772 doc
: /* The shape of the pointer when over mouse-sensitive text.
5773 This variable takes effect when you create a new frame
5774 or when you set the mouse color. */);
5775 Vx_sensitive_text_pointer_shape
= Qnil
;
5777 DEFVAR_LISP ("x-window-horizontal-drag-cursor",
5778 &Vx_window_horizontal_drag_shape
,
5779 doc
: /* Pointer shape to use for indicating a window can be dragged horizontally.
5780 This variable takes effect when you create a new frame
5781 or when you set the mouse color. */);
5782 Vx_window_horizontal_drag_shape
= Qnil
;
5784 DEFVAR_LISP ("x-cursor-fore-pixel", &Vx_cursor_fore_pixel
,
5785 doc
: /* A string indicating the foreground color of the cursor box. */);
5786 Vx_cursor_fore_pixel
= Qnil
;
5788 DEFVAR_LISP ("x-max-tooltip-size", &Vx_max_tooltip_size
,
5789 doc
: /* Maximum size for tooltips. Value is a pair (COLUMNS . ROWS).
5790 Text larger than this is clipped. */);
5791 Vx_max_tooltip_size
= Fcons (make_number (80), make_number (40));
5793 DEFVAR_LISP ("x-no-window-manager", &Vx_no_window_manager
,
5794 doc
: /* Non-nil if no X window manager is in use.
5795 Emacs doesn't try to figure this out; this is always nil
5796 unless you set it to something else. */);
5797 /* We don't have any way to find this out, so set it to nil
5798 and maybe the user would like to set it to t. */
5799 Vx_no_window_manager
= Qnil
;
5801 DEFVAR_LISP ("x-pixel-size-width-font-regexp",
5802 &Vx_pixel_size_width_font_regexp
,
5803 doc
: /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'.
5805 Since Emacs gets width of a font matching with this regexp from
5806 PIXEL_SIZE field of the name, font finding mechanism gets faster for
5807 such a font. This is especially effective for such large fonts as
5808 Chinese, Japanese, and Korean. */);
5809 Vx_pixel_size_width_font_regexp
= Qnil
;
5811 /* This is not ifdef:ed, so other builds than GTK can customize it. */
5812 DEFVAR_BOOL ("x-use-old-gtk-file-dialog", &x_use_old_gtk_file_dialog
,
5813 doc
: /* *Non-nil means prompt with the old GTK file selection dialog.
5814 If nil or if the file selection dialog is not available, the new GTK file
5815 chooser is used instead. To turn off all file dialogs set the
5816 variable `use-file-dialog'. */);
5817 x_use_old_gtk_file_dialog
= 0;
5819 DEFVAR_BOOL ("x-gtk-show-hidden-files", &x_gtk_show_hidden_files
,
5820 doc
: /* *If non-nil, the GTK file chooser will by default show hidden files.
5821 Note that this is just the default, there is a toggle button on the file
5822 chooser to show or not show hidden files on a case by case basis. */);
5823 x_gtk_show_hidden_files
= 0;
5825 DEFVAR_BOOL ("x-gtk-whole-detached-tool-bar", &x_gtk_whole_detached_tool_bar
,
5826 doc
: /* *If non-nil, a detached tool bar is shown in full.
5827 The default is to just show an arrow and pressing on that arrow shows
5828 the tool bar buttons. */);
5829 x_gtk_whole_detached_tool_bar
= 0;
5831 Fprovide (intern ("x"), Qnil
);
5833 #ifdef USE_X_TOOLKIT
5834 Fprovide (intern ("x-toolkit"), Qnil
);
5836 Fprovide (intern ("motif"), Qnil
);
5838 DEFVAR_LISP ("motif-version-string", &Vmotif_version_string
,
5839 doc
: /* Version info for LessTif/Motif. */);
5840 Vmotif_version_string
= build_string (XmVERSION_STRING
);
5841 #endif /* USE_MOTIF */
5842 #endif /* USE_X_TOOLKIT */
5845 /* Provide x-toolkit also for GTK. Internally GTK does not use Xt so it
5846 is not an X toolkit in that sense (USE_X_TOOLKIT is not defined).
5847 But for a user it is a toolkit for X, and indeed, configure
5848 accepts --with-x-toolkit=gtk. */
5849 Fprovide (intern ("x-toolkit"), Qnil
);
5850 Fprovide (intern ("gtk"), Qnil
);
5852 DEFVAR_LISP ("gtk-version-string", &Vgtk_version_string
,
5853 doc
: /* Version info for GTK+. */);
5855 char gtk_version
[40];
5856 g_snprintf (gtk_version
, sizeof (gtk_version
), "%u.%u.%u",
5857 GTK_MAJOR_VERSION
, GTK_MINOR_VERSION
, GTK_MICRO_VERSION
);
5858 Vgtk_version_string
= build_string (gtk_version
);
5860 #endif /* USE_GTK */
5862 /* X window properties. */
5863 defsubr (&Sx_change_window_property
);
5864 defsubr (&Sx_delete_window_property
);
5865 defsubr (&Sx_window_property
);
5867 defsubr (&Sxw_display_color_p
);
5868 defsubr (&Sx_display_grayscale_p
);
5869 defsubr (&Sxw_color_defined_p
);
5870 defsubr (&Sxw_color_values
);
5871 defsubr (&Sx_server_max_request_size
);
5872 defsubr (&Sx_server_vendor
);
5873 defsubr (&Sx_server_version
);
5874 defsubr (&Sx_display_pixel_width
);
5875 defsubr (&Sx_display_pixel_height
);
5876 defsubr (&Sx_display_mm_width
);
5877 defsubr (&Sx_display_mm_height
);
5878 defsubr (&Sx_display_screens
);
5879 defsubr (&Sx_display_planes
);
5880 defsubr (&Sx_display_color_cells
);
5881 defsubr (&Sx_display_visual_class
);
5882 defsubr (&Sx_display_backing_store
);
5883 defsubr (&Sx_display_save_under
);
5884 defsubr (&Sx_create_frame
);
5885 defsubr (&Sx_open_connection
);
5886 defsubr (&Sx_close_connection
);
5887 defsubr (&Sx_display_list
);
5888 defsubr (&Sx_synchronize
);
5889 defsubr (&Sx_focus_frame
);
5890 defsubr (&Sx_backspace_delete_keys_p
);
5892 /* Setting callback functions for fontset handler. */
5893 get_font_info_func
= x_get_font_info
;
5895 #if 0 /* This function pointer doesn't seem to be used anywhere.
5896 And the pointer assigned has the wrong type, anyway. */
5897 list_fonts_func
= x_list_fonts
;
5900 load_font_func
= x_load_font
;
5901 find_ccl_program_func
= x_find_ccl_program
;
5902 query_font_func
= x_query_font
;
5903 set_frame_fontset_func
= x_set_font
;
5904 check_window_system_func
= check_x
;
5906 hourglass_atimer
= NULL
;
5907 hourglass_shown_p
= 0;
5909 defsubr (&Sx_show_tip
);
5910 defsubr (&Sx_hide_tip
);
5912 staticpro (&tip_timer
);
5914 staticpro (&tip_frame
);
5916 last_show_tip_args
= Qnil
;
5917 staticpro (&last_show_tip_args
);
5919 defsubr (&Sx_uses_old_gtk_dialog
);
5920 #if defined (USE_MOTIF) || defined (USE_GTK)
5921 defsubr (&Sx_file_dialog
);
5925 #endif /* HAVE_X_WINDOWS */
5927 /* arch-tag: 55040d02-5485-4d58-8b22-95a7a05f3288
5928 (do not change this comment) */