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"
54 #include <sys/types.h>
58 #if 1 /* Used to be #ifdef EMACS_BITMAP_FILES, but this should always work. */
59 #include "bitmaps/gray.xbm"
61 #include <X11/bitmaps/gray>
64 #include "[.bitmaps]gray.xbm"
72 #include <X11/Shell.h>
75 #include <X11/Xaw/Paned.h>
76 #include <X11/Xaw/Label.h>
77 #endif /* USE_MOTIF */
80 #undef USG /* ####KLUDGE for Solaris 2.2 and up */
89 #include "../lwlib/lwlib.h"
93 #include <Xm/DialogS.h>
94 #include <Xm/FileSB.h>
97 /* Do the EDITRES protocol if running X11R5
98 Exception: HP-UX (at least version A.09.05) has X11R5 without EditRes */
100 #if (XtSpecificationRelease >= 5) && !defined(NO_EDITRES)
102 extern void _XEditResCheckMessages ();
103 #endif /* R5 + Athena */
105 /* Unique id counter for widgets created by the Lucid Widget Library. */
107 extern LWLIB_ID widget_id_tick
;
110 /* This is part of a kludge--see lwlib/xlwmenu.c. */
111 extern XFontStruct
*xlwmenu_default_font
;
114 extern void free_frame_menubar ();
115 extern double atof ();
119 /* LessTif/Motif version info. */
121 static Lisp_Object Vmotif_version_string
;
123 #endif /* USE_MOTIF */
125 #endif /* USE_X_TOOLKIT */
129 /* GTK+ version info */
131 static Lisp_Object Vgtk_version_string
;
136 #define MAXREQUEST(dpy) (XMaxRequestSize (dpy))
138 #define MAXREQUEST(dpy) ((dpy)->max_request_size)
141 /* The gray bitmap `bitmaps/gray'. This is done because xterm.c uses
142 it, and including `bitmaps/gray' more than once is a problem when
143 config.h defines `static' as an empty replacement string. */
145 int gray_bitmap_width
= gray_width
;
146 int gray_bitmap_height
= gray_height
;
147 char *gray_bitmap_bits
= gray_bits
;
149 /* Non-zero means we're allowed to display an hourglass cursor. */
151 int display_hourglass_p
;
153 /* Non-zero means prompt with the old GTK file selection dialog. */
155 int x_gtk_use_old_file_dialog
;
157 /* If non-zero, by default show hidden files in the GTK file chooser. */
159 int x_gtk_show_hidden_files
;
161 /* If non-zero, don't show additional help text in the GTK file chooser. */
163 int x_gtk_file_dialog_help_text
;
165 /* If non-zero, don't collapse to tool bar when it is detached. */
167 int x_gtk_whole_detached_tool_bar
;
169 /* The background and shape of the mouse pointer, and shape when not
170 over text or in the modeline. */
172 Lisp_Object Vx_pointer_shape
, Vx_nontext_pointer_shape
, Vx_mode_pointer_shape
;
173 Lisp_Object Vx_hourglass_pointer_shape
;
175 /* The shape when over mouse-sensitive text. */
177 Lisp_Object Vx_sensitive_text_pointer_shape
;
179 /* If non-nil, the pointer shape to indicate that windows can be
180 dragged horizontally. */
182 Lisp_Object Vx_window_horizontal_drag_shape
;
184 /* Color of chars displayed in cursor box. */
186 Lisp_Object Vx_cursor_fore_pixel
;
188 /* Nonzero if using X. */
192 /* Non nil if no window manager is in use. */
194 Lisp_Object Vx_no_window_manager
;
196 /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'. */
198 Lisp_Object Vx_pixel_size_width_font_regexp
;
201 Lisp_Object Qsuppress_icon
;
202 Lisp_Object Qundefined_color
;
203 Lisp_Object Qcompound_text
, Qcancel_timer
;
207 extern Lisp_Object Vwindow_system_version
;
209 /* The below are defined in frame.c. */
212 int image_cache_refcount
, dpyinfo_refcount
;
217 /* Error if we are not connected to X. */
223 error ("X windows are not in use or not initialized");
226 /* Nonzero if we can use mouse menus.
227 You should not call this unless HAVE_MENUS is defined. */
235 /* Extract a frame as a FRAME_PTR, defaulting to the selected frame
236 and checking validity for X. */
239 check_x_frame (frame
)
245 frame
= selected_frame
;
246 CHECK_LIVE_FRAME (frame
);
249 error ("Non-X frame used");
253 /* Let the user specify an X display with a frame.
254 nil stands for the selected frame--or, if that is not an X frame,
255 the first X display on the list. */
257 struct x_display_info
*
258 check_x_display_info (frame
)
261 struct x_display_info
*dpyinfo
= NULL
;
265 struct frame
*sf
= XFRAME (selected_frame
);
267 if (FRAME_X_P (sf
) && FRAME_LIVE_P (sf
))
268 dpyinfo
= FRAME_X_DISPLAY_INFO (sf
);
269 else if (x_display_list
!= 0)
270 dpyinfo
= x_display_list
;
272 error ("X windows are not in use or not initialized");
274 else if (STRINGP (frame
))
275 dpyinfo
= x_display_info_for_name (frame
);
278 FRAME_PTR f
= check_x_frame (frame
);
279 dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
286 /* Return the Emacs frame-object corresponding to an X window.
287 It could be the frame's main window or an icon window. */
289 /* This function can be called during GC, so use GC_xxx type test macros. */
292 x_window_to_frame (dpyinfo
, wdesc
)
293 struct x_display_info
*dpyinfo
;
296 Lisp_Object tail
, frame
;
299 if (wdesc
== None
) return 0;
301 for (tail
= Vframe_list
; GC_CONSP (tail
); tail
= XCDR (tail
))
304 if (!GC_FRAMEP (frame
))
307 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
309 if (f
->output_data
.x
->hourglass_window
== wdesc
)
312 if ((f
->output_data
.x
->edit_widget
313 && XtWindow (f
->output_data
.x
->edit_widget
) == wdesc
)
314 /* A tooltip frame? */
315 || (!f
->output_data
.x
->edit_widget
316 && FRAME_X_WINDOW (f
) == wdesc
)
317 || f
->output_data
.x
->icon_desc
== wdesc
)
319 #else /* not USE_X_TOOLKIT */
321 if (f
->output_data
.x
->edit_widget
)
323 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
324 struct x_output
*x
= f
->output_data
.x
;
325 if (gwdesc
!= 0 && gwdesc
== x
->edit_widget
)
329 if (FRAME_X_WINDOW (f
) == wdesc
330 || f
->output_data
.x
->icon_desc
== wdesc
)
332 #endif /* not USE_X_TOOLKIT */
337 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
338 /* Like x_window_to_frame but also compares the window with the widget's
342 x_any_window_to_frame (dpyinfo
, wdesc
)
343 struct x_display_info
*dpyinfo
;
346 Lisp_Object tail
, frame
;
347 struct frame
*f
, *found
;
350 if (wdesc
== None
) return NULL
;
353 for (tail
= Vframe_list
; GC_CONSP (tail
) && !found
; tail
= XCDR (tail
))
356 if (!GC_FRAMEP (frame
))
360 if (FRAME_X_P (f
) && FRAME_X_DISPLAY_INFO (f
) == dpyinfo
)
362 /* This frame matches if the window is any of its widgets. */
363 x
= f
->output_data
.x
;
364 if (x
->hourglass_window
== wdesc
)
369 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
371 && (gwdesc
== x
->widget
372 || gwdesc
== x
->edit_widget
373 || gwdesc
== x
->vbox_widget
374 || gwdesc
== x
->menubar_widget
))
377 if (wdesc
== XtWindow (x
->widget
)
378 || wdesc
== XtWindow (x
->column_widget
)
379 || wdesc
== XtWindow (x
->edit_widget
))
381 /* Match if the window is this frame's menubar. */
382 else if (lw_window_is_in_menubar (wdesc
, x
->menubar_widget
))
386 else if (FRAME_X_WINDOW (f
) == wdesc
)
387 /* A tooltip frame. */
395 /* Likewise, but exclude the menu bar widget. */
398 x_non_menubar_window_to_frame (dpyinfo
, wdesc
)
399 struct x_display_info
*dpyinfo
;
402 Lisp_Object tail
, frame
;
406 if (wdesc
== None
) return 0;
408 for (tail
= Vframe_list
; GC_CONSP (tail
); tail
= XCDR (tail
))
411 if (!GC_FRAMEP (frame
))
414 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
416 x
= f
->output_data
.x
;
417 /* This frame matches if the window is any of its widgets. */
418 if (x
->hourglass_window
== wdesc
)
423 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
425 && (gwdesc
== x
->widget
426 || gwdesc
== x
->edit_widget
427 || gwdesc
== x
->vbox_widget
))
430 if (wdesc
== XtWindow (x
->widget
)
431 || wdesc
== XtWindow (x
->column_widget
)
432 || wdesc
== XtWindow (x
->edit_widget
))
436 else if (FRAME_X_WINDOW (f
) == wdesc
)
437 /* A tooltip frame. */
443 /* Likewise, but consider only the menu bar widget. */
446 x_menubar_window_to_frame (dpyinfo
, wdesc
)
447 struct x_display_info
*dpyinfo
;
450 Lisp_Object tail
, frame
;
454 if (wdesc
== None
) return 0;
456 for (tail
= Vframe_list
; GC_CONSP (tail
); tail
= XCDR (tail
))
459 if (!GC_FRAMEP (frame
))
462 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
464 x
= f
->output_data
.x
;
465 /* Match if the window is this frame's menubar. */
467 if (x
->menubar_widget
)
469 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
474 && (gwdesc
== x
->menubar_widget
475 || gtk_widget_get_parent (gwdesc
) == x
->menubar_widget
))
481 if (x
->menubar_widget
482 && lw_window_is_in_menubar (wdesc
, x
->menubar_widget
))
489 /* Return the frame whose principal (outermost) window is WDESC.
490 If WDESC is some other (smaller) window, we return 0. */
493 x_top_window_to_frame (dpyinfo
, wdesc
)
494 struct x_display_info
*dpyinfo
;
497 Lisp_Object tail
, frame
;
501 if (wdesc
== None
) return 0;
503 for (tail
= Vframe_list
; GC_CONSP (tail
); tail
= XCDR (tail
))
506 if (!GC_FRAMEP (frame
))
509 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
511 x
= f
->output_data
.x
;
515 /* This frame matches if the window is its topmost widget. */
517 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
518 if (gwdesc
== x
->widget
)
521 if (wdesc
== XtWindow (x
->widget
))
523 #if 0 /* I don't know why it did this,
524 but it seems logically wrong,
525 and it causes trouble for MapNotify events. */
526 /* Match if the window is this frame's menubar. */
527 if (x
->menubar_widget
528 && wdesc
== XtWindow (x
->menubar_widget
))
533 else if (FRAME_X_WINDOW (f
) == wdesc
)
539 #endif /* USE_X_TOOLKIT || USE_GTK */
543 static Lisp_Object unwind_create_frame
P_ ((Lisp_Object
));
544 static Lisp_Object unwind_create_tip_frame
P_ ((Lisp_Object
));
546 void x_set_foreground_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
547 static void x_set_wait_for_wm
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
548 void x_set_background_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
549 void x_set_mouse_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
550 void x_set_cursor_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
551 void x_set_border_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
552 void x_set_cursor_type
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
553 void x_set_icon_type
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
554 void x_set_icon_name
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
555 void x_explicitly_set_name
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
556 void x_set_menu_bar_lines
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
557 void x_set_title
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
558 void x_set_tool_bar_lines
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
559 void x_set_scroll_bar_foreground
P_ ((struct frame
*, Lisp_Object
,
561 void x_set_scroll_bar_background
P_ ((struct frame
*, Lisp_Object
,
563 static Lisp_Object x_default_scroll_bar_color_parameter
P_ ((struct frame
*,
570 /* Store the screen positions of frame F into XPTR and YPTR.
571 These are the positions of the containing window manager window,
572 not Emacs's own window. */
575 x_real_positions (f
, xptr
, yptr
)
579 int win_x
, win_y
, outer_x
, outer_y
;
580 int real_x
= 0, real_y
= 0;
582 Window win
= f
->output_data
.x
->parent_desc
;
586 x_catch_errors (FRAME_X_DISPLAY (f
));
588 if (win
== FRAME_X_DISPLAY_INFO (f
)->root_window
)
589 win
= FRAME_OUTER_WINDOW (f
);
591 /* This loop traverses up the containment tree until we hit the root
592 window. Window managers may intersect many windows between our window
593 and the root window. The window we find just before the root window
594 should be the outer WM window. */
597 Window wm_window
, rootw
;
598 Window
*tmp_children
;
599 unsigned int tmp_nchildren
;
602 success
= XQueryTree (FRAME_X_DISPLAY (f
), win
, &rootw
,
603 &wm_window
, &tmp_children
, &tmp_nchildren
);
605 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
607 /* Don't free tmp_children if XQueryTree failed. */
611 XFree ((char *) tmp_children
);
613 if (wm_window
== rootw
|| had_errors
)
624 /* Get the real coordinates for the WM window upper left corner */
625 XGetGeometry (FRAME_X_DISPLAY (f
), win
,
626 &rootw
, &real_x
, &real_y
, &ign
, &ign
, &ign
, &ign
);
628 /* Translate real coordinates to coordinates relative to our
629 window. For our window, the upper left corner is 0, 0.
630 Since the upper left corner of the WM window is outside
631 our window, win_x and win_y will be negative:
633 ------------------ ---> x
635 | ----------------- v y
638 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
640 /* From-window, to-window. */
641 FRAME_X_DISPLAY_INFO (f
)->root_window
,
644 /* From-position, to-position. */
645 real_x
, real_y
, &win_x
, &win_y
,
650 if (FRAME_X_WINDOW (f
) == FRAME_OUTER_WINDOW (f
))
657 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
659 /* From-window, to-window. */
660 FRAME_X_DISPLAY_INFO (f
)->root_window
,
661 FRAME_OUTER_WINDOW (f
),
663 /* From-position, to-position. */
664 real_x
, real_y
, &outer_x
, &outer_y
,
670 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
677 if (had_errors
) return;
679 f
->x_pixels_diff
= -win_x
;
680 f
->y_pixels_diff
= -win_y
;
682 FRAME_X_OUTPUT (f
)->x_pixels_outer_diff
= -outer_x
;
683 FRAME_X_OUTPUT (f
)->y_pixels_outer_diff
= -outer_y
;
692 /* Gamma-correct COLOR on frame F. */
695 gamma_correct (f
, color
)
701 color
->red
= pow (color
->red
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
702 color
->green
= pow (color
->green
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
703 color
->blue
= pow (color
->blue
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
708 /* Decide if color named COLOR_NAME is valid for use on frame F. If
709 so, return the RGB values in COLOR. If ALLOC_P is non-zero,
710 allocate the color. Value is zero if COLOR_NAME is invalid, or
711 no color could be allocated. */
714 x_defined_color (f
, color_name
, color
, alloc_p
)
721 Display
*dpy
= FRAME_X_DISPLAY (f
);
722 Colormap cmap
= FRAME_X_COLORMAP (f
);
725 success_p
= XParseColor (dpy
, cmap
, color_name
, color
);
726 if (success_p
&& alloc_p
)
727 success_p
= x_alloc_nearest_color (f
, cmap
, color
);
734 /* Return the pixel color value for color COLOR_NAME on frame F. If F
735 is a monochrome frame, return MONO_COLOR regardless of what ARG says.
736 Signal an error if color can't be allocated. */
739 x_decode_color (f
, color_name
, mono_color
)
741 Lisp_Object color_name
;
746 CHECK_STRING (color_name
);
748 #if 0 /* Don't do this. It's wrong when we're not using the default
749 colormap, it makes freeing difficult, and it's probably not
750 an important optimization. */
751 if (strcmp (SDATA (color_name
), "black") == 0)
752 return BLACK_PIX_DEFAULT (f
);
753 else if (strcmp (SDATA (color_name
), "white") == 0)
754 return WHITE_PIX_DEFAULT (f
);
757 /* Return MONO_COLOR for monochrome frames. */
758 if (FRAME_X_DISPLAY_INFO (f
)->n_planes
== 1)
761 /* x_defined_color is responsible for coping with failures
762 by looking for a near-miss. */
763 if (x_defined_color (f
, SDATA (color_name
), &cdef
, 1))
766 signal_error ("Undefined color", color_name
);
771 /* Change the `wait-for-wm' frame parameter of frame F. OLD_VALUE is
772 the previous value of that parameter, NEW_VALUE is the new value.
773 See also the comment of wait_for_wm in struct x_output. */
776 x_set_wait_for_wm (f
, new_value
, old_value
)
778 Lisp_Object new_value
, old_value
;
780 f
->output_data
.x
->wait_for_wm
= !NILP (new_value
);
785 /* Set icon from FILE for frame F. By using GTK functions the icon
786 may be any format that GdkPixbuf knows about, i.e. not just bitmaps. */
789 xg_set_icon (f
, file
)
796 found
= x_find_image_file (file
);
802 char *filename
= (char *) SDATA (found
);
805 pixbuf
= gdk_pixbuf_new_from_file (filename
, &err
);
809 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
811 g_object_unref (pixbuf
);
825 xg_set_icon_from_xpm_data (f
, data
)
830 GdkPixbuf
*pixbuf
= gdk_pixbuf_new_from_xpm_data ((const char **) data
);
835 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)), pixbuf
);
836 g_object_unref (pixbuf
);
842 /* Functions called only from `x_set_frame_param'
843 to set individual parameters.
845 If FRAME_X_WINDOW (f) is 0,
846 the frame is being created and its X-window does not exist yet.
847 In that case, just record the parameter's new value
848 in the standard place; do not attempt to change the window. */
851 x_set_foreground_color (f
, arg
, oldval
)
853 Lisp_Object arg
, oldval
;
855 struct x_output
*x
= f
->output_data
.x
;
856 unsigned long fg
, old_fg
;
858 fg
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
859 old_fg
= x
->foreground_pixel
;
860 x
->foreground_pixel
= fg
;
862 if (FRAME_X_WINDOW (f
) != 0)
864 Display
*dpy
= FRAME_X_DISPLAY (f
);
867 XSetForeground (dpy
, x
->normal_gc
, fg
);
868 XSetBackground (dpy
, x
->reverse_gc
, fg
);
870 if (x
->cursor_pixel
== old_fg
)
872 unload_color (f
, x
->cursor_pixel
);
873 x
->cursor_pixel
= x_copy_color (f
, fg
);
874 XSetBackground (dpy
, x
->cursor_gc
, x
->cursor_pixel
);
879 update_face_from_frame_parameter (f
, Qforeground_color
, arg
);
881 if (FRAME_VISIBLE_P (f
))
885 unload_color (f
, old_fg
);
889 x_set_background_color (f
, arg
, oldval
)
891 Lisp_Object arg
, oldval
;
893 struct x_output
*x
= f
->output_data
.x
;
896 bg
= x_decode_color (f
, arg
, WHITE_PIX_DEFAULT (f
));
897 unload_color (f
, x
->background_pixel
);
898 x
->background_pixel
= bg
;
900 if (FRAME_X_WINDOW (f
) != 0)
902 Display
*dpy
= FRAME_X_DISPLAY (f
);
905 XSetBackground (dpy
, x
->normal_gc
, bg
);
906 XSetForeground (dpy
, x
->reverse_gc
, bg
);
907 XSetWindowBackground (dpy
, FRAME_X_WINDOW (f
), bg
);
908 XSetForeground (dpy
, x
->cursor_gc
, bg
);
911 xg_set_background_color (f
, bg
);
914 #ifndef USE_TOOLKIT_SCROLL_BARS /* Turns out to be annoying with
915 toolkit scroll bars. */
918 for (bar
= FRAME_SCROLL_BARS (f
);
920 bar
= XSCROLL_BAR (bar
)->next
)
922 Window window
= SCROLL_BAR_X_WINDOW (XSCROLL_BAR (bar
));
923 XSetWindowBackground (dpy
, window
, bg
);
926 #endif /* USE_TOOLKIT_SCROLL_BARS */
929 update_face_from_frame_parameter (f
, Qbackground_color
, arg
);
931 if (FRAME_VISIBLE_P (f
))
937 x_set_mouse_color (f
, arg
, oldval
)
939 Lisp_Object arg
, oldval
;
941 struct x_output
*x
= f
->output_data
.x
;
942 Display
*dpy
= FRAME_X_DISPLAY (f
);
943 Cursor cursor
, nontext_cursor
, mode_cursor
, hand_cursor
;
944 Cursor hourglass_cursor
, horizontal_drag_cursor
;
945 unsigned long pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
946 unsigned long mask_color
= x
->background_pixel
;
948 /* Don't let pointers be invisible. */
949 if (mask_color
== pixel
)
951 x_free_colors (f
, &pixel
, 1);
952 pixel
= x_copy_color (f
, x
->foreground_pixel
);
955 unload_color (f
, x
->mouse_pixel
);
956 x
->mouse_pixel
= pixel
;
960 /* It's not okay to crash if the user selects a screwy cursor. */
961 x_catch_errors (dpy
);
963 if (!NILP (Vx_pointer_shape
))
965 CHECK_NUMBER (Vx_pointer_shape
);
966 cursor
= XCreateFontCursor (dpy
, XINT (Vx_pointer_shape
));
969 cursor
= XCreateFontCursor (dpy
, XC_xterm
);
970 x_check_errors (dpy
, "bad text pointer cursor: %s");
972 if (!NILP (Vx_nontext_pointer_shape
))
974 CHECK_NUMBER (Vx_nontext_pointer_shape
);
976 = XCreateFontCursor (dpy
, XINT (Vx_nontext_pointer_shape
));
979 nontext_cursor
= XCreateFontCursor (dpy
, XC_left_ptr
);
980 x_check_errors (dpy
, "bad nontext pointer cursor: %s");
982 if (!NILP (Vx_hourglass_pointer_shape
))
984 CHECK_NUMBER (Vx_hourglass_pointer_shape
);
986 = XCreateFontCursor (dpy
, XINT (Vx_hourglass_pointer_shape
));
989 hourglass_cursor
= XCreateFontCursor (dpy
, XC_watch
);
990 x_check_errors (dpy
, "bad hourglass pointer cursor: %s");
992 if (!NILP (Vx_mode_pointer_shape
))
994 CHECK_NUMBER (Vx_mode_pointer_shape
);
995 mode_cursor
= XCreateFontCursor (dpy
, XINT (Vx_mode_pointer_shape
));
998 mode_cursor
= XCreateFontCursor (dpy
, XC_xterm
);
999 x_check_errors (dpy
, "bad modeline pointer cursor: %s");
1001 if (!NILP (Vx_sensitive_text_pointer_shape
))
1003 CHECK_NUMBER (Vx_sensitive_text_pointer_shape
);
1005 = XCreateFontCursor (dpy
, XINT (Vx_sensitive_text_pointer_shape
));
1008 hand_cursor
= XCreateFontCursor (dpy
, XC_hand2
);
1010 if (!NILP (Vx_window_horizontal_drag_shape
))
1012 CHECK_NUMBER (Vx_window_horizontal_drag_shape
);
1013 horizontal_drag_cursor
1014 = XCreateFontCursor (dpy
, XINT (Vx_window_horizontal_drag_shape
));
1017 horizontal_drag_cursor
1018 = XCreateFontCursor (dpy
, XC_sb_h_double_arrow
);
1020 /* Check and report errors with the above calls. */
1021 x_check_errors (dpy
, "can't set cursor shape: %s");
1022 x_uncatch_errors ();
1025 XColor fore_color
, back_color
;
1027 fore_color
.pixel
= x
->mouse_pixel
;
1028 x_query_color (f
, &fore_color
);
1029 back_color
.pixel
= mask_color
;
1030 x_query_color (f
, &back_color
);
1032 XRecolorCursor (dpy
, cursor
, &fore_color
, &back_color
);
1033 XRecolorCursor (dpy
, nontext_cursor
, &fore_color
, &back_color
);
1034 XRecolorCursor (dpy
, mode_cursor
, &fore_color
, &back_color
);
1035 XRecolorCursor (dpy
, hand_cursor
, &fore_color
, &back_color
);
1036 XRecolorCursor (dpy
, hourglass_cursor
, &fore_color
, &back_color
);
1037 XRecolorCursor (dpy
, horizontal_drag_cursor
, &fore_color
, &back_color
);
1040 if (FRAME_X_WINDOW (f
) != 0)
1041 XDefineCursor (dpy
, FRAME_X_WINDOW (f
), cursor
);
1043 if (cursor
!= x
->text_cursor
1044 && x
->text_cursor
!= 0)
1045 XFreeCursor (dpy
, x
->text_cursor
);
1046 x
->text_cursor
= cursor
;
1048 if (nontext_cursor
!= x
->nontext_cursor
1049 && x
->nontext_cursor
!= 0)
1050 XFreeCursor (dpy
, x
->nontext_cursor
);
1051 x
->nontext_cursor
= nontext_cursor
;
1053 if (hourglass_cursor
!= x
->hourglass_cursor
1054 && x
->hourglass_cursor
!= 0)
1055 XFreeCursor (dpy
, x
->hourglass_cursor
);
1056 x
->hourglass_cursor
= hourglass_cursor
;
1058 if (mode_cursor
!= x
->modeline_cursor
1059 && x
->modeline_cursor
!= 0)
1060 XFreeCursor (dpy
, f
->output_data
.x
->modeline_cursor
);
1061 x
->modeline_cursor
= mode_cursor
;
1063 if (hand_cursor
!= x
->hand_cursor
1064 && x
->hand_cursor
!= 0)
1065 XFreeCursor (dpy
, x
->hand_cursor
);
1066 x
->hand_cursor
= hand_cursor
;
1068 if (horizontal_drag_cursor
!= x
->horizontal_drag_cursor
1069 && x
->horizontal_drag_cursor
!= 0)
1070 XFreeCursor (dpy
, x
->horizontal_drag_cursor
);
1071 x
->horizontal_drag_cursor
= horizontal_drag_cursor
;
1076 update_face_from_frame_parameter (f
, Qmouse_color
, arg
);
1080 x_set_cursor_color (f
, arg
, oldval
)
1082 Lisp_Object arg
, oldval
;
1084 unsigned long fore_pixel
, pixel
;
1085 int fore_pixel_allocated_p
= 0, pixel_allocated_p
= 0;
1086 struct x_output
*x
= f
->output_data
.x
;
1088 if (!NILP (Vx_cursor_fore_pixel
))
1090 fore_pixel
= x_decode_color (f
, Vx_cursor_fore_pixel
,
1091 WHITE_PIX_DEFAULT (f
));
1092 fore_pixel_allocated_p
= 1;
1095 fore_pixel
= x
->background_pixel
;
1097 pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1098 pixel_allocated_p
= 1;
1100 /* Make sure that the cursor color differs from the background color. */
1101 if (pixel
== x
->background_pixel
)
1103 if (pixel_allocated_p
)
1105 x_free_colors (f
, &pixel
, 1);
1106 pixel_allocated_p
= 0;
1109 pixel
= x
->mouse_pixel
;
1110 if (pixel
== fore_pixel
)
1112 if (fore_pixel_allocated_p
)
1114 x_free_colors (f
, &fore_pixel
, 1);
1115 fore_pixel_allocated_p
= 0;
1117 fore_pixel
= x
->background_pixel
;
1121 unload_color (f
, x
->cursor_foreground_pixel
);
1122 if (!fore_pixel_allocated_p
)
1123 fore_pixel
= x_copy_color (f
, fore_pixel
);
1124 x
->cursor_foreground_pixel
= fore_pixel
;
1126 unload_color (f
, x
->cursor_pixel
);
1127 if (!pixel_allocated_p
)
1128 pixel
= x_copy_color (f
, pixel
);
1129 x
->cursor_pixel
= pixel
;
1131 if (FRAME_X_WINDOW (f
) != 0)
1134 XSetBackground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, x
->cursor_pixel
);
1135 XSetForeground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, fore_pixel
);
1138 if (FRAME_VISIBLE_P (f
))
1140 x_update_cursor (f
, 0);
1141 x_update_cursor (f
, 1);
1145 update_face_from_frame_parameter (f
, Qcursor_color
, arg
);
1148 /* Set the border-color of frame F to pixel value PIX.
1149 Note that this does not fully take effect if done before
1150 F has an x-window. */
1153 x_set_border_pixel (f
, pix
)
1157 unload_color (f
, f
->output_data
.x
->border_pixel
);
1158 f
->output_data
.x
->border_pixel
= pix
;
1160 if (FRAME_X_WINDOW (f
) != 0 && f
->border_width
> 0)
1163 XSetWindowBorder (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1164 (unsigned long)pix
);
1167 if (FRAME_VISIBLE_P (f
))
1172 /* Set the border-color of frame F to value described by ARG.
1173 ARG can be a string naming a color.
1174 The border-color is used for the border that is drawn by the X server.
1175 Note that this does not fully take effect if done before
1176 F has an x-window; it must be redone when the window is created.
1178 Note: this is done in two routines because of the way X10 works.
1180 Note: under X11, this is normally the province of the window manager,
1181 and so emacs' border colors may be overridden. */
1184 x_set_border_color (f
, arg
, oldval
)
1186 Lisp_Object arg
, oldval
;
1191 pix
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1192 x_set_border_pixel (f
, pix
);
1193 update_face_from_frame_parameter (f
, Qborder_color
, arg
);
1198 x_set_cursor_type (f
, arg
, oldval
)
1200 Lisp_Object arg
, oldval
;
1202 set_frame_cursor_types (f
, arg
);
1204 /* Make sure the cursor gets redrawn. */
1205 cursor_type_changed
= 1;
1209 x_set_icon_type (f
, arg
, oldval
)
1211 Lisp_Object arg
, oldval
;
1217 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1220 else if (!STRINGP (oldval
) && EQ (oldval
, Qnil
) == EQ (arg
, Qnil
))
1225 result
= x_text_icon (f
,
1226 (char *) SDATA ((!NILP (f
->icon_name
)
1230 result
= x_bitmap_icon (f
, arg
);
1235 error ("No icon window available");
1238 XFlush (FRAME_X_DISPLAY (f
));
1243 x_set_icon_name (f
, arg
, oldval
)
1245 Lisp_Object arg
, oldval
;
1251 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1254 else if (!NILP (arg
) || NILP (oldval
))
1259 if (f
->output_data
.x
->icon_bitmap
!= 0)
1264 result
= x_text_icon (f
,
1265 (char *) SDATA ((!NILP (f
->icon_name
)
1274 error ("No icon window available");
1277 XFlush (FRAME_X_DISPLAY (f
));
1283 x_set_menu_bar_lines (f
, value
, oldval
)
1285 Lisp_Object value
, oldval
;
1288 #if ! defined (USE_X_TOOLKIT) && ! defined (USE_GTK)
1289 int olines
= FRAME_MENU_BAR_LINES (f
);
1292 /* Right now, menu bars don't work properly in minibuf-only frames;
1293 most of the commands try to apply themselves to the minibuffer
1294 frame itself, and get an error because you can't switch buffers
1295 in or split the minibuffer window. */
1296 if (FRAME_MINIBUF_ONLY_P (f
))
1299 if (INTEGERP (value
))
1300 nlines
= XINT (value
);
1304 /* Make sure we redisplay all windows in this frame. */
1305 windows_or_buffers_changed
++;
1307 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
1308 FRAME_MENU_BAR_LINES (f
) = 0;
1311 FRAME_EXTERNAL_MENU_BAR (f
) = 1;
1312 if (FRAME_X_P (f
) && f
->output_data
.x
->menubar_widget
== 0)
1313 /* Make sure next redisplay shows the menu bar. */
1314 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= Qt
;
1318 if (FRAME_EXTERNAL_MENU_BAR (f
) == 1)
1319 free_frame_menubar (f
);
1320 FRAME_EXTERNAL_MENU_BAR (f
) = 0;
1322 f
->output_data
.x
->menubar_widget
= 0;
1324 #else /* not USE_X_TOOLKIT && not USE_GTK */
1325 FRAME_MENU_BAR_LINES (f
) = nlines
;
1326 change_window_heights (f
->root_window
, nlines
- olines
);
1327 #endif /* not USE_X_TOOLKIT */
1332 /* Set the number of lines used for the tool bar of frame F to VALUE.
1333 VALUE not an integer, or < 0 means set the lines to zero. OLDVAL
1334 is the old number of tool bar lines. This function changes the
1335 height of all windows on frame F to match the new tool bar height.
1336 The frame's height doesn't change. */
1339 x_set_tool_bar_lines (f
, value
, oldval
)
1341 Lisp_Object value
, oldval
;
1343 int delta
, nlines
, root_height
;
1344 Lisp_Object root_window
;
1346 /* Treat tool bars like menu bars. */
1347 if (FRAME_MINIBUF_ONLY_P (f
))
1350 /* Use VALUE only if an integer >= 0. */
1351 if (INTEGERP (value
) && XINT (value
) >= 0)
1352 nlines
= XFASTINT (value
);
1357 FRAME_TOOL_BAR_LINES (f
) = 0;
1360 FRAME_EXTERNAL_TOOL_BAR (f
) = 1;
1361 if (FRAME_X_P (f
) && f
->output_data
.x
->toolbar_widget
== 0)
1362 /* Make sure next redisplay shows the tool bar. */
1363 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= Qt
;
1364 update_frame_tool_bar (f
);
1368 if (FRAME_EXTERNAL_TOOL_BAR (f
))
1369 free_frame_tool_bar (f
);
1370 FRAME_EXTERNAL_TOOL_BAR (f
) = 0;
1376 /* Make sure we redisplay all windows in this frame. */
1377 ++windows_or_buffers_changed
;
1379 delta
= nlines
- FRAME_TOOL_BAR_LINES (f
);
1381 /* Don't resize the tool-bar to more than we have room for. */
1382 root_window
= FRAME_ROOT_WINDOW (f
);
1383 root_height
= WINDOW_TOTAL_LINES (XWINDOW (root_window
));
1384 if (root_height
- delta
< 1)
1386 delta
= root_height
- 1;
1387 nlines
= FRAME_TOOL_BAR_LINES (f
) + delta
;
1390 FRAME_TOOL_BAR_LINES (f
) = nlines
;
1391 change_window_heights (root_window
, delta
);
1394 /* We also have to make sure that the internal border at the top of
1395 the frame, below the menu bar or tool bar, is redrawn when the
1396 tool bar disappears. This is so because the internal border is
1397 below the tool bar if one is displayed, but is below the menu bar
1398 if there isn't a tool bar. The tool bar draws into the area
1399 below the menu bar. */
1400 if (FRAME_X_WINDOW (f
) && FRAME_TOOL_BAR_LINES (f
) == 0)
1404 clear_current_matrices (f
);
1405 updating_frame
= NULL
;
1408 /* If the tool bar gets smaller, the internal border below it
1409 has to be cleared. It was formerly part of the display
1410 of the larger tool bar, and updating windows won't clear it. */
1413 int height
= FRAME_INTERNAL_BORDER_WIDTH (f
);
1414 int width
= FRAME_PIXEL_WIDTH (f
);
1415 int y
= nlines
* FRAME_LINE_HEIGHT (f
);
1417 /* height can be zero here. */
1418 if (height
> 0 && width
> 0)
1421 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1422 0, y
, width
, height
, False
);
1426 if (WINDOWP (f
->tool_bar_window
))
1427 clear_glyph_matrix (XWINDOW (f
->tool_bar_window
)->current_matrix
);
1432 /* Set the foreground color for scroll bars on frame F to VALUE.
1433 VALUE should be a string, a color name. If it isn't a string or
1434 isn't a valid color name, do nothing. OLDVAL is the old value of
1435 the frame parameter. */
1438 x_set_scroll_bar_foreground (f
, value
, oldval
)
1440 Lisp_Object value
, oldval
;
1442 unsigned long pixel
;
1444 if (STRINGP (value
))
1445 pixel
= x_decode_color (f
, value
, BLACK_PIX_DEFAULT (f
));
1449 if (f
->output_data
.x
->scroll_bar_foreground_pixel
!= -1)
1450 unload_color (f
, f
->output_data
.x
->scroll_bar_foreground_pixel
);
1452 f
->output_data
.x
->scroll_bar_foreground_pixel
= pixel
;
1453 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1455 /* Remove all scroll bars because they have wrong colors. */
1456 if (condemn_scroll_bars_hook
)
1457 (*condemn_scroll_bars_hook
) (f
);
1458 if (judge_scroll_bars_hook
)
1459 (*judge_scroll_bars_hook
) (f
);
1461 update_face_from_frame_parameter (f
, Qscroll_bar_foreground
, value
);
1467 /* Set the background color for scroll bars on frame F to VALUE VALUE
1468 should be a string, a color name. If it isn't a string or isn't a
1469 valid color name, do nothing. OLDVAL is the old value of the frame
1473 x_set_scroll_bar_background (f
, value
, oldval
)
1475 Lisp_Object value
, oldval
;
1477 unsigned long pixel
;
1479 if (STRINGP (value
))
1480 pixel
= x_decode_color (f
, value
, WHITE_PIX_DEFAULT (f
));
1484 if (f
->output_data
.x
->scroll_bar_background_pixel
!= -1)
1485 unload_color (f
, f
->output_data
.x
->scroll_bar_background_pixel
);
1487 #ifdef USE_TOOLKIT_SCROLL_BARS
1488 /* Scrollbar shadow colors. */
1489 if (f
->output_data
.x
->scroll_bar_top_shadow_pixel
!= -1)
1491 unload_color (f
, f
->output_data
.x
->scroll_bar_top_shadow_pixel
);
1492 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
1494 if (f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
!= -1)
1496 unload_color (f
, f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
);
1497 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
1499 #endif /* USE_TOOLKIT_SCROLL_BARS */
1501 f
->output_data
.x
->scroll_bar_background_pixel
= pixel
;
1502 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1504 /* Remove all scroll bars because they have wrong colors. */
1505 if (condemn_scroll_bars_hook
)
1506 (*condemn_scroll_bars_hook
) (f
);
1507 if (judge_scroll_bars_hook
)
1508 (*judge_scroll_bars_hook
) (f
);
1510 update_face_from_frame_parameter (f
, Qscroll_bar_background
, value
);
1516 /* Encode Lisp string STRING as a text in a format appropriate for
1517 XICCC (X Inter Client Communication Conventions).
1519 If STRING contains only ASCII characters, do no conversion and
1520 return the string data of STRING. Otherwise, encode the text by
1521 CODING_SYSTEM, and return a newly allocated memory area which
1522 should be freed by `xfree' by a caller.
1524 SELECTIONP non-zero means the string is being encoded for an X
1525 selection, so it is safe to run pre-write conversions (which
1528 Store the byte length of resulting text in *TEXT_BYTES.
1530 If the text contains only ASCII and Latin-1, store 1 in *STRING_P,
1531 which means that the `encoding' of the result can be `STRING'.
1532 Otherwise store 0 in *STRINGP, which means that the `encoding' of
1533 the result should be `COMPOUND_TEXT'. */
1535 static unsigned char *
1536 x_encode_text (string
, coding_system
, selectionp
, text_bytes
, stringp
, freep
)
1537 Lisp_Object string
, coding_system
;
1538 int *text_bytes
, *stringp
;
1542 unsigned char *str
= SDATA (string
);
1543 int chars
= SCHARS (string
);
1544 int bytes
= SBYTES (string
);
1548 struct coding_system coding
;
1549 extern Lisp_Object Qcompound_text_with_extensions
;
1551 charset_info
= find_charset_in_text (str
, chars
, bytes
, NULL
, Qnil
);
1552 if (charset_info
== 0)
1554 /* No multibyte character in OBJ. We need not encode it. */
1555 *text_bytes
= bytes
;
1561 setup_coding_system (coding_system
, &coding
);
1563 && SYMBOLP (coding
.pre_write_conversion
)
1564 && !NILP (Ffboundp (coding
.pre_write_conversion
)))
1566 string
= run_pre_post_conversion_on_str (string
, &coding
, 1);
1567 str
= SDATA (string
);
1568 chars
= SCHARS (string
);
1569 bytes
= SBYTES (string
);
1571 coding
.src_multibyte
= 1;
1572 coding
.dst_multibyte
= 0;
1573 coding
.mode
|= CODING_MODE_LAST_BLOCK
;
1574 if (coding
.type
== coding_type_iso2022
)
1575 coding
.flags
|= CODING_FLAG_ISO_SAFE
;
1576 /* We suppress producing escape sequences for composition. */
1577 coding
.composing
= COMPOSITION_DISABLED
;
1578 bufsize
= encoding_buffer_size (&coding
, bytes
);
1579 buf
= (unsigned char *) xmalloc (bufsize
);
1580 encode_coding (&coding
, str
, buf
, bytes
, bufsize
);
1581 *text_bytes
= coding
.produced
;
1582 *stringp
= (charset_info
== 1
1583 || (!EQ (coding_system
, Qcompound_text
)
1584 && !EQ (coding_system
, Qcompound_text_with_extensions
)));
1590 /* Set the WM name to NAME for frame F. Also set the icon name.
1591 If the frame already has an icon name, use that, otherwise set the
1592 icon name to NAME. */
1595 x_set_name_internal (f
, name
)
1599 if (FRAME_X_WINDOW (f
))
1604 XTextProperty text
, icon
;
1606 int do_free_icon_value
= 0, do_free_text_value
= 0;
1607 Lisp_Object coding_system
;
1609 coding_system
= Qcompound_text
;
1610 /* Note: Encoding strategy
1612 We encode NAME by compound-text and use "COMPOUND-TEXT" in
1613 text.encoding. But, there are non-internationalized window
1614 managers which don't support that encoding. So, if NAME
1615 contains only ASCII and 8859-1 characters, encode it by
1616 iso-latin-1, and use "STRING" in text.encoding hoping that
1617 such window managers at least analyze this format correctly,
1618 i.e. treat 8-bit bytes as 8859-1 characters.
1620 We may also be able to use "UTF8_STRING" in text.encoding
1621 in the future which can encode all Unicode characters.
1622 But, for the moment, there's no way to know that the
1623 current window manager supports it or not. */
1624 text
.value
= x_encode_text (name
, coding_system
, 0, &bytes
, &stringp
,
1625 &do_free_text_value
);
1626 text
.encoding
= (stringp
? XA_STRING
1627 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1629 text
.nitems
= bytes
;
1631 if (!STRINGP (f
->icon_name
))
1637 /* See the above comment "Note: Encoding strategy". */
1638 icon
.value
= x_encode_text (f
->icon_name
, coding_system
, 0,
1639 &bytes
, &stringp
, &do_free_icon_value
);
1640 icon
.encoding
= (stringp
? XA_STRING
1641 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1643 icon
.nitems
= bytes
;
1647 gtk_window_set_title (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
1648 (char *) SDATA (ENCODE_UTF_8 (name
)));
1649 #else /* not USE_GTK */
1650 XSetWMName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &text
);
1651 #endif /* not USE_GTK */
1653 XSetWMIconName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &icon
);
1655 if (do_free_icon_value
)
1657 if (do_free_text_value
)
1660 #else /* not HAVE_X11R4 */
1661 XSetIconName (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1663 XStoreName (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1665 #endif /* not HAVE_X11R4 */
1670 /* Change the name of frame F to NAME. If NAME is nil, set F's name to
1673 If EXPLICIT is non-zero, that indicates that lisp code is setting the
1674 name; if NAME is a string, set F's name to NAME and set
1675 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1677 If EXPLICIT is zero, that indicates that Emacs redisplay code is
1678 suggesting a new name, which lisp code should override; if
1679 F->explicit_name is set, ignore the new name; otherwise, set it. */
1682 x_set_name (f
, name
, explicit)
1687 /* Make sure that requests from lisp code override requests from
1688 Emacs redisplay code. */
1691 /* If we're switching from explicit to implicit, we had better
1692 update the mode lines and thereby update the title. */
1693 if (f
->explicit_name
&& NILP (name
))
1694 update_mode_lines
= 1;
1696 f
->explicit_name
= ! NILP (name
);
1698 else if (f
->explicit_name
)
1701 /* If NAME is nil, set the name to the x_id_name. */
1704 /* Check for no change needed in this very common case
1705 before we do any consing. */
1706 if (!strcmp (FRAME_X_DISPLAY_INFO (f
)->x_id_name
,
1709 name
= build_string (FRAME_X_DISPLAY_INFO (f
)->x_id_name
);
1712 CHECK_STRING (name
);
1714 /* Don't change the name if it's already NAME. */
1715 if (! NILP (Fstring_equal (name
, f
->name
)))
1720 /* For setting the frame title, the title parameter should override
1721 the name parameter. */
1722 if (! NILP (f
->title
))
1725 x_set_name_internal (f
, name
);
1728 /* This function should be called when the user's lisp code has
1729 specified a name for the frame; the name will override any set by the
1732 x_explicitly_set_name (f
, arg
, oldval
)
1734 Lisp_Object arg
, oldval
;
1736 x_set_name (f
, arg
, 1);
1739 /* This function should be called by Emacs redisplay code to set the
1740 name; names set this way will never override names set by the user's
1743 x_implicitly_set_name (f
, arg
, oldval
)
1745 Lisp_Object arg
, oldval
;
1747 x_set_name (f
, arg
, 0);
1750 /* Change the title of frame F to NAME.
1751 If NAME is nil, use the frame name as the title.
1753 If EXPLICIT is non-zero, that indicates that lisp code is setting the
1754 name; if NAME is a string, set F's name to NAME and set
1755 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1757 If EXPLICIT is zero, that indicates that Emacs redisplay code is
1758 suggesting a new name, which lisp code should override; if
1759 F->explicit_name is set, ignore the new name; otherwise, set it. */
1762 x_set_title (f
, name
, old_name
)
1764 Lisp_Object name
, old_name
;
1766 /* Don't change the title if it's already NAME. */
1767 if (EQ (name
, f
->title
))
1770 update_mode_lines
= 1;
1777 CHECK_STRING (name
);
1779 x_set_name_internal (f
, name
);
1783 x_set_scroll_bar_default_width (f
)
1786 int wid
= FRAME_COLUMN_WIDTH (f
);
1788 #ifdef USE_TOOLKIT_SCROLL_BARS
1789 /* A minimum width of 14 doesn't look good for toolkit scroll bars. */
1790 int width
= 16 + 2 * VERTICAL_SCROLL_BAR_WIDTH_TRIM
;
1791 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (width
+ wid
- 1) / wid
;
1792 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = width
;
1794 /* Make the actual width at least 14 pixels and a multiple of a
1796 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (14 + wid
- 1) / wid
;
1798 /* Use all of that space (aside from required margins) for the
1800 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = 0;
1805 /* Record in frame F the specified or default value according to ALIST
1806 of the parameter named PROP (a Lisp symbol). If no value is
1807 specified for PROP, look for an X default for XPROP on the frame
1808 named NAME. If that is not found either, use the value DEFLT. */
1811 x_default_scroll_bar_color_parameter (f
, alist
, prop
, xprop
, xclass
,
1820 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
1823 tem
= x_get_arg (dpyinfo
, alist
, prop
, xprop
, xclass
, RES_TYPE_STRING
);
1824 if (EQ (tem
, Qunbound
))
1826 #ifdef USE_TOOLKIT_SCROLL_BARS
1828 /* See if an X resource for the scroll bar color has been
1830 tem
= display_x_get_resource (dpyinfo
,
1831 build_string (foreground_p
1835 build_string ("verticalScrollBar"),
1839 /* If nothing has been specified, scroll bars will use a
1840 toolkit-dependent default. Because these defaults are
1841 difficult to get at without actually creating a scroll
1842 bar, use nil to indicate that no color has been
1847 #else /* not USE_TOOLKIT_SCROLL_BARS */
1851 #endif /* not USE_TOOLKIT_SCROLL_BARS */
1854 x_set_frame_parameters (f
, Fcons (Fcons (prop
, tem
), Qnil
));
1860 #if !defined (HAVE_X11R4) && !defined (HAVE_XSETWMPROTOCOLS)
1863 XSetWMProtocols (dpy
, w
, protocols
, count
)
1870 prop
= XInternAtom (dpy
, "WM_PROTOCOLS", False
);
1871 if (prop
== None
) return False
;
1872 XChangeProperty (dpy
, w
, prop
, XA_ATOM
, 32, PropModeReplace
,
1873 (unsigned char *) protocols
, count
);
1876 #endif /* not HAVE_X11R4 && not HAVE_XSETWMPROTOCOLS */
1878 #ifdef USE_X_TOOLKIT
1880 /* If the WM_PROTOCOLS property does not already contain WM_TAKE_FOCUS,
1881 WM_DELETE_WINDOW, and WM_SAVE_YOURSELF, then add them. (They may
1882 already be present because of the toolkit (Motif adds some of them,
1883 for example, but Xt doesn't). */
1886 hack_wm_protocols (f
, widget
)
1890 Display
*dpy
= XtDisplay (widget
);
1891 Window w
= XtWindow (widget
);
1892 int need_delete
= 1;
1899 unsigned char *catoms
;
1901 unsigned long nitems
= 0;
1902 unsigned long bytes_after
;
1904 if ((XGetWindowProperty (dpy
, w
,
1905 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1906 (long)0, (long)100, False
, XA_ATOM
,
1907 &type
, &format
, &nitems
, &bytes_after
,
1910 && format
== 32 && type
== XA_ATOM
)
1912 Atom
*atoms
= (Atom
*) catoms
;
1917 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
)
1919 else if (atoms
[nitems
]
1920 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
)
1922 else if (atoms
[nitems
]
1923 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
)
1934 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
1936 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
;
1938 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
1940 XChangeProperty (dpy
, w
, FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1941 XA_ATOM
, 32, PropModeAppend
,
1942 (unsigned char *) props
, count
);
1950 /* Support routines for XIC (X Input Context). */
1954 static XFontSet xic_create_xfontset
P_ ((struct frame
*, char *));
1955 static XIMStyle best_xim_style
P_ ((XIMStyles
*, XIMStyles
*));
1958 /* Supported XIM styles, ordered by preference. */
1960 static XIMStyle supported_xim_styles
[] =
1962 XIMPreeditPosition
| XIMStatusArea
,
1963 XIMPreeditPosition
| XIMStatusNothing
,
1964 XIMPreeditPosition
| XIMStatusNone
,
1965 XIMPreeditNothing
| XIMStatusArea
,
1966 XIMPreeditNothing
| XIMStatusNothing
,
1967 XIMPreeditNothing
| XIMStatusNone
,
1968 XIMPreeditNone
| XIMStatusArea
,
1969 XIMPreeditNone
| XIMStatusNothing
,
1970 XIMPreeditNone
| XIMStatusNone
,
1975 /* Create an X fontset on frame F with base font name BASE_FONTNAME. */
1977 char xic_defaut_fontset
[] = "-*-*-*-r-normal--14-*-*-*-*-*-*-*";
1979 /* Create an Xt fontset spec from the name of a base font.
1980 If `motif' is True use the Motif syntax. */
1982 xic_create_fontsetname (base_fontname
, motif
)
1983 char *base_fontname
;
1986 const char *sep
= motif
? ";" : ",";
1989 /* Make a fontset name from the base font name. */
1990 if (xic_defaut_fontset
== base_fontname
)
1991 { /* There is no base font name, use the default. */
1992 int len
= strlen (base_fontname
) + 2;
1993 fontsetname
= xmalloc (len
);
1994 bzero (fontsetname
, len
);
1995 strcpy (fontsetname
, base_fontname
);
1999 /* Make a fontset name from the base font name.
2000 The font set will be made of the following elements:
2002 - the base font where the charset spec is replaced by -*-*.
2003 - the same but with the family also replaced with -*-*-. */
2004 char *p
= base_fontname
;
2007 for (i
= 0; *p
; p
++)
2010 { /* As the font name doesn't conform to XLFD, we can't
2011 modify it to generalize it to allcs and allfamilies.
2012 Use the specified font plus the default. */
2013 int len
= strlen (base_fontname
) + strlen (xic_defaut_fontset
) + 3;
2014 fontsetname
= xmalloc (len
);
2015 bzero (fontsetname
, len
);
2016 strcpy (fontsetname
, base_fontname
);
2017 strcat (fontsetname
, sep
);
2018 strcat (fontsetname
, xic_defaut_fontset
);
2023 char *p1
= NULL
, *p2
= NULL
;
2024 char *font_allcs
= NULL
;
2025 char *font_allfamilies
= NULL
;
2026 char *font_all
= NULL
;
2027 char *allcs
= "*-*-*-*-*-*-*";
2028 char *allfamilies
= "-*-*-";
2029 char *all
= "*-*-*-*-";
2031 for (i
= 0, p
= base_fontname
; i
< 8; p
++)
2042 /* Build the font spec that matches all charsets. */
2043 len
= p
- base_fontname
+ strlen (allcs
) + 1;
2044 font_allcs
= (char *) alloca (len
);
2045 bzero (font_allcs
, len
);
2046 bcopy (base_fontname
, font_allcs
, p
- base_fontname
);
2047 strcat (font_allcs
, allcs
);
2049 /* Build the font spec that matches all families. */
2050 len
= p
- p1
+ strlen (allcs
) + strlen (allfamilies
) + 1;
2051 font_allfamilies
= (char *) alloca (len
);
2052 bzero (font_allfamilies
, len
);
2053 strcpy (font_allfamilies
, allfamilies
);
2054 bcopy (p1
, font_allfamilies
+ strlen (allfamilies
), p
- p1
);
2055 strcat (font_allfamilies
, allcs
);
2057 /* Build the font spec that matches all. */
2058 len
= p
- p2
+ strlen (allcs
) + strlen (all
) + strlen (allfamilies
) + 1;
2059 font_all
= (char *) alloca (len
);
2060 bzero (font_all
, len
);
2061 strcpy (font_all
, allfamilies
);
2062 strcat (font_all
, all
);
2063 bcopy (p2
, font_all
+ strlen (all
) + strlen (allfamilies
), p
- p2
);
2064 strcat (font_all
, allcs
);
2066 /* Build the actual font set name. */
2067 len
= strlen (base_fontname
) + strlen (font_allcs
)
2068 + strlen (font_allfamilies
) + strlen (font_all
) + 5;
2069 fontsetname
= xmalloc (len
);
2070 bzero (fontsetname
, len
);
2071 strcpy (fontsetname
, base_fontname
);
2072 strcat (fontsetname
, sep
);
2073 strcat (fontsetname
, font_allcs
);
2074 strcat (fontsetname
, sep
);
2075 strcat (fontsetname
, font_allfamilies
);
2076 strcat (fontsetname
, sep
);
2077 strcat (fontsetname
, font_all
);
2081 strcat (fontsetname
, ":");
2086 xic_create_xfontset (f
, base_fontname
)
2088 char *base_fontname
;
2090 XFontSet xfs
= NULL
;
2091 char **missing_list
= NULL
;
2094 Lisp_Object rest
, frame
;
2097 base_fontname
= xic_defaut_fontset
;
2099 /* See if there is another frame already using same fontset. */
2100 FOR_EACH_FRAME (rest
, frame
)
2102 struct frame
*cf
= XFRAME (frame
);
2103 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
2104 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
2105 && FRAME_XIC_BASE_FONTNAME (cf
)
2106 && !strcmp (FRAME_XIC_BASE_FONTNAME (cf
), base_fontname
))
2108 xfs
= FRAME_XIC_FONTSET (cf
);
2115 char *fontsetname
= xic_create_fontsetname (base_fontname
, False
);
2118 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
),
2119 fontsetname
, &missing_list
,
2120 &missing_count
, &def_string
);
2122 XFreeStringList (missing_list
);
2123 xfree (fontsetname
);
2126 if (FRAME_XIC_BASE_FONTNAME (f
))
2127 xfree (FRAME_XIC_BASE_FONTNAME (f
));
2128 FRAME_XIC_BASE_FONTNAME (f
) = xstrdup (base_fontname
);
2130 /* No need to free def_string. */
2134 /* Free the X fontset of frame F if it is the last frame using it. */
2137 xic_free_xfontset (f
)
2140 Lisp_Object rest
, frame
;
2143 if (!FRAME_XIC_FONTSET (f
))
2146 /* See if there is another frame sharing the same fontset. */
2147 FOR_EACH_FRAME (rest
, frame
)
2149 struct frame
*cf
= XFRAME (frame
);
2150 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
2151 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
2152 && FRAME_XIC_FONTSET (cf
) == FRAME_XIC_FONTSET (f
))
2160 /* The fontset is not used anymore. It is safe to free it. */
2161 XFreeFontSet (FRAME_X_DISPLAY (f
), FRAME_XIC_FONTSET (f
));
2163 if (FRAME_XIC_BASE_FONTNAME (f
))
2164 xfree (FRAME_XIC_BASE_FONTNAME (f
));
2165 FRAME_XIC_BASE_FONTNAME (f
) = NULL
;
2166 FRAME_XIC_FONTSET (f
) = NULL
;
2170 /* Value is the best input style, given user preferences USER (already
2171 checked to be supported by Emacs), and styles supported by the
2172 input method XIM. */
2175 best_xim_style (user
, xim
)
2181 for (i
= 0; i
< user
->count_styles
; ++i
)
2182 for (j
= 0; j
< xim
->count_styles
; ++j
)
2183 if (user
->supported_styles
[i
] == xim
->supported_styles
[j
])
2184 return user
->supported_styles
[i
];
2186 /* Return the default style. */
2187 return XIMPreeditNothing
| XIMStatusNothing
;
2190 /* Create XIC for frame F. */
2192 static XIMStyle xic_style
;
2195 create_frame_xic (f
)
2200 XFontSet xfs
= NULL
;
2205 /* Create X fontset. */
2206 xfs
= xic_create_xfontset
2207 (f
, (FRAME_FONTSET (f
) < 0) ? NULL
2208 : (char *) SDATA (fontset_ascii (FRAME_FONTSET (f
))));
2210 xim
= FRAME_X_XIM (f
);
2215 XVaNestedList preedit_attr
;
2216 XVaNestedList status_attr
;
2218 s_area
.x
= 0; s_area
.y
= 0; s_area
.width
= 1; s_area
.height
= 1;
2219 spot
.x
= 0; spot
.y
= 1;
2221 /* Determine XIC style. */
2224 XIMStyles supported_list
;
2225 supported_list
.count_styles
= (sizeof supported_xim_styles
2226 / sizeof supported_xim_styles
[0]);
2227 supported_list
.supported_styles
= supported_xim_styles
;
2228 xic_style
= best_xim_style (&supported_list
,
2229 FRAME_X_XIM_STYLES (f
));
2232 preedit_attr
= XVaCreateNestedList (0,
2235 FRAME_FOREGROUND_PIXEL (f
),
2237 FRAME_BACKGROUND_PIXEL (f
),
2238 (xic_style
& XIMPreeditPosition
2243 status_attr
= XVaCreateNestedList (0,
2249 FRAME_FOREGROUND_PIXEL (f
),
2251 FRAME_BACKGROUND_PIXEL (f
),
2254 xic
= XCreateIC (xim
,
2255 XNInputStyle
, xic_style
,
2256 XNClientWindow
, FRAME_X_WINDOW (f
),
2257 XNFocusWindow
, FRAME_X_WINDOW (f
),
2258 XNStatusAttributes
, status_attr
,
2259 XNPreeditAttributes
, preedit_attr
,
2261 XFree (preedit_attr
);
2262 XFree (status_attr
);
2265 FRAME_XIC (f
) = xic
;
2266 FRAME_XIC_STYLE (f
) = xic_style
;
2267 FRAME_XIC_FONTSET (f
) = xfs
;
2271 /* Destroy XIC and free XIC fontset of frame F, if any. */
2277 if (FRAME_XIC (f
) == NULL
)
2280 XDestroyIC (FRAME_XIC (f
));
2281 xic_free_xfontset (f
);
2283 FRAME_XIC (f
) = NULL
;
2287 /* Place preedit area for XIC of window W's frame to specified
2288 pixel position X/Y. X and Y are relative to window W. */
2291 xic_set_preeditarea (w
, x
, y
)
2295 struct frame
*f
= XFRAME (w
->frame
);
2299 spot
.x
= WINDOW_TO_FRAME_PIXEL_X (w
, x
) + WINDOW_LEFT_FRINGE_WIDTH (w
);
2300 spot
.y
= WINDOW_TO_FRAME_PIXEL_Y (w
, y
) + FONT_BASE (FRAME_FONT (f
));
2301 attr
= XVaCreateNestedList (0, XNSpotLocation
, &spot
, NULL
);
2302 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2307 /* Place status area for XIC in bottom right corner of frame F.. */
2310 xic_set_statusarea (f
)
2313 XIC xic
= FRAME_XIC (f
);
2318 /* Negotiate geometry of status area. If input method has existing
2319 status area, use its current size. */
2320 area
.x
= area
.y
= area
.width
= area
.height
= 0;
2321 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &area
, NULL
);
2322 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2325 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &needed
, NULL
);
2326 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2329 if (needed
->width
== 0) /* Use XNArea instead of XNAreaNeeded */
2331 attr
= XVaCreateNestedList (0, XNArea
, &needed
, NULL
);
2332 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2336 area
.width
= needed
->width
;
2337 area
.height
= needed
->height
;
2338 area
.x
= FRAME_PIXEL_WIDTH (f
) - area
.width
- FRAME_INTERNAL_BORDER_WIDTH (f
);
2339 area
.y
= (FRAME_PIXEL_HEIGHT (f
) - area
.height
2340 - FRAME_MENUBAR_HEIGHT (f
)
2341 - FRAME_TOOLBAR_HEIGHT (f
)
2342 - FRAME_INTERNAL_BORDER_WIDTH (f
));
2345 attr
= XVaCreateNestedList (0, XNArea
, &area
, NULL
);
2346 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2351 /* Set X fontset for XIC of frame F, using base font name
2352 BASE_FONTNAME. Called when a new Emacs fontset is chosen. */
2355 xic_set_xfontset (f
, base_fontname
)
2357 char *base_fontname
;
2362 xic_free_xfontset (f
);
2364 xfs
= xic_create_xfontset (f
, base_fontname
);
2366 attr
= XVaCreateNestedList (0, XNFontSet
, xfs
, NULL
);
2367 if (FRAME_XIC_STYLE (f
) & XIMPreeditPosition
)
2368 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2369 if (FRAME_XIC_STYLE (f
) & XIMStatusArea
)
2370 XSetICValues (FRAME_XIC (f
), XNStatusAttributes
, attr
, NULL
);
2373 FRAME_XIC_FONTSET (f
) = xfs
;
2376 #endif /* HAVE_X_I18N */
2380 #ifdef USE_X_TOOLKIT
2382 /* Create and set up the X widget for frame F. */
2385 x_window (f
, window_prompting
, minibuffer_only
)
2387 long window_prompting
;
2388 int minibuffer_only
;
2390 XClassHint class_hints
;
2391 XSetWindowAttributes attributes
;
2392 unsigned long attribute_mask
;
2393 Widget shell_widget
;
2395 Widget frame_widget
;
2401 /* Use the resource name as the top-level widget name
2402 for looking up resources. Make a non-Lisp copy
2403 for the window manager, so GC relocation won't bother it.
2405 Elsewhere we specify the window name for the window manager. */
2408 char *str
= (char *) SDATA (Vx_resource_name
);
2409 f
->namebuf
= (char *) xmalloc (strlen (str
) + 1);
2410 strcpy (f
->namebuf
, str
);
2414 XtSetArg (al
[ac
], XtNallowShellResize
, 1); ac
++;
2415 XtSetArg (al
[ac
], XtNinput
, 1); ac
++;
2416 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2417 XtSetArg (al
[ac
], XtNborderWidth
, f
->border_width
); ac
++;
2418 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2419 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2420 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2421 shell_widget
= XtAppCreateShell (f
->namebuf
, EMACS_CLASS
,
2422 applicationShellWidgetClass
,
2423 FRAME_X_DISPLAY (f
), al
, ac
);
2425 f
->output_data
.x
->widget
= shell_widget
;
2426 /* maybe_set_screen_title_format (shell_widget); */
2428 pane_widget
= lw_create_widget ("main", "pane", widget_id_tick
++,
2429 (widget_value
*) NULL
,
2430 shell_widget
, False
,
2434 (lw_callback
) NULL
);
2437 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2438 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2439 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2440 XtSetValues (pane_widget
, al
, ac
);
2441 f
->output_data
.x
->column_widget
= pane_widget
;
2443 /* mappedWhenManaged to false tells to the paned window to not map/unmap
2444 the emacs screen when changing menubar. This reduces flickering. */
2447 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2448 XtSetArg (al
[ac
], XtNshowGrip
, 0); ac
++;
2449 XtSetArg (al
[ac
], XtNallowResize
, 1); ac
++;
2450 XtSetArg (al
[ac
], XtNresizeToPreferred
, 1); ac
++;
2451 XtSetArg (al
[ac
], XtNemacsFrame
, f
); ac
++;
2452 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2453 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2454 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2455 frame_widget
= XtCreateWidget (f
->namebuf
, emacsFrameClass
, pane_widget
,
2458 f
->output_data
.x
->edit_widget
= frame_widget
;
2460 XtManageChild (frame_widget
);
2462 /* Do some needed geometry management. */
2465 char *tem
, shell_position
[32];
2468 int extra_borders
= 0;
2470 = (f
->output_data
.x
->menubar_widget
2471 ? (f
->output_data
.x
->menubar_widget
->core
.height
2472 + f
->output_data
.x
->menubar_widget
->core
.border_width
)
2475 #if 0 /* Experimentally, we now get the right results
2476 for -geometry -0-0 without this. 24 Aug 96, rms. */
2477 if (FRAME_EXTERNAL_MENU_BAR (f
))
2480 XtVaGetValues (pane_widget
, XtNinternalBorderWidth
, &ibw
, NULL
);
2481 menubar_size
+= ibw
;
2485 f
->output_data
.x
->menubar_height
= menubar_size
;
2488 /* Motif seems to need this amount added to the sizes
2489 specified for the shell widget. The Athena/Lucid widgets don't.
2490 Both conclusions reached experimentally. -- rms. */
2491 XtVaGetValues (f
->output_data
.x
->edit_widget
, XtNinternalBorderWidth
,
2492 &extra_borders
, NULL
);
2496 /* Convert our geometry parameters into a geometry string
2498 Note that we do not specify here whether the position
2499 is a user-specified or program-specified one.
2500 We pass that information later, in x_wm_set_size_hints. */
2502 int left
= f
->left_pos
;
2503 int xneg
= window_prompting
& XNegative
;
2504 int top
= f
->top_pos
;
2505 int yneg
= window_prompting
& YNegative
;
2511 if (window_prompting
& USPosition
)
2512 sprintf (shell_position
, "=%dx%d%c%d%c%d",
2513 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2514 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
,
2515 (xneg
? '-' : '+'), left
,
2516 (yneg
? '-' : '+'), top
);
2519 sprintf (shell_position
, "=%dx%d",
2520 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2521 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
);
2523 /* Setting x and y when the position is not specified in
2524 the geometry string will set program position in the WM hints.
2525 If Emacs had just one program position, we could set it in
2526 fallback resources, but since each make-frame call can specify
2527 different program positions, this is easier. */
2528 XtSetArg (al
[ac
], XtNx
, left
); ac
++;
2529 XtSetArg (al
[ac
], XtNy
, top
); ac
++;
2533 len
= strlen (shell_position
) + 1;
2534 /* We don't free this because we don't know whether
2535 it is safe to free it while the frame exists.
2536 It isn't worth the trouble of arranging to free it
2537 when the frame is deleted. */
2538 tem
= (char *) xmalloc (len
);
2539 strncpy (tem
, shell_position
, len
);
2540 XtSetArg (al
[ac
], XtNgeometry
, tem
); ac
++;
2541 XtSetValues (shell_widget
, al
, ac
);
2544 XtManageChild (pane_widget
);
2545 XtRealizeWidget (shell_widget
);
2547 FRAME_X_WINDOW (f
) = XtWindow (frame_widget
);
2549 validate_x_resource_name ();
2551 class_hints
.res_name
= (char *) SDATA (Vx_resource_name
);
2552 class_hints
.res_class
= (char *) SDATA (Vx_resource_class
);
2553 XSetClassHint (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
), &class_hints
);
2556 FRAME_XIC (f
) = NULL
;
2558 create_frame_xic (f
);
2561 f
->output_data
.x
->wm_hints
.input
= True
;
2562 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2563 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2564 &f
->output_data
.x
->wm_hints
);
2566 hack_wm_protocols (f
, shell_widget
);
2569 XtAddEventHandler (shell_widget
, 0, True
, _XEditResCheckMessages
, 0);
2572 /* Do a stupid property change to force the server to generate a
2573 PropertyNotify event so that the event_stream server timestamp will
2574 be initialized to something relevant to the time we created the window.
2576 XChangeProperty (XtDisplay (frame_widget
), XtWindow (frame_widget
),
2577 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
2578 XA_ATOM
, 32, PropModeAppend
,
2579 (unsigned char*) NULL
, 0);
2581 /* Make all the standard events reach the Emacs frame. */
2582 attributes
.event_mask
= STANDARD_EVENT_SET
;
2587 /* XIM server might require some X events. */
2588 unsigned long fevent
= NoEventMask
;
2589 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2590 attributes
.event_mask
|= fevent
;
2592 #endif /* HAVE_X_I18N */
2594 attribute_mask
= CWEventMask
;
2595 XChangeWindowAttributes (XtDisplay (shell_widget
), XtWindow (shell_widget
),
2596 attribute_mask
, &attributes
);
2598 XtMapWidget (frame_widget
);
2600 /* x_set_name normally ignores requests to set the name if the
2601 requested name is the same as the current name. This is the one
2602 place where that assumption isn't correct; f->name is set, but
2603 the X server hasn't been told. */
2606 int explicit = f
->explicit_name
;
2608 f
->explicit_name
= 0;
2611 x_set_name (f
, name
, explicit);
2614 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2615 f
->output_data
.x
->text_cursor
);
2619 /* This is a no-op, except under Motif. Make sure main areas are
2620 set to something reasonable, in case we get an error later. */
2621 lw_set_main_areas (pane_widget
, 0, frame_widget
);
2624 #else /* not USE_X_TOOLKIT */
2630 if (! xg_create_frame_widgets (f
))
2631 error ("Unable to create window");
2634 FRAME_XIC (f
) = NULL
;
2638 create_frame_xic (f
);
2641 /* XIM server might require some X events. */
2642 unsigned long fevent
= NoEventMask
;
2643 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2645 if (fevent
!= NoEventMask
)
2647 XSetWindowAttributes attributes
;
2648 XWindowAttributes wattr
;
2649 unsigned long attribute_mask
;
2651 XGetWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2653 attributes
.event_mask
= wattr
.your_event_mask
| fevent
;
2654 attribute_mask
= CWEventMask
;
2655 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2656 attribute_mask
, &attributes
);
2664 #else /*! USE_GTK */
2665 /* Create and set up the X window for frame F. */
2672 XClassHint class_hints
;
2673 XSetWindowAttributes attributes
;
2674 unsigned long attribute_mask
;
2676 attributes
.background_pixel
= f
->output_data
.x
->background_pixel
;
2677 attributes
.border_pixel
= f
->output_data
.x
->border_pixel
;
2678 attributes
.bit_gravity
= StaticGravity
;
2679 attributes
.backing_store
= NotUseful
;
2680 attributes
.save_under
= True
;
2681 attributes
.event_mask
= STANDARD_EVENT_SET
;
2682 attributes
.colormap
= FRAME_X_COLORMAP (f
);
2683 attribute_mask
= (CWBackPixel
| CWBorderPixel
| CWBitGravity
| CWEventMask
2688 = XCreateWindow (FRAME_X_DISPLAY (f
),
2689 f
->output_data
.x
->parent_desc
,
2692 FRAME_PIXEL_WIDTH (f
), FRAME_PIXEL_HEIGHT (f
),
2694 CopyFromParent
, /* depth */
2695 InputOutput
, /* class */
2697 attribute_mask
, &attributes
);
2702 create_frame_xic (f
);
2705 /* XIM server might require some X events. */
2706 unsigned long fevent
= NoEventMask
;
2707 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2708 attributes
.event_mask
|= fevent
;
2709 attribute_mask
= CWEventMask
;
2710 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2711 attribute_mask
, &attributes
);
2714 #endif /* HAVE_X_I18N */
2716 validate_x_resource_name ();
2718 class_hints
.res_name
= (char *) SDATA (Vx_resource_name
);
2719 class_hints
.res_class
= (char *) SDATA (Vx_resource_class
);
2720 XSetClassHint (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), &class_hints
);
2722 /* The menubar is part of the ordinary display;
2723 it does not count in addition to the height of the window. */
2724 f
->output_data
.x
->menubar_height
= 0;
2726 /* This indicates that we use the "Passive Input" input model.
2727 Unless we do this, we don't get the Focus{In,Out} events that we
2728 need to draw the cursor correctly. Accursed bureaucrats.
2729 XWhipsAndChains (FRAME_X_DISPLAY (f), IronMaiden, &TheRack); */
2731 f
->output_data
.x
->wm_hints
.input
= True
;
2732 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2733 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2734 &f
->output_data
.x
->wm_hints
);
2735 f
->output_data
.x
->wm_hints
.icon_pixmap
= None
;
2737 /* Request "save yourself" and "delete window" commands from wm. */
2740 protocols
[0] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
2741 protocols
[1] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
2742 XSetWMProtocols (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), protocols
, 2);
2745 /* x_set_name normally ignores requests to set the name if the
2746 requested name is the same as the current name. This is the one
2747 place where that assumption isn't correct; f->name is set, but
2748 the X server hasn't been told. */
2751 int explicit = f
->explicit_name
;
2753 f
->explicit_name
= 0;
2756 x_set_name (f
, name
, explicit);
2759 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2760 f
->output_data
.x
->text_cursor
);
2764 if (FRAME_X_WINDOW (f
) == 0)
2765 error ("Unable to create window");
2768 #endif /* not USE_GTK */
2769 #endif /* not USE_X_TOOLKIT */
2771 /* Verify that the icon position args for this window are valid. */
2774 x_icon_verify (f
, parms
)
2778 Lisp_Object icon_x
, icon_y
;
2780 /* Set the position of the icon. Note that twm groups all
2781 icons in an icon window. */
2782 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2783 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2784 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2786 CHECK_NUMBER (icon_x
);
2787 CHECK_NUMBER (icon_y
);
2789 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2790 error ("Both left and top icon corners of icon must be specified");
2793 /* Handle the icon stuff for this window. Perhaps later we might
2794 want an x_set_icon_position which can be called interactively as
2802 Lisp_Object icon_x
, icon_y
;
2803 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2805 /* Set the position of the icon. Note that twm groups all
2806 icons in an icon window. */
2807 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2808 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2809 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2811 CHECK_NUMBER (icon_x
);
2812 CHECK_NUMBER (icon_y
);
2814 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2815 error ("Both left and top icon corners of icon must be specified");
2819 if (! EQ (icon_x
, Qunbound
))
2820 x_wm_set_icon_position (f
, XINT (icon_x
), XINT (icon_y
));
2822 #if 0 /* x_get_arg removes the visibility parameter as a side effect,
2823 but x_create_frame still needs it. */
2824 /* Start up iconic or window? */
2825 x_wm_set_window_state
2826 (f
, (EQ (x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0, RES_TYPE_SYMBOL
),
2832 x_text_icon (f
, (char *) SDATA ((!NILP (f
->icon_name
)
2839 /* Make the GCs needed for this window, setting the
2840 background, border and mouse colors; also create the
2841 mouse cursor and the gray border tile. */
2843 static char cursor_bits
[] =
2845 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2846 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2847 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2848 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00
2855 XGCValues gc_values
;
2859 /* Create the GCs of this frame.
2860 Note that many default values are used. */
2863 gc_values
.font
= FRAME_FONT (f
)->fid
;
2864 gc_values
.foreground
= f
->output_data
.x
->foreground_pixel
;
2865 gc_values
.background
= f
->output_data
.x
->background_pixel
;
2866 gc_values
.line_width
= 0; /* Means 1 using fast algorithm. */
2867 f
->output_data
.x
->normal_gc
2868 = XCreateGC (FRAME_X_DISPLAY (f
),
2870 GCLineWidth
| GCFont
| GCForeground
| GCBackground
,
2873 /* Reverse video style. */
2874 gc_values
.foreground
= f
->output_data
.x
->background_pixel
;
2875 gc_values
.background
= f
->output_data
.x
->foreground_pixel
;
2876 f
->output_data
.x
->reverse_gc
2877 = XCreateGC (FRAME_X_DISPLAY (f
),
2879 GCFont
| GCForeground
| GCBackground
| GCLineWidth
,
2882 /* Cursor has cursor-color background, background-color foreground. */
2883 gc_values
.foreground
= f
->output_data
.x
->background_pixel
;
2884 gc_values
.background
= f
->output_data
.x
->cursor_pixel
;
2885 gc_values
.fill_style
= FillOpaqueStippled
;
2887 = XCreateBitmapFromData (FRAME_X_DISPLAY (f
),
2888 FRAME_X_DISPLAY_INFO (f
)->root_window
,
2889 cursor_bits
, 16, 16);
2890 f
->output_data
.x
->cursor_gc
2891 = XCreateGC (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2892 (GCFont
| GCForeground
| GCBackground
2893 | GCFillStyle
/* | GCStipple */ | GCLineWidth
),
2897 f
->output_data
.x
->white_relief
.gc
= 0;
2898 f
->output_data
.x
->black_relief
.gc
= 0;
2900 /* Create the gray border tile used when the pointer is not in
2901 the frame. Since this depends on the frame's pixel values,
2902 this must be done on a per-frame basis. */
2903 f
->output_data
.x
->border_tile
2904 = (XCreatePixmapFromBitmapData
2905 (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
2906 gray_bits
, gray_width
, gray_height
,
2907 f
->output_data
.x
->foreground_pixel
,
2908 f
->output_data
.x
->background_pixel
,
2909 DefaultDepth (FRAME_X_DISPLAY (f
), FRAME_X_SCREEN_NUMBER (f
))));
2915 /* Free what was was allocated in x_make_gc. */
2921 Display
*dpy
= FRAME_X_DISPLAY (f
);
2925 if (f
->output_data
.x
->normal_gc
)
2927 XFreeGC (dpy
, f
->output_data
.x
->normal_gc
);
2928 f
->output_data
.x
->normal_gc
= 0;
2931 if (f
->output_data
.x
->reverse_gc
)
2933 XFreeGC (dpy
, f
->output_data
.x
->reverse_gc
);
2934 f
->output_data
.x
->reverse_gc
= 0;
2937 if (f
->output_data
.x
->cursor_gc
)
2939 XFreeGC (dpy
, f
->output_data
.x
->cursor_gc
);
2940 f
->output_data
.x
->cursor_gc
= 0;
2943 if (f
->output_data
.x
->border_tile
)
2945 XFreePixmap (dpy
, f
->output_data
.x
->border_tile
);
2946 f
->output_data
.x
->border_tile
= 0;
2953 /* Handler for signals raised during x_create_frame and
2954 x_create_top_frame. FRAME is the frame which is partially
2958 unwind_create_frame (frame
)
2961 struct frame
*f
= XFRAME (frame
);
2963 /* If frame is ``official'', nothing to do. */
2964 if (!CONSP (Vframe_list
) || !EQ (XCAR (Vframe_list
), frame
))
2967 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2970 x_free_frame_resources (f
);
2973 /* Check that reference counts are indeed correct. */
2974 xassert (dpyinfo
->reference_count
== dpyinfo_refcount
);
2975 xassert (dpyinfo
->image_cache
->refcount
== image_cache_refcount
);
2984 DEFUN ("x-create-frame", Fx_create_frame
, Sx_create_frame
,
2986 doc
: /* Make a new X window, which is called a "frame" in Emacs terms.
2987 Returns an Emacs frame object.
2988 ALIST is an alist of frame parameters.
2989 If the parameters specify that the frame should not have a minibuffer,
2990 and do not specify a specific minibuffer window to use,
2991 then `default-minibuffer-frame' must be a frame whose minibuffer can
2992 be shared by the new frame.
2994 This function is an internal primitive--use `make-frame' instead. */)
2999 Lisp_Object frame
, tem
;
3001 int minibuffer_only
= 0;
3002 long window_prompting
= 0;
3004 int count
= SPECPDL_INDEX ();
3005 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
3006 Lisp_Object display
;
3007 struct x_display_info
*dpyinfo
= NULL
;
3013 parms
= Fcopy_alist (parms
);
3015 /* Use this general default value to start with
3016 until we know if this frame has a specified name. */
3017 Vx_resource_name
= Vinvocation_name
;
3019 display
= x_get_arg (dpyinfo
, parms
, Qdisplay
, 0, 0, RES_TYPE_STRING
);
3020 if (EQ (display
, Qunbound
))
3022 dpyinfo
= check_x_display_info (display
);
3024 kb
= dpyinfo
->kboard
;
3026 kb
= &the_only_kboard
;
3029 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
3031 && ! EQ (name
, Qunbound
)
3033 error ("Invalid frame name--not a string or nil");
3036 Vx_resource_name
= name
;
3038 /* See if parent window is specified. */
3039 parent
= x_get_arg (dpyinfo
, parms
, Qparent_id
, NULL
, NULL
, RES_TYPE_NUMBER
);
3040 if (EQ (parent
, Qunbound
))
3042 if (! NILP (parent
))
3043 CHECK_NUMBER (parent
);
3045 /* make_frame_without_minibuffer can run Lisp code and garbage collect. */
3046 /* No need to protect DISPLAY because that's not used after passing
3047 it to make_frame_without_minibuffer. */
3049 GCPRO4 (parms
, parent
, name
, frame
);
3050 tem
= x_get_arg (dpyinfo
, parms
, Qminibuffer
, "minibuffer", "Minibuffer",
3052 if (EQ (tem
, Qnone
) || NILP (tem
))
3053 f
= make_frame_without_minibuffer (Qnil
, kb
, display
);
3054 else if (EQ (tem
, Qonly
))
3056 f
= make_minibuffer_frame ();
3057 minibuffer_only
= 1;
3059 else if (WINDOWP (tem
))
3060 f
= make_frame_without_minibuffer (tem
, kb
, display
);
3064 XSETFRAME (frame
, f
);
3066 /* Note that X Windows does support scroll bars. */
3067 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 1;
3069 f
->output_method
= output_x_window
;
3070 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
3071 bzero (f
->output_data
.x
, sizeof (struct x_output
));
3072 f
->output_data
.x
->icon_bitmap
= -1;
3073 FRAME_FONTSET (f
) = -1;
3074 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
3075 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
3076 #ifdef USE_TOOLKIT_SCROLL_BARS
3077 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
3078 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
3079 #endif /* USE_TOOLKIT_SCROLL_BARS */
3082 = x_get_arg (dpyinfo
, parms
, Qicon_name
, "iconName", "Title",
3084 if (! STRINGP (f
->icon_name
))
3085 f
->icon_name
= Qnil
;
3087 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
3089 /* With FRAME_X_DISPLAY_INFO set up, this unwind-protect is safe. */
3090 record_unwind_protect (unwind_create_frame
, frame
);
3092 image_cache_refcount
= FRAME_X_IMAGE_CACHE (f
)->refcount
;
3093 dpyinfo_refcount
= dpyinfo
->reference_count
;
3094 #endif /* GLYPH_DEBUG */
3096 FRAME_KBOARD (f
) = kb
;
3099 /* These colors will be set anyway later, but it's important
3100 to get the color reference counts right, so initialize them! */
3103 struct gcpro gcpro1
;
3105 /* Function x_decode_color can signal an error. Make
3106 sure to initialize color slots so that we won't try
3107 to free colors we haven't allocated. */
3108 f
->output_data
.x
->foreground_pixel
= -1;
3109 f
->output_data
.x
->background_pixel
= -1;
3110 f
->output_data
.x
->cursor_pixel
= -1;
3111 f
->output_data
.x
->cursor_foreground_pixel
= -1;
3112 f
->output_data
.x
->border_pixel
= -1;
3113 f
->output_data
.x
->mouse_pixel
= -1;
3115 black
= build_string ("black");
3117 f
->output_data
.x
->foreground_pixel
3118 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3119 f
->output_data
.x
->background_pixel
3120 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3121 f
->output_data
.x
->cursor_pixel
3122 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3123 f
->output_data
.x
->cursor_foreground_pixel
3124 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3125 f
->output_data
.x
->border_pixel
3126 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3127 f
->output_data
.x
->mouse_pixel
3128 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3132 /* Specify the parent under which to make this X window. */
3136 f
->output_data
.x
->parent_desc
= (Window
) XFASTINT (parent
);
3137 f
->output_data
.x
->explicit_parent
= 1;
3141 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
3142 f
->output_data
.x
->explicit_parent
= 0;
3145 /* Set the name; the functions to which we pass f expect the name to
3147 if (EQ (name
, Qunbound
) || NILP (name
))
3149 f
->name
= build_string (dpyinfo
->x_id_name
);
3150 f
->explicit_name
= 0;
3155 f
->explicit_name
= 1;
3156 /* use the frame's title when getting resources for this frame. */
3157 specbind (Qx_resource_name
, name
);
3160 /* Extract the window parameters from the supplied values
3161 that are needed to determine window geometry. */
3165 font
= x_get_arg (dpyinfo
, parms
, Qfont
, "font", "Font", RES_TYPE_STRING
);
3168 /* First, try whatever font the caller has specified. */
3171 tem
= Fquery_fontset (font
, Qnil
);
3173 font
= x_new_fontset (f
, SDATA (tem
));
3175 font
= x_new_font (f
, SDATA (font
));
3178 /* Try out a font which we hope has bold and italic variations. */
3179 if (!STRINGP (font
))
3180 font
= x_new_font (f
, "-adobe-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-1");
3181 if (!STRINGP (font
))
3182 font
= x_new_font (f
, "-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-1");
3183 if (! STRINGP (font
))
3184 font
= x_new_font (f
, "-*-*-medium-r-normal-*-*-140-*-*-c-*-iso8859-1");
3185 if (! STRINGP (font
))
3186 /* This was formerly the first thing tried, but it finds too many fonts
3187 and takes too long. */
3188 font
= x_new_font (f
, "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1");
3189 /* If those didn't work, look for something which will at least work. */
3190 if (! STRINGP (font
))
3191 font
= x_new_font (f
, "-*-fixed-*-*-*-*-*-140-*-*-c-*-iso8859-1");
3193 if (! STRINGP (font
))
3194 font
= build_string ("fixed");
3196 x_set_frame_parameters (f
, Fcons (Fcons (Qfont
, font
), Qnil
));
3200 /* Prevent lwlib/xlwmenu.c from crashing because of a bug
3201 whereby it fails to get any font. */
3202 xlwmenu_default_font
= FRAME_FONT (f
);
3205 x_default_parameter (f
, parms
, Qborder_width
, make_number (2),
3206 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
3208 /* This defaults to 1 in order to match xterm. We recognize either
3209 internalBorderWidth or internalBorder (which is what xterm calls
3211 if (NILP (Fassq (Qinternal_border_width
, parms
)))
3215 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
3216 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
3217 if (! EQ (value
, Qunbound
))
3218 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
3221 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
3222 "internalBorderWidth", "internalBorderWidth",
3224 x_default_parameter (f
, parms
, Qvertical_scroll_bars
, Qleft
,
3225 "verticalScrollBars", "ScrollBars",
3228 /* Also do the stuff which must be set before the window exists. */
3229 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
3230 "foreground", "Foreground", RES_TYPE_STRING
);
3231 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
3232 "background", "Background", RES_TYPE_STRING
);
3233 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
3234 "pointerColor", "Foreground", RES_TYPE_STRING
);
3235 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
3236 "cursorColor", "Foreground", RES_TYPE_STRING
);
3237 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
3238 "borderColor", "BorderColor", RES_TYPE_STRING
);
3239 x_default_parameter (f
, parms
, Qscreen_gamma
, Qnil
,
3240 "screenGamma", "ScreenGamma", RES_TYPE_FLOAT
);
3241 x_default_parameter (f
, parms
, Qline_spacing
, Qnil
,
3242 "lineSpacing", "LineSpacing", RES_TYPE_NUMBER
);
3243 x_default_parameter (f
, parms
, Qleft_fringe
, Qnil
,
3244 "leftFringe", "LeftFringe", RES_TYPE_NUMBER
);
3245 x_default_parameter (f
, parms
, Qright_fringe
, Qnil
,
3246 "rightFringe", "RightFringe", RES_TYPE_NUMBER
);
3248 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_foreground
,
3249 "scrollBarForeground",
3250 "ScrollBarForeground", 1);
3251 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_background
,
3252 "scrollBarBackground",
3253 "ScrollBarBackground", 0);
3255 /* Init faces before x_default_parameter is called for scroll-bar
3256 parameters because that function calls x_set_scroll_bar_width,
3257 which calls change_frame_size, which calls Fset_window_buffer,
3258 which runs hooks, which call Fvertical_motion. At the end, we
3259 end up in init_iterator with a null face cache, which should not
3261 init_frame_faces (f
);
3263 x_default_parameter (f
, parms
, Qmenu_bar_lines
, make_number (1),
3264 "menuBar", "MenuBar", RES_TYPE_NUMBER
);
3265 x_default_parameter (f
, parms
, Qtool_bar_lines
, make_number (1),
3266 "toolBar", "ToolBar", RES_TYPE_NUMBER
);
3267 x_default_parameter (f
, parms
, Qbuffer_predicate
, Qnil
,
3268 "bufferPredicate", "BufferPredicate",
3270 x_default_parameter (f
, parms
, Qtitle
, Qnil
,
3271 "title", "Title", RES_TYPE_STRING
);
3272 x_default_parameter (f
, parms
, Qwait_for_wm
, Qt
,
3273 "waitForWM", "WaitForWM", RES_TYPE_BOOLEAN
);
3274 x_default_parameter (f
, parms
, Qfullscreen
, Qnil
,
3275 "fullscreen", "Fullscreen", RES_TYPE_SYMBOL
);
3277 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
3279 /* Compute the size of the X window. */
3280 window_prompting
= x_figure_window_size (f
, parms
, 1);
3282 tem
= x_get_arg (dpyinfo
, parms
, Qunsplittable
, 0, 0, RES_TYPE_BOOLEAN
);
3283 f
->no_split
= minibuffer_only
|| EQ (tem
, Qt
);
3285 x_icon_verify (f
, parms
);
3287 /* Create the X widget or window. */
3288 #ifdef USE_X_TOOLKIT
3289 x_window (f
, window_prompting
, minibuffer_only
);
3297 /* Now consider the frame official. */
3298 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
3299 Vframe_list
= Fcons (frame
, Vframe_list
);
3301 /* We need to do this after creating the X window, so that the
3302 icon-creation functions can say whose icon they're describing. */
3303 x_default_parameter (f
, parms
, Qicon_type
, Qt
,
3304 "bitmapIcon", "BitmapIcon", RES_TYPE_SYMBOL
);
3306 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
3307 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3308 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
3309 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3310 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
3311 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
3312 x_default_parameter (f
, parms
, Qscroll_bar_width
, Qnil
,
3313 "scrollBarWidth", "ScrollBarWidth",
3316 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
3317 Change will not be effected unless different from the current
3319 width
= FRAME_COLS (f
);
3320 height
= FRAME_LINES (f
);
3322 SET_FRAME_COLS (f
, 0);
3323 FRAME_LINES (f
) = 0;
3324 change_frame_size (f
, height
, width
, 1, 0, 0);
3326 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
3327 /* Create the menu bar. */
3328 if (!minibuffer_only
&& FRAME_EXTERNAL_MENU_BAR (f
))
3330 /* If this signals an error, we haven't set size hints for the
3331 frame and we didn't make it visible. */
3332 initialize_frame_menubar (f
);
3335 /* This is a no-op, except under Motif where it arranges the
3336 main window for the widgets on it. */
3337 lw_set_main_areas (f
->output_data
.x
->column_widget
,
3338 f
->output_data
.x
->menubar_widget
,
3339 f
->output_data
.x
->edit_widget
);
3340 #endif /* not USE_GTK */
3342 #endif /* USE_X_TOOLKIT || USE_GTK */
3344 /* Tell the server what size and position, etc, we want, and how
3345 badly we want them. This should be done after we have the menu
3346 bar so that its size can be taken into account. */
3348 x_wm_set_size_hint (f
, window_prompting
, 0);
3351 /* Make the window appear on the frame and enable display, unless
3352 the caller says not to. However, with explicit parent, Emacs
3353 cannot control visibility, so don't try. */
3354 if (! f
->output_data
.x
->explicit_parent
)
3356 Lisp_Object visibility
;
3358 visibility
= x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0,
3360 if (EQ (visibility
, Qunbound
))
3363 if (EQ (visibility
, Qicon
))
3364 x_iconify_frame (f
);
3365 else if (! NILP (visibility
))
3366 x_make_frame_visible (f
);
3368 /* Must have been Qnil. */
3372 /* Set the WM leader property. GTK does this itself, so this is not
3373 needed when using GTK. */
3374 if (dpyinfo
->client_leader_window
!= 0)
3377 XChangeProperty (FRAME_X_DISPLAY (f
),
3378 FRAME_OUTER_WINDOW (f
),
3379 dpyinfo
->Xatom_wm_client_leader
,
3380 XA_WINDOW
, 32, PropModeReplace
,
3381 (unsigned char *) &dpyinfo
->client_leader_window
, 1);
3385 /* Initialize `default-minibuffer-frame' in case this is the first
3386 frame on this display device. */
3387 if (FRAME_HAS_MINIBUF_P (f
)
3388 && (!FRAMEP (kb
->Vdefault_minibuffer_frame
)
3389 || !FRAME_LIVE_P (XFRAME (kb
->Vdefault_minibuffer_frame
))))
3390 kb
->Vdefault_minibuffer_frame
= frame
;
3392 /* All remaining specified parameters, which have not been "used"
3393 by x_get_arg and friends, now go in the misc. alist of the frame. */
3394 for (tem
= parms
; !NILP (tem
); tem
= XCDR (tem
))
3395 if (CONSP (XCAR (tem
)) && !NILP (XCAR (XCAR (tem
))))
3396 f
->param_alist
= Fcons (XCAR (tem
), f
->param_alist
);
3400 /* Make sure windows on this frame appear in calls to next-window
3401 and similar functions. */
3402 Vwindow_list
= Qnil
;
3404 return unbind_to (count
, frame
);
3408 /* FRAME is used only to get a handle on the X display. We don't pass the
3409 display info directly because we're called from frame.c, which doesn't
3410 know about that structure. */
3413 x_get_focus_frame (frame
)
3414 struct frame
*frame
;
3416 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (frame
);
3418 if (! dpyinfo
->x_focus_frame
)
3421 XSETFRAME (xfocus
, dpyinfo
->x_focus_frame
);
3426 /* In certain situations, when the window manager follows a
3427 click-to-focus policy, there seems to be no way around calling
3428 XSetInputFocus to give another frame the input focus .
3430 In an ideal world, XSetInputFocus should generally be avoided so
3431 that applications don't interfere with the window manager's focus
3432 policy. But I think it's okay to use when it's clearly done
3433 following a user-command. */
3435 DEFUN ("x-focus-frame", Fx_focus_frame
, Sx_focus_frame
, 1, 1, 0,
3436 doc
: /* Set the input focus to FRAME.
3437 FRAME nil means use the selected frame. */)
3441 struct frame
*f
= check_x_frame (frame
);
3442 Display
*dpy
= FRAME_X_DISPLAY (f
);
3445 x_catch_errors (dpy
);
3446 XSetInputFocus (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
3447 RevertToParent
, CurrentTime
);
3448 x_uncatch_errors ();
3455 DEFUN ("xw-color-defined-p", Fxw_color_defined_p
, Sxw_color_defined_p
, 1, 2, 0,
3456 doc
: /* Internal function called by `color-defined-p', which see. */)
3458 Lisp_Object color
, frame
;
3461 FRAME_PTR f
= check_x_frame (frame
);
3463 CHECK_STRING (color
);
3465 if (x_defined_color (f
, SDATA (color
), &foo
, 0))
3471 DEFUN ("xw-color-values", Fxw_color_values
, Sxw_color_values
, 1, 2, 0,
3472 doc
: /* Internal function called by `color-values', which see. */)
3474 Lisp_Object color
, frame
;
3477 FRAME_PTR f
= check_x_frame (frame
);
3479 CHECK_STRING (color
);
3481 if (x_defined_color (f
, SDATA (color
), &foo
, 0))
3482 return list3 (make_number (foo
.red
),
3483 make_number (foo
.green
),
3484 make_number (foo
.blue
));
3489 DEFUN ("xw-display-color-p", Fxw_display_color_p
, Sxw_display_color_p
, 0, 1, 0,
3490 doc
: /* Internal function called by `display-color-p', which see. */)
3492 Lisp_Object display
;
3494 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3496 if (dpyinfo
->n_planes
<= 2)
3499 switch (dpyinfo
->visual
->class)
3512 DEFUN ("x-display-grayscale-p", Fx_display_grayscale_p
, Sx_display_grayscale_p
,
3514 doc
: /* Return t if the X display supports shades of gray.
3515 Note that color displays do support shades of gray.
3516 The optional argument DISPLAY specifies which display to ask about.
3517 DISPLAY should be either a frame or a display name (a string).
3518 If omitted or nil, that stands for the selected frame's display. */)
3520 Lisp_Object display
;
3522 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3524 if (dpyinfo
->n_planes
<= 1)
3527 switch (dpyinfo
->visual
->class)
3542 DEFUN ("x-display-pixel-width", Fx_display_pixel_width
, Sx_display_pixel_width
,
3544 doc
: /* Returns the width in pixels of the X display DISPLAY.
3545 The optional argument DISPLAY specifies which display to ask about.
3546 DISPLAY should be either a frame or a display name (a string).
3547 If omitted or nil, that stands for the selected frame's display. */)
3549 Lisp_Object display
;
3551 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3553 return make_number (dpyinfo
->width
);
3556 DEFUN ("x-display-pixel-height", Fx_display_pixel_height
,
3557 Sx_display_pixel_height
, 0, 1, 0,
3558 doc
: /* Returns the height in pixels of the X display DISPLAY.
3559 The optional argument DISPLAY specifies which display to ask about.
3560 DISPLAY should be either a frame or a display name (a string).
3561 If omitted or nil, that stands for the selected frame's display. */)
3563 Lisp_Object display
;
3565 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3567 return make_number (dpyinfo
->height
);
3570 DEFUN ("x-display-planes", Fx_display_planes
, Sx_display_planes
,
3572 doc
: /* Returns the number of bitplanes of the X display DISPLAY.
3573 The optional argument DISPLAY specifies which display to ask about.
3574 DISPLAY should be either a frame or a display name (a string).
3575 If omitted or nil, that stands for the selected frame's display. */)
3577 Lisp_Object display
;
3579 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3581 return make_number (dpyinfo
->n_planes
);
3584 DEFUN ("x-display-color-cells", Fx_display_color_cells
, Sx_display_color_cells
,
3586 doc
: /* Returns the number of color cells of the X display DISPLAY.
3587 The optional argument DISPLAY specifies which display to ask about.
3588 DISPLAY should be either a frame or a display name (a string).
3589 If omitted or nil, that stands for the selected frame's display. */)
3591 Lisp_Object display
;
3593 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3595 int nr_planes
= DisplayPlanes (dpyinfo
->display
,
3596 XScreenNumberOfScreen (dpyinfo
->screen
));
3598 /* Truncate nr_planes to 24 to avoid integer overflow.
3599 Some displays says 32, but only 24 bits are actually significant.
3600 There are only very few and rare video cards that have more than
3601 24 significant bits. Also 24 bits is more than 16 million colors,
3602 it "should be enough for everyone". */
3603 if (nr_planes
> 24) nr_planes
= 24;
3605 return make_number (1 << nr_planes
);
3608 DEFUN ("x-server-max-request-size", Fx_server_max_request_size
,
3609 Sx_server_max_request_size
,
3611 doc
: /* Returns the maximum request size of the X server of display DISPLAY.
3612 The optional argument DISPLAY specifies which display to ask about.
3613 DISPLAY should be either a frame or a display name (a string).
3614 If omitted or nil, that stands for the selected frame's display. */)
3616 Lisp_Object display
;
3618 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3620 return make_number (MAXREQUEST (dpyinfo
->display
));
3623 DEFUN ("x-server-vendor", Fx_server_vendor
, Sx_server_vendor
, 0, 1, 0,
3624 doc
: /* Returns the "vendor ID" string of the X server of display DISPLAY.
3625 \(Labelling every distributor as a "vendor" embodies the false assumption
3626 that operating systems cannot be developed and distributed noncommercially.)
3627 The optional argument DISPLAY specifies which display to ask about.
3628 DISPLAY should be either a frame or a display name (a string).
3629 If omitted or nil, that stands for the selected frame's display. */)
3631 Lisp_Object display
;
3633 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3634 char *vendor
= ServerVendor (dpyinfo
->display
);
3636 if (! vendor
) vendor
= "";
3637 return build_string (vendor
);
3640 DEFUN ("x-server-version", Fx_server_version
, Sx_server_version
, 0, 1, 0,
3641 doc
: /* Returns the version numbers of the X server of display DISPLAY.
3642 The value is a list of three integers: the major and minor
3643 version numbers of the X Protocol in use, and the distributor-specific release
3644 number. See also the function `x-server-vendor'.
3646 The optional argument DISPLAY specifies which display to ask about.
3647 DISPLAY should be either a frame or a display name (a string).
3648 If omitted or nil, that stands for the selected frame's display. */)
3650 Lisp_Object display
;
3652 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3653 Display
*dpy
= dpyinfo
->display
;
3655 return Fcons (make_number (ProtocolVersion (dpy
)),
3656 Fcons (make_number (ProtocolRevision (dpy
)),
3657 Fcons (make_number (VendorRelease (dpy
)), Qnil
)));
3660 DEFUN ("x-display-screens", Fx_display_screens
, Sx_display_screens
, 0, 1, 0,
3661 doc
: /* Return the number of screens on the X server of display DISPLAY.
3662 The optional argument DISPLAY specifies which display to ask about.
3663 DISPLAY should be either a frame or a display name (a string).
3664 If omitted or nil, that stands for the selected frame's display. */)
3666 Lisp_Object display
;
3668 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3670 return make_number (ScreenCount (dpyinfo
->display
));
3673 DEFUN ("x-display-mm-height", Fx_display_mm_height
, Sx_display_mm_height
, 0, 1, 0,
3674 doc
: /* Return the height in millimeters of the X display DISPLAY.
3675 The optional argument DISPLAY specifies which display to ask about.
3676 DISPLAY should be either a frame or a display name (a string).
3677 If omitted or nil, that stands for the selected frame's display. */)
3679 Lisp_Object display
;
3681 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3683 return make_number (HeightMMOfScreen (dpyinfo
->screen
));
3686 DEFUN ("x-display-mm-width", Fx_display_mm_width
, Sx_display_mm_width
, 0, 1, 0,
3687 doc
: /* Return the width in millimeters of the X display DISPLAY.
3688 The optional argument DISPLAY specifies which display to ask about.
3689 DISPLAY should be either a frame or a display name (a string).
3690 If omitted or nil, that stands for the selected frame's display. */)
3692 Lisp_Object display
;
3694 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3696 return make_number (WidthMMOfScreen (dpyinfo
->screen
));
3699 DEFUN ("x-display-backing-store", Fx_display_backing_store
,
3700 Sx_display_backing_store
, 0, 1, 0,
3701 doc
: /* Returns an indication of whether X display DISPLAY does backing store.
3702 The value may be `always', `when-mapped', or `not-useful'.
3703 The optional argument DISPLAY specifies which display to ask about.
3704 DISPLAY should be either a frame or a display name (a string).
3705 If omitted or nil, that stands for the selected frame's display. */)
3707 Lisp_Object display
;
3709 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3712 switch (DoesBackingStore (dpyinfo
->screen
))
3715 result
= intern ("always");
3719 result
= intern ("when-mapped");
3723 result
= intern ("not-useful");
3727 error ("Strange value for BackingStore parameter of screen");
3734 DEFUN ("x-display-visual-class", Fx_display_visual_class
,
3735 Sx_display_visual_class
, 0, 1, 0,
3736 doc
: /* Return the visual class of the X display DISPLAY.
3737 The value is one of the symbols `static-gray', `gray-scale',
3738 `static-color', `pseudo-color', `true-color', or `direct-color'.
3740 The optional argument DISPLAY specifies which display to ask about.
3741 DISPLAY should be either a frame or a display name (a string).
3742 If omitted or nil, that stands for the selected frame's display. */)
3744 Lisp_Object display
;
3746 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3749 switch (dpyinfo
->visual
->class)
3752 result
= intern ("static-gray");
3755 result
= intern ("gray-scale");
3758 result
= intern ("static-color");
3761 result
= intern ("pseudo-color");
3764 result
= intern ("true-color");
3767 result
= intern ("direct-color");
3770 error ("Display has an unknown visual class");
3777 DEFUN ("x-display-save-under", Fx_display_save_under
,
3778 Sx_display_save_under
, 0, 1, 0,
3779 doc
: /* Returns t if the X display DISPLAY supports the save-under feature.
3780 The optional argument DISPLAY specifies which display to ask about.
3781 DISPLAY should be either a frame or a display name (a string).
3782 If omitted or nil, that stands for the selected frame's display. */)
3784 Lisp_Object display
;
3786 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3788 if (DoesSaveUnders (dpyinfo
->screen
) == True
)
3796 register struct frame
*f
;
3798 return FRAME_PIXEL_WIDTH (f
);
3803 register struct frame
*f
;
3805 return FRAME_PIXEL_HEIGHT (f
);
3810 register struct frame
*f
;
3812 return FRAME_COLUMN_WIDTH (f
);
3817 register struct frame
*f
;
3819 return FRAME_LINE_HEIGHT (f
);
3824 register struct frame
*f
;
3826 return FRAME_X_DISPLAY_INFO (f
)->n_planes
;
3831 /************************************************************************
3833 ************************************************************************/
3836 /* Mapping visual names to visuals. */
3838 static struct visual_class
3845 {"StaticGray", StaticGray
},
3846 {"GrayScale", GrayScale
},
3847 {"StaticColor", StaticColor
},
3848 {"PseudoColor", PseudoColor
},
3849 {"TrueColor", TrueColor
},
3850 {"DirectColor", DirectColor
},
3855 #ifndef HAVE_XSCREENNUMBEROFSCREEN
3857 /* Value is the screen number of screen SCR. This is a substitute for
3858 the X function with the same name when that doesn't exist. */
3861 XScreenNumberOfScreen (scr
)
3862 register Screen
*scr
;
3864 Display
*dpy
= scr
->display
;
3867 for (i
= 0; i
< dpy
->nscreens
; ++i
)
3868 if (scr
== dpy
->screens
+ i
)
3874 #endif /* not HAVE_XSCREENNUMBEROFSCREEN */
3877 /* Select the visual that should be used on display DPYINFO. Set
3878 members of DPYINFO appropriately. Called from x_term_init. */
3881 select_visual (dpyinfo
)
3882 struct x_display_info
*dpyinfo
;
3884 Display
*dpy
= dpyinfo
->display
;
3885 Screen
*screen
= dpyinfo
->screen
;
3888 /* See if a visual is specified. */
3889 value
= display_x_get_resource (dpyinfo
,
3890 build_string ("visualClass"),
3891 build_string ("VisualClass"),
3893 if (STRINGP (value
))
3895 /* VALUE should be of the form CLASS-DEPTH, where CLASS is one
3896 of `PseudoColor', `TrueColor' etc. and DEPTH is the color
3897 depth, a decimal number. NAME is compared with case ignored. */
3898 char *s
= (char *) alloca (SBYTES (value
) + 1);
3903 strcpy (s
, SDATA (value
));
3904 dash
= index (s
, '-');
3907 dpyinfo
->n_planes
= atoi (dash
+ 1);
3911 /* We won't find a matching visual with depth 0, so that
3912 an error will be printed below. */
3913 dpyinfo
->n_planes
= 0;
3915 /* Determine the visual class. */
3916 for (i
= 0; visual_classes
[i
].name
; ++i
)
3917 if (xstricmp (s
, visual_classes
[i
].name
) == 0)
3919 class = visual_classes
[i
].class;
3923 /* Look up a matching visual for the specified class. */
3925 || !XMatchVisualInfo (dpy
, XScreenNumberOfScreen (screen
),
3926 dpyinfo
->n_planes
, class, &vinfo
))
3927 fatal ("Invalid visual specification `%s'", SDATA (value
));
3929 dpyinfo
->visual
= vinfo
.visual
;
3934 XVisualInfo
*vinfo
, vinfo_template
;
3936 dpyinfo
->visual
= DefaultVisualOfScreen (screen
);
3939 vinfo_template
.visualid
= XVisualIDFromVisual (dpyinfo
->visual
);
3941 vinfo_template
.visualid
= dpyinfo
->visual
->visualid
;
3943 vinfo_template
.screen
= XScreenNumberOfScreen (screen
);
3944 vinfo
= XGetVisualInfo (dpy
, VisualIDMask
| VisualScreenMask
,
3945 &vinfo_template
, &n_visuals
);
3947 fatal ("Can't get proper X visual info");
3949 dpyinfo
->n_planes
= vinfo
->depth
;
3950 XFree ((char *) vinfo
);
3955 /* Return the X display structure for the display named NAME.
3956 Open a new connection if necessary. */
3958 struct x_display_info
*
3959 x_display_info_for_name (name
)
3963 struct x_display_info
*dpyinfo
;
3965 CHECK_STRING (name
);
3967 if (! EQ (Vwindow_system
, intern ("x")))
3968 error ("Not using X Windows");
3970 for (dpyinfo
= x_display_list
, names
= x_display_name_list
;
3972 dpyinfo
= dpyinfo
->next
, names
= XCDR (names
))
3975 tem
= Fstring_equal (XCAR (XCAR (names
)), name
);
3980 /* Use this general default value to start with. */
3981 Vx_resource_name
= Vinvocation_name
;
3983 validate_x_resource_name ();
3985 dpyinfo
= x_term_init (name
, (char *)0,
3986 (char *) SDATA (Vx_resource_name
));
3989 error ("Cannot connect to X server %s", SDATA (name
));
3992 XSETFASTINT (Vwindow_system_version
, 11);
3998 DEFUN ("x-open-connection", Fx_open_connection
, Sx_open_connection
,
4000 doc
: /* Open a connection to an X server.
4001 DISPLAY is the name of the display to connect to.
4002 Optional second arg XRM-STRING is a string of resources in xrdb format.
4003 If the optional third arg MUST-SUCCEED is non-nil,
4004 terminate Emacs if we can't open the connection. */)
4005 (display
, xrm_string
, must_succeed
)
4006 Lisp_Object display
, xrm_string
, must_succeed
;
4008 unsigned char *xrm_option
;
4009 struct x_display_info
*dpyinfo
;
4011 CHECK_STRING (display
);
4012 if (! NILP (xrm_string
))
4013 CHECK_STRING (xrm_string
);
4015 if (! EQ (Vwindow_system
, intern ("x")))
4016 error ("Not using X Windows");
4018 if (! NILP (xrm_string
))
4019 xrm_option
= (unsigned char *) SDATA (xrm_string
);
4021 xrm_option
= (unsigned char *) 0;
4023 validate_x_resource_name ();
4025 /* This is what opens the connection and sets x_current_display.
4026 This also initializes many symbols, such as those used for input. */
4027 dpyinfo
= x_term_init (display
, xrm_option
,
4028 (char *) SDATA (Vx_resource_name
));
4032 if (!NILP (must_succeed
))
4033 fatal ("Cannot connect to X server %s.\n\
4034 Check the DISPLAY environment variable or use `-d'.\n\
4035 Also use the `xauth' program to verify that you have the proper\n\
4036 authorization information needed to connect the X server.\n\
4037 An insecure way to solve the problem may be to use `xhost'.\n",
4040 error ("Cannot connect to X server %s", SDATA (display
));
4045 XSETFASTINT (Vwindow_system_version
, 11);
4049 DEFUN ("x-close-connection", Fx_close_connection
,
4050 Sx_close_connection
, 1, 1, 0,
4051 doc
: /* Close the connection to DISPLAY's X server.
4052 For DISPLAY, specify either a frame or a display name (a string).
4053 If DISPLAY is nil, that stands for the selected frame's display. */)
4055 Lisp_Object display
;
4057 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
4060 if (dpyinfo
->reference_count
> 0)
4061 error ("Display still has frames on it");
4064 /* Free the fonts in the font table. */
4065 for (i
= 0; i
< dpyinfo
->n_fonts
; i
++)
4066 if (dpyinfo
->font_table
[i
].name
)
4068 XFreeFont (dpyinfo
->display
, dpyinfo
->font_table
[i
].font
);
4071 x_destroy_all_bitmaps (dpyinfo
);
4072 XSetCloseDownMode (dpyinfo
->display
, DestroyAll
);
4075 xg_display_close (dpyinfo
->display
);
4077 #ifdef USE_X_TOOLKIT
4078 XtCloseDisplay (dpyinfo
->display
);
4080 XCloseDisplay (dpyinfo
->display
);
4082 #endif /* ! USE_GTK */
4084 x_delete_display (dpyinfo
);
4090 DEFUN ("x-display-list", Fx_display_list
, Sx_display_list
, 0, 0, 0,
4091 doc
: /* Return the list of display names that Emacs has connections to. */)
4094 Lisp_Object tail
, result
;
4097 for (tail
= x_display_name_list
; ! NILP (tail
); tail
= XCDR (tail
))
4098 result
= Fcons (XCAR (XCAR (tail
)), result
);
4103 DEFUN ("x-synchronize", Fx_synchronize
, Sx_synchronize
, 1, 2, 0,
4104 doc
: /* If ON is non-nil, report X errors as soon as the erring request is made.
4105 If ON is nil, allow buffering of requests.
4106 Turning on synchronization prohibits the Xlib routines from buffering
4107 requests and seriously degrades performance, but makes debugging much
4109 The optional second argument DISPLAY specifies which display to act on.
4110 DISPLAY should be either a frame or a display name (a string).
4111 If DISPLAY is omitted or nil, that stands for the selected frame's display. */)
4113 Lisp_Object display
, on
;
4115 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
4117 XSynchronize (dpyinfo
->display
, !EQ (on
, Qnil
));
4122 /* Wait for responses to all X commands issued so far for frame F. */
4129 XSync (FRAME_X_DISPLAY (f
), False
);
4134 /***********************************************************************
4136 ***********************************************************************/
4138 DEFUN ("x-change-window-property", Fx_change_window_property
,
4139 Sx_change_window_property
, 2, 6, 0,
4140 doc
: /* Change window property PROP to VALUE on the X window of FRAME.
4141 PROP must be a string.
4142 VALUE may be a string or a list of conses, numbers and/or strings.
4143 If an element in the list is a string, it is converted to
4144 an Atom and the value of the Atom is used. If an element is a cons,
4145 it is converted to a 32 bit number where the car is the 16 top bits and the
4146 cdr is the lower 16 bits.
4147 FRAME nil or omitted means use the selected frame.
4148 If TYPE is given and non-nil, it is the name of the type of VALUE.
4149 If TYPE is not given or nil, the type is STRING.
4150 FORMAT gives the size in bits of each element if VALUE is a list.
4151 It must be one of 8, 16 or 32.
4152 If VALUE is a string or FORMAT is nil or not given, FORMAT defaults to 8.
4153 If OUTER_P is non-nil, the property is changed for the outer X window of
4154 FRAME. Default is to change on the edit X window.
4157 (prop
, value
, frame
, type
, format
, outer_p
)
4158 Lisp_Object prop
, value
, frame
, type
, format
, outer_p
;
4160 struct frame
*f
= check_x_frame (frame
);
4162 Atom target_type
= XA_STRING
;
4163 int element_format
= 8;
4164 unsigned char *data
;
4168 CHECK_STRING (prop
);
4170 if (! NILP (format
))
4172 CHECK_NUMBER (format
);
4173 element_format
= XFASTINT (format
);
4175 if (element_format
!= 8 && element_format
!= 16
4176 && element_format
!= 32)
4177 error ("FORMAT must be one of 8, 16 or 32");
4182 nelements
= x_check_property_data (value
);
4183 if (nelements
== -1)
4184 error ("Bad data in VALUE, must be number, string or cons");
4186 if (element_format
== 8)
4187 data
= (unsigned char *) xmalloc (nelements
);
4188 else if (element_format
== 16)
4189 data
= (unsigned char *) xmalloc (nelements
*2);
4190 else /* format == 32 */
4191 /* The man page for XChangeProperty:
4192 "If the specified format is 32, the property data must be a
4194 This applies even if long is more than 64 bits. The X library
4195 converts to 32 bits before sending to the X server. */
4196 data
= (unsigned char *) xmalloc (nelements
* sizeof(long));
4198 x_fill_property_data (FRAME_X_DISPLAY (f
), value
, data
, element_format
);
4202 CHECK_STRING (value
);
4203 data
= SDATA (value
);
4204 nelements
= SCHARS (value
);
4208 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4211 CHECK_STRING (type
);
4212 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (type
), False
);
4215 if (! NILP (outer_p
)) w
= FRAME_OUTER_WINDOW (f
);
4216 else w
= FRAME_X_WINDOW (f
);
4218 XChangeProperty (FRAME_X_DISPLAY (f
), w
,
4219 prop_atom
, target_type
, element_format
, PropModeReplace
,
4222 if (CONSP (value
)) xfree (data
);
4224 /* Make sure the property is set when we return. */
4225 XFlush (FRAME_X_DISPLAY (f
));
4232 DEFUN ("x-delete-window-property", Fx_delete_window_property
,
4233 Sx_delete_window_property
, 1, 2, 0,
4234 doc
: /* Remove window property PROP from X window of FRAME.
4235 FRAME nil or omitted means use the selected frame. Value is PROP. */)
4237 Lisp_Object prop
, frame
;
4239 struct frame
*f
= check_x_frame (frame
);
4242 CHECK_STRING (prop
);
4244 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4245 XDeleteProperty (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), prop_atom
);
4247 /* Make sure the property is removed when we return. */
4248 XFlush (FRAME_X_DISPLAY (f
));
4255 DEFUN ("x-window-property", Fx_window_property
, Sx_window_property
,
4257 doc
: /* Value is the value of window property PROP on FRAME.
4258 If FRAME is nil or omitted, use the selected frame.
4259 If TYPE is nil or omitted, get the property as a string. Otherwise TYPE
4260 is the name of the Atom that denotes the type expected.
4261 If SOURCE is non-nil, get the property on that window instead of from
4262 FRAME. The number 0 denotes the root window.
4263 If DELETE_P is non-nil, delete the property after retreiving it.
4264 If VECTOR_RET_P is non-nil, don't return a string but a vector of values.
4266 Value is nil if FRAME hasn't a property with name PROP or if PROP has
4267 no value of TYPE. */)
4268 (prop
, frame
, type
, source
, delete_p
, vector_ret_p
)
4269 Lisp_Object prop
, frame
, type
, source
, delete_p
, vector_ret_p
;
4271 struct frame
*f
= check_x_frame (frame
);
4274 Lisp_Object prop_value
= Qnil
;
4275 unsigned char *tmp_data
= NULL
;
4277 Atom target_type
= XA_STRING
;
4279 unsigned long actual_size
, bytes_remaining
;
4280 Window target_window
= FRAME_X_WINDOW (f
);
4281 struct gcpro gcpro1
;
4283 GCPRO1 (prop_value
);
4284 CHECK_STRING (prop
);
4286 if (! NILP (source
))
4288 if (NUMBERP (source
))
4290 if (FLOATP (source
))
4291 target_window
= (Window
) XFLOAT (source
);
4293 target_window
= XFASTINT (source
);
4295 if (target_window
== 0)
4296 target_window
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4298 else if (CONSP (source
))
4299 target_window
= cons_to_long (source
);
4305 if (strcmp ("AnyPropertyType", SDATA (type
)) == 0)
4306 target_type
= AnyPropertyType
;
4308 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (type
), False
);
4311 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4312 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4313 prop_atom
, 0, 0, False
, target_type
,
4314 &actual_type
, &actual_format
, &actual_size
,
4315 &bytes_remaining
, &tmp_data
);
4318 int size
= bytes_remaining
;
4323 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4324 prop_atom
, 0, bytes_remaining
,
4325 ! NILP (delete_p
), target_type
,
4326 &actual_type
, &actual_format
,
4327 &actual_size
, &bytes_remaining
,
4329 if (rc
== Success
&& tmp_data
)
4331 /* The man page for XGetWindowProperty says:
4332 "If the returned format is 32, the returned data is represented
4333 as a long array and should be cast to that type to obtain the
4335 This applies even if long is more than 32 bits, the X library
4336 converts from 32 bit elements received from the X server to long
4337 and passes the long array to us. Thus, for that case bcopy can not
4338 be used. We convert to a 32 bit type here, because so much code
4341 The bytes and offsets passed to XGetWindowProperty refers to the
4342 property and those are indeed in 32 bit quantities if format is
4345 if (actual_format
== 32 && actual_format
< BITS_PER_LONG
)
4348 int *idata
= (int *) tmp_data
;
4349 long *ldata
= (long *) tmp_data
;
4351 for (i
= 0; i
< actual_size
; ++i
)
4352 idata
[i
] = (int) ldata
[i
];
4355 if (NILP (vector_ret_p
))
4356 prop_value
= make_string (tmp_data
, size
);
4358 prop_value
= x_property_data_to_lisp (f
,
4365 if (tmp_data
) XFree (tmp_data
);
4375 /***********************************************************************
4377 ***********************************************************************/
4379 /* If non-null, an asynchronous timer that, when it expires, displays
4380 an hourglass cursor on all frames. */
4382 static struct atimer
*hourglass_atimer
;
4384 /* Non-zero means an hourglass cursor is currently shown. */
4386 static int hourglass_shown_p
;
4388 /* Number of seconds to wait before displaying an hourglass cursor. */
4390 static Lisp_Object Vhourglass_delay
;
4392 /* Default number of seconds to wait before displaying an hourglass
4395 #define DEFAULT_HOURGLASS_DELAY 1
4397 /* Function prototypes. */
4399 static void show_hourglass
P_ ((struct atimer
*));
4400 static void hide_hourglass
P_ ((void));
4402 /* Return non-zero if houglass timer has been started or hourglass is shown. */
4405 hourglass_started ()
4407 return hourglass_shown_p
|| hourglass_atimer
!= NULL
;
4411 /* Cancel a currently active hourglass timer, and start a new one. */
4417 int secs
, usecs
= 0;
4419 /* Don't bother for ttys. */
4420 if (NILP (Vwindow_system
))
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
;
4635 int face_change_count_before
= face_change_count
;
4637 struct buffer
*old_buffer
;
4641 parms
= Fcopy_alist (parms
);
4644 kb
= dpyinfo
->kboard
;
4646 kb
= &the_only_kboard
;
4649 /* Get the name of the frame to use for resource lookup. */
4650 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
4652 && !EQ (name
, Qunbound
)
4654 error ("Invalid frame name--not a string or nil");
4657 GCPRO3 (parms
, name
, frame
);
4659 XSETFRAME (frame
, f
);
4661 buffer
= Fget_buffer_create (build_string (" *tip*"));
4662 Fset_window_buffer (FRAME_ROOT_WINDOW (f
), buffer
, Qnil
);
4663 old_buffer
= current_buffer
;
4664 set_buffer_internal_1 (XBUFFER (buffer
));
4665 current_buffer
->truncate_lines
= Qnil
;
4666 specbind (Qinhibit_read_only
, Qt
);
4667 specbind (Qinhibit_modification_hooks
, Qt
);
4670 set_buffer_internal_1 (old_buffer
);
4672 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 0;
4673 record_unwind_protect (unwind_create_tip_frame
, frame
);
4675 /* By setting the output method, we're essentially saying that
4676 the frame is live, as per FRAME_LIVE_P. If we get a signal
4677 from this point on, x_destroy_window might screw up reference
4679 f
->output_method
= output_x_window
;
4680 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
4681 bzero (f
->output_data
.x
, sizeof (struct x_output
));
4682 f
->output_data
.x
->icon_bitmap
= -1;
4683 FRAME_FONTSET (f
) = -1;
4684 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
4685 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
4686 #ifdef USE_TOOLKIT_SCROLL_BARS
4687 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
4688 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
4689 #endif /* USE_TOOLKIT_SCROLL_BARS */
4690 f
->icon_name
= Qnil
;
4691 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
4693 image_cache_refcount
= FRAME_X_IMAGE_CACHE (f
)->refcount
;
4694 dpyinfo_refcount
= dpyinfo
->reference_count
;
4695 #endif /* GLYPH_DEBUG */
4697 FRAME_KBOARD (f
) = kb
;
4699 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4700 f
->output_data
.x
->explicit_parent
= 0;
4702 /* These colors will be set anyway later, but it's important
4703 to get the color reference counts right, so initialize them! */
4706 struct gcpro gcpro1
;
4708 black
= build_string ("black");
4710 f
->output_data
.x
->foreground_pixel
4711 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4712 f
->output_data
.x
->background_pixel
4713 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4714 f
->output_data
.x
->cursor_pixel
4715 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4716 f
->output_data
.x
->cursor_foreground_pixel
4717 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4718 f
->output_data
.x
->border_pixel
4719 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4720 f
->output_data
.x
->mouse_pixel
4721 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4725 /* Set the name; the functions to which we pass f expect the name to
4727 if (EQ (name
, Qunbound
) || NILP (name
))
4729 f
->name
= build_string (dpyinfo
->x_id_name
);
4730 f
->explicit_name
= 0;
4735 f
->explicit_name
= 1;
4736 /* use the frame's title when getting resources for this frame. */
4737 specbind (Qx_resource_name
, name
);
4740 /* Extract the window parameters from the supplied values that are
4741 needed to determine window geometry. */
4745 font
= x_get_arg (dpyinfo
, parms
, Qfont
, "font", "Font", RES_TYPE_STRING
);
4748 /* First, try whatever font the caller has specified. */
4751 tem
= Fquery_fontset (font
, Qnil
);
4753 font
= x_new_fontset (f
, SDATA (tem
));
4755 font
= x_new_font (f
, SDATA (font
));
4758 /* Try out a font which we hope has bold and italic variations. */
4759 if (!STRINGP (font
))
4760 font
= x_new_font (f
, "-adobe-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-1");
4761 if (!STRINGP (font
))
4762 font
= x_new_font (f
, "-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-1");
4763 if (! STRINGP (font
))
4764 font
= x_new_font (f
, "-*-*-medium-r-normal-*-*-140-*-*-c-*-iso8859-1");
4765 if (! STRINGP (font
))
4766 /* This was formerly the first thing tried, but it finds too many fonts
4767 and takes too long. */
4768 font
= x_new_font (f
, "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1");
4769 /* If those didn't work, look for something which will at least work. */
4770 if (! STRINGP (font
))
4771 font
= x_new_font (f
, "-*-fixed-*-*-*-*-*-140-*-*-c-*-iso8859-1");
4773 if (! STRINGP (font
))
4774 font
= build_string ("fixed");
4776 x_default_parameter (f
, parms
, Qfont
, font
,
4777 "font", "Font", RES_TYPE_STRING
);
4780 x_default_parameter (f
, parms
, Qborder_width
, make_number (2),
4781 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
4783 /* This defaults to 2 in order to match xterm. We recognize either
4784 internalBorderWidth or internalBorder (which is what xterm calls
4786 if (NILP (Fassq (Qinternal_border_width
, parms
)))
4790 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
4791 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
4792 if (! EQ (value
, Qunbound
))
4793 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
4797 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
4798 "internalBorderWidth", "internalBorderWidth",
4801 /* Also do the stuff which must be set before the window exists. */
4802 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
4803 "foreground", "Foreground", RES_TYPE_STRING
);
4804 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
4805 "background", "Background", RES_TYPE_STRING
);
4806 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
4807 "pointerColor", "Foreground", RES_TYPE_STRING
);
4808 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
4809 "cursorColor", "Foreground", RES_TYPE_STRING
);
4810 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
4811 "borderColor", "BorderColor", RES_TYPE_STRING
);
4813 /* Init faces before x_default_parameter is called for scroll-bar
4814 parameters because that function calls x_set_scroll_bar_width,
4815 which calls change_frame_size, which calls Fset_window_buffer,
4816 which runs hooks, which call Fvertical_motion. At the end, we
4817 end up in init_iterator with a null face cache, which should not
4819 init_frame_faces (f
);
4821 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4823 window_prompting
= x_figure_window_size (f
, parms
, 0);
4826 XSetWindowAttributes attrs
;
4830 mask
= CWBackPixel
| CWOverrideRedirect
| CWEventMask
;
4831 if (DoesSaveUnders (dpyinfo
->screen
))
4832 mask
|= CWSaveUnder
;
4834 /* Window managers look at the override-redirect flag to determine
4835 whether or net to give windows a decoration (Xlib spec, chapter
4837 attrs
.override_redirect
= True
;
4838 attrs
.save_under
= True
;
4839 attrs
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
4840 /* Arrange for getting MapNotify and UnmapNotify events. */
4841 attrs
.event_mask
= StructureNotifyMask
;
4843 = FRAME_X_WINDOW (f
)
4844 = XCreateWindow (FRAME_X_DISPLAY (f
),
4845 FRAME_X_DISPLAY_INFO (f
)->root_window
,
4846 /* x, y, width, height */
4850 CopyFromParent
, InputOutput
, CopyFromParent
,
4857 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
4858 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4859 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
4860 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4861 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
4862 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
4864 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
4865 Change will not be effected unless different from the current
4867 width
= FRAME_COLS (f
);
4868 height
= FRAME_LINES (f
);
4869 SET_FRAME_COLS (f
, 0);
4870 FRAME_LINES (f
) = 0;
4871 change_frame_size (f
, height
, width
, 1, 0, 0);
4873 /* Add `tooltip' frame parameter's default value. */
4874 if (NILP (Fframe_parameter (frame
, intern ("tooltip"))))
4875 Fmodify_frame_parameters (frame
, Fcons (Fcons (intern ("tooltip"), Qt
),
4878 /* Set up faces after all frame parameters are known. This call
4879 also merges in face attributes specified for new frames.
4881 Frame parameters may be changed if .Xdefaults contains
4882 specifications for the default font. For example, if there is an
4883 `Emacs.default.attributeBackground: pink', the `background-color'
4884 attribute of the frame get's set, which let's the internal border
4885 of the tooltip frame appear in pink. Prevent this. */
4887 Lisp_Object bg
= Fframe_parameter (frame
, Qbackground_color
);
4889 /* Set tip_frame here, so that */
4891 call1 (Qface_set_after_frame_default
, frame
);
4893 if (!EQ (bg
, Fframe_parameter (frame
, Qbackground_color
)))
4894 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qbackground_color
, bg
),
4902 /* It is now ok to make the frame official even if we get an error
4903 below. And the frame needs to be on Vframe_list or making it
4904 visible won't work. */
4905 Vframe_list
= Fcons (frame
, Vframe_list
);
4907 /* Now that the frame is official, it counts as a reference to
4909 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
4911 /* Setting attributes of faces of the tooltip frame from resources
4912 and similar will increment face_change_count, which leads to the
4913 clearing of all current matrices. Since this isn't necessary
4914 here, avoid it by resetting face_change_count to the value it
4915 had before we created the tip frame. */
4916 face_change_count
= face_change_count_before
;
4918 /* Discard the unwind_protect. */
4919 return unbind_to (count
, frame
);
4923 /* Compute where to display tip frame F. PARMS is the list of frame
4924 parameters for F. DX and DY are specified offsets from the current
4925 location of the mouse. WIDTH and HEIGHT are the width and height
4926 of the tooltip. Return coordinates relative to the root window of
4927 the display in *ROOT_X, and *ROOT_Y. */
4930 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, root_x
, root_y
)
4932 Lisp_Object parms
, dx
, dy
;
4934 int *root_x
, *root_y
;
4936 Lisp_Object left
, top
;
4941 /* User-specified position? */
4942 left
= Fcdr (Fassq (Qleft
, parms
));
4943 top
= Fcdr (Fassq (Qtop
, parms
));
4945 /* Move the tooltip window where the mouse pointer is. Resize and
4947 if (!INTEGERP (left
) || !INTEGERP (top
))
4950 XQueryPointer (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
4951 &root
, &child
, root_x
, root_y
, &win_x
, &win_y
, &pmask
);
4956 *root_y
= XINT (top
);
4957 else if (*root_y
+ XINT (dy
) <= 0)
4958 *root_y
= 0; /* Can happen for negative dy */
4959 else if (*root_y
+ XINT (dy
) + height
<= FRAME_X_DISPLAY_INFO (f
)->height
)
4960 /* It fits below the pointer */
4961 *root_y
+= XINT (dy
);
4962 else if (height
+ XINT (dy
) <= *root_y
)
4963 /* It fits above the pointer. */
4964 *root_y
-= height
+ XINT (dy
);
4966 /* Put it on the top. */
4969 if (INTEGERP (left
))
4970 *root_x
= XINT (left
);
4971 else if (*root_x
+ XINT (dx
) <= 0)
4972 *root_x
= 0; /* Can happen for negative dx */
4973 else if (*root_x
+ XINT (dx
) + width
<= FRAME_X_DISPLAY_INFO (f
)->width
)
4974 /* It fits to the right of the pointer. */
4975 *root_x
+= XINT (dx
);
4976 else if (width
+ XINT (dx
) <= *root_x
)
4977 /* It fits to the left of the pointer. */
4978 *root_x
-= width
+ XINT (dx
);
4980 /* Put it left-justified on the screen--it ought to fit that way. */
4985 DEFUN ("x-show-tip", Fx_show_tip
, Sx_show_tip
, 1, 6, 0,
4986 doc
: /* Show STRING in a "tooltip" window on frame FRAME.
4987 A tooltip window is a small X window displaying a string.
4989 FRAME nil or omitted means use the selected frame.
4991 PARMS is an optional list of frame parameters which can be used to
4992 change the tooltip's appearance.
4994 Automatically hide the tooltip after TIMEOUT seconds. TIMEOUT nil
4995 means use the default timeout of 5 seconds.
4997 If the list of frame parameters PARAMS contains a `left' parameters,
4998 the tooltip is displayed at that x-position. Otherwise it is
4999 displayed at the mouse position, with offset DX added (default is 5 if
5000 DX isn't specified). Likewise for the y-position; if a `top' frame
5001 parameter is specified, it determines the y-position of the tooltip
5002 window, otherwise it is displayed at the mouse position, with offset
5003 DY added (default is -10).
5005 A tooltip's maximum size is specified by `x-max-tooltip-size'.
5006 Text larger than the specified size is clipped. */)
5007 (string
, frame
, parms
, timeout
, dx
, dy
)
5008 Lisp_Object string
, frame
, parms
, timeout
, dx
, dy
;
5013 struct buffer
*old_buffer
;
5014 struct text_pos pos
;
5015 int i
, width
, height
;
5016 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
5017 int old_windows_or_buffers_changed
= windows_or_buffers_changed
;
5018 int count
= SPECPDL_INDEX ();
5020 specbind (Qinhibit_redisplay
, Qt
);
5022 GCPRO4 (string
, parms
, frame
, timeout
);
5024 CHECK_STRING (string
);
5025 f
= check_x_frame (frame
);
5027 timeout
= make_number (5);
5029 CHECK_NATNUM (timeout
);
5032 dx
= make_number (5);
5037 dy
= make_number (-10);
5041 if (NILP (last_show_tip_args
))
5042 last_show_tip_args
= Fmake_vector (make_number (3), Qnil
);
5044 if (!NILP (tip_frame
))
5046 Lisp_Object last_string
= AREF (last_show_tip_args
, 0);
5047 Lisp_Object last_frame
= AREF (last_show_tip_args
, 1);
5048 Lisp_Object last_parms
= AREF (last_show_tip_args
, 2);
5050 if (EQ (frame
, last_frame
)
5051 && !NILP (Fequal (last_string
, string
))
5052 && !NILP (Fequal (last_parms
, parms
)))
5054 struct frame
*f
= XFRAME (tip_frame
);
5056 /* Only DX and DY have changed. */
5057 if (!NILP (tip_timer
))
5059 Lisp_Object timer
= tip_timer
;
5061 call1 (Qcancel_timer
, timer
);
5065 compute_tip_xy (f
, parms
, dx
, dy
, FRAME_PIXEL_WIDTH (f
),
5066 FRAME_PIXEL_HEIGHT (f
), &root_x
, &root_y
);
5067 XMoveWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5074 /* Hide a previous tip, if any. */
5077 ASET (last_show_tip_args
, 0, string
);
5078 ASET (last_show_tip_args
, 1, frame
);
5079 ASET (last_show_tip_args
, 2, parms
);
5081 /* Add default values to frame parameters. */
5082 if (NILP (Fassq (Qname
, parms
)))
5083 parms
= Fcons (Fcons (Qname
, build_string ("tooltip")), parms
);
5084 if (NILP (Fassq (Qinternal_border_width
, parms
)))
5085 parms
= Fcons (Fcons (Qinternal_border_width
, make_number (3)), parms
);
5086 if (NILP (Fassq (Qborder_width
, parms
)))
5087 parms
= Fcons (Fcons (Qborder_width
, make_number (1)), parms
);
5088 if (NILP (Fassq (Qborder_color
, parms
)))
5089 parms
= Fcons (Fcons (Qborder_color
, build_string ("lightyellow")), parms
);
5090 if (NILP (Fassq (Qbackground_color
, parms
)))
5091 parms
= Fcons (Fcons (Qbackground_color
, build_string ("lightyellow")),
5094 /* Create a frame for the tooltip, and record it in the global
5095 variable tip_frame. */
5096 frame
= x_create_tip_frame (FRAME_X_DISPLAY_INFO (f
), parms
, string
);
5099 /* Set up the frame's root window. */
5100 w
= XWINDOW (FRAME_ROOT_WINDOW (f
));
5101 w
->left_col
= w
->top_line
= make_number (0);
5103 if (CONSP (Vx_max_tooltip_size
)
5104 && INTEGERP (XCAR (Vx_max_tooltip_size
))
5105 && XINT (XCAR (Vx_max_tooltip_size
)) > 0
5106 && INTEGERP (XCDR (Vx_max_tooltip_size
))
5107 && XINT (XCDR (Vx_max_tooltip_size
)) > 0)
5109 w
->total_cols
= XCAR (Vx_max_tooltip_size
);
5110 w
->total_lines
= XCDR (Vx_max_tooltip_size
);
5114 w
->total_cols
= make_number (80);
5115 w
->total_lines
= make_number (40);
5118 FRAME_TOTAL_COLS (f
) = XINT (w
->total_cols
);
5120 w
->pseudo_window_p
= 1;
5122 /* Display the tooltip text in a temporary buffer. */
5123 old_buffer
= current_buffer
;
5124 set_buffer_internal_1 (XBUFFER (XWINDOW (FRAME_ROOT_WINDOW (f
))->buffer
));
5125 current_buffer
->truncate_lines
= Qnil
;
5126 clear_glyph_matrix (w
->desired_matrix
);
5127 clear_glyph_matrix (w
->current_matrix
);
5128 SET_TEXT_POS (pos
, BEGV
, BEGV_BYTE
);
5129 try_window (FRAME_ROOT_WINDOW (f
), pos
, 0);
5131 /* Compute width and height of the tooltip. */
5133 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
5135 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
5139 /* Stop at the first empty row at the end. */
5140 if (!row
->enabled_p
|| !row
->displays_text_p
)
5143 /* Let the row go over the full width of the frame. */
5144 row
->full_width_p
= 1;
5146 /* There's a glyph at the end of rows that is used to place
5147 the cursor there. Don't include the width of this glyph. */
5148 if (row
->used
[TEXT_AREA
])
5150 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
5151 row_width
= row
->pixel_width
- last
->pixel_width
;
5154 row_width
= row
->pixel_width
;
5156 height
+= row
->height
;
5157 width
= max (width
, row_width
);
5160 /* Add the frame's internal border to the width and height the X
5161 window should have. */
5162 height
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5163 width
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5165 /* Move the tooltip window where the mouse pointer is. Resize and
5167 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
5170 XMoveResizeWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5171 root_x
, root_y
, width
, height
);
5172 XMapRaised (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
));
5175 /* Draw into the window. */
5176 w
->must_be_updated_p
= 1;
5177 update_single_window (w
, 1);
5179 /* Restore original current buffer. */
5180 set_buffer_internal_1 (old_buffer
);
5181 windows_or_buffers_changed
= old_windows_or_buffers_changed
;
5184 /* Let the tip disappear after timeout seconds. */
5185 tip_timer
= call3 (intern ("run-at-time"), timeout
, Qnil
,
5186 intern ("x-hide-tip"));
5189 return unbind_to (count
, Qnil
);
5193 DEFUN ("x-hide-tip", Fx_hide_tip
, Sx_hide_tip
, 0, 0, 0,
5194 doc
: /* Hide the current tooltip window, if there is any.
5195 Value is t if tooltip was open, nil otherwise. */)
5199 Lisp_Object deleted
, frame
, timer
;
5200 struct gcpro gcpro1
, gcpro2
;
5202 /* Return quickly if nothing to do. */
5203 if (NILP (tip_timer
) && NILP (tip_frame
))
5208 GCPRO2 (frame
, timer
);
5209 tip_frame
= tip_timer
= deleted
= Qnil
;
5211 count
= SPECPDL_INDEX ();
5212 specbind (Qinhibit_redisplay
, Qt
);
5213 specbind (Qinhibit_quit
, Qt
);
5216 call1 (Qcancel_timer
, timer
);
5220 Fdelete_frame (frame
, Qnil
);
5224 /* Bloodcurdling hack alert: The Lucid menu bar widget's
5225 redisplay procedure is not called when a tip frame over menu
5226 items is unmapped. Redisplay the menu manually... */
5228 struct frame
*f
= SELECTED_FRAME ();
5229 Widget w
= f
->output_data
.x
->menubar_widget
;
5230 extern void xlwmenu_redisplay
P_ ((Widget
));
5232 if (!DoesSaveUnders (FRAME_X_DISPLAY_INFO (f
)->screen
)
5236 xlwmenu_redisplay (w
);
5240 #endif /* USE_LUCID */
5244 return unbind_to (count
, deleted
);
5249 /***********************************************************************
5250 File selection dialog
5251 ***********************************************************************/
5253 DEFUN ("x-uses-old-gtk-dialog", Fx_uses_old_gtk_dialog
,
5254 Sx_uses_old_gtk_dialog
,
5256 doc
: /* Return t if the old Gtk+ file selection dialog is used. */)
5260 extern int use_dialog_box
;
5261 extern int use_file_dialog
;
5266 && xg_uses_old_file_dialog ())
5274 /* Callback for "OK" and "Cancel" on file selection dialog. */
5277 file_dialog_cb (widget
, client_data
, call_data
)
5279 XtPointer call_data
, client_data
;
5281 int *result
= (int *) client_data
;
5282 XmAnyCallbackStruct
*cb
= (XmAnyCallbackStruct
*) call_data
;
5283 *result
= cb
->reason
;
5287 /* Callback for unmapping a file selection dialog. This is used to
5288 capture the case where a dialog is closed via a window manager's
5289 closer button, for example. Using a XmNdestroyCallback didn't work
5293 file_dialog_unmap_cb (widget
, client_data
, call_data
)
5295 XtPointer call_data
, client_data
;
5297 int *result
= (int *) client_data
;
5298 *result
= XmCR_CANCEL
;
5302 clean_up_file_dialog (arg
)
5305 struct Lisp_Save_Value
*p
= XSAVE_VALUE (arg
);
5306 Widget dialog
= (Widget
) p
->pointer
;
5310 XtUnmanageChild (dialog
);
5311 XtDestroyWidget (dialog
);
5312 x_menu_set_in_use (0);
5319 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5320 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5321 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5322 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5323 or directory must exist. ONLY-DIR-P is ignored." */)
5324 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
)
5325 Lisp_Object prompt
, dir
, default_filename
, mustmatch
, only_dir_p
;
5328 struct frame
*f
= SELECTED_FRAME ();
5329 Lisp_Object file
= Qnil
;
5330 Lisp_Object decoded_file
;
5331 Widget dialog
, text
, help
;
5334 extern XtAppContext Xt_app_con
;
5335 XmString dir_xmstring
, pattern_xmstring
;
5336 int count
= SPECPDL_INDEX ();
5337 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5341 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5343 if (popup_activated ())
5344 error ("Trying to use a menu from within a menu-entry");
5346 CHECK_STRING (prompt
);
5349 /* Prevent redisplay. */
5350 specbind (Qinhibit_redisplay
, Qt
);
5354 /* Create the dialog with PROMPT as title, using DIR as initial
5355 directory and using "*" as pattern. */
5356 dir
= Fexpand_file_name (dir
, Qnil
);
5357 dir_xmstring
= XmStringCreateLocalized (SDATA (dir
));
5358 pattern_xmstring
= XmStringCreateLocalized ("*");
5360 XtSetArg (al
[ac
], XmNtitle
, SDATA (prompt
)); ++ac
;
5361 XtSetArg (al
[ac
], XmNdirectory
, dir_xmstring
); ++ac
;
5362 XtSetArg (al
[ac
], XmNpattern
, pattern_xmstring
); ++ac
;
5363 XtSetArg (al
[ac
], XmNresizePolicy
, XmRESIZE_GROW
); ++ac
;
5364 XtSetArg (al
[ac
], XmNdialogStyle
, XmDIALOG_APPLICATION_MODAL
); ++ac
;
5365 dialog
= XmCreateFileSelectionDialog (f
->output_data
.x
->widget
,
5367 XmStringFree (dir_xmstring
);
5368 XmStringFree (pattern_xmstring
);
5370 /* Add callbacks for OK and Cancel. */
5371 XtAddCallback (dialog
, XmNokCallback
, file_dialog_cb
,
5372 (XtPointer
) &result
);
5373 XtAddCallback (dialog
, XmNcancelCallback
, file_dialog_cb
,
5374 (XtPointer
) &result
);
5375 XtAddCallback (dialog
, XmNunmapCallback
, file_dialog_unmap_cb
,
5376 (XtPointer
) &result
);
5378 /* Remove the help button since we can't display help. */
5379 help
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_HELP_BUTTON
);
5380 XtUnmanageChild (help
);
5382 /* Mark OK button as default. */
5383 XtVaSetValues (XmFileSelectionBoxGetChild (dialog
, XmDIALOG_OK_BUTTON
),
5384 XmNshowAsDefault
, True
, NULL
);
5386 /* If MUSTMATCH is non-nil, disable the file entry field of the
5387 dialog, so that the user must select a file from the files list
5388 box. We can't remove it because we wouldn't have a way to get at
5389 the result file name, then. */
5390 text
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5391 if (!NILP (mustmatch
))
5394 label
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_SELECTION_LABEL
);
5395 XtSetSensitive (text
, False
);
5396 XtSetSensitive (label
, False
);
5399 /* Manage the dialog, so that list boxes get filled. */
5400 XtManageChild (dialog
);
5402 if (STRINGP (default_filename
))
5404 XmString default_xmstring
;
5405 Widget wtext
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5406 Widget list
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_LIST
);
5408 XmTextPosition last_pos
= XmTextFieldGetLastPosition (wtext
);
5409 XmTextFieldReplace (wtext
, 0, last_pos
,
5410 (SDATA (Ffile_name_nondirectory (default_filename
))));
5412 /* Select DEFAULT_FILENAME in the files list box. DEFAULT_FILENAME
5413 must include the path for this to work. */
5415 default_xmstring
= XmStringCreateLocalized (SDATA (default_filename
));
5417 if (XmListItemExists (list
, default_xmstring
))
5419 int item_pos
= XmListItemPos (list
, default_xmstring
);
5420 /* Select the item and scroll it into view. */
5421 XmListSelectPos (list
, item_pos
, True
);
5422 XmListSetPos (list
, item_pos
);
5425 XmStringFree (default_xmstring
);
5428 record_unwind_protect (clean_up_file_dialog
, make_save_value (dialog
, 0));
5430 /* Process events until the user presses Cancel or OK. */
5431 x_menu_set_in_use (1);
5436 x_menu_wait_for_event (0);
5437 XtAppNextEvent (Xt_app_con
, &event
);
5438 if (event
.type
== KeyPress
5439 && FRAME_X_DISPLAY (f
) == event
.xkey
.display
)
5441 KeySym keysym
= XLookupKeysym (&event
.xkey
, 0);
5443 /* Pop down on C-g. */
5444 if (keysym
== XK_g
&& (event
.xkey
.state
& ControlMask
) != 0)
5445 XtUnmanageChild (dialog
);
5448 (void) x_dispatch_event (&event
, FRAME_X_DISPLAY (f
));
5451 /* Get the result. */
5452 if (result
== XmCR_OK
)
5457 XtVaGetValues (dialog
, XmNtextString
, &text
, NULL
);
5458 XmStringGetLtoR (text
, XmFONTLIST_DEFAULT_TAG
, &data
);
5459 XmStringFree (text
);
5460 file
= build_string (data
);
5469 /* Make "Cancel" equivalent to C-g. */
5471 Fsignal (Qquit
, Qnil
);
5473 decoded_file
= DECODE_FILE (file
);
5475 return unbind_to (count
, decoded_file
);
5478 #endif /* USE_MOTIF */
5483 clean_up_dialog (arg
)
5486 x_menu_set_in_use (0);
5491 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5492 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5493 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5494 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5495 or directory must exist. If ONLY-DIR-P is non-nil, the user can only select
5497 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
)
5498 Lisp_Object prompt
, dir
, default_filename
, mustmatch
, only_dir_p
;
5500 FRAME_PTR f
= SELECTED_FRAME ();
5502 Lisp_Object file
= Qnil
;
5503 Lisp_Object decoded_file
;
5504 int count
= SPECPDL_INDEX ();
5505 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5510 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5512 if (popup_activated ())
5513 error ("Trying to use a menu from within a menu-entry");
5515 CHECK_STRING (prompt
);
5518 /* Prevent redisplay. */
5519 specbind (Qinhibit_redisplay
, Qt
);
5520 record_unwind_protect (clean_up_dialog
, Qnil
);
5524 if (STRINGP (default_filename
))
5525 cdef_file
= SDATA (default_filename
);
5527 cdef_file
= SDATA (dir
);
5529 fn
= xg_get_file_name (f
, SDATA (prompt
), cdef_file
,
5531 ! NILP (only_dir_p
));
5535 file
= build_string (fn
);
5542 /* Make "Cancel" equivalent to C-g. */
5544 Fsignal (Qquit
, Qnil
);
5546 decoded_file
= DECODE_FILE (file
);
5548 return unbind_to (count
, decoded_file
);
5551 #endif /* USE_GTK */
5554 /***********************************************************************
5556 ***********************************************************************/
5558 #ifdef HAVE_XKBGETKEYBOARD
5559 #include <X11/XKBlib.h>
5560 #include <X11/keysym.h>
5563 DEFUN ("x-backspace-delete-keys-p", Fx_backspace_delete_keys_p
,
5564 Sx_backspace_delete_keys_p
, 0, 1, 0,
5565 doc
: /* Check if both Backspace and Delete keys are on the keyboard of FRAME.
5566 FRAME nil means use the selected frame.
5567 Value is t if we know that both keys are present, and are mapped to the
5568 usual X keysyms. Value is `lambda' if we cannot determine if both keys are
5569 present and mapped to the usual X keysyms. */)
5573 #ifdef HAVE_XKBGETKEYBOARD
5575 struct frame
*f
= check_x_frame (frame
);
5576 Display
*dpy
= FRAME_X_DISPLAY (f
);
5577 Lisp_Object have_keys
;
5578 int major
, minor
, op
, event
, error
;
5582 /* Check library version in case we're dynamically linked. */
5583 major
= XkbMajorVersion
;
5584 minor
= XkbMinorVersion
;
5585 if (!XkbLibraryVersion (&major
, &minor
))
5591 /* Check that the server supports XKB. */
5592 major
= XkbMajorVersion
;
5593 minor
= XkbMinorVersion
;
5594 if (!XkbQueryExtension (dpy
, &op
, &event
, &error
, &major
, &minor
))
5600 /* In this code we check that the keyboard has physical keys with names
5601 that start with BKSP (Backspace) and DELE (Delete), and that they
5602 generate keysym XK_BackSpace and XK_Delete respectively.
5603 This function is used to test if normal-erase-is-backspace should be
5605 An alternative approach would be to just check if XK_BackSpace and
5606 XK_Delete are mapped to any key. But if any of those are mapped to
5607 some non-intuitive key combination (Meta-Shift-Ctrl-whatever) and the
5608 user doesn't know about it, it is better to return false here.
5609 It is more obvious to the user what to do if she/he has two keys
5610 clearly marked with names/symbols and one key does something not
5611 expected (i.e. she/he then tries the other).
5612 The cases where Backspace/Delete is mapped to some other key combination
5613 are rare, and in those cases, normal-erase-is-backspace can be turned on
5617 kb
= XkbGetMap (dpy
, XkbAllMapComponentsMask
, XkbUseCoreKbd
);
5620 int delete_keycode
= 0, backspace_keycode
= 0, i
;
5622 if (XkbGetNames (dpy
, XkbAllNamesMask
, kb
) == Success
)
5624 for (i
= kb
->min_key_code
;
5625 (i
< kb
->max_key_code
5626 && (delete_keycode
== 0 || backspace_keycode
== 0));
5629 /* The XKB symbolic key names can be seen most easily in
5630 the PS file generated by `xkbprint -label name
5632 if (bcmp ("DELE", kb
->names
->keys
[i
].name
, 4) == 0)
5634 else if (bcmp ("BKSP", kb
->names
->keys
[i
].name
, 4) == 0)
5635 backspace_keycode
= i
;
5638 XkbFreeNames (kb
, 0, True
);
5641 XkbFreeClientMap (kb
, 0, True
);
5644 && backspace_keycode
5645 && XKeysymToKeycode (dpy
, XK_Delete
) == delete_keycode
5646 && XKeysymToKeycode (dpy
, XK_BackSpace
) == backspace_keycode
)
5651 #else /* not HAVE_XKBGETKEYBOARD */
5653 #endif /* not HAVE_XKBGETKEYBOARD */
5658 /***********************************************************************
5660 ***********************************************************************/
5662 /* Keep this list in the same order as frame_parms in frame.c.
5663 Use 0 for unsupported frame parameters. */
5665 frame_parm_handler x_frame_parm_handlers
[] =
5669 x_set_background_color
,
5675 x_set_foreground_color
,
5678 x_set_internal_border_width
,
5679 x_set_menu_bar_lines
,
5681 x_explicitly_set_name
,
5682 x_set_scroll_bar_width
,
5685 x_set_vertical_scroll_bars
,
5687 x_set_tool_bar_lines
,
5688 x_set_scroll_bar_foreground
,
5689 x_set_scroll_bar_background
,
5701 /* This is zero if not using X windows. */
5704 /* The section below is built by the lisp expression at the top of the file,
5705 just above where these variables are declared. */
5706 /*&&& init symbols here &&&*/
5707 Qnone
= intern ("none");
5709 Qsuppress_icon
= intern ("suppress-icon");
5710 staticpro (&Qsuppress_icon
);
5711 Qundefined_color
= intern ("undefined-color");
5712 staticpro (&Qundefined_color
);
5713 Qcompound_text
= intern ("compound-text");
5714 staticpro (&Qcompound_text
);
5715 Qcancel_timer
= intern ("cancel-timer");
5716 staticpro (&Qcancel_timer
);
5717 /* This is the end of symbol initialization. */
5719 /* Text property `display' should be nonsticky by default. */
5720 Vtext_property_default_nonsticky
5721 = Fcons (Fcons (Qdisplay
, Qt
), Vtext_property_default_nonsticky
);
5724 Fput (Qundefined_color
, Qerror_conditions
,
5725 Fcons (Qundefined_color
, Fcons (Qerror
, Qnil
)));
5726 Fput (Qundefined_color
, Qerror_message
,
5727 build_string ("Undefined color"));
5729 DEFVAR_LISP ("x-pointer-shape", &Vx_pointer_shape
,
5730 doc
: /* The shape of the pointer when over text.
5731 Changing the value does not affect existing frames
5732 unless you set the mouse color. */);
5733 Vx_pointer_shape
= Qnil
;
5735 #if 0 /* This doesn't really do anything. */
5736 DEFVAR_LISP ("x-nontext-pointer-shape", &Vx_nontext_pointer_shape
,
5737 doc
: /* The shape of the pointer when not over text.
5738 This variable takes effect when you create a new frame
5739 or when you set the mouse color. */);
5741 Vx_nontext_pointer_shape
= Qnil
;
5743 DEFVAR_LISP ("x-hourglass-pointer-shape", &Vx_hourglass_pointer_shape
,
5744 doc
: /* The shape of the pointer when Emacs is busy.
5745 This variable takes effect when you create a new frame
5746 or when you set the mouse color. */);
5747 Vx_hourglass_pointer_shape
= Qnil
;
5749 DEFVAR_BOOL ("display-hourglass", &display_hourglass_p
,
5750 doc
: /* Non-zero means Emacs displays an hourglass pointer on window systems. */);
5751 display_hourglass_p
= 1;
5753 DEFVAR_LISP ("hourglass-delay", &Vhourglass_delay
,
5754 doc
: /* *Seconds to wait before displaying an hourglass pointer.
5755 Value must be an integer or float. */);
5756 Vhourglass_delay
= make_number (DEFAULT_HOURGLASS_DELAY
);
5758 #if 0 /* This doesn't really do anything. */
5759 DEFVAR_LISP ("x-mode-pointer-shape", &Vx_mode_pointer_shape
,
5760 doc
: /* The shape of the pointer when over the mode line.
5761 This variable takes effect when you create a new frame
5762 or when you set the mouse color. */);
5764 Vx_mode_pointer_shape
= Qnil
;
5766 DEFVAR_LISP ("x-sensitive-text-pointer-shape",
5767 &Vx_sensitive_text_pointer_shape
,
5768 doc
: /* The shape of the pointer when over mouse-sensitive text.
5769 This variable takes effect when you create a new frame
5770 or when you set the mouse color. */);
5771 Vx_sensitive_text_pointer_shape
= Qnil
;
5773 DEFVAR_LISP ("x-window-horizontal-drag-cursor",
5774 &Vx_window_horizontal_drag_shape
,
5775 doc
: /* Pointer shape to use for indicating a window can be dragged horizontally.
5776 This variable takes effect when you create a new frame
5777 or when you set the mouse color. */);
5778 Vx_window_horizontal_drag_shape
= Qnil
;
5780 DEFVAR_LISP ("x-cursor-fore-pixel", &Vx_cursor_fore_pixel
,
5781 doc
: /* A string indicating the foreground color of the cursor box. */);
5782 Vx_cursor_fore_pixel
= Qnil
;
5784 DEFVAR_LISP ("x-max-tooltip-size", &Vx_max_tooltip_size
,
5785 doc
: /* Maximum size for tooltips. Value is a pair (COLUMNS . ROWS).
5786 Text larger than this is clipped. */);
5787 Vx_max_tooltip_size
= Fcons (make_number (80), make_number (40));
5789 DEFVAR_LISP ("x-no-window-manager", &Vx_no_window_manager
,
5790 doc
: /* Non-nil if no X window manager is in use.
5791 Emacs doesn't try to figure this out; this is always nil
5792 unless you set it to something else. */);
5793 /* We don't have any way to find this out, so set it to nil
5794 and maybe the user would like to set it to t. */
5795 Vx_no_window_manager
= Qnil
;
5797 DEFVAR_LISP ("x-pixel-size-width-font-regexp",
5798 &Vx_pixel_size_width_font_regexp
,
5799 doc
: /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'.
5801 Since Emacs gets width of a font matching with this regexp from
5802 PIXEL_SIZE field of the name, font finding mechanism gets faster for
5803 such a font. This is especially effective for such large fonts as
5804 Chinese, Japanese, and Korean. */);
5805 Vx_pixel_size_width_font_regexp
= Qnil
;
5807 /* This is not ifdef:ed, so other builds than GTK can customize it. */
5808 DEFVAR_BOOL ("x-gtk-use-old-file-dialog", &x_gtk_use_old_file_dialog
,
5809 doc
: /* *Non-nil means prompt with the old GTK file selection dialog.
5810 If nil or if the file selection dialog is not available, the new GTK file
5811 chooser is used instead. To turn off all file dialogs set the
5812 variable `use-file-dialog'. */);
5813 x_gtk_use_old_file_dialog
= 0;
5815 DEFVAR_BOOL ("x-gtk-show-hidden-files", &x_gtk_show_hidden_files
,
5816 doc
: /* *If non-nil, the GTK file chooser will by default show hidden files.
5817 Note that this is just the default, there is a toggle button on the file
5818 chooser to show or not show hidden files on a case by case basis. */);
5819 x_gtk_show_hidden_files
= 0;
5821 DEFVAR_BOOL ("x-gtk-file-dialog-help-text", &x_gtk_file_dialog_help_text
,
5822 doc
: /* *If non-nil, the GTK file chooser will show additional help text.
5823 If more space for files in the file chooser dialog is wanted, set this to nil
5824 to turn the additional text off. */);
5825 x_gtk_file_dialog_help_text
= 1;
5827 DEFVAR_BOOL ("x-gtk-whole-detached-tool-bar", &x_gtk_whole_detached_tool_bar
,
5828 doc
: /* *If non-nil, a detached tool bar is shown in full.
5829 The default is to just show an arrow and pressing on that arrow shows
5830 the tool bar buttons. */);
5831 x_gtk_whole_detached_tool_bar
= 0;
5833 Fprovide (intern ("x"), Qnil
);
5835 #ifdef USE_X_TOOLKIT
5836 Fprovide (intern ("x-toolkit"), Qnil
);
5838 Fprovide (intern ("motif"), Qnil
);
5840 DEFVAR_LISP ("motif-version-string", &Vmotif_version_string
,
5841 doc
: /* Version info for LessTif/Motif. */);
5842 Vmotif_version_string
= build_string (XmVERSION_STRING
);
5843 #endif /* USE_MOTIF */
5844 #endif /* USE_X_TOOLKIT */
5847 /* Provide x-toolkit also for GTK. Internally GTK does not use Xt so it
5848 is not an X toolkit in that sense (USE_X_TOOLKIT is not defined).
5849 But for a user it is a toolkit for X, and indeed, configure
5850 accepts --with-x-toolkit=gtk. */
5851 Fprovide (intern ("x-toolkit"), Qnil
);
5852 Fprovide (intern ("gtk"), Qnil
);
5854 DEFVAR_LISP ("gtk-version-string", &Vgtk_version_string
,
5855 doc
: /* Version info for GTK+. */);
5857 char gtk_version
[40];
5858 g_snprintf (gtk_version
, sizeof (gtk_version
), "%u.%u.%u",
5859 GTK_MAJOR_VERSION
, GTK_MINOR_VERSION
, GTK_MICRO_VERSION
);
5860 Vgtk_version_string
= build_string (gtk_version
);
5862 #endif /* USE_GTK */
5864 /* X window properties. */
5865 defsubr (&Sx_change_window_property
);
5866 defsubr (&Sx_delete_window_property
);
5867 defsubr (&Sx_window_property
);
5869 defsubr (&Sxw_display_color_p
);
5870 defsubr (&Sx_display_grayscale_p
);
5871 defsubr (&Sxw_color_defined_p
);
5872 defsubr (&Sxw_color_values
);
5873 defsubr (&Sx_server_max_request_size
);
5874 defsubr (&Sx_server_vendor
);
5875 defsubr (&Sx_server_version
);
5876 defsubr (&Sx_display_pixel_width
);
5877 defsubr (&Sx_display_pixel_height
);
5878 defsubr (&Sx_display_mm_width
);
5879 defsubr (&Sx_display_mm_height
);
5880 defsubr (&Sx_display_screens
);
5881 defsubr (&Sx_display_planes
);
5882 defsubr (&Sx_display_color_cells
);
5883 defsubr (&Sx_display_visual_class
);
5884 defsubr (&Sx_display_backing_store
);
5885 defsubr (&Sx_display_save_under
);
5886 defsubr (&Sx_create_frame
);
5887 defsubr (&Sx_open_connection
);
5888 defsubr (&Sx_close_connection
);
5889 defsubr (&Sx_display_list
);
5890 defsubr (&Sx_synchronize
);
5891 defsubr (&Sx_focus_frame
);
5892 defsubr (&Sx_backspace_delete_keys_p
);
5894 /* Setting callback functions for fontset handler. */
5895 get_font_info_func
= x_get_font_info
;
5897 #if 0 /* This function pointer doesn't seem to be used anywhere.
5898 And the pointer assigned has the wrong type, anyway. */
5899 list_fonts_func
= x_list_fonts
;
5902 load_font_func
= x_load_font
;
5903 find_ccl_program_func
= x_find_ccl_program
;
5904 query_font_func
= x_query_font
;
5905 set_frame_fontset_func
= x_set_font
;
5906 check_window_system_func
= check_x
;
5908 hourglass_atimer
= NULL
;
5909 hourglass_shown_p
= 0;
5911 defsubr (&Sx_show_tip
);
5912 defsubr (&Sx_hide_tip
);
5914 staticpro (&tip_timer
);
5916 staticpro (&tip_frame
);
5918 last_show_tip_args
= Qnil
;
5919 staticpro (&last_show_tip_args
);
5921 defsubr (&Sx_uses_old_gtk_dialog
);
5922 #if defined (USE_MOTIF) || defined (USE_GTK)
5923 defsubr (&Sx_file_dialog
);
5927 #endif /* HAVE_X_WINDOWS */
5929 /* arch-tag: 55040d02-5485-4d58-8b22-95a7a05f3288
5930 (do not change this comment) */