1 /* Functions for the X window system.
2 Copyright (C) 1989, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000,
3 2001, 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc.
5 This file is part of GNU Emacs.
7 GNU Emacs is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 2, or (at your option)
12 GNU Emacs is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with GNU Emacs; see the file COPYING. If not, write to
19 the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
20 Boston, MA 02110-1301, USA. */
30 /* This makes the fields of a Display accessible, in Xlib header files. */
32 #define XLIB_ILLEGAL_ACCESS
39 #include "intervals.h"
40 #include "dispextern.h"
42 #include "blockinput.h"
48 #include "termhooks.h"
54 #include <sys/types.h>
58 #if 1 /* Used to be #ifdef EMACS_BITMAP_FILES, but this should always work. */
59 #include "bitmaps/gray.xbm"
61 #include <X11/bitmaps/gray>
64 #include "[.bitmaps]gray.xbm"
72 #include <X11/Shell.h>
75 #include <X11/Xaw/Paned.h>
76 #include <X11/Xaw/Label.h>
77 #endif /* USE_MOTIF */
80 #undef USG /* ####KLUDGE for Solaris 2.2 and up */
89 #include "../lwlib/lwlib.h"
93 #include <Xm/DialogS.h>
94 #include <Xm/FileSB.h>
97 /* Do the EDITRES protocol if running X11R5
98 Exception: HP-UX (at least version A.09.05) has X11R5 without EditRes */
100 #if (XtSpecificationRelease >= 5) && !defined(NO_EDITRES)
102 extern void _XEditResCheckMessages ();
103 #endif /* R5 + Athena */
105 /* Unique id counter for widgets created by the Lucid Widget Library. */
107 extern LWLIB_ID widget_id_tick
;
110 /* This is part of a kludge--see lwlib/xlwmenu.c. */
111 extern XFontStruct
*xlwmenu_default_font
;
114 extern void free_frame_menubar ();
115 extern double atof ();
119 /* LessTif/Motif version info. */
121 static Lisp_Object Vmotif_version_string
;
123 #endif /* USE_MOTIF */
125 #endif /* USE_X_TOOLKIT */
129 /* GTK+ version info */
131 static Lisp_Object Vgtk_version_string
;
136 #define MAXREQUEST(dpy) (XMaxRequestSize (dpy))
138 #define MAXREQUEST(dpy) ((dpy)->max_request_size)
141 /* The gray bitmap `bitmaps/gray'. This is done because xterm.c uses
142 it, and including `bitmaps/gray' more than once is a problem when
143 config.h defines `static' as an empty replacement string. */
145 int gray_bitmap_width
= gray_width
;
146 int gray_bitmap_height
= gray_height
;
147 char *gray_bitmap_bits
= gray_bits
;
149 /* Non-zero means we're allowed to display an hourglass cursor. */
151 int display_hourglass_p
;
153 /* Non-zero means prompt with the old GTK file selection dialog. */
155 int x_use_old_gtk_file_dialog
;
157 /* If non-zero, by default show hidden files in the GTK file chooser. */
159 int x_gtk_show_hidden_files
;
161 /* If non-zero, don't collapse to tool bar when it is detached. */
163 int x_gtk_whole_detached_tool_bar
;
165 /* The background and shape of the mouse pointer, and shape when not
166 over text or in the modeline. */
168 Lisp_Object Vx_pointer_shape
, Vx_nontext_pointer_shape
, Vx_mode_pointer_shape
;
169 Lisp_Object Vx_hourglass_pointer_shape
;
171 /* The shape when over mouse-sensitive text. */
173 Lisp_Object Vx_sensitive_text_pointer_shape
;
175 /* If non-nil, the pointer shape to indicate that windows can be
176 dragged horizontally. */
178 Lisp_Object Vx_window_horizontal_drag_shape
;
180 /* Color of chars displayed in cursor box. */
182 Lisp_Object Vx_cursor_fore_pixel
;
184 /* Nonzero if using X. */
188 /* Non nil if no window manager is in use. */
190 Lisp_Object Vx_no_window_manager
;
192 /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'. */
194 Lisp_Object Vx_pixel_size_width_font_regexp
;
197 Lisp_Object Qsuppress_icon
;
198 Lisp_Object Qundefined_color
;
199 Lisp_Object Qcompound_text
, Qcancel_timer
;
203 extern Lisp_Object Vwindow_system_version
;
205 /* The below are defined in frame.c. */
208 int image_cache_refcount
, dpyinfo_refcount
;
213 /* Error if we are not connected to X. */
219 error ("X windows are not in use or not initialized");
222 /* Nonzero if we can use mouse menus.
223 You should not call this unless HAVE_MENUS is defined. */
231 /* Extract a frame as a FRAME_PTR, defaulting to the selected frame
232 and checking validity for X. */
235 check_x_frame (frame
)
241 frame
= selected_frame
;
242 CHECK_LIVE_FRAME (frame
);
245 error ("Non-X frame used");
249 /* Let the user specify an X display with a frame.
250 nil stands for the selected frame--or, if that is not an X frame,
251 the first X display on the list. */
253 struct x_display_info
*
254 check_x_display_info (frame
)
257 struct x_display_info
*dpyinfo
= NULL
;
261 struct frame
*sf
= XFRAME (selected_frame
);
263 if (FRAME_X_P (sf
) && FRAME_LIVE_P (sf
))
264 dpyinfo
= FRAME_X_DISPLAY_INFO (sf
);
265 else if (x_display_list
!= 0)
266 dpyinfo
= x_display_list
;
268 error ("X windows are not in use or not initialized");
270 else if (STRINGP (frame
))
271 dpyinfo
= x_display_info_for_name (frame
);
274 FRAME_PTR f
= check_x_frame (frame
);
275 dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
282 /* Return the Emacs frame-object corresponding to an X window.
283 It could be the frame's main window or an icon window. */
285 /* This function can be called during GC, so use GC_xxx type test macros. */
288 x_window_to_frame (dpyinfo
, wdesc
)
289 struct x_display_info
*dpyinfo
;
292 Lisp_Object tail
, frame
;
295 if (wdesc
== None
) return 0;
297 for (tail
= Vframe_list
; GC_CONSP (tail
); tail
= XCDR (tail
))
300 if (!GC_FRAMEP (frame
))
303 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
305 if (f
->output_data
.x
->hourglass_window
== wdesc
)
308 if ((f
->output_data
.x
->edit_widget
309 && XtWindow (f
->output_data
.x
->edit_widget
) == wdesc
)
310 /* A tooltip frame? */
311 || (!f
->output_data
.x
->edit_widget
312 && FRAME_X_WINDOW (f
) == wdesc
)
313 || f
->output_data
.x
->icon_desc
== wdesc
)
315 #else /* not USE_X_TOOLKIT */
317 if (f
->output_data
.x
->edit_widget
)
319 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
320 struct x_output
*x
= f
->output_data
.x
;
321 if (gwdesc
!= 0 && gwdesc
== x
->edit_widget
)
325 if (FRAME_X_WINDOW (f
) == wdesc
326 || f
->output_data
.x
->icon_desc
== wdesc
)
328 #endif /* not USE_X_TOOLKIT */
333 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
334 /* Like x_window_to_frame but also compares the window with the widget's
338 x_any_window_to_frame (dpyinfo
, wdesc
)
339 struct x_display_info
*dpyinfo
;
342 Lisp_Object tail
, frame
;
343 struct frame
*f
, *found
;
346 if (wdesc
== None
) return NULL
;
349 for (tail
= Vframe_list
; GC_CONSP (tail
) && !found
; tail
= XCDR (tail
))
352 if (!GC_FRAMEP (frame
))
356 if (FRAME_X_P (f
) && FRAME_X_DISPLAY_INFO (f
) == dpyinfo
)
358 /* This frame matches if the window is any of its widgets. */
359 x
= f
->output_data
.x
;
360 if (x
->hourglass_window
== wdesc
)
365 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
367 && (gwdesc
== x
->widget
368 || gwdesc
== x
->edit_widget
369 || gwdesc
== x
->vbox_widget
370 || gwdesc
== x
->menubar_widget
))
373 if (wdesc
== XtWindow (x
->widget
)
374 || wdesc
== XtWindow (x
->column_widget
)
375 || wdesc
== XtWindow (x
->edit_widget
))
377 /* Match if the window is this frame's menubar. */
378 else if (lw_window_is_in_menubar (wdesc
, x
->menubar_widget
))
382 else if (FRAME_X_WINDOW (f
) == wdesc
)
383 /* A tooltip frame. */
391 /* Likewise, but exclude the menu bar widget. */
394 x_non_menubar_window_to_frame (dpyinfo
, wdesc
)
395 struct x_display_info
*dpyinfo
;
398 Lisp_Object tail
, frame
;
402 if (wdesc
== None
) return 0;
404 for (tail
= Vframe_list
; GC_CONSP (tail
); tail
= XCDR (tail
))
407 if (!GC_FRAMEP (frame
))
410 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
412 x
= f
->output_data
.x
;
413 /* This frame matches if the window is any of its widgets. */
414 if (x
->hourglass_window
== wdesc
)
419 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
421 && (gwdesc
== x
->widget
422 || gwdesc
== x
->edit_widget
423 || gwdesc
== x
->vbox_widget
))
426 if (wdesc
== XtWindow (x
->widget
)
427 || wdesc
== XtWindow (x
->column_widget
)
428 || wdesc
== XtWindow (x
->edit_widget
))
432 else if (FRAME_X_WINDOW (f
) == wdesc
)
433 /* A tooltip frame. */
439 /* Likewise, but consider only the menu bar widget. */
442 x_menubar_window_to_frame (dpyinfo
, wdesc
)
443 struct x_display_info
*dpyinfo
;
446 Lisp_Object tail
, frame
;
450 if (wdesc
== None
) return 0;
452 for (tail
= Vframe_list
; GC_CONSP (tail
); tail
= XCDR (tail
))
455 if (!GC_FRAMEP (frame
))
458 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
460 x
= f
->output_data
.x
;
461 /* Match if the window is this frame's menubar. */
463 if (x
->menubar_widget
)
465 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
470 && (gwdesc
== x
->menubar_widget
471 || gtk_widget_get_parent (gwdesc
) == x
->menubar_widget
))
477 if (x
->menubar_widget
478 && lw_window_is_in_menubar (wdesc
, x
->menubar_widget
))
485 /* Return the frame whose principal (outermost) window is WDESC.
486 If WDESC is some other (smaller) window, we return 0. */
489 x_top_window_to_frame (dpyinfo
, wdesc
)
490 struct x_display_info
*dpyinfo
;
493 Lisp_Object tail
, frame
;
497 if (wdesc
== None
) return 0;
499 for (tail
= Vframe_list
; GC_CONSP (tail
); tail
= XCDR (tail
))
502 if (!GC_FRAMEP (frame
))
505 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
507 x
= f
->output_data
.x
;
511 /* This frame matches if the window is its topmost widget. */
513 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
514 if (gwdesc
== x
->widget
)
517 if (wdesc
== XtWindow (x
->widget
))
519 #if 0 /* I don't know why it did this,
520 but it seems logically wrong,
521 and it causes trouble for MapNotify events. */
522 /* Match if the window is this frame's menubar. */
523 if (x
->menubar_widget
524 && wdesc
== XtWindow (x
->menubar_widget
))
529 else if (FRAME_X_WINDOW (f
) == wdesc
)
535 #endif /* USE_X_TOOLKIT || USE_GTK */
539 static Lisp_Object unwind_create_frame
P_ ((Lisp_Object
));
540 static Lisp_Object unwind_create_tip_frame
P_ ((Lisp_Object
));
542 void x_set_foreground_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
543 static void x_set_wait_for_wm
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
544 void x_set_background_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
545 void x_set_mouse_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
546 void x_set_cursor_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
547 void x_set_border_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
548 void x_set_cursor_type
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
549 void x_set_icon_type
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
550 void x_set_icon_name
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
551 void x_explicitly_set_name
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
552 void x_set_menu_bar_lines
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
553 void x_set_title
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
554 void x_set_tool_bar_lines
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
555 void x_set_scroll_bar_foreground
P_ ((struct frame
*, Lisp_Object
,
557 void x_set_scroll_bar_background
P_ ((struct frame
*, Lisp_Object
,
559 static Lisp_Object x_default_scroll_bar_color_parameter
P_ ((struct frame
*,
566 /* Store the screen positions of frame F into XPTR and YPTR.
567 These are the positions of the containing window manager window,
568 not Emacs's own window. */
571 x_real_positions (f
, xptr
, yptr
)
575 int win_x
, win_y
, outer_x
, outer_y
;
576 int real_x
= 0, real_y
= 0;
578 Window win
= f
->output_data
.x
->parent_desc
;
582 x_catch_errors (FRAME_X_DISPLAY (f
));
584 if (win
== FRAME_X_DISPLAY_INFO (f
)->root_window
)
585 win
= FRAME_OUTER_WINDOW (f
);
587 /* This loop traverses up the containment tree until we hit the root
588 window. Window managers may intersect many windows between our window
589 and the root window. The window we find just before the root window
590 should be the outer WM window. */
593 Window wm_window
, rootw
;
594 Window
*tmp_children
;
595 unsigned int tmp_nchildren
;
598 success
= XQueryTree (FRAME_X_DISPLAY (f
), win
, &rootw
,
599 &wm_window
, &tmp_children
, &tmp_nchildren
);
601 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
603 /* Don't free tmp_children if XQueryTree failed. */
607 XFree ((char *) tmp_children
);
609 if (wm_window
== rootw
|| had_errors
)
620 /* Get the real coordinates for the WM window upper left corner */
621 XGetGeometry (FRAME_X_DISPLAY (f
), win
,
622 &rootw
, &real_x
, &real_y
, &ign
, &ign
, &ign
, &ign
);
624 /* Translate real coordinates to coordinates relative to our
625 window. For our window, the upper left corner is 0, 0.
626 Since the upper left corner of the WM window is outside
627 our window, win_x and win_y will be negative:
629 ------------------ ---> x
631 | ----------------- v y
634 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
636 /* From-window, to-window. */
637 FRAME_X_DISPLAY_INFO (f
)->root_window
,
640 /* From-position, to-position. */
641 real_x
, real_y
, &win_x
, &win_y
,
646 if (FRAME_X_WINDOW (f
) == FRAME_OUTER_WINDOW (f
))
653 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
655 /* From-window, to-window. */
656 FRAME_X_DISPLAY_INFO (f
)->root_window
,
657 FRAME_OUTER_WINDOW (f
),
659 /* From-position, to-position. */
660 real_x
, real_y
, &outer_x
, &outer_y
,
666 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
673 if (had_errors
) return;
675 f
->x_pixels_diff
= -win_x
;
676 f
->y_pixels_diff
= -win_y
;
678 FRAME_X_OUTPUT (f
)->x_pixels_outer_diff
= -outer_x
;
679 FRAME_X_OUTPUT (f
)->y_pixels_outer_diff
= -outer_y
;
688 /* Gamma-correct COLOR on frame F. */
691 gamma_correct (f
, color
)
697 color
->red
= pow (color
->red
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
698 color
->green
= pow (color
->green
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
699 color
->blue
= pow (color
->blue
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
704 /* Decide if color named COLOR_NAME is valid for use on frame F. If
705 so, return the RGB values in COLOR. If ALLOC_P is non-zero,
706 allocate the color. Value is zero if COLOR_NAME is invalid, or
707 no color could be allocated. */
710 x_defined_color (f
, color_name
, color
, alloc_p
)
717 Display
*dpy
= FRAME_X_DISPLAY (f
);
718 Colormap cmap
= FRAME_X_COLORMAP (f
);
721 success_p
= XParseColor (dpy
, cmap
, color_name
, color
);
722 if (success_p
&& alloc_p
)
723 success_p
= x_alloc_nearest_color (f
, cmap
, color
);
730 /* Return the pixel color value for color COLOR_NAME on frame F. If F
731 is a monochrome frame, return MONO_COLOR regardless of what ARG says.
732 Signal an error if color can't be allocated. */
735 x_decode_color (f
, color_name
, mono_color
)
737 Lisp_Object color_name
;
742 CHECK_STRING (color_name
);
744 #if 0 /* Don't do this. It's wrong when we're not using the default
745 colormap, it makes freeing difficult, and it's probably not
746 an important optimization. */
747 if (strcmp (SDATA (color_name
), "black") == 0)
748 return BLACK_PIX_DEFAULT (f
);
749 else if (strcmp (SDATA (color_name
), "white") == 0)
750 return WHITE_PIX_DEFAULT (f
);
753 /* Return MONO_COLOR for monochrome frames. */
754 if (FRAME_X_DISPLAY_INFO (f
)->n_planes
== 1)
757 /* x_defined_color is responsible for coping with failures
758 by looking for a near-miss. */
759 if (x_defined_color (f
, SDATA (color_name
), &cdef
, 1))
762 Fsignal (Qerror
, Fcons (build_string ("Undefined color"),
763 Fcons (color_name
, Qnil
)));
769 /* Change the `wait-for-wm' frame parameter of frame F. OLD_VALUE is
770 the previous value of that parameter, NEW_VALUE is the new value.
771 See also the comment of wait_for_wm in struct x_output. */
774 x_set_wait_for_wm (f
, new_value
, old_value
)
776 Lisp_Object new_value
, old_value
;
778 f
->output_data
.x
->wait_for_wm
= !NILP (new_value
);
783 /* Set icon from FILE for frame F. By using GTK functions the icon
784 may be any format that GdkPixbuf knows about, i.e. not just bitmaps. */
787 xg_set_icon (f
, file
)
794 found
= x_find_image_file (file
);
800 char *filename
= (char *) SDATA (found
);
803 pixbuf
= gdk_pixbuf_new_from_file (filename
, &err
);
807 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
809 g_object_unref (pixbuf
);
823 xg_set_icon_from_xpm_data (f
, data
)
828 GdkPixbuf
*pixbuf
= gdk_pixbuf_new_from_xpm_data ((const char **) data
);
833 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)), pixbuf
);
834 g_object_unref (pixbuf
);
840 /* Functions called only from `x_set_frame_param'
841 to set individual parameters.
843 If FRAME_X_WINDOW (f) is 0,
844 the frame is being created and its X-window does not exist yet.
845 In that case, just record the parameter's new value
846 in the standard place; do not attempt to change the window. */
849 x_set_foreground_color (f
, arg
, oldval
)
851 Lisp_Object arg
, oldval
;
853 struct x_output
*x
= f
->output_data
.x
;
854 unsigned long fg
, old_fg
;
856 fg
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
857 old_fg
= x
->foreground_pixel
;
858 x
->foreground_pixel
= fg
;
860 if (FRAME_X_WINDOW (f
) != 0)
862 Display
*dpy
= FRAME_X_DISPLAY (f
);
865 XSetForeground (dpy
, x
->normal_gc
, fg
);
866 XSetBackground (dpy
, x
->reverse_gc
, fg
);
868 if (x
->cursor_pixel
== old_fg
)
870 unload_color (f
, x
->cursor_pixel
);
871 x
->cursor_pixel
= x_copy_color (f
, fg
);
872 XSetBackground (dpy
, x
->cursor_gc
, x
->cursor_pixel
);
877 update_face_from_frame_parameter (f
, Qforeground_color
, arg
);
879 if (FRAME_VISIBLE_P (f
))
883 unload_color (f
, old_fg
);
887 x_set_background_color (f
, arg
, oldval
)
889 Lisp_Object arg
, oldval
;
891 struct x_output
*x
= f
->output_data
.x
;
894 bg
= x_decode_color (f
, arg
, WHITE_PIX_DEFAULT (f
));
895 unload_color (f
, x
->background_pixel
);
896 x
->background_pixel
= bg
;
898 if (FRAME_X_WINDOW (f
) != 0)
900 Display
*dpy
= FRAME_X_DISPLAY (f
);
903 XSetBackground (dpy
, x
->normal_gc
, bg
);
904 XSetForeground (dpy
, x
->reverse_gc
, bg
);
905 XSetWindowBackground (dpy
, FRAME_X_WINDOW (f
), bg
);
906 XSetForeground (dpy
, x
->cursor_gc
, bg
);
909 xg_set_background_color (f
, bg
);
912 #ifndef USE_TOOLKIT_SCROLL_BARS /* Turns out to be annoying with
913 toolkit scroll bars. */
916 for (bar
= FRAME_SCROLL_BARS (f
);
918 bar
= XSCROLL_BAR (bar
)->next
)
920 Window window
= SCROLL_BAR_X_WINDOW (XSCROLL_BAR (bar
));
921 XSetWindowBackground (dpy
, window
, bg
);
924 #endif /* USE_TOOLKIT_SCROLL_BARS */
927 update_face_from_frame_parameter (f
, Qbackground_color
, arg
);
929 if (FRAME_VISIBLE_P (f
))
935 x_set_mouse_color (f
, arg
, oldval
)
937 Lisp_Object arg
, oldval
;
939 struct x_output
*x
= f
->output_data
.x
;
940 Display
*dpy
= FRAME_X_DISPLAY (f
);
941 Cursor cursor
, nontext_cursor
, mode_cursor
, hand_cursor
;
942 Cursor hourglass_cursor
, horizontal_drag_cursor
;
943 unsigned long pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
944 unsigned long mask_color
= x
->background_pixel
;
946 /* Don't let pointers be invisible. */
947 if (mask_color
== pixel
)
949 x_free_colors (f
, &pixel
, 1);
950 pixel
= x_copy_color (f
, x
->foreground_pixel
);
953 unload_color (f
, x
->mouse_pixel
);
954 x
->mouse_pixel
= pixel
;
958 /* It's not okay to crash if the user selects a screwy cursor. */
959 x_catch_errors (dpy
);
961 if (!NILP (Vx_pointer_shape
))
963 CHECK_NUMBER (Vx_pointer_shape
);
964 cursor
= XCreateFontCursor (dpy
, XINT (Vx_pointer_shape
));
967 cursor
= XCreateFontCursor (dpy
, XC_xterm
);
968 x_check_errors (dpy
, "bad text pointer cursor: %s");
970 if (!NILP (Vx_nontext_pointer_shape
))
972 CHECK_NUMBER (Vx_nontext_pointer_shape
);
974 = XCreateFontCursor (dpy
, XINT (Vx_nontext_pointer_shape
));
977 nontext_cursor
= XCreateFontCursor (dpy
, XC_left_ptr
);
978 x_check_errors (dpy
, "bad nontext pointer cursor: %s");
980 if (!NILP (Vx_hourglass_pointer_shape
))
982 CHECK_NUMBER (Vx_hourglass_pointer_shape
);
984 = XCreateFontCursor (dpy
, XINT (Vx_hourglass_pointer_shape
));
987 hourglass_cursor
= XCreateFontCursor (dpy
, XC_watch
);
988 x_check_errors (dpy
, "bad hourglass pointer cursor: %s");
990 if (!NILP (Vx_mode_pointer_shape
))
992 CHECK_NUMBER (Vx_mode_pointer_shape
);
993 mode_cursor
= XCreateFontCursor (dpy
, XINT (Vx_mode_pointer_shape
));
996 mode_cursor
= XCreateFontCursor (dpy
, XC_xterm
);
997 x_check_errors (dpy
, "bad modeline pointer cursor: %s");
999 if (!NILP (Vx_sensitive_text_pointer_shape
))
1001 CHECK_NUMBER (Vx_sensitive_text_pointer_shape
);
1003 = XCreateFontCursor (dpy
, XINT (Vx_sensitive_text_pointer_shape
));
1006 hand_cursor
= XCreateFontCursor (dpy
, XC_hand2
);
1008 if (!NILP (Vx_window_horizontal_drag_shape
))
1010 CHECK_NUMBER (Vx_window_horizontal_drag_shape
);
1011 horizontal_drag_cursor
1012 = XCreateFontCursor (dpy
, XINT (Vx_window_horizontal_drag_shape
));
1015 horizontal_drag_cursor
1016 = XCreateFontCursor (dpy
, XC_sb_h_double_arrow
);
1018 /* Check and report errors with the above calls. */
1019 x_check_errors (dpy
, "can't set cursor shape: %s");
1020 x_uncatch_errors ();
1023 XColor fore_color
, back_color
;
1025 fore_color
.pixel
= x
->mouse_pixel
;
1026 x_query_color (f
, &fore_color
);
1027 back_color
.pixel
= mask_color
;
1028 x_query_color (f
, &back_color
);
1030 XRecolorCursor (dpy
, cursor
, &fore_color
, &back_color
);
1031 XRecolorCursor (dpy
, nontext_cursor
, &fore_color
, &back_color
);
1032 XRecolorCursor (dpy
, mode_cursor
, &fore_color
, &back_color
);
1033 XRecolorCursor (dpy
, hand_cursor
, &fore_color
, &back_color
);
1034 XRecolorCursor (dpy
, hourglass_cursor
, &fore_color
, &back_color
);
1035 XRecolorCursor (dpy
, horizontal_drag_cursor
, &fore_color
, &back_color
);
1038 if (FRAME_X_WINDOW (f
) != 0)
1039 XDefineCursor (dpy
, FRAME_X_WINDOW (f
), cursor
);
1041 if (cursor
!= x
->text_cursor
1042 && x
->text_cursor
!= 0)
1043 XFreeCursor (dpy
, x
->text_cursor
);
1044 x
->text_cursor
= cursor
;
1046 if (nontext_cursor
!= x
->nontext_cursor
1047 && x
->nontext_cursor
!= 0)
1048 XFreeCursor (dpy
, x
->nontext_cursor
);
1049 x
->nontext_cursor
= nontext_cursor
;
1051 if (hourglass_cursor
!= x
->hourglass_cursor
1052 && x
->hourglass_cursor
!= 0)
1053 XFreeCursor (dpy
, x
->hourglass_cursor
);
1054 x
->hourglass_cursor
= hourglass_cursor
;
1056 if (mode_cursor
!= x
->modeline_cursor
1057 && x
->modeline_cursor
!= 0)
1058 XFreeCursor (dpy
, f
->output_data
.x
->modeline_cursor
);
1059 x
->modeline_cursor
= mode_cursor
;
1061 if (hand_cursor
!= x
->hand_cursor
1062 && x
->hand_cursor
!= 0)
1063 XFreeCursor (dpy
, x
->hand_cursor
);
1064 x
->hand_cursor
= hand_cursor
;
1066 if (horizontal_drag_cursor
!= x
->horizontal_drag_cursor
1067 && x
->horizontal_drag_cursor
!= 0)
1068 XFreeCursor (dpy
, x
->horizontal_drag_cursor
);
1069 x
->horizontal_drag_cursor
= horizontal_drag_cursor
;
1074 update_face_from_frame_parameter (f
, Qmouse_color
, arg
);
1078 x_set_cursor_color (f
, arg
, oldval
)
1080 Lisp_Object arg
, oldval
;
1082 unsigned long fore_pixel
, pixel
;
1083 int fore_pixel_allocated_p
= 0, pixel_allocated_p
= 0;
1084 struct x_output
*x
= f
->output_data
.x
;
1086 if (!NILP (Vx_cursor_fore_pixel
))
1088 fore_pixel
= x_decode_color (f
, Vx_cursor_fore_pixel
,
1089 WHITE_PIX_DEFAULT (f
));
1090 fore_pixel_allocated_p
= 1;
1093 fore_pixel
= x
->background_pixel
;
1095 pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1096 pixel_allocated_p
= 1;
1098 /* Make sure that the cursor color differs from the background color. */
1099 if (pixel
== x
->background_pixel
)
1101 if (pixel_allocated_p
)
1103 x_free_colors (f
, &pixel
, 1);
1104 pixel_allocated_p
= 0;
1107 pixel
= x
->mouse_pixel
;
1108 if (pixel
== fore_pixel
)
1110 if (fore_pixel_allocated_p
)
1112 x_free_colors (f
, &fore_pixel
, 1);
1113 fore_pixel_allocated_p
= 0;
1115 fore_pixel
= x
->background_pixel
;
1119 unload_color (f
, x
->cursor_foreground_pixel
);
1120 if (!fore_pixel_allocated_p
)
1121 fore_pixel
= x_copy_color (f
, fore_pixel
);
1122 x
->cursor_foreground_pixel
= fore_pixel
;
1124 unload_color (f
, x
->cursor_pixel
);
1125 if (!pixel_allocated_p
)
1126 pixel
= x_copy_color (f
, pixel
);
1127 x
->cursor_pixel
= pixel
;
1129 if (FRAME_X_WINDOW (f
) != 0)
1132 XSetBackground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, x
->cursor_pixel
);
1133 XSetForeground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, fore_pixel
);
1136 if (FRAME_VISIBLE_P (f
))
1138 x_update_cursor (f
, 0);
1139 x_update_cursor (f
, 1);
1143 update_face_from_frame_parameter (f
, Qcursor_color
, arg
);
1146 /* Set the border-color of frame F to pixel value PIX.
1147 Note that this does not fully take effect if done before
1148 F has an x-window. */
1151 x_set_border_pixel (f
, pix
)
1155 unload_color (f
, f
->output_data
.x
->border_pixel
);
1156 f
->output_data
.x
->border_pixel
= pix
;
1158 if (FRAME_X_WINDOW (f
) != 0 && f
->border_width
> 0)
1161 XSetWindowBorder (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1162 (unsigned long)pix
);
1165 if (FRAME_VISIBLE_P (f
))
1170 /* Set the border-color of frame F to value described by ARG.
1171 ARG can be a string naming a color.
1172 The border-color is used for the border that is drawn by the X server.
1173 Note that this does not fully take effect if done before
1174 F has an x-window; it must be redone when the window is created.
1176 Note: this is done in two routines because of the way X10 works.
1178 Note: under X11, this is normally the province of the window manager,
1179 and so emacs' border colors may be overridden. */
1182 x_set_border_color (f
, arg
, oldval
)
1184 Lisp_Object arg
, oldval
;
1189 pix
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1190 x_set_border_pixel (f
, pix
);
1191 update_face_from_frame_parameter (f
, Qborder_color
, arg
);
1196 x_set_cursor_type (f
, arg
, oldval
)
1198 Lisp_Object arg
, oldval
;
1200 set_frame_cursor_types (f
, arg
);
1202 /* Make sure the cursor gets redrawn. */
1203 cursor_type_changed
= 1;
1207 x_set_icon_type (f
, arg
, oldval
)
1209 Lisp_Object arg
, oldval
;
1215 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1218 else if (!STRINGP (oldval
) && EQ (oldval
, Qnil
) == EQ (arg
, Qnil
))
1223 result
= x_text_icon (f
,
1224 (char *) SDATA ((!NILP (f
->icon_name
)
1228 result
= x_bitmap_icon (f
, arg
);
1233 error ("No icon window available");
1236 XFlush (FRAME_X_DISPLAY (f
));
1241 x_set_icon_name (f
, arg
, oldval
)
1243 Lisp_Object arg
, oldval
;
1249 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1252 else if (!NILP (arg
) || NILP (oldval
))
1257 if (f
->output_data
.x
->icon_bitmap
!= 0)
1262 result
= x_text_icon (f
,
1263 (char *) SDATA ((!NILP (f
->icon_name
)
1272 error ("No icon window available");
1275 XFlush (FRAME_X_DISPLAY (f
));
1281 x_set_menu_bar_lines (f
, value
, oldval
)
1283 Lisp_Object value
, oldval
;
1286 #if ! defined (USE_X_TOOLKIT) && ! defined (USE_GTK)
1287 int olines
= FRAME_MENU_BAR_LINES (f
);
1290 /* Right now, menu bars don't work properly in minibuf-only frames;
1291 most of the commands try to apply themselves to the minibuffer
1292 frame itself, and get an error because you can't switch buffers
1293 in or split the minibuffer window. */
1294 if (FRAME_MINIBUF_ONLY_P (f
))
1297 if (INTEGERP (value
))
1298 nlines
= XINT (value
);
1302 /* Make sure we redisplay all windows in this frame. */
1303 windows_or_buffers_changed
++;
1305 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
1306 FRAME_MENU_BAR_LINES (f
) = 0;
1309 FRAME_EXTERNAL_MENU_BAR (f
) = 1;
1310 if (FRAME_X_P (f
) && f
->output_data
.x
->menubar_widget
== 0)
1311 /* Make sure next redisplay shows the menu bar. */
1312 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= Qt
;
1316 if (FRAME_EXTERNAL_MENU_BAR (f
) == 1)
1317 free_frame_menubar (f
);
1318 FRAME_EXTERNAL_MENU_BAR (f
) = 0;
1320 f
->output_data
.x
->menubar_widget
= 0;
1322 #else /* not USE_X_TOOLKIT && not USE_GTK */
1323 FRAME_MENU_BAR_LINES (f
) = nlines
;
1324 change_window_heights (f
->root_window
, nlines
- olines
);
1325 #endif /* not USE_X_TOOLKIT */
1330 /* Set the number of lines used for the tool bar of frame F to VALUE.
1331 VALUE not an integer, or < 0 means set the lines to zero. OLDVAL
1332 is the old number of tool bar lines. This function changes the
1333 height of all windows on frame F to match the new tool bar height.
1334 The frame's height doesn't change. */
1337 x_set_tool_bar_lines (f
, value
, oldval
)
1339 Lisp_Object value
, oldval
;
1341 int delta
, nlines
, root_height
;
1342 Lisp_Object root_window
;
1344 /* Treat tool bars like menu bars. */
1345 if (FRAME_MINIBUF_ONLY_P (f
))
1348 /* Use VALUE only if an integer >= 0. */
1349 if (INTEGERP (value
) && XINT (value
) >= 0)
1350 nlines
= XFASTINT (value
);
1355 FRAME_TOOL_BAR_LINES (f
) = 0;
1358 FRAME_EXTERNAL_TOOL_BAR (f
) = 1;
1359 if (FRAME_X_P (f
) && f
->output_data
.x
->toolbar_widget
== 0)
1360 /* Make sure next redisplay shows the tool bar. */
1361 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= Qt
;
1362 update_frame_tool_bar (f
);
1366 if (FRAME_EXTERNAL_TOOL_BAR (f
))
1367 free_frame_tool_bar (f
);
1368 FRAME_EXTERNAL_TOOL_BAR (f
) = 0;
1374 /* Make sure we redisplay all windows in this frame. */
1375 ++windows_or_buffers_changed
;
1377 delta
= nlines
- FRAME_TOOL_BAR_LINES (f
);
1379 /* Don't resize the tool-bar to more than we have room for. */
1380 root_window
= FRAME_ROOT_WINDOW (f
);
1381 root_height
= WINDOW_TOTAL_LINES (XWINDOW (root_window
));
1382 if (root_height
- delta
< 1)
1384 delta
= root_height
- 1;
1385 nlines
= FRAME_TOOL_BAR_LINES (f
) + delta
;
1388 FRAME_TOOL_BAR_LINES (f
) = nlines
;
1389 change_window_heights (root_window
, delta
);
1392 /* We also have to make sure that the internal border at the top of
1393 the frame, below the menu bar or tool bar, is redrawn when the
1394 tool bar disappears. This is so because the internal border is
1395 below the tool bar if one is displayed, but is below the menu bar
1396 if there isn't a tool bar. The tool bar draws into the area
1397 below the menu bar. */
1398 if (FRAME_X_WINDOW (f
) && FRAME_TOOL_BAR_LINES (f
) == 0)
1402 clear_current_matrices (f
);
1403 updating_frame
= NULL
;
1406 /* If the tool bar gets smaller, the internal border below it
1407 has to be cleared. It was formerly part of the display
1408 of the larger tool bar, and updating windows won't clear it. */
1411 int height
= FRAME_INTERNAL_BORDER_WIDTH (f
);
1412 int width
= FRAME_PIXEL_WIDTH (f
);
1413 int y
= nlines
* FRAME_LINE_HEIGHT (f
);
1415 /* height can be zero here. */
1416 if (height
> 0 && width
> 0)
1419 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1420 0, y
, width
, height
, False
);
1424 if (WINDOWP (f
->tool_bar_window
))
1425 clear_glyph_matrix (XWINDOW (f
->tool_bar_window
)->current_matrix
);
1430 /* Set the foreground color for scroll bars on frame F to VALUE.
1431 VALUE should be a string, a color name. If it isn't a string or
1432 isn't a valid color name, do nothing. OLDVAL is the old value of
1433 the frame parameter. */
1436 x_set_scroll_bar_foreground (f
, value
, oldval
)
1438 Lisp_Object value
, oldval
;
1440 unsigned long pixel
;
1442 if (STRINGP (value
))
1443 pixel
= x_decode_color (f
, value
, BLACK_PIX_DEFAULT (f
));
1447 if (f
->output_data
.x
->scroll_bar_foreground_pixel
!= -1)
1448 unload_color (f
, f
->output_data
.x
->scroll_bar_foreground_pixel
);
1450 f
->output_data
.x
->scroll_bar_foreground_pixel
= pixel
;
1451 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1453 /* Remove all scroll bars because they have wrong colors. */
1454 if (condemn_scroll_bars_hook
)
1455 (*condemn_scroll_bars_hook
) (f
);
1456 if (judge_scroll_bars_hook
)
1457 (*judge_scroll_bars_hook
) (f
);
1459 update_face_from_frame_parameter (f
, Qscroll_bar_foreground
, value
);
1465 /* Set the background color for scroll bars on frame F to VALUE VALUE
1466 should be a string, a color name. If it isn't a string or isn't a
1467 valid color name, do nothing. OLDVAL is the old value of the frame
1471 x_set_scroll_bar_background (f
, value
, oldval
)
1473 Lisp_Object value
, oldval
;
1475 unsigned long pixel
;
1477 if (STRINGP (value
))
1478 pixel
= x_decode_color (f
, value
, WHITE_PIX_DEFAULT (f
));
1482 if (f
->output_data
.x
->scroll_bar_background_pixel
!= -1)
1483 unload_color (f
, f
->output_data
.x
->scroll_bar_background_pixel
);
1485 #ifdef USE_TOOLKIT_SCROLL_BARS
1486 /* Scrollbar shadow colors. */
1487 if (f
->output_data
.x
->scroll_bar_top_shadow_pixel
!= -1)
1489 unload_color (f
, f
->output_data
.x
->scroll_bar_top_shadow_pixel
);
1490 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
1492 if (f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
!= -1)
1494 unload_color (f
, f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
);
1495 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
1497 #endif /* USE_TOOLKIT_SCROLL_BARS */
1499 f
->output_data
.x
->scroll_bar_background_pixel
= pixel
;
1500 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1502 /* Remove all scroll bars because they have wrong colors. */
1503 if (condemn_scroll_bars_hook
)
1504 (*condemn_scroll_bars_hook
) (f
);
1505 if (judge_scroll_bars_hook
)
1506 (*judge_scroll_bars_hook
) (f
);
1508 update_face_from_frame_parameter (f
, Qscroll_bar_background
, value
);
1514 /* Encode Lisp string STRING as a text in a format appropriate for
1515 XICCC (X Inter Client Communication Conventions).
1517 If STRING contains only ASCII characters, do no conversion and
1518 return the string data of STRING. Otherwise, encode the text by
1519 CODING_SYSTEM, and return a newly allocated memory area which
1520 should be freed by `xfree' by a caller.
1522 SELECTIONP non-zero means the string is being encoded for an X
1523 selection, so it is safe to run pre-write conversions (which
1526 Store the byte length of resulting text in *TEXT_BYTES.
1528 If the text contains only ASCII and Latin-1, store 1 in *STRING_P,
1529 which means that the `encoding' of the result can be `STRING'.
1530 Otherwise store 0 in *STRINGP, which means that the `encoding' of
1531 the result should be `COMPOUND_TEXT'. */
1533 static unsigned char *
1534 x_encode_text (string
, coding_system
, selectionp
, text_bytes
, stringp
, freep
)
1535 Lisp_Object string
, coding_system
;
1536 int *text_bytes
, *stringp
;
1540 unsigned char *str
= SDATA (string
);
1541 int chars
= SCHARS (string
);
1542 int bytes
= SBYTES (string
);
1546 struct coding_system coding
;
1547 extern Lisp_Object Qcompound_text_with_extensions
;
1549 charset_info
= find_charset_in_text (str
, chars
, bytes
, NULL
, Qnil
);
1550 if (charset_info
== 0)
1552 /* No multibyte character in OBJ. We need not encode it. */
1553 *text_bytes
= bytes
;
1559 setup_coding_system (coding_system
, &coding
);
1561 && SYMBOLP (coding
.pre_write_conversion
)
1562 && !NILP (Ffboundp (coding
.pre_write_conversion
)))
1564 string
= run_pre_post_conversion_on_str (string
, &coding
, 1);
1565 str
= SDATA (string
);
1566 chars
= SCHARS (string
);
1567 bytes
= SBYTES (string
);
1569 coding
.src_multibyte
= 1;
1570 coding
.dst_multibyte
= 0;
1571 coding
.mode
|= CODING_MODE_LAST_BLOCK
;
1572 if (coding
.type
== coding_type_iso2022
)
1573 coding
.flags
|= CODING_FLAG_ISO_SAFE
;
1574 /* We suppress producing escape sequences for composition. */
1575 coding
.composing
= COMPOSITION_DISABLED
;
1576 bufsize
= encoding_buffer_size (&coding
, bytes
);
1577 buf
= (unsigned char *) xmalloc (bufsize
);
1578 encode_coding (&coding
, str
, buf
, bytes
, bufsize
);
1579 *text_bytes
= coding
.produced
;
1580 *stringp
= (charset_info
== 1
1581 || (!EQ (coding_system
, Qcompound_text
)
1582 && !EQ (coding_system
, Qcompound_text_with_extensions
)));
1588 /* Set the WM name to NAME for frame F. Also set the icon name.
1589 If the frame already has an icon name, use that, otherwise set the
1590 icon name to NAME. */
1593 x_set_name_internal (f
, name
)
1597 if (FRAME_X_WINDOW (f
))
1602 XTextProperty text
, icon
;
1604 int do_free_icon_value
= 0, do_free_text_value
= 0;
1605 Lisp_Object coding_system
;
1607 coding_system
= Qcompound_text
;
1608 /* Note: Encoding strategy
1610 We encode NAME by compound-text and use "COMPOUND-TEXT" in
1611 text.encoding. But, there are non-internationalized window
1612 managers which don't support that encoding. So, if NAME
1613 contains only ASCII and 8859-1 characters, encode it by
1614 iso-latin-1, and use "STRING" in text.encoding hoping that
1615 such window managers at least analyze this format correctly,
1616 i.e. treat 8-bit bytes as 8859-1 characters.
1618 We may also be able to use "UTF8_STRING" in text.encoding
1619 in the future which can encode all Unicode characters.
1620 But, for the moment, there's no way to know that the
1621 current window manager supports it or not. */
1622 text
.value
= x_encode_text (name
, coding_system
, 0, &bytes
, &stringp
,
1623 &do_free_text_value
);
1624 text
.encoding
= (stringp
? XA_STRING
1625 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1627 text
.nitems
= bytes
;
1629 if (!STRINGP (f
->icon_name
))
1635 /* See the above comment "Note: Encoding strategy". */
1636 icon
.value
= x_encode_text (f
->icon_name
, coding_system
, 0,
1637 &bytes
, &stringp
, &do_free_icon_value
);
1638 icon
.encoding
= (stringp
? XA_STRING
1639 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1641 icon
.nitems
= bytes
;
1645 gtk_window_set_title (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
1646 (char *) SDATA (ENCODE_UTF_8 (name
)));
1647 #else /* not USE_GTK */
1648 XSetWMName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &text
);
1649 #endif /* not USE_GTK */
1651 XSetWMIconName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &icon
);
1653 if (do_free_icon_value
)
1655 if (do_free_text_value
)
1658 #else /* not HAVE_X11R4 */
1659 XSetIconName (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1661 XStoreName (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1663 #endif /* not HAVE_X11R4 */
1668 /* Change the name of frame F to NAME. If NAME is nil, set F's name to
1671 If EXPLICIT is non-zero, that indicates that lisp code is setting the
1672 name; if NAME is a string, set F's name to NAME and set
1673 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1675 If EXPLICIT is zero, that indicates that Emacs redisplay code is
1676 suggesting a new name, which lisp code should override; if
1677 F->explicit_name is set, ignore the new name; otherwise, set it. */
1680 x_set_name (f
, name
, explicit)
1685 /* Make sure that requests from lisp code override requests from
1686 Emacs redisplay code. */
1689 /* If we're switching from explicit to implicit, we had better
1690 update the mode lines and thereby update the title. */
1691 if (f
->explicit_name
&& NILP (name
))
1692 update_mode_lines
= 1;
1694 f
->explicit_name
= ! NILP (name
);
1696 else if (f
->explicit_name
)
1699 /* If NAME is nil, set the name to the x_id_name. */
1702 /* Check for no change needed in this very common case
1703 before we do any consing. */
1704 if (!strcmp (FRAME_X_DISPLAY_INFO (f
)->x_id_name
,
1707 name
= build_string (FRAME_X_DISPLAY_INFO (f
)->x_id_name
);
1710 CHECK_STRING (name
);
1712 /* Don't change the name if it's already NAME. */
1713 if (! NILP (Fstring_equal (name
, f
->name
)))
1718 /* For setting the frame title, the title parameter should override
1719 the name parameter. */
1720 if (! NILP (f
->title
))
1723 x_set_name_internal (f
, name
);
1726 /* This function should be called when the user's lisp code has
1727 specified a name for the frame; the name will override any set by the
1730 x_explicitly_set_name (f
, arg
, oldval
)
1732 Lisp_Object arg
, oldval
;
1734 x_set_name (f
, arg
, 1);
1737 /* This function should be called by Emacs redisplay code to set the
1738 name; names set this way will never override names set by the user's
1741 x_implicitly_set_name (f
, arg
, oldval
)
1743 Lisp_Object arg
, oldval
;
1745 x_set_name (f
, arg
, 0);
1748 /* Change the title of frame F to NAME.
1749 If NAME is nil, use the frame name as the title.
1751 If EXPLICIT is non-zero, that indicates that lisp code is setting the
1752 name; if NAME is a string, set F's name to NAME and set
1753 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1755 If EXPLICIT is zero, that indicates that Emacs redisplay code is
1756 suggesting a new name, which lisp code should override; if
1757 F->explicit_name is set, ignore the new name; otherwise, set it. */
1760 x_set_title (f
, name
, old_name
)
1762 Lisp_Object name
, old_name
;
1764 /* Don't change the title if it's already NAME. */
1765 if (EQ (name
, f
->title
))
1768 update_mode_lines
= 1;
1775 CHECK_STRING (name
);
1777 x_set_name_internal (f
, name
);
1781 x_set_scroll_bar_default_width (f
)
1784 int wid
= FRAME_COLUMN_WIDTH (f
);
1786 #ifdef USE_TOOLKIT_SCROLL_BARS
1787 /* A minimum width of 14 doesn't look good for toolkit scroll bars. */
1788 int width
= 16 + 2 * VERTICAL_SCROLL_BAR_WIDTH_TRIM
;
1789 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (width
+ wid
- 1) / wid
;
1790 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = width
;
1792 /* Make the actual width at least 14 pixels and a multiple of a
1794 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (14 + wid
- 1) / wid
;
1796 /* Use all of that space (aside from required margins) for the
1798 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = 0;
1803 /* Record in frame F the specified or default value according to ALIST
1804 of the parameter named PROP (a Lisp symbol). If no value is
1805 specified for PROP, look for an X default for XPROP on the frame
1806 named NAME. If that is not found either, use the value DEFLT. */
1809 x_default_scroll_bar_color_parameter (f
, alist
, prop
, xprop
, xclass
,
1818 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
1821 tem
= x_get_arg (dpyinfo
, alist
, prop
, xprop
, xclass
, RES_TYPE_STRING
);
1822 if (EQ (tem
, Qunbound
))
1824 #ifdef USE_TOOLKIT_SCROLL_BARS
1826 /* See if an X resource for the scroll bar color has been
1828 tem
= display_x_get_resource (dpyinfo
,
1829 build_string (foreground_p
1833 build_string ("verticalScrollBar"),
1837 /* If nothing has been specified, scroll bars will use a
1838 toolkit-dependent default. Because these defaults are
1839 difficult to get at without actually creating a scroll
1840 bar, use nil to indicate that no color has been
1845 #else /* not USE_TOOLKIT_SCROLL_BARS */
1849 #endif /* not USE_TOOLKIT_SCROLL_BARS */
1852 x_set_frame_parameters (f
, Fcons (Fcons (prop
, tem
), Qnil
));
1858 #if !defined (HAVE_X11R4) && !defined (HAVE_XSETWMPROTOCOLS)
1861 XSetWMProtocols (dpy
, w
, protocols
, count
)
1868 prop
= XInternAtom (dpy
, "WM_PROTOCOLS", False
);
1869 if (prop
== None
) return False
;
1870 XChangeProperty (dpy
, w
, prop
, XA_ATOM
, 32, PropModeReplace
,
1871 (unsigned char *) protocols
, count
);
1874 #endif /* not HAVE_X11R4 && not HAVE_XSETWMPROTOCOLS */
1876 #ifdef USE_X_TOOLKIT
1878 /* If the WM_PROTOCOLS property does not already contain WM_TAKE_FOCUS,
1879 WM_DELETE_WINDOW, and WM_SAVE_YOURSELF, then add them. (They may
1880 already be present because of the toolkit (Motif adds some of them,
1881 for example, but Xt doesn't). */
1884 hack_wm_protocols (f
, widget
)
1888 Display
*dpy
= XtDisplay (widget
);
1889 Window w
= XtWindow (widget
);
1890 int need_delete
= 1;
1897 unsigned char *catoms
;
1899 unsigned long nitems
= 0;
1900 unsigned long bytes_after
;
1902 if ((XGetWindowProperty (dpy
, w
,
1903 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1904 (long)0, (long)100, False
, XA_ATOM
,
1905 &type
, &format
, &nitems
, &bytes_after
,
1908 && format
== 32 && type
== XA_ATOM
)
1910 Atom
*atoms
= (Atom
*) catoms
;
1915 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
)
1917 else if (atoms
[nitems
]
1918 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
)
1920 else if (atoms
[nitems
]
1921 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
)
1932 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
1934 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
;
1936 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
1938 XChangeProperty (dpy
, w
, FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1939 XA_ATOM
, 32, PropModeAppend
,
1940 (unsigned char *) props
, count
);
1948 /* Support routines for XIC (X Input Context). */
1952 static XFontSet xic_create_xfontset
P_ ((struct frame
*, char *));
1953 static XIMStyle best_xim_style
P_ ((XIMStyles
*, XIMStyles
*));
1956 /* Supported XIM styles, ordered by preference. */
1958 static XIMStyle supported_xim_styles
[] =
1960 XIMPreeditPosition
| XIMStatusArea
,
1961 XIMPreeditPosition
| XIMStatusNothing
,
1962 XIMPreeditPosition
| XIMStatusNone
,
1963 XIMPreeditNothing
| XIMStatusArea
,
1964 XIMPreeditNothing
| XIMStatusNothing
,
1965 XIMPreeditNothing
| XIMStatusNone
,
1966 XIMPreeditNone
| XIMStatusArea
,
1967 XIMPreeditNone
| XIMStatusNothing
,
1968 XIMPreeditNone
| XIMStatusNone
,
1973 /* Create an X fontset on frame F with base font name BASE_FONTNAME. */
1975 char xic_defaut_fontset
[] = "-*-*-*-r-normal--14-*-*-*-*-*-*-*";
1977 /* Create an Xt fontset spec from the name of a base font.
1978 If `motif' is True use the Motif syntax. */
1980 xic_create_fontsetname (base_fontname
, motif
)
1981 char *base_fontname
;
1984 const char *sep
= motif
? ";" : ",";
1987 /* Make a fontset name from the base font name. */
1988 if (xic_defaut_fontset
== base_fontname
)
1989 { /* There is no base font name, use the default. */
1990 int len
= strlen (base_fontname
) + 2;
1991 fontsetname
= xmalloc (len
);
1992 bzero (fontsetname
, len
);
1993 strcpy (fontsetname
, base_fontname
);
1997 /* Make a fontset name from the base font name.
1998 The font set will be made of the following elements:
2000 - the base font where the charset spec is replaced by -*-*.
2001 - the same but with the family also replaced with -*-*-. */
2002 char *p
= base_fontname
;
2005 for (i
= 0; *p
; p
++)
2008 { /* As the font name doesn't conform to XLFD, we can't
2009 modify it to generalize it to allcs and allfamilies.
2010 Use the specified font plus the default. */
2011 int len
= strlen (base_fontname
) + strlen (xic_defaut_fontset
) + 3;
2012 fontsetname
= xmalloc (len
);
2013 bzero (fontsetname
, len
);
2014 strcpy (fontsetname
, base_fontname
);
2015 strcat (fontsetname
, sep
);
2016 strcat (fontsetname
, xic_defaut_fontset
);
2021 char *p1
= NULL
, *p2
= NULL
;
2022 char *font_allcs
= NULL
;
2023 char *font_allfamilies
= NULL
;
2024 char *font_all
= NULL
;
2025 char *allcs
= "*-*-*-*-*-*-*";
2026 char *allfamilies
= "-*-*-";
2027 char *all
= "*-*-*-*-";
2029 for (i
= 0, p
= base_fontname
; i
< 8; p
++)
2040 /* Build the font spec that matches all charsets. */
2041 len
= p
- base_fontname
+ strlen (allcs
) + 1;
2042 font_allcs
= (char *) alloca (len
);
2043 bzero (font_allcs
, len
);
2044 bcopy (base_fontname
, font_allcs
, p
- base_fontname
);
2045 strcat (font_allcs
, allcs
);
2047 /* Build the font spec that matches all families. */
2048 len
= p
- p1
+ strlen (allcs
) + strlen (allfamilies
) + 1;
2049 font_allfamilies
= (char *) alloca (len
);
2050 bzero (font_allfamilies
, len
);
2051 strcpy (font_allfamilies
, allfamilies
);
2052 bcopy (p1
, font_allfamilies
+ strlen (allfamilies
), p
- p1
);
2053 strcat (font_allfamilies
, allcs
);
2055 /* Build the font spec that matches all. */
2056 len
= p
- p2
+ strlen (allcs
) + strlen (all
) + strlen (allfamilies
) + 1;
2057 font_all
= (char *) alloca (len
);
2058 bzero (font_all
, len
);
2059 strcpy (font_all
, allfamilies
);
2060 strcat (font_all
, all
);
2061 bcopy (p2
, font_all
+ strlen (all
) + strlen (allfamilies
), p
- p2
);
2062 strcat (font_all
, allcs
);
2064 /* Build the actual font set name. */
2065 len
= strlen (base_fontname
) + strlen (font_allcs
)
2066 + strlen (font_allfamilies
) + strlen (font_all
) + 5;
2067 fontsetname
= xmalloc (len
);
2068 bzero (fontsetname
, len
);
2069 strcpy (fontsetname
, base_fontname
);
2070 strcat (fontsetname
, sep
);
2071 strcat (fontsetname
, font_allcs
);
2072 strcat (fontsetname
, sep
);
2073 strcat (fontsetname
, font_allfamilies
);
2074 strcat (fontsetname
, sep
);
2075 strcat (fontsetname
, font_all
);
2079 strcat (fontsetname
, ":");
2084 xic_create_xfontset (f
, base_fontname
)
2086 char *base_fontname
;
2088 XFontSet xfs
= NULL
;
2089 char **missing_list
= NULL
;
2092 Lisp_Object rest
, frame
;
2095 base_fontname
= xic_defaut_fontset
;
2097 /* See if there is another frame already using same fontset. */
2098 FOR_EACH_FRAME (rest
, frame
)
2100 struct frame
*cf
= XFRAME (frame
);
2101 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
2102 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
2103 && FRAME_XIC_BASE_FONTNAME (cf
)
2104 && !strcmp (FRAME_XIC_BASE_FONTNAME (cf
), base_fontname
))
2106 xfs
= FRAME_XIC_FONTSET (cf
);
2113 char *fontsetname
= xic_create_fontsetname (base_fontname
, False
);
2116 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
),
2117 fontsetname
, &missing_list
,
2118 &missing_count
, &def_string
);
2120 XFreeStringList (missing_list
);
2121 xfree (fontsetname
);
2124 if (FRAME_XIC_BASE_FONTNAME (f
))
2125 xfree (FRAME_XIC_BASE_FONTNAME (f
));
2126 FRAME_XIC_BASE_FONTNAME (f
) = xstrdup (base_fontname
);
2128 /* No need to free def_string. */
2132 /* Free the X fontset of frame F if it is the last frame using it. */
2135 xic_free_xfontset (f
)
2138 Lisp_Object rest
, frame
;
2141 if (!FRAME_XIC_FONTSET (f
))
2144 /* See if there is another frame sharing the same fontset. */
2145 FOR_EACH_FRAME (rest
, frame
)
2147 struct frame
*cf
= XFRAME (frame
);
2148 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
2149 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
2150 && FRAME_XIC_FONTSET (cf
) == FRAME_XIC_FONTSET (f
))
2158 /* The fontset is not used anymore. It is safe to free it. */
2159 XFreeFontSet (FRAME_X_DISPLAY (f
), FRAME_XIC_FONTSET (f
));
2161 if (FRAME_XIC_BASE_FONTNAME (f
))
2162 xfree (FRAME_XIC_BASE_FONTNAME (f
));
2163 FRAME_XIC_BASE_FONTNAME (f
) = NULL
;
2164 FRAME_XIC_FONTSET (f
) = NULL
;
2168 /* Value is the best input style, given user preferences USER (already
2169 checked to be supported by Emacs), and styles supported by the
2170 input method XIM. */
2173 best_xim_style (user
, xim
)
2179 for (i
= 0; i
< user
->count_styles
; ++i
)
2180 for (j
= 0; j
< xim
->count_styles
; ++j
)
2181 if (user
->supported_styles
[i
] == xim
->supported_styles
[j
])
2182 return user
->supported_styles
[i
];
2184 /* Return the default style. */
2185 return XIMPreeditNothing
| XIMStatusNothing
;
2188 /* Create XIC for frame F. */
2190 static XIMStyle xic_style
;
2193 create_frame_xic (f
)
2198 XFontSet xfs
= NULL
;
2203 /* Create X fontset. */
2204 xfs
= xic_create_xfontset
2205 (f
, (FRAME_FONTSET (f
) < 0) ? NULL
2206 : (char *) SDATA (fontset_ascii (FRAME_FONTSET (f
))));
2208 xim
= FRAME_X_XIM (f
);
2213 XVaNestedList preedit_attr
;
2214 XVaNestedList status_attr
;
2216 s_area
.x
= 0; s_area
.y
= 0; s_area
.width
= 1; s_area
.height
= 1;
2217 spot
.x
= 0; spot
.y
= 1;
2219 /* Determine XIC style. */
2222 XIMStyles supported_list
;
2223 supported_list
.count_styles
= (sizeof supported_xim_styles
2224 / sizeof supported_xim_styles
[0]);
2225 supported_list
.supported_styles
= supported_xim_styles
;
2226 xic_style
= best_xim_style (&supported_list
,
2227 FRAME_X_XIM_STYLES (f
));
2230 preedit_attr
= XVaCreateNestedList (0,
2233 FRAME_FOREGROUND_PIXEL (f
),
2235 FRAME_BACKGROUND_PIXEL (f
),
2236 (xic_style
& XIMPreeditPosition
2241 status_attr
= XVaCreateNestedList (0,
2247 FRAME_FOREGROUND_PIXEL (f
),
2249 FRAME_BACKGROUND_PIXEL (f
),
2252 xic
= XCreateIC (xim
,
2253 XNInputStyle
, xic_style
,
2254 XNClientWindow
, FRAME_X_WINDOW (f
),
2255 XNFocusWindow
, FRAME_X_WINDOW (f
),
2256 XNStatusAttributes
, status_attr
,
2257 XNPreeditAttributes
, preedit_attr
,
2259 XFree (preedit_attr
);
2260 XFree (status_attr
);
2263 FRAME_XIC (f
) = xic
;
2264 FRAME_XIC_STYLE (f
) = xic_style
;
2265 FRAME_XIC_FONTSET (f
) = xfs
;
2269 /* Destroy XIC and free XIC fontset of frame F, if any. */
2275 if (FRAME_XIC (f
) == NULL
)
2278 XDestroyIC (FRAME_XIC (f
));
2279 xic_free_xfontset (f
);
2281 FRAME_XIC (f
) = NULL
;
2285 /* Place preedit area for XIC of window W's frame to specified
2286 pixel position X/Y. X and Y are relative to window W. */
2289 xic_set_preeditarea (w
, x
, y
)
2293 struct frame
*f
= XFRAME (w
->frame
);
2297 spot
.x
= WINDOW_TO_FRAME_PIXEL_X (w
, x
) + WINDOW_LEFT_FRINGE_WIDTH (w
);
2298 spot
.y
= WINDOW_TO_FRAME_PIXEL_Y (w
, y
) + FONT_BASE (FRAME_FONT (f
));
2299 attr
= XVaCreateNestedList (0, XNSpotLocation
, &spot
, NULL
);
2300 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2305 /* Place status area for XIC in bottom right corner of frame F.. */
2308 xic_set_statusarea (f
)
2311 XIC xic
= FRAME_XIC (f
);
2316 /* Negotiate geometry of status area. If input method has existing
2317 status area, use its current size. */
2318 area
.x
= area
.y
= area
.width
= area
.height
= 0;
2319 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &area
, NULL
);
2320 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2323 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &needed
, NULL
);
2324 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2327 if (needed
->width
== 0) /* Use XNArea instead of XNAreaNeeded */
2329 attr
= XVaCreateNestedList (0, XNArea
, &needed
, NULL
);
2330 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2334 area
.width
= needed
->width
;
2335 area
.height
= needed
->height
;
2336 area
.x
= FRAME_PIXEL_WIDTH (f
) - area
.width
- FRAME_INTERNAL_BORDER_WIDTH (f
);
2337 area
.y
= (FRAME_PIXEL_HEIGHT (f
) - area
.height
2338 - FRAME_MENUBAR_HEIGHT (f
)
2339 - FRAME_TOOLBAR_HEIGHT (f
)
2340 - FRAME_INTERNAL_BORDER_WIDTH (f
));
2343 attr
= XVaCreateNestedList (0, XNArea
, &area
, NULL
);
2344 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2349 /* Set X fontset for XIC of frame F, using base font name
2350 BASE_FONTNAME. Called when a new Emacs fontset is chosen. */
2353 xic_set_xfontset (f
, base_fontname
)
2355 char *base_fontname
;
2360 xic_free_xfontset (f
);
2362 xfs
= xic_create_xfontset (f
, base_fontname
);
2364 attr
= XVaCreateNestedList (0, XNFontSet
, xfs
, NULL
);
2365 if (FRAME_XIC_STYLE (f
) & XIMPreeditPosition
)
2366 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2367 if (FRAME_XIC_STYLE (f
) & XIMStatusArea
)
2368 XSetICValues (FRAME_XIC (f
), XNStatusAttributes
, attr
, NULL
);
2371 FRAME_XIC_FONTSET (f
) = xfs
;
2374 #endif /* HAVE_X_I18N */
2378 #ifdef USE_X_TOOLKIT
2380 /* Create and set up the X widget for frame F. */
2383 x_window (f
, window_prompting
, minibuffer_only
)
2385 long window_prompting
;
2386 int minibuffer_only
;
2388 XClassHint class_hints
;
2389 XSetWindowAttributes attributes
;
2390 unsigned long attribute_mask
;
2391 Widget shell_widget
;
2393 Widget frame_widget
;
2399 /* Use the resource name as the top-level widget name
2400 for looking up resources. Make a non-Lisp copy
2401 for the window manager, so GC relocation won't bother it.
2403 Elsewhere we specify the window name for the window manager. */
2406 char *str
= (char *) SDATA (Vx_resource_name
);
2407 f
->namebuf
= (char *) xmalloc (strlen (str
) + 1);
2408 strcpy (f
->namebuf
, str
);
2412 XtSetArg (al
[ac
], XtNallowShellResize
, 1); ac
++;
2413 XtSetArg (al
[ac
], XtNinput
, 1); ac
++;
2414 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2415 XtSetArg (al
[ac
], XtNborderWidth
, f
->border_width
); ac
++;
2416 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2417 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2418 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2419 shell_widget
= XtAppCreateShell (f
->namebuf
, EMACS_CLASS
,
2420 applicationShellWidgetClass
,
2421 FRAME_X_DISPLAY (f
), al
, ac
);
2423 f
->output_data
.x
->widget
= shell_widget
;
2424 /* maybe_set_screen_title_format (shell_widget); */
2426 pane_widget
= lw_create_widget ("main", "pane", widget_id_tick
++,
2427 (widget_value
*) NULL
,
2428 shell_widget
, False
,
2432 (lw_callback
) NULL
);
2435 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2436 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2437 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2438 XtSetValues (pane_widget
, al
, ac
);
2439 f
->output_data
.x
->column_widget
= pane_widget
;
2441 /* mappedWhenManaged to false tells to the paned window to not map/unmap
2442 the emacs screen when changing menubar. This reduces flickering. */
2445 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2446 XtSetArg (al
[ac
], XtNshowGrip
, 0); ac
++;
2447 XtSetArg (al
[ac
], XtNallowResize
, 1); ac
++;
2448 XtSetArg (al
[ac
], XtNresizeToPreferred
, 1); ac
++;
2449 XtSetArg (al
[ac
], XtNemacsFrame
, f
); ac
++;
2450 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2451 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2452 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2453 frame_widget
= XtCreateWidget (f
->namebuf
, emacsFrameClass
, pane_widget
,
2456 f
->output_data
.x
->edit_widget
= frame_widget
;
2458 XtManageChild (frame_widget
);
2460 /* Do some needed geometry management. */
2463 char *tem
, shell_position
[32];
2466 int extra_borders
= 0;
2468 = (f
->output_data
.x
->menubar_widget
2469 ? (f
->output_data
.x
->menubar_widget
->core
.height
2470 + f
->output_data
.x
->menubar_widget
->core
.border_width
)
2473 #if 0 /* Experimentally, we now get the right results
2474 for -geometry -0-0 without this. 24 Aug 96, rms. */
2475 if (FRAME_EXTERNAL_MENU_BAR (f
))
2478 XtVaGetValues (pane_widget
, XtNinternalBorderWidth
, &ibw
, NULL
);
2479 menubar_size
+= ibw
;
2483 f
->output_data
.x
->menubar_height
= menubar_size
;
2486 /* Motif seems to need this amount added to the sizes
2487 specified for the shell widget. The Athena/Lucid widgets don't.
2488 Both conclusions reached experimentally. -- rms. */
2489 XtVaGetValues (f
->output_data
.x
->edit_widget
, XtNinternalBorderWidth
,
2490 &extra_borders
, NULL
);
2494 /* Convert our geometry parameters into a geometry string
2496 Note that we do not specify here whether the position
2497 is a user-specified or program-specified one.
2498 We pass that information later, in x_wm_set_size_hints. */
2500 int left
= f
->left_pos
;
2501 int xneg
= window_prompting
& XNegative
;
2502 int top
= f
->top_pos
;
2503 int yneg
= window_prompting
& YNegative
;
2509 if (window_prompting
& USPosition
)
2510 sprintf (shell_position
, "=%dx%d%c%d%c%d",
2511 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2512 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
,
2513 (xneg
? '-' : '+'), left
,
2514 (yneg
? '-' : '+'), top
);
2517 sprintf (shell_position
, "=%dx%d",
2518 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2519 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
);
2521 /* Setting x and y when the position is not specified in
2522 the geometry string will set program position in the WM hints.
2523 If Emacs had just one program position, we could set it in
2524 fallback resources, but since each make-frame call can specify
2525 different program positions, this is easier. */
2526 XtSetArg (al
[ac
], XtNx
, left
); ac
++;
2527 XtSetArg (al
[ac
], XtNy
, top
); ac
++;
2531 len
= strlen (shell_position
) + 1;
2532 /* We don't free this because we don't know whether
2533 it is safe to free it while the frame exists.
2534 It isn't worth the trouble of arranging to free it
2535 when the frame is deleted. */
2536 tem
= (char *) xmalloc (len
);
2537 strncpy (tem
, shell_position
, len
);
2538 XtSetArg (al
[ac
], XtNgeometry
, tem
); ac
++;
2539 XtSetValues (shell_widget
, al
, ac
);
2542 XtManageChild (pane_widget
);
2543 XtRealizeWidget (shell_widget
);
2545 FRAME_X_WINDOW (f
) = XtWindow (frame_widget
);
2547 validate_x_resource_name ();
2549 class_hints
.res_name
= (char *) SDATA (Vx_resource_name
);
2550 class_hints
.res_class
= (char *) SDATA (Vx_resource_class
);
2551 XSetClassHint (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
), &class_hints
);
2554 FRAME_XIC (f
) = NULL
;
2556 create_frame_xic (f
);
2559 f
->output_data
.x
->wm_hints
.input
= True
;
2560 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2561 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2562 &f
->output_data
.x
->wm_hints
);
2564 hack_wm_protocols (f
, shell_widget
);
2567 XtAddEventHandler (shell_widget
, 0, True
, _XEditResCheckMessages
, 0);
2570 /* Do a stupid property change to force the server to generate a
2571 PropertyNotify event so that the event_stream server timestamp will
2572 be initialized to something relevant to the time we created the window.
2574 XChangeProperty (XtDisplay (frame_widget
), XtWindow (frame_widget
),
2575 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
2576 XA_ATOM
, 32, PropModeAppend
,
2577 (unsigned char*) NULL
, 0);
2579 /* Make all the standard events reach the Emacs frame. */
2580 attributes
.event_mask
= STANDARD_EVENT_SET
;
2585 /* XIM server might require some X events. */
2586 unsigned long fevent
= NoEventMask
;
2587 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2588 attributes
.event_mask
|= fevent
;
2590 #endif /* HAVE_X_I18N */
2592 attribute_mask
= CWEventMask
;
2593 XChangeWindowAttributes (XtDisplay (shell_widget
), XtWindow (shell_widget
),
2594 attribute_mask
, &attributes
);
2596 XtMapWidget (frame_widget
);
2598 /* x_set_name normally ignores requests to set the name if the
2599 requested name is the same as the current name. This is the one
2600 place where that assumption isn't correct; f->name is set, but
2601 the X server hasn't been told. */
2604 int explicit = f
->explicit_name
;
2606 f
->explicit_name
= 0;
2609 x_set_name (f
, name
, explicit);
2612 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2613 f
->output_data
.x
->text_cursor
);
2617 /* This is a no-op, except under Motif. Make sure main areas are
2618 set to something reasonable, in case we get an error later. */
2619 lw_set_main_areas (pane_widget
, 0, frame_widget
);
2622 #else /* not USE_X_TOOLKIT */
2628 if (! xg_create_frame_widgets (f
))
2629 error ("Unable to create window");
2632 FRAME_XIC (f
) = NULL
;
2636 create_frame_xic (f
);
2639 /* XIM server might require some X events. */
2640 unsigned long fevent
= NoEventMask
;
2641 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2643 if (fevent
!= NoEventMask
)
2645 XSetWindowAttributes attributes
;
2646 XWindowAttributes wattr
;
2647 unsigned long attribute_mask
;
2649 XGetWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2651 attributes
.event_mask
= wattr
.your_event_mask
| fevent
;
2652 attribute_mask
= CWEventMask
;
2653 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2654 attribute_mask
, &attributes
);
2662 #else /*! USE_GTK */
2663 /* Create and set up the X window for frame F. */
2670 XClassHint class_hints
;
2671 XSetWindowAttributes attributes
;
2672 unsigned long attribute_mask
;
2674 attributes
.background_pixel
= f
->output_data
.x
->background_pixel
;
2675 attributes
.border_pixel
= f
->output_data
.x
->border_pixel
;
2676 attributes
.bit_gravity
= StaticGravity
;
2677 attributes
.backing_store
= NotUseful
;
2678 attributes
.save_under
= True
;
2679 attributes
.event_mask
= STANDARD_EVENT_SET
;
2680 attributes
.colormap
= FRAME_X_COLORMAP (f
);
2681 attribute_mask
= (CWBackPixel
| CWBorderPixel
| CWBitGravity
| CWEventMask
2686 = XCreateWindow (FRAME_X_DISPLAY (f
),
2687 f
->output_data
.x
->parent_desc
,
2690 FRAME_PIXEL_WIDTH (f
), FRAME_PIXEL_HEIGHT (f
),
2692 CopyFromParent
, /* depth */
2693 InputOutput
, /* class */
2695 attribute_mask
, &attributes
);
2700 create_frame_xic (f
);
2703 /* XIM server might require some X events. */
2704 unsigned long fevent
= NoEventMask
;
2705 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2706 attributes
.event_mask
|= fevent
;
2707 attribute_mask
= CWEventMask
;
2708 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2709 attribute_mask
, &attributes
);
2712 #endif /* HAVE_X_I18N */
2714 validate_x_resource_name ();
2716 class_hints
.res_name
= (char *) SDATA (Vx_resource_name
);
2717 class_hints
.res_class
= (char *) SDATA (Vx_resource_class
);
2718 XSetClassHint (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), &class_hints
);
2720 /* The menubar is part of the ordinary display;
2721 it does not count in addition to the height of the window. */
2722 f
->output_data
.x
->menubar_height
= 0;
2724 /* This indicates that we use the "Passive Input" input model.
2725 Unless we do this, we don't get the Focus{In,Out} events that we
2726 need to draw the cursor correctly. Accursed bureaucrats.
2727 XWhipsAndChains (FRAME_X_DISPLAY (f), IronMaiden, &TheRack); */
2729 f
->output_data
.x
->wm_hints
.input
= True
;
2730 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2731 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2732 &f
->output_data
.x
->wm_hints
);
2733 f
->output_data
.x
->wm_hints
.icon_pixmap
= None
;
2735 /* Request "save yourself" and "delete window" commands from wm. */
2738 protocols
[0] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
2739 protocols
[1] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
2740 XSetWMProtocols (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), protocols
, 2);
2743 /* x_set_name normally ignores requests to set the name if the
2744 requested name is the same as the current name. This is the one
2745 place where that assumption isn't correct; f->name is set, but
2746 the X server hasn't been told. */
2749 int explicit = f
->explicit_name
;
2751 f
->explicit_name
= 0;
2754 x_set_name (f
, name
, explicit);
2757 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2758 f
->output_data
.x
->text_cursor
);
2762 if (FRAME_X_WINDOW (f
) == 0)
2763 error ("Unable to create window");
2766 #endif /* not USE_GTK */
2767 #endif /* not USE_X_TOOLKIT */
2769 /* Verify that the icon position args for this window are valid. */
2772 x_icon_verify (f
, parms
)
2776 Lisp_Object icon_x
, icon_y
;
2778 /* Set the position of the icon. Note that twm groups all
2779 icons in an icon window. */
2780 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2781 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2782 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2784 CHECK_NUMBER (icon_x
);
2785 CHECK_NUMBER (icon_y
);
2787 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2788 error ("Both left and top icon corners of icon must be specified");
2791 /* Handle the icon stuff for this window. Perhaps later we might
2792 want an x_set_icon_position which can be called interactively as
2800 Lisp_Object icon_x
, icon_y
;
2801 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2803 /* Set the position of the icon. Note that twm groups all
2804 icons in an icon window. */
2805 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2806 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2807 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2809 CHECK_NUMBER (icon_x
);
2810 CHECK_NUMBER (icon_y
);
2812 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2813 error ("Both left and top icon corners of icon must be specified");
2817 if (! EQ (icon_x
, Qunbound
))
2818 x_wm_set_icon_position (f
, XINT (icon_x
), XINT (icon_y
));
2820 #if 0 /* x_get_arg removes the visibility parameter as a side effect,
2821 but x_create_frame still needs it. */
2822 /* Start up iconic or window? */
2823 x_wm_set_window_state
2824 (f
, (EQ (x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0, RES_TYPE_SYMBOL
),
2830 x_text_icon (f
, (char *) SDATA ((!NILP (f
->icon_name
)
2837 /* Make the GCs needed for this window, setting the
2838 background, border and mouse colors; also create the
2839 mouse cursor and the gray border tile. */
2841 static char cursor_bits
[] =
2843 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2844 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2845 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2846 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00
2853 XGCValues gc_values
;
2857 /* Create the GCs of this frame.
2858 Note that many default values are used. */
2861 gc_values
.font
= FRAME_FONT (f
)->fid
;
2862 gc_values
.foreground
= f
->output_data
.x
->foreground_pixel
;
2863 gc_values
.background
= f
->output_data
.x
->background_pixel
;
2864 gc_values
.line_width
= 0; /* Means 1 using fast algorithm. */
2865 f
->output_data
.x
->normal_gc
2866 = XCreateGC (FRAME_X_DISPLAY (f
),
2868 GCLineWidth
| GCFont
| GCForeground
| GCBackground
,
2871 /* Reverse video style. */
2872 gc_values
.foreground
= f
->output_data
.x
->background_pixel
;
2873 gc_values
.background
= f
->output_data
.x
->foreground_pixel
;
2874 f
->output_data
.x
->reverse_gc
2875 = XCreateGC (FRAME_X_DISPLAY (f
),
2877 GCFont
| GCForeground
| GCBackground
| GCLineWidth
,
2880 /* Cursor has cursor-color background, background-color foreground. */
2881 gc_values
.foreground
= f
->output_data
.x
->background_pixel
;
2882 gc_values
.background
= f
->output_data
.x
->cursor_pixel
;
2883 gc_values
.fill_style
= FillOpaqueStippled
;
2885 = XCreateBitmapFromData (FRAME_X_DISPLAY (f
),
2886 FRAME_X_DISPLAY_INFO (f
)->root_window
,
2887 cursor_bits
, 16, 16);
2888 f
->output_data
.x
->cursor_gc
2889 = XCreateGC (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2890 (GCFont
| GCForeground
| GCBackground
2891 | GCFillStyle
/* | GCStipple */ | GCLineWidth
),
2895 f
->output_data
.x
->white_relief
.gc
= 0;
2896 f
->output_data
.x
->black_relief
.gc
= 0;
2898 /* Create the gray border tile used when the pointer is not in
2899 the frame. Since this depends on the frame's pixel values,
2900 this must be done on a per-frame basis. */
2901 f
->output_data
.x
->border_tile
2902 = (XCreatePixmapFromBitmapData
2903 (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
2904 gray_bits
, gray_width
, gray_height
,
2905 f
->output_data
.x
->foreground_pixel
,
2906 f
->output_data
.x
->background_pixel
,
2907 DefaultDepth (FRAME_X_DISPLAY (f
), FRAME_X_SCREEN_NUMBER (f
))));
2913 /* Free what was was allocated in x_make_gc. */
2919 Display
*dpy
= FRAME_X_DISPLAY (f
);
2923 if (f
->output_data
.x
->normal_gc
)
2925 XFreeGC (dpy
, f
->output_data
.x
->normal_gc
);
2926 f
->output_data
.x
->normal_gc
= 0;
2929 if (f
->output_data
.x
->reverse_gc
)
2931 XFreeGC (dpy
, f
->output_data
.x
->reverse_gc
);
2932 f
->output_data
.x
->reverse_gc
= 0;
2935 if (f
->output_data
.x
->cursor_gc
)
2937 XFreeGC (dpy
, f
->output_data
.x
->cursor_gc
);
2938 f
->output_data
.x
->cursor_gc
= 0;
2941 if (f
->output_data
.x
->border_tile
)
2943 XFreePixmap (dpy
, f
->output_data
.x
->border_tile
);
2944 f
->output_data
.x
->border_tile
= 0;
2951 /* Handler for signals raised during x_create_frame and
2952 x_create_top_frame. FRAME is the frame which is partially
2956 unwind_create_frame (frame
)
2959 struct frame
*f
= XFRAME (frame
);
2961 /* If frame is ``official'', nothing to do. */
2962 if (!CONSP (Vframe_list
) || !EQ (XCAR (Vframe_list
), frame
))
2965 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2968 x_free_frame_resources (f
);
2971 /* Check that reference counts are indeed correct. */
2972 xassert (dpyinfo
->reference_count
== dpyinfo_refcount
);
2973 xassert (dpyinfo
->image_cache
->refcount
== image_cache_refcount
);
2982 DEFUN ("x-create-frame", Fx_create_frame
, Sx_create_frame
,
2984 doc
: /* Make a new X window, which is called a "frame" in Emacs terms.
2985 Returns an Emacs frame object.
2986 ALIST is an alist of frame parameters.
2987 If the parameters specify that the frame should not have a minibuffer,
2988 and do not specify a specific minibuffer window to use,
2989 then `default-minibuffer-frame' must be a frame whose minibuffer can
2990 be shared by the new frame.
2992 This function is an internal primitive--use `make-frame' instead. */)
2997 Lisp_Object frame
, tem
;
2999 int minibuffer_only
= 0;
3000 long window_prompting
= 0;
3002 int count
= SPECPDL_INDEX ();
3003 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
3004 Lisp_Object display
;
3005 struct x_display_info
*dpyinfo
= NULL
;
3011 parms
= Fcopy_alist (parms
);
3013 /* Use this general default value to start with
3014 until we know if this frame has a specified name. */
3015 Vx_resource_name
= Vinvocation_name
;
3017 display
= x_get_arg (dpyinfo
, parms
, Qdisplay
, 0, 0, RES_TYPE_STRING
);
3018 if (EQ (display
, Qunbound
))
3020 dpyinfo
= check_x_display_info (display
);
3022 kb
= dpyinfo
->kboard
;
3024 kb
= &the_only_kboard
;
3027 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
3029 && ! EQ (name
, Qunbound
)
3031 error ("Invalid frame name--not a string or nil");
3034 Vx_resource_name
= name
;
3036 /* See if parent window is specified. */
3037 parent
= x_get_arg (dpyinfo
, parms
, Qparent_id
, NULL
, NULL
, RES_TYPE_NUMBER
);
3038 if (EQ (parent
, Qunbound
))
3040 if (! NILP (parent
))
3041 CHECK_NUMBER (parent
);
3043 /* make_frame_without_minibuffer can run Lisp code and garbage collect. */
3044 /* No need to protect DISPLAY because that's not used after passing
3045 it to make_frame_without_minibuffer. */
3047 GCPRO4 (parms
, parent
, name
, frame
);
3048 tem
= x_get_arg (dpyinfo
, parms
, Qminibuffer
, "minibuffer", "Minibuffer",
3050 if (EQ (tem
, Qnone
) || NILP (tem
))
3051 f
= make_frame_without_minibuffer (Qnil
, kb
, display
);
3052 else if (EQ (tem
, Qonly
))
3054 f
= make_minibuffer_frame ();
3055 minibuffer_only
= 1;
3057 else if (WINDOWP (tem
))
3058 f
= make_frame_without_minibuffer (tem
, kb
, display
);
3062 XSETFRAME (frame
, f
);
3064 /* Note that X Windows does support scroll bars. */
3065 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 1;
3067 f
->output_method
= output_x_window
;
3068 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
3069 bzero (f
->output_data
.x
, sizeof (struct x_output
));
3070 f
->output_data
.x
->icon_bitmap
= -1;
3071 FRAME_FONTSET (f
) = -1;
3072 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
3073 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
3074 #ifdef USE_TOOLKIT_SCROLL_BARS
3075 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
3076 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
3077 #endif /* USE_TOOLKIT_SCROLL_BARS */
3078 record_unwind_protect (unwind_create_frame
, frame
);
3081 = x_get_arg (dpyinfo
, parms
, Qicon_name
, "iconName", "Title",
3083 if (! STRINGP (f
->icon_name
))
3084 f
->icon_name
= Qnil
;
3086 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
3088 image_cache_refcount
= FRAME_X_IMAGE_CACHE (f
)->refcount
;
3089 dpyinfo_refcount
= dpyinfo
->reference_count
;
3090 #endif /* GLYPH_DEBUG */
3092 FRAME_KBOARD (f
) = kb
;
3095 /* These colors will be set anyway later, but it's important
3096 to get the color reference counts right, so initialize them! */
3099 struct gcpro gcpro1
;
3101 /* Function x_decode_color can signal an error. Make
3102 sure to initialize color slots so that we won't try
3103 to free colors we haven't allocated. */
3104 f
->output_data
.x
->foreground_pixel
= -1;
3105 f
->output_data
.x
->background_pixel
= -1;
3106 f
->output_data
.x
->cursor_pixel
= -1;
3107 f
->output_data
.x
->cursor_foreground_pixel
= -1;
3108 f
->output_data
.x
->border_pixel
= -1;
3109 f
->output_data
.x
->mouse_pixel
= -1;
3111 black
= build_string ("black");
3113 f
->output_data
.x
->foreground_pixel
3114 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3115 f
->output_data
.x
->background_pixel
3116 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3117 f
->output_data
.x
->cursor_pixel
3118 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3119 f
->output_data
.x
->cursor_foreground_pixel
3120 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3121 f
->output_data
.x
->border_pixel
3122 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3123 f
->output_data
.x
->mouse_pixel
3124 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3128 /* Specify the parent under which to make this X window. */
3132 f
->output_data
.x
->parent_desc
= (Window
) XFASTINT (parent
);
3133 f
->output_data
.x
->explicit_parent
= 1;
3137 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
3138 f
->output_data
.x
->explicit_parent
= 0;
3141 /* Set the name; the functions to which we pass f expect the name to
3143 if (EQ (name
, Qunbound
) || NILP (name
))
3145 f
->name
= build_string (dpyinfo
->x_id_name
);
3146 f
->explicit_name
= 0;
3151 f
->explicit_name
= 1;
3152 /* use the frame's title when getting resources for this frame. */
3153 specbind (Qx_resource_name
, name
);
3156 /* Extract the window parameters from the supplied values
3157 that are needed to determine window geometry. */
3161 font
= x_get_arg (dpyinfo
, parms
, Qfont
, "font", "Font", RES_TYPE_STRING
);
3164 /* First, try whatever font the caller has specified. */
3167 tem
= Fquery_fontset (font
, Qnil
);
3169 font
= x_new_fontset (f
, SDATA (tem
));
3171 font
= x_new_font (f
, SDATA (font
));
3174 /* Try out a font which we hope has bold and italic variations. */
3175 if (!STRINGP (font
))
3176 font
= x_new_font (f
, "-adobe-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-1");
3177 if (!STRINGP (font
))
3178 font
= x_new_font (f
, "-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-1");
3179 if (! STRINGP (font
))
3180 font
= x_new_font (f
, "-*-*-medium-r-normal-*-*-140-*-*-c-*-iso8859-1");
3181 if (! STRINGP (font
))
3182 /* This was formerly the first thing tried, but it finds too many fonts
3183 and takes too long. */
3184 font
= x_new_font (f
, "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1");
3185 /* If those didn't work, look for something which will at least work. */
3186 if (! STRINGP (font
))
3187 font
= x_new_font (f
, "-*-fixed-*-*-*-*-*-140-*-*-c-*-iso8859-1");
3189 if (! STRINGP (font
))
3190 font
= build_string ("fixed");
3192 x_set_frame_parameters (f
, Fcons (Fcons (Qfont
, font
), Qnil
));
3196 /* Prevent lwlib/xlwmenu.c from crashing because of a bug
3197 whereby it fails to get any font. */
3198 xlwmenu_default_font
= FRAME_FONT (f
);
3201 x_default_parameter (f
, parms
, Qborder_width
, make_number (2),
3202 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
3204 /* This defaults to 1 in order to match xterm. We recognize either
3205 internalBorderWidth or internalBorder (which is what xterm calls
3207 if (NILP (Fassq (Qinternal_border_width
, parms
)))
3211 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
3212 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
3213 if (! EQ (value
, Qunbound
))
3214 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
3217 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
3218 "internalBorderWidth", "internalBorderWidth",
3220 x_default_parameter (f
, parms
, Qvertical_scroll_bars
, Qleft
,
3221 "verticalScrollBars", "ScrollBars",
3224 /* Also do the stuff which must be set before the window exists. */
3225 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
3226 "foreground", "Foreground", RES_TYPE_STRING
);
3227 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
3228 "background", "Background", RES_TYPE_STRING
);
3229 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
3230 "pointerColor", "Foreground", RES_TYPE_STRING
);
3231 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
3232 "cursorColor", "Foreground", RES_TYPE_STRING
);
3233 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
3234 "borderColor", "BorderColor", RES_TYPE_STRING
);
3235 x_default_parameter (f
, parms
, Qscreen_gamma
, Qnil
,
3236 "screenGamma", "ScreenGamma", RES_TYPE_FLOAT
);
3237 x_default_parameter (f
, parms
, Qline_spacing
, Qnil
,
3238 "lineSpacing", "LineSpacing", RES_TYPE_NUMBER
);
3239 x_default_parameter (f
, parms
, Qleft_fringe
, Qnil
,
3240 "leftFringe", "LeftFringe", RES_TYPE_NUMBER
);
3241 x_default_parameter (f
, parms
, Qright_fringe
, Qnil
,
3242 "rightFringe", "RightFringe", RES_TYPE_NUMBER
);
3244 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_foreground
,
3245 "scrollBarForeground",
3246 "ScrollBarForeground", 1);
3247 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_background
,
3248 "scrollBarBackground",
3249 "ScrollBarBackground", 0);
3251 /* Init faces before x_default_parameter is called for scroll-bar
3252 parameters because that function calls x_set_scroll_bar_width,
3253 which calls change_frame_size, which calls Fset_window_buffer,
3254 which runs hooks, which call Fvertical_motion. At the end, we
3255 end up in init_iterator with a null face cache, which should not
3257 init_frame_faces (f
);
3259 x_default_parameter (f
, parms
, Qmenu_bar_lines
, make_number (1),
3260 "menuBar", "MenuBar", RES_TYPE_NUMBER
);
3261 x_default_parameter (f
, parms
, Qtool_bar_lines
, make_number (1),
3262 "toolBar", "ToolBar", RES_TYPE_NUMBER
);
3263 x_default_parameter (f
, parms
, Qbuffer_predicate
, Qnil
,
3264 "bufferPredicate", "BufferPredicate",
3266 x_default_parameter (f
, parms
, Qtitle
, Qnil
,
3267 "title", "Title", RES_TYPE_STRING
);
3268 x_default_parameter (f
, parms
, Qwait_for_wm
, Qt
,
3269 "waitForWM", "WaitForWM", RES_TYPE_BOOLEAN
);
3270 x_default_parameter (f
, parms
, Qfullscreen
, Qnil
,
3271 "fullscreen", "Fullscreen", RES_TYPE_SYMBOL
);
3273 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
3275 /* Compute the size of the X window. */
3276 window_prompting
= x_figure_window_size (f
, parms
, 1);
3278 tem
= x_get_arg (dpyinfo
, parms
, Qunsplittable
, 0, 0, RES_TYPE_BOOLEAN
);
3279 f
->no_split
= minibuffer_only
|| EQ (tem
, Qt
);
3281 x_icon_verify (f
, parms
);
3283 /* Create the X widget or window. */
3284 #ifdef USE_X_TOOLKIT
3285 x_window (f
, window_prompting
, minibuffer_only
);
3293 /* Now consider the frame official. */
3294 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
3295 Vframe_list
= Fcons (frame
, Vframe_list
);
3297 /* We need to do this after creating the X window, so that the
3298 icon-creation functions can say whose icon they're describing. */
3299 x_default_parameter (f
, parms
, Qicon_type
, Qt
,
3300 "bitmapIcon", "BitmapIcon", RES_TYPE_SYMBOL
);
3302 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
3303 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3304 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
3305 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3306 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
3307 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
3308 x_default_parameter (f
, parms
, Qscroll_bar_width
, Qnil
,
3309 "scrollBarWidth", "ScrollBarWidth",
3312 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
3313 Change will not be effected unless different from the current
3315 width
= FRAME_COLS (f
);
3316 height
= FRAME_LINES (f
);
3318 SET_FRAME_COLS (f
, 0);
3319 FRAME_LINES (f
) = 0;
3320 change_frame_size (f
, height
, width
, 1, 0, 0);
3322 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
3323 /* Create the menu bar. */
3324 if (!minibuffer_only
&& FRAME_EXTERNAL_MENU_BAR (f
))
3326 /* If this signals an error, we haven't set size hints for the
3327 frame and we didn't make it visible. */
3328 initialize_frame_menubar (f
);
3331 /* This is a no-op, except under Motif where it arranges the
3332 main window for the widgets on it. */
3333 lw_set_main_areas (f
->output_data
.x
->column_widget
,
3334 f
->output_data
.x
->menubar_widget
,
3335 f
->output_data
.x
->edit_widget
);
3336 #endif /* not USE_GTK */
3338 #endif /* USE_X_TOOLKIT || USE_GTK */
3340 /* Tell the server what size and position, etc, we want, and how
3341 badly we want them. This should be done after we have the menu
3342 bar so that its size can be taken into account. */
3344 x_wm_set_size_hint (f
, window_prompting
, 0);
3347 /* Make the window appear on the frame and enable display, unless
3348 the caller says not to. However, with explicit parent, Emacs
3349 cannot control visibility, so don't try. */
3350 if (! f
->output_data
.x
->explicit_parent
)
3352 Lisp_Object visibility
;
3354 visibility
= x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0,
3356 if (EQ (visibility
, Qunbound
))
3359 if (EQ (visibility
, Qicon
))
3360 x_iconify_frame (f
);
3361 else if (! NILP (visibility
))
3362 x_make_frame_visible (f
);
3364 /* Must have been Qnil. */
3368 /* Set the WM leader property. GTK does this itself, so this is not
3369 needed when using GTK. */
3370 if (dpyinfo
->client_leader_window
!= 0)
3373 XChangeProperty (FRAME_X_DISPLAY (f
),
3374 FRAME_OUTER_WINDOW (f
),
3375 dpyinfo
->Xatom_wm_client_leader
,
3376 XA_WINDOW
, 32, PropModeReplace
,
3377 (unsigned char *) &dpyinfo
->client_leader_window
, 1);
3381 /* Initialize `default-minibuffer-frame' in case this is the first
3382 frame on this display device. */
3383 if (FRAME_HAS_MINIBUF_P (f
)
3384 && (!FRAMEP (kb
->Vdefault_minibuffer_frame
)
3385 || !FRAME_LIVE_P (XFRAME (kb
->Vdefault_minibuffer_frame
))))
3386 kb
->Vdefault_minibuffer_frame
= frame
;
3388 /* All remaining specified parameters, which have not been "used"
3389 by x_get_arg and friends, now go in the misc. alist of the frame. */
3390 for (tem
= parms
; !NILP (tem
); tem
= XCDR (tem
))
3391 if (CONSP (XCAR (tem
)) && !NILP (XCAR (XCAR (tem
))))
3392 f
->param_alist
= Fcons (XCAR (tem
), f
->param_alist
);
3396 /* Make sure windows on this frame appear in calls to next-window
3397 and similar functions. */
3398 Vwindow_list
= Qnil
;
3400 return unbind_to (count
, frame
);
3404 /* FRAME is used only to get a handle on the X display. We don't pass the
3405 display info directly because we're called from frame.c, which doesn't
3406 know about that structure. */
3409 x_get_focus_frame (frame
)
3410 struct frame
*frame
;
3412 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (frame
);
3414 if (! dpyinfo
->x_focus_frame
)
3417 XSETFRAME (xfocus
, dpyinfo
->x_focus_frame
);
3422 /* In certain situations, when the window manager follows a
3423 click-to-focus policy, there seems to be no way around calling
3424 XSetInputFocus to give another frame the input focus .
3426 In an ideal world, XSetInputFocus should generally be avoided so
3427 that applications don't interfere with the window manager's focus
3428 policy. But I think it's okay to use when it's clearly done
3429 following a user-command. */
3431 DEFUN ("x-focus-frame", Fx_focus_frame
, Sx_focus_frame
, 1, 1, 0,
3432 doc
: /* Set the input focus to FRAME.
3433 FRAME nil means use the selected frame. */)
3437 struct frame
*f
= check_x_frame (frame
);
3438 Display
*dpy
= FRAME_X_DISPLAY (f
);
3441 x_catch_errors (dpy
);
3442 XSetInputFocus (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
3443 RevertToParent
, CurrentTime
);
3444 x_uncatch_errors ();
3451 DEFUN ("xw-color-defined-p", Fxw_color_defined_p
, Sxw_color_defined_p
, 1, 2, 0,
3452 doc
: /* Internal function called by `color-defined-p', which see. */)
3454 Lisp_Object color
, frame
;
3457 FRAME_PTR f
= check_x_frame (frame
);
3459 CHECK_STRING (color
);
3461 if (x_defined_color (f
, SDATA (color
), &foo
, 0))
3467 DEFUN ("xw-color-values", Fxw_color_values
, Sxw_color_values
, 1, 2, 0,
3468 doc
: /* Internal function called by `color-values', which see. */)
3470 Lisp_Object color
, frame
;
3473 FRAME_PTR f
= check_x_frame (frame
);
3475 CHECK_STRING (color
);
3477 if (x_defined_color (f
, SDATA (color
), &foo
, 0))
3481 rgb
[0] = make_number (foo
.red
);
3482 rgb
[1] = make_number (foo
.green
);
3483 rgb
[2] = make_number (foo
.blue
);
3484 return Flist (3, rgb
);
3490 DEFUN ("xw-display-color-p", Fxw_display_color_p
, Sxw_display_color_p
, 0, 1, 0,
3491 doc
: /* Internal function called by `display-color-p', which see. */)
3493 Lisp_Object display
;
3495 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3497 if (dpyinfo
->n_planes
<= 2)
3500 switch (dpyinfo
->visual
->class)
3513 DEFUN ("x-display-grayscale-p", Fx_display_grayscale_p
, Sx_display_grayscale_p
,
3515 doc
: /* Return t if the X display supports shades of gray.
3516 Note that color displays do support shades of gray.
3517 The optional argument DISPLAY specifies which display to ask about.
3518 DISPLAY should be either a frame or a display name (a string).
3519 If omitted or nil, that stands for the selected frame's display. */)
3521 Lisp_Object display
;
3523 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3525 if (dpyinfo
->n_planes
<= 1)
3528 switch (dpyinfo
->visual
->class)
3543 DEFUN ("x-display-pixel-width", Fx_display_pixel_width
, Sx_display_pixel_width
,
3545 doc
: /* Returns the width 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
->width
);
3557 DEFUN ("x-display-pixel-height", Fx_display_pixel_height
,
3558 Sx_display_pixel_height
, 0, 1, 0,
3559 doc
: /* Returns the height in pixels 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
->height
);
3571 DEFUN ("x-display-planes", Fx_display_planes
, Sx_display_planes
,
3573 doc
: /* Returns the number of bitplanes 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 return make_number (dpyinfo
->n_planes
);
3585 DEFUN ("x-display-color-cells", Fx_display_color_cells
, Sx_display_color_cells
,
3587 doc
: /* Returns the number of color cells of the X display DISPLAY.
3588 The optional argument DISPLAY specifies which display to ask about.
3589 DISPLAY should be either a frame or a display name (a string).
3590 If omitted or nil, that stands for the selected frame's display. */)
3592 Lisp_Object display
;
3594 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3596 int nr_planes
= DisplayPlanes (dpyinfo
->display
,
3597 XScreenNumberOfScreen (dpyinfo
->screen
));
3599 /* Truncate nr_planes to 24 to avoid integer overflow.
3600 Some displays says 32, but only 24 bits are actually significant.
3601 There are only very few and rare video cards that have more than
3602 24 significant bits. Also 24 bits is more than 16 million colors,
3603 it "should be enough for everyone". */
3604 if (nr_planes
> 24) nr_planes
= 24;
3606 return make_number (1 << nr_planes
);
3609 DEFUN ("x-server-max-request-size", Fx_server_max_request_size
,
3610 Sx_server_max_request_size
,
3612 doc
: /* Returns the maximum request size of the X server of display DISPLAY.
3613 The optional argument DISPLAY specifies which display to ask about.
3614 DISPLAY should be either a frame or a display name (a string).
3615 If omitted or nil, that stands for the selected frame's display. */)
3617 Lisp_Object display
;
3619 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3621 return make_number (MAXREQUEST (dpyinfo
->display
));
3624 DEFUN ("x-server-vendor", Fx_server_vendor
, Sx_server_vendor
, 0, 1, 0,
3625 doc
: /* Returns the "vendor ID" string of the X server of display DISPLAY.
3626 \(Labelling every distributor as a "vendor" embodies the false assumption
3627 that operating systems cannot be developed and distributed noncommercially.)
3628 The optional argument DISPLAY specifies which display to ask about.
3629 DISPLAY should be either a frame or a display name (a string).
3630 If omitted or nil, that stands for the selected frame's display. */)
3632 Lisp_Object display
;
3634 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3635 char *vendor
= ServerVendor (dpyinfo
->display
);
3637 if (! vendor
) vendor
= "";
3638 return build_string (vendor
);
3641 DEFUN ("x-server-version", Fx_server_version
, Sx_server_version
, 0, 1, 0,
3642 doc
: /* Returns the version numbers of the X server of display DISPLAY.
3643 The value is a list of three integers: the major and minor
3644 version numbers of the X Protocol in use, and the distributor-specific release
3645 number. See also the function `x-server-vendor'.
3647 The optional argument DISPLAY specifies which display to ask about.
3648 DISPLAY should be either a frame or a display name (a string).
3649 If omitted or nil, that stands for the selected frame's display. */)
3651 Lisp_Object display
;
3653 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3654 Display
*dpy
= dpyinfo
->display
;
3656 return Fcons (make_number (ProtocolVersion (dpy
)),
3657 Fcons (make_number (ProtocolRevision (dpy
)),
3658 Fcons (make_number (VendorRelease (dpy
)), Qnil
)));
3661 DEFUN ("x-display-screens", Fx_display_screens
, Sx_display_screens
, 0, 1, 0,
3662 doc
: /* Return the number of screens on the X server of display DISPLAY.
3663 The optional argument DISPLAY specifies which display to ask about.
3664 DISPLAY should be either a frame or a display name (a string).
3665 If omitted or nil, that stands for the selected frame's display. */)
3667 Lisp_Object display
;
3669 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3671 return make_number (ScreenCount (dpyinfo
->display
));
3674 DEFUN ("x-display-mm-height", Fx_display_mm_height
, Sx_display_mm_height
, 0, 1, 0,
3675 doc
: /* Return the height in millimeters of the X display DISPLAY.
3676 The optional argument DISPLAY specifies which display to ask about.
3677 DISPLAY should be either a frame or a display name (a string).
3678 If omitted or nil, that stands for the selected frame's display. */)
3680 Lisp_Object display
;
3682 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3684 return make_number (HeightMMOfScreen (dpyinfo
->screen
));
3687 DEFUN ("x-display-mm-width", Fx_display_mm_width
, Sx_display_mm_width
, 0, 1, 0,
3688 doc
: /* Return the width in millimeters of the X display DISPLAY.
3689 The optional argument DISPLAY specifies which display to ask about.
3690 DISPLAY should be either a frame or a display name (a string).
3691 If omitted or nil, that stands for the selected frame's display. */)
3693 Lisp_Object display
;
3695 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3697 return make_number (WidthMMOfScreen (dpyinfo
->screen
));
3700 DEFUN ("x-display-backing-store", Fx_display_backing_store
,
3701 Sx_display_backing_store
, 0, 1, 0,
3702 doc
: /* Returns an indication of whether X display DISPLAY does backing store.
3703 The value may be `always', `when-mapped', or `not-useful'.
3704 The optional argument DISPLAY specifies which display to ask about.
3705 DISPLAY should be either a frame or a display name (a string).
3706 If omitted or nil, that stands for the selected frame's display. */)
3708 Lisp_Object display
;
3710 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3713 switch (DoesBackingStore (dpyinfo
->screen
))
3716 result
= intern ("always");
3720 result
= intern ("when-mapped");
3724 result
= intern ("not-useful");
3728 error ("Strange value for BackingStore parameter of screen");
3735 DEFUN ("x-display-visual-class", Fx_display_visual_class
,
3736 Sx_display_visual_class
, 0, 1, 0,
3737 doc
: /* Return the visual class of the X display DISPLAY.
3738 The value is one of the symbols `static-gray', `gray-scale',
3739 `static-color', `pseudo-color', `true-color', or `direct-color'.
3741 The optional argument DISPLAY specifies which display to ask about.
3742 DISPLAY should be either a frame or a display name (a string).
3743 If omitted or nil, that stands for the selected frame's display. */)
3745 Lisp_Object display
;
3747 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3750 switch (dpyinfo
->visual
->class)
3753 result
= intern ("static-gray");
3756 result
= intern ("gray-scale");
3759 result
= intern ("static-color");
3762 result
= intern ("pseudo-color");
3765 result
= intern ("true-color");
3768 result
= intern ("direct-color");
3771 error ("Display has an unknown visual class");
3778 DEFUN ("x-display-save-under", Fx_display_save_under
,
3779 Sx_display_save_under
, 0, 1, 0,
3780 doc
: /* Returns t if the X display DISPLAY supports the save-under feature.
3781 The optional argument DISPLAY specifies which display to ask about.
3782 DISPLAY should be either a frame or a display name (a string).
3783 If omitted or nil, that stands for the selected frame's display. */)
3785 Lisp_Object display
;
3787 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3789 if (DoesSaveUnders (dpyinfo
->screen
) == True
)
3797 register struct frame
*f
;
3799 return FRAME_PIXEL_WIDTH (f
);
3804 register struct frame
*f
;
3806 return FRAME_PIXEL_HEIGHT (f
);
3811 register struct frame
*f
;
3813 return FRAME_COLUMN_WIDTH (f
);
3818 register struct frame
*f
;
3820 return FRAME_LINE_HEIGHT (f
);
3825 register struct frame
*f
;
3827 return FRAME_X_DISPLAY_INFO (f
)->n_planes
;
3832 /************************************************************************
3834 ************************************************************************/
3837 /* Mapping visual names to visuals. */
3839 static struct visual_class
3846 {"StaticGray", StaticGray
},
3847 {"GrayScale", GrayScale
},
3848 {"StaticColor", StaticColor
},
3849 {"PseudoColor", PseudoColor
},
3850 {"TrueColor", TrueColor
},
3851 {"DirectColor", DirectColor
},
3856 #ifndef HAVE_XSCREENNUMBEROFSCREEN
3858 /* Value is the screen number of screen SCR. This is a substitute for
3859 the X function with the same name when that doesn't exist. */
3862 XScreenNumberOfScreen (scr
)
3863 register Screen
*scr
;
3865 Display
*dpy
= scr
->display
;
3868 for (i
= 0; i
< dpy
->nscreens
; ++i
)
3869 if (scr
== dpy
->screens
+ i
)
3875 #endif /* not HAVE_XSCREENNUMBEROFSCREEN */
3878 /* Select the visual that should be used on display DPYINFO. Set
3879 members of DPYINFO appropriately. Called from x_term_init. */
3882 select_visual (dpyinfo
)
3883 struct x_display_info
*dpyinfo
;
3885 Display
*dpy
= dpyinfo
->display
;
3886 Screen
*screen
= dpyinfo
->screen
;
3889 /* See if a visual is specified. */
3890 value
= display_x_get_resource (dpyinfo
,
3891 build_string ("visualClass"),
3892 build_string ("VisualClass"),
3894 if (STRINGP (value
))
3896 /* VALUE should be of the form CLASS-DEPTH, where CLASS is one
3897 of `PseudoColor', `TrueColor' etc. and DEPTH is the color
3898 depth, a decimal number. NAME is compared with case ignored. */
3899 char *s
= (char *) alloca (SBYTES (value
) + 1);
3904 strcpy (s
, SDATA (value
));
3905 dash
= index (s
, '-');
3908 dpyinfo
->n_planes
= atoi (dash
+ 1);
3912 /* We won't find a matching visual with depth 0, so that
3913 an error will be printed below. */
3914 dpyinfo
->n_planes
= 0;
3916 /* Determine the visual class. */
3917 for (i
= 0; visual_classes
[i
].name
; ++i
)
3918 if (xstricmp (s
, visual_classes
[i
].name
) == 0)
3920 class = visual_classes
[i
].class;
3924 /* Look up a matching visual for the specified class. */
3926 || !XMatchVisualInfo (dpy
, XScreenNumberOfScreen (screen
),
3927 dpyinfo
->n_planes
, class, &vinfo
))
3928 fatal ("Invalid visual specification `%s'", SDATA (value
));
3930 dpyinfo
->visual
= vinfo
.visual
;
3935 XVisualInfo
*vinfo
, vinfo_template
;
3937 dpyinfo
->visual
= DefaultVisualOfScreen (screen
);
3940 vinfo_template
.visualid
= XVisualIDFromVisual (dpyinfo
->visual
);
3942 vinfo_template
.visualid
= dpyinfo
->visual
->visualid
;
3944 vinfo_template
.screen
= XScreenNumberOfScreen (screen
);
3945 vinfo
= XGetVisualInfo (dpy
, VisualIDMask
| VisualScreenMask
,
3946 &vinfo_template
, &n_visuals
);
3948 fatal ("Can't get proper X visual info");
3950 dpyinfo
->n_planes
= vinfo
->depth
;
3951 XFree ((char *) vinfo
);
3956 /* Return the X display structure for the display named NAME.
3957 Open a new connection if necessary. */
3959 struct x_display_info
*
3960 x_display_info_for_name (name
)
3964 struct x_display_info
*dpyinfo
;
3966 CHECK_STRING (name
);
3968 if (! EQ (Vwindow_system
, intern ("x")))
3969 error ("Not using X Windows");
3971 for (dpyinfo
= x_display_list
, names
= x_display_name_list
;
3973 dpyinfo
= dpyinfo
->next
, names
= XCDR (names
))
3976 tem
= Fstring_equal (XCAR (XCAR (names
)), name
);
3981 /* Use this general default value to start with. */
3982 Vx_resource_name
= Vinvocation_name
;
3984 validate_x_resource_name ();
3986 dpyinfo
= x_term_init (name
, (char *)0,
3987 (char *) SDATA (Vx_resource_name
));
3990 error ("Cannot connect to X server %s", SDATA (name
));
3993 XSETFASTINT (Vwindow_system_version
, 11);
3999 DEFUN ("x-open-connection", Fx_open_connection
, Sx_open_connection
,
4001 doc
: /* Open a connection to an X server.
4002 DISPLAY is the name of the display to connect to.
4003 Optional second arg XRM-STRING is a string of resources in xrdb format.
4004 If the optional third arg MUST-SUCCEED is non-nil,
4005 terminate Emacs if we can't open the connection. */)
4006 (display
, xrm_string
, must_succeed
)
4007 Lisp_Object display
, xrm_string
, must_succeed
;
4009 unsigned char *xrm_option
;
4010 struct x_display_info
*dpyinfo
;
4012 CHECK_STRING (display
);
4013 if (! NILP (xrm_string
))
4014 CHECK_STRING (xrm_string
);
4016 if (! EQ (Vwindow_system
, intern ("x")))
4017 error ("Not using X Windows");
4019 if (! NILP (xrm_string
))
4020 xrm_option
= (unsigned char *) SDATA (xrm_string
);
4022 xrm_option
= (unsigned char *) 0;
4024 validate_x_resource_name ();
4026 /* This is what opens the connection and sets x_current_display.
4027 This also initializes many symbols, such as those used for input. */
4028 dpyinfo
= x_term_init (display
, xrm_option
,
4029 (char *) SDATA (Vx_resource_name
));
4033 if (!NILP (must_succeed
))
4034 fatal ("Cannot connect to X server %s.\n\
4035 Check the DISPLAY environment variable or use `-d'.\n\
4036 Also use the `xauth' program to verify that you have the proper\n\
4037 authorization information needed to connect the X server.\n\
4038 An insecure way to solve the problem may be to use `xhost'.\n",
4041 error ("Cannot connect to X server %s", SDATA (display
));
4046 XSETFASTINT (Vwindow_system_version
, 11);
4050 DEFUN ("x-close-connection", Fx_close_connection
,
4051 Sx_close_connection
, 1, 1, 0,
4052 doc
: /* Close the connection to DISPLAY's X server.
4053 For DISPLAY, specify either a frame or a display name (a string).
4054 If DISPLAY is nil, that stands for the selected frame's display. */)
4056 Lisp_Object display
;
4058 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
4061 if (dpyinfo
->reference_count
> 0)
4062 error ("Display still has frames on it");
4065 /* Free the fonts in the font table. */
4066 for (i
= 0; i
< dpyinfo
->n_fonts
; i
++)
4067 if (dpyinfo
->font_table
[i
].name
)
4069 XFreeFont (dpyinfo
->display
, dpyinfo
->font_table
[i
].font
);
4072 x_destroy_all_bitmaps (dpyinfo
);
4073 XSetCloseDownMode (dpyinfo
->display
, DestroyAll
);
4075 #ifdef USE_X_TOOLKIT
4076 XtCloseDisplay (dpyinfo
->display
);
4078 XCloseDisplay (dpyinfo
->display
);
4081 x_delete_display (dpyinfo
);
4087 DEFUN ("x-display-list", Fx_display_list
, Sx_display_list
, 0, 0, 0,
4088 doc
: /* Return the list of display names that Emacs has connections to. */)
4091 Lisp_Object tail
, result
;
4094 for (tail
= x_display_name_list
; ! NILP (tail
); tail
= XCDR (tail
))
4095 result
= Fcons (XCAR (XCAR (tail
)), result
);
4100 DEFUN ("x-synchronize", Fx_synchronize
, Sx_synchronize
, 1, 2, 0,
4101 doc
: /* If ON is non-nil, report X errors as soon as the erring request is made.
4102 If ON is nil, allow buffering of requests.
4103 Turning on synchronization prohibits the Xlib routines from buffering
4104 requests and seriously degrades performance, but makes debugging much
4106 The optional second argument DISPLAY specifies which display to act on.
4107 DISPLAY should be either a frame or a display name (a string).
4108 If DISPLAY is omitted or nil, that stands for the selected frame's display. */)
4110 Lisp_Object display
, on
;
4112 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
4114 XSynchronize (dpyinfo
->display
, !EQ (on
, Qnil
));
4119 /* Wait for responses to all X commands issued so far for frame F. */
4126 XSync (FRAME_X_DISPLAY (f
), False
);
4131 /***********************************************************************
4133 ***********************************************************************/
4135 DEFUN ("x-change-window-property", Fx_change_window_property
,
4136 Sx_change_window_property
, 2, 6, 0,
4137 doc
: /* Change window property PROP to VALUE on the X window of FRAME.
4138 PROP must be a string.
4139 VALUE may be a string or a list of conses, numbers and/or strings.
4140 If an element in the list is a string, it is converted to
4141 an Atom and the value of the Atom is used. If an element is a cons,
4142 it is converted to a 32 bit number where the car is the 16 top bits and the
4143 cdr is the lower 16 bits.
4144 FRAME nil or omitted means use the selected frame.
4145 If TYPE is given and non-nil, it is the name of the type of VALUE.
4146 If TYPE is not given or nil, the type is STRING.
4147 FORMAT gives the size in bits of each element if VALUE is a list.
4148 It must be one of 8, 16 or 32.
4149 If VALUE is a string or FORMAT is nil or not given, FORMAT defaults to 8.
4150 If OUTER_P is non-nil, the property is changed for the outer X window of
4151 FRAME. Default is to change on the edit X window.
4154 (prop
, value
, frame
, type
, format
, outer_p
)
4155 Lisp_Object prop
, value
, frame
, type
, format
, outer_p
;
4157 struct frame
*f
= check_x_frame (frame
);
4159 Atom target_type
= XA_STRING
;
4160 int element_format
= 8;
4161 unsigned char *data
;
4165 CHECK_STRING (prop
);
4167 if (! NILP (format
))
4169 CHECK_NUMBER (format
);
4170 element_format
= XFASTINT (format
);
4172 if (element_format
!= 8 && element_format
!= 16
4173 && element_format
!= 32)
4174 error ("FORMAT must be one of 8, 16 or 32");
4179 nelements
= x_check_property_data (value
);
4180 if (nelements
== -1)
4181 error ("Bad data in VALUE, must be number, string or cons");
4183 if (element_format
== 8)
4184 data
= (unsigned char *) xmalloc (nelements
);
4185 else if (element_format
== 16)
4186 data
= (unsigned char *) xmalloc (nelements
*2);
4187 else /* format == 32 */
4188 /* The man page for XChangeProperty:
4189 "If the specified format is 32, the property data must be a
4191 This applies even if long is more than 64 bits. The X library
4192 converts to 32 bits before sending to the X server. */
4193 data
= (unsigned char *) xmalloc (nelements
* sizeof(long));
4195 x_fill_property_data (FRAME_X_DISPLAY (f
), value
, data
, element_format
);
4199 CHECK_STRING (value
);
4200 data
= SDATA (value
);
4201 nelements
= SCHARS (value
);
4205 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4208 CHECK_STRING (type
);
4209 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (type
), False
);
4212 if (! NILP (outer_p
)) w
= FRAME_OUTER_WINDOW (f
);
4213 else w
= FRAME_X_WINDOW (f
);
4215 XChangeProperty (FRAME_X_DISPLAY (f
), w
,
4216 prop_atom
, target_type
, element_format
, PropModeReplace
,
4219 if (CONSP (value
)) xfree (data
);
4221 /* Make sure the property is set when we return. */
4222 XFlush (FRAME_X_DISPLAY (f
));
4229 DEFUN ("x-delete-window-property", Fx_delete_window_property
,
4230 Sx_delete_window_property
, 1, 2, 0,
4231 doc
: /* Remove window property PROP from X window of FRAME.
4232 FRAME nil or omitted means use the selected frame. Value is PROP. */)
4234 Lisp_Object prop
, frame
;
4236 struct frame
*f
= check_x_frame (frame
);
4239 CHECK_STRING (prop
);
4241 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4242 XDeleteProperty (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), prop_atom
);
4244 /* Make sure the property is removed when we return. */
4245 XFlush (FRAME_X_DISPLAY (f
));
4252 DEFUN ("x-window-property", Fx_window_property
, Sx_window_property
,
4254 doc
: /* Value is the value of window property PROP on FRAME.
4255 If FRAME is nil or omitted, use the selected frame.
4256 If TYPE is nil or omitted, get the property as a string. Otherwise TYPE
4257 is the name of the Atom that denotes the type expected.
4258 If SOURCE is non-nil, get the property on that window instead of from
4259 FRAME. The number 0 denotes the root window.
4260 If DELETE_P is non-nil, delete the property after retreiving it.
4261 If VECTOR_RET_P is non-nil, don't return a string but a vector of values.
4263 Value is nil if FRAME hasn't a property with name PROP or if PROP has
4264 no value of TYPE. */)
4265 (prop
, frame
, type
, source
, delete_p
, vector_ret_p
)
4266 Lisp_Object prop
, frame
, type
, source
, delete_p
, vector_ret_p
;
4268 struct frame
*f
= check_x_frame (frame
);
4271 Lisp_Object prop_value
= Qnil
;
4272 unsigned char *tmp_data
= NULL
;
4274 Atom target_type
= XA_STRING
;
4276 unsigned long actual_size
, bytes_remaining
;
4277 Window target_window
= FRAME_X_WINDOW (f
);
4278 struct gcpro gcpro1
;
4280 GCPRO1 (prop_value
);
4281 CHECK_STRING (prop
);
4283 if (! NILP (source
))
4285 if (NUMBERP (source
))
4287 if (FLOATP (source
))
4288 target_window
= (Window
) XFLOAT (source
);
4290 target_window
= XFASTINT (source
);
4292 if (target_window
== 0)
4293 target_window
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4295 else if (CONSP (source
))
4296 target_window
= cons_to_long (source
);
4302 if (strcmp ("AnyPropertyType", SDATA (type
)) == 0)
4303 target_type
= AnyPropertyType
;
4305 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (type
), False
);
4308 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4309 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4310 prop_atom
, 0, 0, False
, target_type
,
4311 &actual_type
, &actual_format
, &actual_size
,
4312 &bytes_remaining
, &tmp_data
);
4315 int size
= bytes_remaining
;
4320 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4321 prop_atom
, 0, bytes_remaining
,
4322 ! NILP (delete_p
), target_type
,
4323 &actual_type
, &actual_format
,
4324 &actual_size
, &bytes_remaining
,
4326 if (rc
== Success
&& tmp_data
)
4328 /* The man page for XGetWindowProperty says:
4329 "If the returned format is 32, the returned data is represented
4330 as a long array and should be cast to that type to obtain the
4332 This applies even if long is more than 32 bits, the X library
4333 converts from 32 bit elements received from the X server to long
4334 and passes the long array to us. Thus, for that case bcopy can not
4335 be used. We convert to a 32 bit type here, because so much code
4338 The bytes and offsets passed to XGetWindowProperty refers to the
4339 property and those are indeed in 32 bit quantities if format is
4342 if (actual_format
== 32 && actual_format
< BITS_PER_LONG
)
4345 int *idata
= (int *) tmp_data
;
4346 long *ldata
= (long *) tmp_data
;
4348 for (i
= 0; i
< actual_size
; ++i
)
4349 idata
[i
] = (int) ldata
[i
];
4352 if (NILP (vector_ret_p
))
4353 prop_value
= make_string (tmp_data
, size
);
4355 prop_value
= x_property_data_to_lisp (f
,
4362 if (tmp_data
) XFree (tmp_data
);
4372 /***********************************************************************
4374 ***********************************************************************/
4376 /* If non-null, an asynchronous timer that, when it expires, displays
4377 an hourglass cursor on all frames. */
4379 static struct atimer
*hourglass_atimer
;
4381 /* Non-zero means an hourglass cursor is currently shown. */
4383 static int hourglass_shown_p
;
4385 /* Number of seconds to wait before displaying an hourglass cursor. */
4387 static Lisp_Object Vhourglass_delay
;
4389 /* Default number of seconds to wait before displaying an hourglass
4392 #define DEFAULT_HOURGLASS_DELAY 1
4394 /* Function prototypes. */
4396 static void show_hourglass
P_ ((struct atimer
*));
4397 static void hide_hourglass
P_ ((void));
4399 /* Return non-zero if houglass timer has been started or hourglass is shown. */
4402 hourglass_started ()
4404 return hourglass_shown_p
|| hourglass_atimer
!= NULL
;
4408 /* Cancel a currently active hourglass timer, and start a new one. */
4414 int secs
, usecs
= 0;
4416 /* Don't bother for ttys. */
4417 if (NILP (Vwindow_system
))
4420 cancel_hourglass ();
4422 if (INTEGERP (Vhourglass_delay
)
4423 && XINT (Vhourglass_delay
) > 0)
4424 secs
= XFASTINT (Vhourglass_delay
);
4425 else if (FLOATP (Vhourglass_delay
)
4426 && XFLOAT_DATA (Vhourglass_delay
) > 0)
4429 tem
= Ftruncate (Vhourglass_delay
, Qnil
);
4430 secs
= XFASTINT (tem
);
4431 usecs
= (XFLOAT_DATA (Vhourglass_delay
) - secs
) * 1000000;
4434 secs
= DEFAULT_HOURGLASS_DELAY
;
4436 EMACS_SET_SECS_USECS (delay
, secs
, usecs
);
4437 hourglass_atimer
= start_atimer (ATIMER_RELATIVE
, delay
,
4438 show_hourglass
, NULL
);
4442 /* Cancel the hourglass cursor timer if active, hide a busy cursor if
4448 if (hourglass_atimer
)
4450 cancel_atimer (hourglass_atimer
);
4451 hourglass_atimer
= NULL
;
4454 if (hourglass_shown_p
)
4459 /* Timer function of hourglass_atimer. TIMER is equal to
4462 Display an hourglass pointer on all frames by mapping the frames'
4463 hourglass_window. Set the hourglass_p flag in the frames'
4464 output_data.x structure to indicate that an hourglass cursor is
4465 shown on the frames. */
4468 show_hourglass (timer
)
4469 struct atimer
*timer
;
4471 /* The timer implementation will cancel this timer automatically
4472 after this function has run. Set hourglass_atimer to null
4473 so that we know the timer doesn't have to be canceled. */
4474 hourglass_atimer
= NULL
;
4476 if (!hourglass_shown_p
)
4478 Lisp_Object rest
, frame
;
4482 FOR_EACH_FRAME (rest
, frame
)
4484 struct frame
*f
= XFRAME (frame
);
4486 if (FRAME_LIVE_P (f
) && FRAME_X_P (f
) && FRAME_X_DISPLAY (f
))
4488 Display
*dpy
= FRAME_X_DISPLAY (f
);
4490 #ifdef USE_X_TOOLKIT
4491 if (f
->output_data
.x
->widget
)
4493 if (FRAME_OUTER_WINDOW (f
))
4496 f
->output_data
.x
->hourglass_p
= 1;
4498 if (!f
->output_data
.x
->hourglass_window
)
4500 unsigned long mask
= CWCursor
;
4501 XSetWindowAttributes attrs
;
4503 Window parent
= FRAME_X_WINDOW (f
);
4505 Window parent
= FRAME_OUTER_WINDOW (f
);
4507 attrs
.cursor
= f
->output_data
.x
->hourglass_cursor
;
4509 f
->output_data
.x
->hourglass_window
4510 = XCreateWindow (dpy
, parent
,
4511 0, 0, 32000, 32000, 0, 0,
4517 XMapRaised (dpy
, f
->output_data
.x
->hourglass_window
);
4523 hourglass_shown_p
= 1;
4529 /* Hide the hourglass pointer on all frames, if it is currently
4535 if (hourglass_shown_p
)
4537 Lisp_Object rest
, frame
;
4540 FOR_EACH_FRAME (rest
, frame
)
4542 struct frame
*f
= XFRAME (frame
);
4545 /* Watch out for newly created frames. */
4546 && f
->output_data
.x
->hourglass_window
)
4548 XUnmapWindow (FRAME_X_DISPLAY (f
),
4549 f
->output_data
.x
->hourglass_window
);
4550 /* Sync here because XTread_socket looks at the
4551 hourglass_p flag that is reset to zero below. */
4552 XSync (FRAME_X_DISPLAY (f
), False
);
4553 f
->output_data
.x
->hourglass_p
= 0;
4557 hourglass_shown_p
= 0;
4564 /***********************************************************************
4566 ***********************************************************************/
4568 static Lisp_Object x_create_tip_frame
P_ ((struct x_display_info
*,
4569 Lisp_Object
, Lisp_Object
));
4570 static void compute_tip_xy
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
,
4571 Lisp_Object
, int, int, int *, int *));
4573 /* The frame of a currently visible tooltip. */
4575 Lisp_Object tip_frame
;
4577 /* If non-nil, a timer started that hides the last tooltip when it
4580 Lisp_Object tip_timer
;
4583 /* If non-nil, a vector of 3 elements containing the last args
4584 with which x-show-tip was called. See there. */
4586 Lisp_Object last_show_tip_args
;
4588 /* Maximum size for tooltips; a cons (COLUMNS . ROWS). */
4590 Lisp_Object Vx_max_tooltip_size
;
4594 unwind_create_tip_frame (frame
)
4597 Lisp_Object deleted
;
4599 deleted
= unwind_create_frame (frame
);
4600 if (EQ (deleted
, Qt
))
4610 /* Create a frame for a tooltip on the display described by DPYINFO.
4611 PARMS is a list of frame parameters. TEXT is the string to
4612 display in the tip frame. Value is the frame.
4614 Note that functions called here, esp. x_default_parameter can
4615 signal errors, for instance when a specified color name is
4616 undefined. We have to make sure that we're in a consistent state
4617 when this happens. */
4620 x_create_tip_frame (dpyinfo
, parms
, text
)
4621 struct x_display_info
*dpyinfo
;
4622 Lisp_Object parms
, text
;
4625 Lisp_Object frame
, tem
;
4627 long window_prompting
= 0;
4629 int count
= SPECPDL_INDEX ();
4630 struct gcpro gcpro1
, gcpro2
, gcpro3
;
4632 int face_change_count_before
= face_change_count
;
4634 struct buffer
*old_buffer
;
4638 parms
= Fcopy_alist (parms
);
4641 kb
= dpyinfo
->kboard
;
4643 kb
= &the_only_kboard
;
4646 /* Get the name of the frame to use for resource lookup. */
4647 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
4649 && !EQ (name
, Qunbound
)
4651 error ("Invalid frame name--not a string or nil");
4654 GCPRO3 (parms
, name
, frame
);
4656 XSETFRAME (frame
, f
);
4658 buffer
= Fget_buffer_create (build_string (" *tip*"));
4659 Fset_window_buffer (FRAME_ROOT_WINDOW (f
), buffer
, Qnil
);
4660 old_buffer
= current_buffer
;
4661 set_buffer_internal_1 (XBUFFER (buffer
));
4662 current_buffer
->truncate_lines
= Qnil
;
4663 specbind (Qinhibit_read_only
, Qt
);
4664 specbind (Qinhibit_modification_hooks
, Qt
);
4667 set_buffer_internal_1 (old_buffer
);
4669 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 0;
4670 record_unwind_protect (unwind_create_tip_frame
, frame
);
4672 /* By setting the output method, we're essentially saying that
4673 the frame is live, as per FRAME_LIVE_P. If we get a signal
4674 from this point on, x_destroy_window might screw up reference
4676 f
->output_method
= output_x_window
;
4677 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
4678 bzero (f
->output_data
.x
, sizeof (struct x_output
));
4679 f
->output_data
.x
->icon_bitmap
= -1;
4680 FRAME_FONTSET (f
) = -1;
4681 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
4682 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
4683 #ifdef USE_TOOLKIT_SCROLL_BARS
4684 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
4685 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
4686 #endif /* USE_TOOLKIT_SCROLL_BARS */
4687 f
->icon_name
= Qnil
;
4688 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
4690 image_cache_refcount
= FRAME_X_IMAGE_CACHE (f
)->refcount
;
4691 dpyinfo_refcount
= dpyinfo
->reference_count
;
4692 #endif /* GLYPH_DEBUG */
4694 FRAME_KBOARD (f
) = kb
;
4696 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4697 f
->output_data
.x
->explicit_parent
= 0;
4699 /* These colors will be set anyway later, but it's important
4700 to get the color reference counts right, so initialize them! */
4703 struct gcpro gcpro1
;
4705 black
= build_string ("black");
4707 f
->output_data
.x
->foreground_pixel
4708 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4709 f
->output_data
.x
->background_pixel
4710 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4711 f
->output_data
.x
->cursor_pixel
4712 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4713 f
->output_data
.x
->cursor_foreground_pixel
4714 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4715 f
->output_data
.x
->border_pixel
4716 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4717 f
->output_data
.x
->mouse_pixel
4718 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4722 /* Set the name; the functions to which we pass f expect the name to
4724 if (EQ (name
, Qunbound
) || NILP (name
))
4726 f
->name
= build_string (dpyinfo
->x_id_name
);
4727 f
->explicit_name
= 0;
4732 f
->explicit_name
= 1;
4733 /* use the frame's title when getting resources for this frame. */
4734 specbind (Qx_resource_name
, name
);
4737 /* Extract the window parameters from the supplied values that are
4738 needed to determine window geometry. */
4742 font
= x_get_arg (dpyinfo
, parms
, Qfont
, "font", "Font", RES_TYPE_STRING
);
4745 /* First, try whatever font the caller has specified. */
4748 tem
= Fquery_fontset (font
, Qnil
);
4750 font
= x_new_fontset (f
, SDATA (tem
));
4752 font
= x_new_font (f
, SDATA (font
));
4755 /* Try out a font which we hope has bold and italic variations. */
4756 if (!STRINGP (font
))
4757 font
= x_new_font (f
, "-adobe-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-1");
4758 if (!STRINGP (font
))
4759 font
= x_new_font (f
, "-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-1");
4760 if (! STRINGP (font
))
4761 font
= x_new_font (f
, "-*-*-medium-r-normal-*-*-140-*-*-c-*-iso8859-1");
4762 if (! STRINGP (font
))
4763 /* This was formerly the first thing tried, but it finds too many fonts
4764 and takes too long. */
4765 font
= x_new_font (f
, "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1");
4766 /* If those didn't work, look for something which will at least work. */
4767 if (! STRINGP (font
))
4768 font
= x_new_font (f
, "-*-fixed-*-*-*-*-*-140-*-*-c-*-iso8859-1");
4770 if (! STRINGP (font
))
4771 font
= build_string ("fixed");
4773 x_default_parameter (f
, parms
, Qfont
, font
,
4774 "font", "Font", RES_TYPE_STRING
);
4777 x_default_parameter (f
, parms
, Qborder_width
, make_number (2),
4778 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
4780 /* This defaults to 2 in order to match xterm. We recognize either
4781 internalBorderWidth or internalBorder (which is what xterm calls
4783 if (NILP (Fassq (Qinternal_border_width
, parms
)))
4787 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
4788 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
4789 if (! EQ (value
, Qunbound
))
4790 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
4794 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
4795 "internalBorderWidth", "internalBorderWidth",
4798 /* Also do the stuff which must be set before the window exists. */
4799 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
4800 "foreground", "Foreground", RES_TYPE_STRING
);
4801 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
4802 "background", "Background", RES_TYPE_STRING
);
4803 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
4804 "pointerColor", "Foreground", RES_TYPE_STRING
);
4805 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
4806 "cursorColor", "Foreground", RES_TYPE_STRING
);
4807 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
4808 "borderColor", "BorderColor", RES_TYPE_STRING
);
4810 /* Init faces before x_default_parameter is called for scroll-bar
4811 parameters because that function calls x_set_scroll_bar_width,
4812 which calls change_frame_size, which calls Fset_window_buffer,
4813 which runs hooks, which call Fvertical_motion. At the end, we
4814 end up in init_iterator with a null face cache, which should not
4816 init_frame_faces (f
);
4818 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4820 window_prompting
= x_figure_window_size (f
, parms
, 0);
4823 XSetWindowAttributes attrs
;
4827 mask
= CWBackPixel
| CWOverrideRedirect
| CWEventMask
;
4828 if (DoesSaveUnders (dpyinfo
->screen
))
4829 mask
|= CWSaveUnder
;
4831 /* Window managers look at the override-redirect flag to determine
4832 whether or net to give windows a decoration (Xlib spec, chapter
4834 attrs
.override_redirect
= True
;
4835 attrs
.save_under
= True
;
4836 attrs
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
4837 /* Arrange for getting MapNotify and UnmapNotify events. */
4838 attrs
.event_mask
= StructureNotifyMask
;
4840 = FRAME_X_WINDOW (f
)
4841 = XCreateWindow (FRAME_X_DISPLAY (f
),
4842 FRAME_X_DISPLAY_INFO (f
)->root_window
,
4843 /* x, y, width, height */
4847 CopyFromParent
, InputOutput
, CopyFromParent
,
4854 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
4855 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4856 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
4857 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4858 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
4859 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
4861 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
4862 Change will not be effected unless different from the current
4864 width
= FRAME_COLS (f
);
4865 height
= FRAME_LINES (f
);
4866 SET_FRAME_COLS (f
, 0);
4867 FRAME_LINES (f
) = 0;
4868 change_frame_size (f
, height
, width
, 1, 0, 0);
4870 /* Add `tooltip' frame parameter's default value. */
4871 if (NILP (Fframe_parameter (frame
, intern ("tooltip"))))
4872 Fmodify_frame_parameters (frame
, Fcons (Fcons (intern ("tooltip"), Qt
),
4875 /* Set up faces after all frame parameters are known. This call
4876 also merges in face attributes specified for new frames.
4878 Frame parameters may be changed if .Xdefaults contains
4879 specifications for the default font. For example, if there is an
4880 `Emacs.default.attributeBackground: pink', the `background-color'
4881 attribute of the frame get's set, which let's the internal border
4882 of the tooltip frame appear in pink. Prevent this. */
4884 Lisp_Object bg
= Fframe_parameter (frame
, Qbackground_color
);
4886 /* Set tip_frame here, so that */
4888 call1 (Qface_set_after_frame_default
, frame
);
4890 if (!EQ (bg
, Fframe_parameter (frame
, Qbackground_color
)))
4891 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qbackground_color
, bg
),
4899 /* It is now ok to make the frame official even if we get an error
4900 below. And the frame needs to be on Vframe_list or making it
4901 visible won't work. */
4902 Vframe_list
= Fcons (frame
, Vframe_list
);
4904 /* Now that the frame is official, it counts as a reference to
4906 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
4908 /* Setting attributes of faces of the tooltip frame from resources
4909 and similar will increment face_change_count, which leads to the
4910 clearing of all current matrices. Since this isn't necessary
4911 here, avoid it by resetting face_change_count to the value it
4912 had before we created the tip frame. */
4913 face_change_count
= face_change_count_before
;
4915 /* Discard the unwind_protect. */
4916 return unbind_to (count
, frame
);
4920 /* Compute where to display tip frame F. PARMS is the list of frame
4921 parameters for F. DX and DY are specified offsets from the current
4922 location of the mouse. WIDTH and HEIGHT are the width and height
4923 of the tooltip. Return coordinates relative to the root window of
4924 the display in *ROOT_X, and *ROOT_Y. */
4927 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, root_x
, root_y
)
4929 Lisp_Object parms
, dx
, dy
;
4931 int *root_x
, *root_y
;
4933 Lisp_Object left
, top
;
4938 /* User-specified position? */
4939 left
= Fcdr (Fassq (Qleft
, parms
));
4940 top
= Fcdr (Fassq (Qtop
, parms
));
4942 /* Move the tooltip window where the mouse pointer is. Resize and
4944 if (!INTEGERP (left
) || !INTEGERP (top
))
4947 XQueryPointer (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
4948 &root
, &child
, root_x
, root_y
, &win_x
, &win_y
, &pmask
);
4953 *root_y
= XINT (top
);
4954 else if (*root_y
+ XINT (dy
) <= 0)
4955 *root_y
= 0; /* Can happen for negative dy */
4956 else if (*root_y
+ XINT (dy
) + height
<= FRAME_X_DISPLAY_INFO (f
)->height
)
4957 /* It fits below the pointer */
4958 *root_y
+= XINT (dy
);
4959 else if (height
+ XINT (dy
) <= *root_y
)
4960 /* It fits above the pointer. */
4961 *root_y
-= height
+ XINT (dy
);
4963 /* Put it on the top. */
4966 if (INTEGERP (left
))
4967 *root_x
= XINT (left
);
4968 else if (*root_x
+ XINT (dx
) <= 0)
4969 *root_x
= 0; /* Can happen for negative dx */
4970 else if (*root_x
+ XINT (dx
) + width
<= FRAME_X_DISPLAY_INFO (f
)->width
)
4971 /* It fits to the right of the pointer. */
4972 *root_x
+= XINT (dx
);
4973 else if (width
+ XINT (dx
) <= *root_x
)
4974 /* It fits to the left of the pointer. */
4975 *root_x
-= width
+ XINT (dx
);
4977 /* Put it left-justified on the screen--it ought to fit that way. */
4982 DEFUN ("x-show-tip", Fx_show_tip
, Sx_show_tip
, 1, 6, 0,
4983 doc
: /* Show STRING in a "tooltip" window on frame FRAME.
4984 A tooltip window is a small X window displaying a string.
4986 FRAME nil or omitted means use the selected frame.
4988 PARMS is an optional list of frame parameters which can be used to
4989 change the tooltip's appearance.
4991 Automatically hide the tooltip after TIMEOUT seconds. TIMEOUT nil
4992 means use the default timeout of 5 seconds.
4994 If the list of frame parameters PARAMS contains a `left' parameters,
4995 the tooltip is displayed at that x-position. Otherwise it is
4996 displayed at the mouse position, with offset DX added (default is 5 if
4997 DX isn't specified). Likewise for the y-position; if a `top' frame
4998 parameter is specified, it determines the y-position of the tooltip
4999 window, otherwise it is displayed at the mouse position, with offset
5000 DY added (default is -10).
5002 A tooltip's maximum size is specified by `x-max-tooltip-size'.
5003 Text larger than the specified size is clipped. */)
5004 (string
, frame
, parms
, timeout
, dx
, dy
)
5005 Lisp_Object string
, frame
, parms
, timeout
, dx
, dy
;
5010 struct buffer
*old_buffer
;
5011 struct text_pos pos
;
5012 int i
, width
, height
;
5013 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
5014 int old_windows_or_buffers_changed
= windows_or_buffers_changed
;
5015 int count
= SPECPDL_INDEX ();
5017 specbind (Qinhibit_redisplay
, Qt
);
5019 GCPRO4 (string
, parms
, frame
, timeout
);
5021 CHECK_STRING (string
);
5022 f
= check_x_frame (frame
);
5024 timeout
= make_number (5);
5026 CHECK_NATNUM (timeout
);
5029 dx
= make_number (5);
5034 dy
= make_number (-10);
5038 if (NILP (last_show_tip_args
))
5039 last_show_tip_args
= Fmake_vector (make_number (3), Qnil
);
5041 if (!NILP (tip_frame
))
5043 Lisp_Object last_string
= AREF (last_show_tip_args
, 0);
5044 Lisp_Object last_frame
= AREF (last_show_tip_args
, 1);
5045 Lisp_Object last_parms
= AREF (last_show_tip_args
, 2);
5047 if (EQ (frame
, last_frame
)
5048 && !NILP (Fequal (last_string
, string
))
5049 && !NILP (Fequal (last_parms
, parms
)))
5051 struct frame
*f
= XFRAME (tip_frame
);
5053 /* Only DX and DY have changed. */
5054 if (!NILP (tip_timer
))
5056 Lisp_Object timer
= tip_timer
;
5058 call1 (Qcancel_timer
, timer
);
5062 compute_tip_xy (f
, parms
, dx
, dy
, FRAME_PIXEL_WIDTH (f
),
5063 FRAME_PIXEL_HEIGHT (f
), &root_x
, &root_y
);
5064 XMoveWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5071 /* Hide a previous tip, if any. */
5074 ASET (last_show_tip_args
, 0, string
);
5075 ASET (last_show_tip_args
, 1, frame
);
5076 ASET (last_show_tip_args
, 2, parms
);
5078 /* Add default values to frame parameters. */
5079 if (NILP (Fassq (Qname
, parms
)))
5080 parms
= Fcons (Fcons (Qname
, build_string ("tooltip")), parms
);
5081 if (NILP (Fassq (Qinternal_border_width
, parms
)))
5082 parms
= Fcons (Fcons (Qinternal_border_width
, make_number (3)), parms
);
5083 if (NILP (Fassq (Qborder_width
, parms
)))
5084 parms
= Fcons (Fcons (Qborder_width
, make_number (1)), parms
);
5085 if (NILP (Fassq (Qborder_color
, parms
)))
5086 parms
= Fcons (Fcons (Qborder_color
, build_string ("lightyellow")), parms
);
5087 if (NILP (Fassq (Qbackground_color
, parms
)))
5088 parms
= Fcons (Fcons (Qbackground_color
, build_string ("lightyellow")),
5091 /* Create a frame for the tooltip, and record it in the global
5092 variable tip_frame. */
5093 frame
= x_create_tip_frame (FRAME_X_DISPLAY_INFO (f
), parms
, string
);
5096 /* Set up the frame's root window. */
5097 w
= XWINDOW (FRAME_ROOT_WINDOW (f
));
5098 w
->left_col
= w
->top_line
= make_number (0);
5100 if (CONSP (Vx_max_tooltip_size
)
5101 && INTEGERP (XCAR (Vx_max_tooltip_size
))
5102 && XINT (XCAR (Vx_max_tooltip_size
)) > 0
5103 && INTEGERP (XCDR (Vx_max_tooltip_size
))
5104 && XINT (XCDR (Vx_max_tooltip_size
)) > 0)
5106 w
->total_cols
= XCAR (Vx_max_tooltip_size
);
5107 w
->total_lines
= XCDR (Vx_max_tooltip_size
);
5111 w
->total_cols
= make_number (80);
5112 w
->total_lines
= make_number (40);
5115 FRAME_TOTAL_COLS (f
) = XINT (w
->total_cols
);
5117 w
->pseudo_window_p
= 1;
5119 /* Display the tooltip text in a temporary buffer. */
5120 old_buffer
= current_buffer
;
5121 set_buffer_internal_1 (XBUFFER (XWINDOW (FRAME_ROOT_WINDOW (f
))->buffer
));
5122 current_buffer
->truncate_lines
= Qnil
;
5123 clear_glyph_matrix (w
->desired_matrix
);
5124 clear_glyph_matrix (w
->current_matrix
);
5125 SET_TEXT_POS (pos
, BEGV
, BEGV_BYTE
);
5126 try_window (FRAME_ROOT_WINDOW (f
), pos
, 0);
5128 /* Compute width and height of the tooltip. */
5130 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
5132 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
5136 /* Stop at the first empty row at the end. */
5137 if (!row
->enabled_p
|| !row
->displays_text_p
)
5140 /* Let the row go over the full width of the frame. */
5141 row
->full_width_p
= 1;
5143 /* There's a glyph at the end of rows that is used to place
5144 the cursor there. Don't include the width of this glyph. */
5145 if (row
->used
[TEXT_AREA
])
5147 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
5148 row_width
= row
->pixel_width
- last
->pixel_width
;
5151 row_width
= row
->pixel_width
;
5153 height
+= row
->height
;
5154 width
= max (width
, row_width
);
5157 /* Add the frame's internal border to the width and height the X
5158 window should have. */
5159 height
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5160 width
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5162 /* Move the tooltip window where the mouse pointer is. Resize and
5164 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
5167 XMoveResizeWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5168 root_x
, root_y
, width
, height
);
5169 XMapRaised (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
));
5172 /* Draw into the window. */
5173 w
->must_be_updated_p
= 1;
5174 update_single_window (w
, 1);
5176 /* Restore original current buffer. */
5177 set_buffer_internal_1 (old_buffer
);
5178 windows_or_buffers_changed
= old_windows_or_buffers_changed
;
5181 /* Let the tip disappear after timeout seconds. */
5182 tip_timer
= call3 (intern ("run-at-time"), timeout
, Qnil
,
5183 intern ("x-hide-tip"));
5186 return unbind_to (count
, Qnil
);
5190 DEFUN ("x-hide-tip", Fx_hide_tip
, Sx_hide_tip
, 0, 0, 0,
5191 doc
: /* Hide the current tooltip window, if there is any.
5192 Value is t if tooltip was open, nil otherwise. */)
5196 Lisp_Object deleted
, frame
, timer
;
5197 struct gcpro gcpro1
, gcpro2
;
5199 /* Return quickly if nothing to do. */
5200 if (NILP (tip_timer
) && NILP (tip_frame
))
5205 GCPRO2 (frame
, timer
);
5206 tip_frame
= tip_timer
= deleted
= Qnil
;
5208 count
= SPECPDL_INDEX ();
5209 specbind (Qinhibit_redisplay
, Qt
);
5210 specbind (Qinhibit_quit
, Qt
);
5213 call1 (Qcancel_timer
, timer
);
5217 Fdelete_frame (frame
, Qnil
);
5221 /* Bloodcurdling hack alert: The Lucid menu bar widget's
5222 redisplay procedure is not called when a tip frame over menu
5223 items is unmapped. Redisplay the menu manually... */
5225 struct frame
*f
= SELECTED_FRAME ();
5226 Widget w
= f
->output_data
.x
->menubar_widget
;
5227 extern void xlwmenu_redisplay
P_ ((Widget
));
5229 if (!DoesSaveUnders (FRAME_X_DISPLAY_INFO (f
)->screen
)
5233 xlwmenu_redisplay (w
);
5237 #endif /* USE_LUCID */
5241 return unbind_to (count
, deleted
);
5246 /***********************************************************************
5247 File selection dialog
5248 ***********************************************************************/
5250 DEFUN ("x-uses-old-gtk-dialog", Fx_uses_old_gtk_dialog
,
5251 Sx_uses_old_gtk_dialog
,
5253 doc
: /* Return t if the old Gtk+ file selection dialog is used. */)
5257 extern int use_dialog_box
;
5258 extern int use_file_dialog
;
5263 && xg_uses_old_file_dialog ())
5271 /* Callback for "OK" and "Cancel" on file selection dialog. */
5274 file_dialog_cb (widget
, client_data
, call_data
)
5276 XtPointer call_data
, client_data
;
5278 int *result
= (int *) client_data
;
5279 XmAnyCallbackStruct
*cb
= (XmAnyCallbackStruct
*) call_data
;
5280 *result
= cb
->reason
;
5284 /* Callback for unmapping a file selection dialog. This is used to
5285 capture the case where a dialog is closed via a window manager's
5286 closer button, for example. Using a XmNdestroyCallback didn't work
5290 file_dialog_unmap_cb (widget
, client_data
, call_data
)
5292 XtPointer call_data
, client_data
;
5294 int *result
= (int *) client_data
;
5295 *result
= XmCR_CANCEL
;
5299 clean_up_file_dialog (arg
)
5302 struct Lisp_Save_Value
*p
= XSAVE_VALUE (arg
);
5303 Widget dialog
= (Widget
) p
->pointer
;
5307 XtUnmanageChild (dialog
);
5308 XtDestroyWidget (dialog
);
5309 x_menu_set_in_use (0);
5316 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5317 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5318 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5319 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5320 or directory must exist. ONLY-DIR-P is ignored." */)
5321 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
)
5322 Lisp_Object prompt
, dir
, default_filename
, mustmatch
, only_dir_p
;
5325 struct frame
*f
= SELECTED_FRAME ();
5326 Lisp_Object file
= Qnil
;
5327 Lisp_Object decoded_file
;
5328 Widget dialog
, text
, help
;
5331 extern XtAppContext Xt_app_con
;
5332 XmString dir_xmstring
, pattern_xmstring
;
5333 int count
= SPECPDL_INDEX ();
5334 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5336 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5338 if (popup_activated ())
5339 error ("Trying to use a menu from within a menu-entry");
5341 CHECK_STRING (prompt
);
5344 /* Prevent redisplay. */
5345 specbind (Qinhibit_redisplay
, Qt
);
5349 /* Create the dialog with PROMPT as title, using DIR as initial
5350 directory and using "*" as pattern. */
5351 dir
= Fexpand_file_name (dir
, Qnil
);
5352 dir_xmstring
= XmStringCreateLocalized (SDATA (dir
));
5353 pattern_xmstring
= XmStringCreateLocalized ("*");
5355 XtSetArg (al
[ac
], XmNtitle
, SDATA (prompt
)); ++ac
;
5356 XtSetArg (al
[ac
], XmNdirectory
, dir_xmstring
); ++ac
;
5357 XtSetArg (al
[ac
], XmNpattern
, pattern_xmstring
); ++ac
;
5358 XtSetArg (al
[ac
], XmNresizePolicy
, XmRESIZE_GROW
); ++ac
;
5359 XtSetArg (al
[ac
], XmNdialogStyle
, XmDIALOG_APPLICATION_MODAL
); ++ac
;
5360 dialog
= XmCreateFileSelectionDialog (f
->output_data
.x
->widget
,
5362 XmStringFree (dir_xmstring
);
5363 XmStringFree (pattern_xmstring
);
5365 /* Add callbacks for OK and Cancel. */
5366 XtAddCallback (dialog
, XmNokCallback
, file_dialog_cb
,
5367 (XtPointer
) &result
);
5368 XtAddCallback (dialog
, XmNcancelCallback
, file_dialog_cb
,
5369 (XtPointer
) &result
);
5370 XtAddCallback (dialog
, XmNunmapCallback
, file_dialog_unmap_cb
,
5371 (XtPointer
) &result
);
5373 /* Remove the help button since we can't display help. */
5374 help
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_HELP_BUTTON
);
5375 XtUnmanageChild (help
);
5377 /* Mark OK button as default. */
5378 XtVaSetValues (XmFileSelectionBoxGetChild (dialog
, XmDIALOG_OK_BUTTON
),
5379 XmNshowAsDefault
, True
, NULL
);
5381 /* If MUSTMATCH is non-nil, disable the file entry field of the
5382 dialog, so that the user must select a file from the files list
5383 box. We can't remove it because we wouldn't have a way to get at
5384 the result file name, then. */
5385 text
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5386 if (!NILP (mustmatch
))
5389 label
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_SELECTION_LABEL
);
5390 XtSetSensitive (text
, False
);
5391 XtSetSensitive (label
, False
);
5394 /* Manage the dialog, so that list boxes get filled. */
5395 XtManageChild (dialog
);
5397 if (STRINGP (default_filename
))
5399 XmString default_xmstring
;
5400 Widget wtext
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5401 Widget list
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_LIST
);
5403 XmTextPosition last_pos
= XmTextFieldGetLastPosition (wtext
);
5404 XmTextFieldReplace (wtext
, 0, last_pos
,
5405 (SDATA (Ffile_name_nondirectory (default_filename
))));
5407 /* Select DEFAULT_FILENAME in the files list box. DEFAULT_FILENAME
5408 must include the path for this to work. */
5410 default_xmstring
= XmStringCreateLocalized (SDATA (default_filename
));
5412 if (XmListItemExists (list
, default_xmstring
))
5414 int item_pos
= XmListItemPos (list
, default_xmstring
);
5415 /* Select the item and scroll it into view. */
5416 XmListSelectPos (list
, item_pos
, True
);
5417 XmListSetPos (list
, item_pos
);
5420 XmStringFree (default_xmstring
);
5423 record_unwind_protect (clean_up_file_dialog
, make_save_value (dialog
, 0));
5425 /* Process events until the user presses Cancel or OK. */
5426 x_menu_set_in_use (1);
5431 x_menu_wait_for_event (0);
5432 XtAppNextEvent (Xt_app_con
, &event
);
5433 if (event
.type
== KeyPress
5434 && FRAME_X_DISPLAY (f
) == event
.xkey
.display
)
5436 KeySym keysym
= XLookupKeysym (&event
.xkey
, 0);
5438 /* Pop down on C-g. */
5439 if (keysym
== XK_g
&& (event
.xkey
.state
& ControlMask
) != 0)
5440 XtUnmanageChild (dialog
);
5443 (void) x_dispatch_event (&event
, FRAME_X_DISPLAY (f
));
5446 /* Get the result. */
5447 if (result
== XmCR_OK
)
5452 XtVaGetValues (dialog
, XmNtextString
, &text
, NULL
);
5453 XmStringGetLtoR (text
, XmFONTLIST_DEFAULT_TAG
, &data
);
5454 XmStringFree (text
);
5455 file
= build_string (data
);
5464 /* Make "Cancel" equivalent to C-g. */
5466 Fsignal (Qquit
, Qnil
);
5468 decoded_file
= DECODE_FILE (file
);
5470 return unbind_to (count
, decoded_file
);
5473 #endif /* USE_MOTIF */
5478 clean_up_dialog (arg
)
5481 x_menu_set_in_use (0);
5486 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5487 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5488 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5489 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5490 or directory must exist. If ONLY-DIR-P is non-nil, the user can only select
5492 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
)
5493 Lisp_Object prompt
, dir
, default_filename
, mustmatch
, only_dir_p
;
5495 FRAME_PTR f
= SELECTED_FRAME ();
5497 Lisp_Object file
= Qnil
;
5498 Lisp_Object decoded_file
;
5499 int count
= SPECPDL_INDEX ();
5500 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5503 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5505 if (popup_activated ())
5506 error ("Trying to use a menu from within a menu-entry");
5508 CHECK_STRING (prompt
);
5511 /* Prevent redisplay. */
5512 specbind (Qinhibit_redisplay
, Qt
);
5513 record_unwind_protect (clean_up_dialog
, Qnil
);
5517 if (STRINGP (default_filename
))
5518 cdef_file
= SDATA (default_filename
);
5520 cdef_file
= SDATA (dir
);
5522 fn
= xg_get_file_name (f
, SDATA (prompt
), cdef_file
,
5524 ! NILP (only_dir_p
));
5528 file
= build_string (fn
);
5535 /* Make "Cancel" equivalent to C-g. */
5537 Fsignal (Qquit
, Qnil
);
5539 decoded_file
= DECODE_FILE (file
);
5541 return unbind_to (count
, decoded_file
);
5544 #endif /* USE_GTK */
5547 /***********************************************************************
5549 ***********************************************************************/
5551 #ifdef HAVE_XKBGETKEYBOARD
5552 #include <X11/XKBlib.h>
5553 #include <X11/keysym.h>
5556 DEFUN ("x-backspace-delete-keys-p", Fx_backspace_delete_keys_p
,
5557 Sx_backspace_delete_keys_p
, 0, 1, 0,
5558 doc
: /* Check if both Backspace and Delete keys are on the keyboard of FRAME.
5559 FRAME nil means use the selected frame.
5560 Value is t if we know that both keys are present, and are mapped to the
5561 usual X keysyms. Value is `lambda' if we cannot determine if both keys are
5562 present and mapped to the usual X keysyms. */)
5566 #ifdef HAVE_XKBGETKEYBOARD
5568 struct frame
*f
= check_x_frame (frame
);
5569 Display
*dpy
= FRAME_X_DISPLAY (f
);
5570 Lisp_Object have_keys
;
5571 int major
, minor
, op
, event
, error
;
5575 /* Check library version in case we're dynamically linked. */
5576 major
= XkbMajorVersion
;
5577 minor
= XkbMinorVersion
;
5578 if (!XkbLibraryVersion (&major
, &minor
))
5584 /* Check that the server supports XKB. */
5585 major
= XkbMajorVersion
;
5586 minor
= XkbMinorVersion
;
5587 if (!XkbQueryExtension (dpy
, &op
, &event
, &error
, &major
, &minor
))
5593 /* In this code we check that the keyboard has physical keys with names
5594 that start with BKSP (Backspace) and DELE (Delete), and that they
5595 generate keysym XK_BackSpace and XK_Delete respectively.
5596 This function is used to test if normal-erase-is-backspace should be
5598 An alternative approach would be to just check if XK_BackSpace and
5599 XK_Delete are mapped to any key. But if any of those are mapped to
5600 some non-intuitive key combination (Meta-Shift-Ctrl-whatever) and the
5601 user doesn't know about it, it is better to return false here.
5602 It is more obvious to the user what to do if she/he has two keys
5603 clearly marked with names/symbols and one key does something not
5604 expected (i.e. she/he then tries the other).
5605 The cases where Backspace/Delete is mapped to some other key combination
5606 are rare, and in those cases, normal-erase-is-backspace can be turned on
5610 kb
= XkbGetMap (dpy
, XkbAllMapComponentsMask
, XkbUseCoreKbd
);
5613 int delete_keycode
= 0, backspace_keycode
= 0, i
;
5615 if (XkbGetNames (dpy
, XkbAllNamesMask
, kb
) == Success
)
5617 for (i
= kb
->min_key_code
;
5618 (i
< kb
->max_key_code
5619 && (delete_keycode
== 0 || backspace_keycode
== 0));
5622 /* The XKB symbolic key names can be seen most easily in
5623 the PS file generated by `xkbprint -label name
5625 if (bcmp ("DELE", kb
->names
->keys
[i
].name
, 4) == 0)
5627 else if (bcmp ("BKSP", kb
->names
->keys
[i
].name
, 4) == 0)
5628 backspace_keycode
= i
;
5631 XkbFreeNames (kb
, 0, True
);
5634 XkbFreeClientMap (kb
, 0, True
);
5637 && backspace_keycode
5638 && XKeysymToKeycode (dpy
, XK_Delete
) == delete_keycode
5639 && XKeysymToKeycode (dpy
, XK_BackSpace
) == backspace_keycode
)
5644 #else /* not HAVE_XKBGETKEYBOARD */
5646 #endif /* not HAVE_XKBGETKEYBOARD */
5651 /***********************************************************************
5653 ***********************************************************************/
5655 /* Keep this list in the same order as frame_parms in frame.c.
5656 Use 0 for unsupported frame parameters. */
5658 frame_parm_handler x_frame_parm_handlers
[] =
5662 x_set_background_color
,
5668 x_set_foreground_color
,
5671 x_set_internal_border_width
,
5672 x_set_menu_bar_lines
,
5674 x_explicitly_set_name
,
5675 x_set_scroll_bar_width
,
5678 x_set_vertical_scroll_bars
,
5680 x_set_tool_bar_lines
,
5681 x_set_scroll_bar_foreground
,
5682 x_set_scroll_bar_background
,
5694 /* This is zero if not using X windows. */
5697 /* The section below is built by the lisp expression at the top of the file,
5698 just above where these variables are declared. */
5699 /*&&& init symbols here &&&*/
5700 Qnone
= intern ("none");
5702 Qsuppress_icon
= intern ("suppress-icon");
5703 staticpro (&Qsuppress_icon
);
5704 Qundefined_color
= intern ("undefined-color");
5705 staticpro (&Qundefined_color
);
5706 Qcompound_text
= intern ("compound-text");
5707 staticpro (&Qcompound_text
);
5708 Qcancel_timer
= intern ("cancel-timer");
5709 staticpro (&Qcancel_timer
);
5710 /* This is the end of symbol initialization. */
5712 /* Text property `display' should be nonsticky by default. */
5713 Vtext_property_default_nonsticky
5714 = Fcons (Fcons (Qdisplay
, Qt
), Vtext_property_default_nonsticky
);
5717 Fput (Qundefined_color
, Qerror_conditions
,
5718 Fcons (Qundefined_color
, Fcons (Qerror
, Qnil
)));
5719 Fput (Qundefined_color
, Qerror_message
,
5720 build_string ("Undefined color"));
5722 DEFVAR_LISP ("x-pointer-shape", &Vx_pointer_shape
,
5723 doc
: /* The shape of the pointer when over text.
5724 Changing the value does not affect existing frames
5725 unless you set the mouse color. */);
5726 Vx_pointer_shape
= Qnil
;
5728 #if 0 /* This doesn't really do anything. */
5729 DEFVAR_LISP ("x-nontext-pointer-shape", &Vx_nontext_pointer_shape
,
5730 doc
: /* The shape of the pointer when not over text.
5731 This variable takes effect when you create a new frame
5732 or when you set the mouse color. */);
5734 Vx_nontext_pointer_shape
= Qnil
;
5736 DEFVAR_LISP ("x-hourglass-pointer-shape", &Vx_hourglass_pointer_shape
,
5737 doc
: /* The shape of the pointer when Emacs is busy.
5738 This variable takes effect when you create a new frame
5739 or when you set the mouse color. */);
5740 Vx_hourglass_pointer_shape
= Qnil
;
5742 DEFVAR_BOOL ("display-hourglass", &display_hourglass_p
,
5743 doc
: /* Non-zero means Emacs displays an hourglass pointer on window systems. */);
5744 display_hourglass_p
= 1;
5746 DEFVAR_LISP ("hourglass-delay", &Vhourglass_delay
,
5747 doc
: /* *Seconds to wait before displaying an hourglass pointer.
5748 Value must be an integer or float. */);
5749 Vhourglass_delay
= make_number (DEFAULT_HOURGLASS_DELAY
);
5751 #if 0 /* This doesn't really do anything. */
5752 DEFVAR_LISP ("x-mode-pointer-shape", &Vx_mode_pointer_shape
,
5753 doc
: /* The shape of the pointer when over the mode line.
5754 This variable takes effect when you create a new frame
5755 or when you set the mouse color. */);
5757 Vx_mode_pointer_shape
= Qnil
;
5759 DEFVAR_LISP ("x-sensitive-text-pointer-shape",
5760 &Vx_sensitive_text_pointer_shape
,
5761 doc
: /* The shape of the pointer when over mouse-sensitive text.
5762 This variable takes effect when you create a new frame
5763 or when you set the mouse color. */);
5764 Vx_sensitive_text_pointer_shape
= Qnil
;
5766 DEFVAR_LISP ("x-window-horizontal-drag-cursor",
5767 &Vx_window_horizontal_drag_shape
,
5768 doc
: /* Pointer shape to use for indicating a window can be dragged horizontally.
5769 This variable takes effect when you create a new frame
5770 or when you set the mouse color. */);
5771 Vx_window_horizontal_drag_shape
= Qnil
;
5773 DEFVAR_LISP ("x-cursor-fore-pixel", &Vx_cursor_fore_pixel
,
5774 doc
: /* A string indicating the foreground color of the cursor box. */);
5775 Vx_cursor_fore_pixel
= Qnil
;
5777 DEFVAR_LISP ("x-max-tooltip-size", &Vx_max_tooltip_size
,
5778 doc
: /* Maximum size for tooltips. Value is a pair (COLUMNS . ROWS).
5779 Text larger than this is clipped. */);
5780 Vx_max_tooltip_size
= Fcons (make_number (80), make_number (40));
5782 DEFVAR_LISP ("x-no-window-manager", &Vx_no_window_manager
,
5783 doc
: /* Non-nil if no X window manager is in use.
5784 Emacs doesn't try to figure this out; this is always nil
5785 unless you set it to something else. */);
5786 /* We don't have any way to find this out, so set it to nil
5787 and maybe the user would like to set it to t. */
5788 Vx_no_window_manager
= Qnil
;
5790 DEFVAR_LISP ("x-pixel-size-width-font-regexp",
5791 &Vx_pixel_size_width_font_regexp
,
5792 doc
: /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'.
5794 Since Emacs gets width of a font matching with this regexp from
5795 PIXEL_SIZE field of the name, font finding mechanism gets faster for
5796 such a font. This is especially effective for such large fonts as
5797 Chinese, Japanese, and Korean. */);
5798 Vx_pixel_size_width_font_regexp
= Qnil
;
5800 /* This is not ifdef:ed, so other builds than GTK can customize it. */
5801 DEFVAR_BOOL ("x-use-old-gtk-file-dialog", &x_use_old_gtk_file_dialog
,
5802 doc
: /* *Non-nil means prompt with the old GTK file selection dialog.
5803 If nil or if the file selection dialog is not available, the new GTK file
5804 chooser is used instead. To turn off all file dialogs set the
5805 variable `use-file-dialog'. */);
5806 x_use_old_gtk_file_dialog
= 0;
5808 DEFVAR_BOOL ("x-gtk-show-hidden-files", &x_gtk_show_hidden_files
,
5809 doc
: /* *If non-nil, the GTK file chooser will by default show hidden files.
5810 Note that this is just the default, there is a toggle button on the file
5811 chooser to show or not show hidden files on a case by case basis. */);
5812 x_gtk_show_hidden_files
= 0;
5814 DEFVAR_BOOL ("x-gtk-whole-detached-tool-bar", &x_gtk_whole_detached_tool_bar
,
5815 doc
: /* *If non-nil, a detached tool bar is shown in full.
5816 The default is to just show an arrow and pressing on that arrow shows
5817 the tool bar buttons. */);
5818 x_gtk_whole_detached_tool_bar
= 0;
5820 Fprovide (intern ("x"), Qnil
);
5822 #ifdef USE_X_TOOLKIT
5823 Fprovide (intern ("x-toolkit"), Qnil
);
5825 Fprovide (intern ("motif"), Qnil
);
5827 DEFVAR_LISP ("motif-version-string", &Vmotif_version_string
,
5828 doc
: /* Version info for LessTif/Motif. */);
5829 Vmotif_version_string
= build_string (XmVERSION_STRING
);
5830 #endif /* USE_MOTIF */
5831 #endif /* USE_X_TOOLKIT */
5834 /* Provide x-toolkit also for GTK. Internally GTK does not use Xt so it
5835 is not an X toolkit in that sense (USE_X_TOOLKIT is not defined).
5836 But for a user it is a toolkit for X, and indeed, configure
5837 accepts --with-x-toolkit=gtk. */
5838 Fprovide (intern ("x-toolkit"), Qnil
);
5839 Fprovide (intern ("gtk"), Qnil
);
5841 DEFVAR_LISP ("gtk-version-string", &Vgtk_version_string
,
5842 doc
: /* Version info for GTK+. */);
5844 char gtk_version
[40];
5845 g_snprintf (gtk_version
, sizeof (gtk_version
), "%u.%u.%u",
5846 GTK_MAJOR_VERSION
, GTK_MINOR_VERSION
, GTK_MICRO_VERSION
);
5847 Vgtk_version_string
= build_string (gtk_version
);
5849 #endif /* USE_GTK */
5851 /* X window properties. */
5852 defsubr (&Sx_change_window_property
);
5853 defsubr (&Sx_delete_window_property
);
5854 defsubr (&Sx_window_property
);
5856 defsubr (&Sxw_display_color_p
);
5857 defsubr (&Sx_display_grayscale_p
);
5858 defsubr (&Sxw_color_defined_p
);
5859 defsubr (&Sxw_color_values
);
5860 defsubr (&Sx_server_max_request_size
);
5861 defsubr (&Sx_server_vendor
);
5862 defsubr (&Sx_server_version
);
5863 defsubr (&Sx_display_pixel_width
);
5864 defsubr (&Sx_display_pixel_height
);
5865 defsubr (&Sx_display_mm_width
);
5866 defsubr (&Sx_display_mm_height
);
5867 defsubr (&Sx_display_screens
);
5868 defsubr (&Sx_display_planes
);
5869 defsubr (&Sx_display_color_cells
);
5870 defsubr (&Sx_display_visual_class
);
5871 defsubr (&Sx_display_backing_store
);
5872 defsubr (&Sx_display_save_under
);
5873 defsubr (&Sx_create_frame
);
5874 defsubr (&Sx_open_connection
);
5875 defsubr (&Sx_close_connection
);
5876 defsubr (&Sx_display_list
);
5877 defsubr (&Sx_synchronize
);
5878 defsubr (&Sx_focus_frame
);
5879 defsubr (&Sx_backspace_delete_keys_p
);
5881 /* Setting callback functions for fontset handler. */
5882 get_font_info_func
= x_get_font_info
;
5884 #if 0 /* This function pointer doesn't seem to be used anywhere.
5885 And the pointer assigned has the wrong type, anyway. */
5886 list_fonts_func
= x_list_fonts
;
5889 load_font_func
= x_load_font
;
5890 find_ccl_program_func
= x_find_ccl_program
;
5891 query_font_func
= x_query_font
;
5892 set_frame_fontset_func
= x_set_font
;
5893 check_window_system_func
= check_x
;
5895 hourglass_atimer
= NULL
;
5896 hourglass_shown_p
= 0;
5898 defsubr (&Sx_show_tip
);
5899 defsubr (&Sx_hide_tip
);
5901 staticpro (&tip_timer
);
5903 staticpro (&tip_frame
);
5905 last_show_tip_args
= Qnil
;
5906 staticpro (&last_show_tip_args
);
5908 defsubr (&Sx_uses_old_gtk_dialog
);
5909 #if defined (USE_MOTIF) || defined (USE_GTK)
5910 defsubr (&Sx_file_dialog
);
5914 #endif /* HAVE_X_WINDOWS */
5916 /* arch-tag: 55040d02-5485-4d58-8b22-95a7a05f3288
5917 (do not change this comment) */