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"
44 #include "character.h"
49 #include "termhooks.h"
55 #include <sys/types.h>
59 #if 1 /* Used to be #ifdef EMACS_BITMAP_FILES, but this should always work. */
60 #include "bitmaps/gray.xbm"
62 #include <X11/bitmaps/gray>
65 #include "[.bitmaps]gray.xbm"
73 #include <X11/Shell.h>
76 #include <X11/Xaw/Paned.h>
77 #include <X11/Xaw/Label.h>
78 #endif /* USE_MOTIF */
81 #undef USG /* ####KLUDGE for Solaris 2.2 and up */
90 #include "../lwlib/lwlib.h"
94 #include <Xm/DialogS.h>
95 #include <Xm/FileSB.h>
98 /* Do the EDITRES protocol if running X11R5
99 Exception: HP-UX (at least version A.09.05) has X11R5 without EditRes */
101 #if (XtSpecificationRelease >= 5) && !defined(NO_EDITRES)
103 extern void _XEditResCheckMessages ();
104 #endif /* R5 + Athena */
106 /* Unique id counter for widgets created by the Lucid Widget Library. */
108 extern LWLIB_ID widget_id_tick
;
111 /* This is part of a kludge--see lwlib/xlwmenu.c. */
112 extern XFontStruct
*xlwmenu_default_font
;
115 extern void free_frame_menubar ();
116 extern double atof ();
120 /* LessTif/Motif version info. */
122 static Lisp_Object Vmotif_version_string
;
124 #endif /* USE_MOTIF */
126 #endif /* USE_X_TOOLKIT */
130 /* GTK+ version info */
132 static Lisp_Object Vgtk_version_string
;
137 #define MAXREQUEST(dpy) (XMaxRequestSize (dpy))
139 #define MAXREQUEST(dpy) ((dpy)->max_request_size)
142 /* The gray bitmap `bitmaps/gray'. This is done because xterm.c uses
143 it, and including `bitmaps/gray' more than once is a problem when
144 config.h defines `static' as an empty replacement string. */
146 int gray_bitmap_width
= gray_width
;
147 int gray_bitmap_height
= gray_height
;
148 char *gray_bitmap_bits
= gray_bits
;
150 /* Non-zero means we're allowed to display an hourglass cursor. */
152 int display_hourglass_p
;
154 /* Non-zero means prompt with the old GTK file selection dialog. */
156 int x_use_old_gtk_file_dialog
;
158 /* If non-zero, by default show hidden files in the GTK file chooser. */
160 int x_gtk_show_hidden_files
;
162 /* The background and shape of the mouse pointer, and shape when not
163 over text or in the modeline. */
165 Lisp_Object Vx_pointer_shape
, Vx_nontext_pointer_shape
, Vx_mode_pointer_shape
;
166 Lisp_Object Vx_hourglass_pointer_shape
;
168 /* The shape when over mouse-sensitive text. */
170 Lisp_Object Vx_sensitive_text_pointer_shape
;
172 /* If non-nil, the pointer shape to indicate that windows can be
173 dragged horizontally. */
175 Lisp_Object Vx_window_horizontal_drag_shape
;
177 /* Color of chars displayed in cursor box. */
179 Lisp_Object Vx_cursor_fore_pixel
;
181 /* Nonzero if using X. */
185 /* Non nil if no window manager is in use. */
187 Lisp_Object Vx_no_window_manager
;
189 /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'. */
191 Lisp_Object Vx_pixel_size_width_font_regexp
;
194 Lisp_Object Qsuppress_icon
;
195 Lisp_Object Qundefined_color
;
196 Lisp_Object Qcompound_text
, Qcancel_timer
;
200 extern Lisp_Object Vwindow_system_version
;
202 /* The below are defined in frame.c. */
205 int image_cache_refcount
, dpyinfo_refcount
;
210 /* Error if we are not connected to X. */
216 error ("X windows are not in use or not initialized");
219 /* Nonzero if we can use mouse menus.
220 You should not call this unless HAVE_MENUS is defined. */
228 /* Extract a frame as a FRAME_PTR, defaulting to the selected frame
229 and checking validity for X. */
232 check_x_frame (frame
)
238 frame
= selected_frame
;
239 CHECK_LIVE_FRAME (frame
);
242 error ("Non-X frame used");
246 /* Let the user specify an X display with a frame.
247 nil stands for the selected frame--or, if that is not an X frame,
248 the first X display on the list. */
250 struct x_display_info
*
251 check_x_display_info (frame
)
254 struct x_display_info
*dpyinfo
= NULL
;
258 struct frame
*sf
= XFRAME (selected_frame
);
260 if (FRAME_X_P (sf
) && FRAME_LIVE_P (sf
))
261 dpyinfo
= FRAME_X_DISPLAY_INFO (sf
);
262 else if (x_display_list
!= 0)
263 dpyinfo
= x_display_list
;
265 error ("X windows are not in use or not initialized");
267 else if (STRINGP (frame
))
268 dpyinfo
= x_display_info_for_name (frame
);
271 FRAME_PTR f
= check_x_frame (frame
);
272 dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
279 /* Return the Emacs frame-object corresponding to an X window.
280 It could be the frame's main window or an icon window. */
282 /* This function can be called during GC, so use GC_xxx type test macros. */
285 x_window_to_frame (dpyinfo
, wdesc
)
286 struct x_display_info
*dpyinfo
;
289 Lisp_Object tail
, frame
;
292 if (wdesc
== None
) return 0;
294 for (tail
= Vframe_list
; GC_CONSP (tail
); tail
= XCDR (tail
))
297 if (!GC_FRAMEP (frame
))
300 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
302 if (f
->output_data
.x
->hourglass_window
== wdesc
)
305 if ((f
->output_data
.x
->edit_widget
306 && XtWindow (f
->output_data
.x
->edit_widget
) == wdesc
)
307 /* A tooltip frame? */
308 || (!f
->output_data
.x
->edit_widget
309 && FRAME_X_WINDOW (f
) == wdesc
)
310 || f
->output_data
.x
->icon_desc
== wdesc
)
312 #else /* not USE_X_TOOLKIT */
314 if (f
->output_data
.x
->edit_widget
)
316 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
317 struct x_output
*x
= f
->output_data
.x
;
318 if (gwdesc
!= 0 && gwdesc
== x
->edit_widget
)
322 if (FRAME_X_WINDOW (f
) == wdesc
323 || f
->output_data
.x
->icon_desc
== wdesc
)
325 #endif /* not USE_X_TOOLKIT */
330 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
331 /* Like x_window_to_frame but also compares the window with the widget's
335 x_any_window_to_frame (dpyinfo
, wdesc
)
336 struct x_display_info
*dpyinfo
;
339 Lisp_Object tail
, frame
;
340 struct frame
*f
, *found
;
343 if (wdesc
== None
) return NULL
;
346 for (tail
= Vframe_list
; GC_CONSP (tail
) && !found
; tail
= XCDR (tail
))
349 if (!GC_FRAMEP (frame
))
353 if (FRAME_X_P (f
) && FRAME_X_DISPLAY_INFO (f
) == dpyinfo
)
355 /* This frame matches if the window is any of its widgets. */
356 x
= f
->output_data
.x
;
357 if (x
->hourglass_window
== wdesc
)
362 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
364 && (gwdesc
== x
->widget
365 || gwdesc
== x
->edit_widget
366 || gwdesc
== x
->vbox_widget
367 || gwdesc
== x
->menubar_widget
))
370 if (wdesc
== XtWindow (x
->widget
)
371 || wdesc
== XtWindow (x
->column_widget
)
372 || wdesc
== XtWindow (x
->edit_widget
))
374 /* Match if the window is this frame's menubar. */
375 else if (lw_window_is_in_menubar (wdesc
, x
->menubar_widget
))
379 else if (FRAME_X_WINDOW (f
) == wdesc
)
380 /* A tooltip frame. */
388 /* Likewise, but exclude the menu bar widget. */
391 x_non_menubar_window_to_frame (dpyinfo
, wdesc
)
392 struct x_display_info
*dpyinfo
;
395 Lisp_Object tail
, frame
;
399 if (wdesc
== None
) return 0;
401 for (tail
= Vframe_list
; GC_CONSP (tail
); tail
= XCDR (tail
))
404 if (!GC_FRAMEP (frame
))
407 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
409 x
= f
->output_data
.x
;
410 /* This frame matches if the window is any of its widgets. */
411 if (x
->hourglass_window
== wdesc
)
416 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
418 && (gwdesc
== x
->widget
419 || gwdesc
== x
->edit_widget
420 || gwdesc
== x
->vbox_widget
))
423 if (wdesc
== XtWindow (x
->widget
)
424 || wdesc
== XtWindow (x
->column_widget
)
425 || wdesc
== XtWindow (x
->edit_widget
))
429 else if (FRAME_X_WINDOW (f
) == wdesc
)
430 /* A tooltip frame. */
436 /* Likewise, but consider only the menu bar widget. */
439 x_menubar_window_to_frame (dpyinfo
, wdesc
)
440 struct x_display_info
*dpyinfo
;
443 Lisp_Object tail
, frame
;
447 if (wdesc
== None
) return 0;
449 for (tail
= Vframe_list
; GC_CONSP (tail
); tail
= XCDR (tail
))
452 if (!GC_FRAMEP (frame
))
455 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
457 x
= f
->output_data
.x
;
458 /* Match if the window is this frame's menubar. */
460 if (x
->menubar_widget
)
462 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
467 && (gwdesc
== x
->menubar_widget
468 || gtk_widget_get_parent (gwdesc
) == x
->menubar_widget
))
474 if (x
->menubar_widget
475 && lw_window_is_in_menubar (wdesc
, x
->menubar_widget
))
482 /* Return the frame whose principal (outermost) window is WDESC.
483 If WDESC is some other (smaller) window, we return 0. */
486 x_top_window_to_frame (dpyinfo
, wdesc
)
487 struct x_display_info
*dpyinfo
;
490 Lisp_Object tail
, frame
;
494 if (wdesc
== None
) return 0;
496 for (tail
= Vframe_list
; GC_CONSP (tail
); tail
= XCDR (tail
))
499 if (!GC_FRAMEP (frame
))
502 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
504 x
= f
->output_data
.x
;
508 /* This frame matches if the window is its topmost widget. */
510 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
511 if (gwdesc
== x
->widget
)
514 if (wdesc
== XtWindow (x
->widget
))
516 #if 0 /* I don't know why it did this,
517 but it seems logically wrong,
518 and it causes trouble for MapNotify events. */
519 /* Match if the window is this frame's menubar. */
520 if (x
->menubar_widget
521 && wdesc
== XtWindow (x
->menubar_widget
))
526 else if (FRAME_X_WINDOW (f
) == wdesc
)
532 #endif /* USE_X_TOOLKIT || USE_GTK */
536 static Lisp_Object unwind_create_frame
P_ ((Lisp_Object
));
537 static Lisp_Object unwind_create_tip_frame
P_ ((Lisp_Object
));
539 void x_set_foreground_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
540 static void x_set_wait_for_wm
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
541 void x_set_background_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
542 void x_set_mouse_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
543 void x_set_cursor_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
544 void x_set_border_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
545 void x_set_cursor_type
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
546 void x_set_icon_type
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
547 void x_set_icon_name
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
548 void x_explicitly_set_name
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
549 void x_set_menu_bar_lines
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
550 void x_set_title
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
551 void x_set_tool_bar_lines
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
552 void x_set_scroll_bar_foreground
P_ ((struct frame
*, Lisp_Object
,
554 void x_set_scroll_bar_background
P_ ((struct frame
*, Lisp_Object
,
556 static Lisp_Object x_default_scroll_bar_color_parameter
P_ ((struct frame
*,
563 /* Store the screen positions of frame F into XPTR and YPTR.
564 These are the positions of the containing window manager window,
565 not Emacs's own window. */
568 x_real_positions (f
, xptr
, yptr
)
572 int win_x
, win_y
, outer_x
, outer_y
;
573 int real_x
= 0, real_y
= 0;
575 Window win
= f
->output_data
.x
->parent_desc
;
581 count
= x_catch_errors (FRAME_X_DISPLAY (f
));
583 if (win
== FRAME_X_DISPLAY_INFO (f
)->root_window
)
584 win
= FRAME_OUTER_WINDOW (f
);
586 /* This loop traverses up the containment tree until we hit the root
587 window. Window managers may intersect many windows between our window
588 and the root window. The window we find just before the root window
589 should be the outer WM window. */
592 Window wm_window
, rootw
;
593 Window
*tmp_children
;
594 unsigned int tmp_nchildren
;
597 success
= XQueryTree (FRAME_X_DISPLAY (f
), win
, &rootw
,
598 &wm_window
, &tmp_children
, &tmp_nchildren
);
600 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
602 /* Don't free tmp_children if XQueryTree failed. */
606 XFree ((char *) tmp_children
);
608 if (wm_window
== rootw
|| had_errors
)
619 /* Get the real coordinates for the WM window upper left corner */
620 XGetGeometry (FRAME_X_DISPLAY (f
), win
,
621 &rootw
, &real_x
, &real_y
, &ign
, &ign
, &ign
, &ign
);
623 /* Translate real coordinates to coordinates relative to our
624 window. For our window, the upper left corner is 0, 0.
625 Since the upper left corner of the WM window is outside
626 our window, win_x and win_y will be negative:
628 ------------------ ---> x
630 | ----------------- v y
633 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
635 /* From-window, to-window. */
636 FRAME_X_DISPLAY_INFO (f
)->root_window
,
639 /* From-position, to-position. */
640 real_x
, real_y
, &win_x
, &win_y
,
645 if (FRAME_X_WINDOW (f
) == FRAME_OUTER_WINDOW (f
))
652 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
654 /* From-window, to-window. */
655 FRAME_X_DISPLAY_INFO (f
)->root_window
,
656 FRAME_OUTER_WINDOW (f
),
658 /* From-position, to-position. */
659 real_x
, real_y
, &outer_x
, &outer_y
,
665 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
668 x_uncatch_errors (FRAME_X_DISPLAY (f
), count
);
672 if (had_errors
) return;
674 f
->x_pixels_diff
= -win_x
;
675 f
->y_pixels_diff
= -win_y
;
677 FRAME_X_OUTPUT (f
)->x_pixels_outer_diff
= -outer_x
;
678 FRAME_X_OUTPUT (f
)->y_pixels_outer_diff
= -outer_y
;
687 /* Gamma-correct COLOR on frame F. */
690 gamma_correct (f
, color
)
696 color
->red
= pow (color
->red
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
697 color
->green
= pow (color
->green
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
698 color
->blue
= pow (color
->blue
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
703 /* Decide if color named COLOR_NAME is valid for use on frame F. If
704 so, return the RGB values in COLOR. If ALLOC_P is non-zero,
705 allocate the color. Value is zero if COLOR_NAME is invalid, or
706 no color could be allocated. */
709 x_defined_color (f
, color_name
, color
, alloc_p
)
716 Display
*dpy
= FRAME_X_DISPLAY (f
);
717 Colormap cmap
= FRAME_X_COLORMAP (f
);
720 success_p
= XParseColor (dpy
, cmap
, color_name
, color
);
721 if (success_p
&& alloc_p
)
722 success_p
= x_alloc_nearest_color (f
, cmap
, color
);
729 /* Return the pixel color value for color COLOR_NAME on frame F. If F
730 is a monochrome frame, return MONO_COLOR regardless of what ARG says.
731 Signal an error if color can't be allocated. */
734 x_decode_color (f
, color_name
, mono_color
)
736 Lisp_Object color_name
;
741 CHECK_STRING (color_name
);
743 #if 0 /* Don't do this. It's wrong when we're not using the default
744 colormap, it makes freeing difficult, and it's probably not
745 an important optimization. */
746 if (strcmp (SDATA (color_name
), "black") == 0)
747 return BLACK_PIX_DEFAULT (f
);
748 else if (strcmp (SDATA (color_name
), "white") == 0)
749 return WHITE_PIX_DEFAULT (f
);
752 /* Return MONO_COLOR for monochrome frames. */
753 if (FRAME_X_DISPLAY_INFO (f
)->n_planes
== 1)
756 /* x_defined_color is responsible for coping with failures
757 by looking for a near-miss. */
758 if (x_defined_color (f
, SDATA (color_name
), &cdef
, 1))
761 Fsignal (Qerror
, Fcons (build_string ("Undefined color"),
762 Fcons (color_name
, Qnil
)));
768 /* Change the `wait-for-wm' frame parameter of frame F. OLD_VALUE is
769 the previous value of that parameter, NEW_VALUE is the new value.
770 See also the comment of wait_for_wm in struct x_output. */
773 x_set_wait_for_wm (f
, new_value
, old_value
)
775 Lisp_Object new_value
, old_value
;
777 f
->output_data
.x
->wait_for_wm
= !NILP (new_value
);
782 /* Set icon from FILE for frame F. By using GTK functions the icon
783 may be any format that GdkPixbuf knows about, i.e. not just bitmaps. */
786 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
);
826 xg_set_icon_from_xpm_data (f
, data
)
831 GdkPixbuf
*pixbuf
= gdk_pixbuf_new_from_xpm_data ((const char **) data
);
836 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)), pixbuf
);
837 g_object_unref (pixbuf
);
843 /* Functions called only from `x_set_frame_param'
844 to set individual parameters.
846 If FRAME_X_WINDOW (f) is 0,
847 the frame is being created and its X-window does not exist yet.
848 In that case, just record the parameter's new value
849 in the standard place; do not attempt to change the window. */
852 x_set_foreground_color (f
, arg
, oldval
)
854 Lisp_Object arg
, oldval
;
856 struct x_output
*x
= f
->output_data
.x
;
857 unsigned long fg
, old_fg
;
859 fg
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
860 old_fg
= x
->foreground_pixel
;
861 x
->foreground_pixel
= fg
;
863 if (FRAME_X_WINDOW (f
) != 0)
865 Display
*dpy
= FRAME_X_DISPLAY (f
);
868 XSetForeground (dpy
, x
->normal_gc
, fg
);
869 XSetBackground (dpy
, x
->reverse_gc
, fg
);
871 if (x
->cursor_pixel
== old_fg
)
873 unload_color (f
, x
->cursor_pixel
);
874 x
->cursor_pixel
= x_copy_color (f
, fg
);
875 XSetBackground (dpy
, x
->cursor_gc
, x
->cursor_pixel
);
880 update_face_from_frame_parameter (f
, Qforeground_color
, arg
);
882 if (FRAME_VISIBLE_P (f
))
886 unload_color (f
, old_fg
);
890 x_set_background_color (f
, arg
, oldval
)
892 Lisp_Object arg
, oldval
;
894 struct x_output
*x
= f
->output_data
.x
;
897 bg
= x_decode_color (f
, arg
, WHITE_PIX_DEFAULT (f
));
898 unload_color (f
, x
->background_pixel
);
899 x
->background_pixel
= bg
;
901 if (FRAME_X_WINDOW (f
) != 0)
903 Display
*dpy
= FRAME_X_DISPLAY (f
);
906 XSetBackground (dpy
, x
->normal_gc
, bg
);
907 XSetForeground (dpy
, x
->reverse_gc
, bg
);
908 XSetWindowBackground (dpy
, FRAME_X_WINDOW (f
), bg
);
909 XSetForeground (dpy
, x
->cursor_gc
, bg
);
912 xg_set_background_color (f
, bg
);
915 #ifndef USE_TOOLKIT_SCROLL_BARS /* Turns out to be annoying with
916 toolkit scroll bars. */
919 for (bar
= FRAME_SCROLL_BARS (f
);
921 bar
= XSCROLL_BAR (bar
)->next
)
923 Window window
= SCROLL_BAR_X_WINDOW (XSCROLL_BAR (bar
));
924 XSetWindowBackground (dpy
, window
, bg
);
927 #endif /* USE_TOOLKIT_SCROLL_BARS */
930 update_face_from_frame_parameter (f
, Qbackground_color
, arg
);
932 if (FRAME_VISIBLE_P (f
))
938 x_set_mouse_color (f
, arg
, oldval
)
940 Lisp_Object arg
, oldval
;
942 struct x_output
*x
= f
->output_data
.x
;
943 Display
*dpy
= FRAME_X_DISPLAY (f
);
944 Cursor cursor
, nontext_cursor
, mode_cursor
, hand_cursor
;
945 Cursor hourglass_cursor
, horizontal_drag_cursor
;
947 unsigned long pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
948 unsigned long mask_color
= x
->background_pixel
;
950 /* Don't let pointers be invisible. */
951 if (mask_color
== pixel
)
953 x_free_colors (f
, &pixel
, 1);
954 pixel
= x_copy_color (f
, x
->foreground_pixel
);
957 unload_color (f
, x
->mouse_pixel
);
958 x
->mouse_pixel
= pixel
;
962 /* It's not okay to crash if the user selects a screwy cursor. */
963 count
= x_catch_errors (dpy
);
965 if (!NILP (Vx_pointer_shape
))
967 CHECK_NUMBER (Vx_pointer_shape
);
968 cursor
= XCreateFontCursor (dpy
, XINT (Vx_pointer_shape
));
971 cursor
= XCreateFontCursor (dpy
, XC_xterm
);
972 x_check_errors (dpy
, "bad text pointer cursor: %s");
974 if (!NILP (Vx_nontext_pointer_shape
))
976 CHECK_NUMBER (Vx_nontext_pointer_shape
);
978 = XCreateFontCursor (dpy
, XINT (Vx_nontext_pointer_shape
));
981 nontext_cursor
= XCreateFontCursor (dpy
, XC_left_ptr
);
982 x_check_errors (dpy
, "bad nontext pointer cursor: %s");
984 if (!NILP (Vx_hourglass_pointer_shape
))
986 CHECK_NUMBER (Vx_hourglass_pointer_shape
);
988 = XCreateFontCursor (dpy
, XINT (Vx_hourglass_pointer_shape
));
991 hourglass_cursor
= XCreateFontCursor (dpy
, XC_watch
);
992 x_check_errors (dpy
, "bad hourglass pointer cursor: %s");
994 if (!NILP (Vx_mode_pointer_shape
))
996 CHECK_NUMBER (Vx_mode_pointer_shape
);
997 mode_cursor
= XCreateFontCursor (dpy
, XINT (Vx_mode_pointer_shape
));
1000 mode_cursor
= XCreateFontCursor (dpy
, XC_xterm
);
1001 x_check_errors (dpy
, "bad modeline pointer cursor: %s");
1003 if (!NILP (Vx_sensitive_text_pointer_shape
))
1005 CHECK_NUMBER (Vx_sensitive_text_pointer_shape
);
1007 = XCreateFontCursor (dpy
, XINT (Vx_sensitive_text_pointer_shape
));
1010 hand_cursor
= XCreateFontCursor (dpy
, XC_hand2
);
1012 if (!NILP (Vx_window_horizontal_drag_shape
))
1014 CHECK_NUMBER (Vx_window_horizontal_drag_shape
);
1015 horizontal_drag_cursor
1016 = XCreateFontCursor (dpy
, XINT (Vx_window_horizontal_drag_shape
));
1019 horizontal_drag_cursor
1020 = XCreateFontCursor (dpy
, XC_sb_h_double_arrow
);
1022 /* Check and report errors with the above calls. */
1023 x_check_errors (dpy
, "can't set cursor shape: %s");
1024 x_uncatch_errors (dpy
, count
);
1027 XColor fore_color
, back_color
;
1029 fore_color
.pixel
= x
->mouse_pixel
;
1030 x_query_color (f
, &fore_color
);
1031 back_color
.pixel
= mask_color
;
1032 x_query_color (f
, &back_color
);
1034 XRecolorCursor (dpy
, cursor
, &fore_color
, &back_color
);
1035 XRecolorCursor (dpy
, nontext_cursor
, &fore_color
, &back_color
);
1036 XRecolorCursor (dpy
, mode_cursor
, &fore_color
, &back_color
);
1037 XRecolorCursor (dpy
, hand_cursor
, &fore_color
, &back_color
);
1038 XRecolorCursor (dpy
, hourglass_cursor
, &fore_color
, &back_color
);
1039 XRecolorCursor (dpy
, horizontal_drag_cursor
, &fore_color
, &back_color
);
1042 if (FRAME_X_WINDOW (f
) != 0)
1043 XDefineCursor (dpy
, FRAME_X_WINDOW (f
), cursor
);
1045 if (cursor
!= x
->text_cursor
1046 && x
->text_cursor
!= 0)
1047 XFreeCursor (dpy
, x
->text_cursor
);
1048 x
->text_cursor
= cursor
;
1050 if (nontext_cursor
!= x
->nontext_cursor
1051 && x
->nontext_cursor
!= 0)
1052 XFreeCursor (dpy
, x
->nontext_cursor
);
1053 x
->nontext_cursor
= nontext_cursor
;
1055 if (hourglass_cursor
!= x
->hourglass_cursor
1056 && x
->hourglass_cursor
!= 0)
1057 XFreeCursor (dpy
, x
->hourglass_cursor
);
1058 x
->hourglass_cursor
= hourglass_cursor
;
1060 if (mode_cursor
!= x
->modeline_cursor
1061 && x
->modeline_cursor
!= 0)
1062 XFreeCursor (dpy
, f
->output_data
.x
->modeline_cursor
);
1063 x
->modeline_cursor
= mode_cursor
;
1065 if (hand_cursor
!= x
->hand_cursor
1066 && x
->hand_cursor
!= 0)
1067 XFreeCursor (dpy
, x
->hand_cursor
);
1068 x
->hand_cursor
= hand_cursor
;
1070 if (horizontal_drag_cursor
!= x
->horizontal_drag_cursor
1071 && x
->horizontal_drag_cursor
!= 0)
1072 XFreeCursor (dpy
, x
->horizontal_drag_cursor
);
1073 x
->horizontal_drag_cursor
= horizontal_drag_cursor
;
1078 update_face_from_frame_parameter (f
, Qmouse_color
, arg
);
1082 x_set_cursor_color (f
, arg
, oldval
)
1084 Lisp_Object arg
, oldval
;
1086 unsigned long fore_pixel
, pixel
;
1087 int fore_pixel_allocated_p
= 0, pixel_allocated_p
= 0;
1088 struct x_output
*x
= f
->output_data
.x
;
1090 if (!NILP (Vx_cursor_fore_pixel
))
1092 fore_pixel
= x_decode_color (f
, Vx_cursor_fore_pixel
,
1093 WHITE_PIX_DEFAULT (f
));
1094 fore_pixel_allocated_p
= 1;
1097 fore_pixel
= x
->background_pixel
;
1099 pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1100 pixel_allocated_p
= 1;
1102 /* Make sure that the cursor color differs from the background color. */
1103 if (pixel
== x
->background_pixel
)
1105 if (pixel_allocated_p
)
1107 x_free_colors (f
, &pixel
, 1);
1108 pixel_allocated_p
= 0;
1111 pixel
= x
->mouse_pixel
;
1112 if (pixel
== fore_pixel
)
1114 if (fore_pixel_allocated_p
)
1116 x_free_colors (f
, &fore_pixel
, 1);
1117 fore_pixel_allocated_p
= 0;
1119 fore_pixel
= x
->background_pixel
;
1123 unload_color (f
, x
->cursor_foreground_pixel
);
1124 if (!fore_pixel_allocated_p
)
1125 fore_pixel
= x_copy_color (f
, fore_pixel
);
1126 x
->cursor_foreground_pixel
= fore_pixel
;
1128 unload_color (f
, x
->cursor_pixel
);
1129 if (!pixel_allocated_p
)
1130 pixel
= x_copy_color (f
, pixel
);
1131 x
->cursor_pixel
= pixel
;
1133 if (FRAME_X_WINDOW (f
) != 0)
1136 XSetBackground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, x
->cursor_pixel
);
1137 XSetForeground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, fore_pixel
);
1140 if (FRAME_VISIBLE_P (f
))
1142 x_update_cursor (f
, 0);
1143 x_update_cursor (f
, 1);
1147 update_face_from_frame_parameter (f
, Qcursor_color
, arg
);
1150 /* Set the border-color of frame F to pixel value PIX.
1151 Note that this does not fully take effect if done before
1152 F has an x-window. */
1155 x_set_border_pixel (f
, pix
)
1159 unload_color (f
, f
->output_data
.x
->border_pixel
);
1160 f
->output_data
.x
->border_pixel
= pix
;
1162 if (FRAME_X_WINDOW (f
) != 0 && f
->border_width
> 0)
1165 XSetWindowBorder (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1166 (unsigned long)pix
);
1169 if (FRAME_VISIBLE_P (f
))
1174 /* Set the border-color of frame F to value described by ARG.
1175 ARG can be a string naming a color.
1176 The border-color is used for the border that is drawn by the X server.
1177 Note that this does not fully take effect if done before
1178 F has an x-window; it must be redone when the window is created.
1180 Note: this is done in two routines because of the way X10 works.
1182 Note: under X11, this is normally the province of the window manager,
1183 and so emacs' border colors may be overridden. */
1186 x_set_border_color (f
, arg
, oldval
)
1188 Lisp_Object arg
, oldval
;
1193 pix
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1194 x_set_border_pixel (f
, pix
);
1195 update_face_from_frame_parameter (f
, Qborder_color
, arg
);
1200 x_set_cursor_type (f
, arg
, oldval
)
1202 Lisp_Object arg
, oldval
;
1204 set_frame_cursor_types (f
, arg
);
1206 /* Make sure the cursor gets redrawn. */
1207 cursor_type_changed
= 1;
1211 x_set_icon_type (f
, arg
, oldval
)
1213 Lisp_Object arg
, oldval
;
1219 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1222 else if (!STRINGP (oldval
) && EQ (oldval
, Qnil
) == EQ (arg
, Qnil
))
1227 result
= x_text_icon (f
,
1228 (char *) SDATA ((!NILP (f
->icon_name
)
1232 result
= x_bitmap_icon (f
, arg
);
1237 error ("No icon window available");
1240 XFlush (FRAME_X_DISPLAY (f
));
1245 x_set_icon_name (f
, arg
, oldval
)
1247 Lisp_Object arg
, oldval
;
1253 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1256 else if (!STRINGP (oldval
) && EQ (oldval
, Qnil
) == EQ (arg
, Qnil
))
1261 if (f
->output_data
.x
->icon_bitmap
!= 0)
1266 result
= x_text_icon (f
,
1267 (char *) SDATA ((!NILP (f
->icon_name
)
1276 error ("No icon window available");
1279 XFlush (FRAME_X_DISPLAY (f
));
1285 x_set_menu_bar_lines (f
, value
, oldval
)
1287 Lisp_Object value
, oldval
;
1290 #if ! defined (USE_X_TOOLKIT) && ! defined (USE_GTK)
1291 int olines
= FRAME_MENU_BAR_LINES (f
);
1294 /* Right now, menu bars don't work properly in minibuf-only frames;
1295 most of the commands try to apply themselves to the minibuffer
1296 frame itself, and get an error because you can't switch buffers
1297 in or split the minibuffer window. */
1298 if (FRAME_MINIBUF_ONLY_P (f
))
1301 if (INTEGERP (value
))
1302 nlines
= XINT (value
);
1306 /* Make sure we redisplay all windows in this frame. */
1307 windows_or_buffers_changed
++;
1309 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
1310 FRAME_MENU_BAR_LINES (f
) = 0;
1313 FRAME_EXTERNAL_MENU_BAR (f
) = 1;
1314 if (FRAME_X_P (f
) && f
->output_data
.x
->menubar_widget
== 0)
1315 /* Make sure next redisplay shows the menu bar. */
1316 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= Qt
;
1320 if (FRAME_EXTERNAL_MENU_BAR (f
) == 1)
1321 free_frame_menubar (f
);
1322 FRAME_EXTERNAL_MENU_BAR (f
) = 0;
1324 f
->output_data
.x
->menubar_widget
= 0;
1326 #else /* not USE_X_TOOLKIT && not USE_GTK */
1327 FRAME_MENU_BAR_LINES (f
) = nlines
;
1328 change_window_heights (f
->root_window
, nlines
- olines
);
1329 #endif /* not USE_X_TOOLKIT */
1334 /* Set the number of lines used for the tool bar of frame F to VALUE.
1335 VALUE not an integer, or < 0 means set the lines to zero. OLDVAL
1336 is the old number of tool bar lines. This function changes the
1337 height of all windows on frame F to match the new tool bar height.
1338 The frame's height doesn't change. */
1341 x_set_tool_bar_lines (f
, value
, oldval
)
1343 Lisp_Object value
, oldval
;
1345 int delta
, nlines
, root_height
;
1346 Lisp_Object root_window
;
1348 /* Treat tool bars like menu bars. */
1349 if (FRAME_MINIBUF_ONLY_P (f
))
1352 /* Use VALUE only if an integer >= 0. */
1353 if (INTEGERP (value
) && XINT (value
) >= 0)
1354 nlines
= XFASTINT (value
);
1359 FRAME_TOOL_BAR_LINES (f
) = 0;
1362 FRAME_EXTERNAL_TOOL_BAR (f
) = 1;
1363 if (FRAME_X_P (f
) && f
->output_data
.x
->toolbar_widget
== 0)
1364 /* Make sure next redisplay shows the tool bar. */
1365 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= Qt
;
1366 update_frame_tool_bar (f
);
1370 if (FRAME_EXTERNAL_TOOL_BAR (f
))
1371 free_frame_tool_bar (f
);
1372 FRAME_EXTERNAL_TOOL_BAR (f
) = 0;
1378 /* Make sure we redisplay all windows in this frame. */
1379 ++windows_or_buffers_changed
;
1381 delta
= nlines
- FRAME_TOOL_BAR_LINES (f
);
1383 /* Don't resize the tool-bar to more than we have room for. */
1384 root_window
= FRAME_ROOT_WINDOW (f
);
1385 root_height
= WINDOW_TOTAL_LINES (XWINDOW (root_window
));
1386 if (root_height
- delta
< 1)
1388 delta
= root_height
- 1;
1389 nlines
= FRAME_TOOL_BAR_LINES (f
) + delta
;
1392 FRAME_TOOL_BAR_LINES (f
) = nlines
;
1393 change_window_heights (root_window
, delta
);
1396 /* We also have to make sure that the internal border at the top of
1397 the frame, below the menu bar or tool bar, is redrawn when the
1398 tool bar disappears. This is so because the internal border is
1399 below the tool bar if one is displayed, but is below the menu bar
1400 if there isn't a tool bar. The tool bar draws into the area
1401 below the menu bar. */
1402 if (FRAME_X_WINDOW (f
) && FRAME_TOOL_BAR_LINES (f
) == 0)
1406 clear_current_matrices (f
);
1407 updating_frame
= NULL
;
1410 /* If the tool bar gets smaller, the internal border below it
1411 has to be cleared. It was formerly part of the display
1412 of the larger tool bar, and updating windows won't clear it. */
1415 int height
= FRAME_INTERNAL_BORDER_WIDTH (f
);
1416 int width
= FRAME_PIXEL_WIDTH (f
);
1417 int y
= nlines
* FRAME_LINE_HEIGHT (f
);
1419 /* height can be zero here. */
1420 if (height
> 0 && width
> 0)
1423 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1424 0, y
, width
, height
, False
);
1428 if (WINDOWP (f
->tool_bar_window
))
1429 clear_glyph_matrix (XWINDOW (f
->tool_bar_window
)->current_matrix
);
1434 /* Set the foreground color for scroll bars on frame F to VALUE.
1435 VALUE should be a string, a color name. If it isn't a string or
1436 isn't a valid color name, do nothing. OLDVAL is the old value of
1437 the frame parameter. */
1440 x_set_scroll_bar_foreground (f
, value
, oldval
)
1442 Lisp_Object value
, oldval
;
1444 unsigned long pixel
;
1446 if (STRINGP (value
))
1447 pixel
= x_decode_color (f
, value
, BLACK_PIX_DEFAULT (f
));
1451 if (f
->output_data
.x
->scroll_bar_foreground_pixel
!= -1)
1452 unload_color (f
, f
->output_data
.x
->scroll_bar_foreground_pixel
);
1454 f
->output_data
.x
->scroll_bar_foreground_pixel
= pixel
;
1455 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1457 /* Remove all scroll bars because they have wrong colors. */
1458 if (condemn_scroll_bars_hook
)
1459 (*condemn_scroll_bars_hook
) (f
);
1460 if (judge_scroll_bars_hook
)
1461 (*judge_scroll_bars_hook
) (f
);
1463 update_face_from_frame_parameter (f
, Qscroll_bar_foreground
, value
);
1469 /* Set the background color for scroll bars on frame F to VALUE VALUE
1470 should be a string, a color name. If it isn't a string or isn't a
1471 valid color name, do nothing. OLDVAL is the old value of the frame
1475 x_set_scroll_bar_background (f
, value
, oldval
)
1477 Lisp_Object value
, oldval
;
1479 unsigned long pixel
;
1481 if (STRINGP (value
))
1482 pixel
= x_decode_color (f
, value
, WHITE_PIX_DEFAULT (f
));
1486 if (f
->output_data
.x
->scroll_bar_background_pixel
!= -1)
1487 unload_color (f
, f
->output_data
.x
->scroll_bar_background_pixel
);
1489 #ifdef USE_TOOLKIT_SCROLL_BARS
1490 /* Scrollbar shadow colors. */
1491 if (f
->output_data
.x
->scroll_bar_top_shadow_pixel
!= -1)
1493 unload_color (f
, f
->output_data
.x
->scroll_bar_top_shadow_pixel
);
1494 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
1496 if (f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
!= -1)
1498 unload_color (f
, f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
);
1499 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
1501 #endif /* USE_TOOLKIT_SCROLL_BARS */
1503 f
->output_data
.x
->scroll_bar_background_pixel
= pixel
;
1504 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1506 /* Remove all scroll bars because they have wrong colors. */
1507 if (condemn_scroll_bars_hook
)
1508 (*condemn_scroll_bars_hook
) (f
);
1509 if (judge_scroll_bars_hook
)
1510 (*judge_scroll_bars_hook
) (f
);
1512 update_face_from_frame_parameter (f
, Qscroll_bar_background
, value
);
1518 /* Encode Lisp string STRING as a text in a format appropriate for
1519 XICCC (X Inter Client Communication Conventions).
1521 If STRING contains only ASCII characters, do no conversion and
1522 return the string data of STRING. Otherwise, encode the text by
1523 CODING_SYSTEM, and return a newly allocated memory area which
1524 should be freed by `xfree' by a caller.
1526 SELECTIONP non-zero means the string is being encoded for an X
1527 selection, so it is safe to run pre-write conversions (which
1530 Store the byte length of resulting text in *TEXT_BYTES.
1532 If the text contains only ASCII and Latin-1, store 1 in *STRING_P,
1533 which means that the `encoding' of the result can be `STRING'.
1534 Otherwise store 0 in *STRINGP, which means that the `encoding' of
1535 the result should be `COMPOUND_TEXT'. */
1537 static unsigned char *
1538 x_encode_text (string
, coding_system
, selectionp
, text_bytes
, stringp
, freep
)
1539 Lisp_Object string
, coding_system
;
1540 int *text_bytes
, *stringp
;
1544 int result
= string_xstring_p (string
);
1545 struct coding_system coding
;
1549 /* No multibyte character in OBJ. We need not encode it. */
1550 *text_bytes
= SBYTES (string
);
1553 return SDATA (string
);
1556 setup_coding_system (coding_system
, &coding
);
1557 coding
.mode
|= (CODING_MODE_SAFE_ENCODING
| CODING_MODE_LAST_BLOCK
);
1558 /* We suppress producing escape sequences for composition. */
1559 coding
.common_flags
&= ~CODING_ANNOTATION_MASK
;
1560 coding
.dst_bytes
= SCHARS (string
) * 2;
1561 coding
.destination
= (unsigned char *) xmalloc (coding
.dst_bytes
);
1562 encode_coding_object (&coding
, string
, 0, 0,
1563 SCHARS (string
), SBYTES (string
), Qnil
);
1564 *text_bytes
= coding
.produced
;
1565 *stringp
= (result
== 1 || !EQ (coding_system
, Qcompound_text
));
1567 return coding
.destination
;
1571 /* Set the WM name to NAME for frame F. Also set the icon name.
1572 If the frame already has an icon name, use that, otherwise set the
1573 icon name to NAME. */
1576 x_set_name_internal (f
, name
)
1580 if (FRAME_X_WINDOW (f
))
1585 XTextProperty text
, icon
;
1587 int do_free_icon_value
= 0, do_free_text_value
= 0;
1588 Lisp_Object coding_system
;
1590 coding_system
= Qcompound_text
;
1591 /* Note: Encoding strategy
1593 We encode NAME by compound-text and use "COMPOUND-TEXT" in
1594 text.encoding. But, there are non-internationalized window
1595 managers which don't support that encoding. So, if NAME
1596 contains only ASCII and 8859-1 characters, encode it by
1597 iso-latin-1, and use "STRING" in text.encoding hoping that
1598 such window managers at least analyze this format correctly,
1599 i.e. treat 8-bit bytes as 8859-1 characters.
1601 We may also be able to use "UTF8_STRING" in text.encoding
1602 in the future which can encode all Unicode characters.
1603 But, for the moment, there's no way to know that the
1604 current window manager supports it or not. */
1605 text
.value
= x_encode_text (name
, coding_system
, 0, &bytes
, &stringp
,
1606 &do_free_text_value
);
1607 text
.encoding
= (stringp
? XA_STRING
1608 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1610 text
.nitems
= bytes
;
1612 if (NILP (f
->icon_name
))
1618 /* See the above comment "Note: Encoding strategy". */
1619 icon
.value
= x_encode_text (f
->icon_name
, coding_system
, 0,
1620 &bytes
, &stringp
, &do_free_icon_value
);
1621 icon
.encoding
= (stringp
? XA_STRING
1622 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1624 icon
.nitems
= bytes
;
1628 gtk_window_set_title (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
1629 (char *) SDATA (ENCODE_UTF_8 (name
)));
1630 #else /* not USE_GTK */
1631 XSetWMName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &text
);
1632 #endif /* not USE_GTK */
1634 XSetWMIconName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &icon
);
1636 if (do_free_icon_value
)
1638 if (do_free_text_value
)
1641 #else /* not HAVE_X11R4 */
1642 XSetIconName (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1644 XStoreName (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1646 #endif /* not HAVE_X11R4 */
1651 /* Change the name of frame F to NAME. If NAME is nil, set F's name to
1654 If EXPLICIT is non-zero, that indicates that lisp code is setting the
1655 name; if NAME is a string, set F's name to NAME and set
1656 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1658 If EXPLICIT is zero, that indicates that Emacs redisplay code is
1659 suggesting a new name, which lisp code should override; if
1660 F->explicit_name is set, ignore the new name; otherwise, set it. */
1663 x_set_name (f
, name
, explicit)
1668 /* Make sure that requests from lisp code override requests from
1669 Emacs redisplay code. */
1672 /* If we're switching from explicit to implicit, we had better
1673 update the mode lines and thereby update the title. */
1674 if (f
->explicit_name
&& NILP (name
))
1675 update_mode_lines
= 1;
1677 f
->explicit_name
= ! NILP (name
);
1679 else if (f
->explicit_name
)
1682 /* If NAME is nil, set the name to the x_id_name. */
1685 /* Check for no change needed in this very common case
1686 before we do any consing. */
1687 if (!strcmp (FRAME_X_DISPLAY_INFO (f
)->x_id_name
,
1690 name
= build_string (FRAME_X_DISPLAY_INFO (f
)->x_id_name
);
1693 CHECK_STRING (name
);
1695 /* Don't change the name if it's already NAME. */
1696 if (! NILP (Fstring_equal (name
, f
->name
)))
1701 /* For setting the frame title, the title parameter should override
1702 the name parameter. */
1703 if (! NILP (f
->title
))
1706 x_set_name_internal (f
, name
);
1709 /* This function should be called when the user's lisp code has
1710 specified a name for the frame; the name will override any set by the
1713 x_explicitly_set_name (f
, arg
, oldval
)
1715 Lisp_Object arg
, oldval
;
1717 x_set_name (f
, arg
, 1);
1720 /* This function should be called by Emacs redisplay code to set the
1721 name; names set this way will never override names set by the user's
1724 x_implicitly_set_name (f
, arg
, oldval
)
1726 Lisp_Object arg
, oldval
;
1728 x_set_name (f
, arg
, 0);
1731 /* Change the title of frame F to NAME.
1732 If NAME is nil, use the frame name as the title.
1734 If EXPLICIT is non-zero, that indicates that lisp code is setting the
1735 name; if NAME is a string, set F's name to NAME and set
1736 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1738 If EXPLICIT is zero, that indicates that Emacs redisplay code is
1739 suggesting a new name, which lisp code should override; if
1740 F->explicit_name is set, ignore the new name; otherwise, set it. */
1743 x_set_title (f
, name
, old_name
)
1745 Lisp_Object name
, old_name
;
1747 /* Don't change the title if it's already NAME. */
1748 if (EQ (name
, f
->title
))
1751 update_mode_lines
= 1;
1758 CHECK_STRING (name
);
1760 x_set_name_internal (f
, name
);
1764 x_set_scroll_bar_default_width (f
)
1767 int wid
= FRAME_COLUMN_WIDTH (f
);
1769 #ifdef USE_TOOLKIT_SCROLL_BARS
1770 /* A minimum width of 14 doesn't look good for toolkit scroll bars. */
1771 int width
= 16 + 2 * VERTICAL_SCROLL_BAR_WIDTH_TRIM
;
1772 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (width
+ wid
- 1) / wid
;
1773 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = width
;
1775 /* Make the actual width at least 14 pixels and a multiple of a
1777 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (14 + wid
- 1) / wid
;
1779 /* Use all of that space (aside from required margins) for the
1781 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = 0;
1786 /* Record in frame F the specified or default value according to ALIST
1787 of the parameter named PROP (a Lisp symbol). If no value is
1788 specified for PROP, look for an X default for XPROP on the frame
1789 named NAME. If that is not found either, use the value DEFLT. */
1792 x_default_scroll_bar_color_parameter (f
, alist
, prop
, xprop
, xclass
,
1801 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
1804 tem
= x_get_arg (dpyinfo
, alist
, prop
, xprop
, xclass
, RES_TYPE_STRING
);
1805 if (EQ (tem
, Qunbound
))
1807 #ifdef USE_TOOLKIT_SCROLL_BARS
1809 /* See if an X resource for the scroll bar color has been
1811 tem
= display_x_get_resource (dpyinfo
,
1812 build_string (foreground_p
1816 build_string ("verticalScrollBar"),
1820 /* If nothing has been specified, scroll bars will use a
1821 toolkit-dependent default. Because these defaults are
1822 difficult to get at without actually creating a scroll
1823 bar, use nil to indicate that no color has been
1828 #else /* not USE_TOOLKIT_SCROLL_BARS */
1832 #endif /* not USE_TOOLKIT_SCROLL_BARS */
1835 x_set_frame_parameters (f
, Fcons (Fcons (prop
, tem
), Qnil
));
1841 #if !defined (HAVE_X11R4) && !defined (HAVE_XSETWMPROTOCOLS)
1844 XSetWMProtocols (dpy
, w
, protocols
, count
)
1851 prop
= XInternAtom (dpy
, "WM_PROTOCOLS", False
);
1852 if (prop
== None
) return False
;
1853 XChangeProperty (dpy
, w
, prop
, XA_ATOM
, 32, PropModeReplace
,
1854 (unsigned char *) protocols
, count
);
1857 #endif /* not HAVE_X11R4 && not HAVE_XSETWMPROTOCOLS */
1859 #ifdef USE_X_TOOLKIT
1861 /* If the WM_PROTOCOLS property does not already contain WM_TAKE_FOCUS,
1862 WM_DELETE_WINDOW, and WM_SAVE_YOURSELF, then add them. (They may
1863 already be present because of the toolkit (Motif adds some of them,
1864 for example, but Xt doesn't). */
1867 hack_wm_protocols (f
, widget
)
1871 Display
*dpy
= XtDisplay (widget
);
1872 Window w
= XtWindow (widget
);
1873 int need_delete
= 1;
1880 unsigned char *catoms
;
1882 unsigned long nitems
= 0;
1883 unsigned long bytes_after
;
1885 if ((XGetWindowProperty (dpy
, w
,
1886 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1887 (long)0, (long)100, False
, XA_ATOM
,
1888 &type
, &format
, &nitems
, &bytes_after
,
1891 && format
== 32 && type
== XA_ATOM
)
1893 Atom
*atoms
= (Atom
*) catoms
;
1898 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
)
1900 else if (atoms
[nitems
]
1901 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
)
1903 else if (atoms
[nitems
]
1904 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
)
1915 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
1917 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
;
1919 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
1921 XChangeProperty (dpy
, w
, FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1922 XA_ATOM
, 32, PropModeAppend
,
1923 (unsigned char *) props
, count
);
1931 /* Support routines for XIC (X Input Context). */
1935 static XFontSet xic_create_xfontset
P_ ((struct frame
*, char *));
1936 static XIMStyle best_xim_style
P_ ((XIMStyles
*, XIMStyles
*));
1939 /* Supported XIM styles, ordered by preference. */
1941 static XIMStyle supported_xim_styles
[] =
1943 XIMPreeditPosition
| XIMStatusArea
,
1944 XIMPreeditPosition
| XIMStatusNothing
,
1945 XIMPreeditPosition
| XIMStatusNone
,
1946 XIMPreeditNothing
| XIMStatusArea
,
1947 XIMPreeditNothing
| XIMStatusNothing
,
1948 XIMPreeditNothing
| XIMStatusNone
,
1949 XIMPreeditNone
| XIMStatusArea
,
1950 XIMPreeditNone
| XIMStatusNothing
,
1951 XIMPreeditNone
| XIMStatusNone
,
1956 /* Create an X fontset on frame F with base font name BASE_FONTNAME. */
1958 char xic_defaut_fontset
[] = "-*-*-*-r-normal--14-*-*-*-*-*-*-*";
1960 /* Create an Xt fontset spec from the name of a base font.
1961 If `motif' is True use the Motif syntax. */
1963 xic_create_fontsetname (base_fontname
, motif
)
1964 char *base_fontname
;
1967 const char *sep
= motif
? ";" : ",";
1970 /* Make a fontset name from the base font name. */
1971 if (xic_defaut_fontset
== base_fontname
)
1972 { /* There is no base font name, use the default. */
1973 int len
= strlen (base_fontname
) + 2;
1974 fontsetname
= xmalloc (len
);
1975 bzero (fontsetname
, len
);
1976 strcpy (fontsetname
, base_fontname
);
1980 /* Make a fontset name from the base font name.
1981 The font set will be made of the following elements:
1983 - the base font where the charset spec is replaced by -*-*.
1984 - the same but with the family also replaced with -*-*-. */
1985 char *p
= base_fontname
;
1988 for (i
= 0; *p
; p
++)
1991 { /* As the font name doesn't conform to XLFD, we can't
1992 modify it to generalize it to allcs and allfamilies.
1993 Use the specified font plus the default. */
1994 int len
= strlen (base_fontname
) + strlen (xic_defaut_fontset
) + 3;
1995 fontsetname
= xmalloc (len
);
1996 bzero (fontsetname
, len
);
1997 strcpy (fontsetname
, base_fontname
);
1998 strcat (fontsetname
, sep
);
1999 strcat (fontsetname
, xic_defaut_fontset
);
2004 char *p1
= NULL
, *p2
= NULL
;
2005 char *font_allcs
= NULL
;
2006 char *font_allfamilies
= NULL
;
2007 char *font_all
= NULL
;
2008 char *allcs
= "*-*-*-*-*-*-*";
2009 char *allfamilies
= "-*-*-";
2010 char *all
= "*-*-*-*-";
2012 for (i
= 0, p
= base_fontname
; i
< 8; p
++)
2023 /* Build the font spec that matches all charsets. */
2024 len
= p
- base_fontname
+ strlen (allcs
) + 1;
2025 font_allcs
= (char *) alloca (len
);
2026 bzero (font_allcs
, len
);
2027 bcopy (base_fontname
, font_allcs
, p
- base_fontname
);
2028 strcat (font_allcs
, allcs
);
2030 /* Build the font spec that matches all families. */
2031 len
= p
- p1
+ strlen (allcs
) + strlen (allfamilies
) + 1;
2032 font_allfamilies
= (char *) alloca (len
);
2033 bzero (font_allfamilies
, len
);
2034 strcpy (font_allfamilies
, allfamilies
);
2035 bcopy (p1
, font_allfamilies
+ strlen (allfamilies
), p
- p1
);
2036 strcat (font_allfamilies
, allcs
);
2038 /* Build the font spec that matches all. */
2039 len
= p
- p2
+ strlen (allcs
) + strlen (all
) + strlen (allfamilies
) + 1;
2040 font_all
= (char *) alloca (len
);
2041 bzero (font_all
, len
);
2042 strcpy (font_all
, allfamilies
);
2043 strcat (font_all
, all
);
2044 bcopy (p2
, font_all
+ strlen (all
) + strlen (allfamilies
), p
- p2
);
2045 strcat (font_all
, allcs
);
2047 /* Build the actual font set name. */
2048 len
= strlen (base_fontname
) + strlen (font_allcs
)
2049 + strlen (font_allfamilies
) + strlen (font_all
) + 5;
2050 fontsetname
= xmalloc (len
);
2051 bzero (fontsetname
, len
);
2052 strcpy (fontsetname
, base_fontname
);
2053 strcat (fontsetname
, sep
);
2054 strcat (fontsetname
, font_allcs
);
2055 strcat (fontsetname
, sep
);
2056 strcat (fontsetname
, font_allfamilies
);
2057 strcat (fontsetname
, sep
);
2058 strcat (fontsetname
, font_all
);
2062 strcat (fontsetname
, ":");
2067 xic_create_xfontset (f
, base_fontname
)
2069 char *base_fontname
;
2071 XFontSet xfs
= NULL
;
2072 char **missing_list
= NULL
;
2075 Lisp_Object rest
, frame
;
2078 base_fontname
= xic_defaut_fontset
;
2080 /* See if there is another frame already using same fontset. */
2081 FOR_EACH_FRAME (rest
, frame
)
2083 struct frame
*cf
= XFRAME (frame
);
2084 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
2085 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
2086 && FRAME_XIC_BASE_FONTNAME (cf
)
2087 && !strcmp (FRAME_XIC_BASE_FONTNAME (cf
), base_fontname
))
2089 xfs
= FRAME_XIC_FONTSET (cf
);
2096 char *fontsetname
= xic_create_fontsetname (base_fontname
, False
);
2099 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
),
2100 fontsetname
, &missing_list
,
2101 &missing_count
, &def_string
);
2103 XFreeStringList (missing_list
);
2104 xfree (fontsetname
);
2107 if (FRAME_XIC_BASE_FONTNAME (f
))
2108 xfree (FRAME_XIC_BASE_FONTNAME (f
));
2109 FRAME_XIC_BASE_FONTNAME (f
) = xstrdup (base_fontname
);
2111 /* No need to free def_string. */
2115 /* Free the X fontset of frame F if it is the last frame using it. */
2118 xic_free_xfontset (f
)
2121 Lisp_Object rest
, frame
;
2124 if (!FRAME_XIC_FONTSET (f
))
2127 /* See if there is another frame sharing the same fontset. */
2128 FOR_EACH_FRAME (rest
, frame
)
2130 struct frame
*cf
= XFRAME (frame
);
2131 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
2132 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
2133 && FRAME_XIC_FONTSET (cf
) == FRAME_XIC_FONTSET (f
))
2141 /* The fontset is not used anymore. It is safe to free it. */
2142 XFreeFontSet (FRAME_X_DISPLAY (f
), FRAME_XIC_FONTSET (f
));
2144 if (FRAME_XIC_BASE_FONTNAME (f
))
2145 xfree (FRAME_XIC_BASE_FONTNAME (f
));
2146 FRAME_XIC_BASE_FONTNAME (f
) = NULL
;
2147 FRAME_XIC_FONTSET (f
) = NULL
;
2151 /* Value is the best input style, given user preferences USER (already
2152 checked to be supported by Emacs), and styles supported by the
2153 input method XIM. */
2156 best_xim_style (user
, xim
)
2162 for (i
= 0; i
< user
->count_styles
; ++i
)
2163 for (j
= 0; j
< xim
->count_styles
; ++j
)
2164 if (user
->supported_styles
[i
] == xim
->supported_styles
[j
])
2165 return user
->supported_styles
[i
];
2167 /* Return the default style. */
2168 return XIMPreeditNothing
| XIMStatusNothing
;
2171 /* Create XIC for frame F. */
2173 static XIMStyle xic_style
;
2176 create_frame_xic (f
)
2181 XFontSet xfs
= NULL
;
2186 /* Create X fontset. */
2187 xfs
= xic_create_xfontset
2188 (f
, (FRAME_FONTSET (f
) < 0) ? NULL
2189 : (char *) SDATA (fontset_ascii (FRAME_FONTSET (f
))));
2191 xim
= FRAME_X_XIM (f
);
2196 XVaNestedList preedit_attr
;
2197 XVaNestedList status_attr
;
2199 s_area
.x
= 0; s_area
.y
= 0; s_area
.width
= 1; s_area
.height
= 1;
2200 spot
.x
= 0; spot
.y
= 1;
2202 /* Determine XIC style. */
2205 XIMStyles supported_list
;
2206 supported_list
.count_styles
= (sizeof supported_xim_styles
2207 / sizeof supported_xim_styles
[0]);
2208 supported_list
.supported_styles
= supported_xim_styles
;
2209 xic_style
= best_xim_style (&supported_list
,
2210 FRAME_X_XIM_STYLES (f
));
2213 preedit_attr
= XVaCreateNestedList (0,
2216 FRAME_FOREGROUND_PIXEL (f
),
2218 FRAME_BACKGROUND_PIXEL (f
),
2219 (xic_style
& XIMPreeditPosition
2224 status_attr
= XVaCreateNestedList (0,
2230 FRAME_FOREGROUND_PIXEL (f
),
2232 FRAME_BACKGROUND_PIXEL (f
),
2235 xic
= XCreateIC (xim
,
2236 XNInputStyle
, xic_style
,
2237 XNClientWindow
, FRAME_X_WINDOW (f
),
2238 XNFocusWindow
, FRAME_X_WINDOW (f
),
2239 XNStatusAttributes
, status_attr
,
2240 XNPreeditAttributes
, preedit_attr
,
2242 XFree (preedit_attr
);
2243 XFree (status_attr
);
2246 FRAME_XIC (f
) = xic
;
2247 FRAME_XIC_STYLE (f
) = xic_style
;
2248 FRAME_XIC_FONTSET (f
) = xfs
;
2252 /* Destroy XIC and free XIC fontset of frame F, if any. */
2258 if (FRAME_XIC (f
) == NULL
)
2261 XDestroyIC (FRAME_XIC (f
));
2262 xic_free_xfontset (f
);
2264 FRAME_XIC (f
) = NULL
;
2268 /* Place preedit area for XIC of window W's frame to specified
2269 pixel position X/Y. X and Y are relative to window W. */
2272 xic_set_preeditarea (w
, x
, y
)
2276 struct frame
*f
= XFRAME (w
->frame
);
2280 spot
.x
= WINDOW_TO_FRAME_PIXEL_X (w
, x
) + WINDOW_LEFT_FRINGE_WIDTH (w
);
2281 spot
.y
= WINDOW_TO_FRAME_PIXEL_Y (w
, y
) + FONT_BASE (FRAME_FONT (f
));
2282 attr
= XVaCreateNestedList (0, XNSpotLocation
, &spot
, NULL
);
2283 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2288 /* Place status area for XIC in bottom right corner of frame F.. */
2291 xic_set_statusarea (f
)
2294 XIC xic
= FRAME_XIC (f
);
2299 /* Negotiate geometry of status area. If input method has existing
2300 status area, use its current size. */
2301 area
.x
= area
.y
= area
.width
= area
.height
= 0;
2302 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &area
, NULL
);
2303 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2306 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &needed
, NULL
);
2307 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2310 if (needed
->width
== 0) /* Use XNArea instead of XNAreaNeeded */
2312 attr
= XVaCreateNestedList (0, XNArea
, &needed
, NULL
);
2313 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2317 area
.width
= needed
->width
;
2318 area
.height
= needed
->height
;
2319 area
.x
= FRAME_PIXEL_WIDTH (f
) - area
.width
- FRAME_INTERNAL_BORDER_WIDTH (f
);
2320 area
.y
= (FRAME_PIXEL_HEIGHT (f
) - area
.height
2321 - FRAME_MENUBAR_HEIGHT (f
)
2322 - FRAME_TOOLBAR_HEIGHT (f
)
2323 - FRAME_INTERNAL_BORDER_WIDTH (f
));
2326 attr
= XVaCreateNestedList (0, XNArea
, &area
, NULL
);
2327 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2332 /* Set X fontset for XIC of frame F, using base font name
2333 BASE_FONTNAME. Called when a new Emacs fontset is chosen. */
2336 xic_set_xfontset (f
, base_fontname
)
2338 char *base_fontname
;
2343 xic_free_xfontset (f
);
2345 xfs
= xic_create_xfontset (f
, base_fontname
);
2347 attr
= XVaCreateNestedList (0, XNFontSet
, xfs
, NULL
);
2348 if (FRAME_XIC_STYLE (f
) & XIMPreeditPosition
)
2349 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2350 if (FRAME_XIC_STYLE (f
) & XIMStatusArea
)
2351 XSetICValues (FRAME_XIC (f
), XNStatusAttributes
, attr
, NULL
);
2354 FRAME_XIC_FONTSET (f
) = xfs
;
2357 #endif /* HAVE_X_I18N */
2361 #ifdef USE_X_TOOLKIT
2363 /* Create and set up the X widget for frame F. */
2366 x_window (f
, window_prompting
, minibuffer_only
)
2368 long window_prompting
;
2369 int minibuffer_only
;
2371 XClassHint class_hints
;
2372 XSetWindowAttributes attributes
;
2373 unsigned long attribute_mask
;
2374 Widget shell_widget
;
2376 Widget frame_widget
;
2382 /* Use the resource name as the top-level widget name
2383 for looking up resources. Make a non-Lisp copy
2384 for the window manager, so GC relocation won't bother it.
2386 Elsewhere we specify the window name for the window manager. */
2389 char *str
= (char *) SDATA (Vx_resource_name
);
2390 f
->namebuf
= (char *) xmalloc (strlen (str
) + 1);
2391 strcpy (f
->namebuf
, str
);
2395 XtSetArg (al
[ac
], XtNallowShellResize
, 1); ac
++;
2396 XtSetArg (al
[ac
], XtNinput
, 1); ac
++;
2397 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2398 XtSetArg (al
[ac
], XtNborderWidth
, f
->border_width
); ac
++;
2399 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2400 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2401 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2402 shell_widget
= XtAppCreateShell (f
->namebuf
, EMACS_CLASS
,
2403 applicationShellWidgetClass
,
2404 FRAME_X_DISPLAY (f
), al
, ac
);
2406 f
->output_data
.x
->widget
= shell_widget
;
2407 /* maybe_set_screen_title_format (shell_widget); */
2409 pane_widget
= lw_create_widget ("main", "pane", widget_id_tick
++,
2410 (widget_value
*) NULL
,
2411 shell_widget
, False
,
2415 (lw_callback
) NULL
);
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 XtSetValues (pane_widget
, al
, ac
);
2422 f
->output_data
.x
->column_widget
= pane_widget
;
2424 /* mappedWhenManaged to false tells to the paned window to not map/unmap
2425 the emacs screen when changing menubar. This reduces flickering. */
2428 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2429 XtSetArg (al
[ac
], XtNshowGrip
, 0); ac
++;
2430 XtSetArg (al
[ac
], XtNallowResize
, 1); ac
++;
2431 XtSetArg (al
[ac
], XtNresizeToPreferred
, 1); ac
++;
2432 XtSetArg (al
[ac
], XtNemacsFrame
, f
); ac
++;
2433 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2434 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2435 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2436 frame_widget
= XtCreateWidget (f
->namebuf
, emacsFrameClass
, pane_widget
,
2439 f
->output_data
.x
->edit_widget
= frame_widget
;
2441 XtManageChild (frame_widget
);
2443 /* Do some needed geometry management. */
2446 char *tem
, shell_position
[32];
2449 int extra_borders
= 0;
2451 = (f
->output_data
.x
->menubar_widget
2452 ? (f
->output_data
.x
->menubar_widget
->core
.height
2453 + f
->output_data
.x
->menubar_widget
->core
.border_width
)
2456 #if 0 /* Experimentally, we now get the right results
2457 for -geometry -0-0 without this. 24 Aug 96, rms. */
2458 if (FRAME_EXTERNAL_MENU_BAR (f
))
2461 XtVaGetValues (pane_widget
, XtNinternalBorderWidth
, &ibw
, NULL
);
2462 menubar_size
+= ibw
;
2466 f
->output_data
.x
->menubar_height
= menubar_size
;
2469 /* Motif seems to need this amount added to the sizes
2470 specified for the shell widget. The Athena/Lucid widgets don't.
2471 Both conclusions reached experimentally. -- rms. */
2472 XtVaGetValues (f
->output_data
.x
->edit_widget
, XtNinternalBorderWidth
,
2473 &extra_borders
, NULL
);
2477 /* Convert our geometry parameters into a geometry string
2479 Note that we do not specify here whether the position
2480 is a user-specified or program-specified one.
2481 We pass that information later, in x_wm_set_size_hints. */
2483 int left
= f
->left_pos
;
2484 int xneg
= window_prompting
& XNegative
;
2485 int top
= f
->top_pos
;
2486 int yneg
= window_prompting
& YNegative
;
2492 if (window_prompting
& USPosition
)
2493 sprintf (shell_position
, "=%dx%d%c%d%c%d",
2494 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2495 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
,
2496 (xneg
? '-' : '+'), left
,
2497 (yneg
? '-' : '+'), top
);
2500 sprintf (shell_position
, "=%dx%d",
2501 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2502 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
);
2504 /* Setting x and y when the position is not specified in
2505 the geometry string will set program position in the WM hints.
2506 If Emacs had just one program position, we could set it in
2507 fallback resources, but since each make-frame call can specify
2508 different program positions, this is easier. */
2509 XtSetArg (al
[ac
], XtNx
, left
); ac
++;
2510 XtSetArg (al
[ac
], XtNy
, top
); ac
++;
2514 len
= strlen (shell_position
) + 1;
2515 /* We don't free this because we don't know whether
2516 it is safe to free it while the frame exists.
2517 It isn't worth the trouble of arranging to free it
2518 when the frame is deleted. */
2519 tem
= (char *) xmalloc (len
);
2520 strncpy (tem
, shell_position
, len
);
2521 XtSetArg (al
[ac
], XtNgeometry
, tem
); ac
++;
2522 XtSetValues (shell_widget
, al
, ac
);
2525 XtManageChild (pane_widget
);
2526 XtRealizeWidget (shell_widget
);
2528 FRAME_X_WINDOW (f
) = XtWindow (frame_widget
);
2530 validate_x_resource_name ();
2532 class_hints
.res_name
= (char *) SDATA (Vx_resource_name
);
2533 class_hints
.res_class
= (char *) SDATA (Vx_resource_class
);
2534 XSetClassHint (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
), &class_hints
);
2537 FRAME_XIC (f
) = NULL
;
2539 create_frame_xic (f
);
2542 f
->output_data
.x
->wm_hints
.input
= True
;
2543 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2544 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2545 &f
->output_data
.x
->wm_hints
);
2547 hack_wm_protocols (f
, shell_widget
);
2550 XtAddEventHandler (shell_widget
, 0, True
, _XEditResCheckMessages
, 0);
2553 /* Do a stupid property change to force the server to generate a
2554 PropertyNotify event so that the event_stream server timestamp will
2555 be initialized to something relevant to the time we created the window.
2557 XChangeProperty (XtDisplay (frame_widget
), XtWindow (frame_widget
),
2558 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
2559 XA_ATOM
, 32, PropModeAppend
,
2560 (unsigned char*) NULL
, 0);
2562 /* Make all the standard events reach the Emacs frame. */
2563 attributes
.event_mask
= STANDARD_EVENT_SET
;
2568 /* XIM server might require some X events. */
2569 unsigned long fevent
= NoEventMask
;
2570 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2571 attributes
.event_mask
|= fevent
;
2573 #endif /* HAVE_X_I18N */
2575 attribute_mask
= CWEventMask
;
2576 XChangeWindowAttributes (XtDisplay (shell_widget
), XtWindow (shell_widget
),
2577 attribute_mask
, &attributes
);
2579 XtMapWidget (frame_widget
);
2581 /* x_set_name normally ignores requests to set the name if the
2582 requested name is the same as the current name. This is the one
2583 place where that assumption isn't correct; f->name is set, but
2584 the X server hasn't been told. */
2587 int explicit = f
->explicit_name
;
2589 f
->explicit_name
= 0;
2592 x_set_name (f
, name
, explicit);
2595 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2596 f
->output_data
.x
->text_cursor
);
2600 /* This is a no-op, except under Motif. Make sure main areas are
2601 set to something reasonable, in case we get an error later. */
2602 lw_set_main_areas (pane_widget
, 0, frame_widget
);
2605 #else /* not USE_X_TOOLKIT */
2611 if (! xg_create_frame_widgets (f
))
2612 error ("Unable to create window");
2615 FRAME_XIC (f
) = NULL
;
2619 create_frame_xic (f
);
2622 /* XIM server might require some X events. */
2623 unsigned long fevent
= NoEventMask
;
2624 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2626 if (fevent
!= NoEventMask
)
2628 XSetWindowAttributes attributes
;
2629 XWindowAttributes wattr
;
2630 unsigned long attribute_mask
;
2632 XGetWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2634 attributes
.event_mask
= wattr
.your_event_mask
| fevent
;
2635 attribute_mask
= CWEventMask
;
2636 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2637 attribute_mask
, &attributes
);
2645 #else /*! USE_GTK */
2646 /* Create and set up the X window for frame F. */
2653 XClassHint class_hints
;
2654 XSetWindowAttributes attributes
;
2655 unsigned long attribute_mask
;
2657 attributes
.background_pixel
= f
->output_data
.x
->background_pixel
;
2658 attributes
.border_pixel
= f
->output_data
.x
->border_pixel
;
2659 attributes
.bit_gravity
= StaticGravity
;
2660 attributes
.backing_store
= NotUseful
;
2661 attributes
.save_under
= True
;
2662 attributes
.event_mask
= STANDARD_EVENT_SET
;
2663 attributes
.colormap
= FRAME_X_COLORMAP (f
);
2664 attribute_mask
= (CWBackPixel
| CWBorderPixel
| CWBitGravity
| CWEventMask
2669 = XCreateWindow (FRAME_X_DISPLAY (f
),
2670 f
->output_data
.x
->parent_desc
,
2673 FRAME_PIXEL_WIDTH (f
), FRAME_PIXEL_HEIGHT (f
),
2675 CopyFromParent
, /* depth */
2676 InputOutput
, /* class */
2678 attribute_mask
, &attributes
);
2683 create_frame_xic (f
);
2686 /* XIM server might require some X events. */
2687 unsigned long fevent
= NoEventMask
;
2688 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2689 attributes
.event_mask
|= fevent
;
2690 attribute_mask
= CWEventMask
;
2691 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2692 attribute_mask
, &attributes
);
2695 #endif /* HAVE_X_I18N */
2697 validate_x_resource_name ();
2699 class_hints
.res_name
= (char *) SDATA (Vx_resource_name
);
2700 class_hints
.res_class
= (char *) SDATA (Vx_resource_class
);
2701 XSetClassHint (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), &class_hints
);
2703 /* The menubar is part of the ordinary display;
2704 it does not count in addition to the height of the window. */
2705 f
->output_data
.x
->menubar_height
= 0;
2707 /* This indicates that we use the "Passive Input" input model.
2708 Unless we do this, we don't get the Focus{In,Out} events that we
2709 need to draw the cursor correctly. Accursed bureaucrats.
2710 XWhipsAndChains (FRAME_X_DISPLAY (f), IronMaiden, &TheRack); */
2712 f
->output_data
.x
->wm_hints
.input
= True
;
2713 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2714 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2715 &f
->output_data
.x
->wm_hints
);
2716 f
->output_data
.x
->wm_hints
.icon_pixmap
= None
;
2718 /* Request "save yourself" and "delete window" commands from wm. */
2721 protocols
[0] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
2722 protocols
[1] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
2723 XSetWMProtocols (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), protocols
, 2);
2726 /* x_set_name normally ignores requests to set the name if the
2727 requested name is the same as the current name. This is the one
2728 place where that assumption isn't correct; f->name is set, but
2729 the X server hasn't been told. */
2732 int explicit = f
->explicit_name
;
2734 f
->explicit_name
= 0;
2737 x_set_name (f
, name
, explicit);
2740 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2741 f
->output_data
.x
->text_cursor
);
2745 if (FRAME_X_WINDOW (f
) == 0)
2746 error ("Unable to create window");
2749 #endif /* not USE_GTK */
2750 #endif /* not USE_X_TOOLKIT */
2752 /* Verify that the icon position args for this window are valid. */
2755 x_icon_verify (f
, parms
)
2759 Lisp_Object icon_x
, icon_y
;
2761 /* Set the position of the icon. Note that twm groups all
2762 icons in an icon window. */
2763 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2764 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2765 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2767 CHECK_NUMBER (icon_x
);
2768 CHECK_NUMBER (icon_y
);
2770 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2771 error ("Both left and top icon corners of icon must be specified");
2774 /* Handle the icon stuff for this window. Perhaps later we might
2775 want an x_set_icon_position which can be called interactively as
2783 Lisp_Object icon_x
, icon_y
;
2784 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2786 /* Set the position of the icon. Note that twm groups all
2787 icons in an icon window. */
2788 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2789 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2790 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2792 CHECK_NUMBER (icon_x
);
2793 CHECK_NUMBER (icon_y
);
2795 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2796 error ("Both left and top icon corners of icon must be specified");
2800 if (! EQ (icon_x
, Qunbound
))
2801 x_wm_set_icon_position (f
, XINT (icon_x
), XINT (icon_y
));
2803 /* Start up iconic or window? */
2804 x_wm_set_window_state
2805 (f
, (EQ (x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0, RES_TYPE_SYMBOL
),
2810 x_text_icon (f
, (char *) SDATA ((!NILP (f
->icon_name
)
2817 /* Make the GCs needed for this window, setting the
2818 background, border and mouse colors; also create the
2819 mouse cursor and the gray border tile. */
2821 static char cursor_bits
[] =
2823 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2824 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2825 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2826 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00
2833 XGCValues gc_values
;
2837 /* Create the GCs of this frame.
2838 Note that many default values are used. */
2841 gc_values
.font
= FRAME_FONT (f
)->fid
;
2842 gc_values
.foreground
= f
->output_data
.x
->foreground_pixel
;
2843 gc_values
.background
= f
->output_data
.x
->background_pixel
;
2844 gc_values
.line_width
= 0; /* Means 1 using fast algorithm. */
2845 f
->output_data
.x
->normal_gc
2846 = XCreateGC (FRAME_X_DISPLAY (f
),
2848 GCLineWidth
| GCFont
| GCForeground
| GCBackground
,
2851 /* Reverse video style. */
2852 gc_values
.foreground
= f
->output_data
.x
->background_pixel
;
2853 gc_values
.background
= f
->output_data
.x
->foreground_pixel
;
2854 f
->output_data
.x
->reverse_gc
2855 = XCreateGC (FRAME_X_DISPLAY (f
),
2857 GCFont
| GCForeground
| GCBackground
| GCLineWidth
,
2860 /* Cursor has cursor-color background, background-color foreground. */
2861 gc_values
.foreground
= f
->output_data
.x
->background_pixel
;
2862 gc_values
.background
= f
->output_data
.x
->cursor_pixel
;
2863 gc_values
.fill_style
= FillOpaqueStippled
;
2865 = XCreateBitmapFromData (FRAME_X_DISPLAY (f
),
2866 FRAME_X_DISPLAY_INFO (f
)->root_window
,
2867 cursor_bits
, 16, 16);
2868 f
->output_data
.x
->cursor_gc
2869 = XCreateGC (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2870 (GCFont
| GCForeground
| GCBackground
2871 | GCFillStyle
/* | GCStipple */ | GCLineWidth
),
2875 f
->output_data
.x
->white_relief
.gc
= 0;
2876 f
->output_data
.x
->black_relief
.gc
= 0;
2878 /* Create the gray border tile used when the pointer is not in
2879 the frame. Since this depends on the frame's pixel values,
2880 this must be done on a per-frame basis. */
2881 f
->output_data
.x
->border_tile
2882 = (XCreatePixmapFromBitmapData
2883 (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
2884 gray_bits
, gray_width
, gray_height
,
2885 f
->output_data
.x
->foreground_pixel
,
2886 f
->output_data
.x
->background_pixel
,
2887 DefaultDepth (FRAME_X_DISPLAY (f
), FRAME_X_SCREEN_NUMBER (f
))));
2893 /* Free what was was allocated in x_make_gc. */
2899 Display
*dpy
= FRAME_X_DISPLAY (f
);
2903 if (f
->output_data
.x
->normal_gc
)
2905 XFreeGC (dpy
, f
->output_data
.x
->normal_gc
);
2906 f
->output_data
.x
->normal_gc
= 0;
2909 if (f
->output_data
.x
->reverse_gc
)
2911 XFreeGC (dpy
, f
->output_data
.x
->reverse_gc
);
2912 f
->output_data
.x
->reverse_gc
= 0;
2915 if (f
->output_data
.x
->cursor_gc
)
2917 XFreeGC (dpy
, f
->output_data
.x
->cursor_gc
);
2918 f
->output_data
.x
->cursor_gc
= 0;
2921 if (f
->output_data
.x
->border_tile
)
2923 XFreePixmap (dpy
, f
->output_data
.x
->border_tile
);
2924 f
->output_data
.x
->border_tile
= 0;
2931 /* Handler for signals raised during x_create_frame and
2932 x_create_top_frame. FRAME is the frame which is partially
2936 unwind_create_frame (frame
)
2939 struct frame
*f
= XFRAME (frame
);
2941 /* If frame is ``official'', nothing to do. */
2942 if (!CONSP (Vframe_list
) || !EQ (XCAR (Vframe_list
), frame
))
2945 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2948 x_free_frame_resources (f
);
2951 /* Check that reference counts are indeed correct. */
2952 xassert (dpyinfo
->reference_count
== dpyinfo_refcount
);
2953 xassert (dpyinfo
->image_cache
->refcount
== image_cache_refcount
);
2962 DEFUN ("x-create-frame", Fx_create_frame
, Sx_create_frame
,
2964 doc
: /* Make a new X window, which is called a "frame" in Emacs terms.
2965 Returns an Emacs frame object.
2966 ALIST is an alist of frame parameters.
2967 If the parameters specify that the frame should not have a minibuffer,
2968 and do not specify a specific minibuffer window to use,
2969 then `default-minibuffer-frame' must be a frame whose minibuffer can
2970 be shared by the new frame.
2972 This function is an internal primitive--use `make-frame' instead. */)
2977 Lisp_Object frame
, tem
;
2979 int minibuffer_only
= 0;
2980 long window_prompting
= 0;
2982 int count
= SPECPDL_INDEX ();
2983 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
2984 Lisp_Object display
;
2985 struct x_display_info
*dpyinfo
= NULL
;
2991 parms
= Fcopy_alist (parms
);
2993 /* Use this general default value to start with
2994 until we know if this frame has a specified name. */
2995 Vx_resource_name
= Vinvocation_name
;
2997 display
= x_get_arg (dpyinfo
, parms
, Qdisplay
, 0, 0, RES_TYPE_STRING
);
2998 if (EQ (display
, Qunbound
))
3000 dpyinfo
= check_x_display_info (display
);
3002 kb
= dpyinfo
->kboard
;
3004 kb
= &the_only_kboard
;
3007 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
3009 && ! EQ (name
, Qunbound
)
3011 error ("Invalid frame name--not a string or nil");
3014 Vx_resource_name
= name
;
3016 /* See if parent window is specified. */
3017 parent
= x_get_arg (dpyinfo
, parms
, Qparent_id
, NULL
, NULL
, RES_TYPE_NUMBER
);
3018 if (EQ (parent
, Qunbound
))
3020 if (! NILP (parent
))
3021 CHECK_NUMBER (parent
);
3023 /* make_frame_without_minibuffer can run Lisp code and garbage collect. */
3024 /* No need to protect DISPLAY because that's not used after passing
3025 it to make_frame_without_minibuffer. */
3027 GCPRO4 (parms
, parent
, name
, frame
);
3028 tem
= x_get_arg (dpyinfo
, parms
, Qminibuffer
, "minibuffer", "Minibuffer",
3030 if (EQ (tem
, Qnone
) || NILP (tem
))
3031 f
= make_frame_without_minibuffer (Qnil
, kb
, display
);
3032 else if (EQ (tem
, Qonly
))
3034 f
= make_minibuffer_frame ();
3035 minibuffer_only
= 1;
3037 else if (WINDOWP (tem
))
3038 f
= make_frame_without_minibuffer (tem
, kb
, display
);
3042 XSETFRAME (frame
, f
);
3044 /* Note that X Windows does support scroll bars. */
3045 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 1;
3047 f
->output_method
= output_x_window
;
3048 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
3049 bzero (f
->output_data
.x
, sizeof (struct x_output
));
3050 f
->output_data
.x
->icon_bitmap
= -1;
3051 FRAME_FONTSET (f
) = -1;
3052 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
3053 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
3054 #ifdef USE_TOOLKIT_SCROLL_BARS
3055 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
3056 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
3057 #endif /* USE_TOOLKIT_SCROLL_BARS */
3058 record_unwind_protect (unwind_create_frame
, frame
);
3061 = x_get_arg (dpyinfo
, parms
, Qicon_name
, "iconName", "Title",
3063 if (! STRINGP (f
->icon_name
))
3064 f
->icon_name
= Qnil
;
3066 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
3068 image_cache_refcount
= FRAME_X_IMAGE_CACHE (f
)->refcount
;
3069 dpyinfo_refcount
= dpyinfo
->reference_count
;
3070 #endif /* GLYPH_DEBUG */
3072 FRAME_KBOARD (f
) = kb
;
3075 /* These colors will be set anyway later, but it's important
3076 to get the color reference counts right, so initialize them! */
3079 struct gcpro gcpro1
;
3081 /* Function x_decode_color can signal an error. Make
3082 sure to initialize color slots so that we won't try
3083 to free colors we haven't allocated. */
3084 f
->output_data
.x
->foreground_pixel
= -1;
3085 f
->output_data
.x
->background_pixel
= -1;
3086 f
->output_data
.x
->cursor_pixel
= -1;
3087 f
->output_data
.x
->cursor_foreground_pixel
= -1;
3088 f
->output_data
.x
->border_pixel
= -1;
3089 f
->output_data
.x
->mouse_pixel
= -1;
3091 black
= build_string ("black");
3093 f
->output_data
.x
->foreground_pixel
3094 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3095 f
->output_data
.x
->background_pixel
3096 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3097 f
->output_data
.x
->cursor_pixel
3098 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3099 f
->output_data
.x
->cursor_foreground_pixel
3100 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3101 f
->output_data
.x
->border_pixel
3102 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3103 f
->output_data
.x
->mouse_pixel
3104 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3108 /* Specify the parent under which to make this X window. */
3112 f
->output_data
.x
->parent_desc
= (Window
) XFASTINT (parent
);
3113 f
->output_data
.x
->explicit_parent
= 1;
3117 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
3118 f
->output_data
.x
->explicit_parent
= 0;
3121 /* Set the name; the functions to which we pass f expect the name to
3123 if (EQ (name
, Qunbound
) || NILP (name
))
3125 f
->name
= build_string (dpyinfo
->x_id_name
);
3126 f
->explicit_name
= 0;
3131 f
->explicit_name
= 1;
3132 /* use the frame's title when getting resources for this frame. */
3133 specbind (Qx_resource_name
, name
);
3136 /* Extract the window parameters from the supplied values
3137 that are needed to determine window geometry. */
3141 font
= x_get_arg (dpyinfo
, parms
, Qfont
, "font", "Font", RES_TYPE_STRING
);
3143 /* If the caller has specified no font, try out fonts which we
3144 hope have bold and italic variations. */
3145 if (!STRINGP (font
))
3148 = { "-adobe-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-1",
3149 "-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-1",
3150 "-*-*-medium-r-normal-*-*-140-*-*-c-*-iso8859-1",
3151 /* This was formerly the first thing tried, but it finds
3152 too many fonts and takes too long. */
3153 "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1",
3154 /* If those didn't work, look for something which will
3156 "-*-fixed-*-*-*-*-*-140-*-*-c-*-iso8859-1",
3161 for (i
= 0; names
[i
]; i
++)
3165 list
= x_list_fonts (f
, build_string (names
[i
]), 0, 1);
3173 if (! STRINGP (font
))
3174 font
= build_string ("fixed");
3176 x_default_parameter (f
, parms
, Qfont
, font
,
3177 "font", "Font", RES_TYPE_STRING
);
3181 /* Prevent lwlib/xlwmenu.c from crashing because of a bug
3182 whereby it fails to get any font. */
3183 xlwmenu_default_font
= FRAME_FONT (f
);
3186 x_default_parameter (f
, parms
, Qborder_width
, make_number (2),
3187 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
3189 /* This defaults to 1 in order to match xterm. We recognize either
3190 internalBorderWidth or internalBorder (which is what xterm calls
3192 if (NILP (Fassq (Qinternal_border_width
, parms
)))
3196 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
3197 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
3198 if (! EQ (value
, Qunbound
))
3199 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
3202 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
3203 "internalBorderWidth", "internalBorderWidth",
3205 x_default_parameter (f
, parms
, Qvertical_scroll_bars
, Qleft
,
3206 "verticalScrollBars", "ScrollBars",
3209 /* Also do the stuff which must be set before the window exists. */
3210 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
3211 "foreground", "Foreground", RES_TYPE_STRING
);
3212 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
3213 "background", "Background", RES_TYPE_STRING
);
3214 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
3215 "pointerColor", "Foreground", RES_TYPE_STRING
);
3216 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
3217 "cursorColor", "Foreground", RES_TYPE_STRING
);
3218 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
3219 "borderColor", "BorderColor", RES_TYPE_STRING
);
3220 x_default_parameter (f
, parms
, Qscreen_gamma
, Qnil
,
3221 "screenGamma", "ScreenGamma", RES_TYPE_FLOAT
);
3222 x_default_parameter (f
, parms
, Qline_spacing
, Qnil
,
3223 "lineSpacing", "LineSpacing", RES_TYPE_NUMBER
);
3224 x_default_parameter (f
, parms
, Qleft_fringe
, Qnil
,
3225 "leftFringe", "LeftFringe", RES_TYPE_NUMBER
);
3226 x_default_parameter (f
, parms
, Qright_fringe
, Qnil
,
3227 "rightFringe", "RightFringe", RES_TYPE_NUMBER
);
3229 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_foreground
,
3230 "scrollBarForeground",
3231 "ScrollBarForeground", 1);
3232 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_background
,
3233 "scrollBarBackground",
3234 "ScrollBarBackground", 0);
3236 /* Init faces before x_default_parameter is called for scroll-bar
3237 parameters because that function calls x_set_scroll_bar_width,
3238 which calls change_frame_size, which calls Fset_window_buffer,
3239 which runs hooks, which call Fvertical_motion. At the end, we
3240 end up in init_iterator with a null face cache, which should not
3242 init_frame_faces (f
);
3244 x_default_parameter (f
, parms
, Qmenu_bar_lines
, make_number (1),
3245 "menuBar", "MenuBar", RES_TYPE_NUMBER
);
3246 x_default_parameter (f
, parms
, Qtool_bar_lines
, make_number (1),
3247 "toolBar", "ToolBar", RES_TYPE_NUMBER
);
3248 x_default_parameter (f
, parms
, Qbuffer_predicate
, Qnil
,
3249 "bufferPredicate", "BufferPredicate",
3251 x_default_parameter (f
, parms
, Qtitle
, Qnil
,
3252 "title", "Title", RES_TYPE_STRING
);
3253 x_default_parameter (f
, parms
, Qwait_for_wm
, Qt
,
3254 "waitForWM", "WaitForWM", RES_TYPE_BOOLEAN
);
3255 x_default_parameter (f
, parms
, Qfullscreen
, Qnil
,
3256 "fullscreen", "Fullscreen", RES_TYPE_SYMBOL
);
3258 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
3260 /* Compute the size of the X window. */
3261 window_prompting
= x_figure_window_size (f
, parms
, 1);
3263 tem
= x_get_arg (dpyinfo
, parms
, Qunsplittable
, 0, 0, RES_TYPE_BOOLEAN
);
3264 f
->no_split
= minibuffer_only
|| EQ (tem
, Qt
);
3266 x_icon_verify (f
, parms
);
3268 /* Create the X widget or window. */
3269 #ifdef USE_X_TOOLKIT
3270 x_window (f
, window_prompting
, minibuffer_only
);
3278 /* Now consider the frame official. */
3279 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
3280 Vframe_list
= Fcons (frame
, Vframe_list
);
3282 /* We need to do this after creating the X window, so that the
3283 icon-creation functions can say whose icon they're describing. */
3284 x_default_parameter (f
, parms
, Qicon_type
, Qt
,
3285 "bitmapIcon", "BitmapIcon", RES_TYPE_SYMBOL
);
3287 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
3288 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3289 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
3290 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3291 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
3292 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
3293 x_default_parameter (f
, parms
, Qscroll_bar_width
, Qnil
,
3294 "scrollBarWidth", "ScrollBarWidth",
3297 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
3298 Change will not be effected unless different from the current
3300 width
= FRAME_COLS (f
);
3301 height
= FRAME_LINES (f
);
3303 SET_FRAME_COLS (f
, 0);
3304 FRAME_LINES (f
) = 0;
3305 change_frame_size (f
, height
, width
, 1, 0, 0);
3307 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
3308 /* Create the menu bar. */
3309 if (!minibuffer_only
&& FRAME_EXTERNAL_MENU_BAR (f
))
3311 /* If this signals an error, we haven't set size hints for the
3312 frame and we didn't make it visible. */
3313 initialize_frame_menubar (f
);
3316 /* This is a no-op, except under Motif where it arranges the
3317 main window for the widgets on it. */
3318 lw_set_main_areas (f
->output_data
.x
->column_widget
,
3319 f
->output_data
.x
->menubar_widget
,
3320 f
->output_data
.x
->edit_widget
);
3321 #endif /* not USE_GTK */
3323 #endif /* USE_X_TOOLKIT || USE_GTK */
3325 /* Tell the server what size and position, etc, we want, and how
3326 badly we want them. This should be done after we have the menu
3327 bar so that its size can be taken into account. */
3329 x_wm_set_size_hint (f
, window_prompting
, 0);
3332 /* Make the window appear on the frame and enable display, unless
3333 the caller says not to. However, with explicit parent, Emacs
3334 cannot control visibility, so don't try. */
3335 if (! f
->output_data
.x
->explicit_parent
)
3337 Lisp_Object visibility
;
3339 visibility
= x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0,
3341 if (EQ (visibility
, Qunbound
))
3344 if (EQ (visibility
, Qicon
))
3345 x_iconify_frame (f
);
3346 else if (! NILP (visibility
))
3347 x_make_frame_visible (f
);
3349 /* Must have been Qnil. */
3353 /* Set the WM leader property. GTK does this itself, so this is not
3354 needed when using GTK. */
3355 if (dpyinfo
->client_leader_window
!= 0)
3358 XChangeProperty (FRAME_X_DISPLAY (f
),
3359 FRAME_OUTER_WINDOW (f
),
3360 dpyinfo
->Xatom_wm_client_leader
,
3361 XA_WINDOW
, 32, PropModeReplace
,
3362 (unsigned char *) &dpyinfo
->client_leader_window
, 1);
3366 /* Initialize `default-minibuffer-frame' in case this is the first
3367 frame on this display device. */
3368 if (FRAME_HAS_MINIBUF_P (f
)
3369 && (!FRAMEP (kb
->Vdefault_minibuffer_frame
)
3370 || !FRAME_LIVE_P (XFRAME (kb
->Vdefault_minibuffer_frame
))))
3371 kb
->Vdefault_minibuffer_frame
= frame
;
3373 /* All remaining specified parameters, which have not been "used"
3374 by x_get_arg and friends, now go in the misc. alist of the frame. */
3375 for (tem
= parms
; !NILP (tem
); tem
= XCDR (tem
))
3376 if (CONSP (XCAR (tem
)) && !NILP (XCAR (XCAR (tem
))))
3377 f
->param_alist
= Fcons (XCAR (tem
), f
->param_alist
);
3381 /* Make sure windows on this frame appear in calls to next-window
3382 and similar functions. */
3383 Vwindow_list
= Qnil
;
3385 return unbind_to (count
, frame
);
3389 /* FRAME is used only to get a handle on the X display. We don't pass the
3390 display info directly because we're called from frame.c, which doesn't
3391 know about that structure. */
3394 x_get_focus_frame (frame
)
3395 struct frame
*frame
;
3397 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (frame
);
3399 if (! dpyinfo
->x_focus_frame
)
3402 XSETFRAME (xfocus
, dpyinfo
->x_focus_frame
);
3407 /* In certain situations, when the window manager follows a
3408 click-to-focus policy, there seems to be no way around calling
3409 XSetInputFocus to give another frame the input focus .
3411 In an ideal world, XSetInputFocus should generally be avoided so
3412 that applications don't interfere with the window manager's focus
3413 policy. But I think it's okay to use when it's clearly done
3414 following a user-command. */
3416 DEFUN ("x-focus-frame", Fx_focus_frame
, Sx_focus_frame
, 1, 1, 0,
3417 doc
: /* Set the input focus to FRAME.
3418 FRAME nil means use the selected frame. */)
3422 struct frame
*f
= check_x_frame (frame
);
3423 Display
*dpy
= FRAME_X_DISPLAY (f
);
3427 count
= x_catch_errors (dpy
);
3428 XSetInputFocus (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
3429 RevertToParent
, CurrentTime
);
3430 x_uncatch_errors (dpy
, count
);
3437 DEFUN ("xw-color-defined-p", Fxw_color_defined_p
, Sxw_color_defined_p
, 1, 2, 0,
3438 doc
: /* Internal function called by `color-defined-p', which see. */)
3440 Lisp_Object color
, frame
;
3443 FRAME_PTR f
= check_x_frame (frame
);
3445 CHECK_STRING (color
);
3447 if (x_defined_color (f
, SDATA (color
), &foo
, 0))
3453 DEFUN ("xw-color-values", Fxw_color_values
, Sxw_color_values
, 1, 2, 0,
3454 doc
: /* Internal function called by `color-values', which see. */)
3456 Lisp_Object color
, frame
;
3459 FRAME_PTR f
= check_x_frame (frame
);
3461 CHECK_STRING (color
);
3463 if (x_defined_color (f
, SDATA (color
), &foo
, 0))
3467 rgb
[0] = make_number (foo
.red
);
3468 rgb
[1] = make_number (foo
.green
);
3469 rgb
[2] = make_number (foo
.blue
);
3470 return Flist (3, rgb
);
3476 DEFUN ("xw-display-color-p", Fxw_display_color_p
, Sxw_display_color_p
, 0, 1, 0,
3477 doc
: /* Internal function called by `display-color-p', which see. */)
3479 Lisp_Object display
;
3481 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3483 if (dpyinfo
->n_planes
<= 2)
3486 switch (dpyinfo
->visual
->class)
3499 DEFUN ("x-display-grayscale-p", Fx_display_grayscale_p
, Sx_display_grayscale_p
,
3501 doc
: /* Return t if the X display supports shades of gray.
3502 Note that color displays do support shades of gray.
3503 The optional argument DISPLAY specifies which display to ask about.
3504 DISPLAY should be either a frame or a display name (a string).
3505 If omitted or nil, that stands for the selected frame's display. */)
3507 Lisp_Object display
;
3509 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3511 if (dpyinfo
->n_planes
<= 1)
3514 switch (dpyinfo
->visual
->class)
3529 DEFUN ("x-display-pixel-width", Fx_display_pixel_width
, Sx_display_pixel_width
,
3531 doc
: /* Returns the width in pixels of the X display DISPLAY.
3532 The optional argument DISPLAY specifies which display to ask about.
3533 DISPLAY should be either a frame or a display name (a string).
3534 If omitted or nil, that stands for the selected frame's display. */)
3536 Lisp_Object display
;
3538 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3540 return make_number (dpyinfo
->width
);
3543 DEFUN ("x-display-pixel-height", Fx_display_pixel_height
,
3544 Sx_display_pixel_height
, 0, 1, 0,
3545 doc
: /* Returns the height in pixels of the X display DISPLAY.
3546 The optional argument DISPLAY specifies which display to ask about.
3547 DISPLAY should be either a frame or a display name (a string).
3548 If omitted or nil, that stands for the selected frame's display. */)
3550 Lisp_Object display
;
3552 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3554 return make_number (dpyinfo
->height
);
3557 DEFUN ("x-display-planes", Fx_display_planes
, Sx_display_planes
,
3559 doc
: /* Returns the number of bitplanes of the X display DISPLAY.
3560 The optional argument DISPLAY specifies which display to ask about.
3561 DISPLAY should be either a frame or a display name (a string).
3562 If omitted or nil, that stands for the selected frame's display. */)
3564 Lisp_Object display
;
3566 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3568 return make_number (dpyinfo
->n_planes
);
3571 DEFUN ("x-display-color-cells", Fx_display_color_cells
, Sx_display_color_cells
,
3573 doc
: /* Returns the number of color cells of the X display DISPLAY.
3574 The optional argument DISPLAY specifies which display to ask about.
3575 DISPLAY should be either a frame or a display name (a string).
3576 If omitted or nil, that stands for the selected frame's display. */)
3578 Lisp_Object display
;
3580 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3582 int nr_planes
= DisplayPlanes (dpyinfo
->display
,
3583 XScreenNumberOfScreen (dpyinfo
->screen
));
3585 /* Truncate nr_planes to 24 to avoid integer overflow.
3586 Some displays says 32, but only 24 bits are actually significant.
3587 There are only very few and rare video cards that have more than
3588 24 significant bits. Also 24 bits is more than 16 million colors,
3589 it "should be enough for everyone". */
3590 if (nr_planes
> 24) nr_planes
= 24;
3592 return make_number (1 << nr_planes
);
3595 DEFUN ("x-server-max-request-size", Fx_server_max_request_size
,
3596 Sx_server_max_request_size
,
3598 doc
: /* Returns the maximum request size of the X server of display DISPLAY.
3599 The optional argument DISPLAY specifies which display to ask about.
3600 DISPLAY should be either a frame or a display name (a string).
3601 If omitted or nil, that stands for the selected frame's display. */)
3603 Lisp_Object display
;
3605 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3607 return make_number (MAXREQUEST (dpyinfo
->display
));
3610 DEFUN ("x-server-vendor", Fx_server_vendor
, Sx_server_vendor
, 0, 1, 0,
3611 doc
: /* Returns the "vendor ID" string of the X server of display DISPLAY.
3612 \(Labelling every distributor as a "vendor" embodies the false assumption
3613 that operating systems cannot be developed and distributed noncommercially.)
3614 The optional argument DISPLAY specifies which display to ask about.
3615 DISPLAY should be either a frame or a display name (a string).
3616 If omitted or nil, that stands for the selected frame's display. */)
3618 Lisp_Object display
;
3620 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3621 char *vendor
= ServerVendor (dpyinfo
->display
);
3623 if (! vendor
) vendor
= "";
3624 return build_string (vendor
);
3627 DEFUN ("x-server-version", Fx_server_version
, Sx_server_version
, 0, 1, 0,
3628 doc
: /* Returns the version numbers of the X server of display DISPLAY.
3629 The value is a list of three integers: the major and minor
3630 version numbers of the X Protocol in use, and the distributor-specific release
3631 number. See also the function `x-server-vendor'.
3633 The optional argument DISPLAY specifies which display to ask about.
3634 DISPLAY should be either a frame or a display name (a string).
3635 If omitted or nil, that stands for the selected frame's display. */)
3637 Lisp_Object display
;
3639 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3640 Display
*dpy
= dpyinfo
->display
;
3642 return Fcons (make_number (ProtocolVersion (dpy
)),
3643 Fcons (make_number (ProtocolRevision (dpy
)),
3644 Fcons (make_number (VendorRelease (dpy
)), Qnil
)));
3647 DEFUN ("x-display-screens", Fx_display_screens
, Sx_display_screens
, 0, 1, 0,
3648 doc
: /* Return the number of screens on the X server of display DISPLAY.
3649 The optional argument DISPLAY specifies which display to ask about.
3650 DISPLAY should be either a frame or a display name (a string).
3651 If omitted or nil, that stands for the selected frame's display. */)
3653 Lisp_Object display
;
3655 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3657 return make_number (ScreenCount (dpyinfo
->display
));
3660 DEFUN ("x-display-mm-height", Fx_display_mm_height
, Sx_display_mm_height
, 0, 1, 0,
3661 doc
: /* Return the height in millimeters of the X 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 (HeightMMOfScreen (dpyinfo
->screen
));
3673 DEFUN ("x-display-mm-width", Fx_display_mm_width
, Sx_display_mm_width
, 0, 1, 0,
3674 doc
: /* Return the width 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 (WidthMMOfScreen (dpyinfo
->screen
));
3686 DEFUN ("x-display-backing-store", Fx_display_backing_store
,
3687 Sx_display_backing_store
, 0, 1, 0,
3688 doc
: /* Returns an indication of whether X display DISPLAY does backing store.
3689 The value may be `always', `when-mapped', or `not-useful'.
3690 The optional argument DISPLAY specifies which display to ask about.
3691 DISPLAY should be either a frame or a display name (a string).
3692 If omitted or nil, that stands for the selected frame's display. */)
3694 Lisp_Object display
;
3696 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3699 switch (DoesBackingStore (dpyinfo
->screen
))
3702 result
= intern ("always");
3706 result
= intern ("when-mapped");
3710 result
= intern ("not-useful");
3714 error ("Strange value for BackingStore parameter of screen");
3721 DEFUN ("x-display-visual-class", Fx_display_visual_class
,
3722 Sx_display_visual_class
, 0, 1, 0,
3723 doc
: /* Return the visual class of the X display DISPLAY.
3724 The value is one of the symbols `static-gray', `gray-scale',
3725 `static-color', `pseudo-color', `true-color', or `direct-color'.
3727 The optional argument DISPLAY specifies which display to ask about.
3728 DISPLAY should be either a frame or a display name (a string).
3729 If omitted or nil, that stands for the selected frame's display. */)
3731 Lisp_Object display
;
3733 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3736 switch (dpyinfo
->visual
->class)
3739 result
= intern ("static-gray");
3742 result
= intern ("gray-scale");
3745 result
= intern ("static-color");
3748 result
= intern ("pseudo-color");
3751 result
= intern ("true-color");
3754 result
= intern ("direct-color");
3757 error ("Display has an unknown visual class");
3764 DEFUN ("x-display-save-under", Fx_display_save_under
,
3765 Sx_display_save_under
, 0, 1, 0,
3766 doc
: /* Returns t if the X display DISPLAY supports the save-under feature.
3767 The optional argument DISPLAY specifies which display to ask about.
3768 DISPLAY should be either a frame or a display name (a string).
3769 If omitted or nil, that stands for the selected frame's display. */)
3771 Lisp_Object display
;
3773 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3775 if (DoesSaveUnders (dpyinfo
->screen
) == True
)
3783 register struct frame
*f
;
3785 return FRAME_PIXEL_WIDTH (f
);
3790 register struct frame
*f
;
3792 return FRAME_PIXEL_HEIGHT (f
);
3797 register struct frame
*f
;
3799 return FRAME_COLUMN_WIDTH (f
);
3804 register struct frame
*f
;
3806 return FRAME_LINE_HEIGHT (f
);
3811 register struct frame
*f
;
3813 return FRAME_X_DISPLAY_INFO (f
)->n_planes
;
3818 /************************************************************************
3820 ************************************************************************/
3823 /* Mapping visual names to visuals. */
3825 static struct visual_class
3832 {"StaticGray", StaticGray
},
3833 {"GrayScale", GrayScale
},
3834 {"StaticColor", StaticColor
},
3835 {"PseudoColor", PseudoColor
},
3836 {"TrueColor", TrueColor
},
3837 {"DirectColor", DirectColor
},
3842 #ifndef HAVE_XSCREENNUMBEROFSCREEN
3844 /* Value is the screen number of screen SCR. This is a substitute for
3845 the X function with the same name when that doesn't exist. */
3848 XScreenNumberOfScreen (scr
)
3849 register Screen
*scr
;
3851 Display
*dpy
= scr
->display
;
3854 for (i
= 0; i
< dpy
->nscreens
; ++i
)
3855 if (scr
== dpy
->screens
+ i
)
3861 #endif /* not HAVE_XSCREENNUMBEROFSCREEN */
3864 /* Select the visual that should be used on display DPYINFO. Set
3865 members of DPYINFO appropriately. Called from x_term_init. */
3868 select_visual (dpyinfo
)
3869 struct x_display_info
*dpyinfo
;
3871 Display
*dpy
= dpyinfo
->display
;
3872 Screen
*screen
= dpyinfo
->screen
;
3875 /* See if a visual is specified. */
3876 value
= display_x_get_resource (dpyinfo
,
3877 build_string ("visualClass"),
3878 build_string ("VisualClass"),
3880 if (STRINGP (value
))
3882 /* VALUE should be of the form CLASS-DEPTH, where CLASS is one
3883 of `PseudoColor', `TrueColor' etc. and DEPTH is the color
3884 depth, a decimal number. NAME is compared with case ignored. */
3885 char *s
= (char *) alloca (SBYTES (value
) + 1);
3890 strcpy (s
, SDATA (value
));
3891 dash
= index (s
, '-');
3894 dpyinfo
->n_planes
= atoi (dash
+ 1);
3898 /* We won't find a matching visual with depth 0, so that
3899 an error will be printed below. */
3900 dpyinfo
->n_planes
= 0;
3902 /* Determine the visual class. */
3903 for (i
= 0; visual_classes
[i
].name
; ++i
)
3904 if (xstricmp (s
, visual_classes
[i
].name
) == 0)
3906 class = visual_classes
[i
].class;
3910 /* Look up a matching visual for the specified class. */
3912 || !XMatchVisualInfo (dpy
, XScreenNumberOfScreen (screen
),
3913 dpyinfo
->n_planes
, class, &vinfo
))
3914 fatal ("Invalid visual specification `%s'", SDATA (value
));
3916 dpyinfo
->visual
= vinfo
.visual
;
3921 XVisualInfo
*vinfo
, vinfo_template
;
3923 dpyinfo
->visual
= DefaultVisualOfScreen (screen
);
3926 vinfo_template
.visualid
= XVisualIDFromVisual (dpyinfo
->visual
);
3928 vinfo_template
.visualid
= dpyinfo
->visual
->visualid
;
3930 vinfo_template
.screen
= XScreenNumberOfScreen (screen
);
3931 vinfo
= XGetVisualInfo (dpy
, VisualIDMask
| VisualScreenMask
,
3932 &vinfo_template
, &n_visuals
);
3934 fatal ("Can't get proper X visual info");
3936 dpyinfo
->n_planes
= vinfo
->depth
;
3937 XFree ((char *) vinfo
);
3942 /* Return the X display structure for the display named NAME.
3943 Open a new connection if necessary. */
3945 struct x_display_info
*
3946 x_display_info_for_name (name
)
3950 struct x_display_info
*dpyinfo
;
3952 CHECK_STRING (name
);
3954 if (! EQ (Vwindow_system
, intern ("x")))
3955 error ("Not using X Windows");
3957 for (dpyinfo
= x_display_list
, names
= x_display_name_list
;
3959 dpyinfo
= dpyinfo
->next
, names
= XCDR (names
))
3962 tem
= Fstring_equal (XCAR (XCAR (names
)), name
);
3967 /* Use this general default value to start with. */
3968 Vx_resource_name
= Vinvocation_name
;
3970 validate_x_resource_name ();
3972 dpyinfo
= x_term_init (name
, (char *)0,
3973 (char *) SDATA (Vx_resource_name
));
3976 error ("Cannot connect to X server %s", SDATA (name
));
3979 XSETFASTINT (Vwindow_system_version
, 11);
3985 DEFUN ("x-open-connection", Fx_open_connection
, Sx_open_connection
,
3987 doc
: /* Open a connection to an X server.
3988 DISPLAY is the name of the display to connect to.
3989 Optional second arg XRM-STRING is a string of resources in xrdb format.
3990 If the optional third arg MUST-SUCCEED is non-nil,
3991 terminate Emacs if we can't open the connection. */)
3992 (display
, xrm_string
, must_succeed
)
3993 Lisp_Object display
, xrm_string
, must_succeed
;
3995 unsigned char *xrm_option
;
3996 struct x_display_info
*dpyinfo
;
3998 CHECK_STRING (display
);
3999 if (! NILP (xrm_string
))
4000 CHECK_STRING (xrm_string
);
4002 if (! EQ (Vwindow_system
, intern ("x")))
4003 error ("Not using X Windows");
4005 if (! NILP (xrm_string
))
4006 xrm_option
= (unsigned char *) SDATA (xrm_string
);
4008 xrm_option
= (unsigned char *) 0;
4010 validate_x_resource_name ();
4012 /* This is what opens the connection and sets x_current_display.
4013 This also initializes many symbols, such as those used for input. */
4014 dpyinfo
= x_term_init (display
, xrm_option
,
4015 (char *) SDATA (Vx_resource_name
));
4019 if (!NILP (must_succeed
))
4020 fatal ("Cannot connect to X server %s.\n\
4021 Check the DISPLAY environment variable or use `-d'.\n\
4022 Also use the `xauth' program to verify that you have the proper\n\
4023 authorization information needed to connect the X server.\n\
4024 An insecure way to solve the problem may be to use `xhost'.\n",
4027 error ("Cannot connect to X server %s", SDATA (display
));
4032 XSETFASTINT (Vwindow_system_version
, 11);
4036 DEFUN ("x-close-connection", Fx_close_connection
,
4037 Sx_close_connection
, 1, 1, 0,
4038 doc
: /* Close the connection to DISPLAY's X server.
4039 For DISPLAY, specify either a frame or a display name (a string).
4040 If DISPLAY is nil, that stands for the selected frame's display. */)
4042 Lisp_Object display
;
4044 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
4047 if (dpyinfo
->reference_count
> 0)
4048 error ("Display still has frames on it");
4051 /* Free the fonts in the font table. */
4052 for (i
= 0; i
< dpyinfo
->n_fonts
; i
++)
4053 if (dpyinfo
->font_table
[i
].name
)
4055 XFreeFont (dpyinfo
->display
, dpyinfo
->font_table
[i
].font
);
4058 x_destroy_all_bitmaps (dpyinfo
);
4059 XSetCloseDownMode (dpyinfo
->display
, DestroyAll
);
4061 #ifdef USE_X_TOOLKIT
4062 XtCloseDisplay (dpyinfo
->display
);
4064 XCloseDisplay (dpyinfo
->display
);
4067 x_delete_display (dpyinfo
);
4073 DEFUN ("x-display-list", Fx_display_list
, Sx_display_list
, 0, 0, 0,
4074 doc
: /* Return the list of display names that Emacs has connections to. */)
4077 Lisp_Object tail
, result
;
4080 for (tail
= x_display_name_list
; ! NILP (tail
); tail
= XCDR (tail
))
4081 result
= Fcons (XCAR (XCAR (tail
)), result
);
4086 DEFUN ("x-synchronize", Fx_synchronize
, Sx_synchronize
, 1, 2, 0,
4087 doc
: /* If ON is non-nil, report X errors as soon as the erring request is made.
4088 If ON is nil, allow buffering of requests.
4089 Turning on synchronization prohibits the Xlib routines from buffering
4090 requests and seriously degrades performance, but makes debugging much
4092 The optional second argument DISPLAY specifies which display to act on.
4093 DISPLAY should be either a frame or a display name (a string).
4094 If DISPLAY is omitted or nil, that stands for the selected frame's display. */)
4096 Lisp_Object display
, on
;
4098 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
4100 XSynchronize (dpyinfo
->display
, !EQ (on
, Qnil
));
4105 /* Wait for responses to all X commands issued so far for frame F. */
4112 XSync (FRAME_X_DISPLAY (f
), False
);
4117 /***********************************************************************
4119 ***********************************************************************/
4121 DEFUN ("x-change-window-property", Fx_change_window_property
,
4122 Sx_change_window_property
, 2, 6, 0,
4123 doc
: /* Change window property PROP to VALUE on the X window of FRAME.
4124 PROP must be a string.
4125 VALUE may be a string or a list of conses, numbers and/or strings.
4126 If an element in the list is a string, it is converted to
4127 an Atom and the value of the Atom is used. If an element is a cons,
4128 it is converted to a 32 bit number where the car is the 16 top bits and the
4129 cdr is the lower 16 bits.
4130 FRAME nil or omitted means use the selected frame.
4131 If TYPE is given and non-nil, it is the name of the type of VALUE.
4132 If TYPE is not given or nil, the type is STRING.
4133 FORMAT gives the size in bits of each element if VALUE is a list.
4134 It must be one of 8, 16 or 32.
4135 If VALUE is a string or FORMAT is nil or not given, FORMAT defaults to 8.
4136 If OUTER_P is non-nil, the property is changed for the outer X window of
4137 FRAME. Default is to change on the edit X window.
4140 (prop
, value
, frame
, type
, format
, outer_p
)
4141 Lisp_Object prop
, value
, frame
, type
, format
, outer_p
;
4143 struct frame
*f
= check_x_frame (frame
);
4145 Atom target_type
= XA_STRING
;
4146 int element_format
= 8;
4147 unsigned char *data
;
4151 CHECK_STRING (prop
);
4153 if (! NILP (format
))
4155 CHECK_NUMBER (format
);
4156 element_format
= XFASTINT (format
);
4158 if (element_format
!= 8 && element_format
!= 16
4159 && element_format
!= 32)
4160 error ("FORMAT must be one of 8, 16 or 32");
4165 nelements
= x_check_property_data (value
);
4166 if (nelements
== -1)
4167 error ("Bad data in VALUE, must be number, string or cons");
4169 if (element_format
== 8)
4170 data
= (unsigned char *) xmalloc (nelements
);
4171 else if (element_format
== 16)
4172 data
= (unsigned char *) xmalloc (nelements
*2);
4173 else /* format == 32 */
4174 /* The man page for XChangeProperty:
4175 "If the specified format is 32, the property data must be a
4177 This applies even if long is more than 64 bits. The X library
4178 converts to 32 bits before sending to the X server. */
4179 data
= (unsigned char *) xmalloc (nelements
* sizeof(long));
4181 x_fill_property_data (FRAME_X_DISPLAY (f
), value
, data
, element_format
);
4185 CHECK_STRING (value
);
4186 data
= SDATA (value
);
4187 nelements
= SCHARS (value
);
4191 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4194 CHECK_STRING (type
);
4195 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (type
), False
);
4198 if (! NILP (outer_p
)) w
= FRAME_OUTER_WINDOW (f
);
4199 else w
= FRAME_X_WINDOW (f
);
4201 XChangeProperty (FRAME_X_DISPLAY (f
), w
,
4202 prop_atom
, target_type
, element_format
, PropModeReplace
,
4205 if (CONSP (value
)) xfree (data
);
4207 /* Make sure the property is set when we return. */
4208 XFlush (FRAME_X_DISPLAY (f
));
4215 DEFUN ("x-delete-window-property", Fx_delete_window_property
,
4216 Sx_delete_window_property
, 1, 2, 0,
4217 doc
: /* Remove window property PROP from X window of FRAME.
4218 FRAME nil or omitted means use the selected frame. Value is PROP. */)
4220 Lisp_Object prop
, frame
;
4222 struct frame
*f
= check_x_frame (frame
);
4225 CHECK_STRING (prop
);
4227 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4228 XDeleteProperty (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), prop_atom
);
4230 /* Make sure the property is removed when we return. */
4231 XFlush (FRAME_X_DISPLAY (f
));
4238 DEFUN ("x-window-property", Fx_window_property
, Sx_window_property
,
4240 doc
: /* Value is the value of window property PROP on FRAME.
4241 If FRAME is nil or omitted, use the selected frame.
4242 If TYPE is nil or omitted, get the property as a string. Otherwise TYPE
4243 is the name of the Atom that denotes the type expected.
4244 If SOURCE is non-nil, get the property on that window instead of from
4245 FRAME. The number 0 denotes the root window.
4246 If DELETE_P is non-nil, delete the property after retreiving it.
4247 If VECTOR_RET_P is non-nil, don't return a string but a vector of values.
4249 Value is nil if FRAME hasn't a property with name PROP or if PROP has
4250 no value of TYPE. */)
4251 (prop
, frame
, type
, source
, delete_p
, vector_ret_p
)
4252 Lisp_Object prop
, frame
, type
, source
, delete_p
, vector_ret_p
;
4254 struct frame
*f
= check_x_frame (frame
);
4257 Lisp_Object prop_value
= Qnil
;
4258 unsigned char *tmp_data
= NULL
;
4260 Atom target_type
= XA_STRING
;
4262 unsigned long actual_size
, bytes_remaining
;
4263 Window target_window
= FRAME_X_WINDOW (f
);
4264 struct gcpro gcpro1
;
4266 GCPRO1 (prop_value
);
4267 CHECK_STRING (prop
);
4269 if (! NILP (source
))
4271 if (NUMBERP (source
))
4273 if (FLOATP (source
))
4274 target_window
= (Window
) XFLOAT (source
);
4276 target_window
= XFASTINT (source
);
4278 if (target_window
== 0)
4279 target_window
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4281 else if (CONSP (source
))
4282 target_window
= cons_to_long (source
);
4288 if (strcmp ("AnyPropertyType", SDATA (type
)) == 0)
4289 target_type
= AnyPropertyType
;
4291 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (type
), False
);
4294 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4295 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4296 prop_atom
, 0, 0, False
, target_type
,
4297 &actual_type
, &actual_format
, &actual_size
,
4298 &bytes_remaining
, &tmp_data
);
4301 int size
= bytes_remaining
;
4306 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4307 prop_atom
, 0, bytes_remaining
,
4308 ! NILP (delete_p
), target_type
,
4309 &actual_type
, &actual_format
,
4310 &actual_size
, &bytes_remaining
,
4312 if (rc
== Success
&& tmp_data
)
4314 /* The man page for XGetWindowProperty says:
4315 "If the returned format is 32, the returned data is represented
4316 as a long array and should be cast to that type to obtain the
4318 This applies even if long is more than 32 bits, the X library
4319 converts from 32 bit elements received from the X server to long
4320 and passes the long array to us. Thus, for that case bcopy can not
4321 be used. We convert to a 32 bit type here, because so much code
4324 The bytes and offsets passed to XGetWindowProperty refers to the
4325 property and those are indeed in 32 bit quantities if format is
4328 if (actual_format
== 32 && actual_format
< BITS_PER_LONG
)
4331 int *idata
= (int *) tmp_data
;
4332 long *ldata
= (long *) tmp_data
;
4334 for (i
= 0; i
< actual_size
; ++i
)
4335 idata
[i
] = (int) ldata
[i
];
4338 if (NILP (vector_ret_p
))
4339 prop_value
= make_string (tmp_data
, size
);
4341 prop_value
= x_property_data_to_lisp (f
,
4348 if (tmp_data
) XFree (tmp_data
);
4358 /***********************************************************************
4360 ***********************************************************************/
4362 /* If non-null, an asynchronous timer that, when it expires, displays
4363 an hourglass cursor on all frames. */
4365 static struct atimer
*hourglass_atimer
;
4367 /* Non-zero means an hourglass cursor is currently shown. */
4369 static int hourglass_shown_p
;
4371 /* Number of seconds to wait before displaying an hourglass cursor. */
4373 static Lisp_Object Vhourglass_delay
;
4375 /* Default number of seconds to wait before displaying an hourglass
4378 #define DEFAULT_HOURGLASS_DELAY 1
4380 /* Function prototypes. */
4382 static void show_hourglass
P_ ((struct atimer
*));
4383 static void hide_hourglass
P_ ((void));
4385 /* Return non-zero if houglass timer has been started or hourglass is shown. */
4388 hourglass_started ()
4390 return hourglass_shown_p
|| hourglass_atimer
!= NULL
;
4394 /* Cancel a currently active hourglass timer, and start a new one. */
4400 int secs
, usecs
= 0;
4402 /* Don't bother for ttys. */
4403 if (NILP (Vwindow_system
))
4406 cancel_hourglass ();
4408 if (INTEGERP (Vhourglass_delay
)
4409 && XINT (Vhourglass_delay
) > 0)
4410 secs
= XFASTINT (Vhourglass_delay
);
4411 else if (FLOATP (Vhourglass_delay
)
4412 && XFLOAT_DATA (Vhourglass_delay
) > 0)
4415 tem
= Ftruncate (Vhourglass_delay
, Qnil
);
4416 secs
= XFASTINT (tem
);
4417 usecs
= (XFLOAT_DATA (Vhourglass_delay
) - secs
) * 1000000;
4420 secs
= DEFAULT_HOURGLASS_DELAY
;
4422 EMACS_SET_SECS_USECS (delay
, secs
, usecs
);
4423 hourglass_atimer
= start_atimer (ATIMER_RELATIVE
, delay
,
4424 show_hourglass
, NULL
);
4428 /* Cancel the hourglass cursor timer if active, hide a busy cursor if
4434 if (hourglass_atimer
)
4436 cancel_atimer (hourglass_atimer
);
4437 hourglass_atimer
= NULL
;
4440 if (hourglass_shown_p
)
4445 /* Timer function of hourglass_atimer. TIMER is equal to
4448 Display an hourglass pointer on all frames by mapping the frames'
4449 hourglass_window. Set the hourglass_p flag in the frames'
4450 output_data.x structure to indicate that an hourglass cursor is
4451 shown on the frames. */
4454 show_hourglass (timer
)
4455 struct atimer
*timer
;
4457 /* The timer implementation will cancel this timer automatically
4458 after this function has run. Set hourglass_atimer to null
4459 so that we know the timer doesn't have to be canceled. */
4460 hourglass_atimer
= NULL
;
4462 if (!hourglass_shown_p
)
4464 Lisp_Object rest
, frame
;
4468 FOR_EACH_FRAME (rest
, frame
)
4470 struct frame
*f
= XFRAME (frame
);
4472 if (FRAME_LIVE_P (f
) && FRAME_X_P (f
) && FRAME_X_DISPLAY (f
))
4474 Display
*dpy
= FRAME_X_DISPLAY (f
);
4476 #ifdef USE_X_TOOLKIT
4477 if (f
->output_data
.x
->widget
)
4479 if (FRAME_OUTER_WINDOW (f
))
4482 f
->output_data
.x
->hourglass_p
= 1;
4484 if (!f
->output_data
.x
->hourglass_window
)
4486 unsigned long mask
= CWCursor
;
4487 XSetWindowAttributes attrs
;
4489 Window parent
= FRAME_X_WINDOW (f
);
4491 Window parent
= FRAME_OUTER_WINDOW (f
);
4493 attrs
.cursor
= f
->output_data
.x
->hourglass_cursor
;
4495 f
->output_data
.x
->hourglass_window
4496 = XCreateWindow (dpy
, parent
,
4497 0, 0, 32000, 32000, 0, 0,
4503 XMapRaised (dpy
, f
->output_data
.x
->hourglass_window
);
4509 hourglass_shown_p
= 1;
4515 /* Hide the hourglass pointer on all frames, if it is currently
4521 if (hourglass_shown_p
)
4523 Lisp_Object rest
, frame
;
4526 FOR_EACH_FRAME (rest
, frame
)
4528 struct frame
*f
= XFRAME (frame
);
4531 /* Watch out for newly created frames. */
4532 && f
->output_data
.x
->hourglass_window
)
4534 XUnmapWindow (FRAME_X_DISPLAY (f
),
4535 f
->output_data
.x
->hourglass_window
);
4536 /* Sync here because XTread_socket looks at the
4537 hourglass_p flag that is reset to zero below. */
4538 XSync (FRAME_X_DISPLAY (f
), False
);
4539 f
->output_data
.x
->hourglass_p
= 0;
4543 hourglass_shown_p
= 0;
4550 /***********************************************************************
4552 ***********************************************************************/
4554 static Lisp_Object x_create_tip_frame
P_ ((struct x_display_info
*,
4555 Lisp_Object
, Lisp_Object
));
4556 static void compute_tip_xy
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
,
4557 Lisp_Object
, int, int, int *, int *));
4559 /* The frame of a currently visible tooltip. */
4561 Lisp_Object tip_frame
;
4563 /* If non-nil, a timer started that hides the last tooltip when it
4566 Lisp_Object tip_timer
;
4569 /* If non-nil, a vector of 3 elements containing the last args
4570 with which x-show-tip was called. See there. */
4572 Lisp_Object last_show_tip_args
;
4574 /* Maximum size for tooltips; a cons (COLUMNS . ROWS). */
4576 Lisp_Object Vx_max_tooltip_size
;
4580 unwind_create_tip_frame (frame
)
4583 Lisp_Object deleted
;
4585 deleted
= unwind_create_frame (frame
);
4586 if (EQ (deleted
, Qt
))
4596 /* Create a frame for a tooltip on the display described by DPYINFO.
4597 PARMS is a list of frame parameters. TEXT is the string to
4598 display in the tip frame. Value is the frame.
4600 Note that functions called here, esp. x_default_parameter can
4601 signal errors, for instance when a specified color name is
4602 undefined. We have to make sure that we're in a consistent state
4603 when this happens. */
4606 x_create_tip_frame (dpyinfo
, parms
, text
)
4607 struct x_display_info
*dpyinfo
;
4608 Lisp_Object parms
, text
;
4611 Lisp_Object frame
, tem
;
4613 long window_prompting
= 0;
4615 int count
= SPECPDL_INDEX ();
4616 struct gcpro gcpro1
, gcpro2
, gcpro3
;
4618 int face_change_count_before
= face_change_count
;
4620 struct buffer
*old_buffer
;
4626 kb
= dpyinfo
->kboard
;
4628 kb
= &the_only_kboard
;
4631 /* Get the name of the frame to use for resource lookup. */
4632 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
4634 && !EQ (name
, Qunbound
)
4636 error ("Invalid frame name--not a string or nil");
4639 GCPRO3 (parms
, name
, frame
);
4641 XSETFRAME (frame
, f
);
4643 buffer
= Fget_buffer_create (build_string (" *tip*"));
4644 Fset_window_buffer (FRAME_ROOT_WINDOW (f
), buffer
, Qnil
);
4645 old_buffer
= current_buffer
;
4646 set_buffer_internal_1 (XBUFFER (buffer
));
4647 current_buffer
->truncate_lines
= Qnil
;
4648 specbind (Qinhibit_read_only
, Qt
);
4649 specbind (Qinhibit_modification_hooks
, Qt
);
4652 set_buffer_internal_1 (old_buffer
);
4654 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 0;
4655 record_unwind_protect (unwind_create_tip_frame
, frame
);
4657 /* By setting the output method, we're essentially saying that
4658 the frame is live, as per FRAME_LIVE_P. If we get a signal
4659 from this point on, x_destroy_window might screw up reference
4661 f
->output_method
= output_x_window
;
4662 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
4663 bzero (f
->output_data
.x
, sizeof (struct x_output
));
4664 f
->output_data
.x
->icon_bitmap
= -1;
4665 FRAME_FONTSET (f
) = -1;
4666 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
4667 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
4668 #ifdef USE_TOOLKIT_SCROLL_BARS
4669 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
4670 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
4671 #endif /* USE_TOOLKIT_SCROLL_BARS */
4672 f
->icon_name
= Qnil
;
4673 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
4675 image_cache_refcount
= FRAME_X_IMAGE_CACHE (f
)->refcount
;
4676 dpyinfo_refcount
= dpyinfo
->reference_count
;
4677 #endif /* GLYPH_DEBUG */
4679 FRAME_KBOARD (f
) = kb
;
4681 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4682 f
->output_data
.x
->explicit_parent
= 0;
4684 /* These colors will be set anyway later, but it's important
4685 to get the color reference counts right, so initialize them! */
4688 struct gcpro gcpro1
;
4690 black
= build_string ("black");
4692 f
->output_data
.x
->foreground_pixel
4693 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4694 f
->output_data
.x
->background_pixel
4695 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4696 f
->output_data
.x
->cursor_pixel
4697 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4698 f
->output_data
.x
->cursor_foreground_pixel
4699 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4700 f
->output_data
.x
->border_pixel
4701 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4702 f
->output_data
.x
->mouse_pixel
4703 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4707 /* Set the name; the functions to which we pass f expect the name to
4709 if (EQ (name
, Qunbound
) || NILP (name
))
4711 f
->name
= build_string (dpyinfo
->x_id_name
);
4712 f
->explicit_name
= 0;
4717 f
->explicit_name
= 1;
4718 /* use the frame's title when getting resources for this frame. */
4719 specbind (Qx_resource_name
, name
);
4722 /* Extract the window parameters from the supplied values that are
4723 needed to determine window geometry. */
4727 font
= x_get_arg (dpyinfo
, parms
, Qfont
, "font", "Font", RES_TYPE_STRING
);
4730 /* First, try whatever font the caller has specified. */
4733 tem
= Fquery_fontset (font
, Qnil
);
4735 font
= x_new_fontset (f
, tem
);
4737 font
= x_new_font (f
, SDATA (font
));
4740 /* Try out a font which we hope has bold and italic variations. */
4741 if (!STRINGP (font
))
4742 font
= x_new_font (f
, "-adobe-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-1");
4743 if (!STRINGP (font
))
4744 font
= x_new_font (f
, "-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-1");
4745 if (! STRINGP (font
))
4746 font
= x_new_font (f
, "-*-*-medium-r-normal-*-*-140-*-*-c-*-iso8859-1");
4747 if (! STRINGP (font
))
4748 /* This was formerly the first thing tried, but it finds too many fonts
4749 and takes too long. */
4750 font
= x_new_font (f
, "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1");
4751 /* If those didn't work, look for something which will at least work. */
4752 if (! STRINGP (font
))
4753 font
= x_new_font (f
, "-*-fixed-*-*-*-*-*-140-*-*-c-*-iso8859-1");
4755 if (! STRINGP (font
))
4756 font
= build_string ("fixed");
4758 x_default_parameter (f
, parms
, Qfont
, font
,
4759 "font", "Font", RES_TYPE_STRING
);
4762 x_default_parameter (f
, parms
, Qborder_width
, make_number (2),
4763 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
4765 /* This defaults to 2 in order to match xterm. We recognize either
4766 internalBorderWidth or internalBorder (which is what xterm calls
4768 if (NILP (Fassq (Qinternal_border_width
, parms
)))
4772 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
4773 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
4774 if (! EQ (value
, Qunbound
))
4775 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
4779 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
4780 "internalBorderWidth", "internalBorderWidth",
4783 /* Also do the stuff which must be set before the window exists. */
4784 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
4785 "foreground", "Foreground", RES_TYPE_STRING
);
4786 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
4787 "background", "Background", RES_TYPE_STRING
);
4788 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
4789 "pointerColor", "Foreground", RES_TYPE_STRING
);
4790 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
4791 "cursorColor", "Foreground", RES_TYPE_STRING
);
4792 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
4793 "borderColor", "BorderColor", RES_TYPE_STRING
);
4795 /* Init faces before x_default_parameter is called for scroll-bar
4796 parameters because that function calls x_set_scroll_bar_width,
4797 which calls change_frame_size, which calls Fset_window_buffer,
4798 which runs hooks, which call Fvertical_motion. At the end, we
4799 end up in init_iterator with a null face cache, which should not
4801 init_frame_faces (f
);
4803 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4805 window_prompting
= x_figure_window_size (f
, parms
, 0);
4808 XSetWindowAttributes attrs
;
4812 mask
= CWBackPixel
| CWOverrideRedirect
| CWEventMask
;
4813 if (DoesSaveUnders (dpyinfo
->screen
))
4814 mask
|= CWSaveUnder
;
4816 /* Window managers look at the override-redirect flag to determine
4817 whether or net to give windows a decoration (Xlib spec, chapter
4819 attrs
.override_redirect
= True
;
4820 attrs
.save_under
= True
;
4821 attrs
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
4822 /* Arrange for getting MapNotify and UnmapNotify events. */
4823 attrs
.event_mask
= StructureNotifyMask
;
4825 = FRAME_X_WINDOW (f
)
4826 = XCreateWindow (FRAME_X_DISPLAY (f
),
4827 FRAME_X_DISPLAY_INFO (f
)->root_window
,
4828 /* x, y, width, height */
4832 CopyFromParent
, InputOutput
, CopyFromParent
,
4839 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
4840 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4841 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
4842 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4843 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
4844 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
4846 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
4847 Change will not be effected unless different from the current
4849 width
= FRAME_COLS (f
);
4850 height
= FRAME_LINES (f
);
4851 SET_FRAME_COLS (f
, 0);
4852 FRAME_LINES (f
) = 0;
4853 change_frame_size (f
, height
, width
, 1, 0, 0);
4855 /* Add `tooltip' frame parameter's default value. */
4856 if (NILP (Fframe_parameter (frame
, intern ("tooltip"))))
4857 Fmodify_frame_parameters (frame
, Fcons (Fcons (intern ("tooltip"), Qt
),
4860 /* Set up faces after all frame parameters are known. This call
4861 also merges in face attributes specified for new frames.
4863 Frame parameters may be changed if .Xdefaults contains
4864 specifications for the default font. For example, if there is an
4865 `Emacs.default.attributeBackground: pink', the `background-color'
4866 attribute of the frame get's set, which let's the internal border
4867 of the tooltip frame appear in pink. Prevent this. */
4869 Lisp_Object bg
= Fframe_parameter (frame
, Qbackground_color
);
4871 /* Set tip_frame here, so that */
4873 call1 (Qface_set_after_frame_default
, frame
);
4875 if (!EQ (bg
, Fframe_parameter (frame
, Qbackground_color
)))
4876 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qbackground_color
, bg
),
4884 /* It is now ok to make the frame official even if we get an error
4885 below. And the frame needs to be on Vframe_list or making it
4886 visible won't work. */
4887 Vframe_list
= Fcons (frame
, Vframe_list
);
4889 /* Now that the frame is official, it counts as a reference to
4891 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
4893 /* Setting attributes of faces of the tooltip frame from resources
4894 and similar will increment face_change_count, which leads to the
4895 clearing of all current matrices. Since this isn't necessary
4896 here, avoid it by resetting face_change_count to the value it
4897 had before we created the tip frame. */
4898 face_change_count
= face_change_count_before
;
4900 /* Discard the unwind_protect. */
4901 return unbind_to (count
, frame
);
4905 /* Compute where to display tip frame F. PARMS is the list of frame
4906 parameters for F. DX and DY are specified offsets from the current
4907 location of the mouse. WIDTH and HEIGHT are the width and height
4908 of the tooltip. Return coordinates relative to the root window of
4909 the display in *ROOT_X, and *ROOT_Y. */
4912 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, root_x
, root_y
)
4914 Lisp_Object parms
, dx
, dy
;
4916 int *root_x
, *root_y
;
4918 Lisp_Object left
, top
;
4923 /* User-specified position? */
4924 left
= Fcdr (Fassq (Qleft
, parms
));
4925 top
= Fcdr (Fassq (Qtop
, parms
));
4927 /* Move the tooltip window where the mouse pointer is. Resize and
4929 if (!INTEGERP (left
) || !INTEGERP (top
))
4932 XQueryPointer (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
4933 &root
, &child
, root_x
, root_y
, &win_x
, &win_y
, &pmask
);
4938 *root_y
= XINT (top
);
4939 else if (*root_y
+ XINT (dy
) <= 0)
4940 *root_y
= 0; /* Can happen for negative dy */
4941 else if (*root_y
+ XINT (dy
) + height
<= FRAME_X_DISPLAY_INFO (f
)->height
)
4942 /* It fits below the pointer */
4943 *root_y
+= XINT (dy
);
4944 else if (height
+ XINT (dy
) <= *root_y
)
4945 /* It fits above the pointer. */
4946 *root_y
-= height
+ XINT (dy
);
4948 /* Put it on the top. */
4951 if (INTEGERP (left
))
4952 *root_x
= XINT (left
);
4953 else if (*root_x
+ XINT (dx
) <= 0)
4954 *root_x
= 0; /* Can happen for negative dx */
4955 else if (*root_x
+ XINT (dx
) + width
<= FRAME_X_DISPLAY_INFO (f
)->width
)
4956 /* It fits to the right of the pointer. */
4957 *root_x
+= XINT (dx
);
4958 else if (width
+ XINT (dx
) <= *root_x
)
4959 /* It fits to the left of the pointer. */
4960 *root_x
-= width
+ XINT (dx
);
4962 /* Put it left-justified on the screen--it ought to fit that way. */
4967 DEFUN ("x-show-tip", Fx_show_tip
, Sx_show_tip
, 1, 6, 0,
4968 doc
: /* Show STRING in a "tooltip" window on frame FRAME.
4969 A tooltip window is a small X window displaying a string.
4971 FRAME nil or omitted means use the selected frame.
4973 PARMS is an optional list of frame parameters which can be used to
4974 change the tooltip's appearance.
4976 Automatically hide the tooltip after TIMEOUT seconds. TIMEOUT nil
4977 means use the default timeout of 5 seconds.
4979 If the list of frame parameters PARAMS contains a `left' parameters,
4980 the tooltip is displayed at that x-position. Otherwise it is
4981 displayed at the mouse position, with offset DX added (default is 5 if
4982 DX isn't specified). Likewise for the y-position; if a `top' frame
4983 parameter is specified, it determines the y-position of the tooltip
4984 window, otherwise it is displayed at the mouse position, with offset
4985 DY added (default is -10).
4987 A tooltip's maximum size is specified by `x-max-tooltip-size'.
4988 Text larger than the specified size is clipped. */)
4989 (string
, frame
, parms
, timeout
, dx
, dy
)
4990 Lisp_Object string
, frame
, parms
, timeout
, dx
, dy
;
4995 struct buffer
*old_buffer
;
4996 struct text_pos pos
;
4997 int i
, width
, height
;
4998 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
4999 int old_windows_or_buffers_changed
= windows_or_buffers_changed
;
5000 int count
= SPECPDL_INDEX ();
5002 specbind (Qinhibit_redisplay
, Qt
);
5004 GCPRO4 (string
, parms
, frame
, timeout
);
5006 CHECK_STRING (string
);
5007 f
= check_x_frame (frame
);
5009 timeout
= make_number (5);
5011 CHECK_NATNUM (timeout
);
5014 dx
= make_number (5);
5019 dy
= make_number (-10);
5023 if (NILP (last_show_tip_args
))
5024 last_show_tip_args
= Fmake_vector (make_number (3), Qnil
);
5026 if (!NILP (tip_frame
))
5028 Lisp_Object last_string
= AREF (last_show_tip_args
, 0);
5029 Lisp_Object last_frame
= AREF (last_show_tip_args
, 1);
5030 Lisp_Object last_parms
= AREF (last_show_tip_args
, 2);
5032 if (EQ (frame
, last_frame
)
5033 && !NILP (Fequal (last_string
, string
))
5034 && !NILP (Fequal (last_parms
, parms
)))
5036 struct frame
*f
= XFRAME (tip_frame
);
5038 /* Only DX and DY have changed. */
5039 if (!NILP (tip_timer
))
5041 Lisp_Object timer
= tip_timer
;
5043 call1 (Qcancel_timer
, timer
);
5047 compute_tip_xy (f
, parms
, dx
, dy
, FRAME_PIXEL_WIDTH (f
),
5048 FRAME_PIXEL_HEIGHT (f
), &root_x
, &root_y
);
5049 XMoveWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5056 /* Hide a previous tip, if any. */
5059 ASET (last_show_tip_args
, 0, string
);
5060 ASET (last_show_tip_args
, 1, frame
);
5061 ASET (last_show_tip_args
, 2, parms
);
5063 /* Add default values to frame parameters. */
5064 if (NILP (Fassq (Qname
, parms
)))
5065 parms
= Fcons (Fcons (Qname
, build_string ("tooltip")), parms
);
5066 if (NILP (Fassq (Qinternal_border_width
, parms
)))
5067 parms
= Fcons (Fcons (Qinternal_border_width
, make_number (3)), parms
);
5068 if (NILP (Fassq (Qborder_width
, parms
)))
5069 parms
= Fcons (Fcons (Qborder_width
, make_number (1)), parms
);
5070 if (NILP (Fassq (Qborder_color
, parms
)))
5071 parms
= Fcons (Fcons (Qborder_color
, build_string ("lightyellow")), parms
);
5072 if (NILP (Fassq (Qbackground_color
, parms
)))
5073 parms
= Fcons (Fcons (Qbackground_color
, build_string ("lightyellow")),
5076 /* Create a frame for the tooltip, and record it in the global
5077 variable tip_frame. */
5078 frame
= x_create_tip_frame (FRAME_X_DISPLAY_INFO (f
), parms
, string
);
5081 /* Set up the frame's root window. */
5082 w
= XWINDOW (FRAME_ROOT_WINDOW (f
));
5083 w
->left_col
= w
->top_line
= make_number (0);
5085 if (CONSP (Vx_max_tooltip_size
)
5086 && INTEGERP (XCAR (Vx_max_tooltip_size
))
5087 && XINT (XCAR (Vx_max_tooltip_size
)) > 0
5088 && INTEGERP (XCDR (Vx_max_tooltip_size
))
5089 && XINT (XCDR (Vx_max_tooltip_size
)) > 0)
5091 w
->total_cols
= XCAR (Vx_max_tooltip_size
);
5092 w
->total_lines
= XCDR (Vx_max_tooltip_size
);
5096 w
->total_cols
= make_number (80);
5097 w
->total_lines
= make_number (40);
5100 FRAME_TOTAL_COLS (f
) = XINT (w
->total_cols
);
5102 w
->pseudo_window_p
= 1;
5104 /* Display the tooltip text in a temporary buffer. */
5105 old_buffer
= current_buffer
;
5106 set_buffer_internal_1 (XBUFFER (XWINDOW (FRAME_ROOT_WINDOW (f
))->buffer
));
5107 current_buffer
->truncate_lines
= Qnil
;
5108 clear_glyph_matrix (w
->desired_matrix
);
5109 clear_glyph_matrix (w
->current_matrix
);
5110 SET_TEXT_POS (pos
, BEGV
, BEGV_BYTE
);
5111 try_window (FRAME_ROOT_WINDOW (f
), pos
, 0);
5113 /* Compute width and height of the tooltip. */
5115 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
5117 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
5121 /* Stop at the first empty row at the end. */
5122 if (!row
->enabled_p
|| !row
->displays_text_p
)
5125 /* Let the row go over the full width of the frame. */
5126 row
->full_width_p
= 1;
5128 /* There's a glyph at the end of rows that is used to place
5129 the cursor there. Don't include the width of this glyph. */
5130 if (row
->used
[TEXT_AREA
])
5132 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
5133 row_width
= row
->pixel_width
- last
->pixel_width
;
5136 row_width
= row
->pixel_width
;
5138 height
+= row
->height
;
5139 width
= max (width
, row_width
);
5142 /* Add the frame's internal border to the width and height the X
5143 window should have. */
5144 height
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5145 width
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5147 /* Move the tooltip window where the mouse pointer is. Resize and
5149 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
5152 XMoveResizeWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5153 root_x
, root_y
, width
, height
);
5154 XMapRaised (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
));
5157 /* Draw into the window. */
5158 w
->must_be_updated_p
= 1;
5159 update_single_window (w
, 1);
5161 /* Restore original current buffer. */
5162 set_buffer_internal_1 (old_buffer
);
5163 windows_or_buffers_changed
= old_windows_or_buffers_changed
;
5166 /* Let the tip disappear after timeout seconds. */
5167 tip_timer
= call3 (intern ("run-at-time"), timeout
, Qnil
,
5168 intern ("x-hide-tip"));
5171 return unbind_to (count
, Qnil
);
5175 DEFUN ("x-hide-tip", Fx_hide_tip
, Sx_hide_tip
, 0, 0, 0,
5176 doc
: /* Hide the current tooltip window, if there is any.
5177 Value is t if tooltip was open, nil otherwise. */)
5181 Lisp_Object deleted
, frame
, timer
;
5182 struct gcpro gcpro1
, gcpro2
;
5184 /* Return quickly if nothing to do. */
5185 if (NILP (tip_timer
) && NILP (tip_frame
))
5190 GCPRO2 (frame
, timer
);
5191 tip_frame
= tip_timer
= deleted
= Qnil
;
5193 count
= SPECPDL_INDEX ();
5194 specbind (Qinhibit_redisplay
, Qt
);
5195 specbind (Qinhibit_quit
, Qt
);
5198 call1 (Qcancel_timer
, timer
);
5202 Fdelete_frame (frame
, Qnil
);
5206 /* Bloodcurdling hack alert: The Lucid menu bar widget's
5207 redisplay procedure is not called when a tip frame over menu
5208 items is unmapped. Redisplay the menu manually... */
5210 struct frame
*f
= SELECTED_FRAME ();
5211 Widget w
= f
->output_data
.x
->menubar_widget
;
5212 extern void xlwmenu_redisplay
P_ ((Widget
));
5214 if (!DoesSaveUnders (FRAME_X_DISPLAY_INFO (f
)->screen
)
5218 xlwmenu_redisplay (w
);
5222 #endif /* USE_LUCID */
5226 return unbind_to (count
, deleted
);
5231 /***********************************************************************
5232 File selection dialog
5233 ***********************************************************************/
5235 DEFUN ("x-uses-old-gtk-dialog", Fx_uses_old_gtk_dialog
,
5236 Sx_uses_old_gtk_dialog
,
5238 doc
: /* Return t if the old Gtk+ file selection dialog is used. */)
5242 extern int use_dialog_box
;
5243 extern int use_file_dialog
;
5248 && xg_uses_old_file_dialog ())
5256 /* Callback for "OK" and "Cancel" on file selection dialog. */
5259 file_dialog_cb (widget
, client_data
, call_data
)
5261 XtPointer call_data
, client_data
;
5263 int *result
= (int *) client_data
;
5264 XmAnyCallbackStruct
*cb
= (XmAnyCallbackStruct
*) call_data
;
5265 *result
= cb
->reason
;
5269 /* Callback for unmapping a file selection dialog. This is used to
5270 capture the case where a dialog is closed via a window manager's
5271 closer button, for example. Using a XmNdestroyCallback didn't work
5275 file_dialog_unmap_cb (widget
, client_data
, call_data
)
5277 XtPointer call_data
, client_data
;
5279 int *result
= (int *) client_data
;
5280 *result
= XmCR_CANCEL
;
5284 clean_up_file_dialog (arg
)
5287 struct Lisp_Save_Value
*p
= XSAVE_VALUE (arg
);
5288 Widget dialog
= (Widget
) p
->pointer
;
5292 XtUnmanageChild (dialog
);
5293 XtDestroyWidget (dialog
);
5294 x_menu_set_in_use (0);
5301 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5302 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5303 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5304 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5305 or directory must exist. ONLY-DIR-P is ignored." */)
5306 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
)
5307 Lisp_Object prompt
, dir
, default_filename
, mustmatch
, only_dir_p
;
5310 struct frame
*f
= SELECTED_FRAME ();
5311 Lisp_Object file
= Qnil
;
5312 Widget dialog
, text
, help
;
5315 extern XtAppContext Xt_app_con
;
5316 XmString dir_xmstring
, pattern_xmstring
;
5317 int count
= SPECPDL_INDEX ();
5318 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5320 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5322 if (popup_activated ())
5323 error ("Trying to use a menu from within a menu-entry");
5325 CHECK_STRING (prompt
);
5328 /* Prevent redisplay. */
5329 specbind (Qinhibit_redisplay
, Qt
);
5333 /* Create the dialog with PROMPT as title, using DIR as initial
5334 directory and using "*" as pattern. */
5335 dir
= Fexpand_file_name (dir
, Qnil
);
5336 dir_xmstring
= XmStringCreateLocalized (SDATA (dir
));
5337 pattern_xmstring
= XmStringCreateLocalized ("*");
5339 XtSetArg (al
[ac
], XmNtitle
, SDATA (prompt
)); ++ac
;
5340 XtSetArg (al
[ac
], XmNdirectory
, dir_xmstring
); ++ac
;
5341 XtSetArg (al
[ac
], XmNpattern
, pattern_xmstring
); ++ac
;
5342 XtSetArg (al
[ac
], XmNresizePolicy
, XmRESIZE_GROW
); ++ac
;
5343 XtSetArg (al
[ac
], XmNdialogStyle
, XmDIALOG_APPLICATION_MODAL
); ++ac
;
5344 dialog
= XmCreateFileSelectionDialog (f
->output_data
.x
->widget
,
5346 XmStringFree (dir_xmstring
);
5347 XmStringFree (pattern_xmstring
);
5349 /* Add callbacks for OK and Cancel. */
5350 XtAddCallback (dialog
, XmNokCallback
, file_dialog_cb
,
5351 (XtPointer
) &result
);
5352 XtAddCallback (dialog
, XmNcancelCallback
, file_dialog_cb
,
5353 (XtPointer
) &result
);
5354 XtAddCallback (dialog
, XmNunmapCallback
, file_dialog_unmap_cb
,
5355 (XtPointer
) &result
);
5357 /* Remove the help button since we can't display help. */
5358 help
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_HELP_BUTTON
);
5359 XtUnmanageChild (help
);
5361 /* Mark OK button as default. */
5362 XtVaSetValues (XmFileSelectionBoxGetChild (dialog
, XmDIALOG_OK_BUTTON
),
5363 XmNshowAsDefault
, True
, NULL
);
5365 /* If MUSTMATCH is non-nil, disable the file entry field of the
5366 dialog, so that the user must select a file from the files list
5367 box. We can't remove it because we wouldn't have a way to get at
5368 the result file name, then. */
5369 text
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5370 if (!NILP (mustmatch
))
5373 label
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_SELECTION_LABEL
);
5374 XtSetSensitive (text
, False
);
5375 XtSetSensitive (label
, False
);
5378 /* Manage the dialog, so that list boxes get filled. */
5379 XtManageChild (dialog
);
5381 if (STRINGP (default_filename
))
5383 XmString default_xmstring
;
5384 Widget wtext
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5385 Widget list
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_LIST
);
5387 XmTextPosition last_pos
= XmTextFieldGetLastPosition (wtext
);
5388 XmTextFieldReplace (wtext
, 0, last_pos
,
5389 (SDATA (Ffile_name_nondirectory (default_filename
))));
5391 /* Select DEFAULT_FILENAME in the files list box. DEFAULT_FILENAME
5392 must include the path for this to work. */
5394 default_xmstring
= XmStringCreateLocalized (SDATA (default_filename
));
5396 if (XmListItemExists (list
, default_xmstring
))
5398 int item_pos
= XmListItemPos (list
, default_xmstring
);
5399 /* Select the item and scroll it into view. */
5400 XmListSelectPos (list
, item_pos
, True
);
5401 XmListSetPos (list
, item_pos
);
5404 XmStringFree (default_xmstring
);
5407 record_unwind_protect (clean_up_file_dialog
, make_save_value (dialog
, 0));
5409 /* Process events until the user presses Cancel or OK. */
5410 x_menu_set_in_use (1);
5415 x_menu_wait_for_event (0);
5416 XtAppNextEvent (Xt_app_con
, &event
);
5417 if (event
.type
== KeyPress
5418 && FRAME_X_DISPLAY (f
) == event
.xkey
.display
)
5420 KeySym keysym
= XLookupKeysym (&event
.xkey
, 0);
5422 /* Pop down on C-g. */
5423 if (keysym
== XK_g
&& (event
.xkey
.state
& ControlMask
) != 0)
5424 XtUnmanageChild (dialog
);
5427 (void) x_dispatch_event (&event
, FRAME_X_DISPLAY (f
));
5430 /* Get the result. */
5431 if (result
== XmCR_OK
)
5436 XtVaGetValues (dialog
, XmNtextString
, &text
, NULL
);
5437 XmStringGetLtoR (text
, XmFONTLIST_DEFAULT_TAG
, &data
);
5438 XmStringFree (text
);
5439 file
= build_string (data
);
5448 /* Make "Cancel" equivalent to C-g. */
5450 Fsignal (Qquit
, Qnil
);
5452 return unbind_to (count
, file
);
5455 #endif /* USE_MOTIF */
5460 clean_up_dialog (arg
)
5463 x_menu_set_in_use (0);
5468 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5469 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5470 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5471 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5472 or directory must exist. If ONLY-DIR-P is non-nil, the user can only select
5474 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
)
5475 Lisp_Object prompt
, dir
, default_filename
, mustmatch
, only_dir_p
;
5477 FRAME_PTR f
= SELECTED_FRAME ();
5479 Lisp_Object file
= Qnil
;
5480 int count
= SPECPDL_INDEX ();
5481 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5484 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5486 if (popup_activated ())
5487 error ("Trying to use a menu from within a menu-entry");
5489 CHECK_STRING (prompt
);
5492 /* Prevent redisplay. */
5493 specbind (Qinhibit_redisplay
, Qt
);
5494 record_unwind_protect (clean_up_dialog
, Qnil
);
5498 if (STRINGP (default_filename
))
5499 cdef_file
= SDATA (default_filename
);
5501 cdef_file
= SDATA (dir
);
5503 fn
= xg_get_file_name (f
, SDATA (prompt
), cdef_file
,
5505 ! NILP (only_dir_p
));
5509 file
= build_string (fn
);
5516 /* Make "Cancel" equivalent to C-g. */
5518 Fsignal (Qquit
, Qnil
);
5520 return unbind_to (count
, file
);
5523 #endif /* USE_GTK */
5526 /***********************************************************************
5528 ***********************************************************************/
5530 #ifdef HAVE_XKBGETKEYBOARD
5531 #include <X11/XKBlib.h>
5532 #include <X11/keysym.h>
5535 DEFUN ("x-backspace-delete-keys-p", Fx_backspace_delete_keys_p
,
5536 Sx_backspace_delete_keys_p
, 0, 1, 0,
5537 doc
: /* Check if both Backspace and Delete keys are on the keyboard of FRAME.
5538 FRAME nil means use the selected frame.
5539 Value is t if we know that both keys are present, and are mapped to the
5540 usual X keysyms. Value is `lambda' if we cannot determine if both keys are
5541 present and mapped to the usual X keysyms. */)
5545 #ifdef HAVE_XKBGETKEYBOARD
5547 struct frame
*f
= check_x_frame (frame
);
5548 Display
*dpy
= FRAME_X_DISPLAY (f
);
5549 Lisp_Object have_keys
;
5550 int major
, minor
, op
, event
, error
;
5554 /* Check library version in case we're dynamically linked. */
5555 major
= XkbMajorVersion
;
5556 minor
= XkbMinorVersion
;
5557 if (!XkbLibraryVersion (&major
, &minor
))
5563 /* Check that the server supports XKB. */
5564 major
= XkbMajorVersion
;
5565 minor
= XkbMinorVersion
;
5566 if (!XkbQueryExtension (dpy
, &op
, &event
, &error
, &major
, &minor
))
5572 /* In this code we check that the keyboard has physical keys with names
5573 that start with BKSP (Backspace) and DELE (Delete), and that they
5574 generate keysym XK_BackSpace and XK_Delete respectively.
5575 This function is used to test if normal-erase-is-backspace should be
5577 An alternative approach would be to just check if XK_BackSpace and
5578 XK_Delete are mapped to any key. But if any of those are mapped to
5579 some non-intuitive key combination (Meta-Shift-Ctrl-whatever) and the
5580 user doesn't know about it, it is better to return false here.
5581 It is more obvious to the user what to do if she/he has two keys
5582 clearly marked with names/symbols and one key does something not
5583 expected (i.e. she/he then tries the other).
5584 The cases where Backspace/Delete is mapped to some other key combination
5585 are rare, and in those cases, normal-erase-is-backspace can be turned on
5589 kb
= XkbGetMap (dpy
, XkbAllMapComponentsMask
, XkbUseCoreKbd
);
5592 int delete_keycode
= 0, backspace_keycode
= 0, i
;
5594 if (XkbGetNames (dpy
, XkbAllNamesMask
, kb
) == Success
)
5596 for (i
= kb
->min_key_code
;
5597 (i
< kb
->max_key_code
5598 && (delete_keycode
== 0 || backspace_keycode
== 0));
5601 /* The XKB symbolic key names can be seen most easily in
5602 the PS file generated by `xkbprint -label name
5604 if (bcmp ("DELE", kb
->names
->keys
[i
].name
, 4) == 0)
5606 else if (bcmp ("BKSP", kb
->names
->keys
[i
].name
, 4) == 0)
5607 backspace_keycode
= i
;
5610 XkbFreeNames (kb
, 0, True
);
5613 XkbFreeClientMap (kb
, 0, True
);
5616 && backspace_keycode
5617 && XKeysymToKeycode (dpy
, XK_Delete
) == delete_keycode
5618 && XKeysymToKeycode (dpy
, XK_BackSpace
) == backspace_keycode
)
5623 #else /* not HAVE_XKBGETKEYBOARD */
5625 #endif /* not HAVE_XKBGETKEYBOARD */
5630 /***********************************************************************
5632 ***********************************************************************/
5634 /* Keep this list in the same order as frame_parms in frame.c.
5635 Use 0 for unsupported frame parameters. */
5637 frame_parm_handler x_frame_parm_handlers
[] =
5641 x_set_background_color
,
5647 x_set_foreground_color
,
5650 x_set_internal_border_width
,
5651 x_set_menu_bar_lines
,
5653 x_explicitly_set_name
,
5654 x_set_scroll_bar_width
,
5657 x_set_vertical_scroll_bars
,
5659 x_set_tool_bar_lines
,
5660 x_set_scroll_bar_foreground
,
5661 x_set_scroll_bar_background
,
5673 /* This is zero if not using X windows. */
5676 /* The section below is built by the lisp expression at the top of the file,
5677 just above where these variables are declared. */
5678 /*&&& init symbols here &&&*/
5679 Qnone
= intern ("none");
5681 Qsuppress_icon
= intern ("suppress-icon");
5682 staticpro (&Qsuppress_icon
);
5683 Qundefined_color
= intern ("undefined-color");
5684 staticpro (&Qundefined_color
);
5685 Qcompound_text
= intern ("compound-text");
5686 staticpro (&Qcompound_text
);
5687 Qcancel_timer
= intern ("cancel-timer");
5688 staticpro (&Qcancel_timer
);
5689 /* This is the end of symbol initialization. */
5691 /* Text property `display' should be nonsticky by default. */
5692 Vtext_property_default_nonsticky
5693 = Fcons (Fcons (Qdisplay
, Qt
), Vtext_property_default_nonsticky
);
5696 Fput (Qundefined_color
, Qerror_conditions
,
5697 Fcons (Qundefined_color
, Fcons (Qerror
, Qnil
)));
5698 Fput (Qundefined_color
, Qerror_message
,
5699 build_string ("Undefined color"));
5701 DEFVAR_LISP ("x-pointer-shape", &Vx_pointer_shape
,
5702 doc
: /* The shape of the pointer when over text.
5703 Changing the value does not affect existing frames
5704 unless you set the mouse color. */);
5705 Vx_pointer_shape
= Qnil
;
5707 #if 0 /* This doesn't really do anything. */
5708 DEFVAR_LISP ("x-nontext-pointer-shape", &Vx_nontext_pointer_shape
,
5709 doc
: /* The shape of the pointer when not over text.
5710 This variable takes effect when you create a new frame
5711 or when you set the mouse color. */);
5713 Vx_nontext_pointer_shape
= Qnil
;
5715 DEFVAR_LISP ("x-hourglass-pointer-shape", &Vx_hourglass_pointer_shape
,
5716 doc
: /* The shape of the pointer when Emacs is busy.
5717 This variable takes effect when you create a new frame
5718 or when you set the mouse color. */);
5719 Vx_hourglass_pointer_shape
= Qnil
;
5721 DEFVAR_BOOL ("display-hourglass", &display_hourglass_p
,
5722 doc
: /* Non-zero means Emacs displays an hourglass pointer on window systems. */);
5723 display_hourglass_p
= 1;
5725 DEFVAR_LISP ("hourglass-delay", &Vhourglass_delay
,
5726 doc
: /* *Seconds to wait before displaying an hourglass pointer.
5727 Value must be an integer or float. */);
5728 Vhourglass_delay
= make_number (DEFAULT_HOURGLASS_DELAY
);
5730 #if 0 /* This doesn't really do anything. */
5731 DEFVAR_LISP ("x-mode-pointer-shape", &Vx_mode_pointer_shape
,
5732 doc
: /* The shape of the pointer when over the mode line.
5733 This variable takes effect when you create a new frame
5734 or when you set the mouse color. */);
5736 Vx_mode_pointer_shape
= Qnil
;
5738 DEFVAR_LISP ("x-sensitive-text-pointer-shape",
5739 &Vx_sensitive_text_pointer_shape
,
5740 doc
: /* The shape of the pointer when over mouse-sensitive text.
5741 This variable takes effect when you create a new frame
5742 or when you set the mouse color. */);
5743 Vx_sensitive_text_pointer_shape
= Qnil
;
5745 DEFVAR_LISP ("x-window-horizontal-drag-cursor",
5746 &Vx_window_horizontal_drag_shape
,
5747 doc
: /* Pointer shape to use for indicating a window can be dragged horizontally.
5748 This variable takes effect when you create a new frame
5749 or when you set the mouse color. */);
5750 Vx_window_horizontal_drag_shape
= Qnil
;
5752 DEFVAR_LISP ("x-cursor-fore-pixel", &Vx_cursor_fore_pixel
,
5753 doc
: /* A string indicating the foreground color of the cursor box. */);
5754 Vx_cursor_fore_pixel
= Qnil
;
5756 DEFVAR_LISP ("x-max-tooltip-size", &Vx_max_tooltip_size
,
5757 doc
: /* Maximum size for tooltips. Value is a pair (COLUMNS . ROWS).
5758 Text larger than this is clipped. */);
5759 Vx_max_tooltip_size
= Fcons (make_number (80), make_number (40));
5761 DEFVAR_LISP ("x-no-window-manager", &Vx_no_window_manager
,
5762 doc
: /* Non-nil if no X window manager is in use.
5763 Emacs doesn't try to figure this out; this is always nil
5764 unless you set it to something else. */);
5765 /* We don't have any way to find this out, so set it to nil
5766 and maybe the user would like to set it to t. */
5767 Vx_no_window_manager
= Qnil
;
5769 DEFVAR_LISP ("x-pixel-size-width-font-regexp",
5770 &Vx_pixel_size_width_font_regexp
,
5771 doc
: /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'.
5773 Since Emacs gets width of a font matching with this regexp from
5774 PIXEL_SIZE field of the name, font finding mechanism gets faster for
5775 such a font. This is especially effective for such large fonts as
5776 Chinese, Japanese, and Korean. */);
5777 Vx_pixel_size_width_font_regexp
= Qnil
;
5779 /* This is not ifdef:ed, so other builds than GTK can customize it. */
5780 DEFVAR_BOOL ("x-use-old-gtk-file-dialog", &x_use_old_gtk_file_dialog
,
5781 doc
: /* *Non-nil means prompt with the old GTK file selection dialog.
5782 If nil or if the file selection dialog is not available, the new GTK file
5783 chooser is used instead. To turn off all file dialogs set the
5784 variable `use-file-dialog'. */);
5785 x_use_old_gtk_file_dialog
= 0;
5787 DEFVAR_BOOL ("x-gtk-show-hidden-files", &x_gtk_show_hidden_files
,
5788 doc
: /* *If non-nil, the GTK file chooser will by default show hidden files.
5789 Note that this is just the default, there is a toggle button on the file
5790 chooser to show or not show hidden files on a case by case basis. */);
5791 x_gtk_show_hidden_files
= 0;
5793 Fprovide (intern ("x"), Qnil
);
5795 #ifdef USE_X_TOOLKIT
5796 Fprovide (intern ("x-toolkit"), Qnil
);
5798 Fprovide (intern ("motif"), Qnil
);
5800 DEFVAR_LISP ("motif-version-string", &Vmotif_version_string
,
5801 doc
: /* Version info for LessTif/Motif. */);
5802 Vmotif_version_string
= build_string (XmVERSION_STRING
);
5803 #endif /* USE_MOTIF */
5804 #endif /* USE_X_TOOLKIT */
5807 /* Provide x-toolkit also for GTK. Internally GTK does not use Xt so it
5808 is not an X toolkit in that sense (USE_X_TOOLKIT is not defined).
5809 But for a user it is a toolkit for X, and indeed, configure
5810 accepts --with-x-toolkit=gtk. */
5811 Fprovide (intern ("x-toolkit"), Qnil
);
5812 Fprovide (intern ("gtk"), Qnil
);
5814 DEFVAR_LISP ("gtk-version-string", &Vgtk_version_string
,
5815 doc
: /* Version info for GTK+. */);
5817 char gtk_version
[40];
5818 g_snprintf (gtk_version
, sizeof (gtk_version
), "%u.%u.%u",
5819 GTK_MAJOR_VERSION
, GTK_MINOR_VERSION
, GTK_MICRO_VERSION
);
5820 Vgtk_version_string
= build_string (gtk_version
);
5822 #endif /* USE_GTK */
5824 /* X window properties. */
5825 defsubr (&Sx_change_window_property
);
5826 defsubr (&Sx_delete_window_property
);
5827 defsubr (&Sx_window_property
);
5829 defsubr (&Sxw_display_color_p
);
5830 defsubr (&Sx_display_grayscale_p
);
5831 defsubr (&Sxw_color_defined_p
);
5832 defsubr (&Sxw_color_values
);
5833 defsubr (&Sx_server_max_request_size
);
5834 defsubr (&Sx_server_vendor
);
5835 defsubr (&Sx_server_version
);
5836 defsubr (&Sx_display_pixel_width
);
5837 defsubr (&Sx_display_pixel_height
);
5838 defsubr (&Sx_display_mm_width
);
5839 defsubr (&Sx_display_mm_height
);
5840 defsubr (&Sx_display_screens
);
5841 defsubr (&Sx_display_planes
);
5842 defsubr (&Sx_display_color_cells
);
5843 defsubr (&Sx_display_visual_class
);
5844 defsubr (&Sx_display_backing_store
);
5845 defsubr (&Sx_display_save_under
);
5846 defsubr (&Sx_create_frame
);
5847 defsubr (&Sx_open_connection
);
5848 defsubr (&Sx_close_connection
);
5849 defsubr (&Sx_display_list
);
5850 defsubr (&Sx_synchronize
);
5851 defsubr (&Sx_focus_frame
);
5852 defsubr (&Sx_backspace_delete_keys_p
);
5854 /* Setting callback functions for fontset handler. */
5855 get_font_info_func
= x_get_font_info
;
5857 #if 0 /* This function pointer doesn't seem to be used anywhere.
5858 And the pointer assigned has the wrong type, anyway. */
5859 list_fonts_func
= x_list_fonts
;
5862 load_font_func
= x_load_font
;
5863 find_ccl_program_func
= x_find_ccl_program
;
5864 query_font_func
= x_query_font
;
5865 set_frame_fontset_func
= x_set_font
;
5866 get_font_repertory_func
= x_get_font_repertory
;
5867 check_window_system_func
= check_x
;
5869 hourglass_atimer
= NULL
;
5870 hourglass_shown_p
= 0;
5872 defsubr (&Sx_show_tip
);
5873 defsubr (&Sx_hide_tip
);
5875 staticpro (&tip_timer
);
5877 staticpro (&tip_frame
);
5879 last_show_tip_args
= Qnil
;
5880 staticpro (&last_show_tip_args
);
5882 defsubr (&Sx_uses_old_gtk_dialog
);
5883 #if defined (USE_MOTIF) || defined (USE_GTK)
5884 defsubr (&Sx_file_dialog
);
5888 #endif /* HAVE_X_WINDOWS */
5890 /* arch-tag: 55040d02-5485-4d58-8b22-95a7a05f3288
5891 (do not change this comment) */