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 Free Software Foundation.
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., 59 Temple Place - Suite 330,
20 Boston, MA 02111-1307, USA. */
31 /* This makes the fields of a Display accessible, in Xlib header files. */
33 #define XLIB_ILLEGAL_ACCESS
40 #include "intervals.h"
41 #include "dispextern.h"
43 #include "blockinput.h"
49 #include "termhooks.h"
55 #include <sys/types.h>
59 #if 1 /* Used to be #ifdef EMACS_BITMAP_FILES, but this should always work. */
60 #include "bitmaps/gray.xbm"
62 #include <X11/bitmaps/gray>
65 #include "[.bitmaps]gray.xbm"
73 #include <X11/Shell.h>
76 #include <X11/Xaw/Paned.h>
77 #include <X11/Xaw/Label.h>
78 #endif /* USE_MOTIF */
81 #undef USG /* ####KLUDGE for Solaris 2.2 and up */
90 #include "../lwlib/lwlib.h"
94 #include <Xm/DialogS.h>
95 #include <Xm/FileSB.h>
98 /* Do the EDITRES protocol if running X11R5
99 Exception: HP-UX (at least version A.09.05) has X11R5 without EditRes */
101 #if (XtSpecificationRelease >= 5) && !defined(NO_EDITRES)
103 extern void _XEditResCheckMessages ();
104 #endif /* R5 + Athena */
106 /* Unique id counter for widgets created by the Lucid Widget Library. */
108 extern LWLIB_ID widget_id_tick
;
111 /* This is part of a kludge--see lwlib/xlwmenu.c. */
112 extern XFontStruct
*xlwmenu_default_font
;
115 extern void free_frame_menubar ();
116 extern double atof ();
120 /* LessTif/Motif version info. */
122 static Lisp_Object Vmotif_version_string
;
124 #endif /* USE_MOTIF */
126 #endif /* USE_X_TOOLKIT */
130 /* GTK+ version info */
132 static Lisp_Object Vgtk_version_string
;
137 #define MAXREQUEST(dpy) (XMaxRequestSize (dpy))
139 #define MAXREQUEST(dpy) ((dpy)->max_request_size)
142 /* The gray bitmap `bitmaps/gray'. This is done because xterm.c uses
143 it, and including `bitmaps/gray' more than once is a problem when
144 config.h defines `static' as an empty replacement string. */
146 int gray_bitmap_width
= gray_width
;
147 int gray_bitmap_height
= gray_height
;
148 char *gray_bitmap_bits
= gray_bits
;
150 /* Non-zero means we're allowed to display an hourglass cursor. */
152 int display_hourglass_p
;
154 /* Non-zero means prompt with the old GTK file selection dialog. */
156 int x_use_old_gtk_file_dialog
;
158 /* The background and shape of the mouse pointer, and shape when not
159 over text or in the modeline. */
161 Lisp_Object Vx_pointer_shape
, Vx_nontext_pointer_shape
, Vx_mode_pointer_shape
;
162 Lisp_Object Vx_hourglass_pointer_shape
;
164 /* The shape when over mouse-sensitive text. */
166 Lisp_Object Vx_sensitive_text_pointer_shape
;
168 /* If non-nil, the pointer shape to indicate that windows can be
169 dragged horizontally. */
171 Lisp_Object Vx_window_horizontal_drag_shape
;
173 /* Color of chars displayed in cursor box. */
175 Lisp_Object Vx_cursor_fore_pixel
;
177 /* Nonzero if using X. */
181 /* Non nil if no window manager is in use. */
183 Lisp_Object Vx_no_window_manager
;
185 /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'. */
187 Lisp_Object Vx_pixel_size_width_font_regexp
;
190 Lisp_Object Qsuppress_icon
;
191 Lisp_Object Qundefined_color
;
192 Lisp_Object Qcompound_text
, Qcancel_timer
;
196 extern Lisp_Object Vwindow_system_version
;
198 /* The below are defined in frame.c. */
201 int image_cache_refcount
, dpyinfo_refcount
;
206 /* Error if we are not connected to X. */
212 error ("X windows are not in use or not initialized");
215 /* Nonzero if we can use mouse menus.
216 You should not call this unless HAVE_MENUS is defined. */
224 /* Extract a frame as a FRAME_PTR, defaulting to the selected frame
225 and checking validity for X. */
228 check_x_frame (frame
)
234 frame
= selected_frame
;
235 CHECK_LIVE_FRAME (frame
);
238 error ("Non-X frame used");
242 /* Let the user specify an X display with a frame.
243 nil stands for the selected frame--or, if that is not an X frame,
244 the first X display on the list. */
246 struct x_display_info
*
247 check_x_display_info (frame
)
250 struct x_display_info
*dpyinfo
= NULL
;
254 struct frame
*sf
= XFRAME (selected_frame
);
256 if (FRAME_X_P (sf
) && FRAME_LIVE_P (sf
))
257 dpyinfo
= FRAME_X_DISPLAY_INFO (sf
);
258 else if (x_display_list
!= 0)
259 dpyinfo
= x_display_list
;
261 error ("X windows are not in use or not initialized");
263 else if (STRINGP (frame
))
264 dpyinfo
= x_display_info_for_name (frame
);
267 FRAME_PTR f
= check_x_frame (frame
);
268 dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
275 /* Return the Emacs frame-object corresponding to an X window.
276 It could be the frame's main window or an icon window. */
278 /* This function can be called during GC, so use GC_xxx type test macros. */
281 x_window_to_frame (dpyinfo
, wdesc
)
282 struct x_display_info
*dpyinfo
;
285 Lisp_Object tail
, frame
;
288 if (wdesc
== None
) return 0;
290 for (tail
= Vframe_list
; GC_CONSP (tail
); tail
= XCDR (tail
))
293 if (!GC_FRAMEP (frame
))
296 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
298 if (f
->output_data
.x
->hourglass_window
== wdesc
)
301 if ((f
->output_data
.x
->edit_widget
302 && XtWindow (f
->output_data
.x
->edit_widget
) == wdesc
)
303 /* A tooltip frame? */
304 || (!f
->output_data
.x
->edit_widget
305 && FRAME_X_WINDOW (f
) == wdesc
)
306 || f
->output_data
.x
->icon_desc
== wdesc
)
308 #else /* not USE_X_TOOLKIT */
310 if (f
->output_data
.x
->edit_widget
)
312 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
313 struct x_output
*x
= f
->output_data
.x
;
314 if (gwdesc
!= 0 && gwdesc
== x
->edit_widget
)
318 if (FRAME_X_WINDOW (f
) == wdesc
319 || f
->output_data
.x
->icon_desc
== wdesc
)
321 #endif /* not USE_X_TOOLKIT */
326 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
327 /* Like x_window_to_frame but also compares the window with the widget's
331 x_any_window_to_frame (dpyinfo
, wdesc
)
332 struct x_display_info
*dpyinfo
;
335 Lisp_Object tail
, frame
;
336 struct frame
*f
, *found
;
339 if (wdesc
== None
) return NULL
;
342 for (tail
= Vframe_list
; GC_CONSP (tail
) && !found
; tail
= XCDR (tail
))
345 if (!GC_FRAMEP (frame
))
349 if (FRAME_X_P (f
) && FRAME_X_DISPLAY_INFO (f
) == dpyinfo
)
351 /* This frame matches if the window is any of its widgets. */
352 x
= f
->output_data
.x
;
353 if (x
->hourglass_window
== wdesc
)
358 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
360 && (gwdesc
== x
->widget
361 || gwdesc
== x
->edit_widget
362 || gwdesc
== x
->vbox_widget
363 || gwdesc
== x
->menubar_widget
))
366 if (wdesc
== XtWindow (x
->widget
)
367 || wdesc
== XtWindow (x
->column_widget
)
368 || wdesc
== XtWindow (x
->edit_widget
))
370 /* Match if the window is this frame's menubar. */
371 else if (lw_window_is_in_menubar (wdesc
, x
->menubar_widget
))
375 else if (FRAME_X_WINDOW (f
) == wdesc
)
376 /* A tooltip frame. */
384 /* Likewise, but exclude the menu bar widget. */
387 x_non_menubar_window_to_frame (dpyinfo
, wdesc
)
388 struct x_display_info
*dpyinfo
;
391 Lisp_Object tail
, frame
;
395 if (wdesc
== None
) return 0;
397 for (tail
= Vframe_list
; GC_CONSP (tail
); tail
= XCDR (tail
))
400 if (!GC_FRAMEP (frame
))
403 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
405 x
= f
->output_data
.x
;
406 /* This frame matches if the window is any of its widgets. */
407 if (x
->hourglass_window
== wdesc
)
412 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
414 && (gwdesc
== x
->widget
415 || gwdesc
== x
->edit_widget
416 || gwdesc
== x
->vbox_widget
))
419 if (wdesc
== XtWindow (x
->widget
)
420 || wdesc
== XtWindow (x
->column_widget
)
421 || wdesc
== XtWindow (x
->edit_widget
))
425 else if (FRAME_X_WINDOW (f
) == wdesc
)
426 /* A tooltip frame. */
432 /* Likewise, but consider only the menu bar widget. */
435 x_menubar_window_to_frame (dpyinfo
, wdesc
)
436 struct x_display_info
*dpyinfo
;
439 Lisp_Object tail
, frame
;
443 if (wdesc
== None
) return 0;
445 for (tail
= Vframe_list
; GC_CONSP (tail
); tail
= XCDR (tail
))
448 if (!GC_FRAMEP (frame
))
451 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
453 x
= f
->output_data
.x
;
454 /* Match if the window is this frame's menubar. */
456 if (x
->menubar_widget
)
458 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
463 && (gwdesc
== x
->menubar_widget
464 || gtk_widget_get_parent (gwdesc
) == x
->menubar_widget
))
470 if (x
->menubar_widget
471 && lw_window_is_in_menubar (wdesc
, x
->menubar_widget
))
478 /* Return the frame whose principal (outermost) window is WDESC.
479 If WDESC is some other (smaller) window, we return 0. */
482 x_top_window_to_frame (dpyinfo
, wdesc
)
483 struct x_display_info
*dpyinfo
;
486 Lisp_Object tail
, frame
;
490 if (wdesc
== None
) return 0;
492 for (tail
= Vframe_list
; GC_CONSP (tail
); tail
= XCDR (tail
))
495 if (!GC_FRAMEP (frame
))
498 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
500 x
= f
->output_data
.x
;
504 /* This frame matches if the window is its topmost widget. */
506 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
507 if (gwdesc
== x
->widget
)
510 if (wdesc
== XtWindow (x
->widget
))
512 #if 0 /* I don't know why it did this,
513 but it seems logically wrong,
514 and it causes trouble for MapNotify events. */
515 /* Match if the window is this frame's menubar. */
516 if (x
->menubar_widget
517 && wdesc
== XtWindow (x
->menubar_widget
))
522 else if (FRAME_X_WINDOW (f
) == wdesc
)
528 #endif /* USE_X_TOOLKIT || USE_GTK */
532 static Lisp_Object unwind_create_frame
P_ ((Lisp_Object
));
533 static Lisp_Object unwind_create_tip_frame
P_ ((Lisp_Object
));
535 void x_set_foreground_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
536 static void x_set_wait_for_wm
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
537 void x_set_background_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
538 void x_set_mouse_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
539 void x_set_cursor_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
540 void x_set_border_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
541 void x_set_cursor_type
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
542 void x_set_icon_type
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
543 void x_set_icon_name
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
544 void x_explicitly_set_name
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
545 void x_set_menu_bar_lines
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
546 void x_set_title
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
547 void x_set_tool_bar_lines
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
548 void x_set_scroll_bar_foreground
P_ ((struct frame
*, Lisp_Object
,
550 void x_set_scroll_bar_background
P_ ((struct frame
*, Lisp_Object
,
552 static Lisp_Object x_default_scroll_bar_color_parameter
P_ ((struct frame
*,
559 /* Store the screen positions of frame F into XPTR and YPTR.
560 These are the positions of the containing window manager window,
561 not Emacs's own window. */
564 x_real_positions (f
, xptr
, yptr
)
568 int win_x
, win_y
, outer_x
, outer_y
;
569 int real_x
= 0, real_y
= 0;
571 Window win
= f
->output_data
.x
->parent_desc
;
577 count
= x_catch_errors (FRAME_X_DISPLAY (f
));
579 if (win
== FRAME_X_DISPLAY_INFO (f
)->root_window
)
580 win
= FRAME_OUTER_WINDOW (f
);
582 /* This loop traverses up the containment tree until we hit the root
583 window. Window managers may intersect many windows between our window
584 and the root window. The window we find just before the root window
585 should be the outer WM window. */
588 Window wm_window
, rootw
;
589 Window
*tmp_children
;
590 unsigned int tmp_nchildren
;
593 success
= XQueryTree (FRAME_X_DISPLAY (f
), win
, &rootw
,
594 &wm_window
, &tmp_children
, &tmp_nchildren
);
596 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
598 /* Don't free tmp_children if XQueryTree failed. */
602 XFree ((char *) tmp_children
);
604 if (wm_window
== rootw
|| had_errors
)
615 /* Get the real coordinates for the WM window upper left corner */
616 XGetGeometry (FRAME_X_DISPLAY (f
), win
,
617 &rootw
, &real_x
, &real_y
, &ign
, &ign
, &ign
, &ign
);
619 /* Translate real coordinates to coordinates relative to our
620 window. For our window, the upper left corner is 0, 0.
621 Since the upper left corner of the WM window is outside
622 our window, win_x and win_y will be negative:
624 ------------------ ---> x
626 | ----------------- v y
629 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
631 /* From-window, to-window. */
632 FRAME_X_DISPLAY_INFO (f
)->root_window
,
635 /* From-position, to-position. */
636 real_x
, real_y
, &win_x
, &win_y
,
641 if (FRAME_X_WINDOW (f
) == FRAME_OUTER_WINDOW (f
))
648 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
650 /* From-window, to-window. */
651 FRAME_X_DISPLAY_INFO (f
)->root_window
,
652 FRAME_OUTER_WINDOW (f
),
654 /* From-position, to-position. */
655 real_x
, real_y
, &outer_x
, &outer_y
,
661 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
664 x_uncatch_errors (FRAME_X_DISPLAY (f
), count
);
668 if (had_errors
) return;
670 f
->x_pixels_diff
= -win_x
;
671 f
->y_pixels_diff
= -win_y
;
673 FRAME_X_OUTPUT (f
)->x_pixels_outer_diff
= -outer_x
;
674 FRAME_X_OUTPUT (f
)->y_pixels_outer_diff
= -outer_y
;
683 /* Gamma-correct COLOR on frame F. */
686 gamma_correct (f
, color
)
692 color
->red
= pow (color
->red
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
693 color
->green
= pow (color
->green
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
694 color
->blue
= pow (color
->blue
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
699 /* Decide if color named COLOR_NAME is valid for use on frame F. If
700 so, return the RGB values in COLOR. If ALLOC_P is non-zero,
701 allocate the color. Value is zero if COLOR_NAME is invalid, or
702 no color could be allocated. */
705 x_defined_color (f
, color_name
, color
, alloc_p
)
712 Display
*dpy
= FRAME_X_DISPLAY (f
);
713 Colormap cmap
= FRAME_X_COLORMAP (f
);
716 success_p
= XParseColor (dpy
, cmap
, color_name
, color
);
717 if (success_p
&& alloc_p
)
718 success_p
= x_alloc_nearest_color (f
, cmap
, color
);
725 /* Return the pixel color value for color COLOR_NAME on frame F. If F
726 is a monochrome frame, return MONO_COLOR regardless of what ARG says.
727 Signal an error if color can't be allocated. */
730 x_decode_color (f
, color_name
, mono_color
)
732 Lisp_Object color_name
;
737 CHECK_STRING (color_name
);
739 #if 0 /* Don't do this. It's wrong when we're not using the default
740 colormap, it makes freeing difficult, and it's probably not
741 an important optimization. */
742 if (strcmp (SDATA (color_name
), "black") == 0)
743 return BLACK_PIX_DEFAULT (f
);
744 else if (strcmp (SDATA (color_name
), "white") == 0)
745 return WHITE_PIX_DEFAULT (f
);
748 /* Return MONO_COLOR for monochrome frames. */
749 if (FRAME_X_DISPLAY_INFO (f
)->n_planes
== 1)
752 /* x_defined_color is responsible for coping with failures
753 by looking for a near-miss. */
754 if (x_defined_color (f
, SDATA (color_name
), &cdef
, 1))
757 Fsignal (Qerror
, Fcons (build_string ("Undefined color"),
758 Fcons (color_name
, Qnil
)));
764 /* Change the `wait-for-wm' frame parameter of frame F. OLD_VALUE is
765 the previous value of that parameter, NEW_VALUE is the new value.
766 See also the comment of wait_for_wm in struct x_output. */
769 x_set_wait_for_wm (f
, new_value
, old_value
)
771 Lisp_Object new_value
, old_value
;
773 f
->output_data
.x
->wait_for_wm
= !NILP (new_value
);
778 /* Set icon from FILE for frame F. By using GTK functions the icon
779 may be any format that GdkPixbuf knows about, i.e. not just bitmaps. */
782 xg_set_icon (f
, file
)
792 found
= x_find_image_file (file
);
800 filename
= SDATA (found
);
803 pixbuf
= gdk_pixbuf_new_from_file (filename
, &err
);
807 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
809 g_object_unref (pixbuf
);
825 /* Functions called only from `x_set_frame_param'
826 to set individual parameters.
828 If FRAME_X_WINDOW (f) is 0,
829 the frame is being created and its X-window does not exist yet.
830 In that case, just record the parameter's new value
831 in the standard place; do not attempt to change the window. */
834 x_set_foreground_color (f
, arg
, oldval
)
836 Lisp_Object arg
, oldval
;
838 struct x_output
*x
= f
->output_data
.x
;
839 unsigned long fg
, old_fg
;
841 fg
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
842 old_fg
= x
->foreground_pixel
;
843 x
->foreground_pixel
= fg
;
845 if (FRAME_X_WINDOW (f
) != 0)
847 Display
*dpy
= FRAME_X_DISPLAY (f
);
850 XSetForeground (dpy
, x
->normal_gc
, fg
);
851 XSetBackground (dpy
, x
->reverse_gc
, fg
);
853 if (x
->cursor_pixel
== old_fg
)
855 unload_color (f
, x
->cursor_pixel
);
856 x
->cursor_pixel
= x_copy_color (f
, fg
);
857 XSetBackground (dpy
, x
->cursor_gc
, x
->cursor_pixel
);
862 update_face_from_frame_parameter (f
, Qforeground_color
, arg
);
864 if (FRAME_VISIBLE_P (f
))
868 unload_color (f
, old_fg
);
872 x_set_background_color (f
, arg
, oldval
)
874 Lisp_Object arg
, oldval
;
876 struct x_output
*x
= f
->output_data
.x
;
879 bg
= x_decode_color (f
, arg
, WHITE_PIX_DEFAULT (f
));
880 unload_color (f
, x
->background_pixel
);
881 x
->background_pixel
= bg
;
883 if (FRAME_X_WINDOW (f
) != 0)
885 Display
*dpy
= FRAME_X_DISPLAY (f
);
888 XSetBackground (dpy
, x
->normal_gc
, bg
);
889 XSetForeground (dpy
, x
->reverse_gc
, bg
);
890 XSetWindowBackground (dpy
, FRAME_X_WINDOW (f
), bg
);
891 XSetForeground (dpy
, x
->cursor_gc
, bg
);
894 xg_set_background_color (f
, bg
);
897 #ifndef USE_TOOLKIT_SCROLL_BARS /* Turns out to be annoying with
898 toolkit scroll bars. */
901 for (bar
= FRAME_SCROLL_BARS (f
);
903 bar
= XSCROLL_BAR (bar
)->next
)
905 Window window
= SCROLL_BAR_X_WINDOW (XSCROLL_BAR (bar
));
906 XSetWindowBackground (dpy
, window
, bg
);
909 #endif /* USE_TOOLKIT_SCROLL_BARS */
912 update_face_from_frame_parameter (f
, Qbackground_color
, arg
);
914 if (FRAME_VISIBLE_P (f
))
920 x_set_mouse_color (f
, arg
, oldval
)
922 Lisp_Object arg
, oldval
;
924 struct x_output
*x
= f
->output_data
.x
;
925 Display
*dpy
= FRAME_X_DISPLAY (f
);
926 Cursor cursor
, nontext_cursor
, mode_cursor
, hand_cursor
;
927 Cursor hourglass_cursor
, horizontal_drag_cursor
;
929 unsigned long pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
930 unsigned long mask_color
= x
->background_pixel
;
932 /* Don't let pointers be invisible. */
933 if (mask_color
== pixel
)
935 x_free_colors (f
, &pixel
, 1);
936 pixel
= x_copy_color (f
, x
->foreground_pixel
);
939 unload_color (f
, x
->mouse_pixel
);
940 x
->mouse_pixel
= pixel
;
944 /* It's not okay to crash if the user selects a screwy cursor. */
945 count
= x_catch_errors (dpy
);
947 if (!NILP (Vx_pointer_shape
))
949 CHECK_NUMBER (Vx_pointer_shape
);
950 cursor
= XCreateFontCursor (dpy
, XINT (Vx_pointer_shape
));
953 cursor
= XCreateFontCursor (dpy
, XC_xterm
);
954 x_check_errors (dpy
, "bad text pointer cursor: %s");
956 if (!NILP (Vx_nontext_pointer_shape
))
958 CHECK_NUMBER (Vx_nontext_pointer_shape
);
960 = XCreateFontCursor (dpy
, XINT (Vx_nontext_pointer_shape
));
963 nontext_cursor
= XCreateFontCursor (dpy
, XC_left_ptr
);
964 x_check_errors (dpy
, "bad nontext pointer cursor: %s");
966 if (!NILP (Vx_hourglass_pointer_shape
))
968 CHECK_NUMBER (Vx_hourglass_pointer_shape
);
970 = XCreateFontCursor (dpy
, XINT (Vx_hourglass_pointer_shape
));
973 hourglass_cursor
= XCreateFontCursor (dpy
, XC_watch
);
974 x_check_errors (dpy
, "bad hourglass pointer cursor: %s");
976 if (!NILP (Vx_mode_pointer_shape
))
978 CHECK_NUMBER (Vx_mode_pointer_shape
);
979 mode_cursor
= XCreateFontCursor (dpy
, XINT (Vx_mode_pointer_shape
));
982 mode_cursor
= XCreateFontCursor (dpy
, XC_xterm
);
983 x_check_errors (dpy
, "bad modeline pointer cursor: %s");
985 if (!NILP (Vx_sensitive_text_pointer_shape
))
987 CHECK_NUMBER (Vx_sensitive_text_pointer_shape
);
989 = XCreateFontCursor (dpy
, XINT (Vx_sensitive_text_pointer_shape
));
992 hand_cursor
= XCreateFontCursor (dpy
, XC_hand2
);
994 if (!NILP (Vx_window_horizontal_drag_shape
))
996 CHECK_NUMBER (Vx_window_horizontal_drag_shape
);
997 horizontal_drag_cursor
998 = XCreateFontCursor (dpy
, XINT (Vx_window_horizontal_drag_shape
));
1001 horizontal_drag_cursor
1002 = XCreateFontCursor (dpy
, XC_sb_h_double_arrow
);
1004 /* Check and report errors with the above calls. */
1005 x_check_errors (dpy
, "can't set cursor shape: %s");
1006 x_uncatch_errors (dpy
, count
);
1009 XColor fore_color
, back_color
;
1011 fore_color
.pixel
= x
->mouse_pixel
;
1012 x_query_color (f
, &fore_color
);
1013 back_color
.pixel
= mask_color
;
1014 x_query_color (f
, &back_color
);
1016 XRecolorCursor (dpy
, cursor
, &fore_color
, &back_color
);
1017 XRecolorCursor (dpy
, nontext_cursor
, &fore_color
, &back_color
);
1018 XRecolorCursor (dpy
, mode_cursor
, &fore_color
, &back_color
);
1019 XRecolorCursor (dpy
, hand_cursor
, &fore_color
, &back_color
);
1020 XRecolorCursor (dpy
, hourglass_cursor
, &fore_color
, &back_color
);
1021 XRecolorCursor (dpy
, horizontal_drag_cursor
, &fore_color
, &back_color
);
1024 if (FRAME_X_WINDOW (f
) != 0)
1025 XDefineCursor (dpy
, FRAME_X_WINDOW (f
), cursor
);
1027 if (cursor
!= x
->text_cursor
1028 && x
->text_cursor
!= 0)
1029 XFreeCursor (dpy
, x
->text_cursor
);
1030 x
->text_cursor
= cursor
;
1032 if (nontext_cursor
!= x
->nontext_cursor
1033 && x
->nontext_cursor
!= 0)
1034 XFreeCursor (dpy
, x
->nontext_cursor
);
1035 x
->nontext_cursor
= nontext_cursor
;
1037 if (hourglass_cursor
!= x
->hourglass_cursor
1038 && x
->hourglass_cursor
!= 0)
1039 XFreeCursor (dpy
, x
->hourglass_cursor
);
1040 x
->hourglass_cursor
= hourglass_cursor
;
1042 if (mode_cursor
!= x
->modeline_cursor
1043 && x
->modeline_cursor
!= 0)
1044 XFreeCursor (dpy
, f
->output_data
.x
->modeline_cursor
);
1045 x
->modeline_cursor
= mode_cursor
;
1047 if (hand_cursor
!= x
->hand_cursor
1048 && x
->hand_cursor
!= 0)
1049 XFreeCursor (dpy
, x
->hand_cursor
);
1050 x
->hand_cursor
= hand_cursor
;
1052 if (horizontal_drag_cursor
!= x
->horizontal_drag_cursor
1053 && x
->horizontal_drag_cursor
!= 0)
1054 XFreeCursor (dpy
, x
->horizontal_drag_cursor
);
1055 x
->horizontal_drag_cursor
= horizontal_drag_cursor
;
1060 update_face_from_frame_parameter (f
, Qmouse_color
, arg
);
1064 x_set_cursor_color (f
, arg
, oldval
)
1066 Lisp_Object arg
, oldval
;
1068 unsigned long fore_pixel
, pixel
;
1069 int fore_pixel_allocated_p
= 0, pixel_allocated_p
= 0;
1070 struct x_output
*x
= f
->output_data
.x
;
1072 if (!NILP (Vx_cursor_fore_pixel
))
1074 fore_pixel
= x_decode_color (f
, Vx_cursor_fore_pixel
,
1075 WHITE_PIX_DEFAULT (f
));
1076 fore_pixel_allocated_p
= 1;
1079 fore_pixel
= x
->background_pixel
;
1081 pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1082 pixel_allocated_p
= 1;
1084 /* Make sure that the cursor color differs from the background color. */
1085 if (pixel
== x
->background_pixel
)
1087 if (pixel_allocated_p
)
1089 x_free_colors (f
, &pixel
, 1);
1090 pixel_allocated_p
= 0;
1093 pixel
= x
->mouse_pixel
;
1094 if (pixel
== fore_pixel
)
1096 if (fore_pixel_allocated_p
)
1098 x_free_colors (f
, &fore_pixel
, 1);
1099 fore_pixel_allocated_p
= 0;
1101 fore_pixel
= x
->background_pixel
;
1105 unload_color (f
, x
->cursor_foreground_pixel
);
1106 if (!fore_pixel_allocated_p
)
1107 fore_pixel
= x_copy_color (f
, fore_pixel
);
1108 x
->cursor_foreground_pixel
= fore_pixel
;
1110 unload_color (f
, x
->cursor_pixel
);
1111 if (!pixel_allocated_p
)
1112 pixel
= x_copy_color (f
, pixel
);
1113 x
->cursor_pixel
= pixel
;
1115 if (FRAME_X_WINDOW (f
) != 0)
1118 XSetBackground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, x
->cursor_pixel
);
1119 XSetForeground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, fore_pixel
);
1122 if (FRAME_VISIBLE_P (f
))
1124 x_update_cursor (f
, 0);
1125 x_update_cursor (f
, 1);
1129 update_face_from_frame_parameter (f
, Qcursor_color
, arg
);
1132 /* Set the border-color of frame F to pixel value PIX.
1133 Note that this does not fully take effect if done before
1134 F has an x-window. */
1137 x_set_border_pixel (f
, pix
)
1141 unload_color (f
, f
->output_data
.x
->border_pixel
);
1142 f
->output_data
.x
->border_pixel
= pix
;
1144 if (FRAME_X_WINDOW (f
) != 0 && f
->border_width
> 0)
1147 XSetWindowBorder (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1148 (unsigned long)pix
);
1151 if (FRAME_VISIBLE_P (f
))
1156 /* Set the border-color of frame F to value described by ARG.
1157 ARG can be a string naming a color.
1158 The border-color is used for the border that is drawn by the X server.
1159 Note that this does not fully take effect if done before
1160 F has an x-window; it must be redone when the window is created.
1162 Note: this is done in two routines because of the way X10 works.
1164 Note: under X11, this is normally the province of the window manager,
1165 and so emacs' border colors may be overridden. */
1168 x_set_border_color (f
, arg
, oldval
)
1170 Lisp_Object arg
, oldval
;
1175 pix
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1176 x_set_border_pixel (f
, pix
);
1177 update_face_from_frame_parameter (f
, Qborder_color
, arg
);
1182 x_set_cursor_type (f
, arg
, oldval
)
1184 Lisp_Object arg
, oldval
;
1186 set_frame_cursor_types (f
, arg
);
1188 /* Make sure the cursor gets redrawn. */
1189 cursor_type_changed
= 1;
1193 x_set_icon_type (f
, arg
, oldval
)
1195 Lisp_Object arg
, oldval
;
1201 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1204 else if (!STRINGP (oldval
) && EQ (oldval
, Qnil
) == EQ (arg
, Qnil
))
1209 result
= x_text_icon (f
,
1210 (char *) SDATA ((!NILP (f
->icon_name
)
1214 result
= x_bitmap_icon (f
, arg
);
1219 error ("No icon window available");
1222 XFlush (FRAME_X_DISPLAY (f
));
1227 x_set_icon_name (f
, arg
, oldval
)
1229 Lisp_Object arg
, oldval
;
1235 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1238 else if (!STRINGP (oldval
) && EQ (oldval
, Qnil
) == EQ (arg
, Qnil
))
1243 if (f
->output_data
.x
->icon_bitmap
!= 0)
1248 result
= x_text_icon (f
,
1249 (char *) SDATA ((!NILP (f
->icon_name
)
1258 error ("No icon window available");
1261 XFlush (FRAME_X_DISPLAY (f
));
1267 x_set_menu_bar_lines (f
, value
, oldval
)
1269 Lisp_Object value
, oldval
;
1272 #if ! defined (USE_X_TOOLKIT) && ! defined (USE_GTK)
1273 int olines
= FRAME_MENU_BAR_LINES (f
);
1276 /* Right now, menu bars don't work properly in minibuf-only frames;
1277 most of the commands try to apply themselves to the minibuffer
1278 frame itself, and get an error because you can't switch buffers
1279 in or split the minibuffer window. */
1280 if (FRAME_MINIBUF_ONLY_P (f
))
1283 if (INTEGERP (value
))
1284 nlines
= XINT (value
);
1288 /* Make sure we redisplay all windows in this frame. */
1289 windows_or_buffers_changed
++;
1291 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
1292 FRAME_MENU_BAR_LINES (f
) = 0;
1295 FRAME_EXTERNAL_MENU_BAR (f
) = 1;
1296 if (FRAME_X_P (f
) && f
->output_data
.x
->menubar_widget
== 0)
1297 /* Make sure next redisplay shows the menu bar. */
1298 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= Qt
;
1302 if (FRAME_EXTERNAL_MENU_BAR (f
) == 1)
1303 free_frame_menubar (f
);
1304 FRAME_EXTERNAL_MENU_BAR (f
) = 0;
1306 f
->output_data
.x
->menubar_widget
= 0;
1308 #else /* not USE_X_TOOLKIT && not USE_GTK */
1309 FRAME_MENU_BAR_LINES (f
) = nlines
;
1310 change_window_heights (f
->root_window
, nlines
- olines
);
1311 #endif /* not USE_X_TOOLKIT */
1316 /* Set the number of lines used for the tool bar of frame F to VALUE.
1317 VALUE not an integer, or < 0 means set the lines to zero. OLDVAL
1318 is the old number of tool bar lines. This function changes the
1319 height of all windows on frame F to match the new tool bar height.
1320 The frame's height doesn't change. */
1323 x_set_tool_bar_lines (f
, value
, oldval
)
1325 Lisp_Object value
, oldval
;
1327 int delta
, nlines
, root_height
;
1328 Lisp_Object root_window
;
1330 /* Treat tool bars like menu bars. */
1331 if (FRAME_MINIBUF_ONLY_P (f
))
1334 /* Use VALUE only if an integer >= 0. */
1335 if (INTEGERP (value
) && XINT (value
) >= 0)
1336 nlines
= XFASTINT (value
);
1341 FRAME_TOOL_BAR_LINES (f
) = 0;
1344 FRAME_EXTERNAL_TOOL_BAR (f
) = 1;
1345 if (FRAME_X_P (f
) && f
->output_data
.x
->toolbar_widget
== 0)
1346 /* Make sure next redisplay shows the tool bar. */
1347 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= Qt
;
1348 update_frame_tool_bar (f
);
1352 if (FRAME_EXTERNAL_TOOL_BAR (f
))
1353 free_frame_tool_bar (f
);
1354 FRAME_EXTERNAL_TOOL_BAR (f
) = 0;
1360 /* Make sure we redisplay all windows in this frame. */
1361 ++windows_or_buffers_changed
;
1363 delta
= nlines
- FRAME_TOOL_BAR_LINES (f
);
1365 /* Don't resize the tool-bar to more than we have room for. */
1366 root_window
= FRAME_ROOT_WINDOW (f
);
1367 root_height
= WINDOW_TOTAL_LINES (XWINDOW (root_window
));
1368 if (root_height
- delta
< 1)
1370 delta
= root_height
- 1;
1371 nlines
= FRAME_TOOL_BAR_LINES (f
) + delta
;
1374 FRAME_TOOL_BAR_LINES (f
) = nlines
;
1375 change_window_heights (root_window
, delta
);
1378 /* We also have to make sure that the internal border at the top of
1379 the frame, below the menu bar or tool bar, is redrawn when the
1380 tool bar disappears. This is so because the internal border is
1381 below the tool bar if one is displayed, but is below the menu bar
1382 if there isn't a tool bar. The tool bar draws into the area
1383 below the menu bar. */
1384 if (FRAME_X_WINDOW (f
) && FRAME_TOOL_BAR_LINES (f
) == 0)
1388 clear_current_matrices (f
);
1389 updating_frame
= NULL
;
1392 /* If the tool bar gets smaller, the internal border below it
1393 has to be cleared. It was formerly part of the display
1394 of the larger tool bar, and updating windows won't clear it. */
1397 int height
= FRAME_INTERNAL_BORDER_WIDTH (f
);
1398 int width
= FRAME_PIXEL_WIDTH (f
);
1399 int y
= nlines
* FRAME_LINE_HEIGHT (f
);
1401 /* height can be zero here. */
1402 if (height
> 0 && width
> 0)
1405 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1406 0, y
, width
, height
, False
);
1410 if (WINDOWP (f
->tool_bar_window
))
1411 clear_glyph_matrix (XWINDOW (f
->tool_bar_window
)->current_matrix
);
1416 /* Set the foreground color for scroll bars on frame F to VALUE.
1417 VALUE should be a string, a color name. If it isn't a string or
1418 isn't a valid color name, do nothing. OLDVAL is the old value of
1419 the frame parameter. */
1422 x_set_scroll_bar_foreground (f
, value
, oldval
)
1424 Lisp_Object value
, oldval
;
1426 unsigned long pixel
;
1428 if (STRINGP (value
))
1429 pixel
= x_decode_color (f
, value
, BLACK_PIX_DEFAULT (f
));
1433 if (f
->output_data
.x
->scroll_bar_foreground_pixel
!= -1)
1434 unload_color (f
, f
->output_data
.x
->scroll_bar_foreground_pixel
);
1436 f
->output_data
.x
->scroll_bar_foreground_pixel
= pixel
;
1437 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1439 /* Remove all scroll bars because they have wrong colors. */
1440 if (condemn_scroll_bars_hook
)
1441 (*condemn_scroll_bars_hook
) (f
);
1442 if (judge_scroll_bars_hook
)
1443 (*judge_scroll_bars_hook
) (f
);
1445 update_face_from_frame_parameter (f
, Qscroll_bar_foreground
, value
);
1451 /* Set the background color for scroll bars on frame F to VALUE VALUE
1452 should be a string, a color name. If it isn't a string or isn't a
1453 valid color name, do nothing. OLDVAL is the old value of the frame
1457 x_set_scroll_bar_background (f
, value
, oldval
)
1459 Lisp_Object value
, oldval
;
1461 unsigned long pixel
;
1463 if (STRINGP (value
))
1464 pixel
= x_decode_color (f
, value
, WHITE_PIX_DEFAULT (f
));
1468 if (f
->output_data
.x
->scroll_bar_background_pixel
!= -1)
1469 unload_color (f
, f
->output_data
.x
->scroll_bar_background_pixel
);
1471 #ifdef USE_TOOLKIT_SCROLL_BARS
1472 /* Scrollbar shadow colors. */
1473 if (f
->output_data
.x
->scroll_bar_top_shadow_pixel
!= -1)
1475 unload_color (f
, f
->output_data
.x
->scroll_bar_top_shadow_pixel
);
1476 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
1478 if (f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
!= -1)
1480 unload_color (f
, f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
);
1481 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
1483 #endif /* USE_TOOLKIT_SCROLL_BARS */
1485 f
->output_data
.x
->scroll_bar_background_pixel
= pixel
;
1486 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1488 /* Remove all scroll bars because they have wrong colors. */
1489 if (condemn_scroll_bars_hook
)
1490 (*condemn_scroll_bars_hook
) (f
);
1491 if (judge_scroll_bars_hook
)
1492 (*judge_scroll_bars_hook
) (f
);
1494 update_face_from_frame_parameter (f
, Qscroll_bar_background
, value
);
1500 /* Encode Lisp string STRING as a text in a format appropriate for
1501 XICCC (X Inter Client Communication Conventions).
1503 If STRING contains only ASCII characters, do no conversion and
1504 return the string data of STRING. Otherwise, encode the text by
1505 CODING_SYSTEM, and return a newly allocated memory area which
1506 should be freed by `xfree' by a caller.
1508 SELECTIONP non-zero means the string is being encoded for an X
1509 selection, so it is safe to run pre-write conversions (which
1512 Store the byte length of resulting text in *TEXT_BYTES.
1514 If the text contains only ASCII and Latin-1, store 1 in *STRING_P,
1515 which means that the `encoding' of the result can be `STRING'.
1516 Otherwise store 0 in *STRINGP, which means that the `encoding' of
1517 the result should be `COMPOUND_TEXT'. */
1520 x_encode_text (string
, coding_system
, selectionp
, text_bytes
, stringp
)
1521 Lisp_Object string
, coding_system
;
1522 int *text_bytes
, *stringp
;
1525 unsigned char *str
= SDATA (string
);
1526 int chars
= SCHARS (string
);
1527 int bytes
= SBYTES (string
);
1531 struct coding_system coding
;
1532 extern Lisp_Object Qcompound_text_with_extensions
;
1534 charset_info
= find_charset_in_text (str
, chars
, bytes
, NULL
, Qnil
);
1535 if (charset_info
== 0)
1537 /* No multibyte character in OBJ. We need not encode it. */
1538 *text_bytes
= bytes
;
1543 setup_coding_system (coding_system
, &coding
);
1545 && SYMBOLP (coding
.pre_write_conversion
)
1546 && !NILP (Ffboundp (coding
.pre_write_conversion
)))
1548 string
= run_pre_post_conversion_on_str (string
, &coding
, 1);
1549 str
= SDATA (string
);
1550 chars
= SCHARS (string
);
1551 bytes
= SBYTES (string
);
1553 coding
.src_multibyte
= 1;
1554 coding
.dst_multibyte
= 0;
1555 coding
.mode
|= CODING_MODE_LAST_BLOCK
;
1556 if (coding
.type
== coding_type_iso2022
)
1557 coding
.flags
|= CODING_FLAG_ISO_SAFE
;
1558 /* We suppress producing escape sequences for composition. */
1559 coding
.composing
= COMPOSITION_DISABLED
;
1560 bufsize
= encoding_buffer_size (&coding
, bytes
);
1561 buf
= (unsigned char *) xmalloc (bufsize
);
1562 encode_coding (&coding
, str
, buf
, bytes
, bufsize
);
1563 *text_bytes
= coding
.produced
;
1564 *stringp
= (charset_info
== 1
1565 || (!EQ (coding_system
, Qcompound_text
)
1566 && !EQ (coding_system
, Qcompound_text_with_extensions
)));
1571 /* Set the WM name to NAME for frame F. Also set the icon name.
1572 If the frame already has an icon name, use that, otherwise set the
1573 icon name to NAME. */
1576 x_set_name_internal (f
, name
)
1580 if (FRAME_X_WINDOW (f
))
1585 XTextProperty text
, icon
;
1587 int do_free_icon_value
= 0, do_free_text_value
= 0;
1588 Lisp_Object coding_system
;
1590 coding_system
= Qcompound_text
;
1591 /* Note: Encoding strategy
1593 We encode NAME by compound-text and use "COMPOUND-TEXT" in
1594 text.encoding. But, there are non-internationalized window
1595 managers which don't support that encoding. So, if NAME
1596 contains only ASCII and 8859-1 characters, encode it by
1597 iso-latin-1, and use "STRING" in text.encoding hoping that
1598 such window managers at least analyze this format correctly,
1599 i.e. treat 8-bit bytes as 8859-1 characters.
1601 We may also be able to use "UTF8_STRING" in text.encoding
1602 in the future which can encode all Unicode characters.
1603 But, for the moment, there's no way to know that the
1604 current window manager supports it or not. */
1605 text
.value
= x_encode_text (name
, coding_system
, 0, &bytes
, &stringp
);
1606 text
.encoding
= (stringp
? XA_STRING
1607 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1609 text
.nitems
= bytes
;
1611 /* Check early, because ENCODE_UTF_8 below may GC and name may be
1613 do_free_text_value
= text
.value
!= SDATA (name
);
1615 if (NILP (f
->icon_name
))
1621 /* See the above comment "Note: Encoding strategy". */
1622 icon
.value
= x_encode_text (f
->icon_name
, coding_system
, 0,
1624 icon
.encoding
= (stringp
? XA_STRING
1625 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1627 icon
.nitems
= bytes
;
1628 do_free_icon_value
= icon
.value
!= SDATA (f
->icon_name
);
1632 gtk_window_set_title (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
1633 SDATA (ENCODE_UTF_8 (name
)));
1634 #else /* not USE_GTK */
1635 XSetWMName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &text
);
1636 #endif /* not USE_GTK */
1638 XSetWMIconName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &icon
);
1640 if (do_free_icon_value
)
1642 if (do_free_text_value
)
1645 #else /* not HAVE_X11R4 */
1646 XSetIconName (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1648 XStoreName (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1650 #endif /* not HAVE_X11R4 */
1655 /* Change the name of frame F to NAME. If NAME is nil, set F's name to
1658 If EXPLICIT is non-zero, that indicates that lisp code is setting the
1659 name; if NAME is a string, set F's name to NAME and set
1660 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1662 If EXPLICIT is zero, that indicates that Emacs redisplay code is
1663 suggesting a new name, which lisp code should override; if
1664 F->explicit_name is set, ignore the new name; otherwise, set it. */
1667 x_set_name (f
, name
, explicit)
1672 /* Make sure that requests from lisp code override requests from
1673 Emacs redisplay code. */
1676 /* If we're switching from explicit to implicit, we had better
1677 update the mode lines and thereby update the title. */
1678 if (f
->explicit_name
&& NILP (name
))
1679 update_mode_lines
= 1;
1681 f
->explicit_name
= ! NILP (name
);
1683 else if (f
->explicit_name
)
1686 /* If NAME is nil, set the name to the x_id_name. */
1689 /* Check for no change needed in this very common case
1690 before we do any consing. */
1691 if (!strcmp (FRAME_X_DISPLAY_INFO (f
)->x_id_name
,
1694 name
= build_string (FRAME_X_DISPLAY_INFO (f
)->x_id_name
);
1697 CHECK_STRING (name
);
1699 /* Don't change the name if it's already NAME. */
1700 if (! NILP (Fstring_equal (name
, f
->name
)))
1705 /* For setting the frame title, the title parameter should override
1706 the name parameter. */
1707 if (! NILP (f
->title
))
1710 x_set_name_internal (f
, name
);
1713 /* This function should be called when the user's lisp code has
1714 specified a name for the frame; the name will override any set by the
1717 x_explicitly_set_name (f
, arg
, oldval
)
1719 Lisp_Object arg
, oldval
;
1721 x_set_name (f
, arg
, 1);
1724 /* This function should be called by Emacs redisplay code to set the
1725 name; names set this way will never override names set by the user's
1728 x_implicitly_set_name (f
, arg
, oldval
)
1730 Lisp_Object arg
, oldval
;
1732 x_set_name (f
, arg
, 0);
1735 /* Change the title of frame F to NAME.
1736 If NAME is nil, use the frame name as the title.
1738 If EXPLICIT is non-zero, that indicates that lisp code is setting the
1739 name; if NAME is a string, set F's name to NAME and set
1740 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1742 If EXPLICIT is zero, that indicates that Emacs redisplay code is
1743 suggesting a new name, which lisp code should override; if
1744 F->explicit_name is set, ignore the new name; otherwise, set it. */
1747 x_set_title (f
, name
, old_name
)
1749 Lisp_Object name
, old_name
;
1751 /* Don't change the title if it's already NAME. */
1752 if (EQ (name
, f
->title
))
1755 update_mode_lines
= 1;
1762 CHECK_STRING (name
);
1764 x_set_name_internal (f
, name
);
1768 x_set_scroll_bar_default_width (f
)
1771 int wid
= FRAME_COLUMN_WIDTH (f
);
1773 #ifdef USE_TOOLKIT_SCROLL_BARS
1774 /* A minimum width of 14 doesn't look good for toolkit scroll bars. */
1775 int width
= 16 + 2 * VERTICAL_SCROLL_BAR_WIDTH_TRIM
;
1776 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (width
+ wid
- 1) / wid
;
1777 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = width
;
1779 /* Make the actual width at least 14 pixels and a multiple of a
1781 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (14 + wid
- 1) / wid
;
1783 /* Use all of that space (aside from required margins) for the
1785 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = 0;
1790 /* Record in frame F the specified or default value according to ALIST
1791 of the parameter named PROP (a Lisp symbol). If no value is
1792 specified for PROP, look for an X default for XPROP on the frame
1793 named NAME. If that is not found either, use the value DEFLT. */
1796 x_default_scroll_bar_color_parameter (f
, alist
, prop
, xprop
, xclass
,
1805 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
1808 tem
= x_get_arg (dpyinfo
, alist
, prop
, xprop
, xclass
, RES_TYPE_STRING
);
1809 if (EQ (tem
, Qunbound
))
1811 #ifdef USE_TOOLKIT_SCROLL_BARS
1813 /* See if an X resource for the scroll bar color has been
1815 tem
= display_x_get_resource (dpyinfo
,
1816 build_string (foreground_p
1820 build_string ("verticalScrollBar"),
1824 /* If nothing has been specified, scroll bars will use a
1825 toolkit-dependent default. Because these defaults are
1826 difficult to get at without actually creating a scroll
1827 bar, use nil to indicate that no color has been
1832 #else /* not USE_TOOLKIT_SCROLL_BARS */
1836 #endif /* not USE_TOOLKIT_SCROLL_BARS */
1839 x_set_frame_parameters (f
, Fcons (Fcons (prop
, tem
), Qnil
));
1845 #if !defined (HAVE_X11R4) && !defined (HAVE_XSETWMPROTOCOLS)
1848 XSetWMProtocols (dpy
, w
, protocols
, count
)
1855 prop
= XInternAtom (dpy
, "WM_PROTOCOLS", False
);
1856 if (prop
== None
) return False
;
1857 XChangeProperty (dpy
, w
, prop
, XA_ATOM
, 32, PropModeReplace
,
1858 (unsigned char *) protocols
, count
);
1861 #endif /* not HAVE_X11R4 && not HAVE_XSETWMPROTOCOLS */
1863 #ifdef USE_X_TOOLKIT
1865 /* If the WM_PROTOCOLS property does not already contain WM_TAKE_FOCUS,
1866 WM_DELETE_WINDOW, and WM_SAVE_YOURSELF, then add them. (They may
1867 already be present because of the toolkit (Motif adds some of them,
1868 for example, but Xt doesn't). */
1871 hack_wm_protocols (f
, widget
)
1875 Display
*dpy
= XtDisplay (widget
);
1876 Window w
= XtWindow (widget
);
1877 int need_delete
= 1;
1884 unsigned char *catoms
;
1886 unsigned long nitems
= 0;
1887 unsigned long bytes_after
;
1889 if ((XGetWindowProperty (dpy
, w
,
1890 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1891 (long)0, (long)100, False
, XA_ATOM
,
1892 &type
, &format
, &nitems
, &bytes_after
,
1895 && format
== 32 && type
== XA_ATOM
)
1897 Atom
*atoms
= (Atom
*) catoms
;
1902 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
)
1904 else if (atoms
[nitems
]
1905 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
)
1907 else if (atoms
[nitems
]
1908 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
)
1919 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
1921 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
;
1923 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
1925 XChangeProperty (dpy
, w
, FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1926 XA_ATOM
, 32, PropModeAppend
,
1927 (unsigned char *) props
, count
);
1935 /* Support routines for XIC (X Input Context). */
1939 static XFontSet xic_create_xfontset
P_ ((struct frame
*, char *));
1940 static XIMStyle best_xim_style
P_ ((XIMStyles
*, XIMStyles
*));
1943 /* Supported XIM styles, ordered by preference. */
1945 static XIMStyle supported_xim_styles
[] =
1947 XIMPreeditPosition
| XIMStatusArea
,
1948 XIMPreeditPosition
| XIMStatusNothing
,
1949 XIMPreeditPosition
| XIMStatusNone
,
1950 XIMPreeditNothing
| XIMStatusArea
,
1951 XIMPreeditNothing
| XIMStatusNothing
,
1952 XIMPreeditNothing
| XIMStatusNone
,
1953 XIMPreeditNone
| XIMStatusArea
,
1954 XIMPreeditNone
| XIMStatusNothing
,
1955 XIMPreeditNone
| XIMStatusNone
,
1960 /* Create an X fontset on frame F with base font name BASE_FONTNAME. */
1962 char xic_defaut_fontset
[] = "-*-*-*-r-normal--14-*-*-*-*-*-*-*";
1964 /* Create an Xt fontset spec from the name of a base font.
1965 If `motif' is True use the Motif syntax. */
1967 xic_create_fontsetname (base_fontname
, motif
)
1968 char *base_fontname
;
1971 const char *sep
= motif
? ";" : ",";
1974 /* Make a fontset name from the base font name. */
1975 if (xic_defaut_fontset
== base_fontname
)
1976 { /* There is no base font name, use the default. */
1977 int len
= strlen (base_fontname
) + 2;
1978 fontsetname
= xmalloc (len
);
1979 bzero (fontsetname
, len
);
1980 strcpy (fontsetname
, base_fontname
);
1984 /* Make a fontset name from the base font name.
1985 The font set will be made of the following elements:
1987 - the base font where the charset spec is replaced by -*-*.
1988 - the same but with the family also replaced with -*-*-. */
1989 char *p
= base_fontname
;
1992 for (i
= 0; *p
; p
++)
1995 { /* As the font name doesn't conform to XLFD, we can't
1996 modify it to generalize it to allcs and allfamilies.
1997 Use the specified font plus the default. */
1998 int len
= strlen (base_fontname
) + strlen (xic_defaut_fontset
) + 3;
1999 fontsetname
= xmalloc (len
);
2000 bzero (fontsetname
, len
);
2001 strcpy (fontsetname
, base_fontname
);
2002 strcat (fontsetname
, sep
);
2003 strcat (fontsetname
, xic_defaut_fontset
);
2008 char *p1
= NULL
, *p2
= NULL
;
2009 char *font_allcs
= NULL
;
2010 char *font_allfamilies
= NULL
;
2011 char *font_all
= NULL
;
2012 char *allcs
= "*-*-*-*-*-*-*";
2013 char *allfamilies
= "-*-*-";
2014 char *all
= "*-*-*-*-";
2016 for (i
= 0, p
= base_fontname
; i
< 8; p
++)
2027 /* Build the font spec that matches all charsets. */
2028 len
= p
- base_fontname
+ strlen (allcs
) + 1;
2029 font_allcs
= (char *) alloca (len
);
2030 bzero (font_allcs
, len
);
2031 bcopy (base_fontname
, font_allcs
, p
- base_fontname
);
2032 strcat (font_allcs
, allcs
);
2034 /* Build the font spec that matches all families. */
2035 len
= p
- p1
+ strlen (allcs
) + strlen (allfamilies
) + 1;
2036 font_allfamilies
= (char *) alloca (len
);
2037 bzero (font_allfamilies
, len
);
2038 strcpy (font_allfamilies
, allfamilies
);
2039 bcopy (p1
, font_allfamilies
+ strlen (allfamilies
), p
- p1
);
2040 strcat (font_allfamilies
, allcs
);
2042 /* Build the font spec that matches all. */
2043 len
= p
- p2
+ strlen (allcs
) + strlen (all
) + strlen (allfamilies
) + 1;
2044 font_all
= (char *) alloca (len
);
2045 bzero (font_all
, len
);
2046 strcpy (font_all
, allfamilies
);
2047 strcat (font_all
, all
);
2048 bcopy (p2
, font_all
+ strlen (all
) + strlen (allfamilies
), p
- p2
);
2049 strcat (font_all
, allcs
);
2051 /* Build the actual font set name. */
2052 len
= strlen (base_fontname
) + strlen (font_allcs
)
2053 + strlen (font_allfamilies
) + strlen (font_all
) + 5;
2054 fontsetname
= xmalloc (len
);
2055 bzero (fontsetname
, len
);
2056 strcpy (fontsetname
, base_fontname
);
2057 strcat (fontsetname
, sep
);
2058 strcat (fontsetname
, font_allcs
);
2059 strcat (fontsetname
, sep
);
2060 strcat (fontsetname
, font_allfamilies
);
2061 strcat (fontsetname
, sep
);
2062 strcat (fontsetname
, font_all
);
2066 strcat (fontsetname
, ":");
2071 xic_create_xfontset (f
, base_fontname
)
2073 char *base_fontname
;
2075 XFontSet xfs
= NULL
;
2076 char **missing_list
= NULL
;
2079 Lisp_Object rest
, frame
;
2082 base_fontname
= xic_defaut_fontset
;
2084 /* See if there is another frame already using same fontset. */
2085 FOR_EACH_FRAME (rest
, frame
)
2087 struct frame
*cf
= XFRAME (frame
);
2088 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
2089 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
2090 && FRAME_XIC_BASE_FONTNAME (cf
)
2091 && !strcmp (FRAME_XIC_BASE_FONTNAME (cf
), base_fontname
))
2093 xfs
= FRAME_XIC_FONTSET (cf
);
2100 char *fontsetname
= xic_create_fontsetname (base_fontname
, False
);
2103 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
),
2104 fontsetname
, &missing_list
,
2105 &missing_count
, &def_string
);
2107 XFreeStringList (missing_list
);
2108 xfree (fontsetname
);
2111 if (FRAME_XIC_BASE_FONTNAME (f
))
2112 xfree (FRAME_XIC_BASE_FONTNAME (f
));
2113 FRAME_XIC_BASE_FONTNAME (f
) = xstrdup (base_fontname
);
2115 /* No need to free def_string. */
2119 /* Free the X fontset of frame F if it is the last frame using it. */
2122 xic_free_xfontset (f
)
2125 Lisp_Object rest
, frame
;
2128 if (!FRAME_XIC_FONTSET (f
))
2131 /* See if there is another frame sharing the same fontset. */
2132 FOR_EACH_FRAME (rest
, frame
)
2134 struct frame
*cf
= XFRAME (frame
);
2135 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
2136 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
2137 && FRAME_XIC_FONTSET (cf
) == FRAME_XIC_FONTSET (f
))
2145 /* The fontset is not used anymore. It is safe to free it. */
2146 XFreeFontSet (FRAME_X_DISPLAY (f
), FRAME_XIC_FONTSET (f
));
2148 if (FRAME_XIC_BASE_FONTNAME (f
))
2149 xfree (FRAME_XIC_BASE_FONTNAME (f
));
2150 FRAME_XIC_BASE_FONTNAME (f
) = NULL
;
2151 FRAME_XIC_FONTSET (f
) = NULL
;
2155 /* Value is the best input style, given user preferences USER (already
2156 checked to be supported by Emacs), and styles supported by the
2157 input method XIM. */
2160 best_xim_style (user
, xim
)
2166 for (i
= 0; i
< user
->count_styles
; ++i
)
2167 for (j
= 0; j
< xim
->count_styles
; ++j
)
2168 if (user
->supported_styles
[i
] == xim
->supported_styles
[j
])
2169 return user
->supported_styles
[i
];
2171 /* Return the default style. */
2172 return XIMPreeditNothing
| XIMStatusNothing
;
2175 /* Create XIC for frame F. */
2177 static XIMStyle xic_style
;
2180 create_frame_xic (f
)
2185 XFontSet xfs
= NULL
;
2190 /* Create X fontset. */
2191 xfs
= xic_create_xfontset
2192 (f
, (FRAME_FONTSET (f
) < 0) ? NULL
2193 : (char *) SDATA (fontset_ascii (FRAME_FONTSET (f
))));
2195 xim
= FRAME_X_XIM (f
);
2200 XVaNestedList preedit_attr
;
2201 XVaNestedList status_attr
;
2203 s_area
.x
= 0; s_area
.y
= 0; s_area
.width
= 1; s_area
.height
= 1;
2204 spot
.x
= 0; spot
.y
= 1;
2206 /* Determine XIC style. */
2209 XIMStyles supported_list
;
2210 supported_list
.count_styles
= (sizeof supported_xim_styles
2211 / sizeof supported_xim_styles
[0]);
2212 supported_list
.supported_styles
= supported_xim_styles
;
2213 xic_style
= best_xim_style (&supported_list
,
2214 FRAME_X_XIM_STYLES (f
));
2217 preedit_attr
= XVaCreateNestedList (0,
2220 FRAME_FOREGROUND_PIXEL (f
),
2222 FRAME_BACKGROUND_PIXEL (f
),
2223 (xic_style
& XIMPreeditPosition
2228 status_attr
= XVaCreateNestedList (0,
2234 FRAME_FOREGROUND_PIXEL (f
),
2236 FRAME_BACKGROUND_PIXEL (f
),
2239 xic
= XCreateIC (xim
,
2240 XNInputStyle
, xic_style
,
2241 XNClientWindow
, FRAME_X_WINDOW (f
),
2242 XNFocusWindow
, FRAME_X_WINDOW (f
),
2243 XNStatusAttributes
, status_attr
,
2244 XNPreeditAttributes
, preedit_attr
,
2246 XFree (preedit_attr
);
2247 XFree (status_attr
);
2250 FRAME_XIC (f
) = xic
;
2251 FRAME_XIC_STYLE (f
) = xic_style
;
2252 FRAME_XIC_FONTSET (f
) = xfs
;
2256 /* Destroy XIC and free XIC fontset of frame F, if any. */
2262 if (FRAME_XIC (f
) == NULL
)
2265 XDestroyIC (FRAME_XIC (f
));
2266 xic_free_xfontset (f
);
2268 FRAME_XIC (f
) = NULL
;
2272 /* Place preedit area for XIC of window W's frame to specified
2273 pixel position X/Y. X and Y are relative to window W. */
2276 xic_set_preeditarea (w
, x
, y
)
2280 struct frame
*f
= XFRAME (w
->frame
);
2284 spot
.x
= WINDOW_TO_FRAME_PIXEL_X (w
, x
) + WINDOW_LEFT_FRINGE_WIDTH (w
);
2285 spot
.y
= WINDOW_TO_FRAME_PIXEL_Y (w
, y
) + FONT_BASE (FRAME_FONT (f
));
2286 attr
= XVaCreateNestedList (0, XNSpotLocation
, &spot
, NULL
);
2287 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2292 /* Place status area for XIC in bottom right corner of frame F.. */
2295 xic_set_statusarea (f
)
2298 XIC xic
= FRAME_XIC (f
);
2303 /* Negotiate geometry of status area. If input method has existing
2304 status area, use its current size. */
2305 area
.x
= area
.y
= area
.width
= area
.height
= 0;
2306 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &area
, NULL
);
2307 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2310 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &needed
, NULL
);
2311 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2314 if (needed
->width
== 0) /* Use XNArea instead of XNAreaNeeded */
2316 attr
= XVaCreateNestedList (0, XNArea
, &needed
, NULL
);
2317 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2321 area
.width
= needed
->width
;
2322 area
.height
= needed
->height
;
2323 area
.x
= FRAME_PIXEL_WIDTH (f
) - area
.width
- FRAME_INTERNAL_BORDER_WIDTH (f
);
2324 area
.y
= (FRAME_PIXEL_HEIGHT (f
) - area
.height
2325 - FRAME_MENUBAR_HEIGHT (f
)
2326 - FRAME_TOOLBAR_HEIGHT (f
)
2327 - FRAME_INTERNAL_BORDER_WIDTH (f
));
2330 attr
= XVaCreateNestedList (0, XNArea
, &area
, NULL
);
2331 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2336 /* Set X fontset for XIC of frame F, using base font name
2337 BASE_FONTNAME. Called when a new Emacs fontset is chosen. */
2340 xic_set_xfontset (f
, base_fontname
)
2342 char *base_fontname
;
2347 xic_free_xfontset (f
);
2349 xfs
= xic_create_xfontset (f
, base_fontname
);
2351 attr
= XVaCreateNestedList (0, XNFontSet
, xfs
, NULL
);
2352 if (FRAME_XIC_STYLE (f
) & XIMPreeditPosition
)
2353 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2354 if (FRAME_XIC_STYLE (f
) & XIMStatusArea
)
2355 XSetICValues (FRAME_XIC (f
), XNStatusAttributes
, attr
, NULL
);
2358 FRAME_XIC_FONTSET (f
) = xfs
;
2361 #endif /* HAVE_X_I18N */
2365 #ifdef USE_X_TOOLKIT
2367 /* Create and set up the X widget for frame F. */
2370 x_window (f
, window_prompting
, minibuffer_only
)
2372 long window_prompting
;
2373 int minibuffer_only
;
2375 XClassHint class_hints
;
2376 XSetWindowAttributes attributes
;
2377 unsigned long attribute_mask
;
2378 Widget shell_widget
;
2380 Widget frame_widget
;
2386 /* Use the resource name as the top-level widget name
2387 for looking up resources. Make a non-Lisp copy
2388 for the window manager, so GC relocation won't bother it.
2390 Elsewhere we specify the window name for the window manager. */
2393 char *str
= (char *) SDATA (Vx_resource_name
);
2394 f
->namebuf
= (char *) xmalloc (strlen (str
) + 1);
2395 strcpy (f
->namebuf
, str
);
2399 XtSetArg (al
[ac
], XtNallowShellResize
, 1); ac
++;
2400 XtSetArg (al
[ac
], XtNinput
, 1); ac
++;
2401 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2402 XtSetArg (al
[ac
], XtNborderWidth
, f
->border_width
); ac
++;
2403 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2404 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2405 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2406 shell_widget
= XtAppCreateShell (f
->namebuf
, EMACS_CLASS
,
2407 applicationShellWidgetClass
,
2408 FRAME_X_DISPLAY (f
), al
, ac
);
2410 f
->output_data
.x
->widget
= shell_widget
;
2411 /* maybe_set_screen_title_format (shell_widget); */
2413 pane_widget
= lw_create_widget ("main", "pane", widget_id_tick
++,
2414 (widget_value
*) NULL
,
2415 shell_widget
, False
,
2419 (lw_callback
) NULL
);
2422 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2423 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2424 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2425 XtSetValues (pane_widget
, al
, ac
);
2426 f
->output_data
.x
->column_widget
= pane_widget
;
2428 /* mappedWhenManaged to false tells to the paned window to not map/unmap
2429 the emacs screen when changing menubar. This reduces flickering. */
2432 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2433 XtSetArg (al
[ac
], XtNshowGrip
, 0); ac
++;
2434 XtSetArg (al
[ac
], XtNallowResize
, 1); ac
++;
2435 XtSetArg (al
[ac
], XtNresizeToPreferred
, 1); ac
++;
2436 XtSetArg (al
[ac
], XtNemacsFrame
, f
); ac
++;
2437 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2438 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2439 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2440 frame_widget
= XtCreateWidget (f
->namebuf
, emacsFrameClass
, pane_widget
,
2443 f
->output_data
.x
->edit_widget
= frame_widget
;
2445 XtManageChild (frame_widget
);
2447 /* Do some needed geometry management. */
2450 char *tem
, shell_position
[32];
2453 int extra_borders
= 0;
2455 = (f
->output_data
.x
->menubar_widget
2456 ? (f
->output_data
.x
->menubar_widget
->core
.height
2457 + f
->output_data
.x
->menubar_widget
->core
.border_width
)
2460 #if 0 /* Experimentally, we now get the right results
2461 for -geometry -0-0 without this. 24 Aug 96, rms. */
2462 if (FRAME_EXTERNAL_MENU_BAR (f
))
2465 XtVaGetValues (pane_widget
, XtNinternalBorderWidth
, &ibw
, NULL
);
2466 menubar_size
+= ibw
;
2470 f
->output_data
.x
->menubar_height
= menubar_size
;
2473 /* Motif seems to need this amount added to the sizes
2474 specified for the shell widget. The Athena/Lucid widgets don't.
2475 Both conclusions reached experimentally. -- rms. */
2476 XtVaGetValues (f
->output_data
.x
->edit_widget
, XtNinternalBorderWidth
,
2477 &extra_borders
, NULL
);
2481 /* Convert our geometry parameters into a geometry string
2483 Note that we do not specify here whether the position
2484 is a user-specified or program-specified one.
2485 We pass that information later, in x_wm_set_size_hints. */
2487 int left
= f
->left_pos
;
2488 int xneg
= window_prompting
& XNegative
;
2489 int top
= f
->top_pos
;
2490 int yneg
= window_prompting
& YNegative
;
2496 if (window_prompting
& USPosition
)
2497 sprintf (shell_position
, "=%dx%d%c%d%c%d",
2498 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2499 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
,
2500 (xneg
? '-' : '+'), left
,
2501 (yneg
? '-' : '+'), top
);
2504 sprintf (shell_position
, "=%dx%d",
2505 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2506 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
);
2508 /* Setting x and y when the position is not specified in
2509 the geometry string will set program position in the WM hints.
2510 If Emacs had just one program position, we could set it in
2511 fallback resources, but since each make-frame call can specify
2512 different program positions, this is easier. */
2513 XtSetArg (al
[ac
], XtNx
, left
); ac
++;
2514 XtSetArg (al
[ac
], XtNy
, top
); ac
++;
2518 len
= strlen (shell_position
) + 1;
2519 /* We don't free this because we don't know whether
2520 it is safe to free it while the frame exists.
2521 It isn't worth the trouble of arranging to free it
2522 when the frame is deleted. */
2523 tem
= (char *) xmalloc (len
);
2524 strncpy (tem
, shell_position
, len
);
2525 XtSetArg (al
[ac
], XtNgeometry
, tem
); ac
++;
2526 XtSetValues (shell_widget
, al
, ac
);
2529 XtManageChild (pane_widget
);
2530 XtRealizeWidget (shell_widget
);
2532 FRAME_X_WINDOW (f
) = XtWindow (frame_widget
);
2534 validate_x_resource_name ();
2536 class_hints
.res_name
= (char *) SDATA (Vx_resource_name
);
2537 class_hints
.res_class
= (char *) SDATA (Vx_resource_class
);
2538 XSetClassHint (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
), &class_hints
);
2541 FRAME_XIC (f
) = NULL
;
2543 create_frame_xic (f
);
2546 f
->output_data
.x
->wm_hints
.input
= True
;
2547 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2548 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2549 &f
->output_data
.x
->wm_hints
);
2551 hack_wm_protocols (f
, shell_widget
);
2554 XtAddEventHandler (shell_widget
, 0, True
, _XEditResCheckMessages
, 0);
2557 /* Do a stupid property change to force the server to generate a
2558 PropertyNotify event so that the event_stream server timestamp will
2559 be initialized to something relevant to the time we created the window.
2561 XChangeProperty (XtDisplay (frame_widget
), XtWindow (frame_widget
),
2562 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
2563 XA_ATOM
, 32, PropModeAppend
,
2564 (unsigned char*) NULL
, 0);
2566 /* Make all the standard events reach the Emacs frame. */
2567 attributes
.event_mask
= STANDARD_EVENT_SET
;
2572 /* XIM server might require some X events. */
2573 unsigned long fevent
= NoEventMask
;
2574 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2575 attributes
.event_mask
|= fevent
;
2577 #endif /* HAVE_X_I18N */
2579 attribute_mask
= CWEventMask
;
2580 XChangeWindowAttributes (XtDisplay (shell_widget
), XtWindow (shell_widget
),
2581 attribute_mask
, &attributes
);
2583 XtMapWidget (frame_widget
);
2585 /* x_set_name normally ignores requests to set the name if the
2586 requested name is the same as the current name. This is the one
2587 place where that assumption isn't correct; f->name is set, but
2588 the X server hasn't been told. */
2591 int explicit = f
->explicit_name
;
2593 f
->explicit_name
= 0;
2596 x_set_name (f
, name
, explicit);
2599 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2600 f
->output_data
.x
->text_cursor
);
2604 /* This is a no-op, except under Motif. Make sure main areas are
2605 set to something reasonable, in case we get an error later. */
2606 lw_set_main_areas (pane_widget
, 0, frame_widget
);
2609 #else /* not USE_X_TOOLKIT */
2615 if (! xg_create_frame_widgets (f
))
2616 error ("Unable to create window");
2619 FRAME_XIC (f
) = NULL
;
2623 create_frame_xic (f
);
2626 /* XIM server might require some X events. */
2627 unsigned long fevent
= NoEventMask
;
2628 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2630 if (fevent
!= NoEventMask
)
2632 XSetWindowAttributes attributes
;
2633 XWindowAttributes wattr
;
2634 unsigned long attribute_mask
;
2636 XGetWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2638 attributes
.event_mask
= wattr
.your_event_mask
| fevent
;
2639 attribute_mask
= CWEventMask
;
2640 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2641 attribute_mask
, &attributes
);
2649 #else /*! USE_GTK */
2650 /* Create and set up the X window for frame F. */
2657 XClassHint class_hints
;
2658 XSetWindowAttributes attributes
;
2659 unsigned long attribute_mask
;
2661 attributes
.background_pixel
= f
->output_data
.x
->background_pixel
;
2662 attributes
.border_pixel
= f
->output_data
.x
->border_pixel
;
2663 attributes
.bit_gravity
= StaticGravity
;
2664 attributes
.backing_store
= NotUseful
;
2665 attributes
.save_under
= True
;
2666 attributes
.event_mask
= STANDARD_EVENT_SET
;
2667 attributes
.colormap
= FRAME_X_COLORMAP (f
);
2668 attribute_mask
= (CWBackPixel
| CWBorderPixel
| CWBitGravity
| CWEventMask
2673 = XCreateWindow (FRAME_X_DISPLAY (f
),
2674 f
->output_data
.x
->parent_desc
,
2677 FRAME_PIXEL_WIDTH (f
), FRAME_PIXEL_HEIGHT (f
),
2679 CopyFromParent
, /* depth */
2680 InputOutput
, /* class */
2682 attribute_mask
, &attributes
);
2687 create_frame_xic (f
);
2690 /* XIM server might require some X events. */
2691 unsigned long fevent
= NoEventMask
;
2692 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2693 attributes
.event_mask
|= fevent
;
2694 attribute_mask
= CWEventMask
;
2695 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2696 attribute_mask
, &attributes
);
2699 #endif /* HAVE_X_I18N */
2701 validate_x_resource_name ();
2703 class_hints
.res_name
= (char *) SDATA (Vx_resource_name
);
2704 class_hints
.res_class
= (char *) SDATA (Vx_resource_class
);
2705 XSetClassHint (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), &class_hints
);
2707 /* The menubar is part of the ordinary display;
2708 it does not count in addition to the height of the window. */
2709 f
->output_data
.x
->menubar_height
= 0;
2711 /* This indicates that we use the "Passive Input" input model.
2712 Unless we do this, we don't get the Focus{In,Out} events that we
2713 need to draw the cursor correctly. Accursed bureaucrats.
2714 XWhipsAndChains (FRAME_X_DISPLAY (f), IronMaiden, &TheRack); */
2716 f
->output_data
.x
->wm_hints
.input
= True
;
2717 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2718 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2719 &f
->output_data
.x
->wm_hints
);
2720 f
->output_data
.x
->wm_hints
.icon_pixmap
= None
;
2722 /* Request "save yourself" and "delete window" commands from wm. */
2725 protocols
[0] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
2726 protocols
[1] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
2727 XSetWMProtocols (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), protocols
, 2);
2730 /* x_set_name normally ignores requests to set the name if the
2731 requested name is the same as the current name. This is the one
2732 place where that assumption isn't correct; f->name is set, but
2733 the X server hasn't been told. */
2736 int explicit = f
->explicit_name
;
2738 f
->explicit_name
= 0;
2741 x_set_name (f
, name
, explicit);
2744 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2745 f
->output_data
.x
->text_cursor
);
2749 if (FRAME_X_WINDOW (f
) == 0)
2750 error ("Unable to create window");
2753 #endif /* not USE_GTK */
2754 #endif /* not USE_X_TOOLKIT */
2756 /* Verify that the icon position args for this window are valid. */
2759 x_icon_verify (f
, parms
)
2763 Lisp_Object icon_x
, icon_y
;
2765 /* Set the position of the icon. Note that twm groups all
2766 icons in an icon window. */
2767 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2768 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2769 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2771 CHECK_NUMBER (icon_x
);
2772 CHECK_NUMBER (icon_y
);
2774 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2775 error ("Both left and top icon corners of icon must be specified");
2778 /* Handle the icon stuff for this window. Perhaps later we might
2779 want an x_set_icon_position which can be called interactively as
2787 Lisp_Object icon_x
, icon_y
;
2788 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2790 /* Set the position of the icon. Note that twm groups all
2791 icons in an icon window. */
2792 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2793 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2794 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2796 CHECK_NUMBER (icon_x
);
2797 CHECK_NUMBER (icon_y
);
2799 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2800 error ("Both left and top icon corners of icon must be specified");
2804 if (! EQ (icon_x
, Qunbound
))
2805 x_wm_set_icon_position (f
, XINT (icon_x
), XINT (icon_y
));
2807 /* Start up iconic or window? */
2808 x_wm_set_window_state
2809 (f
, (EQ (x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0, RES_TYPE_SYMBOL
),
2814 x_text_icon (f
, (char *) SDATA ((!NILP (f
->icon_name
)
2821 /* Make the GCs needed for this window, setting the
2822 background, border and mouse colors; also create the
2823 mouse cursor and the gray border tile. */
2825 static char cursor_bits
[] =
2827 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2828 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2829 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2830 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00
2837 XGCValues gc_values
;
2841 /* Create the GCs of this frame.
2842 Note that many default values are used. */
2845 gc_values
.font
= FRAME_FONT (f
)->fid
;
2846 gc_values
.foreground
= f
->output_data
.x
->foreground_pixel
;
2847 gc_values
.background
= f
->output_data
.x
->background_pixel
;
2848 gc_values
.line_width
= 0; /* Means 1 using fast algorithm. */
2849 f
->output_data
.x
->normal_gc
2850 = XCreateGC (FRAME_X_DISPLAY (f
),
2852 GCLineWidth
| GCFont
| GCForeground
| GCBackground
,
2855 /* Reverse video style. */
2856 gc_values
.foreground
= f
->output_data
.x
->background_pixel
;
2857 gc_values
.background
= f
->output_data
.x
->foreground_pixel
;
2858 f
->output_data
.x
->reverse_gc
2859 = XCreateGC (FRAME_X_DISPLAY (f
),
2861 GCFont
| GCForeground
| GCBackground
| GCLineWidth
,
2864 /* Cursor has cursor-color background, background-color foreground. */
2865 gc_values
.foreground
= f
->output_data
.x
->background_pixel
;
2866 gc_values
.background
= f
->output_data
.x
->cursor_pixel
;
2867 gc_values
.fill_style
= FillOpaqueStippled
;
2869 = XCreateBitmapFromData (FRAME_X_DISPLAY (f
),
2870 FRAME_X_DISPLAY_INFO (f
)->root_window
,
2871 cursor_bits
, 16, 16);
2872 f
->output_data
.x
->cursor_gc
2873 = XCreateGC (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2874 (GCFont
| GCForeground
| GCBackground
2875 | GCFillStyle
/* | GCStipple */ | GCLineWidth
),
2879 f
->output_data
.x
->white_relief
.gc
= 0;
2880 f
->output_data
.x
->black_relief
.gc
= 0;
2882 /* Create the gray border tile used when the pointer is not in
2883 the frame. Since this depends on the frame's pixel values,
2884 this must be done on a per-frame basis. */
2885 f
->output_data
.x
->border_tile
2886 = (XCreatePixmapFromBitmapData
2887 (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
2888 gray_bits
, gray_width
, gray_height
,
2889 f
->output_data
.x
->foreground_pixel
,
2890 f
->output_data
.x
->background_pixel
,
2891 DefaultDepth (FRAME_X_DISPLAY (f
), FRAME_X_SCREEN_NUMBER (f
))));
2897 /* Free what was was allocated in x_make_gc. */
2903 Display
*dpy
= FRAME_X_DISPLAY (f
);
2907 if (f
->output_data
.x
->normal_gc
)
2909 XFreeGC (dpy
, f
->output_data
.x
->normal_gc
);
2910 f
->output_data
.x
->normal_gc
= 0;
2913 if (f
->output_data
.x
->reverse_gc
)
2915 XFreeGC (dpy
, f
->output_data
.x
->reverse_gc
);
2916 f
->output_data
.x
->reverse_gc
= 0;
2919 if (f
->output_data
.x
->cursor_gc
)
2921 XFreeGC (dpy
, f
->output_data
.x
->cursor_gc
);
2922 f
->output_data
.x
->cursor_gc
= 0;
2925 if (f
->output_data
.x
->border_tile
)
2927 XFreePixmap (dpy
, f
->output_data
.x
->border_tile
);
2928 f
->output_data
.x
->border_tile
= 0;
2935 /* Handler for signals raised during x_create_frame and
2936 x_create_top_frame. FRAME is the frame which is partially
2940 unwind_create_frame (frame
)
2943 struct frame
*f
= XFRAME (frame
);
2945 /* If frame is ``official'', nothing to do. */
2946 if (!CONSP (Vframe_list
) || !EQ (XCAR (Vframe_list
), frame
))
2949 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2952 x_free_frame_resources (f
);
2955 /* Check that reference counts are indeed correct. */
2956 xassert (dpyinfo
->reference_count
== dpyinfo_refcount
);
2957 xassert (dpyinfo
->image_cache
->refcount
== image_cache_refcount
);
2966 DEFUN ("x-create-frame", Fx_create_frame
, Sx_create_frame
,
2968 doc
: /* Make a new X window, which is called a "frame" in Emacs terms.
2969 Returns an Emacs frame object.
2970 ALIST is an alist of frame parameters.
2971 If the parameters specify that the frame should not have a minibuffer,
2972 and do not specify a specific minibuffer window to use,
2973 then `default-minibuffer-frame' must be a frame whose minibuffer can
2974 be shared by the new frame.
2976 This function is an internal primitive--use `make-frame' instead. */)
2981 Lisp_Object frame
, tem
;
2983 int minibuffer_only
= 0;
2984 long window_prompting
= 0;
2986 int count
= SPECPDL_INDEX ();
2987 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
2988 Lisp_Object display
;
2989 struct x_display_info
*dpyinfo
= NULL
;
2995 /* Use this general default value to start with
2996 until we know if this frame has a specified name. */
2997 Vx_resource_name
= Vinvocation_name
;
2999 display
= x_get_arg (dpyinfo
, parms
, Qdisplay
, 0, 0, RES_TYPE_STRING
);
3000 if (EQ (display
, Qunbound
))
3002 dpyinfo
= check_x_display_info (display
);
3004 kb
= dpyinfo
->kboard
;
3006 kb
= &the_only_kboard
;
3009 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
3011 && ! EQ (name
, Qunbound
)
3013 error ("Invalid frame name--not a string or nil");
3016 Vx_resource_name
= name
;
3018 /* See if parent window is specified. */
3019 parent
= x_get_arg (dpyinfo
, parms
, Qparent_id
, NULL
, NULL
, RES_TYPE_NUMBER
);
3020 if (EQ (parent
, Qunbound
))
3022 if (! NILP (parent
))
3023 CHECK_NUMBER (parent
);
3025 /* make_frame_without_minibuffer can run Lisp code and garbage collect. */
3026 /* No need to protect DISPLAY because that's not used after passing
3027 it to make_frame_without_minibuffer. */
3029 GCPRO4 (parms
, parent
, name
, frame
);
3030 tem
= x_get_arg (dpyinfo
, parms
, Qminibuffer
, "minibuffer", "Minibuffer",
3032 if (EQ (tem
, Qnone
) || NILP (tem
))
3033 f
= make_frame_without_minibuffer (Qnil
, kb
, display
);
3034 else if (EQ (tem
, Qonly
))
3036 f
= make_minibuffer_frame ();
3037 minibuffer_only
= 1;
3039 else if (WINDOWP (tem
))
3040 f
= make_frame_without_minibuffer (tem
, kb
, display
);
3044 XSETFRAME (frame
, f
);
3046 /* Note that X Windows does support scroll bars. */
3047 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 1;
3049 f
->output_method
= output_x_window
;
3050 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
3051 bzero (f
->output_data
.x
, sizeof (struct x_output
));
3052 f
->output_data
.x
->icon_bitmap
= -1;
3053 FRAME_FONTSET (f
) = -1;
3054 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
3055 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
3056 #ifdef USE_TOOLKIT_SCROLL_BARS
3057 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
3058 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
3059 #endif /* USE_TOOLKIT_SCROLL_BARS */
3060 record_unwind_protect (unwind_create_frame
, frame
);
3063 = x_get_arg (dpyinfo
, parms
, Qicon_name
, "iconName", "Title",
3065 if (! STRINGP (f
->icon_name
))
3066 f
->icon_name
= Qnil
;
3068 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
3070 image_cache_refcount
= FRAME_X_IMAGE_CACHE (f
)->refcount
;
3071 dpyinfo_refcount
= dpyinfo
->reference_count
;
3072 #endif /* GLYPH_DEBUG */
3074 FRAME_KBOARD (f
) = kb
;
3077 /* These colors will be set anyway later, but it's important
3078 to get the color reference counts right, so initialize them! */
3081 struct gcpro gcpro1
;
3083 /* Function x_decode_color can signal an error. Make
3084 sure to initialize color slots so that we won't try
3085 to free colors we haven't allocated. */
3086 f
->output_data
.x
->foreground_pixel
= -1;
3087 f
->output_data
.x
->background_pixel
= -1;
3088 f
->output_data
.x
->cursor_pixel
= -1;
3089 f
->output_data
.x
->cursor_foreground_pixel
= -1;
3090 f
->output_data
.x
->border_pixel
= -1;
3091 f
->output_data
.x
->mouse_pixel
= -1;
3093 black
= build_string ("black");
3095 f
->output_data
.x
->foreground_pixel
3096 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3097 f
->output_data
.x
->background_pixel
3098 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3099 f
->output_data
.x
->cursor_pixel
3100 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3101 f
->output_data
.x
->cursor_foreground_pixel
3102 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3103 f
->output_data
.x
->border_pixel
3104 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3105 f
->output_data
.x
->mouse_pixel
3106 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3110 /* Specify the parent under which to make this X window. */
3114 f
->output_data
.x
->parent_desc
= (Window
) XFASTINT (parent
);
3115 f
->output_data
.x
->explicit_parent
= 1;
3119 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
3120 f
->output_data
.x
->explicit_parent
= 0;
3123 /* Set the name; the functions to which we pass f expect the name to
3125 if (EQ (name
, Qunbound
) || NILP (name
))
3127 f
->name
= build_string (dpyinfo
->x_id_name
);
3128 f
->explicit_name
= 0;
3133 f
->explicit_name
= 1;
3134 /* use the frame's title when getting resources for this frame. */
3135 specbind (Qx_resource_name
, name
);
3138 /* Extract the window parameters from the supplied values
3139 that are needed to determine window geometry. */
3143 font
= x_get_arg (dpyinfo
, parms
, Qfont
, "font", "Font", RES_TYPE_STRING
);
3146 /* First, try whatever font the caller has specified. */
3149 tem
= Fquery_fontset (font
, Qnil
);
3151 font
= x_new_fontset (f
, SDATA (tem
));
3153 font
= x_new_font (f
, SDATA (font
));
3156 /* Try out a font which we hope has bold and italic variations. */
3157 if (!STRINGP (font
))
3158 font
= x_new_font (f
, "-adobe-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-1");
3159 if (!STRINGP (font
))
3160 font
= x_new_font (f
, "-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-1");
3161 if (! STRINGP (font
))
3162 font
= x_new_font (f
, "-*-*-medium-r-normal-*-*-140-*-*-c-*-iso8859-1");
3163 if (! STRINGP (font
))
3164 /* This was formerly the first thing tried, but it finds too many fonts
3165 and takes too long. */
3166 font
= x_new_font (f
, "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1");
3167 /* If those didn't work, look for something which will at least work. */
3168 if (! STRINGP (font
))
3169 font
= x_new_font (f
, "-*-fixed-*-*-*-*-*-140-*-*-c-*-iso8859-1");
3171 if (! STRINGP (font
))
3172 font
= build_string ("fixed");
3174 x_default_parameter (f
, parms
, Qfont
, font
,
3175 "font", "Font", RES_TYPE_STRING
);
3179 /* Prevent lwlib/xlwmenu.c from crashing because of a bug
3180 whereby it fails to get any font. */
3181 xlwmenu_default_font
= FRAME_FONT (f
);
3184 x_default_parameter (f
, parms
, Qborder_width
, make_number (2),
3185 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
3187 /* This defaults to 1 in order to match xterm. We recognize either
3188 internalBorderWidth or internalBorder (which is what xterm calls
3190 if (NILP (Fassq (Qinternal_border_width
, parms
)))
3194 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
3195 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
3196 if (! EQ (value
, Qunbound
))
3197 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
3200 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
3201 "internalBorderWidth", "internalBorderWidth",
3203 x_default_parameter (f
, parms
, Qvertical_scroll_bars
, Qleft
,
3204 "verticalScrollBars", "ScrollBars",
3207 /* Also do the stuff which must be set before the window exists. */
3208 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
3209 "foreground", "Foreground", RES_TYPE_STRING
);
3210 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
3211 "background", "Background", RES_TYPE_STRING
);
3212 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
3213 "pointerColor", "Foreground", RES_TYPE_STRING
);
3214 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
3215 "cursorColor", "Foreground", RES_TYPE_STRING
);
3216 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
3217 "borderColor", "BorderColor", RES_TYPE_STRING
);
3218 x_default_parameter (f
, parms
, Qscreen_gamma
, Qnil
,
3219 "screenGamma", "ScreenGamma", RES_TYPE_FLOAT
);
3220 x_default_parameter (f
, parms
, Qline_spacing
, Qnil
,
3221 "lineSpacing", "LineSpacing", RES_TYPE_NUMBER
);
3222 x_default_parameter (f
, parms
, Qleft_fringe
, Qnil
,
3223 "leftFringe", "LeftFringe", RES_TYPE_NUMBER
);
3224 x_default_parameter (f
, parms
, Qright_fringe
, Qnil
,
3225 "rightFringe", "RightFringe", RES_TYPE_NUMBER
);
3227 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_foreground
,
3228 "scrollBarForeground",
3229 "ScrollBarForeground", 1);
3230 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_background
,
3231 "scrollBarBackground",
3232 "ScrollBarBackground", 0);
3234 /* Init faces before x_default_parameter is called for scroll-bar
3235 parameters because that function calls x_set_scroll_bar_width,
3236 which calls change_frame_size, which calls Fset_window_buffer,
3237 which runs hooks, which call Fvertical_motion. At the end, we
3238 end up in init_iterator with a null face cache, which should not
3240 init_frame_faces (f
);
3242 x_default_parameter (f
, parms
, Qmenu_bar_lines
, make_number (1),
3243 "menuBar", "MenuBar", RES_TYPE_NUMBER
);
3244 x_default_parameter (f
, parms
, Qtool_bar_lines
, make_number (1),
3245 "toolBar", "ToolBar", RES_TYPE_NUMBER
);
3246 x_default_parameter (f
, parms
, Qbuffer_predicate
, Qnil
,
3247 "bufferPredicate", "BufferPredicate",
3249 x_default_parameter (f
, parms
, Qtitle
, Qnil
,
3250 "title", "Title", RES_TYPE_STRING
);
3251 x_default_parameter (f
, parms
, Qwait_for_wm
, Qt
,
3252 "waitForWM", "WaitForWM", RES_TYPE_BOOLEAN
);
3253 x_default_parameter (f
, parms
, Qfullscreen
, Qnil
,
3254 "fullscreen", "Fullscreen", RES_TYPE_SYMBOL
);
3256 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
3258 /* Compute the size of the X window. */
3259 window_prompting
= x_figure_window_size (f
, parms
, 1);
3261 tem
= x_get_arg (dpyinfo
, parms
, Qunsplittable
, 0, 0, RES_TYPE_BOOLEAN
);
3262 f
->no_split
= minibuffer_only
|| EQ (tem
, Qt
);
3264 x_icon_verify (f
, parms
);
3266 /* Create the X widget or window. */
3267 #ifdef USE_X_TOOLKIT
3268 x_window (f
, window_prompting
, minibuffer_only
);
3276 /* Now consider the frame official. */
3277 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
3278 Vframe_list
= Fcons (frame
, Vframe_list
);
3280 /* We need to do this after creating the X window, so that the
3281 icon-creation functions can say whose icon they're describing. */
3282 x_default_parameter (f
, parms
, Qicon_type
, Qnil
,
3283 "bitmapIcon", "BitmapIcon", RES_TYPE_SYMBOL
);
3285 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
3286 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3287 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
3288 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3289 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
3290 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
3291 x_default_parameter (f
, parms
, Qscroll_bar_width
, Qnil
,
3292 "scrollBarWidth", "ScrollBarWidth",
3295 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
3296 Change will not be effected unless different from the current
3298 width
= FRAME_COLS (f
);
3299 height
= FRAME_LINES (f
);
3301 SET_FRAME_COLS (f
, 0);
3302 FRAME_LINES (f
) = 0;
3303 change_frame_size (f
, height
, width
, 1, 0, 0);
3305 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
3306 /* Create the menu bar. */
3307 if (!minibuffer_only
&& FRAME_EXTERNAL_MENU_BAR (f
))
3309 /* If this signals an error, we haven't set size hints for the
3310 frame and we didn't make it visible. */
3311 initialize_frame_menubar (f
);
3314 /* This is a no-op, except under Motif where it arranges the
3315 main window for the widgets on it. */
3316 lw_set_main_areas (f
->output_data
.x
->column_widget
,
3317 f
->output_data
.x
->menubar_widget
,
3318 f
->output_data
.x
->edit_widget
);
3319 #endif /* not USE_GTK */
3321 #endif /* USE_X_TOOLKIT || USE_GTK */
3323 /* Tell the server what size and position, etc, we want, and how
3324 badly we want them. This should be done after we have the menu
3325 bar so that its size can be taken into account. */
3327 x_wm_set_size_hint (f
, window_prompting
, 0);
3330 /* Make the window appear on the frame and enable display, unless
3331 the caller says not to. However, with explicit parent, Emacs
3332 cannot control visibility, so don't try. */
3333 if (! f
->output_data
.x
->explicit_parent
)
3335 Lisp_Object visibility
;
3337 visibility
= x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0,
3339 if (EQ (visibility
, Qunbound
))
3342 if (EQ (visibility
, Qicon
))
3343 x_iconify_frame (f
);
3344 else if (! NILP (visibility
))
3345 x_make_frame_visible (f
);
3347 /* Must have been Qnil. */
3351 /* Set the WM leader property. GTK does this itself, so this is not
3352 needed when using GTK. */
3353 if (dpyinfo
->client_leader_window
!= 0)
3356 XChangeProperty (FRAME_X_DISPLAY (f
),
3357 FRAME_OUTER_WINDOW (f
),
3358 dpyinfo
->Xatom_wm_client_leader
,
3359 XA_WINDOW
, 32, PropModeReplace
,
3360 (char *) &dpyinfo
->client_leader_window
, 1);
3366 /* Make sure windows on this frame appear in calls to next-window
3367 and similar functions. */
3368 Vwindow_list
= Qnil
;
3370 return unbind_to (count
, frame
);
3374 /* FRAME is used only to get a handle on the X display. We don't pass the
3375 display info directly because we're called from frame.c, which doesn't
3376 know about that structure. */
3379 x_get_focus_frame (frame
)
3380 struct frame
*frame
;
3382 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (frame
);
3384 if (! dpyinfo
->x_focus_frame
)
3387 XSETFRAME (xfocus
, dpyinfo
->x_focus_frame
);
3392 /* In certain situations, when the window manager follows a
3393 click-to-focus policy, there seems to be no way around calling
3394 XSetInputFocus to give another frame the input focus .
3396 In an ideal world, XSetInputFocus should generally be avoided so
3397 that applications don't interfere with the window manager's focus
3398 policy. But I think it's okay to use when it's clearly done
3399 following a user-command. */
3401 DEFUN ("x-focus-frame", Fx_focus_frame
, Sx_focus_frame
, 1, 1, 0,
3402 doc
: /* Set the input focus to FRAME.
3403 FRAME nil means use the selected frame. */)
3407 struct frame
*f
= check_x_frame (frame
);
3408 Display
*dpy
= FRAME_X_DISPLAY (f
);
3412 count
= x_catch_errors (dpy
);
3413 XSetInputFocus (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
3414 RevertToParent
, CurrentTime
);
3415 x_uncatch_errors (dpy
, count
);
3422 DEFUN ("xw-color-defined-p", Fxw_color_defined_p
, Sxw_color_defined_p
, 1, 2, 0,
3423 doc
: /* Internal function called by `color-defined-p', which see. */)
3425 Lisp_Object color
, frame
;
3428 FRAME_PTR f
= check_x_frame (frame
);
3430 CHECK_STRING (color
);
3432 if (x_defined_color (f
, SDATA (color
), &foo
, 0))
3438 DEFUN ("xw-color-values", Fxw_color_values
, Sxw_color_values
, 1, 2, 0,
3439 doc
: /* Internal function called by `color-values', which see. */)
3441 Lisp_Object color
, frame
;
3444 FRAME_PTR f
= check_x_frame (frame
);
3446 CHECK_STRING (color
);
3448 if (x_defined_color (f
, SDATA (color
), &foo
, 0))
3452 rgb
[0] = make_number (foo
.red
);
3453 rgb
[1] = make_number (foo
.green
);
3454 rgb
[2] = make_number (foo
.blue
);
3455 return Flist (3, rgb
);
3461 DEFUN ("xw-display-color-p", Fxw_display_color_p
, Sxw_display_color_p
, 0, 1, 0,
3462 doc
: /* Internal function called by `display-color-p', which see. */)
3464 Lisp_Object display
;
3466 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3468 if (dpyinfo
->n_planes
<= 2)
3471 switch (dpyinfo
->visual
->class)
3484 DEFUN ("x-display-grayscale-p", Fx_display_grayscale_p
, Sx_display_grayscale_p
,
3486 doc
: /* Return t if the X display supports shades of gray.
3487 Note that color displays do support shades of gray.
3488 The optional argument DISPLAY specifies which display to ask about.
3489 DISPLAY should be either a frame or a display name (a string).
3490 If omitted or nil, that stands for the selected frame's display. */)
3492 Lisp_Object display
;
3494 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3496 if (dpyinfo
->n_planes
<= 1)
3499 switch (dpyinfo
->visual
->class)
3514 DEFUN ("x-display-pixel-width", Fx_display_pixel_width
, Sx_display_pixel_width
,
3516 doc
: /* Returns the width in pixels of the X display DISPLAY.
3517 The optional argument DISPLAY specifies which display to ask about.
3518 DISPLAY should be either a frame or a display name (a string).
3519 If omitted or nil, that stands for the selected frame's display. */)
3521 Lisp_Object display
;
3523 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3525 return make_number (dpyinfo
->width
);
3528 DEFUN ("x-display-pixel-height", Fx_display_pixel_height
,
3529 Sx_display_pixel_height
, 0, 1, 0,
3530 doc
: /* Returns the height in pixels of the X display DISPLAY.
3531 The optional argument DISPLAY specifies which display to ask about.
3532 DISPLAY should be either a frame or a display name (a string).
3533 If omitted or nil, that stands for the selected frame's display. */)
3535 Lisp_Object display
;
3537 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3539 return make_number (dpyinfo
->height
);
3542 DEFUN ("x-display-planes", Fx_display_planes
, Sx_display_planes
,
3544 doc
: /* Returns the number of bitplanes of the X display DISPLAY.
3545 The optional argument DISPLAY specifies which display to ask about.
3546 DISPLAY should be either a frame or a display name (a string).
3547 If omitted or nil, that stands for the selected frame's display. */)
3549 Lisp_Object display
;
3551 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3553 return make_number (dpyinfo
->n_planes
);
3556 DEFUN ("x-display-color-cells", Fx_display_color_cells
, Sx_display_color_cells
,
3558 doc
: /* Returns the number of color cells of the X display DISPLAY.
3559 The optional argument DISPLAY specifies which display to ask about.
3560 DISPLAY should be either a frame or a display name (a string).
3561 If omitted or nil, that stands for the selected frame's display. */)
3563 Lisp_Object display
;
3565 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3567 int nr_planes
= DisplayPlanes (dpyinfo
->display
,
3568 XScreenNumberOfScreen (dpyinfo
->screen
));
3570 /* Truncate nr_planes to 24 to avoid integer overflow.
3571 Some displays says 32, but only 24 bits are actually significant.
3572 There are only very few and rare video cards that have more than
3573 24 significant bits. Also 24 bits is more than 16 million colors,
3574 it "should be enough for everyone". */
3575 if (nr_planes
> 24) nr_planes
= 24;
3577 return make_number (1 << nr_planes
);
3580 DEFUN ("x-server-max-request-size", Fx_server_max_request_size
,
3581 Sx_server_max_request_size
,
3583 doc
: /* Returns the maximum request size of the X server of display DISPLAY.
3584 The optional argument DISPLAY specifies which display to ask about.
3585 DISPLAY should be either a frame or a display name (a string).
3586 If omitted or nil, that stands for the selected frame's display. */)
3588 Lisp_Object display
;
3590 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3592 return make_number (MAXREQUEST (dpyinfo
->display
));
3595 DEFUN ("x-server-vendor", Fx_server_vendor
, Sx_server_vendor
, 0, 1, 0,
3596 doc
: /* Returns the "vendor ID" string of the X server of display DISPLAY.
3597 \(Labelling every distributor as a "vendor" embodies the false assumption
3598 that operating systems cannot be developed and distributed noncommercially.)
3599 The optional argument DISPLAY specifies which display to ask about.
3600 DISPLAY should be either a frame or a display name (a string).
3601 If omitted or nil, that stands for the selected frame's display. */)
3603 Lisp_Object display
;
3605 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3606 char *vendor
= ServerVendor (dpyinfo
->display
);
3608 if (! vendor
) vendor
= "";
3609 return build_string (vendor
);
3612 DEFUN ("x-server-version", Fx_server_version
, Sx_server_version
, 0, 1, 0,
3613 doc
: /* Returns the version numbers of the X server of display DISPLAY.
3614 The value is a list of three integers: the major and minor
3615 version numbers of the X Protocol in use, and the distributor-specific release
3616 number. See also the function `x-server-vendor'.
3618 The optional argument DISPLAY specifies which display to ask about.
3619 DISPLAY should be either a frame or a display name (a string).
3620 If omitted or nil, that stands for the selected frame's display. */)
3622 Lisp_Object display
;
3624 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3625 Display
*dpy
= dpyinfo
->display
;
3627 return Fcons (make_number (ProtocolVersion (dpy
)),
3628 Fcons (make_number (ProtocolRevision (dpy
)),
3629 Fcons (make_number (VendorRelease (dpy
)), Qnil
)));
3632 DEFUN ("x-display-screens", Fx_display_screens
, Sx_display_screens
, 0, 1, 0,
3633 doc
: /* Return the number of screens on the X server of display DISPLAY.
3634 The optional argument DISPLAY specifies which display to ask about.
3635 DISPLAY should be either a frame or a display name (a string).
3636 If omitted or nil, that stands for the selected frame's display. */)
3638 Lisp_Object display
;
3640 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3642 return make_number (ScreenCount (dpyinfo
->display
));
3645 DEFUN ("x-display-mm-height", Fx_display_mm_height
, Sx_display_mm_height
, 0, 1, 0,
3646 doc
: /* Return the height in millimeters of the X display DISPLAY.
3647 The optional argument DISPLAY specifies which display to ask about.
3648 DISPLAY should be either a frame or a display name (a string).
3649 If omitted or nil, that stands for the selected frame's display. */)
3651 Lisp_Object display
;
3653 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3655 return make_number (HeightMMOfScreen (dpyinfo
->screen
));
3658 DEFUN ("x-display-mm-width", Fx_display_mm_width
, Sx_display_mm_width
, 0, 1, 0,
3659 doc
: /* Return the width in millimeters of the X display DISPLAY.
3660 The optional argument DISPLAY specifies which display to ask about.
3661 DISPLAY should be either a frame or a display name (a string).
3662 If omitted or nil, that stands for the selected frame's display. */)
3664 Lisp_Object display
;
3666 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3668 return make_number (WidthMMOfScreen (dpyinfo
->screen
));
3671 DEFUN ("x-display-backing-store", Fx_display_backing_store
,
3672 Sx_display_backing_store
, 0, 1, 0,
3673 doc
: /* Returns an indication of whether X display DISPLAY does backing store.
3674 The value may be `always', `when-mapped', or `not-useful'.
3675 The optional argument DISPLAY specifies which display to ask about.
3676 DISPLAY should be either a frame or a display name (a string).
3677 If omitted or nil, that stands for the selected frame's display. */)
3679 Lisp_Object display
;
3681 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3684 switch (DoesBackingStore (dpyinfo
->screen
))
3687 result
= intern ("always");
3691 result
= intern ("when-mapped");
3695 result
= intern ("not-useful");
3699 error ("Strange value for BackingStore parameter of screen");
3706 DEFUN ("x-display-visual-class", Fx_display_visual_class
,
3707 Sx_display_visual_class
, 0, 1, 0,
3708 doc
: /* Return the visual class of the X display DISPLAY.
3709 The value is one of the symbols `static-gray', `gray-scale',
3710 `static-color', `pseudo-color', `true-color', or `direct-color'.
3712 The optional argument DISPLAY specifies which display to ask about.
3713 DISPLAY should be either a frame or a display name (a string).
3714 If omitted or nil, that stands for the selected frame's display. */)
3716 Lisp_Object display
;
3718 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3721 switch (dpyinfo
->visual
->class)
3724 result
= intern ("static-gray");
3727 result
= intern ("gray-scale");
3730 result
= intern ("static-color");
3733 result
= intern ("pseudo-color");
3736 result
= intern ("true-color");
3739 result
= intern ("direct-color");
3742 error ("Display has an unknown visual class");
3749 DEFUN ("x-display-save-under", Fx_display_save_under
,
3750 Sx_display_save_under
, 0, 1, 0,
3751 doc
: /* Returns t if the X display DISPLAY supports the save-under feature.
3752 The optional argument DISPLAY specifies which display to ask about.
3753 DISPLAY should be either a frame or a display name (a string).
3754 If omitted or nil, that stands for the selected frame's display. */)
3756 Lisp_Object display
;
3758 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3760 if (DoesSaveUnders (dpyinfo
->screen
) == True
)
3768 register struct frame
*f
;
3770 return FRAME_PIXEL_WIDTH (f
);
3775 register struct frame
*f
;
3777 return FRAME_PIXEL_HEIGHT (f
);
3782 register struct frame
*f
;
3784 return FRAME_COLUMN_WIDTH (f
);
3789 register struct frame
*f
;
3791 return FRAME_LINE_HEIGHT (f
);
3796 register struct frame
*f
;
3798 return FRAME_X_DISPLAY_INFO (f
)->n_planes
;
3803 /************************************************************************
3805 ************************************************************************/
3808 /* Mapping visual names to visuals. */
3810 static struct visual_class
3817 {"StaticGray", StaticGray
},
3818 {"GrayScale", GrayScale
},
3819 {"StaticColor", StaticColor
},
3820 {"PseudoColor", PseudoColor
},
3821 {"TrueColor", TrueColor
},
3822 {"DirectColor", DirectColor
},
3827 #ifndef HAVE_XSCREENNUMBEROFSCREEN
3829 /* Value is the screen number of screen SCR. This is a substitute for
3830 the X function with the same name when that doesn't exist. */
3833 XScreenNumberOfScreen (scr
)
3834 register Screen
*scr
;
3836 Display
*dpy
= scr
->display
;
3839 for (i
= 0; i
< dpy
->nscreens
; ++i
)
3840 if (scr
== dpy
->screens
+ i
)
3846 #endif /* not HAVE_XSCREENNUMBEROFSCREEN */
3849 /* Select the visual that should be used on display DPYINFO. Set
3850 members of DPYINFO appropriately. Called from x_term_init. */
3853 select_visual (dpyinfo
)
3854 struct x_display_info
*dpyinfo
;
3856 Display
*dpy
= dpyinfo
->display
;
3857 Screen
*screen
= dpyinfo
->screen
;
3860 /* See if a visual is specified. */
3861 value
= display_x_get_resource (dpyinfo
,
3862 build_string ("visualClass"),
3863 build_string ("VisualClass"),
3865 if (STRINGP (value
))
3867 /* VALUE should be of the form CLASS-DEPTH, where CLASS is one
3868 of `PseudoColor', `TrueColor' etc. and DEPTH is the color
3869 depth, a decimal number. NAME is compared with case ignored. */
3870 char *s
= (char *) alloca (SBYTES (value
) + 1);
3875 strcpy (s
, SDATA (value
));
3876 dash
= index (s
, '-');
3879 dpyinfo
->n_planes
= atoi (dash
+ 1);
3883 /* We won't find a matching visual with depth 0, so that
3884 an error will be printed below. */
3885 dpyinfo
->n_planes
= 0;
3887 /* Determine the visual class. */
3888 for (i
= 0; visual_classes
[i
].name
; ++i
)
3889 if (xstricmp (s
, visual_classes
[i
].name
) == 0)
3891 class = visual_classes
[i
].class;
3895 /* Look up a matching visual for the specified class. */
3897 || !XMatchVisualInfo (dpy
, XScreenNumberOfScreen (screen
),
3898 dpyinfo
->n_planes
, class, &vinfo
))
3899 fatal ("Invalid visual specification `%s'", SDATA (value
));
3901 dpyinfo
->visual
= vinfo
.visual
;
3906 XVisualInfo
*vinfo
, vinfo_template
;
3908 dpyinfo
->visual
= DefaultVisualOfScreen (screen
);
3911 vinfo_template
.visualid
= XVisualIDFromVisual (dpyinfo
->visual
);
3913 vinfo_template
.visualid
= dpyinfo
->visual
->visualid
;
3915 vinfo_template
.screen
= XScreenNumberOfScreen (screen
);
3916 vinfo
= XGetVisualInfo (dpy
, VisualIDMask
| VisualScreenMask
,
3917 &vinfo_template
, &n_visuals
);
3919 fatal ("Can't get proper X visual info");
3921 dpyinfo
->n_planes
= vinfo
->depth
;
3922 XFree ((char *) vinfo
);
3927 /* Return the X display structure for the display named NAME.
3928 Open a new connection if necessary. */
3930 struct x_display_info
*
3931 x_display_info_for_name (name
)
3935 struct x_display_info
*dpyinfo
;
3937 CHECK_STRING (name
);
3939 if (! EQ (Vwindow_system
, intern ("x")))
3940 error ("Not using X Windows");
3942 for (dpyinfo
= x_display_list
, names
= x_display_name_list
;
3944 dpyinfo
= dpyinfo
->next
, names
= XCDR (names
))
3947 tem
= Fstring_equal (XCAR (XCAR (names
)), name
);
3952 /* Use this general default value to start with. */
3953 Vx_resource_name
= Vinvocation_name
;
3955 validate_x_resource_name ();
3957 dpyinfo
= x_term_init (name
, (char *)0,
3958 (char *) SDATA (Vx_resource_name
));
3961 error ("Cannot connect to X server %s", SDATA (name
));
3964 XSETFASTINT (Vwindow_system_version
, 11);
3970 DEFUN ("x-open-connection", Fx_open_connection
, Sx_open_connection
,
3972 doc
: /* Open a connection to an X server.
3973 DISPLAY is the name of the display to connect to.
3974 Optional second arg XRM-STRING is a string of resources in xrdb format.
3975 If the optional third arg MUST-SUCCEED is non-nil,
3976 terminate Emacs if we can't open the connection. */)
3977 (display
, xrm_string
, must_succeed
)
3978 Lisp_Object display
, xrm_string
, must_succeed
;
3980 unsigned char *xrm_option
;
3981 struct x_display_info
*dpyinfo
;
3983 CHECK_STRING (display
);
3984 if (! NILP (xrm_string
))
3985 CHECK_STRING (xrm_string
);
3987 if (! EQ (Vwindow_system
, intern ("x")))
3988 error ("Not using X Windows");
3990 if (! NILP (xrm_string
))
3991 xrm_option
= (unsigned char *) SDATA (xrm_string
);
3993 xrm_option
= (unsigned char *) 0;
3995 validate_x_resource_name ();
3997 /* This is what opens the connection and sets x_current_display.
3998 This also initializes many symbols, such as those used for input. */
3999 dpyinfo
= x_term_init (display
, xrm_option
,
4000 (char *) SDATA (Vx_resource_name
));
4004 if (!NILP (must_succeed
))
4005 fatal ("Cannot connect to X server %s.\n\
4006 Check the DISPLAY environment variable or use `-d'.\n\
4007 Also use the `xauth' program to verify that you have the proper\n\
4008 authorization information needed to connect the X server.\n\
4009 An insecure way to solve the problem may be to use `xhost'.\n",
4012 error ("Cannot connect to X server %s", SDATA (display
));
4017 XSETFASTINT (Vwindow_system_version
, 11);
4021 DEFUN ("x-close-connection", Fx_close_connection
,
4022 Sx_close_connection
, 1, 1, 0,
4023 doc
: /* Close the connection to DISPLAY's X server.
4024 For DISPLAY, specify either a frame or a display name (a string).
4025 If DISPLAY is nil, that stands for the selected frame's display. */)
4027 Lisp_Object display
;
4029 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
4032 if (dpyinfo
->reference_count
> 0)
4033 error ("Display still has frames on it");
4036 /* Free the fonts in the font table. */
4037 for (i
= 0; i
< dpyinfo
->n_fonts
; i
++)
4038 if (dpyinfo
->font_table
[i
].name
)
4040 XFreeFont (dpyinfo
->display
, dpyinfo
->font_table
[i
].font
);
4043 x_destroy_all_bitmaps (dpyinfo
);
4044 XSetCloseDownMode (dpyinfo
->display
, DestroyAll
);
4046 #ifdef USE_X_TOOLKIT
4047 XtCloseDisplay (dpyinfo
->display
);
4049 XCloseDisplay (dpyinfo
->display
);
4052 x_delete_display (dpyinfo
);
4058 DEFUN ("x-display-list", Fx_display_list
, Sx_display_list
, 0, 0, 0,
4059 doc
: /* Return the list of display names that Emacs has connections to. */)
4062 Lisp_Object tail
, result
;
4065 for (tail
= x_display_name_list
; ! NILP (tail
); tail
= XCDR (tail
))
4066 result
= Fcons (XCAR (XCAR (tail
)), result
);
4071 DEFUN ("x-synchronize", Fx_synchronize
, Sx_synchronize
, 1, 2, 0,
4072 doc
: /* If ON is non-nil, report X errors as soon as the erring request is made.
4073 If ON is nil, allow buffering of requests.
4074 Turning on synchronization prohibits the Xlib routines from buffering
4075 requests and seriously degrades performance, but makes debugging much
4077 The optional second argument DISPLAY specifies which display to act on.
4078 DISPLAY should be either a frame or a display name (a string).
4079 If DISPLAY is omitted or nil, that stands for the selected frame's display. */)
4081 Lisp_Object display
, on
;
4083 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
4085 XSynchronize (dpyinfo
->display
, !EQ (on
, Qnil
));
4090 /* Wait for responses to all X commands issued so far for frame F. */
4097 XSync (FRAME_X_DISPLAY (f
), False
);
4102 /***********************************************************************
4104 ***********************************************************************/
4106 DEFUN ("x-change-window-property", Fx_change_window_property
,
4107 Sx_change_window_property
, 2, 6, 0,
4108 doc
: /* Change window property PROP to VALUE on the X window of FRAME.
4109 PROP must be a string.
4110 VALUE may be a string or a list of conses, numbers and/or strings.
4111 If an element in the list is a string, it is converted to
4112 an Atom and the value of the Atom is used. If an element is a cons,
4113 it is converted to a 32 bit number where the car is the 16 top bits and the
4114 cdr is the lower 16 bits.
4115 FRAME nil or omitted means use the selected frame.
4116 If TYPE is given and non-nil, it is the name of the type of VALUE.
4117 If TYPE is not given or nil, the type is STRING.
4118 FORMAT gives the size in bits of each element if VALUE is a list.
4119 It must be one of 8, 16 or 32.
4120 If VALUE is a string or FORMAT is nil or not given, FORMAT defaults to 8.
4121 If OUTER_P is non-nil, the property is changed for the outer X window of
4122 FRAME. Default is to change on the edit X window.
4125 (prop
, value
, frame
, type
, format
, outer_p
)
4126 Lisp_Object prop
, value
, frame
, type
, format
, outer_p
;
4128 struct frame
*f
= check_x_frame (frame
);
4130 Atom target_type
= XA_STRING
;
4131 int element_format
= 8;
4132 unsigned char *data
;
4136 CHECK_STRING (prop
);
4138 if (! NILP (format
))
4140 CHECK_NUMBER (format
);
4141 element_format
= XFASTINT (format
);
4143 if (element_format
!= 8 && element_format
!= 16
4144 && element_format
!= 32)
4145 error ("FORMAT must be one of 8, 16 or 32");
4150 nelements
= x_check_property_data (value
);
4151 if (nelements
== -1)
4152 error ("Bad data in VALUE, must be number, string or cons");
4154 if (element_format
== 8)
4155 data
= (unsigned char *) xmalloc (nelements
);
4156 else if (element_format
== 16)
4157 data
= (unsigned char *) xmalloc (nelements
*2);
4158 else /* format == 32 */
4159 /* The man page for XChangeProperty:
4160 "If the specified format is 32, the property data must be a
4162 This applies even if long is more than 64 bits. The X library
4163 converts to 32 bits before sending to the X server. */
4164 data
= (unsigned char *) xmalloc (nelements
* sizeof(long));
4166 x_fill_property_data (FRAME_X_DISPLAY (f
), value
, data
, element_format
);
4170 CHECK_STRING (value
);
4171 data
= SDATA (value
);
4172 nelements
= SCHARS (value
);
4176 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4179 CHECK_STRING (type
);
4180 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (type
), False
);
4183 if (! NILP (outer_p
)) w
= FRAME_OUTER_WINDOW (f
);
4184 else w
= FRAME_X_WINDOW (f
);
4186 XChangeProperty (FRAME_X_DISPLAY (f
), w
,
4187 prop_atom
, target_type
, element_format
, PropModeReplace
,
4190 if (CONSP (value
)) xfree (data
);
4192 /* Make sure the property is set when we return. */
4193 XFlush (FRAME_X_DISPLAY (f
));
4200 DEFUN ("x-delete-window-property", Fx_delete_window_property
,
4201 Sx_delete_window_property
, 1, 2, 0,
4202 doc
: /* Remove window property PROP from X window of FRAME.
4203 FRAME nil or omitted means use the selected frame. Value is PROP. */)
4205 Lisp_Object prop
, frame
;
4207 struct frame
*f
= check_x_frame (frame
);
4210 CHECK_STRING (prop
);
4212 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4213 XDeleteProperty (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), prop_atom
);
4215 /* Make sure the property is removed when we return. */
4216 XFlush (FRAME_X_DISPLAY (f
));
4223 DEFUN ("x-window-property", Fx_window_property
, Sx_window_property
,
4225 doc
: /* Value is the value of window property PROP on FRAME.
4226 If FRAME is nil or omitted, use the selected frame.
4227 If TYPE is nil or omitted, get the property as a string. Otherwise TYPE
4228 is the name of the Atom that denotes the type expected.
4229 If SOURCE is non-nil, get the property on that window instead of from
4230 FRAME. The number 0 denotes the root window.
4231 If DELETE_P is non-nil, delete the property after retreiving it.
4232 If VECTOR_RET_P is non-nil, don't return a string but a vector of values.
4234 Value is nil if FRAME hasn't a property with name PROP or if PROP has
4235 no value of TYPE. */)
4236 (prop
, frame
, type
, source
, delete_p
, vector_ret_p
)
4237 Lisp_Object prop
, frame
, type
, source
, delete_p
, vector_ret_p
;
4239 struct frame
*f
= check_x_frame (frame
);
4242 Lisp_Object prop_value
= Qnil
;
4243 unsigned char *tmp_data
= NULL
;
4245 Atom target_type
= XA_STRING
;
4247 unsigned long actual_size
, bytes_remaining
;
4248 Window target_window
= FRAME_X_WINDOW (f
);
4249 struct gcpro gcpro1
;
4251 GCPRO1 (prop_value
);
4252 CHECK_STRING (prop
);
4254 if (! NILP (source
))
4256 if (NUMBERP (source
))
4258 if (FLOATP (source
))
4259 target_window
= (Window
) XFLOAT (source
);
4261 target_window
= XFASTINT (source
);
4263 if (target_window
== 0)
4264 target_window
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4266 else if (CONSP (source
))
4267 target_window
= cons_to_long (source
);
4273 if (strcmp ("AnyPropertyType", SDATA (type
)) == 0)
4274 target_type
= AnyPropertyType
;
4276 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (type
), False
);
4279 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4280 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4281 prop_atom
, 0, 0, False
, target_type
,
4282 &actual_type
, &actual_format
, &actual_size
,
4283 &bytes_remaining
, &tmp_data
);
4286 int size
= bytes_remaining
;
4291 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4292 prop_atom
, 0, bytes_remaining
,
4293 ! NILP (delete_p
), target_type
,
4294 &actual_type
, &actual_format
,
4295 &actual_size
, &bytes_remaining
,
4297 if (rc
== Success
&& tmp_data
)
4299 /* The man page for XGetWindowProperty says:
4300 "If the returned format is 32, the returned data is represented
4301 as a long array and should be cast to that type to obtain the
4303 This applies even if long is more than 32 bits, the X library
4304 converts from 32 bit elements received from the X server to long
4305 and passes the long array to us. Thus, for that case bcopy can not
4306 be used. We convert to a 32 bit type here, because so much code
4309 The bytes and offsets passed to XGetWindowProperty refers to the
4310 property and those are indeed in 32 bit quantities if format is
4313 if (actual_format
== 32 && actual_format
< BITS_PER_LONG
)
4316 int *idata
= (int *) tmp_data
;
4317 long *ldata
= (long *) tmp_data
;
4319 for (i
= 0; i
< actual_size
; ++i
)
4320 idata
[i
] = (int) ldata
[i
];
4323 if (NILP (vector_ret_p
))
4324 prop_value
= make_string (tmp_data
, size
);
4326 prop_value
= x_property_data_to_lisp (f
,
4333 if (tmp_data
) XFree (tmp_data
);
4343 /***********************************************************************
4345 ***********************************************************************/
4347 /* If non-null, an asynchronous timer that, when it expires, displays
4348 an hourglass cursor on all frames. */
4350 static struct atimer
*hourglass_atimer
;
4352 /* Non-zero means an hourglass cursor is currently shown. */
4354 static int hourglass_shown_p
;
4356 /* Number of seconds to wait before displaying an hourglass cursor. */
4358 static Lisp_Object Vhourglass_delay
;
4360 /* Default number of seconds to wait before displaying an hourglass
4363 #define DEFAULT_HOURGLASS_DELAY 1
4365 /* Function prototypes. */
4367 static void show_hourglass
P_ ((struct atimer
*));
4368 static void hide_hourglass
P_ ((void));
4370 /* Return non-zero if houglass timer has been started or hourglass is shown. */
4373 hourglass_started ()
4375 return hourglass_shown_p
|| hourglass_atimer
!= NULL
;
4379 /* Cancel a currently active hourglass timer, and start a new one. */
4385 int secs
, usecs
= 0;
4387 cancel_hourglass ();
4389 if (INTEGERP (Vhourglass_delay
)
4390 && XINT (Vhourglass_delay
) > 0)
4391 secs
= XFASTINT (Vhourglass_delay
);
4392 else if (FLOATP (Vhourglass_delay
)
4393 && XFLOAT_DATA (Vhourglass_delay
) > 0)
4396 tem
= Ftruncate (Vhourglass_delay
, Qnil
);
4397 secs
= XFASTINT (tem
);
4398 usecs
= (XFLOAT_DATA (Vhourglass_delay
) - secs
) * 1000000;
4401 secs
= DEFAULT_HOURGLASS_DELAY
;
4403 EMACS_SET_SECS_USECS (delay
, secs
, usecs
);
4404 hourglass_atimer
= start_atimer (ATIMER_RELATIVE
, delay
,
4405 show_hourglass
, NULL
);
4409 /* Cancel the hourglass cursor timer if active, hide a busy cursor if
4415 if (hourglass_atimer
)
4417 cancel_atimer (hourglass_atimer
);
4418 hourglass_atimer
= NULL
;
4421 if (hourglass_shown_p
)
4426 /* Timer function of hourglass_atimer. TIMER is equal to
4429 Display an hourglass pointer on all frames by mapping the frames'
4430 hourglass_window. Set the hourglass_p flag in the frames'
4431 output_data.x structure to indicate that an hourglass cursor is
4432 shown on the frames. */
4435 show_hourglass (timer
)
4436 struct atimer
*timer
;
4438 /* The timer implementation will cancel this timer automatically
4439 after this function has run. Set hourglass_atimer to null
4440 so that we know the timer doesn't have to be canceled. */
4441 hourglass_atimer
= NULL
;
4443 if (!hourglass_shown_p
)
4445 Lisp_Object rest
, frame
;
4449 FOR_EACH_FRAME (rest
, frame
)
4451 struct frame
*f
= XFRAME (frame
);
4453 if (FRAME_LIVE_P (f
) && FRAME_X_P (f
) && FRAME_X_DISPLAY (f
))
4455 Display
*dpy
= FRAME_X_DISPLAY (f
);
4457 #ifdef USE_X_TOOLKIT
4458 if (f
->output_data
.x
->widget
)
4460 if (FRAME_OUTER_WINDOW (f
))
4463 f
->output_data
.x
->hourglass_p
= 1;
4465 if (!f
->output_data
.x
->hourglass_window
)
4467 unsigned long mask
= CWCursor
;
4468 XSetWindowAttributes attrs
;
4470 Window parent
= FRAME_X_WINDOW (f
);
4472 Window parent
= FRAME_OUTER_WINDOW (f
);
4474 attrs
.cursor
= f
->output_data
.x
->hourglass_cursor
;
4476 f
->output_data
.x
->hourglass_window
4477 = XCreateWindow (dpy
, parent
,
4478 0, 0, 32000, 32000, 0, 0,
4484 XMapRaised (dpy
, f
->output_data
.x
->hourglass_window
);
4490 hourglass_shown_p
= 1;
4496 /* Hide the hourglass pointer on all frames, if it is currently
4502 if (hourglass_shown_p
)
4504 Lisp_Object rest
, frame
;
4507 FOR_EACH_FRAME (rest
, frame
)
4509 struct frame
*f
= XFRAME (frame
);
4512 /* Watch out for newly created frames. */
4513 && f
->output_data
.x
->hourglass_window
)
4515 XUnmapWindow (FRAME_X_DISPLAY (f
),
4516 f
->output_data
.x
->hourglass_window
);
4517 /* Sync here because XTread_socket looks at the
4518 hourglass_p flag that is reset to zero below. */
4519 XSync (FRAME_X_DISPLAY (f
), False
);
4520 f
->output_data
.x
->hourglass_p
= 0;
4524 hourglass_shown_p
= 0;
4531 /***********************************************************************
4533 ***********************************************************************/
4535 static Lisp_Object x_create_tip_frame
P_ ((struct x_display_info
*,
4536 Lisp_Object
, Lisp_Object
));
4537 static void compute_tip_xy
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
,
4538 Lisp_Object
, int, int, int *, int *));
4540 /* The frame of a currently visible tooltip. */
4542 Lisp_Object tip_frame
;
4544 /* If non-nil, a timer started that hides the last tooltip when it
4547 Lisp_Object tip_timer
;
4550 /* If non-nil, a vector of 3 elements containing the last args
4551 with which x-show-tip was called. See there. */
4553 Lisp_Object last_show_tip_args
;
4555 /* Maximum size for tooltips; a cons (COLUMNS . ROWS). */
4557 Lisp_Object Vx_max_tooltip_size
;
4561 unwind_create_tip_frame (frame
)
4564 Lisp_Object deleted
;
4566 deleted
= unwind_create_frame (frame
);
4567 if (EQ (deleted
, Qt
))
4577 /* Create a frame for a tooltip on the display described by DPYINFO.
4578 PARMS is a list of frame parameters. TEXT is the string to
4579 display in the tip frame. Value is the frame.
4581 Note that functions called here, esp. x_default_parameter can
4582 signal errors, for instance when a specified color name is
4583 undefined. We have to make sure that we're in a consistent state
4584 when this happens. */
4587 x_create_tip_frame (dpyinfo
, parms
, text
)
4588 struct x_display_info
*dpyinfo
;
4589 Lisp_Object parms
, text
;
4592 Lisp_Object frame
, tem
;
4594 long window_prompting
= 0;
4596 int count
= SPECPDL_INDEX ();
4597 struct gcpro gcpro1
, gcpro2
, gcpro3
;
4599 int face_change_count_before
= face_change_count
;
4601 struct buffer
*old_buffer
;
4607 kb
= dpyinfo
->kboard
;
4609 kb
= &the_only_kboard
;
4612 /* Get the name of the frame to use for resource lookup. */
4613 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
4615 && !EQ (name
, Qunbound
)
4617 error ("Invalid frame name--not a string or nil");
4620 GCPRO3 (parms
, name
, frame
);
4622 XSETFRAME (frame
, f
);
4624 buffer
= Fget_buffer_create (build_string (" *tip*"));
4625 Fset_window_buffer (FRAME_ROOT_WINDOW (f
), buffer
, Qnil
);
4626 old_buffer
= current_buffer
;
4627 set_buffer_internal_1 (XBUFFER (buffer
));
4628 current_buffer
->truncate_lines
= Qnil
;
4629 specbind (Qinhibit_read_only
, Qt
);
4630 specbind (Qinhibit_modification_hooks
, Qt
);
4633 set_buffer_internal_1 (old_buffer
);
4635 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 0;
4636 record_unwind_protect (unwind_create_tip_frame
, frame
);
4638 /* By setting the output method, we're essentially saying that
4639 the frame is live, as per FRAME_LIVE_P. If we get a signal
4640 from this point on, x_destroy_window might screw up reference
4642 f
->output_method
= output_x_window
;
4643 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
4644 bzero (f
->output_data
.x
, sizeof (struct x_output
));
4645 f
->output_data
.x
->icon_bitmap
= -1;
4646 FRAME_FONTSET (f
) = -1;
4647 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
4648 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
4649 #ifdef USE_TOOLKIT_SCROLL_BARS
4650 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
4651 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
4652 #endif /* USE_TOOLKIT_SCROLL_BARS */
4653 f
->icon_name
= Qnil
;
4654 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
4656 image_cache_refcount
= FRAME_X_IMAGE_CACHE (f
)->refcount
;
4657 dpyinfo_refcount
= dpyinfo
->reference_count
;
4658 #endif /* GLYPH_DEBUG */
4660 FRAME_KBOARD (f
) = kb
;
4662 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4663 f
->output_data
.x
->explicit_parent
= 0;
4665 /* These colors will be set anyway later, but it's important
4666 to get the color reference counts right, so initialize them! */
4669 struct gcpro gcpro1
;
4671 black
= build_string ("black");
4673 f
->output_data
.x
->foreground_pixel
4674 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4675 f
->output_data
.x
->background_pixel
4676 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4677 f
->output_data
.x
->cursor_pixel
4678 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4679 f
->output_data
.x
->cursor_foreground_pixel
4680 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4681 f
->output_data
.x
->border_pixel
4682 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4683 f
->output_data
.x
->mouse_pixel
4684 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4688 /* Set the name; the functions to which we pass f expect the name to
4690 if (EQ (name
, Qunbound
) || NILP (name
))
4692 f
->name
= build_string (dpyinfo
->x_id_name
);
4693 f
->explicit_name
= 0;
4698 f
->explicit_name
= 1;
4699 /* use the frame's title when getting resources for this frame. */
4700 specbind (Qx_resource_name
, name
);
4703 /* Extract the window parameters from the supplied values that are
4704 needed to determine window geometry. */
4708 font
= x_get_arg (dpyinfo
, parms
, Qfont
, "font", "Font", RES_TYPE_STRING
);
4711 /* First, try whatever font the caller has specified. */
4714 tem
= Fquery_fontset (font
, Qnil
);
4716 font
= x_new_fontset (f
, SDATA (tem
));
4718 font
= x_new_font (f
, SDATA (font
));
4721 /* Try out a font which we hope has bold and italic variations. */
4722 if (!STRINGP (font
))
4723 font
= x_new_font (f
, "-adobe-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-1");
4724 if (!STRINGP (font
))
4725 font
= x_new_font (f
, "-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-1");
4726 if (! STRINGP (font
))
4727 font
= x_new_font (f
, "-*-*-medium-r-normal-*-*-140-*-*-c-*-iso8859-1");
4728 if (! STRINGP (font
))
4729 /* This was formerly the first thing tried, but it finds too many fonts
4730 and takes too long. */
4731 font
= x_new_font (f
, "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1");
4732 /* If those didn't work, look for something which will at least work. */
4733 if (! STRINGP (font
))
4734 font
= x_new_font (f
, "-*-fixed-*-*-*-*-*-140-*-*-c-*-iso8859-1");
4736 if (! STRINGP (font
))
4737 font
= build_string ("fixed");
4739 x_default_parameter (f
, parms
, Qfont
, font
,
4740 "font", "Font", RES_TYPE_STRING
);
4743 x_default_parameter (f
, parms
, Qborder_width
, make_number (2),
4744 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
4746 /* This defaults to 2 in order to match xterm. We recognize either
4747 internalBorderWidth or internalBorder (which is what xterm calls
4749 if (NILP (Fassq (Qinternal_border_width
, parms
)))
4753 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
4754 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
4755 if (! EQ (value
, Qunbound
))
4756 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
4760 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
4761 "internalBorderWidth", "internalBorderWidth",
4764 /* Also do the stuff which must be set before the window exists. */
4765 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
4766 "foreground", "Foreground", RES_TYPE_STRING
);
4767 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
4768 "background", "Background", RES_TYPE_STRING
);
4769 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
4770 "pointerColor", "Foreground", RES_TYPE_STRING
);
4771 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
4772 "cursorColor", "Foreground", RES_TYPE_STRING
);
4773 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
4774 "borderColor", "BorderColor", RES_TYPE_STRING
);
4776 /* Init faces before x_default_parameter is called for scroll-bar
4777 parameters because that function calls x_set_scroll_bar_width,
4778 which calls change_frame_size, which calls Fset_window_buffer,
4779 which runs hooks, which call Fvertical_motion. At the end, we
4780 end up in init_iterator with a null face cache, which should not
4782 init_frame_faces (f
);
4784 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4786 window_prompting
= x_figure_window_size (f
, parms
, 0);
4789 XSetWindowAttributes attrs
;
4793 mask
= CWBackPixel
| CWOverrideRedirect
| CWEventMask
;
4794 if (DoesSaveUnders (dpyinfo
->screen
))
4795 mask
|= CWSaveUnder
;
4797 /* Window managers look at the override-redirect flag to determine
4798 whether or net to give windows a decoration (Xlib spec, chapter
4800 attrs
.override_redirect
= True
;
4801 attrs
.save_under
= True
;
4802 attrs
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
4803 /* Arrange for getting MapNotify and UnmapNotify events. */
4804 attrs
.event_mask
= StructureNotifyMask
;
4806 = FRAME_X_WINDOW (f
)
4807 = XCreateWindow (FRAME_X_DISPLAY (f
),
4808 FRAME_X_DISPLAY_INFO (f
)->root_window
,
4809 /* x, y, width, height */
4813 CopyFromParent
, InputOutput
, CopyFromParent
,
4820 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
4821 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4822 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
4823 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4824 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
4825 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
4827 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
4828 Change will not be effected unless different from the current
4830 width
= FRAME_COLS (f
);
4831 height
= FRAME_LINES (f
);
4832 SET_FRAME_COLS (f
, 0);
4833 FRAME_LINES (f
) = 0;
4834 change_frame_size (f
, height
, width
, 1, 0, 0);
4836 /* Add `tooltip' frame parameter's default value. */
4837 if (NILP (Fframe_parameter (frame
, intern ("tooltip"))))
4838 Fmodify_frame_parameters (frame
, Fcons (Fcons (intern ("tooltip"), Qt
),
4841 /* Set up faces after all frame parameters are known. This call
4842 also merges in face attributes specified for new frames.
4844 Frame parameters may be changed if .Xdefaults contains
4845 specifications for the default font. For example, if there is an
4846 `Emacs.default.attributeBackground: pink', the `background-color'
4847 attribute of the frame get's set, which let's the internal border
4848 of the tooltip frame appear in pink. Prevent this. */
4850 Lisp_Object bg
= Fframe_parameter (frame
, Qbackground_color
);
4852 /* Set tip_frame here, so that */
4854 call1 (Qface_set_after_frame_default
, frame
);
4856 if (!EQ (bg
, Fframe_parameter (frame
, Qbackground_color
)))
4857 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qbackground_color
, bg
),
4865 /* It is now ok to make the frame official even if we get an error
4866 below. And the frame needs to be on Vframe_list or making it
4867 visible won't work. */
4868 Vframe_list
= Fcons (frame
, Vframe_list
);
4870 /* Now that the frame is official, it counts as a reference to
4872 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
4874 /* Setting attributes of faces of the tooltip frame from resources
4875 and similar will increment face_change_count, which leads to the
4876 clearing of all current matrices. Since this isn't necessary
4877 here, avoid it by resetting face_change_count to the value it
4878 had before we created the tip frame. */
4879 face_change_count
= face_change_count_before
;
4881 /* Discard the unwind_protect. */
4882 return unbind_to (count
, frame
);
4886 /* Compute where to display tip frame F. PARMS is the list of frame
4887 parameters for F. DX and DY are specified offsets from the current
4888 location of the mouse. WIDTH and HEIGHT are the width and height
4889 of the tooltip. Return coordinates relative to the root window of
4890 the display in *ROOT_X, and *ROOT_Y. */
4893 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, root_x
, root_y
)
4895 Lisp_Object parms
, dx
, dy
;
4897 int *root_x
, *root_y
;
4899 Lisp_Object left
, top
;
4904 /* User-specified position? */
4905 left
= Fcdr (Fassq (Qleft
, parms
));
4906 top
= Fcdr (Fassq (Qtop
, parms
));
4908 /* Move the tooltip window where the mouse pointer is. Resize and
4910 if (!INTEGERP (left
) || !INTEGERP (top
))
4913 XQueryPointer (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
4914 &root
, &child
, root_x
, root_y
, &win_x
, &win_y
, &pmask
);
4919 *root_y
= XINT (top
);
4920 else if (*root_y
+ XINT (dy
) - height
< 0)
4921 *root_y
-= XINT (dy
);
4925 *root_y
+= XINT (dy
);
4928 if (INTEGERP (left
))
4929 *root_x
= XINT (left
);
4930 else if (*root_x
+ XINT (dx
) + width
<= FRAME_X_DISPLAY_INFO (f
)->width
)
4931 /* It fits to the right of the pointer. */
4932 *root_x
+= XINT (dx
);
4933 else if (width
+ XINT (dx
) <= *root_x
)
4934 /* It fits to the left of the pointer. */
4935 *root_x
-= width
+ XINT (dx
);
4937 /* Put it left-justified on the screen--it ought to fit that way. */
4942 DEFUN ("x-show-tip", Fx_show_tip
, Sx_show_tip
, 1, 6, 0,
4943 doc
: /* Show STRING in a "tooltip" window on frame FRAME.
4944 A tooltip window is a small X window displaying a string.
4946 FRAME nil or omitted means use the selected frame.
4948 PARMS is an optional list of frame parameters which can be used to
4949 change the tooltip's appearance.
4951 Automatically hide the tooltip after TIMEOUT seconds. TIMEOUT nil
4952 means use the default timeout of 5 seconds.
4954 If the list of frame parameters PARAMS contains a `left' parameters,
4955 the tooltip is displayed at that x-position. Otherwise it is
4956 displayed at the mouse position, with offset DX added (default is 5 if
4957 DX isn't specified). Likewise for the y-position; if a `top' frame
4958 parameter is specified, it determines the y-position of the tooltip
4959 window, otherwise it is displayed at the mouse position, with offset
4960 DY added (default is -10).
4962 A tooltip's maximum size is specified by `x-max-tooltip-size'.
4963 Text larger than the specified size is clipped. */)
4964 (string
, frame
, parms
, timeout
, dx
, dy
)
4965 Lisp_Object string
, frame
, parms
, timeout
, dx
, dy
;
4970 struct buffer
*old_buffer
;
4971 struct text_pos pos
;
4972 int i
, width
, height
;
4973 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
4974 int old_windows_or_buffers_changed
= windows_or_buffers_changed
;
4975 int count
= SPECPDL_INDEX ();
4977 specbind (Qinhibit_redisplay
, Qt
);
4979 GCPRO4 (string
, parms
, frame
, timeout
);
4981 CHECK_STRING (string
);
4982 f
= check_x_frame (frame
);
4984 timeout
= make_number (5);
4986 CHECK_NATNUM (timeout
);
4989 dx
= make_number (5);
4994 dy
= make_number (-10);
4998 if (NILP (last_show_tip_args
))
4999 last_show_tip_args
= Fmake_vector (make_number (3), Qnil
);
5001 if (!NILP (tip_frame
))
5003 Lisp_Object last_string
= AREF (last_show_tip_args
, 0);
5004 Lisp_Object last_frame
= AREF (last_show_tip_args
, 1);
5005 Lisp_Object last_parms
= AREF (last_show_tip_args
, 2);
5007 if (EQ (frame
, last_frame
)
5008 && !NILP (Fequal (last_string
, string
))
5009 && !NILP (Fequal (last_parms
, parms
)))
5011 struct frame
*f
= XFRAME (tip_frame
);
5013 /* Only DX and DY have changed. */
5014 if (!NILP (tip_timer
))
5016 Lisp_Object timer
= tip_timer
;
5018 call1 (Qcancel_timer
, timer
);
5022 compute_tip_xy (f
, parms
, dx
, dy
, FRAME_PIXEL_WIDTH (f
),
5023 FRAME_PIXEL_HEIGHT (f
), &root_x
, &root_y
);
5024 XMoveWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5031 /* Hide a previous tip, if any. */
5034 ASET (last_show_tip_args
, 0, string
);
5035 ASET (last_show_tip_args
, 1, frame
);
5036 ASET (last_show_tip_args
, 2, parms
);
5038 /* Add default values to frame parameters. */
5039 if (NILP (Fassq (Qname
, parms
)))
5040 parms
= Fcons (Fcons (Qname
, build_string ("tooltip")), parms
);
5041 if (NILP (Fassq (Qinternal_border_width
, parms
)))
5042 parms
= Fcons (Fcons (Qinternal_border_width
, make_number (3)), parms
);
5043 if (NILP (Fassq (Qborder_width
, parms
)))
5044 parms
= Fcons (Fcons (Qborder_width
, make_number (1)), parms
);
5045 if (NILP (Fassq (Qborder_color
, parms
)))
5046 parms
= Fcons (Fcons (Qborder_color
, build_string ("lightyellow")), parms
);
5047 if (NILP (Fassq (Qbackground_color
, parms
)))
5048 parms
= Fcons (Fcons (Qbackground_color
, build_string ("lightyellow")),
5051 /* Create a frame for the tooltip, and record it in the global
5052 variable tip_frame. */
5053 frame
= x_create_tip_frame (FRAME_X_DISPLAY_INFO (f
), parms
, string
);
5056 /* Set up the frame's root window. */
5057 w
= XWINDOW (FRAME_ROOT_WINDOW (f
));
5058 w
->left_col
= w
->top_line
= make_number (0);
5060 if (CONSP (Vx_max_tooltip_size
)
5061 && INTEGERP (XCAR (Vx_max_tooltip_size
))
5062 && XINT (XCAR (Vx_max_tooltip_size
)) > 0
5063 && INTEGERP (XCDR (Vx_max_tooltip_size
))
5064 && XINT (XCDR (Vx_max_tooltip_size
)) > 0)
5066 w
->total_cols
= XCAR (Vx_max_tooltip_size
);
5067 w
->total_lines
= XCDR (Vx_max_tooltip_size
);
5071 w
->total_cols
= make_number (80);
5072 w
->total_lines
= make_number (40);
5075 FRAME_TOTAL_COLS (f
) = XINT (w
->total_cols
);
5077 w
->pseudo_window_p
= 1;
5079 /* Display the tooltip text in a temporary buffer. */
5080 old_buffer
= current_buffer
;
5081 set_buffer_internal_1 (XBUFFER (XWINDOW (FRAME_ROOT_WINDOW (f
))->buffer
));
5082 current_buffer
->truncate_lines
= Qnil
;
5083 clear_glyph_matrix (w
->desired_matrix
);
5084 clear_glyph_matrix (w
->current_matrix
);
5085 SET_TEXT_POS (pos
, BEGV
, BEGV_BYTE
);
5086 try_window (FRAME_ROOT_WINDOW (f
), pos
);
5088 /* Compute width and height of the tooltip. */
5090 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
5092 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
5096 /* Stop at the first empty row at the end. */
5097 if (!row
->enabled_p
|| !row
->displays_text_p
)
5100 /* Let the row go over the full width of the frame. */
5101 row
->full_width_p
= 1;
5103 /* There's a glyph at the end of rows that is used to place
5104 the cursor there. Don't include the width of this glyph. */
5105 if (row
->used
[TEXT_AREA
])
5107 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
5108 row_width
= row
->pixel_width
- last
->pixel_width
;
5111 row_width
= row
->pixel_width
;
5113 height
+= row
->height
;
5114 width
= max (width
, row_width
);
5117 /* Add the frame's internal border to the width and height the X
5118 window should have. */
5119 height
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5120 width
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5122 /* Move the tooltip window where the mouse pointer is. Resize and
5124 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
5127 XMoveResizeWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5128 root_x
, root_y
, width
, height
);
5129 XMapRaised (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
));
5132 /* Draw into the window. */
5133 w
->must_be_updated_p
= 1;
5134 update_single_window (w
, 1);
5136 /* Restore original current buffer. */
5137 set_buffer_internal_1 (old_buffer
);
5138 windows_or_buffers_changed
= old_windows_or_buffers_changed
;
5141 /* Let the tip disappear after timeout seconds. */
5142 tip_timer
= call3 (intern ("run-at-time"), timeout
, Qnil
,
5143 intern ("x-hide-tip"));
5146 return unbind_to (count
, Qnil
);
5150 DEFUN ("x-hide-tip", Fx_hide_tip
, Sx_hide_tip
, 0, 0, 0,
5151 doc
: /* Hide the current tooltip window, if there is any.
5152 Value is t if tooltip was open, nil otherwise. */)
5156 Lisp_Object deleted
, frame
, timer
;
5157 struct gcpro gcpro1
, gcpro2
;
5159 /* Return quickly if nothing to do. */
5160 if (NILP (tip_timer
) && NILP (tip_frame
))
5165 GCPRO2 (frame
, timer
);
5166 tip_frame
= tip_timer
= deleted
= Qnil
;
5168 count
= SPECPDL_INDEX ();
5169 specbind (Qinhibit_redisplay
, Qt
);
5170 specbind (Qinhibit_quit
, Qt
);
5173 call1 (Qcancel_timer
, timer
);
5177 Fdelete_frame (frame
, Qnil
);
5181 /* Bloodcurdling hack alert: The Lucid menu bar widget's
5182 redisplay procedure is not called when a tip frame over menu
5183 items is unmapped. Redisplay the menu manually... */
5185 struct frame
*f
= SELECTED_FRAME ();
5186 Widget w
= f
->output_data
.x
->menubar_widget
;
5187 extern void xlwmenu_redisplay
P_ ((Widget
));
5189 if (!DoesSaveUnders (FRAME_X_DISPLAY_INFO (f
)->screen
)
5193 xlwmenu_redisplay (w
);
5197 #endif /* USE_LUCID */
5201 return unbind_to (count
, deleted
);
5206 /***********************************************************************
5207 File selection dialog
5208 ***********************************************************************/
5212 /* Callback for "OK" and "Cancel" on file selection dialog. */
5215 file_dialog_cb (widget
, client_data
, call_data
)
5217 XtPointer call_data
, client_data
;
5219 int *result
= (int *) client_data
;
5220 XmAnyCallbackStruct
*cb
= (XmAnyCallbackStruct
*) call_data
;
5221 *result
= cb
->reason
;
5225 /* Callback for unmapping a file selection dialog. This is used to
5226 capture the case where a dialog is closed via a window manager's
5227 closer button, for example. Using a XmNdestroyCallback didn't work
5231 file_dialog_unmap_cb (widget
, client_data
, call_data
)
5233 XtPointer call_data
, client_data
;
5235 int *result
= (int *) client_data
;
5236 *result
= XmCR_CANCEL
;
5240 clean_up_file_dialog (arg
)
5243 struct Lisp_Save_Value
*p
= XSAVE_VALUE (arg
);
5244 Widget dialog
= (Widget
) p
->pointer
;
5248 XtUnmanageChild (dialog
);
5249 XtDestroyWidget (dialog
);
5250 x_menu_set_in_use (0);
5257 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5258 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5259 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5260 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5261 or directory must exist. ONLY-DIR-P is ignored." */)
5262 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
)
5263 Lisp_Object prompt
, dir
, default_filename
, mustmatch
, only_dir_p
;
5266 struct frame
*f
= SELECTED_FRAME ();
5267 Lisp_Object file
= Qnil
;
5268 Widget dialog
, text
, help
;
5271 extern XtAppContext Xt_app_con
;
5272 XmString dir_xmstring
, pattern_xmstring
;
5273 int count
= SPECPDL_INDEX ();
5274 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5276 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5278 if (popup_activated ())
5279 error ("Trying to use a menu from within a menu-entry");
5281 CHECK_STRING (prompt
);
5284 /* Prevent redisplay. */
5285 specbind (Qinhibit_redisplay
, Qt
);
5289 /* Create the dialog with PROMPT as title, using DIR as initial
5290 directory and using "*" as pattern. */
5291 dir
= Fexpand_file_name (dir
, Qnil
);
5292 dir_xmstring
= XmStringCreateLocalized (SDATA (dir
));
5293 pattern_xmstring
= XmStringCreateLocalized ("*");
5295 XtSetArg (al
[ac
], XmNtitle
, SDATA (prompt
)); ++ac
;
5296 XtSetArg (al
[ac
], XmNdirectory
, dir_xmstring
); ++ac
;
5297 XtSetArg (al
[ac
], XmNpattern
, pattern_xmstring
); ++ac
;
5298 XtSetArg (al
[ac
], XmNresizePolicy
, XmRESIZE_GROW
); ++ac
;
5299 XtSetArg (al
[ac
], XmNdialogStyle
, XmDIALOG_APPLICATION_MODAL
); ++ac
;
5300 dialog
= XmCreateFileSelectionDialog (f
->output_data
.x
->widget
,
5302 XmStringFree (dir_xmstring
);
5303 XmStringFree (pattern_xmstring
);
5305 /* Add callbacks for OK and Cancel. */
5306 XtAddCallback (dialog
, XmNokCallback
, file_dialog_cb
,
5307 (XtPointer
) &result
);
5308 XtAddCallback (dialog
, XmNcancelCallback
, file_dialog_cb
,
5309 (XtPointer
) &result
);
5310 XtAddCallback (dialog
, XmNunmapCallback
, file_dialog_unmap_cb
,
5311 (XtPointer
) &result
);
5313 /* Remove the help button since we can't display help. */
5314 help
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_HELP_BUTTON
);
5315 XtUnmanageChild (help
);
5317 /* Mark OK button as default. */
5318 XtVaSetValues (XmFileSelectionBoxGetChild (dialog
, XmDIALOG_OK_BUTTON
),
5319 XmNshowAsDefault
, True
, NULL
);
5321 /* If MUSTMATCH is non-nil, disable the file entry field of the
5322 dialog, so that the user must select a file from the files list
5323 box. We can't remove it because we wouldn't have a way to get at
5324 the result file name, then. */
5325 text
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5326 if (!NILP (mustmatch
))
5329 label
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_SELECTION_LABEL
);
5330 XtSetSensitive (text
, False
);
5331 XtSetSensitive (label
, False
);
5334 /* Manage the dialog, so that list boxes get filled. */
5335 XtManageChild (dialog
);
5337 if (STRINGP (default_filename
))
5339 XmString default_xmstring
;
5340 Widget wtext
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5341 Widget list
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_LIST
);
5343 XmTextPosition last_pos
= XmTextFieldGetLastPosition (wtext
);
5344 XmTextFieldReplace (wtext
, 0, last_pos
,
5345 (SDATA (Ffile_name_nondirectory (default_filename
))));
5347 /* Select DEFAULT_FILENAME in the files list box. DEFAULT_FILENAME
5348 must include the path for this to work. */
5350 default_xmstring
= XmStringCreateLocalized (SDATA (default_filename
));
5352 if (XmListItemExists (list
, default_xmstring
))
5354 int item_pos
= XmListItemPos (list
, default_xmstring
);
5355 /* Select the item and scroll it into view. */
5356 XmListSelectPos (list
, item_pos
, True
);
5357 XmListSetPos (list
, item_pos
);
5360 XmStringFree (default_xmstring
);
5363 record_unwind_protect (clean_up_file_dialog
, make_save_value (dialog
, 0));
5365 /* Process events until the user presses Cancel or OK. */
5366 x_menu_set_in_use (1);
5371 x_menu_wait_for_event (0);
5372 XtAppNextEvent (Xt_app_con
, &event
);
5373 if (event
.type
== KeyPress
5374 && FRAME_X_DISPLAY (f
) == event
.xkey
.display
)
5376 KeySym keysym
= XLookupKeysym (&event
.xkey
, 0);
5378 /* Pop down on C-g. */
5379 if (keysym
== XK_g
&& (event
.xkey
.state
& ControlMask
) != 0)
5380 XtUnmanageChild (dialog
);
5383 (void) x_dispatch_event (&event
, FRAME_X_DISPLAY (f
));
5386 /* Get the result. */
5387 if (result
== XmCR_OK
)
5392 XtVaGetValues (dialog
, XmNtextString
, &text
, NULL
);
5393 XmStringGetLtoR (text
, XmFONTLIST_DEFAULT_TAG
, &data
);
5394 XmStringFree (text
);
5395 file
= build_string (data
);
5404 /* Make "Cancel" equivalent to C-g. */
5406 Fsignal (Qquit
, Qnil
);
5408 return unbind_to (count
, file
);
5411 #endif /* USE_MOTIF */
5416 clean_up_dialog (arg
)
5419 x_menu_set_in_use (0);
5424 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5425 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5426 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5427 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5428 or directory must exist. If ONLY-DIR-P is non-nil, the user can only select
5430 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
)
5431 Lisp_Object prompt
, dir
, default_filename
, mustmatch
, only_dir_p
;
5433 FRAME_PTR f
= SELECTED_FRAME ();
5435 Lisp_Object file
= Qnil
;
5436 int count
= SPECPDL_INDEX ();
5437 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5440 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5442 if (popup_activated ())
5443 error ("Trying to use a menu from within a menu-entry");
5445 CHECK_STRING (prompt
);
5448 /* Prevent redisplay. */
5449 specbind (Qinhibit_redisplay
, Qt
);
5450 record_unwind_protect (clean_up_dialog
, Qnil
);
5454 if (STRINGP (default_filename
))
5455 cdef_file
= SDATA (default_filename
);
5457 cdef_file
= SDATA (dir
);
5459 fn
= xg_get_file_name (f
, SDATA (prompt
), cdef_file
,
5461 ! NILP (only_dir_p
));
5465 file
= build_string (fn
);
5472 /* Make "Cancel" equivalent to C-g. */
5474 Fsignal (Qquit
, Qnil
);
5476 return unbind_to (count
, file
);
5479 #endif /* USE_GTK */
5482 /***********************************************************************
5484 ***********************************************************************/
5486 #ifdef HAVE_XKBGETKEYBOARD
5487 #include <X11/XKBlib.h>
5488 #include <X11/keysym.h>
5491 DEFUN ("x-backspace-delete-keys-p", Fx_backspace_delete_keys_p
,
5492 Sx_backspace_delete_keys_p
, 0, 1, 0,
5493 doc
: /* Check if both Backspace and Delete keys are on the keyboard of FRAME.
5494 FRAME nil means use the selected frame.
5495 Value is t if we know that both keys are present, and are mapped to the
5496 usual X keysyms. */)
5500 #ifdef HAVE_XKBGETKEYBOARD
5502 struct frame
*f
= check_x_frame (frame
);
5503 Display
*dpy
= FRAME_X_DISPLAY (f
);
5504 Lisp_Object have_keys
;
5505 int major
, minor
, op
, event
, error
;
5509 /* Check library version in case we're dynamically linked. */
5510 major
= XkbMajorVersion
;
5511 minor
= XkbMinorVersion
;
5512 if (!XkbLibraryVersion (&major
, &minor
))
5518 /* Check that the server supports XKB. */
5519 major
= XkbMajorVersion
;
5520 minor
= XkbMinorVersion
;
5521 if (!XkbQueryExtension (dpy
, &op
, &event
, &error
, &major
, &minor
))
5527 /* In this code we check that the keyboard has physical keys with names
5528 that start with BKSP (Backspace) and DELE (Delete), and that they
5529 generate keysym XK_BackSpace and XK_Delete respectively.
5530 This function is used to test if normal-erase-is-backspace should be
5532 An alternative approach would be to just check if XK_BackSpace and
5533 XK_Delete are mapped to any key. But if any of those are mapped to
5534 some non-intuitive key combination (Meta-Shift-Ctrl-whatever) and the
5535 user doesn't know about it, it is better to return false here.
5536 It is more obvious to the user what to do if she/he has two keys
5537 clearly marked with names/symbols and one key does something not
5538 expected (i.e. she/he then tries the other).
5539 The cases where Backspace/Delete is mapped to some other key combination
5540 are rare, and in those cases, normal-erase-is-backspace can be turned on
5544 kb
= XkbGetMap (dpy
, XkbAllMapComponentsMask
, XkbUseCoreKbd
);
5547 int delete_keycode
= 0, backspace_keycode
= 0, i
;
5549 if (XkbGetNames (dpy
, XkbAllNamesMask
, kb
) == Success
)
5551 for (i
= kb
->min_key_code
;
5552 (i
< kb
->max_key_code
5553 && (delete_keycode
== 0 || backspace_keycode
== 0));
5556 /* The XKB symbolic key names can be seen most easily in
5557 the PS file generated by `xkbprint -label name
5559 if (bcmp ("DELE", kb
->names
->keys
[i
].name
, 4) == 0)
5561 else if (bcmp ("BKSP", kb
->names
->keys
[i
].name
, 4) == 0)
5562 backspace_keycode
= i
;
5565 XkbFreeNames (kb
, 0, True
);
5568 XkbFreeClientMap (kb
, 0, True
);
5571 && backspace_keycode
5572 && XKeysymToKeycode (dpy
, XK_Delete
) == delete_keycode
5573 && XKeysymToKeycode (dpy
, XK_BackSpace
) == backspace_keycode
)
5578 #else /* not HAVE_XKBGETKEYBOARD */
5580 #endif /* not HAVE_XKBGETKEYBOARD */
5585 /***********************************************************************
5587 ***********************************************************************/
5589 /* Keep this list in the same order as frame_parms in frame.c.
5590 Use 0 for unsupported frame parameters. */
5592 frame_parm_handler x_frame_parm_handlers
[] =
5596 x_set_background_color
,
5602 x_set_foreground_color
,
5605 x_set_internal_border_width
,
5606 x_set_menu_bar_lines
,
5608 x_explicitly_set_name
,
5609 x_set_scroll_bar_width
,
5612 x_set_vertical_scroll_bars
,
5614 x_set_tool_bar_lines
,
5615 x_set_scroll_bar_foreground
,
5616 x_set_scroll_bar_background
,
5628 /* This is zero if not using X windows. */
5631 /* The section below is built by the lisp expression at the top of the file,
5632 just above where these variables are declared. */
5633 /*&&& init symbols here &&&*/
5634 Qnone
= intern ("none");
5636 Qsuppress_icon
= intern ("suppress-icon");
5637 staticpro (&Qsuppress_icon
);
5638 Qundefined_color
= intern ("undefined-color");
5639 staticpro (&Qundefined_color
);
5640 Qcompound_text
= intern ("compound-text");
5641 staticpro (&Qcompound_text
);
5642 Qcancel_timer
= intern ("cancel-timer");
5643 staticpro (&Qcancel_timer
);
5644 /* This is the end of symbol initialization. */
5646 /* Text property `display' should be nonsticky by default. */
5647 Vtext_property_default_nonsticky
5648 = Fcons (Fcons (Qdisplay
, Qt
), Vtext_property_default_nonsticky
);
5651 Fput (Qundefined_color
, Qerror_conditions
,
5652 Fcons (Qundefined_color
, Fcons (Qerror
, Qnil
)));
5653 Fput (Qundefined_color
, Qerror_message
,
5654 build_string ("Undefined color"));
5656 DEFVAR_LISP ("x-pointer-shape", &Vx_pointer_shape
,
5657 doc
: /* The shape of the pointer when over text.
5658 Changing the value does not affect existing frames
5659 unless you set the mouse color. */);
5660 Vx_pointer_shape
= Qnil
;
5662 #if 0 /* This doesn't really do anything. */
5663 DEFVAR_LISP ("x-nontext-pointer-shape", &Vx_nontext_pointer_shape
,
5664 doc
: /* The shape of the pointer when not over text.
5665 This variable takes effect when you create a new frame
5666 or when you set the mouse color. */);
5668 Vx_nontext_pointer_shape
= Qnil
;
5670 DEFVAR_LISP ("x-hourglass-pointer-shape", &Vx_hourglass_pointer_shape
,
5671 doc
: /* The shape of the pointer when Emacs is busy.
5672 This variable takes effect when you create a new frame
5673 or when you set the mouse color. */);
5674 Vx_hourglass_pointer_shape
= Qnil
;
5676 DEFVAR_BOOL ("display-hourglass", &display_hourglass_p
,
5677 doc
: /* Non-zero means Emacs displays an hourglass pointer on window systems. */);
5678 display_hourglass_p
= 1;
5680 DEFVAR_LISP ("hourglass-delay", &Vhourglass_delay
,
5681 doc
: /* *Seconds to wait before displaying an hourglass pointer.
5682 Value must be an integer or float. */);
5683 Vhourglass_delay
= make_number (DEFAULT_HOURGLASS_DELAY
);
5685 #if 0 /* This doesn't really do anything. */
5686 DEFVAR_LISP ("x-mode-pointer-shape", &Vx_mode_pointer_shape
,
5687 doc
: /* The shape of the pointer when over the mode line.
5688 This variable takes effect when you create a new frame
5689 or when you set the mouse color. */);
5691 Vx_mode_pointer_shape
= Qnil
;
5693 DEFVAR_LISP ("x-sensitive-text-pointer-shape",
5694 &Vx_sensitive_text_pointer_shape
,
5695 doc
: /* The shape of the pointer when over mouse-sensitive text.
5696 This variable takes effect when you create a new frame
5697 or when you set the mouse color. */);
5698 Vx_sensitive_text_pointer_shape
= Qnil
;
5700 DEFVAR_LISP ("x-window-horizontal-drag-cursor",
5701 &Vx_window_horizontal_drag_shape
,
5702 doc
: /* Pointer shape to use for indicating a window can be dragged horizontally.
5703 This variable takes effect when you create a new frame
5704 or when you set the mouse color. */);
5705 Vx_window_horizontal_drag_shape
= Qnil
;
5707 DEFVAR_LISP ("x-cursor-fore-pixel", &Vx_cursor_fore_pixel
,
5708 doc
: /* A string indicating the foreground color of the cursor box. */);
5709 Vx_cursor_fore_pixel
= Qnil
;
5711 DEFVAR_LISP ("x-max-tooltip-size", &Vx_max_tooltip_size
,
5712 doc
: /* Maximum size for tooltips. Value is a pair (COLUMNS . ROWS).
5713 Text larger than this is clipped. */);
5714 Vx_max_tooltip_size
= Fcons (make_number (80), make_number (40));
5716 DEFVAR_LISP ("x-no-window-manager", &Vx_no_window_manager
,
5717 doc
: /* Non-nil if no X window manager is in use.
5718 Emacs doesn't try to figure this out; this is always nil
5719 unless you set it to something else. */);
5720 /* We don't have any way to find this out, so set it to nil
5721 and maybe the user would like to set it to t. */
5722 Vx_no_window_manager
= Qnil
;
5724 DEFVAR_LISP ("x-pixel-size-width-font-regexp",
5725 &Vx_pixel_size_width_font_regexp
,
5726 doc
: /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'.
5728 Since Emacs gets width of a font matching with this regexp from
5729 PIXEL_SIZE field of the name, font finding mechanism gets faster for
5730 such a font. This is especially effective for such large fonts as
5731 Chinese, Japanese, and Korean. */);
5732 Vx_pixel_size_width_font_regexp
= Qnil
;
5734 /* This is not ifdef:ed, so other builds than GTK can customize it. */
5735 DEFVAR_BOOL ("x-use-old-gtk-file-dialog", &x_use_old_gtk_file_dialog
,
5736 doc
: /* *Non-nil means prompt with the old GTK file selection dialog.
5737 If nil or if the file selection dialog is not available, the new GTK file
5738 chooser is used instead. To turn off all file dialogs set the
5739 variable `use-file-dialog'. */);
5740 x_use_old_gtk_file_dialog
= 0;
5742 #ifdef USE_X_TOOLKIT
5743 Fprovide (intern ("x-toolkit"), Qnil
);
5745 Fprovide (intern ("motif"), Qnil
);
5747 DEFVAR_LISP ("motif-version-string", &Vmotif_version_string
,
5748 doc
: /* Version info for LessTif/Motif. */);
5749 Vmotif_version_string
= build_string (XmVERSION_STRING
);
5750 #endif /* USE_MOTIF */
5751 #endif /* USE_X_TOOLKIT */
5754 /* Provide x-toolkit also for GTK. Internally GTK does not use Xt so it
5755 is not an X toolkit in that sense (USE_X_TOOLKIT is not defined).
5756 But for a user it is a toolkit for X, and indeed, configure
5757 accepts --with-x-toolkit=gtk. */
5758 Fprovide (intern ("x-toolkit"), Qnil
);
5759 Fprovide (intern ("gtk"), Qnil
);
5761 DEFVAR_LISP ("gtk-version-string", &Vgtk_version_string
,
5762 doc
: /* Version info for GTK+. */);
5764 char gtk_version
[40];
5765 g_snprintf (gtk_version
, sizeof (gtk_version
), "%u.%u.%u",
5766 GTK_MAJOR_VERSION
, GTK_MINOR_VERSION
, GTK_MICRO_VERSION
);
5767 Vgtk_version_string
= build_string (gtk_version
);
5769 #endif /* USE_GTK */
5771 /* X window properties. */
5772 defsubr (&Sx_change_window_property
);
5773 defsubr (&Sx_delete_window_property
);
5774 defsubr (&Sx_window_property
);
5776 defsubr (&Sxw_display_color_p
);
5777 defsubr (&Sx_display_grayscale_p
);
5778 defsubr (&Sxw_color_defined_p
);
5779 defsubr (&Sxw_color_values
);
5780 defsubr (&Sx_server_max_request_size
);
5781 defsubr (&Sx_server_vendor
);
5782 defsubr (&Sx_server_version
);
5783 defsubr (&Sx_display_pixel_width
);
5784 defsubr (&Sx_display_pixel_height
);
5785 defsubr (&Sx_display_mm_width
);
5786 defsubr (&Sx_display_mm_height
);
5787 defsubr (&Sx_display_screens
);
5788 defsubr (&Sx_display_planes
);
5789 defsubr (&Sx_display_color_cells
);
5790 defsubr (&Sx_display_visual_class
);
5791 defsubr (&Sx_display_backing_store
);
5792 defsubr (&Sx_display_save_under
);
5793 defsubr (&Sx_create_frame
);
5794 defsubr (&Sx_open_connection
);
5795 defsubr (&Sx_close_connection
);
5796 defsubr (&Sx_display_list
);
5797 defsubr (&Sx_synchronize
);
5798 defsubr (&Sx_focus_frame
);
5799 defsubr (&Sx_backspace_delete_keys_p
);
5801 /* Setting callback functions for fontset handler. */
5802 get_font_info_func
= x_get_font_info
;
5804 #if 0 /* This function pointer doesn't seem to be used anywhere.
5805 And the pointer assigned has the wrong type, anyway. */
5806 list_fonts_func
= x_list_fonts
;
5809 load_font_func
= x_load_font
;
5810 find_ccl_program_func
= x_find_ccl_program
;
5811 query_font_func
= x_query_font
;
5812 set_frame_fontset_func
= x_set_font
;
5813 check_window_system_func
= check_x
;
5815 hourglass_atimer
= NULL
;
5816 hourglass_shown_p
= 0;
5818 defsubr (&Sx_show_tip
);
5819 defsubr (&Sx_hide_tip
);
5821 staticpro (&tip_timer
);
5823 staticpro (&tip_frame
);
5825 last_show_tip_args
= Qnil
;
5826 staticpro (&last_show_tip_args
);
5828 #if defined (USE_MOTIF) || defined (USE_GTK)
5829 defsubr (&Sx_file_dialog
);
5833 #endif /* HAVE_X_WINDOWS */
5835 /* arch-tag: 55040d02-5485-4d58-8b22-95a7a05f3288
5836 (do not change this comment) */