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
));
669 x_uncatch_errors (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
)
797 found
= x_find_image_file (file
);
803 char *filename
= (char *) SDATA (found
);
806 pixbuf
= gdk_pixbuf_new_from_file (filename
, &err
);
810 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
812 g_object_unref (pixbuf
);
827 xg_set_icon_from_xpm_data (f
, data
)
832 GdkPixbuf
*pixbuf
= gdk_pixbuf_new_from_xpm_data ((const char **) data
);
837 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)), pixbuf
);
838 g_object_unref (pixbuf
);
844 /* Functions called only from `x_set_frame_param'
845 to set individual parameters.
847 If FRAME_X_WINDOW (f) is 0,
848 the frame is being created and its X-window does not exist yet.
849 In that case, just record the parameter's new value
850 in the standard place; do not attempt to change the window. */
853 x_set_foreground_color (f
, arg
, oldval
)
855 Lisp_Object arg
, oldval
;
857 struct x_output
*x
= f
->output_data
.x
;
858 unsigned long fg
, old_fg
;
860 fg
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
861 old_fg
= x
->foreground_pixel
;
862 x
->foreground_pixel
= fg
;
864 if (FRAME_X_WINDOW (f
) != 0)
866 Display
*dpy
= FRAME_X_DISPLAY (f
);
869 XSetForeground (dpy
, x
->normal_gc
, fg
);
870 XSetBackground (dpy
, x
->reverse_gc
, fg
);
872 if (x
->cursor_pixel
== old_fg
)
874 unload_color (f
, x
->cursor_pixel
);
875 x
->cursor_pixel
= x_copy_color (f
, fg
);
876 XSetBackground (dpy
, x
->cursor_gc
, x
->cursor_pixel
);
881 update_face_from_frame_parameter (f
, Qforeground_color
, arg
);
883 if (FRAME_VISIBLE_P (f
))
887 unload_color (f
, old_fg
);
891 x_set_background_color (f
, arg
, oldval
)
893 Lisp_Object arg
, oldval
;
895 struct x_output
*x
= f
->output_data
.x
;
898 bg
= x_decode_color (f
, arg
, WHITE_PIX_DEFAULT (f
));
899 unload_color (f
, x
->background_pixel
);
900 x
->background_pixel
= bg
;
902 if (FRAME_X_WINDOW (f
) != 0)
904 Display
*dpy
= FRAME_X_DISPLAY (f
);
907 XSetBackground (dpy
, x
->normal_gc
, bg
);
908 XSetForeground (dpy
, x
->reverse_gc
, bg
);
909 XSetWindowBackground (dpy
, FRAME_X_WINDOW (f
), bg
);
910 XSetForeground (dpy
, x
->cursor_gc
, bg
);
913 xg_set_background_color (f
, bg
);
916 #ifndef USE_TOOLKIT_SCROLL_BARS /* Turns out to be annoying with
917 toolkit scroll bars. */
920 for (bar
= FRAME_SCROLL_BARS (f
);
922 bar
= XSCROLL_BAR (bar
)->next
)
924 Window window
= SCROLL_BAR_X_WINDOW (XSCROLL_BAR (bar
));
925 XSetWindowBackground (dpy
, window
, bg
);
928 #endif /* USE_TOOLKIT_SCROLL_BARS */
931 update_face_from_frame_parameter (f
, Qbackground_color
, arg
);
933 if (FRAME_VISIBLE_P (f
))
939 x_set_mouse_color (f
, arg
, oldval
)
941 Lisp_Object arg
, oldval
;
943 struct x_output
*x
= f
->output_data
.x
;
944 Display
*dpy
= FRAME_X_DISPLAY (f
);
945 Cursor cursor
, nontext_cursor
, mode_cursor
, hand_cursor
;
946 Cursor hourglass_cursor
, horizontal_drag_cursor
;
947 unsigned long pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
948 unsigned long mask_color
= x
->background_pixel
;
950 /* Don't let pointers be invisible. */
951 if (mask_color
== pixel
)
953 x_free_colors (f
, &pixel
, 1);
954 pixel
= x_copy_color (f
, x
->foreground_pixel
);
957 unload_color (f
, x
->mouse_pixel
);
958 x
->mouse_pixel
= pixel
;
962 /* It's not okay to crash if the user selects a screwy cursor. */
963 x_catch_errors (dpy
);
965 if (!NILP (Vx_pointer_shape
))
967 CHECK_NUMBER (Vx_pointer_shape
);
968 cursor
= XCreateFontCursor (dpy
, XINT (Vx_pointer_shape
));
971 cursor
= XCreateFontCursor (dpy
, XC_xterm
);
972 x_check_errors (dpy
, "bad text pointer cursor: %s");
974 if (!NILP (Vx_nontext_pointer_shape
))
976 CHECK_NUMBER (Vx_nontext_pointer_shape
);
978 = XCreateFontCursor (dpy
, XINT (Vx_nontext_pointer_shape
));
981 nontext_cursor
= XCreateFontCursor (dpy
, XC_left_ptr
);
982 x_check_errors (dpy
, "bad nontext pointer cursor: %s");
984 if (!NILP (Vx_hourglass_pointer_shape
))
986 CHECK_NUMBER (Vx_hourglass_pointer_shape
);
988 = XCreateFontCursor (dpy
, XINT (Vx_hourglass_pointer_shape
));
991 hourglass_cursor
= XCreateFontCursor (dpy
, XC_watch
);
992 x_check_errors (dpy
, "bad hourglass pointer cursor: %s");
994 if (!NILP (Vx_mode_pointer_shape
))
996 CHECK_NUMBER (Vx_mode_pointer_shape
);
997 mode_cursor
= XCreateFontCursor (dpy
, XINT (Vx_mode_pointer_shape
));
1000 mode_cursor
= XCreateFontCursor (dpy
, XC_xterm
);
1001 x_check_errors (dpy
, "bad modeline pointer cursor: %s");
1003 if (!NILP (Vx_sensitive_text_pointer_shape
))
1005 CHECK_NUMBER (Vx_sensitive_text_pointer_shape
);
1007 = XCreateFontCursor (dpy
, XINT (Vx_sensitive_text_pointer_shape
));
1010 hand_cursor
= XCreateFontCursor (dpy
, XC_hand2
);
1012 if (!NILP (Vx_window_horizontal_drag_shape
))
1014 CHECK_NUMBER (Vx_window_horizontal_drag_shape
);
1015 horizontal_drag_cursor
1016 = XCreateFontCursor (dpy
, XINT (Vx_window_horizontal_drag_shape
));
1019 horizontal_drag_cursor
1020 = XCreateFontCursor (dpy
, XC_sb_h_double_arrow
);
1022 /* Check and report errors with the above calls. */
1023 x_check_errors (dpy
, "can't set cursor shape: %s");
1024 x_uncatch_errors (dpy
);
1027 XColor fore_color
, back_color
;
1029 fore_color
.pixel
= x
->mouse_pixel
;
1030 x_query_color (f
, &fore_color
);
1031 back_color
.pixel
= mask_color
;
1032 x_query_color (f
, &back_color
);
1034 XRecolorCursor (dpy
, cursor
, &fore_color
, &back_color
);
1035 XRecolorCursor (dpy
, nontext_cursor
, &fore_color
, &back_color
);
1036 XRecolorCursor (dpy
, mode_cursor
, &fore_color
, &back_color
);
1037 XRecolorCursor (dpy
, hand_cursor
, &fore_color
, &back_color
);
1038 XRecolorCursor (dpy
, hourglass_cursor
, &fore_color
, &back_color
);
1039 XRecolorCursor (dpy
, horizontal_drag_cursor
, &fore_color
, &back_color
);
1042 if (FRAME_X_WINDOW (f
) != 0)
1043 XDefineCursor (dpy
, FRAME_X_WINDOW (f
), cursor
);
1045 if (cursor
!= x
->text_cursor
1046 && x
->text_cursor
!= 0)
1047 XFreeCursor (dpy
, x
->text_cursor
);
1048 x
->text_cursor
= cursor
;
1050 if (nontext_cursor
!= x
->nontext_cursor
1051 && x
->nontext_cursor
!= 0)
1052 XFreeCursor (dpy
, x
->nontext_cursor
);
1053 x
->nontext_cursor
= nontext_cursor
;
1055 if (hourglass_cursor
!= x
->hourglass_cursor
1056 && x
->hourglass_cursor
!= 0)
1057 XFreeCursor (dpy
, x
->hourglass_cursor
);
1058 x
->hourglass_cursor
= hourglass_cursor
;
1060 if (mode_cursor
!= x
->modeline_cursor
1061 && x
->modeline_cursor
!= 0)
1062 XFreeCursor (dpy
, f
->output_data
.x
->modeline_cursor
);
1063 x
->modeline_cursor
= mode_cursor
;
1065 if (hand_cursor
!= x
->hand_cursor
1066 && x
->hand_cursor
!= 0)
1067 XFreeCursor (dpy
, x
->hand_cursor
);
1068 x
->hand_cursor
= hand_cursor
;
1070 if (horizontal_drag_cursor
!= x
->horizontal_drag_cursor
1071 && x
->horizontal_drag_cursor
!= 0)
1072 XFreeCursor (dpy
, x
->horizontal_drag_cursor
);
1073 x
->horizontal_drag_cursor
= horizontal_drag_cursor
;
1078 update_face_from_frame_parameter (f
, Qmouse_color
, arg
);
1082 x_set_cursor_color (f
, arg
, oldval
)
1084 Lisp_Object arg
, oldval
;
1086 unsigned long fore_pixel
, pixel
;
1087 int fore_pixel_allocated_p
= 0, pixel_allocated_p
= 0;
1088 struct x_output
*x
= f
->output_data
.x
;
1090 if (!NILP (Vx_cursor_fore_pixel
))
1092 fore_pixel
= x_decode_color (f
, Vx_cursor_fore_pixel
,
1093 WHITE_PIX_DEFAULT (f
));
1094 fore_pixel_allocated_p
= 1;
1097 fore_pixel
= x
->background_pixel
;
1099 pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1100 pixel_allocated_p
= 1;
1102 /* Make sure that the cursor color differs from the background color. */
1103 if (pixel
== x
->background_pixel
)
1105 if (pixel_allocated_p
)
1107 x_free_colors (f
, &pixel
, 1);
1108 pixel_allocated_p
= 0;
1111 pixel
= x
->mouse_pixel
;
1112 if (pixel
== fore_pixel
)
1114 if (fore_pixel_allocated_p
)
1116 x_free_colors (f
, &fore_pixel
, 1);
1117 fore_pixel_allocated_p
= 0;
1119 fore_pixel
= x
->background_pixel
;
1123 unload_color (f
, x
->cursor_foreground_pixel
);
1124 if (!fore_pixel_allocated_p
)
1125 fore_pixel
= x_copy_color (f
, fore_pixel
);
1126 x
->cursor_foreground_pixel
= fore_pixel
;
1128 unload_color (f
, x
->cursor_pixel
);
1129 if (!pixel_allocated_p
)
1130 pixel
= x_copy_color (f
, pixel
);
1131 x
->cursor_pixel
= pixel
;
1133 if (FRAME_X_WINDOW (f
) != 0)
1136 XSetBackground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, x
->cursor_pixel
);
1137 XSetForeground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, fore_pixel
);
1140 if (FRAME_VISIBLE_P (f
))
1142 x_update_cursor (f
, 0);
1143 x_update_cursor (f
, 1);
1147 update_face_from_frame_parameter (f
, Qcursor_color
, arg
);
1150 /* Set the border-color of frame F to pixel value PIX.
1151 Note that this does not fully take effect if done before
1152 F has an x-window. */
1155 x_set_border_pixel (f
, pix
)
1159 unload_color (f
, f
->output_data
.x
->border_pixel
);
1160 f
->output_data
.x
->border_pixel
= pix
;
1162 if (FRAME_X_WINDOW (f
) != 0 && f
->border_width
> 0)
1165 XSetWindowBorder (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1166 (unsigned long)pix
);
1169 if (FRAME_VISIBLE_P (f
))
1174 /* Set the border-color of frame F to value described by ARG.
1175 ARG can be a string naming a color.
1176 The border-color is used for the border that is drawn by the X server.
1177 Note that this does not fully take effect if done before
1178 F has an x-window; it must be redone when the window is created.
1180 Note: this is done in two routines because of the way X10 works.
1182 Note: under X11, this is normally the province of the window manager,
1183 and so emacs' border colors may be overridden. */
1186 x_set_border_color (f
, arg
, oldval
)
1188 Lisp_Object arg
, oldval
;
1193 pix
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1194 x_set_border_pixel (f
, pix
);
1195 update_face_from_frame_parameter (f
, Qborder_color
, arg
);
1200 x_set_cursor_type (f
, arg
, oldval
)
1202 Lisp_Object arg
, oldval
;
1204 set_frame_cursor_types (f
, arg
);
1206 /* Make sure the cursor gets redrawn. */
1207 cursor_type_changed
= 1;
1211 x_set_icon_type (f
, arg
, oldval
)
1213 Lisp_Object arg
, oldval
;
1219 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1222 else if (!STRINGP (oldval
) && EQ (oldval
, Qnil
) == EQ (arg
, Qnil
))
1227 result
= x_text_icon (f
,
1228 (char *) SDATA ((!NILP (f
->icon_name
)
1232 result
= x_bitmap_icon (f
, arg
);
1237 error ("No icon window available");
1240 XFlush (FRAME_X_DISPLAY (f
));
1245 x_set_icon_name (f
, arg
, oldval
)
1247 Lisp_Object arg
, oldval
;
1253 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1256 else if (!STRINGP (oldval
) && EQ (oldval
, Qnil
) == EQ (arg
, Qnil
))
1261 if (f
->output_data
.x
->icon_bitmap
!= 0)
1266 result
= x_text_icon (f
,
1267 (char *) SDATA ((!NILP (f
->icon_name
)
1276 error ("No icon window available");
1279 XFlush (FRAME_X_DISPLAY (f
));
1285 x_set_menu_bar_lines (f
, value
, oldval
)
1287 Lisp_Object value
, oldval
;
1290 #if ! defined (USE_X_TOOLKIT) && ! defined (USE_GTK)
1291 int olines
= FRAME_MENU_BAR_LINES (f
);
1294 /* Right now, menu bars don't work properly in minibuf-only frames;
1295 most of the commands try to apply themselves to the minibuffer
1296 frame itself, and get an error because you can't switch buffers
1297 in or split the minibuffer window. */
1298 if (FRAME_MINIBUF_ONLY_P (f
))
1301 if (INTEGERP (value
))
1302 nlines
= XINT (value
);
1306 /* Make sure we redisplay all windows in this frame. */
1307 windows_or_buffers_changed
++;
1309 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
1310 FRAME_MENU_BAR_LINES (f
) = 0;
1313 FRAME_EXTERNAL_MENU_BAR (f
) = 1;
1314 if (FRAME_X_P (f
) && f
->output_data
.x
->menubar_widget
== 0)
1315 /* Make sure next redisplay shows the menu bar. */
1316 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= Qt
;
1320 if (FRAME_EXTERNAL_MENU_BAR (f
) == 1)
1321 free_frame_menubar (f
);
1322 FRAME_EXTERNAL_MENU_BAR (f
) = 0;
1324 f
->output_data
.x
->menubar_widget
= 0;
1326 #else /* not USE_X_TOOLKIT && not USE_GTK */
1327 FRAME_MENU_BAR_LINES (f
) = nlines
;
1328 change_window_heights (f
->root_window
, nlines
- olines
);
1329 #endif /* not USE_X_TOOLKIT */
1334 /* Set the number of lines used for the tool bar of frame F to VALUE.
1335 VALUE not an integer, or < 0 means set the lines to zero. OLDVAL
1336 is the old number of tool bar lines. This function changes the
1337 height of all windows on frame F to match the new tool bar height.
1338 The frame's height doesn't change. */
1341 x_set_tool_bar_lines (f
, value
, oldval
)
1343 Lisp_Object value
, oldval
;
1345 int delta
, nlines
, root_height
;
1346 Lisp_Object root_window
;
1348 /* Treat tool bars like menu bars. */
1349 if (FRAME_MINIBUF_ONLY_P (f
))
1352 /* Use VALUE only if an integer >= 0. */
1353 if (INTEGERP (value
) && XINT (value
) >= 0)
1354 nlines
= XFASTINT (value
);
1359 FRAME_TOOL_BAR_LINES (f
) = 0;
1362 FRAME_EXTERNAL_TOOL_BAR (f
) = 1;
1363 if (FRAME_X_P (f
) && f
->output_data
.x
->toolbar_widget
== 0)
1364 /* Make sure next redisplay shows the tool bar. */
1365 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= Qt
;
1366 update_frame_tool_bar (f
);
1370 if (FRAME_EXTERNAL_TOOL_BAR (f
))
1371 free_frame_tool_bar (f
);
1372 FRAME_EXTERNAL_TOOL_BAR (f
) = 0;
1378 /* Make sure we redisplay all windows in this frame. */
1379 ++windows_or_buffers_changed
;
1381 delta
= nlines
- FRAME_TOOL_BAR_LINES (f
);
1383 /* Don't resize the tool-bar to more than we have room for. */
1384 root_window
= FRAME_ROOT_WINDOW (f
);
1385 root_height
= WINDOW_TOTAL_LINES (XWINDOW (root_window
));
1386 if (root_height
- delta
< 1)
1388 delta
= root_height
- 1;
1389 nlines
= FRAME_TOOL_BAR_LINES (f
) + delta
;
1392 FRAME_TOOL_BAR_LINES (f
) = nlines
;
1393 change_window_heights (root_window
, delta
);
1396 /* We also have to make sure that the internal border at the top of
1397 the frame, below the menu bar or tool bar, is redrawn when the
1398 tool bar disappears. This is so because the internal border is
1399 below the tool bar if one is displayed, but is below the menu bar
1400 if there isn't a tool bar. The tool bar draws into the area
1401 below the menu bar. */
1402 if (FRAME_X_WINDOW (f
) && FRAME_TOOL_BAR_LINES (f
) == 0)
1406 clear_current_matrices (f
);
1407 updating_frame
= NULL
;
1410 /* If the tool bar gets smaller, the internal border below it
1411 has to be cleared. It was formerly part of the display
1412 of the larger tool bar, and updating windows won't clear it. */
1415 int height
= FRAME_INTERNAL_BORDER_WIDTH (f
);
1416 int width
= FRAME_PIXEL_WIDTH (f
);
1417 int y
= nlines
* FRAME_LINE_HEIGHT (f
);
1419 /* height can be zero here. */
1420 if (height
> 0 && width
> 0)
1423 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1424 0, y
, width
, height
, False
);
1428 if (WINDOWP (f
->tool_bar_window
))
1429 clear_glyph_matrix (XWINDOW (f
->tool_bar_window
)->current_matrix
);
1434 /* Set the foreground color for scroll bars on frame F to VALUE.
1435 VALUE should be a string, a color name. If it isn't a string or
1436 isn't a valid color name, do nothing. OLDVAL is the old value of
1437 the frame parameter. */
1440 x_set_scroll_bar_foreground (f
, value
, oldval
)
1442 Lisp_Object value
, oldval
;
1444 unsigned long pixel
;
1446 if (STRINGP (value
))
1447 pixel
= x_decode_color (f
, value
, BLACK_PIX_DEFAULT (f
));
1451 if (f
->output_data
.x
->scroll_bar_foreground_pixel
!= -1)
1452 unload_color (f
, f
->output_data
.x
->scroll_bar_foreground_pixel
);
1454 f
->output_data
.x
->scroll_bar_foreground_pixel
= pixel
;
1455 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1457 /* Remove all scroll bars because they have wrong colors. */
1458 if (condemn_scroll_bars_hook
)
1459 (*condemn_scroll_bars_hook
) (f
);
1460 if (judge_scroll_bars_hook
)
1461 (*judge_scroll_bars_hook
) (f
);
1463 update_face_from_frame_parameter (f
, Qscroll_bar_foreground
, value
);
1469 /* Set the background color for scroll bars on frame F to VALUE VALUE
1470 should be a string, a color name. If it isn't a string or isn't a
1471 valid color name, do nothing. OLDVAL is the old value of the frame
1475 x_set_scroll_bar_background (f
, value
, oldval
)
1477 Lisp_Object value
, oldval
;
1479 unsigned long pixel
;
1481 if (STRINGP (value
))
1482 pixel
= x_decode_color (f
, value
, WHITE_PIX_DEFAULT (f
));
1486 if (f
->output_data
.x
->scroll_bar_background_pixel
!= -1)
1487 unload_color (f
, f
->output_data
.x
->scroll_bar_background_pixel
);
1489 #ifdef USE_TOOLKIT_SCROLL_BARS
1490 /* Scrollbar shadow colors. */
1491 if (f
->output_data
.x
->scroll_bar_top_shadow_pixel
!= -1)
1493 unload_color (f
, f
->output_data
.x
->scroll_bar_top_shadow_pixel
);
1494 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
1496 if (f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
!= -1)
1498 unload_color (f
, f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
);
1499 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
1501 #endif /* USE_TOOLKIT_SCROLL_BARS */
1503 f
->output_data
.x
->scroll_bar_background_pixel
= pixel
;
1504 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1506 /* Remove all scroll bars because they have wrong colors. */
1507 if (condemn_scroll_bars_hook
)
1508 (*condemn_scroll_bars_hook
) (f
);
1509 if (judge_scroll_bars_hook
)
1510 (*judge_scroll_bars_hook
) (f
);
1512 update_face_from_frame_parameter (f
, Qscroll_bar_background
, value
);
1518 /* Encode Lisp string STRING as a text in a format appropriate for
1519 XICCC (X Inter Client Communication Conventions).
1521 If STRING contains only ASCII characters, do no conversion and
1522 return the string data of STRING. Otherwise, encode the text by
1523 CODING_SYSTEM, and return a newly allocated memory area which
1524 should be freed by `xfree' by a caller.
1526 SELECTIONP non-zero means the string is being encoded for an X
1527 selection, so it is safe to run pre-write conversions (which
1530 Store the byte length of resulting text in *TEXT_BYTES.
1532 If the text contains only ASCII and Latin-1, store 1 in *STRING_P,
1533 which means that the `encoding' of the result can be `STRING'.
1534 Otherwise store 0 in *STRINGP, which means that the `encoding' of
1535 the result should be `COMPOUND_TEXT'. */
1537 static unsigned char *
1538 x_encode_text (string
, coding_system
, selectionp
, text_bytes
, stringp
, freep
)
1539 Lisp_Object string
, coding_system
;
1540 int *text_bytes
, *stringp
;
1544 unsigned char *str
= SDATA (string
);
1545 int chars
= SCHARS (string
);
1546 int bytes
= SBYTES (string
);
1550 struct coding_system coding
;
1551 extern Lisp_Object Qcompound_text_with_extensions
;
1553 charset_info
= find_charset_in_text (str
, chars
, bytes
, NULL
, Qnil
);
1554 if (charset_info
== 0)
1556 /* No multibyte character in OBJ. We need not encode it. */
1557 *text_bytes
= bytes
;
1563 setup_coding_system (coding_system
, &coding
);
1565 && SYMBOLP (coding
.pre_write_conversion
)
1566 && !NILP (Ffboundp (coding
.pre_write_conversion
)))
1568 string
= run_pre_post_conversion_on_str (string
, &coding
, 1);
1569 str
= SDATA (string
);
1570 chars
= SCHARS (string
);
1571 bytes
= SBYTES (string
);
1573 coding
.src_multibyte
= 1;
1574 coding
.dst_multibyte
= 0;
1575 coding
.mode
|= CODING_MODE_LAST_BLOCK
;
1576 if (coding
.type
== coding_type_iso2022
)
1577 coding
.flags
|= CODING_FLAG_ISO_SAFE
;
1578 /* We suppress producing escape sequences for composition. */
1579 coding
.composing
= COMPOSITION_DISABLED
;
1580 bufsize
= encoding_buffer_size (&coding
, bytes
);
1581 buf
= (unsigned char *) xmalloc (bufsize
);
1582 encode_coding (&coding
, str
, buf
, bytes
, bufsize
);
1583 *text_bytes
= coding
.produced
;
1584 *stringp
= (charset_info
== 1
1585 || (!EQ (coding_system
, Qcompound_text
)
1586 && !EQ (coding_system
, Qcompound_text_with_extensions
)));
1592 /* Set the WM name to NAME for frame F. Also set the icon name.
1593 If the frame already has an icon name, use that, otherwise set the
1594 icon name to NAME. */
1597 x_set_name_internal (f
, name
)
1601 if (FRAME_X_WINDOW (f
))
1606 XTextProperty text
, icon
;
1608 int do_free_icon_value
= 0, do_free_text_value
= 0;
1609 Lisp_Object coding_system
;
1611 coding_system
= Qcompound_text
;
1612 /* Note: Encoding strategy
1614 We encode NAME by compound-text and use "COMPOUND-TEXT" in
1615 text.encoding. But, there are non-internationalized window
1616 managers which don't support that encoding. So, if NAME
1617 contains only ASCII and 8859-1 characters, encode it by
1618 iso-latin-1, and use "STRING" in text.encoding hoping that
1619 such window managers at least analyze this format correctly,
1620 i.e. treat 8-bit bytes as 8859-1 characters.
1622 We may also be able to use "UTF8_STRING" in text.encoding
1623 in the future which can encode all Unicode characters.
1624 But, for the moment, there's no way to know that the
1625 current window manager supports it or not. */
1626 text
.value
= x_encode_text (name
, coding_system
, 0, &bytes
, &stringp
,
1627 &do_free_text_value
);
1628 text
.encoding
= (stringp
? XA_STRING
1629 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1631 text
.nitems
= bytes
;
1633 if (NILP (f
->icon_name
))
1639 /* See the above comment "Note: Encoding strategy". */
1640 icon
.value
= x_encode_text (f
->icon_name
, coding_system
, 0,
1641 &bytes
, &stringp
, &do_free_icon_value
);
1642 icon
.encoding
= (stringp
? XA_STRING
1643 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1645 icon
.nitems
= bytes
;
1649 gtk_window_set_title (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
1650 (char *) SDATA (ENCODE_UTF_8 (name
)));
1651 #else /* not USE_GTK */
1652 XSetWMName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &text
);
1653 #endif /* not USE_GTK */
1655 XSetWMIconName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &icon
);
1657 if (do_free_icon_value
)
1659 if (do_free_text_value
)
1662 #else /* not HAVE_X11R4 */
1663 XSetIconName (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1665 XStoreName (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1667 #endif /* not HAVE_X11R4 */
1672 /* Change the name of frame F to NAME. If NAME is nil, set F's name to
1675 If EXPLICIT is non-zero, that indicates that lisp code is setting the
1676 name; if NAME is a string, set F's name to NAME and set
1677 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1679 If EXPLICIT is zero, that indicates that Emacs redisplay code is
1680 suggesting a new name, which lisp code should override; if
1681 F->explicit_name is set, ignore the new name; otherwise, set it. */
1684 x_set_name (f
, name
, explicit)
1689 /* Make sure that requests from lisp code override requests from
1690 Emacs redisplay code. */
1693 /* If we're switching from explicit to implicit, we had better
1694 update the mode lines and thereby update the title. */
1695 if (f
->explicit_name
&& NILP (name
))
1696 update_mode_lines
= 1;
1698 f
->explicit_name
= ! NILP (name
);
1700 else if (f
->explicit_name
)
1703 /* If NAME is nil, set the name to the x_id_name. */
1706 /* Check for no change needed in this very common case
1707 before we do any consing. */
1708 if (!strcmp (FRAME_X_DISPLAY_INFO (f
)->x_id_name
,
1711 name
= build_string (FRAME_X_DISPLAY_INFO (f
)->x_id_name
);
1714 CHECK_STRING (name
);
1716 /* Don't change the name if it's already NAME. */
1717 if (! NILP (Fstring_equal (name
, f
->name
)))
1722 /* For setting the frame title, the title parameter should override
1723 the name parameter. */
1724 if (! NILP (f
->title
))
1727 x_set_name_internal (f
, name
);
1730 /* This function should be called when the user's lisp code has
1731 specified a name for the frame; the name will override any set by the
1734 x_explicitly_set_name (f
, arg
, oldval
)
1736 Lisp_Object arg
, oldval
;
1738 x_set_name (f
, arg
, 1);
1741 /* This function should be called by Emacs redisplay code to set the
1742 name; names set this way will never override names set by the user's
1745 x_implicitly_set_name (f
, arg
, oldval
)
1747 Lisp_Object arg
, oldval
;
1749 x_set_name (f
, arg
, 0);
1752 /* Change the title of frame F to NAME.
1753 If NAME is nil, use the frame name as the title.
1755 If EXPLICIT is non-zero, that indicates that lisp code is setting the
1756 name; if NAME is a string, set F's name to NAME and set
1757 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1759 If EXPLICIT is zero, that indicates that Emacs redisplay code is
1760 suggesting a new name, which lisp code should override; if
1761 F->explicit_name is set, ignore the new name; otherwise, set it. */
1764 x_set_title (f
, name
, old_name
)
1766 Lisp_Object name
, old_name
;
1768 /* Don't change the title if it's already NAME. */
1769 if (EQ (name
, f
->title
))
1772 update_mode_lines
= 1;
1779 CHECK_STRING (name
);
1781 x_set_name_internal (f
, name
);
1785 x_set_scroll_bar_default_width (f
)
1788 int wid
= FRAME_COLUMN_WIDTH (f
);
1790 #ifdef USE_TOOLKIT_SCROLL_BARS
1791 /* A minimum width of 14 doesn't look good for toolkit scroll bars. */
1792 int width
= 16 + 2 * VERTICAL_SCROLL_BAR_WIDTH_TRIM
;
1793 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (width
+ wid
- 1) / wid
;
1794 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = width
;
1796 /* Make the actual width at least 14 pixels and a multiple of a
1798 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (14 + wid
- 1) / wid
;
1800 /* Use all of that space (aside from required margins) for the
1802 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = 0;
1807 /* Record in frame F the specified or default value according to ALIST
1808 of the parameter named PROP (a Lisp symbol). If no value is
1809 specified for PROP, look for an X default for XPROP on the frame
1810 named NAME. If that is not found either, use the value DEFLT. */
1813 x_default_scroll_bar_color_parameter (f
, alist
, prop
, xprop
, xclass
,
1822 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
1825 tem
= x_get_arg (dpyinfo
, alist
, prop
, xprop
, xclass
, RES_TYPE_STRING
);
1826 if (EQ (tem
, Qunbound
))
1828 #ifdef USE_TOOLKIT_SCROLL_BARS
1830 /* See if an X resource for the scroll bar color has been
1832 tem
= display_x_get_resource (dpyinfo
,
1833 build_string (foreground_p
1837 build_string ("verticalScrollBar"),
1841 /* If nothing has been specified, scroll bars will use a
1842 toolkit-dependent default. Because these defaults are
1843 difficult to get at without actually creating a scroll
1844 bar, use nil to indicate that no color has been
1849 #else /* not USE_TOOLKIT_SCROLL_BARS */
1853 #endif /* not USE_TOOLKIT_SCROLL_BARS */
1856 x_set_frame_parameters (f
, Fcons (Fcons (prop
, tem
), Qnil
));
1862 #if !defined (HAVE_X11R4) && !defined (HAVE_XSETWMPROTOCOLS)
1865 XSetWMProtocols (dpy
, w
, protocols
, count
)
1872 prop
= XInternAtom (dpy
, "WM_PROTOCOLS", False
);
1873 if (prop
== None
) return False
;
1874 XChangeProperty (dpy
, w
, prop
, XA_ATOM
, 32, PropModeReplace
,
1875 (unsigned char *) protocols
, count
);
1878 #endif /* not HAVE_X11R4 && not HAVE_XSETWMPROTOCOLS */
1880 #ifdef USE_X_TOOLKIT
1882 /* If the WM_PROTOCOLS property does not already contain WM_TAKE_FOCUS,
1883 WM_DELETE_WINDOW, and WM_SAVE_YOURSELF, then add them. (They may
1884 already be present because of the toolkit (Motif adds some of them,
1885 for example, but Xt doesn't). */
1888 hack_wm_protocols (f
, widget
)
1892 Display
*dpy
= XtDisplay (widget
);
1893 Window w
= XtWindow (widget
);
1894 int need_delete
= 1;
1901 unsigned char *catoms
;
1903 unsigned long nitems
= 0;
1904 unsigned long bytes_after
;
1906 if ((XGetWindowProperty (dpy
, w
,
1907 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1908 (long)0, (long)100, False
, XA_ATOM
,
1909 &type
, &format
, &nitems
, &bytes_after
,
1912 && format
== 32 && type
== XA_ATOM
)
1914 Atom
*atoms
= (Atom
*) catoms
;
1919 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
)
1921 else if (atoms
[nitems
]
1922 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
)
1924 else if (atoms
[nitems
]
1925 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
)
1936 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
1938 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
;
1940 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
1942 XChangeProperty (dpy
, w
, FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1943 XA_ATOM
, 32, PropModeAppend
,
1944 (unsigned char *) props
, count
);
1952 /* Support routines for XIC (X Input Context). */
1956 static XFontSet xic_create_xfontset
P_ ((struct frame
*, char *));
1957 static XIMStyle best_xim_style
P_ ((XIMStyles
*, XIMStyles
*));
1960 /* Supported XIM styles, ordered by preference. */
1962 static XIMStyle supported_xim_styles
[] =
1964 XIMPreeditPosition
| XIMStatusArea
,
1965 XIMPreeditPosition
| XIMStatusNothing
,
1966 XIMPreeditPosition
| XIMStatusNone
,
1967 XIMPreeditNothing
| XIMStatusArea
,
1968 XIMPreeditNothing
| XIMStatusNothing
,
1969 XIMPreeditNothing
| XIMStatusNone
,
1970 XIMPreeditNone
| XIMStatusArea
,
1971 XIMPreeditNone
| XIMStatusNothing
,
1972 XIMPreeditNone
| XIMStatusNone
,
1977 /* Create an X fontset on frame F with base font name BASE_FONTNAME. */
1979 char xic_defaut_fontset
[] = "-*-*-*-r-normal--14-*-*-*-*-*-*-*";
1981 /* Create an Xt fontset spec from the name of a base font.
1982 If `motif' is True use the Motif syntax. */
1984 xic_create_fontsetname (base_fontname
, motif
)
1985 char *base_fontname
;
1988 const char *sep
= motif
? ";" : ",";
1991 /* Make a fontset name from the base font name. */
1992 if (xic_defaut_fontset
== base_fontname
)
1993 { /* There is no base font name, use the default. */
1994 int len
= strlen (base_fontname
) + 2;
1995 fontsetname
= xmalloc (len
);
1996 bzero (fontsetname
, len
);
1997 strcpy (fontsetname
, base_fontname
);
2001 /* Make a fontset name from the base font name.
2002 The font set will be made of the following elements:
2004 - the base font where the charset spec is replaced by -*-*.
2005 - the same but with the family also replaced with -*-*-. */
2006 char *p
= base_fontname
;
2009 for (i
= 0; *p
; p
++)
2012 { /* As the font name doesn't conform to XLFD, we can't
2013 modify it to generalize it to allcs and allfamilies.
2014 Use the specified font plus the default. */
2015 int len
= strlen (base_fontname
) + strlen (xic_defaut_fontset
) + 3;
2016 fontsetname
= xmalloc (len
);
2017 bzero (fontsetname
, len
);
2018 strcpy (fontsetname
, base_fontname
);
2019 strcat (fontsetname
, sep
);
2020 strcat (fontsetname
, xic_defaut_fontset
);
2025 char *p1
= NULL
, *p2
= NULL
;
2026 char *font_allcs
= NULL
;
2027 char *font_allfamilies
= NULL
;
2028 char *font_all
= NULL
;
2029 char *allcs
= "*-*-*-*-*-*-*";
2030 char *allfamilies
= "-*-*-";
2031 char *all
= "*-*-*-*-";
2033 for (i
= 0, p
= base_fontname
; i
< 8; p
++)
2044 /* Build the font spec that matches all charsets. */
2045 len
= p
- base_fontname
+ strlen (allcs
) + 1;
2046 font_allcs
= (char *) alloca (len
);
2047 bzero (font_allcs
, len
);
2048 bcopy (base_fontname
, font_allcs
, p
- base_fontname
);
2049 strcat (font_allcs
, allcs
);
2051 /* Build the font spec that matches all families. */
2052 len
= p
- p1
+ strlen (allcs
) + strlen (allfamilies
) + 1;
2053 font_allfamilies
= (char *) alloca (len
);
2054 bzero (font_allfamilies
, len
);
2055 strcpy (font_allfamilies
, allfamilies
);
2056 bcopy (p1
, font_allfamilies
+ strlen (allfamilies
), p
- p1
);
2057 strcat (font_allfamilies
, allcs
);
2059 /* Build the font spec that matches all. */
2060 len
= p
- p2
+ strlen (allcs
) + strlen (all
) + strlen (allfamilies
) + 1;
2061 font_all
= (char *) alloca (len
);
2062 bzero (font_all
, len
);
2063 strcpy (font_all
, allfamilies
);
2064 strcat (font_all
, all
);
2065 bcopy (p2
, font_all
+ strlen (all
) + strlen (allfamilies
), p
- p2
);
2066 strcat (font_all
, allcs
);
2068 /* Build the actual font set name. */
2069 len
= strlen (base_fontname
) + strlen (font_allcs
)
2070 + strlen (font_allfamilies
) + strlen (font_all
) + 5;
2071 fontsetname
= xmalloc (len
);
2072 bzero (fontsetname
, len
);
2073 strcpy (fontsetname
, base_fontname
);
2074 strcat (fontsetname
, sep
);
2075 strcat (fontsetname
, font_allcs
);
2076 strcat (fontsetname
, sep
);
2077 strcat (fontsetname
, font_allfamilies
);
2078 strcat (fontsetname
, sep
);
2079 strcat (fontsetname
, font_all
);
2083 strcat (fontsetname
, ":");
2088 xic_create_xfontset (f
, base_fontname
)
2090 char *base_fontname
;
2092 XFontSet xfs
= NULL
;
2093 char **missing_list
= NULL
;
2096 Lisp_Object rest
, frame
;
2099 base_fontname
= xic_defaut_fontset
;
2101 /* See if there is another frame already using same fontset. */
2102 FOR_EACH_FRAME (rest
, frame
)
2104 struct frame
*cf
= XFRAME (frame
);
2105 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
2106 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
2107 && FRAME_XIC_BASE_FONTNAME (cf
)
2108 && !strcmp (FRAME_XIC_BASE_FONTNAME (cf
), base_fontname
))
2110 xfs
= FRAME_XIC_FONTSET (cf
);
2117 char *fontsetname
= xic_create_fontsetname (base_fontname
, False
);
2120 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
),
2121 fontsetname
, &missing_list
,
2122 &missing_count
, &def_string
);
2124 XFreeStringList (missing_list
);
2125 xfree (fontsetname
);
2128 if (FRAME_XIC_BASE_FONTNAME (f
))
2129 xfree (FRAME_XIC_BASE_FONTNAME (f
));
2130 FRAME_XIC_BASE_FONTNAME (f
) = xstrdup (base_fontname
);
2132 /* No need to free def_string. */
2136 /* Free the X fontset of frame F if it is the last frame using it. */
2139 xic_free_xfontset (f
)
2142 Lisp_Object rest
, frame
;
2145 if (!FRAME_XIC_FONTSET (f
))
2148 /* See if there is another frame sharing the same fontset. */
2149 FOR_EACH_FRAME (rest
, frame
)
2151 struct frame
*cf
= XFRAME (frame
);
2152 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
2153 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
2154 && FRAME_XIC_FONTSET (cf
) == FRAME_XIC_FONTSET (f
))
2162 /* The fontset is not used anymore. It is safe to free it. */
2163 XFreeFontSet (FRAME_X_DISPLAY (f
), FRAME_XIC_FONTSET (f
));
2165 if (FRAME_XIC_BASE_FONTNAME (f
))
2166 xfree (FRAME_XIC_BASE_FONTNAME (f
));
2167 FRAME_XIC_BASE_FONTNAME (f
) = NULL
;
2168 FRAME_XIC_FONTSET (f
) = NULL
;
2172 /* Value is the best input style, given user preferences USER (already
2173 checked to be supported by Emacs), and styles supported by the
2174 input method XIM. */
2177 best_xim_style (user
, xim
)
2183 for (i
= 0; i
< user
->count_styles
; ++i
)
2184 for (j
= 0; j
< xim
->count_styles
; ++j
)
2185 if (user
->supported_styles
[i
] == xim
->supported_styles
[j
])
2186 return user
->supported_styles
[i
];
2188 /* Return the default style. */
2189 return XIMPreeditNothing
| XIMStatusNothing
;
2192 /* Create XIC for frame F. */
2194 static XIMStyle xic_style
;
2197 create_frame_xic (f
)
2202 XFontSet xfs
= NULL
;
2207 /* Create X fontset. */
2208 xfs
= xic_create_xfontset
2209 (f
, (FRAME_FONTSET (f
) < 0) ? NULL
2210 : (char *) SDATA (fontset_ascii (FRAME_FONTSET (f
))));
2212 xim
= FRAME_X_XIM (f
);
2217 XVaNestedList preedit_attr
;
2218 XVaNestedList status_attr
;
2220 s_area
.x
= 0; s_area
.y
= 0; s_area
.width
= 1; s_area
.height
= 1;
2221 spot
.x
= 0; spot
.y
= 1;
2223 /* Determine XIC style. */
2226 XIMStyles supported_list
;
2227 supported_list
.count_styles
= (sizeof supported_xim_styles
2228 / sizeof supported_xim_styles
[0]);
2229 supported_list
.supported_styles
= supported_xim_styles
;
2230 xic_style
= best_xim_style (&supported_list
,
2231 FRAME_X_XIM_STYLES (f
));
2234 preedit_attr
= XVaCreateNestedList (0,
2237 FRAME_FOREGROUND_PIXEL (f
),
2239 FRAME_BACKGROUND_PIXEL (f
),
2240 (xic_style
& XIMPreeditPosition
2245 status_attr
= XVaCreateNestedList (0,
2251 FRAME_FOREGROUND_PIXEL (f
),
2253 FRAME_BACKGROUND_PIXEL (f
),
2256 xic
= XCreateIC (xim
,
2257 XNInputStyle
, xic_style
,
2258 XNClientWindow
, FRAME_X_WINDOW (f
),
2259 XNFocusWindow
, FRAME_X_WINDOW (f
),
2260 XNStatusAttributes
, status_attr
,
2261 XNPreeditAttributes
, preedit_attr
,
2263 XFree (preedit_attr
);
2264 XFree (status_attr
);
2267 FRAME_XIC (f
) = xic
;
2268 FRAME_XIC_STYLE (f
) = xic_style
;
2269 FRAME_XIC_FONTSET (f
) = xfs
;
2273 /* Destroy XIC and free XIC fontset of frame F, if any. */
2279 if (FRAME_XIC (f
) == NULL
)
2282 XDestroyIC (FRAME_XIC (f
));
2283 xic_free_xfontset (f
);
2285 FRAME_XIC (f
) = NULL
;
2289 /* Place preedit area for XIC of window W's frame to specified
2290 pixel position X/Y. X and Y are relative to window W. */
2293 xic_set_preeditarea (w
, x
, y
)
2297 struct frame
*f
= XFRAME (w
->frame
);
2301 spot
.x
= WINDOW_TO_FRAME_PIXEL_X (w
, x
) + WINDOW_LEFT_FRINGE_WIDTH (w
);
2302 spot
.y
= WINDOW_TO_FRAME_PIXEL_Y (w
, y
) + FONT_BASE (FRAME_FONT (f
));
2303 attr
= XVaCreateNestedList (0, XNSpotLocation
, &spot
, NULL
);
2304 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2309 /* Place status area for XIC in bottom right corner of frame F.. */
2312 xic_set_statusarea (f
)
2315 XIC xic
= FRAME_XIC (f
);
2320 /* Negotiate geometry of status area. If input method has existing
2321 status area, use its current size. */
2322 area
.x
= area
.y
= area
.width
= area
.height
= 0;
2323 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &area
, NULL
);
2324 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2327 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &needed
, NULL
);
2328 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2331 if (needed
->width
== 0) /* Use XNArea instead of XNAreaNeeded */
2333 attr
= XVaCreateNestedList (0, XNArea
, &needed
, NULL
);
2334 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2338 area
.width
= needed
->width
;
2339 area
.height
= needed
->height
;
2340 area
.x
= FRAME_PIXEL_WIDTH (f
) - area
.width
- FRAME_INTERNAL_BORDER_WIDTH (f
);
2341 area
.y
= (FRAME_PIXEL_HEIGHT (f
) - area
.height
2342 - FRAME_MENUBAR_HEIGHT (f
)
2343 - FRAME_TOOLBAR_HEIGHT (f
)
2344 - FRAME_INTERNAL_BORDER_WIDTH (f
));
2347 attr
= XVaCreateNestedList (0, XNArea
, &area
, NULL
);
2348 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2353 /* Set X fontset for XIC of frame F, using base font name
2354 BASE_FONTNAME. Called when a new Emacs fontset is chosen. */
2357 xic_set_xfontset (f
, base_fontname
)
2359 char *base_fontname
;
2364 xic_free_xfontset (f
);
2366 xfs
= xic_create_xfontset (f
, base_fontname
);
2368 attr
= XVaCreateNestedList (0, XNFontSet
, xfs
, NULL
);
2369 if (FRAME_XIC_STYLE (f
) & XIMPreeditPosition
)
2370 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2371 if (FRAME_XIC_STYLE (f
) & XIMStatusArea
)
2372 XSetICValues (FRAME_XIC (f
), XNStatusAttributes
, attr
, NULL
);
2375 FRAME_XIC_FONTSET (f
) = xfs
;
2378 #endif /* HAVE_X_I18N */
2382 #ifdef USE_X_TOOLKIT
2384 /* Create and set up the X widget for frame F. */
2387 x_window (f
, window_prompting
, minibuffer_only
)
2389 long window_prompting
;
2390 int minibuffer_only
;
2392 XClassHint class_hints
;
2393 XSetWindowAttributes attributes
;
2394 unsigned long attribute_mask
;
2395 Widget shell_widget
;
2397 Widget frame_widget
;
2403 /* Use the resource name as the top-level widget name
2404 for looking up resources. Make a non-Lisp copy
2405 for the window manager, so GC relocation won't bother it.
2407 Elsewhere we specify the window name for the window manager. */
2410 char *str
= (char *) SDATA (Vx_resource_name
);
2411 f
->namebuf
= (char *) xmalloc (strlen (str
) + 1);
2412 strcpy (f
->namebuf
, str
);
2416 XtSetArg (al
[ac
], XtNallowShellResize
, 1); ac
++;
2417 XtSetArg (al
[ac
], XtNinput
, 1); ac
++;
2418 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2419 XtSetArg (al
[ac
], XtNborderWidth
, f
->border_width
); ac
++;
2420 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2421 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2422 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2423 shell_widget
= XtAppCreateShell (f
->namebuf
, EMACS_CLASS
,
2424 applicationShellWidgetClass
,
2425 FRAME_X_DISPLAY (f
), al
, ac
);
2427 f
->output_data
.x
->widget
= shell_widget
;
2428 /* maybe_set_screen_title_format (shell_widget); */
2430 pane_widget
= lw_create_widget ("main", "pane", widget_id_tick
++,
2431 (widget_value
*) NULL
,
2432 shell_widget
, False
,
2436 (lw_callback
) NULL
);
2439 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2440 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2441 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2442 XtSetValues (pane_widget
, al
, ac
);
2443 f
->output_data
.x
->column_widget
= pane_widget
;
2445 /* mappedWhenManaged to false tells to the paned window to not map/unmap
2446 the emacs screen when changing menubar. This reduces flickering. */
2449 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2450 XtSetArg (al
[ac
], XtNshowGrip
, 0); ac
++;
2451 XtSetArg (al
[ac
], XtNallowResize
, 1); ac
++;
2452 XtSetArg (al
[ac
], XtNresizeToPreferred
, 1); ac
++;
2453 XtSetArg (al
[ac
], XtNemacsFrame
, f
); ac
++;
2454 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2455 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2456 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2457 frame_widget
= XtCreateWidget (f
->namebuf
, emacsFrameClass
, pane_widget
,
2460 f
->output_data
.x
->edit_widget
= frame_widget
;
2462 XtManageChild (frame_widget
);
2464 /* Do some needed geometry management. */
2467 char *tem
, shell_position
[32];
2470 int extra_borders
= 0;
2472 = (f
->output_data
.x
->menubar_widget
2473 ? (f
->output_data
.x
->menubar_widget
->core
.height
2474 + f
->output_data
.x
->menubar_widget
->core
.border_width
)
2477 #if 0 /* Experimentally, we now get the right results
2478 for -geometry -0-0 without this. 24 Aug 96, rms. */
2479 if (FRAME_EXTERNAL_MENU_BAR (f
))
2482 XtVaGetValues (pane_widget
, XtNinternalBorderWidth
, &ibw
, NULL
);
2483 menubar_size
+= ibw
;
2487 f
->output_data
.x
->menubar_height
= menubar_size
;
2490 /* Motif seems to need this amount added to the sizes
2491 specified for the shell widget. The Athena/Lucid widgets don't.
2492 Both conclusions reached experimentally. -- rms. */
2493 XtVaGetValues (f
->output_data
.x
->edit_widget
, XtNinternalBorderWidth
,
2494 &extra_borders
, NULL
);
2498 /* Convert our geometry parameters into a geometry string
2500 Note that we do not specify here whether the position
2501 is a user-specified or program-specified one.
2502 We pass that information later, in x_wm_set_size_hints. */
2504 int left
= f
->left_pos
;
2505 int xneg
= window_prompting
& XNegative
;
2506 int top
= f
->top_pos
;
2507 int yneg
= window_prompting
& YNegative
;
2513 if (window_prompting
& USPosition
)
2514 sprintf (shell_position
, "=%dx%d%c%d%c%d",
2515 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2516 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
,
2517 (xneg
? '-' : '+'), left
,
2518 (yneg
? '-' : '+'), top
);
2521 sprintf (shell_position
, "=%dx%d",
2522 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2523 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
);
2525 /* Setting x and y when the position is not specified in
2526 the geometry string will set program position in the WM hints.
2527 If Emacs had just one program position, we could set it in
2528 fallback resources, but since each make-frame call can specify
2529 different program positions, this is easier. */
2530 XtSetArg (al
[ac
], XtNx
, left
); ac
++;
2531 XtSetArg (al
[ac
], XtNy
, top
); ac
++;
2535 len
= strlen (shell_position
) + 1;
2536 /* We don't free this because we don't know whether
2537 it is safe to free it while the frame exists.
2538 It isn't worth the trouble of arranging to free it
2539 when the frame is deleted. */
2540 tem
= (char *) xmalloc (len
);
2541 strncpy (tem
, shell_position
, len
);
2542 XtSetArg (al
[ac
], XtNgeometry
, tem
); ac
++;
2543 XtSetValues (shell_widget
, al
, ac
);
2546 XtManageChild (pane_widget
);
2547 XtRealizeWidget (shell_widget
);
2549 FRAME_X_WINDOW (f
) = XtWindow (frame_widget
);
2551 validate_x_resource_name ();
2553 class_hints
.res_name
= (char *) SDATA (Vx_resource_name
);
2554 class_hints
.res_class
= (char *) SDATA (Vx_resource_class
);
2555 XSetClassHint (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
), &class_hints
);
2558 FRAME_XIC (f
) = NULL
;
2560 create_frame_xic (f
);
2563 f
->output_data
.x
->wm_hints
.input
= True
;
2564 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2565 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2566 &f
->output_data
.x
->wm_hints
);
2568 hack_wm_protocols (f
, shell_widget
);
2571 XtAddEventHandler (shell_widget
, 0, True
, _XEditResCheckMessages
, 0);
2574 /* Do a stupid property change to force the server to generate a
2575 PropertyNotify event so that the event_stream server timestamp will
2576 be initialized to something relevant to the time we created the window.
2578 XChangeProperty (XtDisplay (frame_widget
), XtWindow (frame_widget
),
2579 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
2580 XA_ATOM
, 32, PropModeAppend
,
2581 (unsigned char*) NULL
, 0);
2583 /* Make all the standard events reach the Emacs frame. */
2584 attributes
.event_mask
= STANDARD_EVENT_SET
;
2589 /* XIM server might require some X events. */
2590 unsigned long fevent
= NoEventMask
;
2591 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2592 attributes
.event_mask
|= fevent
;
2594 #endif /* HAVE_X_I18N */
2596 attribute_mask
= CWEventMask
;
2597 XChangeWindowAttributes (XtDisplay (shell_widget
), XtWindow (shell_widget
),
2598 attribute_mask
, &attributes
);
2600 XtMapWidget (frame_widget
);
2602 /* x_set_name normally ignores requests to set the name if the
2603 requested name is the same as the current name. This is the one
2604 place where that assumption isn't correct; f->name is set, but
2605 the X server hasn't been told. */
2608 int explicit = f
->explicit_name
;
2610 f
->explicit_name
= 0;
2613 x_set_name (f
, name
, explicit);
2616 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2617 f
->output_data
.x
->text_cursor
);
2621 /* This is a no-op, except under Motif. Make sure main areas are
2622 set to something reasonable, in case we get an error later. */
2623 lw_set_main_areas (pane_widget
, 0, frame_widget
);
2626 #else /* not USE_X_TOOLKIT */
2632 if (! xg_create_frame_widgets (f
))
2633 error ("Unable to create window");
2636 FRAME_XIC (f
) = NULL
;
2640 create_frame_xic (f
);
2643 /* XIM server might require some X events. */
2644 unsigned long fevent
= NoEventMask
;
2645 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2647 if (fevent
!= NoEventMask
)
2649 XSetWindowAttributes attributes
;
2650 XWindowAttributes wattr
;
2651 unsigned long attribute_mask
;
2653 XGetWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2655 attributes
.event_mask
= wattr
.your_event_mask
| fevent
;
2656 attribute_mask
= CWEventMask
;
2657 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2658 attribute_mask
, &attributes
);
2666 #else /*! USE_GTK */
2667 /* Create and set up the X window for frame F. */
2674 XClassHint class_hints
;
2675 XSetWindowAttributes attributes
;
2676 unsigned long attribute_mask
;
2678 attributes
.background_pixel
= f
->output_data
.x
->background_pixel
;
2679 attributes
.border_pixel
= f
->output_data
.x
->border_pixel
;
2680 attributes
.bit_gravity
= StaticGravity
;
2681 attributes
.backing_store
= NotUseful
;
2682 attributes
.save_under
= True
;
2683 attributes
.event_mask
= STANDARD_EVENT_SET
;
2684 attributes
.colormap
= FRAME_X_COLORMAP (f
);
2685 attribute_mask
= (CWBackPixel
| CWBorderPixel
| CWBitGravity
| CWEventMask
2690 = XCreateWindow (FRAME_X_DISPLAY (f
),
2691 f
->output_data
.x
->parent_desc
,
2694 FRAME_PIXEL_WIDTH (f
), FRAME_PIXEL_HEIGHT (f
),
2696 CopyFromParent
, /* depth */
2697 InputOutput
, /* class */
2699 attribute_mask
, &attributes
);
2704 create_frame_xic (f
);
2707 /* XIM server might require some X events. */
2708 unsigned long fevent
= NoEventMask
;
2709 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2710 attributes
.event_mask
|= fevent
;
2711 attribute_mask
= CWEventMask
;
2712 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2713 attribute_mask
, &attributes
);
2716 #endif /* HAVE_X_I18N */
2718 validate_x_resource_name ();
2720 class_hints
.res_name
= (char *) SDATA (Vx_resource_name
);
2721 class_hints
.res_class
= (char *) SDATA (Vx_resource_class
);
2722 XSetClassHint (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), &class_hints
);
2724 /* The menubar is part of the ordinary display;
2725 it does not count in addition to the height of the window. */
2726 f
->output_data
.x
->menubar_height
= 0;
2728 /* This indicates that we use the "Passive Input" input model.
2729 Unless we do this, we don't get the Focus{In,Out} events that we
2730 need to draw the cursor correctly. Accursed bureaucrats.
2731 XWhipsAndChains (FRAME_X_DISPLAY (f), IronMaiden, &TheRack); */
2733 f
->output_data
.x
->wm_hints
.input
= True
;
2734 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2735 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2736 &f
->output_data
.x
->wm_hints
);
2737 f
->output_data
.x
->wm_hints
.icon_pixmap
= None
;
2739 /* Request "save yourself" and "delete window" commands from wm. */
2742 protocols
[0] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
2743 protocols
[1] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
2744 XSetWMProtocols (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), protocols
, 2);
2747 /* x_set_name normally ignores requests to set the name if the
2748 requested name is the same as the current name. This is the one
2749 place where that assumption isn't correct; f->name is set, but
2750 the X server hasn't been told. */
2753 int explicit = f
->explicit_name
;
2755 f
->explicit_name
= 0;
2758 x_set_name (f
, name
, explicit);
2761 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2762 f
->output_data
.x
->text_cursor
);
2766 if (FRAME_X_WINDOW (f
) == 0)
2767 error ("Unable to create window");
2770 #endif /* not USE_GTK */
2771 #endif /* not USE_X_TOOLKIT */
2773 /* Verify that the icon position args for this window are valid. */
2776 x_icon_verify (f
, parms
)
2780 Lisp_Object icon_x
, icon_y
;
2782 /* Set the position of the icon. Note that twm groups all
2783 icons in an icon window. */
2784 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2785 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2786 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2788 CHECK_NUMBER (icon_x
);
2789 CHECK_NUMBER (icon_y
);
2791 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2792 error ("Both left and top icon corners of icon must be specified");
2795 /* Handle the icon stuff for this window. Perhaps later we might
2796 want an x_set_icon_position which can be called interactively as
2804 Lisp_Object icon_x
, icon_y
;
2805 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2807 /* Set the position of the icon. Note that twm groups all
2808 icons in an icon window. */
2809 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2810 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2811 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2813 CHECK_NUMBER (icon_x
);
2814 CHECK_NUMBER (icon_y
);
2816 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2817 error ("Both left and top icon corners of icon must be specified");
2821 if (! EQ (icon_x
, Qunbound
))
2822 x_wm_set_icon_position (f
, XINT (icon_x
), XINT (icon_y
));
2824 /* Start up iconic or window? */
2825 x_wm_set_window_state
2826 (f
, (EQ (x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0, RES_TYPE_SYMBOL
),
2831 x_text_icon (f
, (char *) SDATA ((!NILP (f
->icon_name
)
2838 /* Make the GCs needed for this window, setting the
2839 background, border and mouse colors; also create the
2840 mouse cursor and the gray border tile. */
2842 static char cursor_bits
[] =
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,
2847 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00
2854 XGCValues gc_values
;
2858 /* Create the GCs of this frame.
2859 Note that many default values are used. */
2862 gc_values
.font
= FRAME_FONT (f
)->fid
;
2863 gc_values
.foreground
= f
->output_data
.x
->foreground_pixel
;
2864 gc_values
.background
= f
->output_data
.x
->background_pixel
;
2865 gc_values
.line_width
= 0; /* Means 1 using fast algorithm. */
2866 f
->output_data
.x
->normal_gc
2867 = XCreateGC (FRAME_X_DISPLAY (f
),
2869 GCLineWidth
| GCFont
| GCForeground
| GCBackground
,
2872 /* Reverse video style. */
2873 gc_values
.foreground
= f
->output_data
.x
->background_pixel
;
2874 gc_values
.background
= f
->output_data
.x
->foreground_pixel
;
2875 f
->output_data
.x
->reverse_gc
2876 = XCreateGC (FRAME_X_DISPLAY (f
),
2878 GCFont
| GCForeground
| GCBackground
| GCLineWidth
,
2881 /* Cursor has cursor-color background, background-color foreground. */
2882 gc_values
.foreground
= f
->output_data
.x
->background_pixel
;
2883 gc_values
.background
= f
->output_data
.x
->cursor_pixel
;
2884 gc_values
.fill_style
= FillOpaqueStippled
;
2886 = XCreateBitmapFromData (FRAME_X_DISPLAY (f
),
2887 FRAME_X_DISPLAY_INFO (f
)->root_window
,
2888 cursor_bits
, 16, 16);
2889 f
->output_data
.x
->cursor_gc
2890 = XCreateGC (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2891 (GCFont
| GCForeground
| GCBackground
2892 | GCFillStyle
/* | GCStipple */ | GCLineWidth
),
2896 f
->output_data
.x
->white_relief
.gc
= 0;
2897 f
->output_data
.x
->black_relief
.gc
= 0;
2899 /* Create the gray border tile used when the pointer is not in
2900 the frame. Since this depends on the frame's pixel values,
2901 this must be done on a per-frame basis. */
2902 f
->output_data
.x
->border_tile
2903 = (XCreatePixmapFromBitmapData
2904 (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
2905 gray_bits
, gray_width
, gray_height
,
2906 f
->output_data
.x
->foreground_pixel
,
2907 f
->output_data
.x
->background_pixel
,
2908 DefaultDepth (FRAME_X_DISPLAY (f
), FRAME_X_SCREEN_NUMBER (f
))));
2914 /* Free what was was allocated in x_make_gc. */
2920 Display
*dpy
= FRAME_X_DISPLAY (f
);
2924 if (f
->output_data
.x
->normal_gc
)
2926 XFreeGC (dpy
, f
->output_data
.x
->normal_gc
);
2927 f
->output_data
.x
->normal_gc
= 0;
2930 if (f
->output_data
.x
->reverse_gc
)
2932 XFreeGC (dpy
, f
->output_data
.x
->reverse_gc
);
2933 f
->output_data
.x
->reverse_gc
= 0;
2936 if (f
->output_data
.x
->cursor_gc
)
2938 XFreeGC (dpy
, f
->output_data
.x
->cursor_gc
);
2939 f
->output_data
.x
->cursor_gc
= 0;
2942 if (f
->output_data
.x
->border_tile
)
2944 XFreePixmap (dpy
, f
->output_data
.x
->border_tile
);
2945 f
->output_data
.x
->border_tile
= 0;
2952 /* Handler for signals raised during x_create_frame and
2953 x_create_top_frame. FRAME is the frame which is partially
2957 unwind_create_frame (frame
)
2960 struct frame
*f
= XFRAME (frame
);
2962 /* If frame is ``official'', nothing to do. */
2963 if (!CONSP (Vframe_list
) || !EQ (XCAR (Vframe_list
), frame
))
2966 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2969 x_free_frame_resources (f
);
2972 /* Check that reference counts are indeed correct. */
2973 xassert (dpyinfo
->reference_count
== dpyinfo_refcount
);
2974 xassert (dpyinfo
->image_cache
->refcount
== image_cache_refcount
);
2983 DEFUN ("x-create-frame", Fx_create_frame
, Sx_create_frame
,
2985 doc
: /* Make a new X window, which is called a "frame" in Emacs terms.
2986 Returns an Emacs frame object.
2987 ALIST is an alist of frame parameters.
2988 If the parameters specify that the frame should not have a minibuffer,
2989 and do not specify a specific minibuffer window to use,
2990 then `default-minibuffer-frame' must be a frame whose minibuffer can
2991 be shared by the new frame.
2993 This function is an internal primitive--use `make-frame' instead. */)
2998 Lisp_Object frame
, tem
;
3000 int minibuffer_only
= 0;
3001 long window_prompting
= 0;
3003 int count
= SPECPDL_INDEX ();
3004 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
3005 Lisp_Object display
;
3006 struct x_display_info
*dpyinfo
= NULL
;
3012 parms
= Fcopy_alist (parms
);
3014 /* Use this general default value to start with
3015 until we know if this frame has a specified name. */
3016 Vx_resource_name
= Vinvocation_name
;
3018 display
= x_get_arg (dpyinfo
, parms
, Qdisplay
, 0, 0, RES_TYPE_STRING
);
3019 if (EQ (display
, Qunbound
))
3021 dpyinfo
= check_x_display_info (display
);
3023 kb
= dpyinfo
->kboard
;
3025 kb
= &the_only_kboard
;
3028 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
3030 && ! EQ (name
, Qunbound
)
3032 error ("Invalid frame name--not a string or nil");
3035 Vx_resource_name
= name
;
3037 /* See if parent window is specified. */
3038 parent
= x_get_arg (dpyinfo
, parms
, Qparent_id
, NULL
, NULL
, RES_TYPE_NUMBER
);
3039 if (EQ (parent
, Qunbound
))
3041 if (! NILP (parent
))
3042 CHECK_NUMBER (parent
);
3044 /* make_frame_without_minibuffer can run Lisp code and garbage collect. */
3045 /* No need to protect DISPLAY because that's not used after passing
3046 it to make_frame_without_minibuffer. */
3048 GCPRO4 (parms
, parent
, name
, frame
);
3049 tem
= x_get_arg (dpyinfo
, parms
, Qminibuffer
, "minibuffer", "Minibuffer",
3051 if (EQ (tem
, Qnone
) || NILP (tem
))
3052 f
= make_frame_without_minibuffer (Qnil
, kb
, display
);
3053 else if (EQ (tem
, Qonly
))
3055 f
= make_minibuffer_frame ();
3056 minibuffer_only
= 1;
3058 else if (WINDOWP (tem
))
3059 f
= make_frame_without_minibuffer (tem
, kb
, display
);
3063 XSETFRAME (frame
, f
);
3065 /* Note that X Windows does support scroll bars. */
3066 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 1;
3068 f
->output_method
= output_x_window
;
3069 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
3070 bzero (f
->output_data
.x
, sizeof (struct x_output
));
3071 f
->output_data
.x
->icon_bitmap
= -1;
3072 FRAME_FONTSET (f
) = -1;
3073 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
3074 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
3075 #ifdef USE_TOOLKIT_SCROLL_BARS
3076 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
3077 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
3078 #endif /* USE_TOOLKIT_SCROLL_BARS */
3079 record_unwind_protect (unwind_create_frame
, frame
);
3082 = x_get_arg (dpyinfo
, parms
, Qicon_name
, "iconName", "Title",
3084 if (! STRINGP (f
->icon_name
))
3085 f
->icon_name
= Qnil
;
3087 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
3089 image_cache_refcount
= FRAME_X_IMAGE_CACHE (f
)->refcount
;
3090 dpyinfo_refcount
= dpyinfo
->reference_count
;
3091 #endif /* GLYPH_DEBUG */
3093 FRAME_KBOARD (f
) = kb
;
3096 /* These colors will be set anyway later, but it's important
3097 to get the color reference counts right, so initialize them! */
3100 struct gcpro gcpro1
;
3102 /* Function x_decode_color can signal an error. Make
3103 sure to initialize color slots so that we won't try
3104 to free colors we haven't allocated. */
3105 f
->output_data
.x
->foreground_pixel
= -1;
3106 f
->output_data
.x
->background_pixel
= -1;
3107 f
->output_data
.x
->cursor_pixel
= -1;
3108 f
->output_data
.x
->cursor_foreground_pixel
= -1;
3109 f
->output_data
.x
->border_pixel
= -1;
3110 f
->output_data
.x
->mouse_pixel
= -1;
3112 black
= build_string ("black");
3114 f
->output_data
.x
->foreground_pixel
3115 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3116 f
->output_data
.x
->background_pixel
3117 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3118 f
->output_data
.x
->cursor_pixel
3119 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3120 f
->output_data
.x
->cursor_foreground_pixel
3121 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3122 f
->output_data
.x
->border_pixel
3123 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3124 f
->output_data
.x
->mouse_pixel
3125 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3129 /* Specify the parent under which to make this X window. */
3133 f
->output_data
.x
->parent_desc
= (Window
) XFASTINT (parent
);
3134 f
->output_data
.x
->explicit_parent
= 1;
3138 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
3139 f
->output_data
.x
->explicit_parent
= 0;
3142 /* Set the name; the functions to which we pass f expect the name to
3144 if (EQ (name
, Qunbound
) || NILP (name
))
3146 f
->name
= build_string (dpyinfo
->x_id_name
);
3147 f
->explicit_name
= 0;
3152 f
->explicit_name
= 1;
3153 /* use the frame's title when getting resources for this frame. */
3154 specbind (Qx_resource_name
, name
);
3157 /* Extract the window parameters from the supplied values
3158 that are needed to determine window geometry. */
3162 font
= x_get_arg (dpyinfo
, parms
, Qfont
, "font", "Font", RES_TYPE_STRING
);
3165 /* First, try whatever font the caller has specified. */
3168 tem
= Fquery_fontset (font
, Qnil
);
3170 font
= x_new_fontset (f
, SDATA (tem
));
3172 font
= x_new_font (f
, SDATA (font
));
3175 /* Try out a font which we hope has bold and italic variations. */
3176 if (!STRINGP (font
))
3177 font
= x_new_font (f
, "-adobe-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-1");
3178 if (!STRINGP (font
))
3179 font
= x_new_font (f
, "-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-1");
3180 if (! STRINGP (font
))
3181 font
= x_new_font (f
, "-*-*-medium-r-normal-*-*-140-*-*-c-*-iso8859-1");
3182 if (! STRINGP (font
))
3183 /* This was formerly the first thing tried, but it finds too many fonts
3184 and takes too long. */
3185 font
= x_new_font (f
, "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1");
3186 /* If those didn't work, look for something which will at least work. */
3187 if (! STRINGP (font
))
3188 font
= x_new_font (f
, "-*-fixed-*-*-*-*-*-140-*-*-c-*-iso8859-1");
3190 if (! STRINGP (font
))
3191 font
= build_string ("fixed");
3193 x_default_parameter (f
, parms
, Qfont
, font
,
3194 "font", "Font", RES_TYPE_STRING
);
3198 /* Prevent lwlib/xlwmenu.c from crashing because of a bug
3199 whereby it fails to get any font. */
3200 xlwmenu_default_font
= FRAME_FONT (f
);
3203 x_default_parameter (f
, parms
, Qborder_width
, make_number (2),
3204 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
3206 /* This defaults to 1 in order to match xterm. We recognize either
3207 internalBorderWidth or internalBorder (which is what xterm calls
3209 if (NILP (Fassq (Qinternal_border_width
, parms
)))
3213 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
3214 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
3215 if (! EQ (value
, Qunbound
))
3216 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
3219 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
3220 "internalBorderWidth", "internalBorderWidth",
3222 x_default_parameter (f
, parms
, Qvertical_scroll_bars
, Qleft
,
3223 "verticalScrollBars", "ScrollBars",
3226 /* Also do the stuff which must be set before the window exists. */
3227 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
3228 "foreground", "Foreground", RES_TYPE_STRING
);
3229 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
3230 "background", "Background", RES_TYPE_STRING
);
3231 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
3232 "pointerColor", "Foreground", RES_TYPE_STRING
);
3233 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
3234 "cursorColor", "Foreground", RES_TYPE_STRING
);
3235 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
3236 "borderColor", "BorderColor", RES_TYPE_STRING
);
3237 x_default_parameter (f
, parms
, Qscreen_gamma
, Qnil
,
3238 "screenGamma", "ScreenGamma", RES_TYPE_FLOAT
);
3239 x_default_parameter (f
, parms
, Qline_spacing
, Qnil
,
3240 "lineSpacing", "LineSpacing", RES_TYPE_NUMBER
);
3241 x_default_parameter (f
, parms
, Qleft_fringe
, Qnil
,
3242 "leftFringe", "LeftFringe", RES_TYPE_NUMBER
);
3243 x_default_parameter (f
, parms
, Qright_fringe
, Qnil
,
3244 "rightFringe", "RightFringe", RES_TYPE_NUMBER
);
3246 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_foreground
,
3247 "scrollBarForeground",
3248 "ScrollBarForeground", 1);
3249 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_background
,
3250 "scrollBarBackground",
3251 "ScrollBarBackground", 0);
3253 /* Init faces before x_default_parameter is called for scroll-bar
3254 parameters because that function calls x_set_scroll_bar_width,
3255 which calls change_frame_size, which calls Fset_window_buffer,
3256 which runs hooks, which call Fvertical_motion. At the end, we
3257 end up in init_iterator with a null face cache, which should not
3259 init_frame_faces (f
);
3261 x_default_parameter (f
, parms
, Qmenu_bar_lines
, make_number (1),
3262 "menuBar", "MenuBar", RES_TYPE_NUMBER
);
3263 x_default_parameter (f
, parms
, Qtool_bar_lines
, make_number (1),
3264 "toolBar", "ToolBar", RES_TYPE_NUMBER
);
3265 x_default_parameter (f
, parms
, Qbuffer_predicate
, Qnil
,
3266 "bufferPredicate", "BufferPredicate",
3268 x_default_parameter (f
, parms
, Qtitle
, Qnil
,
3269 "title", "Title", RES_TYPE_STRING
);
3270 x_default_parameter (f
, parms
, Qwait_for_wm
, Qt
,
3271 "waitForWM", "WaitForWM", RES_TYPE_BOOLEAN
);
3272 x_default_parameter (f
, parms
, Qfullscreen
, Qnil
,
3273 "fullscreen", "Fullscreen", RES_TYPE_SYMBOL
);
3275 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
3277 /* Compute the size of the X window. */
3278 window_prompting
= x_figure_window_size (f
, parms
, 1);
3280 tem
= x_get_arg (dpyinfo
, parms
, Qunsplittable
, 0, 0, RES_TYPE_BOOLEAN
);
3281 f
->no_split
= minibuffer_only
|| EQ (tem
, Qt
);
3283 x_icon_verify (f
, parms
);
3285 /* Create the X widget or window. */
3286 #ifdef USE_X_TOOLKIT
3287 x_window (f
, window_prompting
, minibuffer_only
);
3295 /* Now consider the frame official. */
3296 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
3297 Vframe_list
= Fcons (frame
, Vframe_list
);
3299 /* We need to do this after creating the X window, so that the
3300 icon-creation functions can say whose icon they're describing. */
3301 x_default_parameter (f
, parms
, Qicon_type
, Qt
,
3302 "bitmapIcon", "BitmapIcon", RES_TYPE_SYMBOL
);
3304 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
3305 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3306 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
3307 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3308 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
3309 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
3310 x_default_parameter (f
, parms
, Qscroll_bar_width
, Qnil
,
3311 "scrollBarWidth", "ScrollBarWidth",
3314 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
3315 Change will not be effected unless different from the current
3317 width
= FRAME_COLS (f
);
3318 height
= FRAME_LINES (f
);
3320 SET_FRAME_COLS (f
, 0);
3321 FRAME_LINES (f
) = 0;
3322 change_frame_size (f
, height
, width
, 1, 0, 0);
3324 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
3325 /* Create the menu bar. */
3326 if (!minibuffer_only
&& FRAME_EXTERNAL_MENU_BAR (f
))
3328 /* If this signals an error, we haven't set size hints for the
3329 frame and we didn't make it visible. */
3330 initialize_frame_menubar (f
);
3333 /* This is a no-op, except under Motif where it arranges the
3334 main window for the widgets on it. */
3335 lw_set_main_areas (f
->output_data
.x
->column_widget
,
3336 f
->output_data
.x
->menubar_widget
,
3337 f
->output_data
.x
->edit_widget
);
3338 #endif /* not USE_GTK */
3340 #endif /* USE_X_TOOLKIT || USE_GTK */
3342 /* Tell the server what size and position, etc, we want, and how
3343 badly we want them. This should be done after we have the menu
3344 bar so that its size can be taken into account. */
3346 x_wm_set_size_hint (f
, window_prompting
, 0);
3349 /* Make the window appear on the frame and enable display, unless
3350 the caller says not to. However, with explicit parent, Emacs
3351 cannot control visibility, so don't try. */
3352 if (! f
->output_data
.x
->explicit_parent
)
3354 Lisp_Object visibility
;
3356 visibility
= x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0,
3358 if (EQ (visibility
, Qunbound
))
3361 if (EQ (visibility
, Qicon
))
3362 x_iconify_frame (f
);
3363 else if (! NILP (visibility
))
3364 x_make_frame_visible (f
);
3366 /* Must have been Qnil. */
3370 /* Set the WM leader property. GTK does this itself, so this is not
3371 needed when using GTK. */
3372 if (dpyinfo
->client_leader_window
!= 0)
3375 XChangeProperty (FRAME_X_DISPLAY (f
),
3376 FRAME_OUTER_WINDOW (f
),
3377 dpyinfo
->Xatom_wm_client_leader
,
3378 XA_WINDOW
, 32, PropModeReplace
,
3379 (unsigned char *) &dpyinfo
->client_leader_window
, 1);
3383 /* Initialize `default-minibuffer-frame' in case this is the first
3384 frame on this display device. */
3385 if (FRAME_HAS_MINIBUF_P (f
)
3386 && (!FRAMEP (kb
->Vdefault_minibuffer_frame
)
3387 || !FRAME_LIVE_P (XFRAME (kb
->Vdefault_minibuffer_frame
))))
3388 kb
->Vdefault_minibuffer_frame
= frame
;
3390 /* All remaining specified parameters, which have not been "used"
3391 by x_get_arg and friends, now go in the misc. alist of the frame. */
3392 for (tem
= parms
; !NILP (tem
); tem
= XCDR (tem
))
3393 if (CONSP (XCAR (tem
)) && !NILP (XCAR (XCAR (tem
))))
3394 f
->param_alist
= Fcons (XCAR (tem
), f
->param_alist
);
3398 /* Make sure windows on this frame appear in calls to next-window
3399 and similar functions. */
3400 Vwindow_list
= Qnil
;
3402 return unbind_to (count
, frame
);
3406 /* FRAME is used only to get a handle on the X display. We don't pass the
3407 display info directly because we're called from frame.c, which doesn't
3408 know about that structure. */
3411 x_get_focus_frame (frame
)
3412 struct frame
*frame
;
3414 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (frame
);
3416 if (! dpyinfo
->x_focus_frame
)
3419 XSETFRAME (xfocus
, dpyinfo
->x_focus_frame
);
3424 /* In certain situations, when the window manager follows a
3425 click-to-focus policy, there seems to be no way around calling
3426 XSetInputFocus to give another frame the input focus .
3428 In an ideal world, XSetInputFocus should generally be avoided so
3429 that applications don't interfere with the window manager's focus
3430 policy. But I think it's okay to use when it's clearly done
3431 following a user-command. */
3433 DEFUN ("x-focus-frame", Fx_focus_frame
, Sx_focus_frame
, 1, 1, 0,
3434 doc
: /* Set the input focus to FRAME.
3435 FRAME nil means use the selected frame. */)
3439 struct frame
*f
= check_x_frame (frame
);
3440 Display
*dpy
= FRAME_X_DISPLAY (f
);
3443 x_catch_errors (dpy
);
3444 XSetInputFocus (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
3445 RevertToParent
, CurrentTime
);
3446 x_uncatch_errors (dpy
);
3453 DEFUN ("xw-color-defined-p", Fxw_color_defined_p
, Sxw_color_defined_p
, 1, 2, 0,
3454 doc
: /* Internal function called by `color-defined-p', which see. */)
3456 Lisp_Object color
, frame
;
3459 FRAME_PTR f
= check_x_frame (frame
);
3461 CHECK_STRING (color
);
3463 if (x_defined_color (f
, SDATA (color
), &foo
, 0))
3469 DEFUN ("xw-color-values", Fxw_color_values
, Sxw_color_values
, 1, 2, 0,
3470 doc
: /* Internal function called by `color-values', which see. */)
3472 Lisp_Object color
, frame
;
3475 FRAME_PTR f
= check_x_frame (frame
);
3477 CHECK_STRING (color
);
3479 if (x_defined_color (f
, SDATA (color
), &foo
, 0))
3483 rgb
[0] = make_number (foo
.red
);
3484 rgb
[1] = make_number (foo
.green
);
3485 rgb
[2] = make_number (foo
.blue
);
3486 return Flist (3, rgb
);
3492 DEFUN ("xw-display-color-p", Fxw_display_color_p
, Sxw_display_color_p
, 0, 1, 0,
3493 doc
: /* Internal function called by `display-color-p', which see. */)
3495 Lisp_Object display
;
3497 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3499 if (dpyinfo
->n_planes
<= 2)
3502 switch (dpyinfo
->visual
->class)
3515 DEFUN ("x-display-grayscale-p", Fx_display_grayscale_p
, Sx_display_grayscale_p
,
3517 doc
: /* Return t if the X display supports shades of gray.
3518 Note that color displays do support shades of gray.
3519 The optional argument DISPLAY specifies which display to ask about.
3520 DISPLAY should be either a frame or a display name (a string).
3521 If omitted or nil, that stands for the selected frame's display. */)
3523 Lisp_Object display
;
3525 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3527 if (dpyinfo
->n_planes
<= 1)
3530 switch (dpyinfo
->visual
->class)
3545 DEFUN ("x-display-pixel-width", Fx_display_pixel_width
, Sx_display_pixel_width
,
3547 doc
: /* Returns the width in pixels of the X display DISPLAY.
3548 The optional argument DISPLAY specifies which display to ask about.
3549 DISPLAY should be either a frame or a display name (a string).
3550 If omitted or nil, that stands for the selected frame's display. */)
3552 Lisp_Object display
;
3554 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3556 return make_number (dpyinfo
->width
);
3559 DEFUN ("x-display-pixel-height", Fx_display_pixel_height
,
3560 Sx_display_pixel_height
, 0, 1, 0,
3561 doc
: /* Returns the height in pixels of the X display DISPLAY.
3562 The optional argument DISPLAY specifies which display to ask about.
3563 DISPLAY should be either a frame or a display name (a string).
3564 If omitted or nil, that stands for the selected frame's display. */)
3566 Lisp_Object display
;
3568 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3570 return make_number (dpyinfo
->height
);
3573 DEFUN ("x-display-planes", Fx_display_planes
, Sx_display_planes
,
3575 doc
: /* Returns the number of bitplanes of the X display DISPLAY.
3576 The optional argument DISPLAY specifies which display to ask about.
3577 DISPLAY should be either a frame or a display name (a string).
3578 If omitted or nil, that stands for the selected frame's display. */)
3580 Lisp_Object display
;
3582 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3584 return make_number (dpyinfo
->n_planes
);
3587 DEFUN ("x-display-color-cells", Fx_display_color_cells
, Sx_display_color_cells
,
3589 doc
: /* Returns the number of color cells of the X display DISPLAY.
3590 The optional argument DISPLAY specifies which display to ask about.
3591 DISPLAY should be either a frame or a display name (a string).
3592 If omitted or nil, that stands for the selected frame's display. */)
3594 Lisp_Object display
;
3596 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3598 int nr_planes
= DisplayPlanes (dpyinfo
->display
,
3599 XScreenNumberOfScreen (dpyinfo
->screen
));
3601 /* Truncate nr_planes to 24 to avoid integer overflow.
3602 Some displays says 32, but only 24 bits are actually significant.
3603 There are only very few and rare video cards that have more than
3604 24 significant bits. Also 24 bits is more than 16 million colors,
3605 it "should be enough for everyone". */
3606 if (nr_planes
> 24) nr_planes
= 24;
3608 return make_number (1 << nr_planes
);
3611 DEFUN ("x-server-max-request-size", Fx_server_max_request_size
,
3612 Sx_server_max_request_size
,
3614 doc
: /* Returns the maximum request size of the X server of display DISPLAY.
3615 The optional argument DISPLAY specifies which display to ask about.
3616 DISPLAY should be either a frame or a display name (a string).
3617 If omitted or nil, that stands for the selected frame's display. */)
3619 Lisp_Object display
;
3621 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3623 return make_number (MAXREQUEST (dpyinfo
->display
));
3626 DEFUN ("x-server-vendor", Fx_server_vendor
, Sx_server_vendor
, 0, 1, 0,
3627 doc
: /* Returns the "vendor ID" string of the X server of display DISPLAY.
3628 \(Labelling every distributor as a "vendor" embodies the false assumption
3629 that operating systems cannot be developed and distributed noncommercially.)
3630 The optional argument DISPLAY specifies which display to ask about.
3631 DISPLAY should be either a frame or a display name (a string).
3632 If omitted or nil, that stands for the selected frame's display. */)
3634 Lisp_Object display
;
3636 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3637 char *vendor
= ServerVendor (dpyinfo
->display
);
3639 if (! vendor
) vendor
= "";
3640 return build_string (vendor
);
3643 DEFUN ("x-server-version", Fx_server_version
, Sx_server_version
, 0, 1, 0,
3644 doc
: /* Returns the version numbers of the X server of display DISPLAY.
3645 The value is a list of three integers: the major and minor
3646 version numbers of the X Protocol in use, and the distributor-specific release
3647 number. See also the function `x-server-vendor'.
3649 The optional argument DISPLAY specifies which display to ask about.
3650 DISPLAY should be either a frame or a display name (a string).
3651 If omitted or nil, that stands for the selected frame's display. */)
3653 Lisp_Object display
;
3655 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3656 Display
*dpy
= dpyinfo
->display
;
3658 return Fcons (make_number (ProtocolVersion (dpy
)),
3659 Fcons (make_number (ProtocolRevision (dpy
)),
3660 Fcons (make_number (VendorRelease (dpy
)), Qnil
)));
3663 DEFUN ("x-display-screens", Fx_display_screens
, Sx_display_screens
, 0, 1, 0,
3664 doc
: /* Return the number of screens on the X server of display DISPLAY.
3665 The optional argument DISPLAY specifies which display to ask about.
3666 DISPLAY should be either a frame or a display name (a string).
3667 If omitted or nil, that stands for the selected frame's display. */)
3669 Lisp_Object display
;
3671 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3673 return make_number (ScreenCount (dpyinfo
->display
));
3676 DEFUN ("x-display-mm-height", Fx_display_mm_height
, Sx_display_mm_height
, 0, 1, 0,
3677 doc
: /* Return the height in millimeters of the X display DISPLAY.
3678 The optional argument DISPLAY specifies which display to ask about.
3679 DISPLAY should be either a frame or a display name (a string).
3680 If omitted or nil, that stands for the selected frame's display. */)
3682 Lisp_Object display
;
3684 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3686 return make_number (HeightMMOfScreen (dpyinfo
->screen
));
3689 DEFUN ("x-display-mm-width", Fx_display_mm_width
, Sx_display_mm_width
, 0, 1, 0,
3690 doc
: /* Return the width in millimeters of the X display DISPLAY.
3691 The optional argument DISPLAY specifies which display to ask about.
3692 DISPLAY should be either a frame or a display name (a string).
3693 If omitted or nil, that stands for the selected frame's display. */)
3695 Lisp_Object display
;
3697 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3699 return make_number (WidthMMOfScreen (dpyinfo
->screen
));
3702 DEFUN ("x-display-backing-store", Fx_display_backing_store
,
3703 Sx_display_backing_store
, 0, 1, 0,
3704 doc
: /* Returns an indication of whether X display DISPLAY does backing store.
3705 The value may be `always', `when-mapped', or `not-useful'.
3706 The optional argument DISPLAY specifies which display to ask about.
3707 DISPLAY should be either a frame or a display name (a string).
3708 If omitted or nil, that stands for the selected frame's display. */)
3710 Lisp_Object display
;
3712 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3715 switch (DoesBackingStore (dpyinfo
->screen
))
3718 result
= intern ("always");
3722 result
= intern ("when-mapped");
3726 result
= intern ("not-useful");
3730 error ("Strange value for BackingStore parameter of screen");
3737 DEFUN ("x-display-visual-class", Fx_display_visual_class
,
3738 Sx_display_visual_class
, 0, 1, 0,
3739 doc
: /* Return the visual class of the X display DISPLAY.
3740 The value is one of the symbols `static-gray', `gray-scale',
3741 `static-color', `pseudo-color', `true-color', or `direct-color'.
3743 The optional argument DISPLAY specifies which display to ask about.
3744 DISPLAY should be either a frame or a display name (a string).
3745 If omitted or nil, that stands for the selected frame's display. */)
3747 Lisp_Object display
;
3749 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3752 switch (dpyinfo
->visual
->class)
3755 result
= intern ("static-gray");
3758 result
= intern ("gray-scale");
3761 result
= intern ("static-color");
3764 result
= intern ("pseudo-color");
3767 result
= intern ("true-color");
3770 result
= intern ("direct-color");
3773 error ("Display has an unknown visual class");
3780 DEFUN ("x-display-save-under", Fx_display_save_under
,
3781 Sx_display_save_under
, 0, 1, 0,
3782 doc
: /* Returns t if the X display DISPLAY supports the save-under feature.
3783 The optional argument DISPLAY specifies which display to ask about.
3784 DISPLAY should be either a frame or a display name (a string).
3785 If omitted or nil, that stands for the selected frame's display. */)
3787 Lisp_Object display
;
3789 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3791 if (DoesSaveUnders (dpyinfo
->screen
) == True
)
3799 register struct frame
*f
;
3801 return FRAME_PIXEL_WIDTH (f
);
3806 register struct frame
*f
;
3808 return FRAME_PIXEL_HEIGHT (f
);
3813 register struct frame
*f
;
3815 return FRAME_COLUMN_WIDTH (f
);
3820 register struct frame
*f
;
3822 return FRAME_LINE_HEIGHT (f
);
3827 register struct frame
*f
;
3829 return FRAME_X_DISPLAY_INFO (f
)->n_planes
;
3834 /************************************************************************
3836 ************************************************************************/
3839 /* Mapping visual names to visuals. */
3841 static struct visual_class
3848 {"StaticGray", StaticGray
},
3849 {"GrayScale", GrayScale
},
3850 {"StaticColor", StaticColor
},
3851 {"PseudoColor", PseudoColor
},
3852 {"TrueColor", TrueColor
},
3853 {"DirectColor", DirectColor
},
3858 #ifndef HAVE_XSCREENNUMBEROFSCREEN
3860 /* Value is the screen number of screen SCR. This is a substitute for
3861 the X function with the same name when that doesn't exist. */
3864 XScreenNumberOfScreen (scr
)
3865 register Screen
*scr
;
3867 Display
*dpy
= scr
->display
;
3870 for (i
= 0; i
< dpy
->nscreens
; ++i
)
3871 if (scr
== dpy
->screens
+ i
)
3877 #endif /* not HAVE_XSCREENNUMBEROFSCREEN */
3880 /* Select the visual that should be used on display DPYINFO. Set
3881 members of DPYINFO appropriately. Called from x_term_init. */
3884 select_visual (dpyinfo
)
3885 struct x_display_info
*dpyinfo
;
3887 Display
*dpy
= dpyinfo
->display
;
3888 Screen
*screen
= dpyinfo
->screen
;
3891 /* See if a visual is specified. */
3892 value
= display_x_get_resource (dpyinfo
,
3893 build_string ("visualClass"),
3894 build_string ("VisualClass"),
3896 if (STRINGP (value
))
3898 /* VALUE should be of the form CLASS-DEPTH, where CLASS is one
3899 of `PseudoColor', `TrueColor' etc. and DEPTH is the color
3900 depth, a decimal number. NAME is compared with case ignored. */
3901 char *s
= (char *) alloca (SBYTES (value
) + 1);
3906 strcpy (s
, SDATA (value
));
3907 dash
= index (s
, '-');
3910 dpyinfo
->n_planes
= atoi (dash
+ 1);
3914 /* We won't find a matching visual with depth 0, so that
3915 an error will be printed below. */
3916 dpyinfo
->n_planes
= 0;
3918 /* Determine the visual class. */
3919 for (i
= 0; visual_classes
[i
].name
; ++i
)
3920 if (xstricmp (s
, visual_classes
[i
].name
) == 0)
3922 class = visual_classes
[i
].class;
3926 /* Look up a matching visual for the specified class. */
3928 || !XMatchVisualInfo (dpy
, XScreenNumberOfScreen (screen
),
3929 dpyinfo
->n_planes
, class, &vinfo
))
3930 fatal ("Invalid visual specification `%s'", SDATA (value
));
3932 dpyinfo
->visual
= vinfo
.visual
;
3937 XVisualInfo
*vinfo
, vinfo_template
;
3939 dpyinfo
->visual
= DefaultVisualOfScreen (screen
);
3942 vinfo_template
.visualid
= XVisualIDFromVisual (dpyinfo
->visual
);
3944 vinfo_template
.visualid
= dpyinfo
->visual
->visualid
;
3946 vinfo_template
.screen
= XScreenNumberOfScreen (screen
);
3947 vinfo
= XGetVisualInfo (dpy
, VisualIDMask
| VisualScreenMask
,
3948 &vinfo_template
, &n_visuals
);
3950 fatal ("Can't get proper X visual info");
3952 dpyinfo
->n_planes
= vinfo
->depth
;
3953 XFree ((char *) vinfo
);
3958 /* Return the X display structure for the display named NAME.
3959 Open a new connection if necessary. */
3961 struct x_display_info
*
3962 x_display_info_for_name (name
)
3966 struct x_display_info
*dpyinfo
;
3968 CHECK_STRING (name
);
3970 if (! EQ (Vwindow_system
, intern ("x")))
3971 error ("Not using X Windows");
3973 for (dpyinfo
= x_display_list
, names
= x_display_name_list
;
3975 dpyinfo
= dpyinfo
->next
, names
= XCDR (names
))
3978 tem
= Fstring_equal (XCAR (XCAR (names
)), name
);
3983 /* Use this general default value to start with. */
3984 Vx_resource_name
= Vinvocation_name
;
3986 validate_x_resource_name ();
3988 dpyinfo
= x_term_init (name
, (char *)0,
3989 (char *) SDATA (Vx_resource_name
));
3992 error ("Cannot connect to X server %s", SDATA (name
));
3995 XSETFASTINT (Vwindow_system_version
, 11);
4001 DEFUN ("x-open-connection", Fx_open_connection
, Sx_open_connection
,
4003 doc
: /* Open a connection to an X server.
4004 DISPLAY is the name of the display to connect to.
4005 Optional second arg XRM-STRING is a string of resources in xrdb format.
4006 If the optional third arg MUST-SUCCEED is non-nil,
4007 terminate Emacs if we can't open the connection. */)
4008 (display
, xrm_string
, must_succeed
)
4009 Lisp_Object display
, xrm_string
, must_succeed
;
4011 unsigned char *xrm_option
;
4012 struct x_display_info
*dpyinfo
;
4014 CHECK_STRING (display
);
4015 if (! NILP (xrm_string
))
4016 CHECK_STRING (xrm_string
);
4018 if (! EQ (Vwindow_system
, intern ("x")))
4019 error ("Not using X Windows");
4021 if (! NILP (xrm_string
))
4022 xrm_option
= (unsigned char *) SDATA (xrm_string
);
4024 xrm_option
= (unsigned char *) 0;
4026 validate_x_resource_name ();
4028 /* This is what opens the connection and sets x_current_display.
4029 This also initializes many symbols, such as those used for input. */
4030 dpyinfo
= x_term_init (display
, xrm_option
,
4031 (char *) SDATA (Vx_resource_name
));
4035 if (!NILP (must_succeed
))
4036 fatal ("Cannot connect to X server %s.\n\
4037 Check the DISPLAY environment variable or use `-d'.\n\
4038 Also use the `xauth' program to verify that you have the proper\n\
4039 authorization information needed to connect the X server.\n\
4040 An insecure way to solve the problem may be to use `xhost'.\n",
4043 error ("Cannot connect to X server %s", SDATA (display
));
4048 XSETFASTINT (Vwindow_system_version
, 11);
4052 DEFUN ("x-close-connection", Fx_close_connection
,
4053 Sx_close_connection
, 1, 1, 0,
4054 doc
: /* Close the connection to DISPLAY's X server.
4055 For DISPLAY, specify either a frame or a display name (a string).
4056 If DISPLAY is nil, that stands for the selected frame's display. */)
4058 Lisp_Object display
;
4060 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
4063 if (dpyinfo
->reference_count
> 0)
4064 error ("Display still has frames on it");
4067 /* Free the fonts in the font table. */
4068 for (i
= 0; i
< dpyinfo
->n_fonts
; i
++)
4069 if (dpyinfo
->font_table
[i
].name
)
4071 XFreeFont (dpyinfo
->display
, dpyinfo
->font_table
[i
].font
);
4074 x_destroy_all_bitmaps (dpyinfo
);
4075 XSetCloseDownMode (dpyinfo
->display
, DestroyAll
);
4077 #ifdef USE_X_TOOLKIT
4078 XtCloseDisplay (dpyinfo
->display
);
4080 XCloseDisplay (dpyinfo
->display
);
4083 x_delete_display (dpyinfo
);
4089 DEFUN ("x-display-list", Fx_display_list
, Sx_display_list
, 0, 0, 0,
4090 doc
: /* Return the list of display names that Emacs has connections to. */)
4093 Lisp_Object tail
, result
;
4096 for (tail
= x_display_name_list
; ! NILP (tail
); tail
= XCDR (tail
))
4097 result
= Fcons (XCAR (XCAR (tail
)), result
);
4102 DEFUN ("x-synchronize", Fx_synchronize
, Sx_synchronize
, 1, 2, 0,
4103 doc
: /* If ON is non-nil, report X errors as soon as the erring request is made.
4104 If ON is nil, allow buffering of requests.
4105 Turning on synchronization prohibits the Xlib routines from buffering
4106 requests and seriously degrades performance, but makes debugging much
4108 The optional second argument DISPLAY specifies which display to act on.
4109 DISPLAY should be either a frame or a display name (a string).
4110 If DISPLAY is omitted or nil, that stands for the selected frame's display. */)
4112 Lisp_Object display
, on
;
4114 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
4116 XSynchronize (dpyinfo
->display
, !EQ (on
, Qnil
));
4121 /* Wait for responses to all X commands issued so far for frame F. */
4128 XSync (FRAME_X_DISPLAY (f
), False
);
4133 /***********************************************************************
4135 ***********************************************************************/
4137 DEFUN ("x-change-window-property", Fx_change_window_property
,
4138 Sx_change_window_property
, 2, 6, 0,
4139 doc
: /* Change window property PROP to VALUE on the X window of FRAME.
4140 PROP must be a string.
4141 VALUE may be a string or a list of conses, numbers and/or strings.
4142 If an element in the list is a string, it is converted to
4143 an Atom and the value of the Atom is used. If an element is a cons,
4144 it is converted to a 32 bit number where the car is the 16 top bits and the
4145 cdr is the lower 16 bits.
4146 FRAME nil or omitted means use the selected frame.
4147 If TYPE is given and non-nil, it is the name of the type of VALUE.
4148 If TYPE is not given or nil, the type is STRING.
4149 FORMAT gives the size in bits of each element if VALUE is a list.
4150 It must be one of 8, 16 or 32.
4151 If VALUE is a string or FORMAT is nil or not given, FORMAT defaults to 8.
4152 If OUTER_P is non-nil, the property is changed for the outer X window of
4153 FRAME. Default is to change on the edit X window.
4156 (prop
, value
, frame
, type
, format
, outer_p
)
4157 Lisp_Object prop
, value
, frame
, type
, format
, outer_p
;
4159 struct frame
*f
= check_x_frame (frame
);
4161 Atom target_type
= XA_STRING
;
4162 int element_format
= 8;
4163 unsigned char *data
;
4167 CHECK_STRING (prop
);
4169 if (! NILP (format
))
4171 CHECK_NUMBER (format
);
4172 element_format
= XFASTINT (format
);
4174 if (element_format
!= 8 && element_format
!= 16
4175 && element_format
!= 32)
4176 error ("FORMAT must be one of 8, 16 or 32");
4181 nelements
= x_check_property_data (value
);
4182 if (nelements
== -1)
4183 error ("Bad data in VALUE, must be number, string or cons");
4185 if (element_format
== 8)
4186 data
= (unsigned char *) xmalloc (nelements
);
4187 else if (element_format
== 16)
4188 data
= (unsigned char *) xmalloc (nelements
*2);
4189 else /* format == 32 */
4190 /* The man page for XChangeProperty:
4191 "If the specified format is 32, the property data must be a
4193 This applies even if long is more than 64 bits. The X library
4194 converts to 32 bits before sending to the X server. */
4195 data
= (unsigned char *) xmalloc (nelements
* sizeof(long));
4197 x_fill_property_data (FRAME_X_DISPLAY (f
), value
, data
, element_format
);
4201 CHECK_STRING (value
);
4202 data
= SDATA (value
);
4203 nelements
= SCHARS (value
);
4207 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4210 CHECK_STRING (type
);
4211 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (type
), False
);
4214 if (! NILP (outer_p
)) w
= FRAME_OUTER_WINDOW (f
);
4215 else w
= FRAME_X_WINDOW (f
);
4217 XChangeProperty (FRAME_X_DISPLAY (f
), w
,
4218 prop_atom
, target_type
, element_format
, PropModeReplace
,
4221 if (CONSP (value
)) xfree (data
);
4223 /* Make sure the property is set when we return. */
4224 XFlush (FRAME_X_DISPLAY (f
));
4231 DEFUN ("x-delete-window-property", Fx_delete_window_property
,
4232 Sx_delete_window_property
, 1, 2, 0,
4233 doc
: /* Remove window property PROP from X window of FRAME.
4234 FRAME nil or omitted means use the selected frame. Value is PROP. */)
4236 Lisp_Object prop
, frame
;
4238 struct frame
*f
= check_x_frame (frame
);
4241 CHECK_STRING (prop
);
4243 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4244 XDeleteProperty (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), prop_atom
);
4246 /* Make sure the property is removed when we return. */
4247 XFlush (FRAME_X_DISPLAY (f
));
4254 DEFUN ("x-window-property", Fx_window_property
, Sx_window_property
,
4256 doc
: /* Value is the value of window property PROP on FRAME.
4257 If FRAME is nil or omitted, use the selected frame.
4258 If TYPE is nil or omitted, get the property as a string. Otherwise TYPE
4259 is the name of the Atom that denotes the type expected.
4260 If SOURCE is non-nil, get the property on that window instead of from
4261 FRAME. The number 0 denotes the root window.
4262 If DELETE_P is non-nil, delete the property after retreiving it.
4263 If VECTOR_RET_P is non-nil, don't return a string but a vector of values.
4265 Value is nil if FRAME hasn't a property with name PROP or if PROP has
4266 no value of TYPE. */)
4267 (prop
, frame
, type
, source
, delete_p
, vector_ret_p
)
4268 Lisp_Object prop
, frame
, type
, source
, delete_p
, vector_ret_p
;
4270 struct frame
*f
= check_x_frame (frame
);
4273 Lisp_Object prop_value
= Qnil
;
4274 unsigned char *tmp_data
= NULL
;
4276 Atom target_type
= XA_STRING
;
4278 unsigned long actual_size
, bytes_remaining
;
4279 Window target_window
= FRAME_X_WINDOW (f
);
4280 struct gcpro gcpro1
;
4282 GCPRO1 (prop_value
);
4283 CHECK_STRING (prop
);
4285 if (! NILP (source
))
4287 if (NUMBERP (source
))
4289 if (FLOATP (source
))
4290 target_window
= (Window
) XFLOAT (source
);
4292 target_window
= XFASTINT (source
);
4294 if (target_window
== 0)
4295 target_window
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4297 else if (CONSP (source
))
4298 target_window
= cons_to_long (source
);
4304 if (strcmp ("AnyPropertyType", SDATA (type
)) == 0)
4305 target_type
= AnyPropertyType
;
4307 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (type
), False
);
4310 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4311 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4312 prop_atom
, 0, 0, False
, target_type
,
4313 &actual_type
, &actual_format
, &actual_size
,
4314 &bytes_remaining
, &tmp_data
);
4317 int size
= bytes_remaining
;
4322 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4323 prop_atom
, 0, bytes_remaining
,
4324 ! NILP (delete_p
), target_type
,
4325 &actual_type
, &actual_format
,
4326 &actual_size
, &bytes_remaining
,
4328 if (rc
== Success
&& tmp_data
)
4330 /* The man page for XGetWindowProperty says:
4331 "If the returned format is 32, the returned data is represented
4332 as a long array and should be cast to that type to obtain the
4334 This applies even if long is more than 32 bits, the X library
4335 converts from 32 bit elements received from the X server to long
4336 and passes the long array to us. Thus, for that case bcopy can not
4337 be used. We convert to a 32 bit type here, because so much code
4340 The bytes and offsets passed to XGetWindowProperty refers to the
4341 property and those are indeed in 32 bit quantities if format is
4344 if (actual_format
== 32 && actual_format
< BITS_PER_LONG
)
4347 int *idata
= (int *) tmp_data
;
4348 long *ldata
= (long *) tmp_data
;
4350 for (i
= 0; i
< actual_size
; ++i
)
4351 idata
[i
] = (int) ldata
[i
];
4354 if (NILP (vector_ret_p
))
4355 prop_value
= make_string (tmp_data
, size
);
4357 prop_value
= x_property_data_to_lisp (f
,
4364 if (tmp_data
) XFree (tmp_data
);
4374 /***********************************************************************
4376 ***********************************************************************/
4378 /* If non-null, an asynchronous timer that, when it expires, displays
4379 an hourglass cursor on all frames. */
4381 static struct atimer
*hourglass_atimer
;
4383 /* Non-zero means an hourglass cursor is currently shown. */
4385 static int hourglass_shown_p
;
4387 /* Number of seconds to wait before displaying an hourglass cursor. */
4389 static Lisp_Object Vhourglass_delay
;
4391 /* Default number of seconds to wait before displaying an hourglass
4394 #define DEFAULT_HOURGLASS_DELAY 1
4396 /* Function prototypes. */
4398 static void show_hourglass
P_ ((struct atimer
*));
4399 static void hide_hourglass
P_ ((void));
4401 /* Return non-zero if houglass timer has been started or hourglass is shown. */
4404 hourglass_started ()
4406 return hourglass_shown_p
|| hourglass_atimer
!= NULL
;
4410 /* Cancel a currently active hourglass timer, and start a new one. */
4416 int secs
, usecs
= 0;
4418 /* Don't bother for ttys. */
4419 if (NILP (Vwindow_system
))
4422 cancel_hourglass ();
4424 if (INTEGERP (Vhourglass_delay
)
4425 && XINT (Vhourglass_delay
) > 0)
4426 secs
= XFASTINT (Vhourglass_delay
);
4427 else if (FLOATP (Vhourglass_delay
)
4428 && XFLOAT_DATA (Vhourglass_delay
) > 0)
4431 tem
= Ftruncate (Vhourglass_delay
, Qnil
);
4432 secs
= XFASTINT (tem
);
4433 usecs
= (XFLOAT_DATA (Vhourglass_delay
) - secs
) * 1000000;
4436 secs
= DEFAULT_HOURGLASS_DELAY
;
4438 EMACS_SET_SECS_USECS (delay
, secs
, usecs
);
4439 hourglass_atimer
= start_atimer (ATIMER_RELATIVE
, delay
,
4440 show_hourglass
, NULL
);
4444 /* Cancel the hourglass cursor timer if active, hide a busy cursor if
4450 if (hourglass_atimer
)
4452 cancel_atimer (hourglass_atimer
);
4453 hourglass_atimer
= NULL
;
4456 if (hourglass_shown_p
)
4461 /* Timer function of hourglass_atimer. TIMER is equal to
4464 Display an hourglass pointer on all frames by mapping the frames'
4465 hourglass_window. Set the hourglass_p flag in the frames'
4466 output_data.x structure to indicate that an hourglass cursor is
4467 shown on the frames. */
4470 show_hourglass (timer
)
4471 struct atimer
*timer
;
4473 /* The timer implementation will cancel this timer automatically
4474 after this function has run. Set hourglass_atimer to null
4475 so that we know the timer doesn't have to be canceled. */
4476 hourglass_atimer
= NULL
;
4478 if (!hourglass_shown_p
)
4480 Lisp_Object rest
, frame
;
4484 FOR_EACH_FRAME (rest
, frame
)
4486 struct frame
*f
= XFRAME (frame
);
4488 if (FRAME_LIVE_P (f
) && FRAME_X_P (f
) && FRAME_X_DISPLAY (f
))
4490 Display
*dpy
= FRAME_X_DISPLAY (f
);
4492 #ifdef USE_X_TOOLKIT
4493 if (f
->output_data
.x
->widget
)
4495 if (FRAME_OUTER_WINDOW (f
))
4498 f
->output_data
.x
->hourglass_p
= 1;
4500 if (!f
->output_data
.x
->hourglass_window
)
4502 unsigned long mask
= CWCursor
;
4503 XSetWindowAttributes attrs
;
4505 Window parent
= FRAME_X_WINDOW (f
);
4507 Window parent
= FRAME_OUTER_WINDOW (f
);
4509 attrs
.cursor
= f
->output_data
.x
->hourglass_cursor
;
4511 f
->output_data
.x
->hourglass_window
4512 = XCreateWindow (dpy
, parent
,
4513 0, 0, 32000, 32000, 0, 0,
4519 XMapRaised (dpy
, f
->output_data
.x
->hourglass_window
);
4525 hourglass_shown_p
= 1;
4531 /* Hide the hourglass pointer on all frames, if it is currently
4537 if (hourglass_shown_p
)
4539 Lisp_Object rest
, frame
;
4542 FOR_EACH_FRAME (rest
, frame
)
4544 struct frame
*f
= XFRAME (frame
);
4547 /* Watch out for newly created frames. */
4548 && f
->output_data
.x
->hourglass_window
)
4550 XUnmapWindow (FRAME_X_DISPLAY (f
),
4551 f
->output_data
.x
->hourglass_window
);
4552 /* Sync here because XTread_socket looks at the
4553 hourglass_p flag that is reset to zero below. */
4554 XSync (FRAME_X_DISPLAY (f
), False
);
4555 f
->output_data
.x
->hourglass_p
= 0;
4559 hourglass_shown_p
= 0;
4566 /***********************************************************************
4568 ***********************************************************************/
4570 static Lisp_Object x_create_tip_frame
P_ ((struct x_display_info
*,
4571 Lisp_Object
, Lisp_Object
));
4572 static void compute_tip_xy
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
,
4573 Lisp_Object
, int, int, int *, int *));
4575 /* The frame of a currently visible tooltip. */
4577 Lisp_Object tip_frame
;
4579 /* If non-nil, a timer started that hides the last tooltip when it
4582 Lisp_Object tip_timer
;
4585 /* If non-nil, a vector of 3 elements containing the last args
4586 with which x-show-tip was called. See there. */
4588 Lisp_Object last_show_tip_args
;
4590 /* Maximum size for tooltips; a cons (COLUMNS . ROWS). */
4592 Lisp_Object Vx_max_tooltip_size
;
4596 unwind_create_tip_frame (frame
)
4599 Lisp_Object deleted
;
4601 deleted
= unwind_create_frame (frame
);
4602 if (EQ (deleted
, Qt
))
4612 /* Create a frame for a tooltip on the display described by DPYINFO.
4613 PARMS is a list of frame parameters. TEXT is the string to
4614 display in the tip frame. Value is the frame.
4616 Note that functions called here, esp. x_default_parameter can
4617 signal errors, for instance when a specified color name is
4618 undefined. We have to make sure that we're in a consistent state
4619 when this happens. */
4622 x_create_tip_frame (dpyinfo
, parms
, text
)
4623 struct x_display_info
*dpyinfo
;
4624 Lisp_Object parms
, text
;
4627 Lisp_Object frame
, tem
;
4629 long window_prompting
= 0;
4631 int count
= SPECPDL_INDEX ();
4632 struct gcpro gcpro1
, gcpro2
, gcpro3
;
4634 int face_change_count_before
= face_change_count
;
4636 struct buffer
*old_buffer
;
4642 kb
= dpyinfo
->kboard
;
4644 kb
= &the_only_kboard
;
4647 /* Get the name of the frame to use for resource lookup. */
4648 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
4650 && !EQ (name
, Qunbound
)
4652 error ("Invalid frame name--not a string or nil");
4655 GCPRO3 (parms
, name
, frame
);
4657 XSETFRAME (frame
, f
);
4659 buffer
= Fget_buffer_create (build_string (" *tip*"));
4660 Fset_window_buffer (FRAME_ROOT_WINDOW (f
), buffer
, Qnil
);
4661 old_buffer
= current_buffer
;
4662 set_buffer_internal_1 (XBUFFER (buffer
));
4663 current_buffer
->truncate_lines
= Qnil
;
4664 specbind (Qinhibit_read_only
, Qt
);
4665 specbind (Qinhibit_modification_hooks
, Qt
);
4668 set_buffer_internal_1 (old_buffer
);
4670 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 0;
4671 record_unwind_protect (unwind_create_tip_frame
, frame
);
4673 /* By setting the output method, we're essentially saying that
4674 the frame is live, as per FRAME_LIVE_P. If we get a signal
4675 from this point on, x_destroy_window might screw up reference
4677 f
->output_method
= output_x_window
;
4678 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
4679 bzero (f
->output_data
.x
, sizeof (struct x_output
));
4680 f
->output_data
.x
->icon_bitmap
= -1;
4681 FRAME_FONTSET (f
) = -1;
4682 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
4683 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
4684 #ifdef USE_TOOLKIT_SCROLL_BARS
4685 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
4686 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
4687 #endif /* USE_TOOLKIT_SCROLL_BARS */
4688 f
->icon_name
= Qnil
;
4689 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
4691 image_cache_refcount
= FRAME_X_IMAGE_CACHE (f
)->refcount
;
4692 dpyinfo_refcount
= dpyinfo
->reference_count
;
4693 #endif /* GLYPH_DEBUG */
4695 FRAME_KBOARD (f
) = kb
;
4697 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4698 f
->output_data
.x
->explicit_parent
= 0;
4700 /* These colors will be set anyway later, but it's important
4701 to get the color reference counts right, so initialize them! */
4704 struct gcpro gcpro1
;
4706 black
= build_string ("black");
4708 f
->output_data
.x
->foreground_pixel
4709 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4710 f
->output_data
.x
->background_pixel
4711 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4712 f
->output_data
.x
->cursor_pixel
4713 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4714 f
->output_data
.x
->cursor_foreground_pixel
4715 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4716 f
->output_data
.x
->border_pixel
4717 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4718 f
->output_data
.x
->mouse_pixel
4719 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4723 /* Set the name; the functions to which we pass f expect the name to
4725 if (EQ (name
, Qunbound
) || NILP (name
))
4727 f
->name
= build_string (dpyinfo
->x_id_name
);
4728 f
->explicit_name
= 0;
4733 f
->explicit_name
= 1;
4734 /* use the frame's title when getting resources for this frame. */
4735 specbind (Qx_resource_name
, name
);
4738 /* Extract the window parameters from the supplied values that are
4739 needed to determine window geometry. */
4743 font
= x_get_arg (dpyinfo
, parms
, Qfont
, "font", "Font", RES_TYPE_STRING
);
4746 /* First, try whatever font the caller has specified. */
4749 tem
= Fquery_fontset (font
, Qnil
);
4751 font
= x_new_fontset (f
, SDATA (tem
));
4753 font
= x_new_font (f
, SDATA (font
));
4756 /* Try out a font which we hope has bold and italic variations. */
4757 if (!STRINGP (font
))
4758 font
= x_new_font (f
, "-adobe-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-1");
4759 if (!STRINGP (font
))
4760 font
= x_new_font (f
, "-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-1");
4761 if (! STRINGP (font
))
4762 font
= x_new_font (f
, "-*-*-medium-r-normal-*-*-140-*-*-c-*-iso8859-1");
4763 if (! STRINGP (font
))
4764 /* This was formerly the first thing tried, but it finds too many fonts
4765 and takes too long. */
4766 font
= x_new_font (f
, "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1");
4767 /* If those didn't work, look for something which will at least work. */
4768 if (! STRINGP (font
))
4769 font
= x_new_font (f
, "-*-fixed-*-*-*-*-*-140-*-*-c-*-iso8859-1");
4771 if (! STRINGP (font
))
4772 font
= build_string ("fixed");
4774 x_default_parameter (f
, parms
, Qfont
, font
,
4775 "font", "Font", RES_TYPE_STRING
);
4778 x_default_parameter (f
, parms
, Qborder_width
, make_number (2),
4779 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
4781 /* This defaults to 2 in order to match xterm. We recognize either
4782 internalBorderWidth or internalBorder (which is what xterm calls
4784 if (NILP (Fassq (Qinternal_border_width
, parms
)))
4788 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
4789 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
4790 if (! EQ (value
, Qunbound
))
4791 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
4795 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
4796 "internalBorderWidth", "internalBorderWidth",
4799 /* Also do the stuff which must be set before the window exists. */
4800 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
4801 "foreground", "Foreground", RES_TYPE_STRING
);
4802 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
4803 "background", "Background", RES_TYPE_STRING
);
4804 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
4805 "pointerColor", "Foreground", RES_TYPE_STRING
);
4806 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
4807 "cursorColor", "Foreground", RES_TYPE_STRING
);
4808 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
4809 "borderColor", "BorderColor", RES_TYPE_STRING
);
4811 /* Init faces before x_default_parameter is called for scroll-bar
4812 parameters because that function calls x_set_scroll_bar_width,
4813 which calls change_frame_size, which calls Fset_window_buffer,
4814 which runs hooks, which call Fvertical_motion. At the end, we
4815 end up in init_iterator with a null face cache, which should not
4817 init_frame_faces (f
);
4819 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4821 window_prompting
= x_figure_window_size (f
, parms
, 0);
4824 XSetWindowAttributes attrs
;
4828 mask
= CWBackPixel
| CWOverrideRedirect
| CWEventMask
;
4829 if (DoesSaveUnders (dpyinfo
->screen
))
4830 mask
|= CWSaveUnder
;
4832 /* Window managers look at the override-redirect flag to determine
4833 whether or net to give windows a decoration (Xlib spec, chapter
4835 attrs
.override_redirect
= True
;
4836 attrs
.save_under
= True
;
4837 attrs
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
4838 /* Arrange for getting MapNotify and UnmapNotify events. */
4839 attrs
.event_mask
= StructureNotifyMask
;
4841 = FRAME_X_WINDOW (f
)
4842 = XCreateWindow (FRAME_X_DISPLAY (f
),
4843 FRAME_X_DISPLAY_INFO (f
)->root_window
,
4844 /* x, y, width, height */
4848 CopyFromParent
, InputOutput
, CopyFromParent
,
4855 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
4856 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4857 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
4858 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4859 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
4860 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
4862 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
4863 Change will not be effected unless different from the current
4865 width
= FRAME_COLS (f
);
4866 height
= FRAME_LINES (f
);
4867 SET_FRAME_COLS (f
, 0);
4868 FRAME_LINES (f
) = 0;
4869 change_frame_size (f
, height
, width
, 1, 0, 0);
4871 /* Add `tooltip' frame parameter's default value. */
4872 if (NILP (Fframe_parameter (frame
, intern ("tooltip"))))
4873 Fmodify_frame_parameters (frame
, Fcons (Fcons (intern ("tooltip"), Qt
),
4876 /* Set up faces after all frame parameters are known. This call
4877 also merges in face attributes specified for new frames.
4879 Frame parameters may be changed if .Xdefaults contains
4880 specifications for the default font. For example, if there is an
4881 `Emacs.default.attributeBackground: pink', the `background-color'
4882 attribute of the frame get's set, which let's the internal border
4883 of the tooltip frame appear in pink. Prevent this. */
4885 Lisp_Object bg
= Fframe_parameter (frame
, Qbackground_color
);
4887 /* Set tip_frame here, so that */
4889 call1 (Qface_set_after_frame_default
, frame
);
4891 if (!EQ (bg
, Fframe_parameter (frame
, Qbackground_color
)))
4892 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qbackground_color
, bg
),
4900 /* It is now ok to make the frame official even if we get an error
4901 below. And the frame needs to be on Vframe_list or making it
4902 visible won't work. */
4903 Vframe_list
= Fcons (frame
, Vframe_list
);
4905 /* Now that the frame is official, it counts as a reference to
4907 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
4909 /* Setting attributes of faces of the tooltip frame from resources
4910 and similar will increment face_change_count, which leads to the
4911 clearing of all current matrices. Since this isn't necessary
4912 here, avoid it by resetting face_change_count to the value it
4913 had before we created the tip frame. */
4914 face_change_count
= face_change_count_before
;
4916 /* Discard the unwind_protect. */
4917 return unbind_to (count
, frame
);
4921 /* Compute where to display tip frame F. PARMS is the list of frame
4922 parameters for F. DX and DY are specified offsets from the current
4923 location of the mouse. WIDTH and HEIGHT are the width and height
4924 of the tooltip. Return coordinates relative to the root window of
4925 the display in *ROOT_X, and *ROOT_Y. */
4928 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, root_x
, root_y
)
4930 Lisp_Object parms
, dx
, dy
;
4932 int *root_x
, *root_y
;
4934 Lisp_Object left
, top
;
4939 /* User-specified position? */
4940 left
= Fcdr (Fassq (Qleft
, parms
));
4941 top
= Fcdr (Fassq (Qtop
, parms
));
4943 /* Move the tooltip window where the mouse pointer is. Resize and
4945 if (!INTEGERP (left
) || !INTEGERP (top
))
4948 XQueryPointer (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
4949 &root
, &child
, root_x
, root_y
, &win_x
, &win_y
, &pmask
);
4954 *root_y
= XINT (top
);
4955 else if (*root_y
+ XINT (dy
) <= 0)
4956 *root_y
= 0; /* Can happen for negative dy */
4957 else if (*root_y
+ XINT (dy
) + height
<= FRAME_X_DISPLAY_INFO (f
)->height
)
4958 /* It fits below the pointer */
4959 *root_y
+= XINT (dy
);
4960 else if (height
+ XINT (dy
) <= *root_y
)
4961 /* It fits above the pointer. */
4962 *root_y
-= height
+ XINT (dy
);
4964 /* Put it on the top. */
4967 if (INTEGERP (left
))
4968 *root_x
= XINT (left
);
4969 else if (*root_x
+ XINT (dx
) <= 0)
4970 *root_x
= 0; /* Can happen for negative dx */
4971 else if (*root_x
+ XINT (dx
) + width
<= FRAME_X_DISPLAY_INFO (f
)->width
)
4972 /* It fits to the right of the pointer. */
4973 *root_x
+= XINT (dx
);
4974 else if (width
+ XINT (dx
) <= *root_x
)
4975 /* It fits to the left of the pointer. */
4976 *root_x
-= width
+ XINT (dx
);
4978 /* Put it left-justified on the screen--it ought to fit that way. */
4983 DEFUN ("x-show-tip", Fx_show_tip
, Sx_show_tip
, 1, 6, 0,
4984 doc
: /* Show STRING in a "tooltip" window on frame FRAME.
4985 A tooltip window is a small X window displaying a string.
4987 FRAME nil or omitted means use the selected frame.
4989 PARMS is an optional list of frame parameters which can be used to
4990 change the tooltip's appearance.
4992 Automatically hide the tooltip after TIMEOUT seconds. TIMEOUT nil
4993 means use the default timeout of 5 seconds.
4995 If the list of frame parameters PARAMS contains a `left' parameters,
4996 the tooltip is displayed at that x-position. Otherwise it is
4997 displayed at the mouse position, with offset DX added (default is 5 if
4998 DX isn't specified). Likewise for the y-position; if a `top' frame
4999 parameter is specified, it determines the y-position of the tooltip
5000 window, otherwise it is displayed at the mouse position, with offset
5001 DY added (default is -10).
5003 A tooltip's maximum size is specified by `x-max-tooltip-size'.
5004 Text larger than the specified size is clipped. */)
5005 (string
, frame
, parms
, timeout
, dx
, dy
)
5006 Lisp_Object string
, frame
, parms
, timeout
, dx
, dy
;
5011 struct buffer
*old_buffer
;
5012 struct text_pos pos
;
5013 int i
, width
, height
;
5014 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
5015 int old_windows_or_buffers_changed
= windows_or_buffers_changed
;
5016 int count
= SPECPDL_INDEX ();
5018 specbind (Qinhibit_redisplay
, Qt
);
5020 GCPRO4 (string
, parms
, frame
, timeout
);
5022 CHECK_STRING (string
);
5023 f
= check_x_frame (frame
);
5025 timeout
= make_number (5);
5027 CHECK_NATNUM (timeout
);
5030 dx
= make_number (5);
5035 dy
= make_number (-10);
5039 if (NILP (last_show_tip_args
))
5040 last_show_tip_args
= Fmake_vector (make_number (3), Qnil
);
5042 if (!NILP (tip_frame
))
5044 Lisp_Object last_string
= AREF (last_show_tip_args
, 0);
5045 Lisp_Object last_frame
= AREF (last_show_tip_args
, 1);
5046 Lisp_Object last_parms
= AREF (last_show_tip_args
, 2);
5048 if (EQ (frame
, last_frame
)
5049 && !NILP (Fequal (last_string
, string
))
5050 && !NILP (Fequal (last_parms
, parms
)))
5052 struct frame
*f
= XFRAME (tip_frame
);
5054 /* Only DX and DY have changed. */
5055 if (!NILP (tip_timer
))
5057 Lisp_Object timer
= tip_timer
;
5059 call1 (Qcancel_timer
, timer
);
5063 compute_tip_xy (f
, parms
, dx
, dy
, FRAME_PIXEL_WIDTH (f
),
5064 FRAME_PIXEL_HEIGHT (f
), &root_x
, &root_y
);
5065 XMoveWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5072 /* Hide a previous tip, if any. */
5075 ASET (last_show_tip_args
, 0, string
);
5076 ASET (last_show_tip_args
, 1, frame
);
5077 ASET (last_show_tip_args
, 2, parms
);
5079 /* Add default values to frame parameters. */
5080 if (NILP (Fassq (Qname
, parms
)))
5081 parms
= Fcons (Fcons (Qname
, build_string ("tooltip")), parms
);
5082 if (NILP (Fassq (Qinternal_border_width
, parms
)))
5083 parms
= Fcons (Fcons (Qinternal_border_width
, make_number (3)), parms
);
5084 if (NILP (Fassq (Qborder_width
, parms
)))
5085 parms
= Fcons (Fcons (Qborder_width
, make_number (1)), parms
);
5086 if (NILP (Fassq (Qborder_color
, parms
)))
5087 parms
= Fcons (Fcons (Qborder_color
, build_string ("lightyellow")), parms
);
5088 if (NILP (Fassq (Qbackground_color
, parms
)))
5089 parms
= Fcons (Fcons (Qbackground_color
, build_string ("lightyellow")),
5092 /* Create a frame for the tooltip, and record it in the global
5093 variable tip_frame. */
5094 frame
= x_create_tip_frame (FRAME_X_DISPLAY_INFO (f
), parms
, string
);
5097 /* Set up the frame's root window. */
5098 w
= XWINDOW (FRAME_ROOT_WINDOW (f
));
5099 w
->left_col
= w
->top_line
= make_number (0);
5101 if (CONSP (Vx_max_tooltip_size
)
5102 && INTEGERP (XCAR (Vx_max_tooltip_size
))
5103 && XINT (XCAR (Vx_max_tooltip_size
)) > 0
5104 && INTEGERP (XCDR (Vx_max_tooltip_size
))
5105 && XINT (XCDR (Vx_max_tooltip_size
)) > 0)
5107 w
->total_cols
= XCAR (Vx_max_tooltip_size
);
5108 w
->total_lines
= XCDR (Vx_max_tooltip_size
);
5112 w
->total_cols
= make_number (80);
5113 w
->total_lines
= make_number (40);
5116 FRAME_TOTAL_COLS (f
) = XINT (w
->total_cols
);
5118 w
->pseudo_window_p
= 1;
5120 /* Display the tooltip text in a temporary buffer. */
5121 old_buffer
= current_buffer
;
5122 set_buffer_internal_1 (XBUFFER (XWINDOW (FRAME_ROOT_WINDOW (f
))->buffer
));
5123 current_buffer
->truncate_lines
= Qnil
;
5124 clear_glyph_matrix (w
->desired_matrix
);
5125 clear_glyph_matrix (w
->current_matrix
);
5126 SET_TEXT_POS (pos
, BEGV
, BEGV_BYTE
);
5127 try_window (FRAME_ROOT_WINDOW (f
), pos
, 0);
5129 /* Compute width and height of the tooltip. */
5131 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
5133 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
5137 /* Stop at the first empty row at the end. */
5138 if (!row
->enabled_p
|| !row
->displays_text_p
)
5141 /* Let the row go over the full width of the frame. */
5142 row
->full_width_p
= 1;
5144 /* There's a glyph at the end of rows that is used to place
5145 the cursor there. Don't include the width of this glyph. */
5146 if (row
->used
[TEXT_AREA
])
5148 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
5149 row_width
= row
->pixel_width
- last
->pixel_width
;
5152 row_width
= row
->pixel_width
;
5154 height
+= row
->height
;
5155 width
= max (width
, row_width
);
5158 /* Add the frame's internal border to the width and height the X
5159 window should have. */
5160 height
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5161 width
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5163 /* Move the tooltip window where the mouse pointer is. Resize and
5165 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
5168 XMoveResizeWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5169 root_x
, root_y
, width
, height
);
5170 XMapRaised (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
));
5173 /* Draw into the window. */
5174 w
->must_be_updated_p
= 1;
5175 update_single_window (w
, 1);
5177 /* Restore original current buffer. */
5178 set_buffer_internal_1 (old_buffer
);
5179 windows_or_buffers_changed
= old_windows_or_buffers_changed
;
5182 /* Let the tip disappear after timeout seconds. */
5183 tip_timer
= call3 (intern ("run-at-time"), timeout
, Qnil
,
5184 intern ("x-hide-tip"));
5187 return unbind_to (count
, Qnil
);
5191 DEFUN ("x-hide-tip", Fx_hide_tip
, Sx_hide_tip
, 0, 0, 0,
5192 doc
: /* Hide the current tooltip window, if there is any.
5193 Value is t if tooltip was open, nil otherwise. */)
5197 Lisp_Object deleted
, frame
, timer
;
5198 struct gcpro gcpro1
, gcpro2
;
5200 /* Return quickly if nothing to do. */
5201 if (NILP (tip_timer
) && NILP (tip_frame
))
5206 GCPRO2 (frame
, timer
);
5207 tip_frame
= tip_timer
= deleted
= Qnil
;
5209 count
= SPECPDL_INDEX ();
5210 specbind (Qinhibit_redisplay
, Qt
);
5211 specbind (Qinhibit_quit
, Qt
);
5214 call1 (Qcancel_timer
, timer
);
5218 Fdelete_frame (frame
, Qnil
);
5222 /* Bloodcurdling hack alert: The Lucid menu bar widget's
5223 redisplay procedure is not called when a tip frame over menu
5224 items is unmapped. Redisplay the menu manually... */
5226 struct frame
*f
= SELECTED_FRAME ();
5227 Widget w
= f
->output_data
.x
->menubar_widget
;
5228 extern void xlwmenu_redisplay
P_ ((Widget
));
5230 if (!DoesSaveUnders (FRAME_X_DISPLAY_INFO (f
)->screen
)
5234 xlwmenu_redisplay (w
);
5238 #endif /* USE_LUCID */
5242 return unbind_to (count
, deleted
);
5247 /***********************************************************************
5248 File selection dialog
5249 ***********************************************************************/
5251 DEFUN ("x-uses-old-gtk-dialog", Fx_uses_old_gtk_dialog
,
5252 Sx_uses_old_gtk_dialog
,
5254 doc
: /* Return t if the old Gtk+ file selection dialog is used. */)
5258 extern int use_dialog_box
;
5259 extern int use_file_dialog
;
5264 && xg_uses_old_file_dialog ())
5272 /* Callback for "OK" and "Cancel" on file selection dialog. */
5275 file_dialog_cb (widget
, client_data
, call_data
)
5277 XtPointer call_data
, client_data
;
5279 int *result
= (int *) client_data
;
5280 XmAnyCallbackStruct
*cb
= (XmAnyCallbackStruct
*) call_data
;
5281 *result
= cb
->reason
;
5285 /* Callback for unmapping a file selection dialog. This is used to
5286 capture the case where a dialog is closed via a window manager's
5287 closer button, for example. Using a XmNdestroyCallback didn't work
5291 file_dialog_unmap_cb (widget
, client_data
, call_data
)
5293 XtPointer call_data
, client_data
;
5295 int *result
= (int *) client_data
;
5296 *result
= XmCR_CANCEL
;
5300 clean_up_file_dialog (arg
)
5303 struct Lisp_Save_Value
*p
= XSAVE_VALUE (arg
);
5304 Widget dialog
= (Widget
) p
->pointer
;
5308 XtUnmanageChild (dialog
);
5309 XtDestroyWidget (dialog
);
5310 x_menu_set_in_use (0);
5317 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5318 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5319 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5320 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5321 or directory must exist. ONLY-DIR-P is ignored." */)
5322 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
)
5323 Lisp_Object prompt
, dir
, default_filename
, mustmatch
, only_dir_p
;
5326 struct frame
*f
= SELECTED_FRAME ();
5327 Lisp_Object file
= Qnil
;
5328 Lisp_Object decoded_file
;
5329 Widget dialog
, text
, help
;
5332 extern XtAppContext Xt_app_con
;
5333 XmString dir_xmstring
, pattern_xmstring
;
5334 int count
= SPECPDL_INDEX ();
5335 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5337 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5339 if (popup_activated ())
5340 error ("Trying to use a menu from within a menu-entry");
5342 CHECK_STRING (prompt
);
5345 /* Prevent redisplay. */
5346 specbind (Qinhibit_redisplay
, Qt
);
5350 /* Create the dialog with PROMPT as title, using DIR as initial
5351 directory and using "*" as pattern. */
5352 dir
= Fexpand_file_name (dir
, Qnil
);
5353 dir_xmstring
= XmStringCreateLocalized (SDATA (dir
));
5354 pattern_xmstring
= XmStringCreateLocalized ("*");
5356 XtSetArg (al
[ac
], XmNtitle
, SDATA (prompt
)); ++ac
;
5357 XtSetArg (al
[ac
], XmNdirectory
, dir_xmstring
); ++ac
;
5358 XtSetArg (al
[ac
], XmNpattern
, pattern_xmstring
); ++ac
;
5359 XtSetArg (al
[ac
], XmNresizePolicy
, XmRESIZE_GROW
); ++ac
;
5360 XtSetArg (al
[ac
], XmNdialogStyle
, XmDIALOG_APPLICATION_MODAL
); ++ac
;
5361 dialog
= XmCreateFileSelectionDialog (f
->output_data
.x
->widget
,
5363 XmStringFree (dir_xmstring
);
5364 XmStringFree (pattern_xmstring
);
5366 /* Add callbacks for OK and Cancel. */
5367 XtAddCallback (dialog
, XmNokCallback
, file_dialog_cb
,
5368 (XtPointer
) &result
);
5369 XtAddCallback (dialog
, XmNcancelCallback
, file_dialog_cb
,
5370 (XtPointer
) &result
);
5371 XtAddCallback (dialog
, XmNunmapCallback
, file_dialog_unmap_cb
,
5372 (XtPointer
) &result
);
5374 /* Remove the help button since we can't display help. */
5375 help
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_HELP_BUTTON
);
5376 XtUnmanageChild (help
);
5378 /* Mark OK button as default. */
5379 XtVaSetValues (XmFileSelectionBoxGetChild (dialog
, XmDIALOG_OK_BUTTON
),
5380 XmNshowAsDefault
, True
, NULL
);
5382 /* If MUSTMATCH is non-nil, disable the file entry field of the
5383 dialog, so that the user must select a file from the files list
5384 box. We can't remove it because we wouldn't have a way to get at
5385 the result file name, then. */
5386 text
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5387 if (!NILP (mustmatch
))
5390 label
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_SELECTION_LABEL
);
5391 XtSetSensitive (text
, False
);
5392 XtSetSensitive (label
, False
);
5395 /* Manage the dialog, so that list boxes get filled. */
5396 XtManageChild (dialog
);
5398 if (STRINGP (default_filename
))
5400 XmString default_xmstring
;
5401 Widget wtext
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5402 Widget list
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_LIST
);
5404 XmTextPosition last_pos
= XmTextFieldGetLastPosition (wtext
);
5405 XmTextFieldReplace (wtext
, 0, last_pos
,
5406 (SDATA (Ffile_name_nondirectory (default_filename
))));
5408 /* Select DEFAULT_FILENAME in the files list box. DEFAULT_FILENAME
5409 must include the path for this to work. */
5411 default_xmstring
= XmStringCreateLocalized (SDATA (default_filename
));
5413 if (XmListItemExists (list
, default_xmstring
))
5415 int item_pos
= XmListItemPos (list
, default_xmstring
);
5416 /* Select the item and scroll it into view. */
5417 XmListSelectPos (list
, item_pos
, True
);
5418 XmListSetPos (list
, item_pos
);
5421 XmStringFree (default_xmstring
);
5424 record_unwind_protect (clean_up_file_dialog
, make_save_value (dialog
, 0));
5426 /* Process events until the user presses Cancel or OK. */
5427 x_menu_set_in_use (1);
5432 x_menu_wait_for_event (0);
5433 XtAppNextEvent (Xt_app_con
, &event
);
5434 if (event
.type
== KeyPress
5435 && FRAME_X_DISPLAY (f
) == event
.xkey
.display
)
5437 KeySym keysym
= XLookupKeysym (&event
.xkey
, 0);
5439 /* Pop down on C-g. */
5440 if (keysym
== XK_g
&& (event
.xkey
.state
& ControlMask
) != 0)
5441 XtUnmanageChild (dialog
);
5444 (void) x_dispatch_event (&event
, FRAME_X_DISPLAY (f
));
5447 /* Get the result. */
5448 if (result
== XmCR_OK
)
5453 XtVaGetValues (dialog
, XmNtextString
, &text
, NULL
);
5454 XmStringGetLtoR (text
, XmFONTLIST_DEFAULT_TAG
, &data
);
5455 XmStringFree (text
);
5456 file
= build_string (data
);
5465 /* Make "Cancel" equivalent to C-g. */
5467 Fsignal (Qquit
, Qnil
);
5469 decoded_file
= DECODE_FILE (file
);
5471 return unbind_to (count
, decoded_file
);
5474 #endif /* USE_MOTIF */
5479 clean_up_dialog (arg
)
5482 x_menu_set_in_use (0);
5487 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5488 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5489 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5490 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5491 or directory must exist. If ONLY-DIR-P is non-nil, the user can only select
5493 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
)
5494 Lisp_Object prompt
, dir
, default_filename
, mustmatch
, only_dir_p
;
5496 FRAME_PTR f
= SELECTED_FRAME ();
5498 Lisp_Object file
= Qnil
;
5499 Lisp_Object decoded_file
;
5500 int count
= SPECPDL_INDEX ();
5501 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5504 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5506 if (popup_activated ())
5507 error ("Trying to use a menu from within a menu-entry");
5509 CHECK_STRING (prompt
);
5512 /* Prevent redisplay. */
5513 specbind (Qinhibit_redisplay
, Qt
);
5514 record_unwind_protect (clean_up_dialog
, Qnil
);
5518 if (STRINGP (default_filename
))
5519 cdef_file
= SDATA (default_filename
);
5521 cdef_file
= SDATA (dir
);
5523 fn
= xg_get_file_name (f
, SDATA (prompt
), cdef_file
,
5525 ! NILP (only_dir_p
));
5529 file
= build_string (fn
);
5536 /* Make "Cancel" equivalent to C-g. */
5538 Fsignal (Qquit
, Qnil
);
5540 decoded_file
= DECODE_FILE (file
);
5542 return unbind_to (count
, decoded_file
);
5545 #endif /* USE_GTK */
5548 /***********************************************************************
5550 ***********************************************************************/
5552 #ifdef HAVE_XKBGETKEYBOARD
5553 #include <X11/XKBlib.h>
5554 #include <X11/keysym.h>
5557 DEFUN ("x-backspace-delete-keys-p", Fx_backspace_delete_keys_p
,
5558 Sx_backspace_delete_keys_p
, 0, 1, 0,
5559 doc
: /* Check if both Backspace and Delete keys are on the keyboard of FRAME.
5560 FRAME nil means use the selected frame.
5561 Value is t if we know that both keys are present, and are mapped to the
5562 usual X keysyms. Value is `lambda' if we cannot determine if both keys are
5563 present and mapped to the usual X keysyms. */)
5567 #ifdef HAVE_XKBGETKEYBOARD
5569 struct frame
*f
= check_x_frame (frame
);
5570 Display
*dpy
= FRAME_X_DISPLAY (f
);
5571 Lisp_Object have_keys
;
5572 int major
, minor
, op
, event
, error
;
5576 /* Check library version in case we're dynamically linked. */
5577 major
= XkbMajorVersion
;
5578 minor
= XkbMinorVersion
;
5579 if (!XkbLibraryVersion (&major
, &minor
))
5585 /* Check that the server supports XKB. */
5586 major
= XkbMajorVersion
;
5587 minor
= XkbMinorVersion
;
5588 if (!XkbQueryExtension (dpy
, &op
, &event
, &error
, &major
, &minor
))
5594 /* In this code we check that the keyboard has physical keys with names
5595 that start with BKSP (Backspace) and DELE (Delete), and that they
5596 generate keysym XK_BackSpace and XK_Delete respectively.
5597 This function is used to test if normal-erase-is-backspace should be
5599 An alternative approach would be to just check if XK_BackSpace and
5600 XK_Delete are mapped to any key. But if any of those are mapped to
5601 some non-intuitive key combination (Meta-Shift-Ctrl-whatever) and the
5602 user doesn't know about it, it is better to return false here.
5603 It is more obvious to the user what to do if she/he has two keys
5604 clearly marked with names/symbols and one key does something not
5605 expected (i.e. she/he then tries the other).
5606 The cases where Backspace/Delete is mapped to some other key combination
5607 are rare, and in those cases, normal-erase-is-backspace can be turned on
5611 kb
= XkbGetMap (dpy
, XkbAllMapComponentsMask
, XkbUseCoreKbd
);
5614 int delete_keycode
= 0, backspace_keycode
= 0, i
;
5616 if (XkbGetNames (dpy
, XkbAllNamesMask
, kb
) == Success
)
5618 for (i
= kb
->min_key_code
;
5619 (i
< kb
->max_key_code
5620 && (delete_keycode
== 0 || backspace_keycode
== 0));
5623 /* The XKB symbolic key names can be seen most easily in
5624 the PS file generated by `xkbprint -label name
5626 if (bcmp ("DELE", kb
->names
->keys
[i
].name
, 4) == 0)
5628 else if (bcmp ("BKSP", kb
->names
->keys
[i
].name
, 4) == 0)
5629 backspace_keycode
= i
;
5632 XkbFreeNames (kb
, 0, True
);
5635 XkbFreeClientMap (kb
, 0, True
);
5638 && backspace_keycode
5639 && XKeysymToKeycode (dpy
, XK_Delete
) == delete_keycode
5640 && XKeysymToKeycode (dpy
, XK_BackSpace
) == backspace_keycode
)
5645 #else /* not HAVE_XKBGETKEYBOARD */
5647 #endif /* not HAVE_XKBGETKEYBOARD */
5652 /***********************************************************************
5654 ***********************************************************************/
5656 /* Keep this list in the same order as frame_parms in frame.c.
5657 Use 0 for unsupported frame parameters. */
5659 frame_parm_handler x_frame_parm_handlers
[] =
5663 x_set_background_color
,
5669 x_set_foreground_color
,
5672 x_set_internal_border_width
,
5673 x_set_menu_bar_lines
,
5675 x_explicitly_set_name
,
5676 x_set_scroll_bar_width
,
5679 x_set_vertical_scroll_bars
,
5681 x_set_tool_bar_lines
,
5682 x_set_scroll_bar_foreground
,
5683 x_set_scroll_bar_background
,
5695 /* This is zero if not using X windows. */
5698 /* The section below is built by the lisp expression at the top of the file,
5699 just above where these variables are declared. */
5700 /*&&& init symbols here &&&*/
5701 Qnone
= intern ("none");
5703 Qsuppress_icon
= intern ("suppress-icon");
5704 staticpro (&Qsuppress_icon
);
5705 Qundefined_color
= intern ("undefined-color");
5706 staticpro (&Qundefined_color
);
5707 Qcompound_text
= intern ("compound-text");
5708 staticpro (&Qcompound_text
);
5709 Qcancel_timer
= intern ("cancel-timer");
5710 staticpro (&Qcancel_timer
);
5711 /* This is the end of symbol initialization. */
5713 /* Text property `display' should be nonsticky by default. */
5714 Vtext_property_default_nonsticky
5715 = Fcons (Fcons (Qdisplay
, Qt
), Vtext_property_default_nonsticky
);
5718 Fput (Qundefined_color
, Qerror_conditions
,
5719 Fcons (Qundefined_color
, Fcons (Qerror
, Qnil
)));
5720 Fput (Qundefined_color
, Qerror_message
,
5721 build_string ("Undefined color"));
5723 DEFVAR_LISP ("x-pointer-shape", &Vx_pointer_shape
,
5724 doc
: /* The shape of the pointer when over text.
5725 Changing the value does not affect existing frames
5726 unless you set the mouse color. */);
5727 Vx_pointer_shape
= Qnil
;
5729 #if 0 /* This doesn't really do anything. */
5730 DEFVAR_LISP ("x-nontext-pointer-shape", &Vx_nontext_pointer_shape
,
5731 doc
: /* The shape of the pointer when not over text.
5732 This variable takes effect when you create a new frame
5733 or when you set the mouse color. */);
5735 Vx_nontext_pointer_shape
= Qnil
;
5737 DEFVAR_LISP ("x-hourglass-pointer-shape", &Vx_hourglass_pointer_shape
,
5738 doc
: /* The shape of the pointer when Emacs is busy.
5739 This variable takes effect when you create a new frame
5740 or when you set the mouse color. */);
5741 Vx_hourglass_pointer_shape
= Qnil
;
5743 DEFVAR_BOOL ("display-hourglass", &display_hourglass_p
,
5744 doc
: /* Non-zero means Emacs displays an hourglass pointer on window systems. */);
5745 display_hourglass_p
= 1;
5747 DEFVAR_LISP ("hourglass-delay", &Vhourglass_delay
,
5748 doc
: /* *Seconds to wait before displaying an hourglass pointer.
5749 Value must be an integer or float. */);
5750 Vhourglass_delay
= make_number (DEFAULT_HOURGLASS_DELAY
);
5752 #if 0 /* This doesn't really do anything. */
5753 DEFVAR_LISP ("x-mode-pointer-shape", &Vx_mode_pointer_shape
,
5754 doc
: /* The shape of the pointer when over the mode line.
5755 This variable takes effect when you create a new frame
5756 or when you set the mouse color. */);
5758 Vx_mode_pointer_shape
= Qnil
;
5760 DEFVAR_LISP ("x-sensitive-text-pointer-shape",
5761 &Vx_sensitive_text_pointer_shape
,
5762 doc
: /* The shape of the pointer when over mouse-sensitive text.
5763 This variable takes effect when you create a new frame
5764 or when you set the mouse color. */);
5765 Vx_sensitive_text_pointer_shape
= Qnil
;
5767 DEFVAR_LISP ("x-window-horizontal-drag-cursor",
5768 &Vx_window_horizontal_drag_shape
,
5769 doc
: /* Pointer shape to use for indicating a window can be dragged horizontally.
5770 This variable takes effect when you create a new frame
5771 or when you set the mouse color. */);
5772 Vx_window_horizontal_drag_shape
= Qnil
;
5774 DEFVAR_LISP ("x-cursor-fore-pixel", &Vx_cursor_fore_pixel
,
5775 doc
: /* A string indicating the foreground color of the cursor box. */);
5776 Vx_cursor_fore_pixel
= Qnil
;
5778 DEFVAR_LISP ("x-max-tooltip-size", &Vx_max_tooltip_size
,
5779 doc
: /* Maximum size for tooltips. Value is a pair (COLUMNS . ROWS).
5780 Text larger than this is clipped. */);
5781 Vx_max_tooltip_size
= Fcons (make_number (80), make_number (40));
5783 DEFVAR_LISP ("x-no-window-manager", &Vx_no_window_manager
,
5784 doc
: /* Non-nil if no X window manager is in use.
5785 Emacs doesn't try to figure this out; this is always nil
5786 unless you set it to something else. */);
5787 /* We don't have any way to find this out, so set it to nil
5788 and maybe the user would like to set it to t. */
5789 Vx_no_window_manager
= Qnil
;
5791 DEFVAR_LISP ("x-pixel-size-width-font-regexp",
5792 &Vx_pixel_size_width_font_regexp
,
5793 doc
: /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'.
5795 Since Emacs gets width of a font matching with this regexp from
5796 PIXEL_SIZE field of the name, font finding mechanism gets faster for
5797 such a font. This is especially effective for such large fonts as
5798 Chinese, Japanese, and Korean. */);
5799 Vx_pixel_size_width_font_regexp
= Qnil
;
5801 /* This is not ifdef:ed, so other builds than GTK can customize it. */
5802 DEFVAR_BOOL ("x-use-old-gtk-file-dialog", &x_use_old_gtk_file_dialog
,
5803 doc
: /* *Non-nil means prompt with the old GTK file selection dialog.
5804 If nil or if the file selection dialog is not available, the new GTK file
5805 chooser is used instead. To turn off all file dialogs set the
5806 variable `use-file-dialog'. */);
5807 x_use_old_gtk_file_dialog
= 0;
5809 DEFVAR_BOOL ("x-gtk-show-hidden-files", &x_gtk_show_hidden_files
,
5810 doc
: /* *If non-nil, the GTK file chooser will by default show hidden files.
5811 Note that this is just the default, there is a toggle button on the file
5812 chooser to show or not show hidden files on a case by case basis. */);
5813 x_gtk_show_hidden_files
= 0;
5815 DEFVAR_BOOL ("x-gtk-whole-detached-tool-bar", &x_gtk_whole_detached_tool_bar
,
5816 doc
: /* *If non-nil, a detached tool bar is shown in full.
5817 The default is to just show an arrow and pressing on that arrow shows
5818 the tool bar buttons. */);
5819 x_gtk_whole_detached_tool_bar
= 0;
5821 Fprovide (intern ("x"), Qnil
);
5823 #ifdef USE_X_TOOLKIT
5824 Fprovide (intern ("x-toolkit"), Qnil
);
5826 Fprovide (intern ("motif"), Qnil
);
5828 DEFVAR_LISP ("motif-version-string", &Vmotif_version_string
,
5829 doc
: /* Version info for LessTif/Motif. */);
5830 Vmotif_version_string
= build_string (XmVERSION_STRING
);
5831 #endif /* USE_MOTIF */
5832 #endif /* USE_X_TOOLKIT */
5835 /* Provide x-toolkit also for GTK. Internally GTK does not use Xt so it
5836 is not an X toolkit in that sense (USE_X_TOOLKIT is not defined).
5837 But for a user it is a toolkit for X, and indeed, configure
5838 accepts --with-x-toolkit=gtk. */
5839 Fprovide (intern ("x-toolkit"), Qnil
);
5840 Fprovide (intern ("gtk"), Qnil
);
5842 DEFVAR_LISP ("gtk-version-string", &Vgtk_version_string
,
5843 doc
: /* Version info for GTK+. */);
5845 char gtk_version
[40];
5846 g_snprintf (gtk_version
, sizeof (gtk_version
), "%u.%u.%u",
5847 GTK_MAJOR_VERSION
, GTK_MINOR_VERSION
, GTK_MICRO_VERSION
);
5848 Vgtk_version_string
= build_string (gtk_version
);
5850 #endif /* USE_GTK */
5852 /* X window properties. */
5853 defsubr (&Sx_change_window_property
);
5854 defsubr (&Sx_delete_window_property
);
5855 defsubr (&Sx_window_property
);
5857 defsubr (&Sxw_display_color_p
);
5858 defsubr (&Sx_display_grayscale_p
);
5859 defsubr (&Sxw_color_defined_p
);
5860 defsubr (&Sxw_color_values
);
5861 defsubr (&Sx_server_max_request_size
);
5862 defsubr (&Sx_server_vendor
);
5863 defsubr (&Sx_server_version
);
5864 defsubr (&Sx_display_pixel_width
);
5865 defsubr (&Sx_display_pixel_height
);
5866 defsubr (&Sx_display_mm_width
);
5867 defsubr (&Sx_display_mm_height
);
5868 defsubr (&Sx_display_screens
);
5869 defsubr (&Sx_display_planes
);
5870 defsubr (&Sx_display_color_cells
);
5871 defsubr (&Sx_display_visual_class
);
5872 defsubr (&Sx_display_backing_store
);
5873 defsubr (&Sx_display_save_under
);
5874 defsubr (&Sx_create_frame
);
5875 defsubr (&Sx_open_connection
);
5876 defsubr (&Sx_close_connection
);
5877 defsubr (&Sx_display_list
);
5878 defsubr (&Sx_synchronize
);
5879 defsubr (&Sx_focus_frame
);
5880 defsubr (&Sx_backspace_delete_keys_p
);
5882 /* Setting callback functions for fontset handler. */
5883 get_font_info_func
= x_get_font_info
;
5885 #if 0 /* This function pointer doesn't seem to be used anywhere.
5886 And the pointer assigned has the wrong type, anyway. */
5887 list_fonts_func
= x_list_fonts
;
5890 load_font_func
= x_load_font
;
5891 find_ccl_program_func
= x_find_ccl_program
;
5892 query_font_func
= x_query_font
;
5893 set_frame_fontset_func
= x_set_font
;
5894 check_window_system_func
= check_x
;
5896 hourglass_atimer
= NULL
;
5897 hourglass_shown_p
= 0;
5899 defsubr (&Sx_show_tip
);
5900 defsubr (&Sx_hide_tip
);
5902 staticpro (&tip_timer
);
5904 staticpro (&tip_frame
);
5906 last_show_tip_args
= Qnil
;
5907 staticpro (&last_show_tip_args
);
5909 defsubr (&Sx_uses_old_gtk_dialog
);
5910 #if defined (USE_MOTIF) || defined (USE_GTK)
5911 defsubr (&Sx_file_dialog
);
5915 #endif /* HAVE_X_WINDOWS */
5917 /* arch-tag: 55040d02-5485-4d58-8b22-95a7a05f3288
5918 (do not change this comment) */