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"
56 #include <sys/types.h>
60 #if 1 /* Used to be #ifdef EMACS_BITMAP_FILES, but this should always work. */
61 #include "bitmaps/gray.xbm"
63 #include <X11/bitmaps/gray>
66 #include "[.bitmaps]gray.xbm"
74 #include <X11/Shell.h>
77 #include <X11/Xaw/Paned.h>
78 #include <X11/Xaw/Label.h>
79 #endif /* USE_MOTIF */
82 #undef USG /* ####KLUDGE for Solaris 2.2 and up */
91 #include "../lwlib/lwlib.h"
95 #include <Xm/DialogS.h>
96 #include <Xm/FileSB.h>
99 /* Do the EDITRES protocol if running X11R5
100 Exception: HP-UX (at least version A.09.05) has X11R5 without EditRes */
102 #if (XtSpecificationRelease >= 5) && !defined(NO_EDITRES)
104 extern void _XEditResCheckMessages ();
105 #endif /* R5 + Athena */
107 /* Unique id counter for widgets created by the Lucid Widget Library. */
109 extern LWLIB_ID widget_id_tick
;
112 /* This is part of a kludge--see lwlib/xlwmenu.c. */
113 extern XFontStruct
*xlwmenu_default_font
;
116 extern void free_frame_menubar ();
117 extern double atof ();
121 /* LessTif/Motif version info. */
123 static Lisp_Object Vmotif_version_string
;
125 #endif /* USE_MOTIF */
127 #endif /* USE_X_TOOLKIT */
131 /* GTK+ version info */
133 static Lisp_Object Vgtk_version_string
;
138 #define MAXREQUEST(dpy) (XMaxRequestSize (dpy))
140 #define MAXREQUEST(dpy) ((dpy)->max_request_size)
143 /* The gray bitmap `bitmaps/gray'. This is done because xterm.c uses
144 it, and including `bitmaps/gray' more than once is a problem when
145 config.h defines `static' as an empty replacement string. */
147 int gray_bitmap_width
= gray_width
;
148 int gray_bitmap_height
= gray_height
;
149 char *gray_bitmap_bits
= gray_bits
;
151 /* Non-zero means we're allowed to display an hourglass cursor. */
153 int display_hourglass_p
;
155 /* Non-zero means prompt with the old GTK file selection dialog. */
157 int x_use_old_gtk_file_dialog
;
159 /* The background and shape of the mouse pointer, and shape when not
160 over text or in the modeline. */
162 Lisp_Object Vx_pointer_shape
, Vx_nontext_pointer_shape
, Vx_mode_pointer_shape
;
163 Lisp_Object Vx_hourglass_pointer_shape
;
165 /* The shape when over mouse-sensitive text. */
167 Lisp_Object Vx_sensitive_text_pointer_shape
;
169 /* If non-nil, the pointer shape to indicate that windows can be
170 dragged horizontally. */
172 Lisp_Object Vx_window_horizontal_drag_shape
;
174 /* Color of chars displayed in cursor box. */
176 Lisp_Object Vx_cursor_fore_pixel
;
178 /* Nonzero if using X. */
182 /* Non nil if no window manager is in use. */
184 Lisp_Object Vx_no_window_manager
;
186 /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'. */
188 Lisp_Object Vx_pixel_size_width_font_regexp
;
191 Lisp_Object Qsuppress_icon
;
192 Lisp_Object Qundefined_color
;
193 Lisp_Object Qcompound_text
, Qcancel_timer
;
197 extern Lisp_Object Vwindow_system_version
;
199 /* The below are defined in frame.c. */
202 int image_cache_refcount
, dpyinfo_refcount
;
207 /* Error if we are not connected to X. */
213 error ("X windows are not in use or not initialized");
216 /* Nonzero if we can use mouse menus.
217 You should not call this unless HAVE_MENUS is defined. */
225 /* Extract a frame as a FRAME_PTR, defaulting to the selected frame
226 and checking validity for X. */
229 check_x_frame (frame
)
235 frame
= selected_frame
;
236 CHECK_LIVE_FRAME (frame
);
239 error ("Non-X frame used");
243 /* Let the user specify an X display with a frame.
244 nil stands for the selected frame--or, if that is not an X frame,
245 the first X display on the list. */
247 struct x_display_info
*
248 check_x_display_info (frame
)
251 struct x_display_info
*dpyinfo
= NULL
;
255 struct frame
*sf
= XFRAME (selected_frame
);
257 if (FRAME_X_P (sf
) && FRAME_LIVE_P (sf
))
258 dpyinfo
= FRAME_X_DISPLAY_INFO (sf
);
259 else if (x_display_list
!= 0)
260 dpyinfo
= x_display_list
;
262 error ("X windows are not in use or not initialized");
264 else if (INTEGERP (frame
))
266 struct display
*d
= get_display (XINT (frame
));
269 wrong_type_argument (Qdisplay_live_p
, frame
);
270 if (d
->type
!= output_x_window
)
271 error ("Display %d is not an X display", XINT (frame
));
273 dpyinfo
= d
->display_info
.x
;
275 else if (STRINGP (frame
))
276 dpyinfo
= x_display_info_for_name (frame
);
279 FRAME_PTR f
= check_x_frame (frame
);
280 dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
287 /* Return the Emacs frame-object corresponding to an X window.
288 It could be the frame's main window or an icon window. */
290 /* This function can be called during GC, so use GC_xxx type test macros. */
293 x_window_to_frame (dpyinfo
, wdesc
)
294 struct x_display_info
*dpyinfo
;
297 Lisp_Object tail
, frame
;
300 if (wdesc
== None
) return 0;
302 for (tail
= Vframe_list
; GC_CONSP (tail
); tail
= XCDR (tail
))
305 if (!GC_FRAMEP (frame
))
308 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
310 if (f
->output_data
.x
->hourglass_window
== wdesc
)
313 if ((f
->output_data
.x
->edit_widget
314 && XtWindow (f
->output_data
.x
->edit_widget
) == wdesc
)
315 /* A tooltip frame? */
316 || (!f
->output_data
.x
->edit_widget
317 && FRAME_X_WINDOW (f
) == wdesc
)
318 || f
->output_data
.x
->icon_desc
== wdesc
)
320 #else /* not USE_X_TOOLKIT */
322 if (f
->output_data
.x
->edit_widget
)
324 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
325 struct x_output
*x
= f
->output_data
.x
;
326 if (gwdesc
!= 0 && gwdesc
== x
->edit_widget
)
330 if (FRAME_X_WINDOW (f
) == wdesc
331 || f
->output_data
.x
->icon_desc
== wdesc
)
333 #endif /* not USE_X_TOOLKIT */
338 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
339 /* Like x_window_to_frame but also compares the window with the widget's
343 x_any_window_to_frame (dpyinfo
, wdesc
)
344 struct x_display_info
*dpyinfo
;
347 Lisp_Object tail
, frame
;
348 struct frame
*f
, *found
;
351 if (wdesc
== None
) return NULL
;
354 for (tail
= Vframe_list
; GC_CONSP (tail
) && !found
; tail
= XCDR (tail
))
357 if (!GC_FRAMEP (frame
))
361 if (FRAME_X_P (f
) && FRAME_X_DISPLAY_INFO (f
) == dpyinfo
)
363 /* This frame matches if the window is any of its widgets. */
364 x
= f
->output_data
.x
;
365 if (x
->hourglass_window
== wdesc
)
370 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
372 && (gwdesc
== x
->widget
373 || gwdesc
== x
->edit_widget
374 || gwdesc
== x
->vbox_widget
375 || gwdesc
== x
->menubar_widget
))
378 if (wdesc
== XtWindow (x
->widget
)
379 || wdesc
== XtWindow (x
->column_widget
)
380 || wdesc
== XtWindow (x
->edit_widget
))
382 /* Match if the window is this frame's menubar. */
383 else if (lw_window_is_in_menubar (wdesc
, x
->menubar_widget
))
387 else if (FRAME_X_WINDOW (f
) == wdesc
)
388 /* A tooltip frame. */
396 /* Likewise, but exclude the menu bar widget. */
399 x_non_menubar_window_to_frame (dpyinfo
, wdesc
)
400 struct x_display_info
*dpyinfo
;
403 Lisp_Object tail
, frame
;
407 if (wdesc
== None
) return 0;
409 for (tail
= Vframe_list
; GC_CONSP (tail
); tail
= XCDR (tail
))
412 if (!GC_FRAMEP (frame
))
415 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
417 x
= f
->output_data
.x
;
418 /* This frame matches if the window is any of its widgets. */
419 if (x
->hourglass_window
== wdesc
)
424 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
426 && (gwdesc
== x
->widget
427 || gwdesc
== x
->edit_widget
428 || gwdesc
== x
->vbox_widget
))
431 if (wdesc
== XtWindow (x
->widget
)
432 || wdesc
== XtWindow (x
->column_widget
)
433 || wdesc
== XtWindow (x
->edit_widget
))
437 else if (FRAME_X_WINDOW (f
) == wdesc
)
438 /* A tooltip frame. */
444 /* Likewise, but consider only the menu bar widget. */
447 x_menubar_window_to_frame (dpyinfo
, wdesc
)
448 struct x_display_info
*dpyinfo
;
451 Lisp_Object tail
, frame
;
455 if (wdesc
== None
) return 0;
457 for (tail
= Vframe_list
; GC_CONSP (tail
); tail
= XCDR (tail
))
460 if (!GC_FRAMEP (frame
))
463 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
465 x
= f
->output_data
.x
;
466 /* Match if the window is this frame's menubar. */
468 if (x
->menubar_widget
)
470 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
475 && (gwdesc
== x
->menubar_widget
476 || gtk_widget_get_parent (gwdesc
) == x
->menubar_widget
))
482 if (x
->menubar_widget
483 && lw_window_is_in_menubar (wdesc
, x
->menubar_widget
))
490 /* Return the frame whose principal (outermost) window is WDESC.
491 If WDESC is some other (smaller) window, we return 0. */
494 x_top_window_to_frame (dpyinfo
, wdesc
)
495 struct x_display_info
*dpyinfo
;
498 Lisp_Object tail
, frame
;
502 if (wdesc
== None
) return 0;
504 for (tail
= Vframe_list
; GC_CONSP (tail
); tail
= XCDR (tail
))
507 if (!GC_FRAMEP (frame
))
510 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
512 x
= f
->output_data
.x
;
516 /* This frame matches if the window is its topmost widget. */
518 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
519 if (gwdesc
== x
->widget
)
522 if (wdesc
== XtWindow (x
->widget
))
524 #if 0 /* I don't know why it did this,
525 but it seems logically wrong,
526 and it causes trouble for MapNotify events. */
527 /* Match if the window is this frame's menubar. */
528 if (x
->menubar_widget
529 && wdesc
== XtWindow (x
->menubar_widget
))
534 else if (FRAME_X_WINDOW (f
) == wdesc
)
540 #endif /* USE_X_TOOLKIT || USE_GTK */
544 static Lisp_Object unwind_create_frame
P_ ((Lisp_Object
));
545 static Lisp_Object unwind_create_tip_frame
P_ ((Lisp_Object
));
547 void x_set_foreground_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
548 static void x_set_wait_for_wm
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
549 void x_set_background_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
550 void x_set_mouse_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
551 void x_set_cursor_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
552 void x_set_border_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
553 void x_set_cursor_type
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
554 void x_set_icon_type
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
555 void x_set_icon_name
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
556 void x_explicitly_set_name
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
557 void x_set_menu_bar_lines
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
558 void x_set_title
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
559 void x_set_tool_bar_lines
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
560 void x_set_scroll_bar_foreground
P_ ((struct frame
*, Lisp_Object
,
562 void x_set_scroll_bar_background
P_ ((struct frame
*, Lisp_Object
,
564 static Lisp_Object x_default_scroll_bar_color_parameter
P_ ((struct frame
*,
571 /* Store the screen positions of frame F into XPTR and YPTR.
572 These are the positions of the containing window manager window,
573 not Emacs's own window. */
576 x_real_positions (f
, xptr
, yptr
)
580 int win_x
, win_y
, outer_x
, outer_y
;
581 int real_x
= 0, real_y
= 0;
583 Window win
= f
->output_data
.x
->parent_desc
;
589 count
= x_catch_errors (FRAME_X_DISPLAY (f
));
591 if (win
== FRAME_X_DISPLAY_INFO (f
)->root_window
)
592 win
= FRAME_OUTER_WINDOW (f
);
594 /* This loop traverses up the containment tree until we hit the root
595 window. Window managers may intersect many windows between our window
596 and the root window. The window we find just before the root window
597 should be the outer WM window. */
600 Window wm_window
, rootw
;
601 Window
*tmp_children
;
602 unsigned int tmp_nchildren
;
605 success
= XQueryTree (FRAME_X_DISPLAY (f
), win
, &rootw
,
606 &wm_window
, &tmp_children
, &tmp_nchildren
);
608 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
610 /* Don't free tmp_children if XQueryTree failed. */
614 XFree ((char *) tmp_children
);
616 if (wm_window
== rootw
|| had_errors
)
627 /* Get the real coordinates for the WM window upper left corner */
628 XGetGeometry (FRAME_X_DISPLAY (f
), win
,
629 &rootw
, &real_x
, &real_y
, &ign
, &ign
, &ign
, &ign
);
631 /* Translate real coordinates to coordinates relative to our
632 window. For our window, the upper left corner is 0, 0.
633 Since the upper left corner of the WM window is outside
634 our window, win_x and win_y will be negative:
636 ------------------ ---> x
638 | ----------------- v y
641 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
643 /* From-window, to-window. */
644 FRAME_X_DISPLAY_INFO (f
)->root_window
,
647 /* From-position, to-position. */
648 real_x
, real_y
, &win_x
, &win_y
,
653 if (FRAME_X_WINDOW (f
) == FRAME_OUTER_WINDOW (f
))
660 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
662 /* From-window, to-window. */
663 FRAME_X_DISPLAY_INFO (f
)->root_window
,
664 FRAME_OUTER_WINDOW (f
),
666 /* From-position, to-position. */
667 real_x
, real_y
, &outer_x
, &outer_y
,
673 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
676 x_uncatch_errors (FRAME_X_DISPLAY (f
), count
);
680 if (had_errors
) return;
682 f
->x_pixels_diff
= -win_x
;
683 f
->y_pixels_diff
= -win_y
;
685 FRAME_X_OUTPUT (f
)->x_pixels_outer_diff
= -outer_x
;
686 FRAME_X_OUTPUT (f
)->y_pixels_outer_diff
= -outer_y
;
695 /* Gamma-correct COLOR on frame F. */
698 gamma_correct (f
, color
)
704 color
->red
= pow (color
->red
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
705 color
->green
= pow (color
->green
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
706 color
->blue
= pow (color
->blue
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
711 /* Decide if color named COLOR_NAME is valid for use on frame F. If
712 so, return the RGB values in COLOR. If ALLOC_P is non-zero,
713 allocate the color. Value is zero if COLOR_NAME is invalid, or
714 no color could be allocated. */
717 x_defined_color (f
, color_name
, color
, alloc_p
)
724 Display
*dpy
= FRAME_X_DISPLAY (f
);
725 Colormap cmap
= FRAME_X_COLORMAP (f
);
728 success_p
= XParseColor (dpy
, cmap
, color_name
, color
);
729 if (success_p
&& alloc_p
)
730 success_p
= x_alloc_nearest_color (f
, cmap
, color
);
737 /* Return the pixel color value for color COLOR_NAME on frame F. If F
738 is a monochrome frame, return MONO_COLOR regardless of what ARG says.
739 Signal an error if color can't be allocated. */
742 x_decode_color (f
, color_name
, mono_color
)
744 Lisp_Object color_name
;
749 CHECK_STRING (color_name
);
751 #if 0 /* Don't do this. It's wrong when we're not using the default
752 colormap, it makes freeing difficult, and it's probably not
753 an important optimization. */
754 if (strcmp (SDATA (color_name
), "black") == 0)
755 return BLACK_PIX_DEFAULT (f
);
756 else if (strcmp (SDATA (color_name
), "white") == 0)
757 return WHITE_PIX_DEFAULT (f
);
760 /* Return MONO_COLOR for monochrome frames. */
761 if (FRAME_X_DISPLAY_INFO (f
)->n_planes
== 1)
764 /* x_defined_color is responsible for coping with failures
765 by looking for a near-miss. */
766 if (x_defined_color (f
, SDATA (color_name
), &cdef
, 1))
769 Fsignal (Qerror
, Fcons (build_string ("Undefined color"),
770 Fcons (color_name
, Qnil
)));
776 /* Change the `wait-for-wm' frame parameter of frame F. OLD_VALUE is
777 the previous value of that parameter, NEW_VALUE is the new value.
778 See also the comment of wait_for_wm in struct x_output. */
781 x_set_wait_for_wm (f
, new_value
, old_value
)
783 Lisp_Object new_value
, old_value
;
785 f
->output_data
.x
->wait_for_wm
= !NILP (new_value
);
790 /* Set icon from FILE for frame F. By using GTK functions the icon
791 may be any format that GdkPixbuf knows about, i.e. not just bitmaps. */
794 xg_set_icon (f
, file
)
804 found
= x_find_image_file (file
);
812 filename
= SDATA (found
);
815 pixbuf
= gdk_pixbuf_new_from_file (filename
, &err
);
819 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
821 g_object_unref (pixbuf
);
837 /* Functions called only from `x_set_frame_param'
838 to set individual parameters.
840 If FRAME_X_WINDOW (f) is 0,
841 the frame is being created and its X-window does not exist yet.
842 In that case, just record the parameter's new value
843 in the standard place; do not attempt to change the window. */
846 x_set_foreground_color (f
, arg
, oldval
)
848 Lisp_Object arg
, oldval
;
850 struct x_output
*x
= f
->output_data
.x
;
851 unsigned long fg
, old_fg
;
853 fg
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
854 old_fg
= x
->foreground_pixel
;
855 x
->foreground_pixel
= fg
;
857 if (FRAME_X_WINDOW (f
) != 0)
859 Display
*dpy
= FRAME_X_DISPLAY (f
);
862 XSetForeground (dpy
, x
->normal_gc
, fg
);
863 XSetBackground (dpy
, x
->reverse_gc
, fg
);
865 if (x
->cursor_pixel
== old_fg
)
867 unload_color (f
, x
->cursor_pixel
);
868 x
->cursor_pixel
= x_copy_color (f
, fg
);
869 XSetBackground (dpy
, x
->cursor_gc
, x
->cursor_pixel
);
874 update_face_from_frame_parameter (f
, Qforeground_color
, arg
);
876 if (FRAME_VISIBLE_P (f
))
880 unload_color (f
, old_fg
);
884 x_set_background_color (f
, arg
, oldval
)
886 Lisp_Object arg
, oldval
;
888 struct x_output
*x
= f
->output_data
.x
;
891 bg
= x_decode_color (f
, arg
, WHITE_PIX_DEFAULT (f
));
892 unload_color (f
, x
->background_pixel
);
893 x
->background_pixel
= bg
;
895 if (FRAME_X_WINDOW (f
) != 0)
897 Display
*dpy
= FRAME_X_DISPLAY (f
);
900 XSetBackground (dpy
, x
->normal_gc
, bg
);
901 XSetForeground (dpy
, x
->reverse_gc
, bg
);
902 XSetWindowBackground (dpy
, FRAME_X_WINDOW (f
), bg
);
903 XSetForeground (dpy
, x
->cursor_gc
, bg
);
906 xg_set_background_color (f
, bg
);
909 #ifndef USE_TOOLKIT_SCROLL_BARS /* Turns out to be annoying with
910 toolkit scroll bars. */
913 for (bar
= FRAME_SCROLL_BARS (f
);
915 bar
= XSCROLL_BAR (bar
)->next
)
917 Window window
= SCROLL_BAR_X_WINDOW (XSCROLL_BAR (bar
));
918 XSetWindowBackground (dpy
, window
, bg
);
921 #endif /* USE_TOOLKIT_SCROLL_BARS */
924 update_face_from_frame_parameter (f
, Qbackground_color
, arg
);
926 if (FRAME_VISIBLE_P (f
))
932 x_set_mouse_color (f
, arg
, oldval
)
934 Lisp_Object arg
, oldval
;
936 struct x_output
*x
= f
->output_data
.x
;
937 Display
*dpy
= FRAME_X_DISPLAY (f
);
938 Cursor cursor
, nontext_cursor
, mode_cursor
, hand_cursor
;
939 Cursor hourglass_cursor
, horizontal_drag_cursor
;
941 unsigned long pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
942 unsigned long mask_color
= x
->background_pixel
;
944 /* Don't let pointers be invisible. */
945 if (mask_color
== pixel
)
947 x_free_colors (f
, &pixel
, 1);
948 pixel
= x_copy_color (f
, x
->foreground_pixel
);
951 unload_color (f
, x
->mouse_pixel
);
952 x
->mouse_pixel
= pixel
;
956 /* It's not okay to crash if the user selects a screwy cursor. */
957 count
= x_catch_errors (dpy
);
959 if (!NILP (Vx_pointer_shape
))
961 CHECK_NUMBER (Vx_pointer_shape
);
962 cursor
= XCreateFontCursor (dpy
, XINT (Vx_pointer_shape
));
965 cursor
= XCreateFontCursor (dpy
, XC_xterm
);
966 x_check_errors (dpy
, "bad text pointer cursor: %s");
968 if (!NILP (Vx_nontext_pointer_shape
))
970 CHECK_NUMBER (Vx_nontext_pointer_shape
);
972 = XCreateFontCursor (dpy
, XINT (Vx_nontext_pointer_shape
));
975 nontext_cursor
= XCreateFontCursor (dpy
, XC_left_ptr
);
976 x_check_errors (dpy
, "bad nontext pointer cursor: %s");
978 if (!NILP (Vx_hourglass_pointer_shape
))
980 CHECK_NUMBER (Vx_hourglass_pointer_shape
);
982 = XCreateFontCursor (dpy
, XINT (Vx_hourglass_pointer_shape
));
985 hourglass_cursor
= XCreateFontCursor (dpy
, XC_watch
);
986 x_check_errors (dpy
, "bad hourglass pointer cursor: %s");
988 if (!NILP (Vx_mode_pointer_shape
))
990 CHECK_NUMBER (Vx_mode_pointer_shape
);
991 mode_cursor
= XCreateFontCursor (dpy
, XINT (Vx_mode_pointer_shape
));
994 mode_cursor
= XCreateFontCursor (dpy
, XC_xterm
);
995 x_check_errors (dpy
, "bad modeline pointer cursor: %s");
997 if (!NILP (Vx_sensitive_text_pointer_shape
))
999 CHECK_NUMBER (Vx_sensitive_text_pointer_shape
);
1001 = XCreateFontCursor (dpy
, XINT (Vx_sensitive_text_pointer_shape
));
1004 hand_cursor
= XCreateFontCursor (dpy
, XC_hand2
);
1006 if (!NILP (Vx_window_horizontal_drag_shape
))
1008 CHECK_NUMBER (Vx_window_horizontal_drag_shape
);
1009 horizontal_drag_cursor
1010 = XCreateFontCursor (dpy
, XINT (Vx_window_horizontal_drag_shape
));
1013 horizontal_drag_cursor
1014 = XCreateFontCursor (dpy
, XC_sb_h_double_arrow
);
1016 /* Check and report errors with the above calls. */
1017 x_check_errors (dpy
, "can't set cursor shape: %s");
1018 x_uncatch_errors (dpy
, count
);
1021 XColor fore_color
, back_color
;
1023 fore_color
.pixel
= x
->mouse_pixel
;
1024 x_query_color (f
, &fore_color
);
1025 back_color
.pixel
= mask_color
;
1026 x_query_color (f
, &back_color
);
1028 XRecolorCursor (dpy
, cursor
, &fore_color
, &back_color
);
1029 XRecolorCursor (dpy
, nontext_cursor
, &fore_color
, &back_color
);
1030 XRecolorCursor (dpy
, mode_cursor
, &fore_color
, &back_color
);
1031 XRecolorCursor (dpy
, hand_cursor
, &fore_color
, &back_color
);
1032 XRecolorCursor (dpy
, hourglass_cursor
, &fore_color
, &back_color
);
1033 XRecolorCursor (dpy
, horizontal_drag_cursor
, &fore_color
, &back_color
);
1036 if (FRAME_X_WINDOW (f
) != 0)
1037 XDefineCursor (dpy
, FRAME_X_WINDOW (f
), cursor
);
1039 if (cursor
!= x
->text_cursor
1040 && x
->text_cursor
!= 0)
1041 XFreeCursor (dpy
, x
->text_cursor
);
1042 x
->text_cursor
= cursor
;
1044 if (nontext_cursor
!= x
->nontext_cursor
1045 && x
->nontext_cursor
!= 0)
1046 XFreeCursor (dpy
, x
->nontext_cursor
);
1047 x
->nontext_cursor
= nontext_cursor
;
1049 if (hourglass_cursor
!= x
->hourglass_cursor
1050 && x
->hourglass_cursor
!= 0)
1051 XFreeCursor (dpy
, x
->hourglass_cursor
);
1052 x
->hourglass_cursor
= hourglass_cursor
;
1054 if (mode_cursor
!= x
->modeline_cursor
1055 && x
->modeline_cursor
!= 0)
1056 XFreeCursor (dpy
, f
->output_data
.x
->modeline_cursor
);
1057 x
->modeline_cursor
= mode_cursor
;
1059 if (hand_cursor
!= x
->hand_cursor
1060 && x
->hand_cursor
!= 0)
1061 XFreeCursor (dpy
, x
->hand_cursor
);
1062 x
->hand_cursor
= hand_cursor
;
1064 if (horizontal_drag_cursor
!= x
->horizontal_drag_cursor
1065 && x
->horizontal_drag_cursor
!= 0)
1066 XFreeCursor (dpy
, x
->horizontal_drag_cursor
);
1067 x
->horizontal_drag_cursor
= horizontal_drag_cursor
;
1072 update_face_from_frame_parameter (f
, Qmouse_color
, arg
);
1076 x_set_cursor_color (f
, arg
, oldval
)
1078 Lisp_Object arg
, oldval
;
1080 unsigned long fore_pixel
, pixel
;
1081 int fore_pixel_allocated_p
= 0, pixel_allocated_p
= 0;
1082 struct x_output
*x
= f
->output_data
.x
;
1084 if (!NILP (Vx_cursor_fore_pixel
))
1086 fore_pixel
= x_decode_color (f
, Vx_cursor_fore_pixel
,
1087 WHITE_PIX_DEFAULT (f
));
1088 fore_pixel_allocated_p
= 1;
1091 fore_pixel
= x
->background_pixel
;
1093 pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1094 pixel_allocated_p
= 1;
1096 /* Make sure that the cursor color differs from the background color. */
1097 if (pixel
== x
->background_pixel
)
1099 if (pixel_allocated_p
)
1101 x_free_colors (f
, &pixel
, 1);
1102 pixel_allocated_p
= 0;
1105 pixel
= x
->mouse_pixel
;
1106 if (pixel
== fore_pixel
)
1108 if (fore_pixel_allocated_p
)
1110 x_free_colors (f
, &fore_pixel
, 1);
1111 fore_pixel_allocated_p
= 0;
1113 fore_pixel
= x
->background_pixel
;
1117 unload_color (f
, x
->cursor_foreground_pixel
);
1118 if (!fore_pixel_allocated_p
)
1119 fore_pixel
= x_copy_color (f
, fore_pixel
);
1120 x
->cursor_foreground_pixel
= fore_pixel
;
1122 unload_color (f
, x
->cursor_pixel
);
1123 if (!pixel_allocated_p
)
1124 pixel
= x_copy_color (f
, pixel
);
1125 x
->cursor_pixel
= pixel
;
1127 if (FRAME_X_WINDOW (f
) != 0)
1130 XSetBackground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, x
->cursor_pixel
);
1131 XSetForeground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, fore_pixel
);
1134 if (FRAME_VISIBLE_P (f
))
1136 x_update_cursor (f
, 0);
1137 x_update_cursor (f
, 1);
1141 update_face_from_frame_parameter (f
, Qcursor_color
, arg
);
1144 /* Set the border-color of frame F to pixel value PIX.
1145 Note that this does not fully take effect if done before
1146 F has an x-window. */
1149 x_set_border_pixel (f
, pix
)
1153 unload_color (f
, f
->output_data
.x
->border_pixel
);
1154 f
->output_data
.x
->border_pixel
= pix
;
1156 if (FRAME_X_WINDOW (f
) != 0 && f
->border_width
> 0)
1159 XSetWindowBorder (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1160 (unsigned long)pix
);
1163 if (FRAME_VISIBLE_P (f
))
1168 /* Set the border-color of frame F to value described by ARG.
1169 ARG can be a string naming a color.
1170 The border-color is used for the border that is drawn by the X server.
1171 Note that this does not fully take effect if done before
1172 F has an x-window; it must be redone when the window is created.
1174 Note: this is done in two routines because of the way X10 works.
1176 Note: under X11, this is normally the province of the window manager,
1177 and so emacs' border colors may be overridden. */
1180 x_set_border_color (f
, arg
, oldval
)
1182 Lisp_Object arg
, oldval
;
1187 pix
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1188 x_set_border_pixel (f
, pix
);
1189 update_face_from_frame_parameter (f
, Qborder_color
, arg
);
1194 x_set_cursor_type (f
, arg
, oldval
)
1196 Lisp_Object arg
, oldval
;
1198 set_frame_cursor_types (f
, arg
);
1200 /* Make sure the cursor gets redrawn. */
1201 cursor_type_changed
= 1;
1205 x_set_icon_type (f
, arg
, oldval
)
1207 Lisp_Object arg
, oldval
;
1213 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1216 else if (!STRINGP (oldval
) && EQ (oldval
, Qnil
) == EQ (arg
, Qnil
))
1221 result
= x_text_icon (f
,
1222 (char *) SDATA ((!NILP (f
->icon_name
)
1226 result
= x_bitmap_icon (f
, arg
);
1231 error ("No icon window available");
1234 XFlush (FRAME_X_DISPLAY (f
));
1239 x_set_icon_name (f
, arg
, oldval
)
1241 Lisp_Object arg
, oldval
;
1247 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1250 else if (!STRINGP (oldval
) && EQ (oldval
, Qnil
) == EQ (arg
, Qnil
))
1255 if (f
->output_data
.x
->icon_bitmap
!= 0)
1260 result
= x_text_icon (f
,
1261 (char *) SDATA ((!NILP (f
->icon_name
)
1270 error ("No icon window available");
1273 XFlush (FRAME_X_DISPLAY (f
));
1279 x_set_menu_bar_lines (f
, value
, oldval
)
1281 Lisp_Object value
, oldval
;
1284 #if ! defined (USE_X_TOOLKIT) && ! defined (USE_GTK)
1285 int olines
= FRAME_MENU_BAR_LINES (f
);
1288 /* Right now, menu bars don't work properly in minibuf-only frames;
1289 most of the commands try to apply themselves to the minibuffer
1290 frame itself, and get an error because you can't switch buffers
1291 in or split the minibuffer window. */
1292 if (FRAME_MINIBUF_ONLY_P (f
))
1295 if (INTEGERP (value
))
1296 nlines
= XINT (value
);
1300 /* Make sure we redisplay all windows in this frame. */
1301 windows_or_buffers_changed
++;
1303 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
1304 FRAME_MENU_BAR_LINES (f
) = 0;
1307 FRAME_EXTERNAL_MENU_BAR (f
) = 1;
1308 if (FRAME_X_P (f
) && f
->output_data
.x
->menubar_widget
== 0)
1309 /* Make sure next redisplay shows the menu bar. */
1310 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= Qt
;
1314 if (FRAME_EXTERNAL_MENU_BAR (f
) == 1)
1315 free_frame_menubar (f
);
1316 FRAME_EXTERNAL_MENU_BAR (f
) = 0;
1318 f
->output_data
.x
->menubar_widget
= 0;
1320 #else /* not USE_X_TOOLKIT && not USE_GTK */
1321 FRAME_MENU_BAR_LINES (f
) = nlines
;
1322 change_window_heights (f
->root_window
, nlines
- olines
);
1323 #endif /* not USE_X_TOOLKIT */
1328 /* Set the number of lines used for the tool bar of frame F to VALUE.
1329 VALUE not an integer, or < 0 means set the lines to zero. OLDVAL
1330 is the old number of tool bar lines. This function changes the
1331 height of all windows on frame F to match the new tool bar height.
1332 The frame's height doesn't change. */
1335 x_set_tool_bar_lines (f
, value
, oldval
)
1337 Lisp_Object value
, oldval
;
1339 int delta
, nlines
, root_height
;
1340 Lisp_Object root_window
;
1342 /* Treat tool bars like menu bars. */
1343 if (FRAME_MINIBUF_ONLY_P (f
))
1346 /* Use VALUE only if an integer >= 0. */
1347 if (INTEGERP (value
) && XINT (value
) >= 0)
1348 nlines
= XFASTINT (value
);
1353 FRAME_TOOL_BAR_LINES (f
) = 0;
1356 FRAME_EXTERNAL_TOOL_BAR (f
) = 1;
1357 if (FRAME_X_P (f
) && f
->output_data
.x
->toolbar_widget
== 0)
1358 /* Make sure next redisplay shows the tool bar. */
1359 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= Qt
;
1360 update_frame_tool_bar (f
);
1364 if (FRAME_EXTERNAL_TOOL_BAR (f
))
1365 free_frame_tool_bar (f
);
1366 FRAME_EXTERNAL_TOOL_BAR (f
) = 0;
1372 /* Make sure we redisplay all windows in this frame. */
1373 ++windows_or_buffers_changed
;
1375 delta
= nlines
- FRAME_TOOL_BAR_LINES (f
);
1377 /* Don't resize the tool-bar to more than we have room for. */
1378 root_window
= FRAME_ROOT_WINDOW (f
);
1379 root_height
= WINDOW_TOTAL_LINES (XWINDOW (root_window
));
1380 if (root_height
- delta
< 1)
1382 delta
= root_height
- 1;
1383 nlines
= FRAME_TOOL_BAR_LINES (f
) + delta
;
1386 FRAME_TOOL_BAR_LINES (f
) = nlines
;
1387 change_window_heights (root_window
, delta
);
1390 /* We also have to make sure that the internal border at the top of
1391 the frame, below the menu bar or tool bar, is redrawn when the
1392 tool bar disappears. This is so because the internal border is
1393 below the tool bar if one is displayed, but is below the menu bar
1394 if there isn't a tool bar. The tool bar draws into the area
1395 below the menu bar. */
1396 if (FRAME_X_WINDOW (f
) && FRAME_TOOL_BAR_LINES (f
) == 0)
1399 clear_current_matrices (f
);
1402 /* If the tool bar gets smaller, the internal border below it
1403 has to be cleared. It was formerly part of the display
1404 of the larger tool bar, and updating windows won't clear it. */
1407 int height
= FRAME_INTERNAL_BORDER_WIDTH (f
);
1408 int width
= FRAME_PIXEL_WIDTH (f
);
1409 int y
= nlines
* FRAME_LINE_HEIGHT (f
);
1411 /* height can be zero here. */
1412 if (height
> 0 && width
> 0)
1415 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1416 0, y
, width
, height
, False
);
1420 if (WINDOWP (f
->tool_bar_window
))
1421 clear_glyph_matrix (XWINDOW (f
->tool_bar_window
)->current_matrix
);
1426 /* Set the foreground color for scroll bars on frame F to VALUE.
1427 VALUE should be a string, a color name. If it isn't a string or
1428 isn't a valid color name, do nothing. OLDVAL is the old value of
1429 the frame parameter. */
1432 x_set_scroll_bar_foreground (f
, value
, oldval
)
1434 Lisp_Object value
, oldval
;
1436 unsigned long pixel
;
1438 if (STRINGP (value
))
1439 pixel
= x_decode_color (f
, value
, BLACK_PIX_DEFAULT (f
));
1443 if (f
->output_data
.x
->scroll_bar_foreground_pixel
!= -1)
1444 unload_color (f
, f
->output_data
.x
->scroll_bar_foreground_pixel
);
1446 f
->output_data
.x
->scroll_bar_foreground_pixel
= pixel
;
1447 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1449 /* Remove all scroll bars because they have wrong colors. */
1450 if (FRAME_DISPLAY (f
)->condemn_scroll_bars_hook
)
1451 (*FRAME_DISPLAY (f
)->condemn_scroll_bars_hook
) (f
);
1452 if (FRAME_DISPLAY (f
)->judge_scroll_bars_hook
)
1453 (*FRAME_DISPLAY (f
)->judge_scroll_bars_hook
) (f
);
1455 update_face_from_frame_parameter (f
, Qscroll_bar_foreground
, value
);
1461 /* Set the background color for scroll bars on frame F to VALUE VALUE
1462 should be a string, a color name. If it isn't a string or isn't a
1463 valid color name, do nothing. OLDVAL is the old value of the frame
1467 x_set_scroll_bar_background (f
, value
, oldval
)
1469 Lisp_Object value
, oldval
;
1471 unsigned long pixel
;
1473 if (STRINGP (value
))
1474 pixel
= x_decode_color (f
, value
, WHITE_PIX_DEFAULT (f
));
1478 if (f
->output_data
.x
->scroll_bar_background_pixel
!= -1)
1479 unload_color (f
, f
->output_data
.x
->scroll_bar_background_pixel
);
1481 #ifdef USE_TOOLKIT_SCROLL_BARS
1482 /* Scrollbar shadow colors. */
1483 if (f
->output_data
.x
->scroll_bar_top_shadow_pixel
!= -1)
1485 unload_color (f
, f
->output_data
.x
->scroll_bar_top_shadow_pixel
);
1486 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
1488 if (f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
!= -1)
1490 unload_color (f
, f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
);
1491 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
1493 #endif /* USE_TOOLKIT_SCROLL_BARS */
1495 f
->output_data
.x
->scroll_bar_background_pixel
= pixel
;
1496 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1498 /* Remove all scroll bars because they have wrong colors. */
1499 if (FRAME_DISPLAY (f
)->condemn_scroll_bars_hook
)
1500 (*FRAME_DISPLAY (f
)->condemn_scroll_bars_hook
) (f
);
1501 if (FRAME_DISPLAY (f
)->judge_scroll_bars_hook
)
1502 (*FRAME_DISPLAY (f
)->judge_scroll_bars_hook
) (f
);
1504 update_face_from_frame_parameter (f
, Qscroll_bar_background
, value
);
1510 /* Encode Lisp string STRING as a text in a format appropriate for
1511 XICCC (X Inter Client Communication Conventions).
1513 If STRING contains only ASCII characters, do no conversion and
1514 return the string data of STRING. Otherwise, encode the text by
1515 CODING_SYSTEM, and return a newly allocated memory area which
1516 should be freed by `xfree' by a caller.
1518 SELECTIONP non-zero means the string is being encoded for an X
1519 selection, so it is safe to run pre-write conversions (which
1522 Store the byte length of resulting text in *TEXT_BYTES.
1524 If the text contains only ASCII and Latin-1, store 1 in *STRING_P,
1525 which means that the `encoding' of the result can be `STRING'.
1526 Otherwise store 0 in *STRINGP, which means that the `encoding' of
1527 the result should be `COMPOUND_TEXT'. */
1530 x_encode_text (string
, coding_system
, selectionp
, text_bytes
, stringp
)
1531 Lisp_Object string
, coding_system
;
1532 int *text_bytes
, *stringp
;
1535 unsigned char *str
= SDATA (string
);
1536 int chars
= SCHARS (string
);
1537 int bytes
= SBYTES (string
);
1541 struct coding_system coding
;
1542 extern Lisp_Object Qcompound_text_with_extensions
;
1544 charset_info
= find_charset_in_text (str
, chars
, bytes
, NULL
, Qnil
);
1545 if (charset_info
== 0)
1547 /* No multibyte character in OBJ. We need not encode it. */
1548 *text_bytes
= bytes
;
1553 setup_coding_system (coding_system
, &coding
);
1555 && SYMBOLP (coding
.pre_write_conversion
)
1556 && !NILP (Ffboundp (coding
.pre_write_conversion
)))
1558 string
= run_pre_post_conversion_on_str (string
, &coding
, 1);
1559 str
= SDATA (string
);
1560 chars
= SCHARS (string
);
1561 bytes
= SBYTES (string
);
1563 coding
.src_multibyte
= 1;
1564 coding
.dst_multibyte
= 0;
1565 coding
.mode
|= CODING_MODE_LAST_BLOCK
;
1566 if (coding
.type
== coding_type_iso2022
)
1567 coding
.flags
|= CODING_FLAG_ISO_SAFE
;
1568 /* We suppress producing escape sequences for composition. */
1569 coding
.composing
= COMPOSITION_DISABLED
;
1570 bufsize
= encoding_buffer_size (&coding
, bytes
);
1571 buf
= (unsigned char *) xmalloc (bufsize
);
1572 encode_coding (&coding
, str
, buf
, bytes
, bufsize
);
1573 *text_bytes
= coding
.produced
;
1574 *stringp
= (charset_info
== 1
1575 || (!EQ (coding_system
, Qcompound_text
)
1576 && !EQ (coding_system
, Qcompound_text_with_extensions
)));
1581 /* Set the WM name to NAME for frame F. Also set the icon name.
1582 If the frame already has an icon name, use that, otherwise set the
1583 icon name to NAME. */
1586 x_set_name_internal (f
, name
)
1590 if (FRAME_X_WINDOW (f
))
1595 XTextProperty text
, icon
;
1597 int do_free_icon_value
= 0, do_free_text_value
= 0;
1598 Lisp_Object coding_system
;
1600 coding_system
= Qcompound_text
;
1601 /* Note: Encoding strategy
1603 We encode NAME by compound-text and use "COMPOUND-TEXT" in
1604 text.encoding. But, there are non-internationalized window
1605 managers which don't support that encoding. So, if NAME
1606 contains only ASCII and 8859-1 characters, encode it by
1607 iso-latin-1, and use "STRING" in text.encoding hoping that
1608 such window managers at least analyze this format correctly,
1609 i.e. treat 8-bit bytes as 8859-1 characters.
1611 We may also be able to use "UTF8_STRING" in text.encoding
1612 in the future which can encode all Unicode characters.
1613 But, for the moment, there's no way to know that the
1614 current window manager supports it or not. */
1615 text
.value
= x_encode_text (name
, coding_system
, 0, &bytes
, &stringp
);
1616 text
.encoding
= (stringp
? XA_STRING
1617 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1619 text
.nitems
= bytes
;
1621 /* Check early, because ENCODE_UTF_8 below may GC and name may be
1623 do_free_text_value
= text
.value
!= SDATA (name
);
1625 if (NILP (f
->icon_name
))
1631 /* See the above comment "Note: Encoding strategy". */
1632 icon
.value
= x_encode_text (f
->icon_name
, coding_system
, 0,
1634 icon
.encoding
= (stringp
? XA_STRING
1635 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1637 icon
.nitems
= bytes
;
1638 do_free_icon_value
= icon
.value
!= SDATA (f
->icon_name
);
1642 gtk_window_set_title (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
1643 SDATA (ENCODE_UTF_8 (name
)));
1644 #else /* not USE_GTK */
1645 XSetWMName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &text
);
1646 #endif /* not USE_GTK */
1648 XSetWMIconName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &icon
);
1650 if (do_free_icon_value
)
1652 if (do_free_text_value
)
1655 #else /* not HAVE_X11R4 */
1656 XSetIconName (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1658 XStoreName (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1660 #endif /* not HAVE_X11R4 */
1665 /* Change the name of frame F to NAME. If NAME is nil, set F's name to
1668 If EXPLICIT is non-zero, that indicates that lisp code is setting the
1669 name; if NAME is a string, set F's name to NAME and set
1670 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1672 If EXPLICIT is zero, that indicates that Emacs redisplay code is
1673 suggesting a new name, which lisp code should override; if
1674 F->explicit_name is set, ignore the new name; otherwise, set it. */
1677 x_set_name (f
, name
, explicit)
1682 /* Make sure that requests from lisp code override requests from
1683 Emacs redisplay code. */
1686 /* If we're switching from explicit to implicit, we had better
1687 update the mode lines and thereby update the title. */
1688 if (f
->explicit_name
&& NILP (name
))
1689 update_mode_lines
= 1;
1691 f
->explicit_name
= ! NILP (name
);
1693 else if (f
->explicit_name
)
1696 /* If NAME is nil, set the name to the x_id_name. */
1699 /* Check for no change needed in this very common case
1700 before we do any consing. */
1701 if (!strcmp (FRAME_X_DISPLAY_INFO (f
)->x_id_name
,
1704 name
= build_string (FRAME_X_DISPLAY_INFO (f
)->x_id_name
);
1707 CHECK_STRING (name
);
1709 /* Don't change the name if it's already NAME. */
1710 if (! NILP (Fstring_equal (name
, f
->name
)))
1715 /* For setting the frame title, the title parameter should override
1716 the name parameter. */
1717 if (! NILP (f
->title
))
1720 x_set_name_internal (f
, name
);
1723 /* This function should be called when the user's lisp code has
1724 specified a name for the frame; the name will override any set by the
1727 x_explicitly_set_name (f
, arg
, oldval
)
1729 Lisp_Object arg
, oldval
;
1731 x_set_name (f
, arg
, 1);
1734 /* This function should be called by Emacs redisplay code to set the
1735 name; names set this way will never override names set by the user's
1738 x_implicitly_set_name (f
, arg
, oldval
)
1740 Lisp_Object arg
, oldval
;
1742 x_set_name (f
, arg
, 0);
1745 /* Change the title of frame F to NAME.
1746 If NAME is nil, use the frame name as the title.
1748 If EXPLICIT is non-zero, that indicates that lisp code is setting the
1749 name; if NAME is a string, set F's name to NAME and set
1750 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1752 If EXPLICIT is zero, that indicates that Emacs redisplay code is
1753 suggesting a new name, which lisp code should override; if
1754 F->explicit_name is set, ignore the new name; otherwise, set it. */
1757 x_set_title (f
, name
, old_name
)
1759 Lisp_Object name
, old_name
;
1761 /* Don't change the title if it's already NAME. */
1762 if (EQ (name
, f
->title
))
1765 update_mode_lines
= 1;
1772 CHECK_STRING (name
);
1774 x_set_name_internal (f
, name
);
1778 x_set_scroll_bar_default_width (f
)
1781 int wid
= FRAME_COLUMN_WIDTH (f
);
1783 #ifdef USE_TOOLKIT_SCROLL_BARS
1784 /* A minimum width of 14 doesn't look good for toolkit scroll bars. */
1785 int width
= 16 + 2 * VERTICAL_SCROLL_BAR_WIDTH_TRIM
;
1786 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (width
+ wid
- 1) / wid
;
1787 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = width
;
1789 /* Make the actual width at least 14 pixels and a multiple of a
1791 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (14 + wid
- 1) / wid
;
1793 /* Use all of that space (aside from required margins) for the
1795 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = 0;
1800 /* Record in frame F the specified or default value according to ALIST
1801 of the parameter named PROP (a Lisp symbol). If no value is
1802 specified for PROP, look for an X default for XPROP on the frame
1803 named NAME. If that is not found either, use the value DEFLT. */
1806 x_default_scroll_bar_color_parameter (f
, alist
, prop
, xprop
, xclass
,
1815 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
1818 tem
= x_get_arg (dpyinfo
, alist
, prop
, xprop
, xclass
, RES_TYPE_STRING
);
1819 if (EQ (tem
, Qunbound
))
1821 #ifdef USE_TOOLKIT_SCROLL_BARS
1823 /* See if an X resource for the scroll bar color has been
1825 tem
= display_x_get_resource (dpyinfo
,
1826 build_string (foreground_p
1830 build_string ("verticalScrollBar"),
1834 /* If nothing has been specified, scroll bars will use a
1835 toolkit-dependent default. Because these defaults are
1836 difficult to get at without actually creating a scroll
1837 bar, use nil to indicate that no color has been
1842 #else /* not USE_TOOLKIT_SCROLL_BARS */
1846 #endif /* not USE_TOOLKIT_SCROLL_BARS */
1849 x_set_frame_parameters (f
, Fcons (Fcons (prop
, tem
), Qnil
));
1855 #if !defined (HAVE_X11R4) && !defined (HAVE_XSETWMPROTOCOLS)
1858 XSetWMProtocols (dpy
, w
, protocols
, count
)
1865 prop
= XInternAtom (dpy
, "WM_PROTOCOLS", False
);
1866 if (prop
== None
) return False
;
1867 XChangeProperty (dpy
, w
, prop
, XA_ATOM
, 32, PropModeReplace
,
1868 (unsigned char *) protocols
, count
);
1871 #endif /* not HAVE_X11R4 && not HAVE_XSETWMPROTOCOLS */
1873 #ifdef USE_X_TOOLKIT
1875 /* If the WM_PROTOCOLS property does not already contain WM_TAKE_FOCUS,
1876 WM_DELETE_WINDOW, and WM_SAVE_YOURSELF, then add them. (They may
1877 already be present because of the toolkit (Motif adds some of them,
1878 for example, but Xt doesn't). */
1881 hack_wm_protocols (f
, widget
)
1885 Display
*dpy
= XtDisplay (widget
);
1886 Window w
= XtWindow (widget
);
1887 int need_delete
= 1;
1894 unsigned char *catoms
;
1896 unsigned long nitems
= 0;
1897 unsigned long bytes_after
;
1899 if ((XGetWindowProperty (dpy
, w
,
1900 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1901 (long)0, (long)100, False
, XA_ATOM
,
1902 &type
, &format
, &nitems
, &bytes_after
,
1905 && format
== 32 && type
== XA_ATOM
)
1907 Atom
*atoms
= (Atom
*) catoms
;
1912 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
)
1914 else if (atoms
[nitems
]
1915 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
)
1917 else if (atoms
[nitems
]
1918 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
)
1929 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
1931 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
;
1933 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
1935 XChangeProperty (dpy
, w
, FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1936 XA_ATOM
, 32, PropModeAppend
,
1937 (unsigned char *) props
, count
);
1945 /* Support routines for XIC (X Input Context). */
1949 static XFontSet xic_create_xfontset
P_ ((struct frame
*, char *));
1950 static XIMStyle best_xim_style
P_ ((XIMStyles
*, XIMStyles
*));
1953 /* Supported XIM styles, ordered by preference. */
1955 static XIMStyle supported_xim_styles
[] =
1957 XIMPreeditPosition
| XIMStatusArea
,
1958 XIMPreeditPosition
| XIMStatusNothing
,
1959 XIMPreeditPosition
| XIMStatusNone
,
1960 XIMPreeditNothing
| XIMStatusArea
,
1961 XIMPreeditNothing
| XIMStatusNothing
,
1962 XIMPreeditNothing
| XIMStatusNone
,
1963 XIMPreeditNone
| XIMStatusArea
,
1964 XIMPreeditNone
| XIMStatusNothing
,
1965 XIMPreeditNone
| XIMStatusNone
,
1970 /* Create an X fontset on frame F with base font name BASE_FONTNAME. */
1972 char xic_defaut_fontset
[] = "-*-*-*-r-normal--14-*-*-*-*-*-*-*";
1974 /* Create an Xt fontset spec from the name of a base font.
1975 If `motif' is True use the Motif syntax. */
1977 xic_create_fontsetname (base_fontname
, motif
)
1978 char *base_fontname
;
1981 const char *sep
= motif
? ";" : ",";
1984 /* Make a fontset name from the base font name. */
1985 if (xic_defaut_fontset
== base_fontname
)
1986 { /* There is no base font name, use the default. */
1987 int len
= strlen (base_fontname
) + 2;
1988 fontsetname
= xmalloc (len
);
1989 bzero (fontsetname
, len
);
1990 strcpy (fontsetname
, base_fontname
);
1994 /* Make a fontset name from the base font name.
1995 The font set will be made of the following elements:
1997 - the base font where the charset spec is replaced by -*-*.
1998 - the same but with the family also replaced with -*-*-. */
1999 char *p
= base_fontname
;
2002 for (i
= 0; *p
; p
++)
2005 { /* As the font name doesn't conform to XLFD, we can't
2006 modify it to generalize it to allcs and allfamilies.
2007 Use the specified font plus the default. */
2008 int len
= strlen (base_fontname
) + strlen (xic_defaut_fontset
) + 3;
2009 fontsetname
= xmalloc (len
);
2010 bzero (fontsetname
, len
);
2011 strcpy (fontsetname
, base_fontname
);
2012 strcat (fontsetname
, sep
);
2013 strcat (fontsetname
, xic_defaut_fontset
);
2018 char *p1
= NULL
, *p2
= NULL
;
2019 char *font_allcs
= NULL
;
2020 char *font_allfamilies
= NULL
;
2021 char *font_all
= NULL
;
2022 char *allcs
= "*-*-*-*-*-*-*";
2023 char *allfamilies
= "-*-*-";
2024 char *all
= "*-*-*-*-";
2026 for (i
= 0, p
= base_fontname
; i
< 8; p
++)
2037 /* Build the font spec that matches all charsets. */
2038 len
= p
- base_fontname
+ strlen (allcs
) + 1;
2039 font_allcs
= (char *) alloca (len
);
2040 bzero (font_allcs
, len
);
2041 bcopy (base_fontname
, font_allcs
, p
- base_fontname
);
2042 strcat (font_allcs
, allcs
);
2044 /* Build the font spec that matches all families. */
2045 len
= p
- p1
+ strlen (allcs
) + strlen (allfamilies
) + 1;
2046 font_allfamilies
= (char *) alloca (len
);
2047 bzero (font_allfamilies
, len
);
2048 strcpy (font_allfamilies
, allfamilies
);
2049 bcopy (p1
, font_allfamilies
+ strlen (allfamilies
), p
- p1
);
2050 strcat (font_allfamilies
, allcs
);
2052 /* Build the font spec that matches all. */
2053 len
= p
- p2
+ strlen (allcs
) + strlen (all
) + strlen (allfamilies
) + 1;
2054 font_all
= (char *) alloca (len
);
2055 bzero (font_all
, len
);
2056 strcpy (font_all
, allfamilies
);
2057 strcat (font_all
, all
);
2058 bcopy (p2
, font_all
+ strlen (all
) + strlen (allfamilies
), p
- p2
);
2059 strcat (font_all
, allcs
);
2061 /* Build the actual font set name. */
2062 len
= strlen (base_fontname
) + strlen (font_allcs
)
2063 + strlen (font_allfamilies
) + strlen (font_all
) + 5;
2064 fontsetname
= xmalloc (len
);
2065 bzero (fontsetname
, len
);
2066 strcpy (fontsetname
, base_fontname
);
2067 strcat (fontsetname
, sep
);
2068 strcat (fontsetname
, font_allcs
);
2069 strcat (fontsetname
, sep
);
2070 strcat (fontsetname
, font_allfamilies
);
2071 strcat (fontsetname
, sep
);
2072 strcat (fontsetname
, font_all
);
2076 strcat (fontsetname
, ":");
2081 xic_create_xfontset (f
, base_fontname
)
2083 char *base_fontname
;
2085 XFontSet xfs
= NULL
;
2086 char **missing_list
= NULL
;
2089 Lisp_Object rest
, frame
;
2092 base_fontname
= xic_defaut_fontset
;
2094 /* See if there is another frame already using same fontset. */
2095 FOR_EACH_FRAME (rest
, frame
)
2097 struct frame
*cf
= XFRAME (frame
);
2098 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
2099 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
2100 && FRAME_XIC_BASE_FONTNAME (cf
)
2101 && !strcmp (FRAME_XIC_BASE_FONTNAME (cf
), base_fontname
))
2103 xfs
= FRAME_XIC_FONTSET (cf
);
2110 char *fontsetname
= xic_create_fontsetname (base_fontname
, False
);
2113 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
),
2114 fontsetname
, &missing_list
,
2115 &missing_count
, &def_string
);
2117 XFreeStringList (missing_list
);
2118 xfree (fontsetname
);
2121 if (FRAME_XIC_BASE_FONTNAME (f
))
2122 xfree (FRAME_XIC_BASE_FONTNAME (f
));
2123 FRAME_XIC_BASE_FONTNAME (f
) = xstrdup (base_fontname
);
2125 /* No need to free def_string. */
2129 /* Free the X fontset of frame F if it is the last frame using it. */
2132 xic_free_xfontset (f
)
2135 Lisp_Object rest
, frame
;
2138 if (!FRAME_XIC_FONTSET (f
))
2141 /* See if there is another frame sharing the same fontset. */
2142 FOR_EACH_FRAME (rest
, frame
)
2144 struct frame
*cf
= XFRAME (frame
);
2145 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
2146 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
2147 && FRAME_XIC_FONTSET (cf
) == FRAME_XIC_FONTSET (f
))
2155 /* The fontset is not used anymore. It is safe to free it. */
2156 XFreeFontSet (FRAME_X_DISPLAY (f
), FRAME_XIC_FONTSET (f
));
2158 if (FRAME_XIC_BASE_FONTNAME (f
))
2159 xfree (FRAME_XIC_BASE_FONTNAME (f
));
2160 FRAME_XIC_BASE_FONTNAME (f
) = NULL
;
2161 FRAME_XIC_FONTSET (f
) = NULL
;
2165 /* Value is the best input style, given user preferences USER (already
2166 checked to be supported by Emacs), and styles supported by the
2167 input method XIM. */
2170 best_xim_style (user
, xim
)
2176 for (i
= 0; i
< user
->count_styles
; ++i
)
2177 for (j
= 0; j
< xim
->count_styles
; ++j
)
2178 if (user
->supported_styles
[i
] == xim
->supported_styles
[j
])
2179 return user
->supported_styles
[i
];
2181 /* Return the default style. */
2182 return XIMPreeditNothing
| XIMStatusNothing
;
2185 /* Create XIC for frame F. */
2187 static XIMStyle xic_style
;
2190 create_frame_xic (f
)
2195 XFontSet xfs
= NULL
;
2200 /* Create X fontset. */
2201 xfs
= xic_create_xfontset
2202 (f
, (FRAME_FONTSET (f
) < 0) ? NULL
2203 : (char *) SDATA (fontset_ascii (FRAME_FONTSET (f
))));
2205 xim
= FRAME_X_XIM (f
);
2210 XVaNestedList preedit_attr
;
2211 XVaNestedList status_attr
;
2213 s_area
.x
= 0; s_area
.y
= 0; s_area
.width
= 1; s_area
.height
= 1;
2214 spot
.x
= 0; spot
.y
= 1;
2216 /* Determine XIC style. */
2219 XIMStyles supported_list
;
2220 supported_list
.count_styles
= (sizeof supported_xim_styles
2221 / sizeof supported_xim_styles
[0]);
2222 supported_list
.supported_styles
= supported_xim_styles
;
2223 xic_style
= best_xim_style (&supported_list
,
2224 FRAME_X_XIM_STYLES (f
));
2227 preedit_attr
= XVaCreateNestedList (0,
2230 FRAME_FOREGROUND_PIXEL (f
),
2232 FRAME_BACKGROUND_PIXEL (f
),
2233 (xic_style
& XIMPreeditPosition
2238 status_attr
= XVaCreateNestedList (0,
2244 FRAME_FOREGROUND_PIXEL (f
),
2246 FRAME_BACKGROUND_PIXEL (f
),
2249 xic
= XCreateIC (xim
,
2250 XNInputStyle
, xic_style
,
2251 XNClientWindow
, FRAME_X_WINDOW (f
),
2252 XNFocusWindow
, FRAME_X_WINDOW (f
),
2253 XNStatusAttributes
, status_attr
,
2254 XNPreeditAttributes
, preedit_attr
,
2256 XFree (preedit_attr
);
2257 XFree (status_attr
);
2260 FRAME_XIC (f
) = xic
;
2261 FRAME_XIC_STYLE (f
) = xic_style
;
2262 FRAME_XIC_FONTSET (f
) = xfs
;
2266 /* Destroy XIC and free XIC fontset of frame F, if any. */
2272 if (FRAME_XIC (f
) == NULL
)
2275 XDestroyIC (FRAME_XIC (f
));
2276 xic_free_xfontset (f
);
2278 FRAME_XIC (f
) = NULL
;
2282 /* Place preedit area for XIC of window W's frame to specified
2283 pixel position X/Y. X and Y are relative to window W. */
2286 xic_set_preeditarea (w
, x
, y
)
2290 struct frame
*f
= XFRAME (w
->frame
);
2294 spot
.x
= WINDOW_TO_FRAME_PIXEL_X (w
, x
) + WINDOW_LEFT_FRINGE_WIDTH (w
);
2295 spot
.y
= WINDOW_TO_FRAME_PIXEL_Y (w
, y
) + FONT_BASE (FRAME_FONT (f
));
2296 attr
= XVaCreateNestedList (0, XNSpotLocation
, &spot
, NULL
);
2297 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2302 /* Place status area for XIC in bottom right corner of frame F.. */
2305 xic_set_statusarea (f
)
2308 XIC xic
= FRAME_XIC (f
);
2313 /* Negotiate geometry of status area. If input method has existing
2314 status area, use its current size. */
2315 area
.x
= area
.y
= area
.width
= area
.height
= 0;
2316 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &area
, NULL
);
2317 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2320 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &needed
, NULL
);
2321 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2324 if (needed
->width
== 0) /* Use XNArea instead of XNAreaNeeded */
2326 attr
= XVaCreateNestedList (0, XNArea
, &needed
, NULL
);
2327 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2331 area
.width
= needed
->width
;
2332 area
.height
= needed
->height
;
2333 area
.x
= FRAME_PIXEL_WIDTH (f
) - area
.width
- FRAME_INTERNAL_BORDER_WIDTH (f
);
2334 area
.y
= (FRAME_PIXEL_HEIGHT (f
) - area
.height
2335 - FRAME_MENUBAR_HEIGHT (f
)
2336 - FRAME_TOOLBAR_HEIGHT (f
)
2337 - FRAME_INTERNAL_BORDER_WIDTH (f
));
2340 attr
= XVaCreateNestedList (0, XNArea
, &area
, NULL
);
2341 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2346 /* Set X fontset for XIC of frame F, using base font name
2347 BASE_FONTNAME. Called when a new Emacs fontset is chosen. */
2350 xic_set_xfontset (f
, base_fontname
)
2352 char *base_fontname
;
2357 xic_free_xfontset (f
);
2359 xfs
= xic_create_xfontset (f
, base_fontname
);
2361 attr
= XVaCreateNestedList (0, XNFontSet
, xfs
, NULL
);
2362 if (FRAME_XIC_STYLE (f
) & XIMPreeditPosition
)
2363 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2364 if (FRAME_XIC_STYLE (f
) & XIMStatusArea
)
2365 XSetICValues (FRAME_XIC (f
), XNStatusAttributes
, attr
, NULL
);
2368 FRAME_XIC_FONTSET (f
) = xfs
;
2371 #endif /* HAVE_X_I18N */
2375 #ifdef USE_X_TOOLKIT
2377 /* Create and set up the X widget for frame F. */
2380 x_window (f
, window_prompting
, minibuffer_only
)
2382 long window_prompting
;
2383 int minibuffer_only
;
2385 XClassHint class_hints
;
2386 XSetWindowAttributes attributes
;
2387 unsigned long attribute_mask
;
2388 Widget shell_widget
;
2390 Widget frame_widget
;
2396 /* Use the resource name as the top-level widget name
2397 for looking up resources. Make a non-Lisp copy
2398 for the window manager, so GC relocation won't bother it.
2400 Elsewhere we specify the window name for the window manager. */
2403 char *str
= (char *) SDATA (Vx_resource_name
);
2404 f
->namebuf
= (char *) xmalloc (strlen (str
) + 1);
2405 strcpy (f
->namebuf
, str
);
2409 XtSetArg (al
[ac
], XtNallowShellResize
, 1); ac
++;
2410 XtSetArg (al
[ac
], XtNinput
, 1); ac
++;
2411 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2412 XtSetArg (al
[ac
], XtNborderWidth
, f
->border_width
); ac
++;
2413 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2414 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2415 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2416 shell_widget
= XtAppCreateShell (f
->namebuf
, EMACS_CLASS
,
2417 applicationShellWidgetClass
,
2418 FRAME_X_DISPLAY (f
), al
, ac
);
2420 f
->output_data
.x
->widget
= shell_widget
;
2421 /* maybe_set_screen_title_format (shell_widget); */
2423 pane_widget
= lw_create_widget ("main", "pane", widget_id_tick
++,
2424 (widget_value
*) NULL
,
2425 shell_widget
, False
,
2429 (lw_callback
) NULL
);
2432 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2433 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2434 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2435 XtSetValues (pane_widget
, al
, ac
);
2436 f
->output_data
.x
->column_widget
= pane_widget
;
2438 /* mappedWhenManaged to false tells to the paned window to not map/unmap
2439 the emacs screen when changing menubar. This reduces flickering. */
2442 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2443 XtSetArg (al
[ac
], XtNshowGrip
, 0); ac
++;
2444 XtSetArg (al
[ac
], XtNallowResize
, 1); ac
++;
2445 XtSetArg (al
[ac
], XtNresizeToPreferred
, 1); ac
++;
2446 XtSetArg (al
[ac
], XtNemacsFrame
, f
); ac
++;
2447 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2448 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2449 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2450 frame_widget
= XtCreateWidget (f
->namebuf
, emacsFrameClass
, pane_widget
,
2453 f
->output_data
.x
->edit_widget
= frame_widget
;
2455 XtManageChild (frame_widget
);
2457 /* Do some needed geometry management. */
2460 char *tem
, shell_position
[32];
2463 int extra_borders
= 0;
2465 = (f
->output_data
.x
->menubar_widget
2466 ? (f
->output_data
.x
->menubar_widget
->core
.height
2467 + f
->output_data
.x
->menubar_widget
->core
.border_width
)
2470 #if 0 /* Experimentally, we now get the right results
2471 for -geometry -0-0 without this. 24 Aug 96, rms. */
2472 if (FRAME_EXTERNAL_MENU_BAR (f
))
2475 XtVaGetValues (pane_widget
, XtNinternalBorderWidth
, &ibw
, NULL
);
2476 menubar_size
+= ibw
;
2480 f
->output_data
.x
->menubar_height
= menubar_size
;
2483 /* Motif seems to need this amount added to the sizes
2484 specified for the shell widget. The Athena/Lucid widgets don't.
2485 Both conclusions reached experimentally. -- rms. */
2486 XtVaGetValues (f
->output_data
.x
->edit_widget
, XtNinternalBorderWidth
,
2487 &extra_borders
, NULL
);
2491 /* Convert our geometry parameters into a geometry string
2493 Note that we do not specify here whether the position
2494 is a user-specified or program-specified one.
2495 We pass that information later, in x_wm_set_size_hints. */
2497 int left
= f
->left_pos
;
2498 int xneg
= window_prompting
& XNegative
;
2499 int top
= f
->top_pos
;
2500 int yneg
= window_prompting
& YNegative
;
2506 if (window_prompting
& USPosition
)
2507 sprintf (shell_position
, "=%dx%d%c%d%c%d",
2508 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2509 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
,
2510 (xneg
? '-' : '+'), left
,
2511 (yneg
? '-' : '+'), top
);
2514 sprintf (shell_position
, "=%dx%d",
2515 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2516 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
);
2518 /* Setting x and y when the position is not specified in
2519 the geometry string will set program position in the WM hints.
2520 If Emacs had just one program position, we could set it in
2521 fallback resources, but since each make-frame call can specify
2522 different program positions, this is easier. */
2523 XtSetArg (al
[ac
], XtNx
, left
); ac
++;
2524 XtSetArg (al
[ac
], XtNy
, top
); ac
++;
2528 len
= strlen (shell_position
) + 1;
2529 /* We don't free this because we don't know whether
2530 it is safe to free it while the frame exists.
2531 It isn't worth the trouble of arranging to free it
2532 when the frame is deleted. */
2533 tem
= (char *) xmalloc (len
);
2534 strncpy (tem
, shell_position
, len
);
2535 XtSetArg (al
[ac
], XtNgeometry
, tem
); ac
++;
2536 XtSetValues (shell_widget
, al
, ac
);
2539 XtManageChild (pane_widget
);
2540 XtRealizeWidget (shell_widget
);
2542 FRAME_X_WINDOW (f
) = XtWindow (frame_widget
);
2544 validate_x_resource_name ();
2546 class_hints
.res_name
= (char *) SDATA (Vx_resource_name
);
2547 class_hints
.res_class
= (char *) SDATA (Vx_resource_class
);
2548 XSetClassHint (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
), &class_hints
);
2551 FRAME_XIC (f
) = NULL
;
2553 create_frame_xic (f
);
2556 f
->output_data
.x
->wm_hints
.input
= True
;
2557 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2558 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2559 &f
->output_data
.x
->wm_hints
);
2561 hack_wm_protocols (f
, shell_widget
);
2564 XtAddEventHandler (shell_widget
, 0, True
, _XEditResCheckMessages
, 0);
2567 /* Do a stupid property change to force the server to generate a
2568 PropertyNotify event so that the event_stream server timestamp will
2569 be initialized to something relevant to the time we created the window.
2571 XChangeProperty (XtDisplay (frame_widget
), XtWindow (frame_widget
),
2572 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
2573 XA_ATOM
, 32, PropModeAppend
,
2574 (unsigned char*) NULL
, 0);
2576 /* Make all the standard events reach the Emacs frame. */
2577 attributes
.event_mask
= STANDARD_EVENT_SET
;
2582 /* XIM server might require some X events. */
2583 unsigned long fevent
= NoEventMask
;
2584 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2585 attributes
.event_mask
|= fevent
;
2587 #endif /* HAVE_X_I18N */
2589 attribute_mask
= CWEventMask
;
2590 XChangeWindowAttributes (XtDisplay (shell_widget
), XtWindow (shell_widget
),
2591 attribute_mask
, &attributes
);
2593 XtMapWidget (frame_widget
);
2595 /* x_set_name normally ignores requests to set the name if the
2596 requested name is the same as the current name. This is the one
2597 place where that assumption isn't correct; f->name is set, but
2598 the X server hasn't been told. */
2601 int explicit = f
->explicit_name
;
2603 f
->explicit_name
= 0;
2606 x_set_name (f
, name
, explicit);
2609 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2610 f
->output_data
.x
->text_cursor
);
2614 /* This is a no-op, except under Motif. Make sure main areas are
2615 set to something reasonable, in case we get an error later. */
2616 lw_set_main_areas (pane_widget
, 0, frame_widget
);
2619 #else /* not USE_X_TOOLKIT */
2625 if (! xg_create_frame_widgets (f
))
2626 error ("Unable to create window");
2629 FRAME_XIC (f
) = NULL
;
2633 create_frame_xic (f
);
2636 /* XIM server might require some X events. */
2637 unsigned long fevent
= NoEventMask
;
2638 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2640 if (fevent
!= NoEventMask
)
2642 XSetWindowAttributes attributes
;
2643 XWindowAttributes wattr
;
2644 unsigned long attribute_mask
;
2646 XGetWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2648 attributes
.event_mask
= wattr
.your_event_mask
| fevent
;
2649 attribute_mask
= CWEventMask
;
2650 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2651 attribute_mask
, &attributes
);
2659 #else /*! USE_GTK */
2660 /* Create and set up the X window for frame F. */
2667 XClassHint class_hints
;
2668 XSetWindowAttributes attributes
;
2669 unsigned long attribute_mask
;
2671 attributes
.background_pixel
= f
->output_data
.x
->background_pixel
;
2672 attributes
.border_pixel
= f
->output_data
.x
->border_pixel
;
2673 attributes
.bit_gravity
= StaticGravity
;
2674 attributes
.backing_store
= NotUseful
;
2675 attributes
.save_under
= True
;
2676 attributes
.event_mask
= STANDARD_EVENT_SET
;
2677 attributes
.colormap
= FRAME_X_COLORMAP (f
);
2678 attribute_mask
= (CWBackPixel
| CWBorderPixel
| CWBitGravity
| CWEventMask
2683 = XCreateWindow (FRAME_X_DISPLAY (f
),
2684 f
->output_data
.x
->parent_desc
,
2687 FRAME_PIXEL_WIDTH (f
), FRAME_PIXEL_HEIGHT (f
),
2689 CopyFromParent
, /* depth */
2690 InputOutput
, /* class */
2692 attribute_mask
, &attributes
);
2697 create_frame_xic (f
);
2700 /* XIM server might require some X events. */
2701 unsigned long fevent
= NoEventMask
;
2702 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2703 attributes
.event_mask
|= fevent
;
2704 attribute_mask
= CWEventMask
;
2705 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2706 attribute_mask
, &attributes
);
2709 #endif /* HAVE_X_I18N */
2711 validate_x_resource_name ();
2713 class_hints
.res_name
= (char *) SDATA (Vx_resource_name
);
2714 class_hints
.res_class
= (char *) SDATA (Vx_resource_class
);
2715 XSetClassHint (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), &class_hints
);
2717 /* The menubar is part of the ordinary display;
2718 it does not count in addition to the height of the window. */
2719 f
->output_data
.x
->menubar_height
= 0;
2721 /* This indicates that we use the "Passive Input" input model.
2722 Unless we do this, we don't get the Focus{In,Out} events that we
2723 need to draw the cursor correctly. Accursed bureaucrats.
2724 XWhipsAndChains (FRAME_X_DISPLAY (f), IronMaiden, &TheRack); */
2726 f
->output_data
.x
->wm_hints
.input
= True
;
2727 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2728 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2729 &f
->output_data
.x
->wm_hints
);
2730 f
->output_data
.x
->wm_hints
.icon_pixmap
= None
;
2732 /* Request "save yourself" and "delete window" commands from wm. */
2735 protocols
[0] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
2736 protocols
[1] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
2737 XSetWMProtocols (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), protocols
, 2);
2740 /* x_set_name normally ignores requests to set the name if the
2741 requested name is the same as the current name. This is the one
2742 place where that assumption isn't correct; f->name is set, but
2743 the X server hasn't been told. */
2746 int explicit = f
->explicit_name
;
2748 f
->explicit_name
= 0;
2751 x_set_name (f
, name
, explicit);
2754 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2755 f
->output_data
.x
->text_cursor
);
2759 if (FRAME_X_WINDOW (f
) == 0)
2760 error ("Unable to create window");
2763 #endif /* not USE_GTK */
2764 #endif /* not USE_X_TOOLKIT */
2766 /* Verify that the icon position args for this window are valid. */
2769 x_icon_verify (f
, parms
)
2773 Lisp_Object icon_x
, icon_y
;
2775 /* Set the position of the icon. Note that twm groups all
2776 icons in an icon window. */
2777 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2778 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2779 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2781 CHECK_NUMBER (icon_x
);
2782 CHECK_NUMBER (icon_y
);
2784 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2785 error ("Both left and top icon corners of icon must be specified");
2788 /* Handle the icon stuff for this window. Perhaps later we might
2789 want an x_set_icon_position which can be called interactively as
2797 Lisp_Object icon_x
, icon_y
;
2798 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2800 /* Set the position of the icon. Note that twm groups all
2801 icons in an icon window. */
2802 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2803 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2804 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2806 CHECK_NUMBER (icon_x
);
2807 CHECK_NUMBER (icon_y
);
2809 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2810 error ("Both left and top icon corners of icon must be specified");
2814 if (! EQ (icon_x
, Qunbound
))
2815 x_wm_set_icon_position (f
, XINT (icon_x
), XINT (icon_y
));
2817 /* Start up iconic or window? */
2818 x_wm_set_window_state
2819 (f
, (EQ (x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0, RES_TYPE_SYMBOL
),
2824 x_text_icon (f
, (char *) SDATA ((!NILP (f
->icon_name
)
2831 /* Make the GCs needed for this window, setting the
2832 background, border and mouse colors; also create the
2833 mouse cursor and the gray border tile. */
2835 static char cursor_bits
[] =
2837 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2838 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2839 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2840 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00
2847 XGCValues gc_values
;
2851 /* Create the GCs of this frame.
2852 Note that many default values are used. */
2855 gc_values
.font
= FRAME_FONT (f
)->fid
;
2856 gc_values
.foreground
= f
->output_data
.x
->foreground_pixel
;
2857 gc_values
.background
= f
->output_data
.x
->background_pixel
;
2858 gc_values
.line_width
= 0; /* Means 1 using fast algorithm. */
2859 f
->output_data
.x
->normal_gc
2860 = XCreateGC (FRAME_X_DISPLAY (f
),
2862 GCLineWidth
| GCFont
| GCForeground
| GCBackground
,
2865 /* Reverse video style. */
2866 gc_values
.foreground
= f
->output_data
.x
->background_pixel
;
2867 gc_values
.background
= f
->output_data
.x
->foreground_pixel
;
2868 f
->output_data
.x
->reverse_gc
2869 = XCreateGC (FRAME_X_DISPLAY (f
),
2871 GCFont
| GCForeground
| GCBackground
| GCLineWidth
,
2874 /* Cursor has cursor-color background, background-color foreground. */
2875 gc_values
.foreground
= f
->output_data
.x
->background_pixel
;
2876 gc_values
.background
= f
->output_data
.x
->cursor_pixel
;
2877 gc_values
.fill_style
= FillOpaqueStippled
;
2879 = XCreateBitmapFromData (FRAME_X_DISPLAY (f
),
2880 FRAME_X_DISPLAY_INFO (f
)->root_window
,
2881 cursor_bits
, 16, 16);
2882 f
->output_data
.x
->cursor_gc
2883 = XCreateGC (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2884 (GCFont
| GCForeground
| GCBackground
2885 | GCFillStyle
/* | GCStipple */ | GCLineWidth
),
2889 f
->output_data
.x
->white_relief
.gc
= 0;
2890 f
->output_data
.x
->black_relief
.gc
= 0;
2892 /* Create the gray border tile used when the pointer is not in
2893 the frame. Since this depends on the frame's pixel values,
2894 this must be done on a per-frame basis. */
2895 f
->output_data
.x
->border_tile
2896 = (XCreatePixmapFromBitmapData
2897 (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
2898 gray_bits
, gray_width
, gray_height
,
2899 f
->output_data
.x
->foreground_pixel
,
2900 f
->output_data
.x
->background_pixel
,
2901 DefaultDepth (FRAME_X_DISPLAY (f
), FRAME_X_SCREEN_NUMBER (f
))));
2907 /* Free what was was allocated in x_make_gc. */
2913 Display
*dpy
= FRAME_X_DISPLAY (f
);
2917 if (f
->output_data
.x
->normal_gc
)
2919 XFreeGC (dpy
, f
->output_data
.x
->normal_gc
);
2920 f
->output_data
.x
->normal_gc
= 0;
2923 if (f
->output_data
.x
->reverse_gc
)
2925 XFreeGC (dpy
, f
->output_data
.x
->reverse_gc
);
2926 f
->output_data
.x
->reverse_gc
= 0;
2929 if (f
->output_data
.x
->cursor_gc
)
2931 XFreeGC (dpy
, f
->output_data
.x
->cursor_gc
);
2932 f
->output_data
.x
->cursor_gc
= 0;
2935 if (f
->output_data
.x
->border_tile
)
2937 XFreePixmap (dpy
, f
->output_data
.x
->border_tile
);
2938 f
->output_data
.x
->border_tile
= 0;
2945 /* Handler for signals raised during x_create_frame and
2946 x_create_top_frame. FRAME is the frame which is partially
2950 unwind_create_frame (frame
)
2953 struct frame
*f
= XFRAME (frame
);
2955 /* If frame is already dead, nothing to do. This can happen if the
2956 display is disconnected after the frame has become official, but
2957 before x_create_frame removes the unwind protect. */
2958 if (!FRAME_LIVE_P (f
))
2961 /* If frame is ``official'', nothing to do. */
2962 if (!CONSP (Vframe_list
) || !EQ (XCAR (Vframe_list
), frame
))
2965 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2968 x_free_frame_resources (f
);
2971 /* Check that reference counts are indeed correct. */
2972 xassert (dpyinfo
->reference_count
== dpyinfo_refcount
);
2973 xassert (dpyinfo
->image_cache
->refcount
== image_cache_refcount
);
2982 DEFUN ("x-create-frame", Fx_create_frame
, Sx_create_frame
,
2984 doc
: /* Make a new X window, which is called a "frame" in Emacs terms.
2985 Returns an Emacs frame object.
2986 ALIST is an alist of frame parameters.
2987 If the parameters specify that the frame should not have a minibuffer,
2988 and do not specify a specific minibuffer window to use,
2989 then `default-minibuffer-frame' must be a frame whose minibuffer can
2990 be shared by the new frame.
2992 This function is an internal primitive--use `make-frame' instead. */)
2997 Lisp_Object frame
, tem
;
2999 int minibuffer_only
= 0;
3000 long window_prompting
= 0;
3002 int count
= SPECPDL_INDEX ();
3003 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
3004 Lisp_Object display
;
3005 struct x_display_info
*dpyinfo
= NULL
;
3009 /* Use this general default value to start with
3010 until we know if this frame has a specified name. */
3011 Vx_resource_name
= Vinvocation_name
;
3013 display
= x_get_arg (dpyinfo
, parms
, Qdisplay_id
, 0, 0, RES_TYPE_NUMBER
);
3014 if (EQ (display
, Qunbound
))
3015 display
= x_get_arg (dpyinfo
, parms
, Qdisplay
, 0, 0, RES_TYPE_STRING
);
3016 if (EQ (display
, Qunbound
))
3018 dpyinfo
= check_x_display_info (display
);
3020 kb
= dpyinfo
->kboard
;
3022 kb
= &the_only_kboard
;
3025 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
3027 && ! EQ (name
, Qunbound
)
3029 error ("Invalid frame name--not a string or nil");
3032 Vx_resource_name
= name
;
3034 /* See if parent window is specified. */
3035 parent
= x_get_arg (dpyinfo
, parms
, Qparent_id
, NULL
, NULL
, RES_TYPE_NUMBER
);
3036 if (EQ (parent
, Qunbound
))
3038 if (! NILP (parent
))
3039 CHECK_NUMBER (parent
);
3041 /* make_frame_without_minibuffer can run Lisp code and garbage collect. */
3042 /* No need to protect DISPLAY because that's not used after passing
3043 it to make_frame_without_minibuffer. */
3045 GCPRO4 (parms
, parent
, name
, frame
);
3046 tem
= x_get_arg (dpyinfo
, parms
, Qminibuffer
, "minibuffer", "Minibuffer",
3048 if (EQ (tem
, Qnone
) || NILP (tem
))
3049 f
= make_frame_without_minibuffer (Qnil
, kb
, display
);
3050 else if (EQ (tem
, Qonly
))
3052 f
= make_minibuffer_frame ();
3053 minibuffer_only
= 1;
3055 else if (WINDOWP (tem
))
3056 f
= make_frame_without_minibuffer (tem
, kb
, display
);
3060 XSETFRAME (frame
, f
);
3062 /* Note that X Windows does support scroll bars. */
3063 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 1;
3065 f
->display
= dpyinfo
->frame_display
;
3066 f
->display
->reference_count
++;
3068 f
->output_method
= output_x_window
;
3069 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
3070 bzero (f
->output_data
.x
, sizeof (struct x_output
));
3071 f
->output_data
.x
->icon_bitmap
= -1;
3072 FRAME_FONTSET (f
) = -1;
3073 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
3074 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
3075 #ifdef USE_TOOLKIT_SCROLL_BARS
3076 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
3077 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
3078 #endif /* USE_TOOLKIT_SCROLL_BARS */
3079 record_unwind_protect (unwind_create_frame
, frame
);
3082 = x_get_arg (dpyinfo
, parms
, Qicon_name
, "iconName", "Title",
3084 if (! STRINGP (f
->icon_name
))
3085 f
->icon_name
= Qnil
;
3087 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
3089 image_cache_refcount
= FRAME_X_IMAGE_CACHE (f
)->refcount
;
3090 dpyinfo_refcount
= dpyinfo
->reference_count
;
3091 #endif /* GLYPH_DEBUG */
3093 FRAME_KBOARD (f
) = kb
;
3096 /* These colors will be set anyway later, but it's important
3097 to get the color reference counts right, so initialize them! */
3100 struct gcpro gcpro1
;
3102 /* Function x_decode_color can signal an error. Make
3103 sure to initialize color slots so that we won't try
3104 to free colors we haven't allocated. */
3105 f
->output_data
.x
->foreground_pixel
= -1;
3106 f
->output_data
.x
->background_pixel
= -1;
3107 f
->output_data
.x
->cursor_pixel
= -1;
3108 f
->output_data
.x
->cursor_foreground_pixel
= -1;
3109 f
->output_data
.x
->border_pixel
= -1;
3110 f
->output_data
.x
->mouse_pixel
= -1;
3112 black
= build_string ("black");
3114 f
->output_data
.x
->foreground_pixel
3115 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3116 f
->output_data
.x
->background_pixel
3117 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3118 f
->output_data
.x
->cursor_pixel
3119 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3120 f
->output_data
.x
->cursor_foreground_pixel
3121 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3122 f
->output_data
.x
->border_pixel
3123 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3124 f
->output_data
.x
->mouse_pixel
3125 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3129 /* Specify the parent under which to make this X window. */
3133 f
->output_data
.x
->parent_desc
= (Window
) XFASTINT (parent
);
3134 f
->output_data
.x
->explicit_parent
= 1;
3138 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
3139 f
->output_data
.x
->explicit_parent
= 0;
3142 /* Set the name; the functions to which we pass f expect the name to
3144 if (EQ (name
, Qunbound
) || NILP (name
))
3146 f
->name
= build_string (dpyinfo
->x_id_name
);
3147 f
->explicit_name
= 0;
3152 f
->explicit_name
= 1;
3153 /* use the frame's title when getting resources for this frame. */
3154 specbind (Qx_resource_name
, name
);
3157 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qwindow_system
, Qx
), Qnil
));
3159 /* Extract the window parameters from the supplied values
3160 that are needed to determine window geometry. */
3164 font
= x_get_arg (dpyinfo
, parms
, Qfont
, "font", "Font", RES_TYPE_STRING
);
3167 /* First, try whatever font the caller has specified. */
3170 tem
= Fquery_fontset (font
, Qnil
);
3172 font
= x_new_fontset (f
, SDATA (tem
));
3174 font
= x_new_font (f
, SDATA (font
));
3177 /* Try out a font which we hope has bold and italic variations. */
3178 if (!STRINGP (font
))
3179 font
= x_new_font (f
, "-adobe-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-1");
3180 if (!STRINGP (font
))
3181 font
= x_new_font (f
, "-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-1");
3182 if (! STRINGP (font
))
3183 font
= x_new_font (f
, "-*-*-medium-r-normal-*-*-140-*-*-c-*-iso8859-1");
3184 if (! STRINGP (font
))
3185 /* This was formerly the first thing tried, but it finds too many fonts
3186 and takes too long. */
3187 font
= x_new_font (f
, "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1");
3188 /* If those didn't work, look for something which will at least work. */
3189 if (! STRINGP (font
))
3190 font
= x_new_font (f
, "-*-fixed-*-*-*-*-*-140-*-*-c-*-iso8859-1");
3192 if (! STRINGP (font
))
3193 font
= build_string ("fixed");
3195 x_default_parameter (f
, parms
, Qfont
, font
,
3196 "font", "Font", RES_TYPE_STRING
);
3200 /* Prevent lwlib/xlwmenu.c from crashing because of a bug
3201 whereby it fails to get any font. */
3202 xlwmenu_default_font
= FRAME_FONT (f
);
3205 x_default_parameter (f
, parms
, Qborder_width
, make_number (2),
3206 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
3208 /* This defaults to 1 in order to match xterm. We recognize either
3209 internalBorderWidth or internalBorder (which is what xterm calls
3211 if (NILP (Fassq (Qinternal_border_width
, parms
)))
3215 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
3216 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
3217 if (! EQ (value
, Qunbound
))
3218 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
3221 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
3222 "internalBorderWidth", "internalBorderWidth",
3224 x_default_parameter (f
, parms
, Qvertical_scroll_bars
, Qleft
,
3225 "verticalScrollBars", "ScrollBars",
3228 /* Also do the stuff which must be set before the window exists. */
3229 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
3230 "foreground", "Foreground", RES_TYPE_STRING
);
3231 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
3232 "background", "Background", RES_TYPE_STRING
);
3233 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
3234 "pointerColor", "Foreground", RES_TYPE_STRING
);
3235 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
3236 "cursorColor", "Foreground", RES_TYPE_STRING
);
3237 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
3238 "borderColor", "BorderColor", RES_TYPE_STRING
);
3239 x_default_parameter (f
, parms
, Qscreen_gamma
, Qnil
,
3240 "screenGamma", "ScreenGamma", RES_TYPE_FLOAT
);
3241 x_default_parameter (f
, parms
, Qline_spacing
, Qnil
,
3242 "lineSpacing", "LineSpacing", RES_TYPE_NUMBER
);
3243 x_default_parameter (f
, parms
, Qleft_fringe
, Qnil
,
3244 "leftFringe", "LeftFringe", RES_TYPE_NUMBER
);
3245 x_default_parameter (f
, parms
, Qright_fringe
, Qnil
,
3246 "rightFringe", "RightFringe", RES_TYPE_NUMBER
);
3248 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_foreground
,
3249 "scrollBarForeground",
3250 "ScrollBarForeground", 1);
3251 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_background
,
3252 "scrollBarBackground",
3253 "ScrollBarBackground", 0);
3255 /* Init faces before x_default_parameter is called for scroll-bar
3256 parameters because that function calls x_set_scroll_bar_width,
3257 which calls change_frame_size, which calls Fset_window_buffer,
3258 which runs hooks, which call Fvertical_motion. At the end, we
3259 end up in init_iterator with a null face cache, which should not
3261 init_frame_faces (f
);
3263 x_default_parameter (f
, parms
, Qmenu_bar_lines
, make_number (1),
3264 "menuBar", "MenuBar", RES_TYPE_NUMBER
);
3265 x_default_parameter (f
, parms
, Qtool_bar_lines
, make_number (1),
3266 "toolBar", "ToolBar", RES_TYPE_NUMBER
);
3267 x_default_parameter (f
, parms
, Qbuffer_predicate
, Qnil
,
3268 "bufferPredicate", "BufferPredicate",
3270 x_default_parameter (f
, parms
, Qtitle
, Qnil
,
3271 "title", "Title", RES_TYPE_STRING
);
3272 x_default_parameter (f
, parms
, Qwait_for_wm
, Qt
,
3273 "waitForWM", "WaitForWM", RES_TYPE_BOOLEAN
);
3274 x_default_parameter (f
, parms
, Qfullscreen
, Qnil
,
3275 "fullscreen", "Fullscreen", RES_TYPE_SYMBOL
);
3277 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
3279 /* Compute the size of the X window. */
3280 window_prompting
= x_figure_window_size (f
, parms
, 1);
3282 tem
= x_get_arg (dpyinfo
, parms
, Qunsplittable
, 0, 0, RES_TYPE_BOOLEAN
);
3283 f
->no_split
= minibuffer_only
|| EQ (tem
, Qt
);
3285 x_icon_verify (f
, parms
);
3287 /* Create the X widget or window. */
3288 #ifdef USE_X_TOOLKIT
3289 x_window (f
, window_prompting
, minibuffer_only
);
3297 /* Now consider the frame official. */
3298 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
3299 Vframe_list
= Fcons (frame
, Vframe_list
);
3301 /* We need to do this after creating the X window, so that the
3302 icon-creation functions can say whose icon they're describing. */
3303 x_default_parameter (f
, parms
, Qicon_type
, Qnil
,
3304 "bitmapIcon", "BitmapIcon", RES_TYPE_SYMBOL
);
3306 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
3307 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3308 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
3309 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3310 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
3311 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
3312 x_default_parameter (f
, parms
, Qscroll_bar_width
, Qnil
,
3313 "scrollBarWidth", "ScrollBarWidth",
3316 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
3317 Change will not be effected unless different from the current
3319 width
= FRAME_COLS (f
);
3320 height
= FRAME_LINES (f
);
3322 SET_FRAME_COLS (f
, 0);
3323 FRAME_LINES (f
) = 0;
3324 change_frame_size (f
, height
, width
, 1, 0, 0);
3326 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
3327 /* Create the menu bar. */
3328 if (!minibuffer_only
&& FRAME_EXTERNAL_MENU_BAR (f
))
3330 /* If this signals an error, we haven't set size hints for the
3331 frame and we didn't make it visible. */
3332 initialize_frame_menubar (f
);
3335 /* This is a no-op, except under Motif where it arranges the
3336 main window for the widgets on it. */
3337 lw_set_main_areas (f
->output_data
.x
->column_widget
,
3338 f
->output_data
.x
->menubar_widget
,
3339 f
->output_data
.x
->edit_widget
);
3340 #endif /* not USE_GTK */
3342 #endif /* USE_X_TOOLKIT || USE_GTK */
3344 /* Tell the server what size and position, etc, we want, and how
3345 badly we want them. This should be done after we have the menu
3346 bar so that its size can be taken into account. */
3348 x_wm_set_size_hint (f
, window_prompting
, 0);
3351 /* Make the window appear on the frame and enable display, unless
3352 the caller says not to. However, with explicit parent, Emacs
3353 cannot control visibility, so don't try. */
3354 if (! f
->output_data
.x
->explicit_parent
)
3356 Lisp_Object visibility
;
3358 visibility
= x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0,
3360 if (EQ (visibility
, Qunbound
))
3363 if (EQ (visibility
, Qicon
))
3364 x_iconify_frame (f
);
3365 else if (! NILP (visibility
))
3366 x_make_frame_visible (f
);
3368 /* Must have been Qnil. */
3372 /* Set the WM leader property. GTK does this itself, so this is not
3373 needed when using GTK. */
3374 if (dpyinfo
->client_leader_window
!= 0)
3377 XChangeProperty (FRAME_X_DISPLAY (f
),
3378 FRAME_OUTER_WINDOW (f
),
3379 dpyinfo
->Xatom_wm_client_leader
,
3380 XA_WINDOW
, 32, PropModeReplace
,
3381 (char *) &dpyinfo
->client_leader_window
, 1);
3387 /* Make sure windows on this frame appear in calls to next-window
3388 and similar functions. */
3389 Vwindow_list
= Qnil
;
3391 return unbind_to (count
, frame
);
3395 /* FRAME is used only to get a handle on the X display. We don't pass the
3396 display info directly because we're called from frame.c, which doesn't
3397 know about that structure. */
3400 x_get_focus_frame (frame
)
3401 struct frame
*frame
;
3403 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (frame
);
3405 if (! dpyinfo
->x_focus_frame
)
3408 XSETFRAME (xfocus
, dpyinfo
->x_focus_frame
);
3413 /* In certain situations, when the window manager follows a
3414 click-to-focus policy, there seems to be no way around calling
3415 XSetInputFocus to give another frame the input focus .
3417 In an ideal world, XSetInputFocus should generally be avoided so
3418 that applications don't interfere with the window manager's focus
3419 policy. But I think it's okay to use when it's clearly done
3420 following a user-command. */
3422 DEFUN ("x-focus-frame", Fx_focus_frame
, Sx_focus_frame
, 1, 1, 0,
3423 doc
: /* Set the input focus to FRAME.
3424 FRAME nil means use the selected frame. */)
3428 struct frame
*f
= check_x_frame (frame
);
3429 Display
*dpy
= FRAME_X_DISPLAY (f
);
3433 count
= x_catch_errors (dpy
);
3434 XSetInputFocus (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
3435 RevertToParent
, CurrentTime
);
3436 x_uncatch_errors (dpy
, count
);
3443 DEFUN ("xw-color-defined-p", Fxw_color_defined_p
, Sxw_color_defined_p
, 1, 2, 0,
3444 doc
: /* Internal function called by `color-defined-p', which see. */)
3446 Lisp_Object color
, frame
;
3449 FRAME_PTR f
= check_x_frame (frame
);
3451 CHECK_STRING (color
);
3453 if (x_defined_color (f
, SDATA (color
), &foo
, 0))
3459 DEFUN ("xw-color-values", Fxw_color_values
, Sxw_color_values
, 1, 2, 0,
3460 doc
: /* Internal function called by `color-values', which see. */)
3462 Lisp_Object color
, frame
;
3465 FRAME_PTR f
= check_x_frame (frame
);
3467 CHECK_STRING (color
);
3469 if (x_defined_color (f
, SDATA (color
), &foo
, 0))
3473 rgb
[0] = make_number (foo
.red
);
3474 rgb
[1] = make_number (foo
.green
);
3475 rgb
[2] = make_number (foo
.blue
);
3476 return Flist (3, rgb
);
3482 DEFUN ("xw-display-color-p", Fxw_display_color_p
, Sxw_display_color_p
, 0, 1, 0,
3483 doc
: /* Internal function called by `display-color-p', which see. */)
3485 Lisp_Object display
;
3487 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3489 if (dpyinfo
->n_planes
<= 2)
3492 switch (dpyinfo
->visual
->class)
3505 DEFUN ("x-display-grayscale-p", Fx_display_grayscale_p
, Sx_display_grayscale_p
,
3507 doc
: /* Return t if the X display supports shades of gray.
3508 Note that color displays do support shades of gray.
3509 The optional argument DISPLAY specifies which display to ask about.
3510 DISPLAY should be either a frame or a display name (a string).
3511 If omitted or nil, that stands for the selected frame's display. */)
3513 Lisp_Object display
;
3515 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3517 if (dpyinfo
->n_planes
<= 1)
3520 switch (dpyinfo
->visual
->class)
3535 DEFUN ("x-display-pixel-width", Fx_display_pixel_width
, Sx_display_pixel_width
,
3537 doc
: /* Returns the width in pixels of the X display DISPLAY.
3538 The optional argument DISPLAY specifies which display to ask about.
3539 DISPLAY should be either a frame or a display name (a string).
3540 If omitted or nil, that stands for the selected frame's display. */)
3542 Lisp_Object display
;
3544 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3546 return make_number (dpyinfo
->width
);
3549 DEFUN ("x-display-pixel-height", Fx_display_pixel_height
,
3550 Sx_display_pixel_height
, 0, 1, 0,
3551 doc
: /* Returns the height in pixels of the X display DISPLAY.
3552 The optional argument DISPLAY specifies which display to ask about.
3553 DISPLAY should be either a frame or a display name (a string).
3554 If omitted or nil, that stands for the selected frame's display. */)
3556 Lisp_Object display
;
3558 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3560 return make_number (dpyinfo
->height
);
3563 DEFUN ("x-display-planes", Fx_display_planes
, Sx_display_planes
,
3565 doc
: /* Returns the number of bitplanes of the X display DISPLAY.
3566 The optional argument DISPLAY specifies which display to ask about.
3567 DISPLAY should be either a frame or a display name (a string).
3568 If omitted or nil, that stands for the selected frame's display. */)
3570 Lisp_Object display
;
3572 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3574 return make_number (dpyinfo
->n_planes
);
3577 DEFUN ("x-display-color-cells", Fx_display_color_cells
, Sx_display_color_cells
,
3579 doc
: /* Returns the number of color cells of the X display DISPLAY.
3580 The optional argument DISPLAY specifies which display to ask about.
3581 DISPLAY should be either a frame or a display name (a string).
3582 If omitted or nil, that stands for the selected frame's display. */)
3584 Lisp_Object display
;
3586 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3588 int nr_planes
= DisplayPlanes (dpyinfo
->display
,
3589 XScreenNumberOfScreen (dpyinfo
->screen
));
3591 /* Truncate nr_planes to 24 to avoid integer overflow.
3592 Some displays says 32, but only 24 bits are actually significant.
3593 There are only very few and rare video cards that have more than
3594 24 significant bits. Also 24 bits is more than 16 million colors,
3595 it "should be enough for everyone". */
3596 if (nr_planes
> 24) nr_planes
= 24;
3598 return make_number (1 << nr_planes
);
3601 DEFUN ("x-server-max-request-size", Fx_server_max_request_size
,
3602 Sx_server_max_request_size
,
3604 doc
: /* Returns the maximum request size of the X server of display DISPLAY.
3605 The optional argument DISPLAY specifies which display to ask about.
3606 DISPLAY should be either a frame or a display name (a string).
3607 If omitted or nil, that stands for the selected frame's display. */)
3609 Lisp_Object display
;
3611 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3613 return make_number (MAXREQUEST (dpyinfo
->display
));
3616 DEFUN ("x-server-vendor", Fx_server_vendor
, Sx_server_vendor
, 0, 1, 0,
3617 doc
: /* Returns the "vendor ID" string of the X server of display DISPLAY.
3618 \(Labelling every distributor as a "vendor" embodies the false assumption
3619 that operating systems cannot be developed and distributed noncommercially.)
3620 The optional argument DISPLAY specifies which display to ask about.
3621 DISPLAY should be either a frame or a display name (a string).
3622 If omitted or nil, that stands for the selected frame's display. */)
3624 Lisp_Object display
;
3626 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3627 char *vendor
= ServerVendor (dpyinfo
->display
);
3629 if (! vendor
) vendor
= "";
3630 return build_string (vendor
);
3633 DEFUN ("x-server-version", Fx_server_version
, Sx_server_version
, 0, 1, 0,
3634 doc
: /* Returns the version numbers of the X server of display DISPLAY.
3635 The value is a list of three integers: the major and minor
3636 version numbers of the X Protocol in use, and the distributor-specific release
3637 number. See also the function `x-server-vendor'.
3639 The optional argument DISPLAY specifies which display to ask about.
3640 DISPLAY should be either a frame or a display name (a string).
3641 If omitted or nil, that stands for the selected frame's display. */)
3643 Lisp_Object display
;
3645 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3646 Display
*dpy
= dpyinfo
->display
;
3648 return Fcons (make_number (ProtocolVersion (dpy
)),
3649 Fcons (make_number (ProtocolRevision (dpy
)),
3650 Fcons (make_number (VendorRelease (dpy
)), Qnil
)));
3653 DEFUN ("x-display-screens", Fx_display_screens
, Sx_display_screens
, 0, 1, 0,
3654 doc
: /* Return the number of screens on the X server of display DISPLAY.
3655 The optional argument DISPLAY specifies which display to ask about.
3656 DISPLAY should be either a frame or a display name (a string).
3657 If omitted or nil, that stands for the selected frame's display. */)
3659 Lisp_Object display
;
3661 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3663 return make_number (ScreenCount (dpyinfo
->display
));
3666 DEFUN ("x-display-mm-height", Fx_display_mm_height
, Sx_display_mm_height
, 0, 1, 0,
3667 doc
: /* Return the height in millimeters of the X display DISPLAY.
3668 The optional argument DISPLAY specifies which display to ask about.
3669 DISPLAY should be either a frame or a display name (a string).
3670 If omitted or nil, that stands for the selected frame's display. */)
3672 Lisp_Object display
;
3674 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3676 return make_number (HeightMMOfScreen (dpyinfo
->screen
));
3679 DEFUN ("x-display-mm-width", Fx_display_mm_width
, Sx_display_mm_width
, 0, 1, 0,
3680 doc
: /* Return the width in millimeters of the X display DISPLAY.
3681 The optional argument DISPLAY specifies which display to ask about.
3682 DISPLAY should be either a frame or a display name (a string).
3683 If omitted or nil, that stands for the selected frame's display. */)
3685 Lisp_Object display
;
3687 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3689 return make_number (WidthMMOfScreen (dpyinfo
->screen
));
3692 DEFUN ("x-display-backing-store", Fx_display_backing_store
,
3693 Sx_display_backing_store
, 0, 1, 0,
3694 doc
: /* Returns an indication of whether X display DISPLAY does backing store.
3695 The value may be `always', `when-mapped', or `not-useful'.
3696 The optional argument DISPLAY specifies which display to ask about.
3697 DISPLAY should be either a frame or a display name (a string).
3698 If omitted or nil, that stands for the selected frame's display. */)
3700 Lisp_Object display
;
3702 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3705 switch (DoesBackingStore (dpyinfo
->screen
))
3708 result
= intern ("always");
3712 result
= intern ("when-mapped");
3716 result
= intern ("not-useful");
3720 error ("Strange value for BackingStore parameter of screen");
3727 DEFUN ("x-display-visual-class", Fx_display_visual_class
,
3728 Sx_display_visual_class
, 0, 1, 0,
3729 doc
: /* Return the visual class of the X display DISPLAY.
3730 The value is one of the symbols `static-gray', `gray-scale',
3731 `static-color', `pseudo-color', `true-color', or `direct-color'.
3733 The optional argument DISPLAY specifies which display to ask about.
3734 DISPLAY should be either a frame or a display name (a string).
3735 If omitted or nil, that stands for the selected frame's display. */)
3737 Lisp_Object display
;
3739 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3742 switch (dpyinfo
->visual
->class)
3745 result
= intern ("static-gray");
3748 result
= intern ("gray-scale");
3751 result
= intern ("static-color");
3754 result
= intern ("pseudo-color");
3757 result
= intern ("true-color");
3760 result
= intern ("direct-color");
3763 error ("Display has an unknown visual class");
3770 DEFUN ("x-display-save-under", Fx_display_save_under
,
3771 Sx_display_save_under
, 0, 1, 0,
3772 doc
: /* Returns t if the X display DISPLAY supports the save-under feature.
3773 The optional argument DISPLAY specifies which display to ask about.
3774 DISPLAY should be either a frame or a display name (a string).
3775 If omitted or nil, that stands for the selected frame's display. */)
3777 Lisp_Object display
;
3779 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3781 if (DoesSaveUnders (dpyinfo
->screen
) == True
)
3789 register struct frame
*f
;
3791 return FRAME_PIXEL_WIDTH (f
);
3796 register struct frame
*f
;
3798 return FRAME_PIXEL_HEIGHT (f
);
3803 register struct frame
*f
;
3805 return FRAME_COLUMN_WIDTH (f
);
3810 register struct frame
*f
;
3812 return FRAME_LINE_HEIGHT (f
);
3817 register struct frame
*f
;
3819 return FRAME_X_DISPLAY_INFO (f
)->n_planes
;
3824 /************************************************************************
3826 ************************************************************************/
3829 /* Mapping visual names to visuals. */
3831 static struct visual_class
3838 {"StaticGray", StaticGray
},
3839 {"GrayScale", GrayScale
},
3840 {"StaticColor", StaticColor
},
3841 {"PseudoColor", PseudoColor
},
3842 {"TrueColor", TrueColor
},
3843 {"DirectColor", DirectColor
},
3848 #ifndef HAVE_XSCREENNUMBEROFSCREEN
3850 /* Value is the screen number of screen SCR. This is a substitute for
3851 the X function with the same name when that doesn't exist. */
3854 XScreenNumberOfScreen (scr
)
3855 register Screen
*scr
;
3857 Display
*dpy
= scr
->display
;
3860 for (i
= 0; i
< dpy
->nscreens
; ++i
)
3861 if (scr
== dpy
->screens
+ i
)
3867 #endif /* not HAVE_XSCREENNUMBEROFSCREEN */
3870 /* Select the visual that should be used on display DPYINFO. Set
3871 members of DPYINFO appropriately. Called from x_term_init. */
3874 select_visual (dpyinfo
)
3875 struct x_display_info
*dpyinfo
;
3877 Display
*dpy
= dpyinfo
->display
;
3878 Screen
*screen
= dpyinfo
->screen
;
3881 /* See if a visual is specified. */
3882 value
= display_x_get_resource (dpyinfo
,
3883 build_string ("visualClass"),
3884 build_string ("VisualClass"),
3886 if (STRINGP (value
))
3888 /* VALUE should be of the form CLASS-DEPTH, where CLASS is one
3889 of `PseudoColor', `TrueColor' etc. and DEPTH is the color
3890 depth, a decimal number. NAME is compared with case ignored. */
3891 char *s
= (char *) alloca (SBYTES (value
) + 1);
3896 strcpy (s
, SDATA (value
));
3897 dash
= index (s
, '-');
3900 dpyinfo
->n_planes
= atoi (dash
+ 1);
3904 /* We won't find a matching visual with depth 0, so that
3905 an error will be printed below. */
3906 dpyinfo
->n_planes
= 0;
3908 /* Determine the visual class. */
3909 for (i
= 0; visual_classes
[i
].name
; ++i
)
3910 if (xstricmp (s
, visual_classes
[i
].name
) == 0)
3912 class = visual_classes
[i
].class;
3916 /* Look up a matching visual for the specified class. */
3918 || !XMatchVisualInfo (dpy
, XScreenNumberOfScreen (screen
),
3919 dpyinfo
->n_planes
, class, &vinfo
))
3920 fatal ("Invalid visual specification `%s'", SDATA (value
));
3922 dpyinfo
->visual
= vinfo
.visual
;
3927 XVisualInfo
*vinfo
, vinfo_template
;
3929 dpyinfo
->visual
= DefaultVisualOfScreen (screen
);
3932 vinfo_template
.visualid
= XVisualIDFromVisual (dpyinfo
->visual
);
3934 vinfo_template
.visualid
= dpyinfo
->visual
->visualid
;
3936 vinfo_template
.screen
= XScreenNumberOfScreen (screen
);
3937 vinfo
= XGetVisualInfo (dpy
, VisualIDMask
| VisualScreenMask
,
3938 &vinfo_template
, &n_visuals
);
3940 fatal ("Can't get proper X visual info");
3942 dpyinfo
->n_planes
= vinfo
->depth
;
3943 XFree ((char *) vinfo
);
3948 /* Return the X display structure for the display named NAME.
3949 Open a new connection if necessary. */
3951 struct x_display_info
*
3952 x_display_info_for_name (name
)
3956 struct x_display_info
*dpyinfo
;
3958 CHECK_STRING (name
);
3961 if (! EQ (Vinitial_window_system
, intern ("x")))
3962 error ("Not using X Windows"); /* That doesn't stop us anymore. */
3965 for (dpyinfo
= x_display_list
, names
= x_display_name_list
;
3967 dpyinfo
= dpyinfo
->next
, names
= XCDR (names
))
3970 tem
= Fstring_equal (XCAR (XCAR (names
)), name
);
3975 /* Use this general default value to start with. */
3976 Vx_resource_name
= Vinvocation_name
;
3978 validate_x_resource_name ();
3980 dpyinfo
= x_term_init (name
, (char *)0,
3981 (char *) SDATA (Vx_resource_name
));
3984 error ("Cannot connect to X server %s", SDATA (name
));
3987 XSETFASTINT (Vwindow_system_version
, 11);
3993 DEFUN ("x-open-connection", Fx_open_connection
, Sx_open_connection
,
3995 doc
: /* Open a connection to an X server.
3996 DISPLAY is the name of the display to connect to.
3997 Optional second arg XRM-STRING is a string of resources in xrdb format.
3998 If the optional third arg MUST-SUCCEED is non-nil,
3999 terminate Emacs if we can't open the connection. */)
4000 (display
, xrm_string
, must_succeed
)
4001 Lisp_Object display
, xrm_string
, must_succeed
;
4003 unsigned char *xrm_option
;
4004 struct x_display_info
*dpyinfo
;
4006 CHECK_STRING (display
);
4007 if (! NILP (xrm_string
))
4008 CHECK_STRING (xrm_string
);
4011 if (! EQ (Vinitial_window_system
, intern ("x")))
4012 error ("Not using X Windows"); /* That doesn't stop us anymore. */
4015 if (! NILP (xrm_string
))
4016 xrm_option
= (unsigned char *) SDATA (xrm_string
);
4018 xrm_option
= (unsigned char *) 0;
4020 validate_x_resource_name ();
4022 /* This is what opens the connection and sets x_current_display.
4023 This also initializes many symbols, such as those used for input. */
4024 dpyinfo
= x_term_init (display
, xrm_option
,
4025 (char *) SDATA (Vx_resource_name
));
4029 if (!NILP (must_succeed
))
4030 fatal ("Cannot connect to X server %s.\n\
4031 Check the DISPLAY environment variable or use `-d'.\n\
4032 Also use the `xauth' program to verify that you have the proper\n\
4033 authorization information needed to connect the X server.\n\
4034 An insecure way to solve the problem may be to use `xhost'.\n",
4037 error ("Cannot connect to X server %s", SDATA (display
));
4042 XSETFASTINT (Vwindow_system_version
, 11);
4046 DEFUN ("x-close-connection", Fx_close_connection
,
4047 Sx_close_connection
, 1, 1, 0,
4048 doc
: /* Close the connection to DISPLAY's X server.
4049 For DISPLAY, specify either a frame or a display name (a string).
4050 If DISPLAY is nil, that stands for the selected frame's display. */)
4052 Lisp_Object display
;
4054 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
4056 if (dpyinfo
->reference_count
> 0)
4057 error ("Display still has frames on it");
4059 x_delete_frame_display (dpyinfo
->frame_display
);
4064 DEFUN ("x-display-list", Fx_display_list
, Sx_display_list
, 0, 0, 0,
4065 doc
: /* Return the list of display names that Emacs has connections to. */)
4068 Lisp_Object tail
, result
;
4071 for (tail
= x_display_name_list
; ! NILP (tail
); tail
= XCDR (tail
))
4072 result
= Fcons (XCAR (XCAR (tail
)), result
);
4077 DEFUN ("x-synchronize", Fx_synchronize
, Sx_synchronize
, 1, 2, 0,
4078 doc
: /* If ON is non-nil, report X errors as soon as the erring request is made.
4079 If ON is nil, allow buffering of requests.
4080 Turning on synchronization prohibits the Xlib routines from buffering
4081 requests and seriously degrades performance, but makes debugging much
4083 The optional second argument DISPLAY specifies which display to act on.
4084 DISPLAY should be either a frame or a display name (a string).
4085 If DISPLAY is omitted or nil, that stands for the selected frame's display. */)
4087 Lisp_Object display
, on
;
4089 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
4091 XSynchronize (dpyinfo
->display
, !EQ (on
, Qnil
));
4096 /* Wait for responses to all X commands issued so far for frame F. */
4103 XSync (FRAME_X_DISPLAY (f
), False
);
4108 /***********************************************************************
4110 ***********************************************************************/
4112 DEFUN ("x-change-window-property", Fx_change_window_property
,
4113 Sx_change_window_property
, 2, 6, 0,
4114 doc
: /* Change window property PROP to VALUE on the X window of FRAME.
4115 PROP must be a string.
4116 VALUE may be a string or a list of conses, numbers and/or strings.
4117 If an element in the list is a string, it is converted to
4118 an Atom and the value of the Atom is used. If an element is a cons,
4119 it is converted to a 32 bit number where the car is the 16 top bits and the
4120 cdr is the lower 16 bits.
4121 FRAME nil or omitted means use the selected frame.
4122 If TYPE is given and non-nil, it is the name of the type of VALUE.
4123 If TYPE is not given or nil, the type is STRING.
4124 FORMAT gives the size in bits of each element if VALUE is a list.
4125 It must be one of 8, 16 or 32.
4126 If VALUE is a string or FORMAT is nil or not given, FORMAT defaults to 8.
4127 If OUTER_P is non-nil, the property is changed for the outer X window of
4128 FRAME. Default is to change on the edit X window.
4131 (prop
, value
, frame
, type
, format
, outer_p
)
4132 Lisp_Object prop
, value
, frame
, type
, format
, outer_p
;
4134 struct frame
*f
= check_x_frame (frame
);
4136 Atom target_type
= XA_STRING
;
4137 int element_format
= 8;
4138 unsigned char *data
;
4142 CHECK_STRING (prop
);
4144 if (! NILP (format
))
4146 CHECK_NUMBER (format
);
4147 element_format
= XFASTINT (format
);
4149 if (element_format
!= 8 && element_format
!= 16
4150 && element_format
!= 32)
4151 error ("FORMAT must be one of 8, 16 or 32");
4156 nelements
= x_check_property_data (value
);
4157 if (nelements
== -1)
4158 error ("Bad data in VALUE, must be number, string or cons");
4160 if (element_format
== 8)
4161 data
= (unsigned char *) xmalloc (nelements
);
4162 else if (element_format
== 16)
4163 data
= (unsigned char *) xmalloc (nelements
*2);
4164 else /* format == 32 */
4165 /* The man page for XChangeProperty:
4166 "If the specified format is 32, the property data must be a
4168 This applies even if long is more than 64 bits. The X library
4169 converts to 32 bits before sending to the X server. */
4170 data
= (unsigned char *) xmalloc (nelements
* sizeof(long));
4172 x_fill_property_data (FRAME_X_DISPLAY (f
), value
, data
, element_format
);
4176 CHECK_STRING (value
);
4177 data
= SDATA (value
);
4178 nelements
= SCHARS (value
);
4182 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4185 CHECK_STRING (type
);
4186 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (type
), False
);
4189 if (! NILP (outer_p
)) w
= FRAME_OUTER_WINDOW (f
);
4190 else w
= FRAME_X_WINDOW (f
);
4192 XChangeProperty (FRAME_X_DISPLAY (f
), w
,
4193 prop_atom
, target_type
, element_format
, PropModeReplace
,
4196 if (CONSP (value
)) xfree (data
);
4198 /* Make sure the property is set when we return. */
4199 XFlush (FRAME_X_DISPLAY (f
));
4206 DEFUN ("x-delete-window-property", Fx_delete_window_property
,
4207 Sx_delete_window_property
, 1, 2, 0,
4208 doc
: /* Remove window property PROP from X window of FRAME.
4209 FRAME nil or omitted means use the selected frame. Value is PROP. */)
4211 Lisp_Object prop
, frame
;
4213 struct frame
*f
= check_x_frame (frame
);
4216 CHECK_STRING (prop
);
4218 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4219 XDeleteProperty (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), prop_atom
);
4221 /* Make sure the property is removed when we return. */
4222 XFlush (FRAME_X_DISPLAY (f
));
4229 DEFUN ("x-window-property", Fx_window_property
, Sx_window_property
,
4231 doc
: /* Value is the value of window property PROP on FRAME.
4232 If FRAME is nil or omitted, use the selected frame.
4233 If TYPE is nil or omitted, get the property as a string. Otherwise TYPE
4234 is the name of the Atom that denotes the type expected.
4235 If SOURCE is non-nil, get the property on that window instead of from
4236 FRAME. The number 0 denotes the root window.
4237 If DELETE_P is non-nil, delete the property after retreiving it.
4238 If VECTOR_RET_P is non-nil, don't return a string but a vector of values.
4240 Value is nil if FRAME hasn't a property with name PROP or if PROP has
4241 no value of TYPE. */)
4242 (prop
, frame
, type
, source
, delete_p
, vector_ret_p
)
4243 Lisp_Object prop
, frame
, type
, source
, delete_p
, vector_ret_p
;
4245 struct frame
*f
= check_x_frame (frame
);
4248 Lisp_Object prop_value
= Qnil
;
4249 unsigned char *tmp_data
= NULL
;
4251 Atom target_type
= XA_STRING
;
4253 unsigned long actual_size
, bytes_remaining
;
4254 Window target_window
= FRAME_X_WINDOW (f
);
4255 struct gcpro gcpro1
;
4257 GCPRO1 (prop_value
);
4258 CHECK_STRING (prop
);
4260 if (! NILP (source
))
4262 if (NUMBERP (source
))
4264 if (FLOATP (source
))
4265 target_window
= (Window
) XFLOAT (source
);
4267 target_window
= XFASTINT (source
);
4269 if (target_window
== 0)
4270 target_window
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4272 else if (CONSP (source
))
4273 target_window
= cons_to_long (source
);
4279 if (strcmp ("AnyPropertyType", SDATA (type
)) == 0)
4280 target_type
= AnyPropertyType
;
4282 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (type
), False
);
4285 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4286 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4287 prop_atom
, 0, 0, False
, target_type
,
4288 &actual_type
, &actual_format
, &actual_size
,
4289 &bytes_remaining
, &tmp_data
);
4292 int size
= bytes_remaining
;
4297 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4298 prop_atom
, 0, bytes_remaining
,
4299 ! NILP (delete_p
), target_type
,
4300 &actual_type
, &actual_format
,
4301 &actual_size
, &bytes_remaining
,
4303 if (rc
== Success
&& tmp_data
)
4305 /* The man page for XGetWindowProperty says:
4306 "If the returned format is 32, the returned data is represented
4307 as a long array and should be cast to that type to obtain the
4309 This applies even if long is more than 32 bits, the X library
4310 converts from 32 bit elements received from the X server to long
4311 and passes the long array to us. Thus, for that case bcopy can not
4312 be used. We convert to a 32 bit type here, because so much code
4315 The bytes and offsets passed to XGetWindowProperty refers to the
4316 property and those are indeed in 32 bit quantities if format is
4319 if (actual_format
== 32 && actual_format
< BITS_PER_LONG
)
4322 int *idata
= (int *) tmp_data
;
4323 long *ldata
= (long *) tmp_data
;
4325 for (i
= 0; i
< actual_size
; ++i
)
4326 idata
[i
] = (int) ldata
[i
];
4329 if (NILP (vector_ret_p
))
4330 prop_value
= make_string (tmp_data
, size
);
4332 prop_value
= x_property_data_to_lisp (f
,
4339 if (tmp_data
) XFree (tmp_data
);
4349 /***********************************************************************
4351 ***********************************************************************/
4353 /* If non-null, an asynchronous timer that, when it expires, displays
4354 an hourglass cursor on all frames. */
4356 static struct atimer
*hourglass_atimer
;
4358 /* Non-zero means an hourglass cursor is currently shown. */
4360 static int hourglass_shown_p
;
4362 /* Number of seconds to wait before displaying an hourglass cursor. */
4364 static Lisp_Object Vhourglass_delay
;
4366 /* Default number of seconds to wait before displaying an hourglass
4369 #define DEFAULT_HOURGLASS_DELAY 1
4371 /* Function prototypes. */
4373 static void show_hourglass
P_ ((struct atimer
*));
4374 static void hide_hourglass
P_ ((void));
4376 /* Return non-zero if houglass timer has been started or hourglass is shown. */
4379 hourglass_started ()
4381 return hourglass_shown_p
|| hourglass_atimer
!= NULL
;
4385 /* Cancel a currently active hourglass timer, and start a new one. */
4391 int secs
, usecs
= 0;
4393 cancel_hourglass ();
4395 if (INTEGERP (Vhourglass_delay
)
4396 && XINT (Vhourglass_delay
) > 0)
4397 secs
= XFASTINT (Vhourglass_delay
);
4398 else if (FLOATP (Vhourglass_delay
)
4399 && XFLOAT_DATA (Vhourglass_delay
) > 0)
4402 tem
= Ftruncate (Vhourglass_delay
, Qnil
);
4403 secs
= XFASTINT (tem
);
4404 usecs
= (XFLOAT_DATA (Vhourglass_delay
) - secs
) * 1000000;
4407 secs
= DEFAULT_HOURGLASS_DELAY
;
4409 EMACS_SET_SECS_USECS (delay
, secs
, usecs
);
4410 hourglass_atimer
= start_atimer (ATIMER_RELATIVE
, delay
,
4411 show_hourglass
, NULL
);
4415 /* Cancel the hourglass cursor timer if active, hide a busy cursor if
4421 if (hourglass_atimer
)
4423 cancel_atimer (hourglass_atimer
);
4424 hourglass_atimer
= NULL
;
4427 if (hourglass_shown_p
)
4432 /* Timer function of hourglass_atimer. TIMER is equal to
4435 Display an hourglass pointer on all frames by mapping the frames'
4436 hourglass_window. Set the hourglass_p flag in the frames'
4437 output_data.x structure to indicate that an hourglass cursor is
4438 shown on the frames. */
4441 show_hourglass (timer
)
4442 struct atimer
*timer
;
4444 /* The timer implementation will cancel this timer automatically
4445 after this function has run. Set hourglass_atimer to null
4446 so that we know the timer doesn't have to be canceled. */
4447 hourglass_atimer
= NULL
;
4449 if (!hourglass_shown_p
)
4451 Lisp_Object rest
, frame
;
4455 FOR_EACH_FRAME (rest
, frame
)
4457 struct frame
*f
= XFRAME (frame
);
4459 if (FRAME_LIVE_P (f
) && FRAME_X_P (f
) && FRAME_X_DISPLAY (f
))
4461 Display
*dpy
= FRAME_X_DISPLAY (f
);
4463 #ifdef USE_X_TOOLKIT
4464 if (f
->output_data
.x
->widget
)
4466 if (FRAME_OUTER_WINDOW (f
))
4469 f
->output_data
.x
->hourglass_p
= 1;
4471 if (!f
->output_data
.x
->hourglass_window
)
4473 unsigned long mask
= CWCursor
;
4474 XSetWindowAttributes attrs
;
4476 Window parent
= FRAME_X_WINDOW (f
);
4478 Window parent
= FRAME_OUTER_WINDOW (f
);
4480 attrs
.cursor
= f
->output_data
.x
->hourglass_cursor
;
4482 f
->output_data
.x
->hourglass_window
4483 = XCreateWindow (dpy
, parent
,
4484 0, 0, 32000, 32000, 0, 0,
4490 XMapRaised (dpy
, f
->output_data
.x
->hourglass_window
);
4496 hourglass_shown_p
= 1;
4502 /* Hide the hourglass pointer on all frames, if it is currently
4508 if (hourglass_shown_p
)
4510 Lisp_Object rest
, frame
;
4513 FOR_EACH_FRAME (rest
, frame
)
4515 struct frame
*f
= XFRAME (frame
);
4518 /* Watch out for newly created frames. */
4519 && f
->output_data
.x
->hourglass_window
)
4521 XUnmapWindow (FRAME_X_DISPLAY (f
),
4522 f
->output_data
.x
->hourglass_window
);
4523 /* Sync here because XTread_socket looks at the
4524 hourglass_p flag that is reset to zero below. */
4525 XSync (FRAME_X_DISPLAY (f
), False
);
4526 f
->output_data
.x
->hourglass_p
= 0;
4530 hourglass_shown_p
= 0;
4537 /***********************************************************************
4539 ***********************************************************************/
4541 static Lisp_Object x_create_tip_frame
P_ ((struct x_display_info
*,
4542 Lisp_Object
, Lisp_Object
));
4543 static void compute_tip_xy
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
,
4544 Lisp_Object
, int, int, int *, int *));
4546 /* The frame of a currently visible tooltip. */
4548 Lisp_Object tip_frame
;
4550 /* If non-nil, a timer started that hides the last tooltip when it
4553 Lisp_Object tip_timer
;
4556 /* If non-nil, a vector of 3 elements containing the last args
4557 with which x-show-tip was called. See there. */
4559 Lisp_Object last_show_tip_args
;
4561 /* Maximum size for tooltips; a cons (COLUMNS . ROWS). */
4563 Lisp_Object Vx_max_tooltip_size
;
4567 unwind_create_tip_frame (frame
)
4570 Lisp_Object deleted
;
4572 deleted
= unwind_create_frame (frame
);
4573 if (EQ (deleted
, Qt
))
4583 /* Create a frame for a tooltip on the display described by DPYINFO.
4584 PARMS is a list of frame parameters. TEXT is the string to
4585 display in the tip frame. Value is the frame.
4587 Note that functions called here, esp. x_default_parameter can
4588 signal errors, for instance when a specified color name is
4589 undefined. We have to make sure that we're in a consistent state
4590 when this happens. */
4593 x_create_tip_frame (dpyinfo
, parms
, text
)
4594 struct x_display_info
*dpyinfo
;
4595 Lisp_Object parms
, text
;
4598 Lisp_Object frame
, tem
;
4600 long window_prompting
= 0;
4602 int count
= SPECPDL_INDEX ();
4603 struct gcpro gcpro1
, gcpro2
, gcpro3
;
4605 int face_change_count_before
= face_change_count
;
4607 struct buffer
*old_buffer
;
4613 kb
= dpyinfo
->kboard
;
4615 kb
= &the_only_kboard
;
4618 /* Get the name of the frame to use for resource lookup. */
4619 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
4621 && !EQ (name
, Qunbound
)
4623 error ("Invalid frame name--not a string or nil");
4626 GCPRO3 (parms
, name
, frame
);
4628 XSETFRAME (frame
, f
);
4630 buffer
= Fget_buffer_create (build_string (" *tip*"));
4631 Fset_window_buffer (FRAME_ROOT_WINDOW (f
), buffer
, Qnil
);
4632 old_buffer
= current_buffer
;
4633 set_buffer_internal_1 (XBUFFER (buffer
));
4634 current_buffer
->truncate_lines
= Qnil
;
4635 specbind (Qinhibit_read_only
, Qt
);
4636 specbind (Qinhibit_modification_hooks
, Qt
);
4639 set_buffer_internal_1 (old_buffer
);
4641 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 0;
4642 record_unwind_protect (unwind_create_tip_frame
, frame
);
4644 f
->display
= dpyinfo
->frame_display
;
4645 f
->display
->reference_count
++;
4647 /* By setting the output method, we're essentially saying that
4648 the frame is live, as per FRAME_LIVE_P. If we get a signal
4649 from this point on, x_destroy_window might screw up reference
4651 f
->output_method
= output_x_window
;
4652 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
4653 bzero (f
->output_data
.x
, sizeof (struct x_output
));
4654 f
->output_data
.x
->icon_bitmap
= -1;
4655 FRAME_FONTSET (f
) = -1;
4656 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
4657 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
4658 #ifdef USE_TOOLKIT_SCROLL_BARS
4659 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
4660 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
4661 #endif /* USE_TOOLKIT_SCROLL_BARS */
4662 f
->icon_name
= Qnil
;
4663 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
4665 image_cache_refcount
= FRAME_X_IMAGE_CACHE (f
)->refcount
;
4666 dpyinfo_refcount
= dpyinfo
->reference_count
;
4667 #endif /* GLYPH_DEBUG */
4669 FRAME_KBOARD (f
) = kb
;
4671 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4672 f
->output_data
.x
->explicit_parent
= 0;
4674 /* These colors will be set anyway later, but it's important
4675 to get the color reference counts right, so initialize them! */
4678 struct gcpro gcpro1
;
4680 /* Function x_decode_color can signal an error. Make
4681 sure to initialize color slots so that we won't try
4682 to free colors we haven't allocated. */
4683 f
->output_data
.x
->foreground_pixel
= -1;
4684 f
->output_data
.x
->background_pixel
= -1;
4685 f
->output_data
.x
->cursor_pixel
= -1;
4686 f
->output_data
.x
->cursor_foreground_pixel
= -1;
4687 f
->output_data
.x
->border_pixel
= -1;
4688 f
->output_data
.x
->mouse_pixel
= -1;
4690 black
= build_string ("black");
4692 f
->output_data
.x
->foreground_pixel
4693 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4694 f
->output_data
.x
->background_pixel
4695 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4696 f
->output_data
.x
->cursor_pixel
4697 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4698 f
->output_data
.x
->cursor_foreground_pixel
4699 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4700 f
->output_data
.x
->border_pixel
4701 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4702 f
->output_data
.x
->mouse_pixel
4703 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4707 /* Set the name; the functions to which we pass f expect the name to
4709 if (EQ (name
, Qunbound
) || NILP (name
))
4711 f
->name
= build_string (dpyinfo
->x_id_name
);
4712 f
->explicit_name
= 0;
4717 f
->explicit_name
= 1;
4718 /* use the frame's title when getting resources for this frame. */
4719 specbind (Qx_resource_name
, name
);
4722 /* Extract the window parameters from the supplied values that are
4723 needed to determine window geometry. */
4727 font
= x_get_arg (dpyinfo
, parms
, Qfont
, "font", "Font", RES_TYPE_STRING
);
4730 /* First, try whatever font the caller has specified. */
4733 tem
= Fquery_fontset (font
, Qnil
);
4735 font
= x_new_fontset (f
, SDATA (tem
));
4737 font
= x_new_font (f
, SDATA (font
));
4740 /* Try out a font which we hope has bold and italic variations. */
4741 if (!STRINGP (font
))
4742 font
= x_new_font (f
, "-adobe-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-1");
4743 if (!STRINGP (font
))
4744 font
= x_new_font (f
, "-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-1");
4745 if (! STRINGP (font
))
4746 font
= x_new_font (f
, "-*-*-medium-r-normal-*-*-140-*-*-c-*-iso8859-1");
4747 if (! STRINGP (font
))
4748 /* This was formerly the first thing tried, but it finds too many fonts
4749 and takes too long. */
4750 font
= x_new_font (f
, "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1");
4751 /* If those didn't work, look for something which will at least work. */
4752 if (! STRINGP (font
))
4753 font
= x_new_font (f
, "-*-fixed-*-*-*-*-*-140-*-*-c-*-iso8859-1");
4755 if (! STRINGP (font
))
4756 font
= build_string ("fixed");
4758 x_default_parameter (f
, parms
, Qfont
, font
,
4759 "font", "Font", RES_TYPE_STRING
);
4762 x_default_parameter (f
, parms
, Qborder_width
, make_number (2),
4763 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
4765 /* This defaults to 2 in order to match xterm. We recognize either
4766 internalBorderWidth or internalBorder (which is what xterm calls
4768 if (NILP (Fassq (Qinternal_border_width
, parms
)))
4772 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
4773 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
4774 if (! EQ (value
, Qunbound
))
4775 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
4779 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
4780 "internalBorderWidth", "internalBorderWidth",
4783 /* Also do the stuff which must be set before the window exists. */
4784 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
4785 "foreground", "Foreground", RES_TYPE_STRING
);
4786 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
4787 "background", "Background", RES_TYPE_STRING
);
4788 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
4789 "pointerColor", "Foreground", RES_TYPE_STRING
);
4790 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
4791 "cursorColor", "Foreground", RES_TYPE_STRING
);
4792 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
4793 "borderColor", "BorderColor", RES_TYPE_STRING
);
4795 /* Init faces before x_default_parameter is called for scroll-bar
4796 parameters because that function calls x_set_scroll_bar_width,
4797 which calls change_frame_size, which calls Fset_window_buffer,
4798 which runs hooks, which call Fvertical_motion. At the end, we
4799 end up in init_iterator with a null face cache, which should not
4801 init_frame_faces (f
);
4803 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4805 window_prompting
= x_figure_window_size (f
, parms
, 0);
4808 XSetWindowAttributes attrs
;
4812 mask
= CWBackPixel
| CWOverrideRedirect
| CWEventMask
;
4813 if (DoesSaveUnders (dpyinfo
->screen
))
4814 mask
|= CWSaveUnder
;
4816 /* Window managers look at the override-redirect flag to determine
4817 whether or net to give windows a decoration (Xlib spec, chapter
4819 attrs
.override_redirect
= True
;
4820 attrs
.save_under
= True
;
4821 attrs
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
4822 /* Arrange for getting MapNotify and UnmapNotify events. */
4823 attrs
.event_mask
= StructureNotifyMask
;
4825 = FRAME_X_WINDOW (f
)
4826 = XCreateWindow (FRAME_X_DISPLAY (f
),
4827 FRAME_X_DISPLAY_INFO (f
)->root_window
,
4828 /* x, y, width, height */
4832 CopyFromParent
, InputOutput
, CopyFromParent
,
4839 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
4840 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4841 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
4842 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4843 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
4844 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
4846 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
4847 Change will not be effected unless different from the current
4849 width
= FRAME_COLS (f
);
4850 height
= FRAME_LINES (f
);
4851 SET_FRAME_COLS (f
, 0);
4852 FRAME_LINES (f
) = 0;
4853 change_frame_size (f
, height
, width
, 1, 0, 0);
4855 /* Add `tooltip' frame parameter's default value. */
4856 if (NILP (Fframe_parameter (frame
, intern ("tooltip"))))
4857 Fmodify_frame_parameters (frame
, Fcons (Fcons (intern ("tooltip"), Qt
),
4860 /* Set up faces after all frame parameters are known. This call
4861 also merges in face attributes specified for new frames.
4863 Frame parameters may be changed if .Xdefaults contains
4864 specifications for the default font. For example, if there is an
4865 `Emacs.default.attributeBackground: pink', the `background-color'
4866 attribute of the frame get's set, which let's the internal border
4867 of the tooltip frame appear in pink. Prevent this. */
4869 Lisp_Object bg
= Fframe_parameter (frame
, Qbackground_color
);
4871 /* Set tip_frame here, so that */
4873 call1 (Qface_set_after_frame_default
, frame
);
4875 if (!EQ (bg
, Fframe_parameter (frame
, Qbackground_color
)))
4876 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qbackground_color
, bg
),
4880 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qwindow_system
, Qx
), Qnil
));
4886 /* It is now ok to make the frame official even if we get an error
4887 below. And the frame needs to be on Vframe_list or making it
4888 visible won't work. */
4889 Vframe_list
= Fcons (frame
, Vframe_list
);
4891 /* Now that the frame is official, it counts as a reference to
4893 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
4895 /* Setting attributes of faces of the tooltip frame from resources
4896 and similar will increment face_change_count, which leads to the
4897 clearing of all current matrices. Since this isn't necessary
4898 here, avoid it by resetting face_change_count to the value it
4899 had before we created the tip frame. */
4900 face_change_count
= face_change_count_before
;
4902 /* Discard the unwind_protect. */
4903 return unbind_to (count
, frame
);
4907 /* Compute where to display tip frame F. PARMS is the list of frame
4908 parameters for F. DX and DY are specified offsets from the current
4909 location of the mouse. WIDTH and HEIGHT are the width and height
4910 of the tooltip. Return coordinates relative to the root window of
4911 the display in *ROOT_X, and *ROOT_Y. */
4914 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, root_x
, root_y
)
4916 Lisp_Object parms
, dx
, dy
;
4918 int *root_x
, *root_y
;
4920 Lisp_Object left
, top
;
4925 /* User-specified position? */
4926 left
= Fcdr (Fassq (Qleft
, parms
));
4927 top
= Fcdr (Fassq (Qtop
, parms
));
4929 /* Move the tooltip window where the mouse pointer is. Resize and
4931 if (!INTEGERP (left
) || !INTEGERP (top
))
4934 XQueryPointer (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
4935 &root
, &child
, root_x
, root_y
, &win_x
, &win_y
, &pmask
);
4940 *root_y
= XINT (top
);
4941 else if (*root_y
+ XINT (dy
) - height
< 0)
4942 *root_y
-= XINT (dy
);
4946 *root_y
+= XINT (dy
);
4949 if (INTEGERP (left
))
4950 *root_x
= XINT (left
);
4951 else if (*root_x
+ XINT (dx
) + width
<= FRAME_X_DISPLAY_INFO (f
)->width
)
4952 /* It fits to the right of the pointer. */
4953 *root_x
+= XINT (dx
);
4954 else if (width
+ XINT (dx
) <= *root_x
)
4955 /* It fits to the left of the pointer. */
4956 *root_x
-= width
+ XINT (dx
);
4958 /* Put it left-justified on the screen--it ought to fit that way. */
4963 DEFUN ("x-show-tip", Fx_show_tip
, Sx_show_tip
, 1, 6, 0,
4964 doc
: /* Show STRING in a "tooltip" window on frame FRAME.
4965 A tooltip window is a small X window displaying a string.
4967 FRAME nil or omitted means use the selected frame.
4969 PARMS is an optional list of frame parameters which can be used to
4970 change the tooltip's appearance.
4972 Automatically hide the tooltip after TIMEOUT seconds. TIMEOUT nil
4973 means use the default timeout of 5 seconds.
4975 If the list of frame parameters PARAMS contains a `left' parameters,
4976 the tooltip is displayed at that x-position. Otherwise it is
4977 displayed at the mouse position, with offset DX added (default is 5 if
4978 DX isn't specified). Likewise for the y-position; if a `top' frame
4979 parameter is specified, it determines the y-position of the tooltip
4980 window, otherwise it is displayed at the mouse position, with offset
4981 DY added (default is -10).
4983 A tooltip's maximum size is specified by `x-max-tooltip-size'.
4984 Text larger than the specified size is clipped. */)
4985 (string
, frame
, parms
, timeout
, dx
, dy
)
4986 Lisp_Object string
, frame
, parms
, timeout
, dx
, dy
;
4991 struct buffer
*old_buffer
;
4992 struct text_pos pos
;
4993 int i
, width
, height
;
4994 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
4995 int old_windows_or_buffers_changed
= windows_or_buffers_changed
;
4996 int count
= SPECPDL_INDEX ();
4998 specbind (Qinhibit_redisplay
, Qt
);
5000 GCPRO4 (string
, parms
, frame
, timeout
);
5002 CHECK_STRING (string
);
5003 f
= check_x_frame (frame
);
5005 timeout
= make_number (5);
5007 CHECK_NATNUM (timeout
);
5010 dx
= make_number (5);
5015 dy
= make_number (-10);
5019 if (NILP (last_show_tip_args
))
5020 last_show_tip_args
= Fmake_vector (make_number (3), Qnil
);
5022 if (!NILP (tip_frame
))
5024 Lisp_Object last_string
= AREF (last_show_tip_args
, 0);
5025 Lisp_Object last_frame
= AREF (last_show_tip_args
, 1);
5026 Lisp_Object last_parms
= AREF (last_show_tip_args
, 2);
5028 if (EQ (frame
, last_frame
)
5029 && !NILP (Fequal (last_string
, string
))
5030 && !NILP (Fequal (last_parms
, parms
)))
5032 struct frame
*f
= XFRAME (tip_frame
);
5034 /* Only DX and DY have changed. */
5035 if (!NILP (tip_timer
))
5037 Lisp_Object timer
= tip_timer
;
5039 call1 (Qcancel_timer
, timer
);
5043 compute_tip_xy (f
, parms
, dx
, dy
, FRAME_PIXEL_WIDTH (f
),
5044 FRAME_PIXEL_HEIGHT (f
), &root_x
, &root_y
);
5045 XMoveWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5052 /* Hide a previous tip, if any. */
5055 ASET (last_show_tip_args
, 0, string
);
5056 ASET (last_show_tip_args
, 1, frame
);
5057 ASET (last_show_tip_args
, 2, parms
);
5059 /* Add default values to frame parameters. */
5060 if (NILP (Fassq (Qname
, parms
)))
5061 parms
= Fcons (Fcons (Qname
, build_string ("tooltip")), parms
);
5062 if (NILP (Fassq (Qinternal_border_width
, parms
)))
5063 parms
= Fcons (Fcons (Qinternal_border_width
, make_number (3)), parms
);
5064 if (NILP (Fassq (Qborder_width
, parms
)))
5065 parms
= Fcons (Fcons (Qborder_width
, make_number (1)), parms
);
5066 if (NILP (Fassq (Qborder_color
, parms
)))
5067 parms
= Fcons (Fcons (Qborder_color
, build_string ("lightyellow")), parms
);
5068 if (NILP (Fassq (Qbackground_color
, parms
)))
5069 parms
= Fcons (Fcons (Qbackground_color
, build_string ("lightyellow")),
5072 /* Create a frame for the tooltip, and record it in the global
5073 variable tip_frame. */
5074 frame
= x_create_tip_frame (FRAME_X_DISPLAY_INFO (f
), parms
, string
);
5077 /* Set up the frame's root window. */
5078 w
= XWINDOW (FRAME_ROOT_WINDOW (f
));
5079 w
->left_col
= w
->top_line
= make_number (0);
5081 if (CONSP (Vx_max_tooltip_size
)
5082 && INTEGERP (XCAR (Vx_max_tooltip_size
))
5083 && XINT (XCAR (Vx_max_tooltip_size
)) > 0
5084 && INTEGERP (XCDR (Vx_max_tooltip_size
))
5085 && XINT (XCDR (Vx_max_tooltip_size
)) > 0)
5087 w
->total_cols
= XCAR (Vx_max_tooltip_size
);
5088 w
->total_lines
= XCDR (Vx_max_tooltip_size
);
5092 w
->total_cols
= make_number (80);
5093 w
->total_lines
= make_number (40);
5096 FRAME_TOTAL_COLS (f
) = XINT (w
->total_cols
);
5098 w
->pseudo_window_p
= 1;
5100 /* Display the tooltip text in a temporary buffer. */
5101 old_buffer
= current_buffer
;
5102 set_buffer_internal_1 (XBUFFER (XWINDOW (FRAME_ROOT_WINDOW (f
))->buffer
));
5103 current_buffer
->truncate_lines
= Qnil
;
5104 clear_glyph_matrix (w
->desired_matrix
);
5105 clear_glyph_matrix (w
->current_matrix
);
5106 SET_TEXT_POS (pos
, BEGV
, BEGV_BYTE
);
5107 try_window (FRAME_ROOT_WINDOW (f
), pos
);
5109 /* Compute width and height of the tooltip. */
5111 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
5113 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
5117 /* Stop at the first empty row at the end. */
5118 if (!row
->enabled_p
|| !row
->displays_text_p
)
5121 /* Let the row go over the full width of the frame. */
5122 row
->full_width_p
= 1;
5124 /* There's a glyph at the end of rows that is used to place
5125 the cursor there. Don't include the width of this glyph. */
5126 if (row
->used
[TEXT_AREA
])
5128 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
5129 row_width
= row
->pixel_width
- last
->pixel_width
;
5132 row_width
= row
->pixel_width
;
5134 height
+= row
->height
;
5135 width
= max (width
, row_width
);
5138 /* Add the frame's internal border to the width and height the X
5139 window should have. */
5140 height
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5141 width
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5143 /* Move the tooltip window where the mouse pointer is. Resize and
5145 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
5148 XMoveResizeWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5149 root_x
, root_y
, width
, height
);
5150 XMapRaised (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
));
5153 /* Draw into the window. */
5154 w
->must_be_updated_p
= 1;
5155 update_single_window (w
, 1);
5157 /* Restore original current buffer. */
5158 set_buffer_internal_1 (old_buffer
);
5159 windows_or_buffers_changed
= old_windows_or_buffers_changed
;
5162 /* Let the tip disappear after timeout seconds. */
5163 tip_timer
= call3 (intern ("run-at-time"), timeout
, Qnil
,
5164 intern ("x-hide-tip"));
5167 return unbind_to (count
, Qnil
);
5171 DEFUN ("x-hide-tip", Fx_hide_tip
, Sx_hide_tip
, 0, 0, 0,
5172 doc
: /* Hide the current tooltip window, if there is any.
5173 Value is t if tooltip was open, nil otherwise. */)
5177 Lisp_Object deleted
, frame
, timer
;
5178 struct gcpro gcpro1
, gcpro2
;
5180 /* Return quickly if nothing to do. */
5181 if (NILP (tip_timer
) && NILP (tip_frame
))
5186 GCPRO2 (frame
, timer
);
5187 tip_frame
= tip_timer
= deleted
= Qnil
;
5189 count
= SPECPDL_INDEX ();
5190 specbind (Qinhibit_redisplay
, Qt
);
5191 specbind (Qinhibit_quit
, Qt
);
5194 call1 (Qcancel_timer
, timer
);
5198 Fdelete_frame (frame
, Qnil
);
5202 /* Bloodcurdling hack alert: The Lucid menu bar widget's
5203 redisplay procedure is not called when a tip frame over menu
5204 items is unmapped. Redisplay the menu manually... */
5206 struct frame
*f
= SELECTED_FRAME ();
5207 Widget w
= f
->output_data
.x
->menubar_widget
;
5208 extern void xlwmenu_redisplay
P_ ((Widget
));
5210 if (!DoesSaveUnders (FRAME_X_DISPLAY_INFO (f
)->screen
)
5214 xlwmenu_redisplay (w
);
5218 #endif /* USE_LUCID */
5222 return unbind_to (count
, deleted
);
5227 /***********************************************************************
5228 File selection dialog
5229 ***********************************************************************/
5233 /* Callback for "OK" and "Cancel" on file selection dialog. */
5236 file_dialog_cb (widget
, client_data
, call_data
)
5238 XtPointer call_data
, client_data
;
5240 int *result
= (int *) client_data
;
5241 XmAnyCallbackStruct
*cb
= (XmAnyCallbackStruct
*) call_data
;
5242 *result
= cb
->reason
;
5246 /* Callback for unmapping a file selection dialog. This is used to
5247 capture the case where a dialog is closed via a window manager's
5248 closer button, for example. Using a XmNdestroyCallback didn't work
5252 file_dialog_unmap_cb (widget
, client_data
, call_data
)
5254 XtPointer call_data
, client_data
;
5256 int *result
= (int *) client_data
;
5257 *result
= XmCR_CANCEL
;
5261 clean_up_file_dialog (arg
)
5264 struct Lisp_Save_Value
*p
= XSAVE_VALUE (arg
);
5265 Widget dialog
= (Widget
) p
->pointer
;
5269 XtUnmanageChild (dialog
);
5270 XtDestroyWidget (dialog
);
5271 x_menu_set_in_use (0);
5278 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5279 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5280 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5281 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5282 or directory must exist. ONLY-DIR-P is ignored." */)
5283 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
)
5284 Lisp_Object prompt
, dir
, default_filename
, mustmatch
, only_dir_p
;
5287 struct frame
*f
= SELECTED_FRAME ();
5288 Lisp_Object file
= Qnil
;
5289 Widget dialog
, text
, help
;
5292 extern XtAppContext Xt_app_con
;
5293 XmString dir_xmstring
, pattern_xmstring
;
5294 int count
= SPECPDL_INDEX ();
5295 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5297 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5299 if (popup_activated ())
5300 error ("Trying to use a menu from within a menu-entry");
5302 CHECK_STRING (prompt
);
5305 /* Prevent redisplay. */
5306 specbind (Qinhibit_redisplay
, Qt
);
5310 /* Create the dialog with PROMPT as title, using DIR as initial
5311 directory and using "*" as pattern. */
5312 dir
= Fexpand_file_name (dir
, Qnil
);
5313 dir_xmstring
= XmStringCreateLocalized (SDATA (dir
));
5314 pattern_xmstring
= XmStringCreateLocalized ("*");
5316 XtSetArg (al
[ac
], XmNtitle
, SDATA (prompt
)); ++ac
;
5317 XtSetArg (al
[ac
], XmNdirectory
, dir_xmstring
); ++ac
;
5318 XtSetArg (al
[ac
], XmNpattern
, pattern_xmstring
); ++ac
;
5319 XtSetArg (al
[ac
], XmNresizePolicy
, XmRESIZE_GROW
); ++ac
;
5320 XtSetArg (al
[ac
], XmNdialogStyle
, XmDIALOG_APPLICATION_MODAL
); ++ac
;
5321 dialog
= XmCreateFileSelectionDialog (f
->output_data
.x
->widget
,
5323 XmStringFree (dir_xmstring
);
5324 XmStringFree (pattern_xmstring
);
5326 /* Add callbacks for OK and Cancel. */
5327 XtAddCallback (dialog
, XmNokCallback
, file_dialog_cb
,
5328 (XtPointer
) &result
);
5329 XtAddCallback (dialog
, XmNcancelCallback
, file_dialog_cb
,
5330 (XtPointer
) &result
);
5331 XtAddCallback (dialog
, XmNunmapCallback
, file_dialog_unmap_cb
,
5332 (XtPointer
) &result
);
5334 /* Remove the help button since we can't display help. */
5335 help
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_HELP_BUTTON
);
5336 XtUnmanageChild (help
);
5338 /* Mark OK button as default. */
5339 XtVaSetValues (XmFileSelectionBoxGetChild (dialog
, XmDIALOG_OK_BUTTON
),
5340 XmNshowAsDefault
, True
, NULL
);
5342 /* If MUSTMATCH is non-nil, disable the file entry field of the
5343 dialog, so that the user must select a file from the files list
5344 box. We can't remove it because we wouldn't have a way to get at
5345 the result file name, then. */
5346 text
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5347 if (!NILP (mustmatch
))
5350 label
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_SELECTION_LABEL
);
5351 XtSetSensitive (text
, False
);
5352 XtSetSensitive (label
, False
);
5355 /* Manage the dialog, so that list boxes get filled. */
5356 XtManageChild (dialog
);
5358 if (STRINGP (default_filename
))
5360 XmString default_xmstring
;
5361 Widget wtext
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5362 Widget list
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_LIST
);
5364 XmTextPosition last_pos
= XmTextFieldGetLastPosition (wtext
);
5365 XmTextFieldReplace (wtext
, 0, last_pos
,
5366 (SDATA (Ffile_name_nondirectory (default_filename
))));
5368 /* Select DEFAULT_FILENAME in the files list box. DEFAULT_FILENAME
5369 must include the path for this to work. */
5371 default_xmstring
= XmStringCreateLocalized (SDATA (default_filename
));
5373 if (XmListItemExists (list
, default_xmstring
))
5375 int item_pos
= XmListItemPos (list
, default_xmstring
);
5376 /* Select the item and scroll it into view. */
5377 XmListSelectPos (list
, item_pos
, True
);
5378 XmListSetPos (list
, item_pos
);
5381 XmStringFree (default_xmstring
);
5384 record_unwind_protect (clean_up_file_dialog
, make_save_value (dialog
, 0));
5386 /* Process events until the user presses Cancel or OK. */
5387 x_menu_set_in_use (1);
5392 x_menu_wait_for_event (0);
5393 XtAppNextEvent (Xt_app_con
, &event
);
5394 if (event
.type
== KeyPress
5395 && FRAME_X_DISPLAY (f
) == event
.xkey
.display
)
5397 KeySym keysym
= XLookupKeysym (&event
.xkey
, 0);
5399 /* Pop down on C-g. */
5400 if (keysym
== XK_g
&& (event
.xkey
.state
& ControlMask
) != 0)
5401 XtUnmanageChild (dialog
);
5404 (void) x_dispatch_event (&event
, FRAME_X_DISPLAY (f
));
5407 /* Get the result. */
5408 if (result
== XmCR_OK
)
5413 XtVaGetValues (dialog
, XmNtextString
, &text
, NULL
);
5414 XmStringGetLtoR (text
, XmFONTLIST_DEFAULT_TAG
, &data
);
5415 XmStringFree (text
);
5416 file
= build_string (data
);
5425 /* Make "Cancel" equivalent to C-g. */
5427 Fsignal (Qquit
, Qnil
);
5429 return unbind_to (count
, file
);
5432 #endif /* USE_MOTIF */
5437 clean_up_dialog (arg
)
5440 x_menu_set_in_use (0);
5445 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5446 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5447 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5448 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5449 or directory must exist. If ONLY-DIR-P is non-nil, the user can only select
5451 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
)
5452 Lisp_Object prompt
, dir
, default_filename
, mustmatch
, only_dir_p
;
5454 FRAME_PTR f
= SELECTED_FRAME ();
5456 Lisp_Object file
= Qnil
;
5457 int count
= SPECPDL_INDEX ();
5458 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5461 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5463 if (popup_activated ())
5464 error ("Trying to use a menu from within a menu-entry");
5466 CHECK_STRING (prompt
);
5469 /* Prevent redisplay. */
5470 specbind (Qinhibit_redisplay
, Qt
);
5471 record_unwind_protect (clean_up_dialog
, Qnil
);
5475 if (STRINGP (default_filename
))
5476 cdef_file
= SDATA (default_filename
);
5478 cdef_file
= SDATA (dir
);
5480 fn
= xg_get_file_name (f
, SDATA (prompt
), cdef_file
,
5482 ! NILP (only_dir_p
));
5486 file
= build_string (fn
);
5493 /* Make "Cancel" equivalent to C-g. */
5495 Fsignal (Qquit
, Qnil
);
5497 return unbind_to (count
, file
);
5500 #endif /* USE_GTK */
5503 /***********************************************************************
5505 ***********************************************************************/
5507 #ifdef HAVE_XKBGETKEYBOARD
5508 #include <X11/XKBlib.h>
5509 #include <X11/keysym.h>
5512 DEFUN ("x-backspace-delete-keys-p", Fx_backspace_delete_keys_p
,
5513 Sx_backspace_delete_keys_p
, 0, 1, 0,
5514 doc
: /* Check if both Backspace and Delete keys are on the keyboard of FRAME.
5515 FRAME nil means use the selected frame.
5516 Value is t if we know that both keys are present, and are mapped to the
5517 usual X keysyms. */)
5521 #ifdef HAVE_XKBGETKEYBOARD
5523 struct frame
*f
= check_x_frame (frame
);
5524 Display
*dpy
= FRAME_X_DISPLAY (f
);
5525 Lisp_Object have_keys
;
5526 int major
, minor
, op
, event
, error
;
5530 /* Check library version in case we're dynamically linked. */
5531 major
= XkbMajorVersion
;
5532 minor
= XkbMinorVersion
;
5533 if (!XkbLibraryVersion (&major
, &minor
))
5539 /* Check that the server supports XKB. */
5540 major
= XkbMajorVersion
;
5541 minor
= XkbMinorVersion
;
5542 if (!XkbQueryExtension (dpy
, &op
, &event
, &error
, &major
, &minor
))
5548 /* In this code we check that the keyboard has physical keys with names
5549 that start with BKSP (Backspace) and DELE (Delete), and that they
5550 generate keysym XK_BackSpace and XK_Delete respectively.
5551 This function is used to test if normal-erase-is-backspace should be
5553 An alternative approach would be to just check if XK_BackSpace and
5554 XK_Delete are mapped to any key. But if any of those are mapped to
5555 some non-intuitive key combination (Meta-Shift-Ctrl-whatever) and the
5556 user doesn't know about it, it is better to return false here.
5557 It is more obvious to the user what to do if she/he has two keys
5558 clearly marked with names/symbols and one key does something not
5559 expected (i.e. she/he then tries the other).
5560 The cases where Backspace/Delete is mapped to some other key combination
5561 are rare, and in those cases, normal-erase-is-backspace can be turned on
5565 kb
= XkbGetMap (dpy
, XkbAllMapComponentsMask
, XkbUseCoreKbd
);
5568 int delete_keycode
= 0, backspace_keycode
= 0, i
;
5570 if (XkbGetNames (dpy
, XkbAllNamesMask
, kb
) == Success
)
5572 for (i
= kb
->min_key_code
;
5573 (i
< kb
->max_key_code
5574 && (delete_keycode
== 0 || backspace_keycode
== 0));
5577 /* The XKB symbolic key names can be seen most easily in
5578 the PS file generated by `xkbprint -label name
5580 if (bcmp ("DELE", kb
->names
->keys
[i
].name
, 4) == 0)
5582 else if (bcmp ("BKSP", kb
->names
->keys
[i
].name
, 4) == 0)
5583 backspace_keycode
= i
;
5586 XkbFreeNames (kb
, 0, True
);
5589 XkbFreeClientMap (kb
, 0, True
);
5592 && backspace_keycode
5593 && XKeysymToKeycode (dpy
, XK_Delete
) == delete_keycode
5594 && XKeysymToKeycode (dpy
, XK_BackSpace
) == backspace_keycode
)
5599 #else /* not HAVE_XKBGETKEYBOARD */
5601 #endif /* not HAVE_XKBGETKEYBOARD */
5606 /***********************************************************************
5608 ***********************************************************************/
5610 /* Keep this list in the same order as frame_parms in frame.c.
5611 Use 0 for unsupported frame parameters. */
5613 frame_parm_handler x_frame_parm_handlers
[] =
5617 x_set_background_color
,
5623 x_set_foreground_color
,
5626 x_set_internal_border_width
,
5627 x_set_menu_bar_lines
,
5629 x_explicitly_set_name
,
5630 x_set_scroll_bar_width
,
5633 x_set_vertical_scroll_bars
,
5635 x_set_tool_bar_lines
,
5636 x_set_scroll_bar_foreground
,
5637 x_set_scroll_bar_background
,
5649 /* This is zero if not using X windows. */
5652 /* The section below is built by the lisp expression at the top of the file,
5653 just above where these variables are declared. */
5654 /*&&& init symbols here &&&*/
5655 Qnone
= intern ("none");
5657 Qsuppress_icon
= intern ("suppress-icon");
5658 staticpro (&Qsuppress_icon
);
5659 Qundefined_color
= intern ("undefined-color");
5660 staticpro (&Qundefined_color
);
5661 Qcompound_text
= intern ("compound-text");
5662 staticpro (&Qcompound_text
);
5663 Qcancel_timer
= intern ("cancel-timer");
5664 staticpro (&Qcancel_timer
);
5665 /* This is the end of symbol initialization. */
5667 /* Text property `display' should be nonsticky by default. */
5668 Vtext_property_default_nonsticky
5669 = Fcons (Fcons (Qdisplay
, Qt
), Vtext_property_default_nonsticky
);
5672 Fput (Qundefined_color
, Qerror_conditions
,
5673 Fcons (Qundefined_color
, Fcons (Qerror
, Qnil
)));
5674 Fput (Qundefined_color
, Qerror_message
,
5675 build_string ("Undefined color"));
5677 DEFVAR_LISP ("x-pointer-shape", &Vx_pointer_shape
,
5678 doc
: /* The shape of the pointer when over text.
5679 Changing the value does not affect existing frames
5680 unless you set the mouse color. */);
5681 Vx_pointer_shape
= Qnil
;
5683 #if 0 /* This doesn't really do anything. */
5684 DEFVAR_LISP ("x-nontext-pointer-shape", &Vx_nontext_pointer_shape
,
5685 doc
: /* The shape of the pointer when not over text.
5686 This variable takes effect when you create a new frame
5687 or when you set the mouse color. */);
5689 Vx_nontext_pointer_shape
= Qnil
;
5691 DEFVAR_LISP ("x-hourglass-pointer-shape", &Vx_hourglass_pointer_shape
,
5692 doc
: /* The shape of the pointer when Emacs is busy.
5693 This variable takes effect when you create a new frame
5694 or when you set the mouse color. */);
5695 Vx_hourglass_pointer_shape
= Qnil
;
5697 DEFVAR_BOOL ("display-hourglass", &display_hourglass_p
,
5698 doc
: /* Non-zero means Emacs displays an hourglass pointer on window systems. */);
5699 display_hourglass_p
= 1;
5701 DEFVAR_LISP ("hourglass-delay", &Vhourglass_delay
,
5702 doc
: /* *Seconds to wait before displaying an hourglass pointer.
5703 Value must be an integer or float. */);
5704 Vhourglass_delay
= make_number (DEFAULT_HOURGLASS_DELAY
);
5706 #if 0 /* This doesn't really do anything. */
5707 DEFVAR_LISP ("x-mode-pointer-shape", &Vx_mode_pointer_shape
,
5708 doc
: /* The shape of the pointer when over the mode line.
5709 This variable takes effect when you create a new frame
5710 or when you set the mouse color. */);
5712 Vx_mode_pointer_shape
= Qnil
;
5714 DEFVAR_LISP ("x-sensitive-text-pointer-shape",
5715 &Vx_sensitive_text_pointer_shape
,
5716 doc
: /* The shape of the pointer when over mouse-sensitive text.
5717 This variable takes effect when you create a new frame
5718 or when you set the mouse color. */);
5719 Vx_sensitive_text_pointer_shape
= Qnil
;
5721 DEFVAR_LISP ("x-window-horizontal-drag-cursor",
5722 &Vx_window_horizontal_drag_shape
,
5723 doc
: /* Pointer shape to use for indicating a window can be dragged horizontally.
5724 This variable takes effect when you create a new frame
5725 or when you set the mouse color. */);
5726 Vx_window_horizontal_drag_shape
= Qnil
;
5728 DEFVAR_LISP ("x-cursor-fore-pixel", &Vx_cursor_fore_pixel
,
5729 doc
: /* A string indicating the foreground color of the cursor box. */);
5730 Vx_cursor_fore_pixel
= Qnil
;
5732 DEFVAR_LISP ("x-max-tooltip-size", &Vx_max_tooltip_size
,
5733 doc
: /* Maximum size for tooltips. Value is a pair (COLUMNS . ROWS).
5734 Text larger than this is clipped. */);
5735 Vx_max_tooltip_size
= Fcons (make_number (80), make_number (40));
5737 DEFVAR_LISP ("x-no-window-manager", &Vx_no_window_manager
,
5738 doc
: /* Non-nil if no X window manager is in use.
5739 Emacs doesn't try to figure this out; this is always nil
5740 unless you set it to something else. */);
5741 /* We don't have any way to find this out, so set it to nil
5742 and maybe the user would like to set it to t. */
5743 Vx_no_window_manager
= Qnil
;
5745 DEFVAR_LISP ("x-pixel-size-width-font-regexp",
5746 &Vx_pixel_size_width_font_regexp
,
5747 doc
: /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'.
5749 Since Emacs gets width of a font matching with this regexp from
5750 PIXEL_SIZE field of the name, font finding mechanism gets faster for
5751 such a font. This is especially effective for such large fonts as
5752 Chinese, Japanese, and Korean. */);
5753 Vx_pixel_size_width_font_regexp
= Qnil
;
5755 /* This is not ifdef:ed, so other builds than GTK can customize it. */
5756 DEFVAR_BOOL ("x-use-old-gtk-file-dialog", &x_use_old_gtk_file_dialog
,
5757 doc
: /* *Non-nil means prompt with the old GTK file selection dialog.
5758 If nil or if the file selection dialog is not available, the new GTK file
5759 chooser is used instead. To turn off all file dialogs set the
5760 variable `use-file-dialog'. */);
5761 x_use_old_gtk_file_dialog
= 0;
5763 #ifdef USE_X_TOOLKIT
5764 Fprovide (intern ("x-toolkit"), Qnil
);
5766 Fprovide (intern ("motif"), Qnil
);
5768 DEFVAR_LISP ("motif-version-string", &Vmotif_version_string
,
5769 doc
: /* Version info for LessTif/Motif. */);
5770 Vmotif_version_string
= build_string (XmVERSION_STRING
);
5771 #endif /* USE_MOTIF */
5772 #endif /* USE_X_TOOLKIT */
5775 /* Provide x-toolkit also for GTK. Internally GTK does not use Xt so it
5776 is not an X toolkit in that sense (USE_X_TOOLKIT is not defined).
5777 But for a user it is a toolkit for X, and indeed, configure
5778 accepts --with-x-toolkit=gtk. */
5779 Fprovide (intern ("x-toolkit"), Qnil
);
5780 Fprovide (intern ("gtk"), Qnil
);
5782 DEFVAR_LISP ("gtk-version-string", &Vgtk_version_string
,
5783 doc
: /* Version info for GTK+. */);
5785 char gtk_version
[40];
5786 g_snprintf (gtk_version
, sizeof (gtk_version
), "%u.%u.%u",
5787 GTK_MAJOR_VERSION
, GTK_MINOR_VERSION
, GTK_MICRO_VERSION
);
5788 Vgtk_version_string
= build_string (gtk_version
);
5790 #endif /* USE_GTK */
5792 /* X window properties. */
5793 defsubr (&Sx_change_window_property
);
5794 defsubr (&Sx_delete_window_property
);
5795 defsubr (&Sx_window_property
);
5797 defsubr (&Sxw_display_color_p
);
5798 defsubr (&Sx_display_grayscale_p
);
5799 defsubr (&Sxw_color_defined_p
);
5800 defsubr (&Sxw_color_values
);
5801 defsubr (&Sx_server_max_request_size
);
5802 defsubr (&Sx_server_vendor
);
5803 defsubr (&Sx_server_version
);
5804 defsubr (&Sx_display_pixel_width
);
5805 defsubr (&Sx_display_pixel_height
);
5806 defsubr (&Sx_display_mm_width
);
5807 defsubr (&Sx_display_mm_height
);
5808 defsubr (&Sx_display_screens
);
5809 defsubr (&Sx_display_planes
);
5810 defsubr (&Sx_display_color_cells
);
5811 defsubr (&Sx_display_visual_class
);
5812 defsubr (&Sx_display_backing_store
);
5813 defsubr (&Sx_display_save_under
);
5814 defsubr (&Sx_create_frame
);
5815 defsubr (&Sx_open_connection
);
5816 defsubr (&Sx_close_connection
);
5817 defsubr (&Sx_display_list
);
5818 defsubr (&Sx_synchronize
);
5819 defsubr (&Sx_focus_frame
);
5820 defsubr (&Sx_backspace_delete_keys_p
);
5822 /* Setting callback functions for fontset handler. */
5823 get_font_info_func
= x_get_font_info
;
5825 #if 0 /* This function pointer doesn't seem to be used anywhere.
5826 And the pointer assigned has the wrong type, anyway. */
5827 list_fonts_func
= x_list_fonts
;
5830 load_font_func
= x_load_font
;
5831 find_ccl_program_func
= x_find_ccl_program
;
5832 query_font_func
= x_query_font
;
5833 set_frame_fontset_func
= x_set_font
;
5834 check_window_system_func
= check_x
;
5836 hourglass_atimer
= NULL
;
5837 hourglass_shown_p
= 0;
5839 defsubr (&Sx_show_tip
);
5840 defsubr (&Sx_hide_tip
);
5842 staticpro (&tip_timer
);
5844 staticpro (&tip_frame
);
5846 last_show_tip_args
= Qnil
;
5847 staticpro (&last_show_tip_args
);
5849 #if defined (USE_MOTIF) || defined (USE_GTK)
5850 defsubr (&Sx_file_dialog
);
5854 #endif /* HAVE_X_WINDOWS */
5856 /* arch-tag: 55040d02-5485-4d58-8b22-95a7a05f3288
5857 (do not change this comment) */