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, Inc.
5 This file is part of GNU Emacs.
7 GNU Emacs is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 2, or (at your option)
12 GNU Emacs is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with GNU Emacs; see the file COPYING. If not, write to
19 the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
20 Boston, MA 02110-1301, USA. */
30 /* This makes the fields of a Display accessible, in Xlib header files. */
32 #define XLIB_ILLEGAL_ACCESS
39 #include "intervals.h"
40 #include "dispextern.h"
42 #include "blockinput.h"
48 #include "termhooks.h"
55 #include <sys/types.h>
59 #if 1 /* Used to be #ifdef EMACS_BITMAP_FILES, but this should always work. */
60 #include "bitmaps/gray.xbm"
62 #include <X11/bitmaps/gray>
65 #include "[.bitmaps]gray.xbm"
73 #include <X11/Shell.h>
76 #include <X11/Xaw/Paned.h>
77 #include <X11/Xaw/Label.h>
78 #endif /* USE_MOTIF */
81 #undef USG /* ####KLUDGE for Solaris 2.2 and up */
90 #include "../lwlib/lwlib.h"
94 #include <Xm/DialogS.h>
95 #include <Xm/FileSB.h>
98 /* Do the EDITRES protocol if running X11R5
99 Exception: HP-UX (at least version A.09.05) has X11R5 without EditRes */
101 #if (XtSpecificationRelease >= 5) && !defined(NO_EDITRES)
103 extern void _XEditResCheckMessages ();
104 #endif /* R5 + Athena */
106 /* Unique id counter for widgets created by the Lucid Widget Library. */
108 extern LWLIB_ID widget_id_tick
;
111 /* This is part of a kludge--see lwlib/xlwmenu.c. */
112 extern XFontStruct
*xlwmenu_default_font
;
115 extern void free_frame_menubar ();
116 extern double atof ();
120 /* LessTif/Motif version info. */
122 static Lisp_Object Vmotif_version_string
;
124 #endif /* USE_MOTIF */
126 #endif /* USE_X_TOOLKIT */
130 /* GTK+ version info */
132 static Lisp_Object Vgtk_version_string
;
137 #define MAXREQUEST(dpy) (XMaxRequestSize (dpy))
139 #define MAXREQUEST(dpy) ((dpy)->max_request_size)
142 /* The gray bitmap `bitmaps/gray'. This is done because xterm.c uses
143 it, and including `bitmaps/gray' more than once is a problem when
144 config.h defines `static' as an empty replacement string. */
146 int gray_bitmap_width
= gray_width
;
147 int gray_bitmap_height
= gray_height
;
148 char *gray_bitmap_bits
= gray_bits
;
150 /* Non-zero means we're allowed to display an hourglass cursor. */
152 int display_hourglass_p
;
154 /* Non-zero means prompt with the old GTK file selection dialog. */
156 int x_use_old_gtk_file_dialog
;
158 /* The background and shape of the mouse pointer, and shape when not
159 over text or in the modeline. */
161 Lisp_Object Vx_pointer_shape
, Vx_nontext_pointer_shape
, Vx_mode_pointer_shape
;
162 Lisp_Object Vx_hourglass_pointer_shape
;
164 /* The shape when over mouse-sensitive text. */
166 Lisp_Object Vx_sensitive_text_pointer_shape
;
168 /* If non-nil, the pointer shape to indicate that windows can be
169 dragged horizontally. */
171 Lisp_Object Vx_window_horizontal_drag_shape
;
173 /* Color of chars displayed in cursor box. */
175 Lisp_Object Vx_cursor_fore_pixel
;
177 /* Nonzero if using X. */
181 /* Non nil if no window manager is in use. */
183 Lisp_Object Vx_no_window_manager
;
185 /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'. */
187 Lisp_Object Vx_pixel_size_width_font_regexp
;
190 Lisp_Object Qsuppress_icon
;
191 Lisp_Object Qundefined_color
;
192 Lisp_Object Qcompound_text
, Qcancel_timer
;
196 extern Lisp_Object Vwindow_system_version
;
198 /* The below are defined in frame.c. */
201 int image_cache_refcount
, dpyinfo_refcount
;
206 /* Error if we are not connected to X. */
212 error ("X windows are not in use or not initialized");
215 /* Nonzero if we can use mouse menus.
216 You should not call this unless HAVE_MENUS is defined. */
224 /* Extract a frame as a FRAME_PTR, defaulting to the selected frame
225 and checking validity for X. */
228 check_x_frame (frame
)
234 frame
= selected_frame
;
235 CHECK_LIVE_FRAME (frame
);
238 error ("Non-X frame used");
242 /* Let the user specify an X display with a Lisp object.
243 OBJECT may be nil, a frame or a device id.
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 (object
)
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 (object
))
266 struct device
*d
= get_device (XINT (object
), 1);
268 if (d
->type
!= output_x_window
)
269 error ("Display %d is not an X display", XINT (object
));
271 dpyinfo
= d
->display_info
.x
;
273 else if (STRINGP (object
))
274 dpyinfo
= x_display_info_for_name (object
);
277 FRAME_PTR f
= check_x_frame (object
);
278 dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
285 /* Return the Emacs frame-object corresponding to an X window.
286 It could be the frame's main window or an icon window. */
288 /* This function can be called during GC, so use GC_xxx type test macros. */
291 x_window_to_frame (dpyinfo
, wdesc
)
292 struct x_display_info
*dpyinfo
;
295 Lisp_Object tail
, frame
;
298 if (wdesc
== None
) return 0;
300 for (tail
= Vframe_list
; GC_CONSP (tail
); tail
= XCDR (tail
))
303 if (!GC_FRAMEP (frame
))
306 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
308 if (f
->output_data
.x
->hourglass_window
== wdesc
)
311 if ((f
->output_data
.x
->edit_widget
312 && XtWindow (f
->output_data
.x
->edit_widget
) == wdesc
)
313 /* A tooltip frame? */
314 || (!f
->output_data
.x
->edit_widget
315 && FRAME_X_WINDOW (f
) == wdesc
)
316 || f
->output_data
.x
->icon_desc
== wdesc
)
318 #else /* not USE_X_TOOLKIT */
320 if (f
->output_data
.x
->edit_widget
)
322 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
323 struct x_output
*x
= f
->output_data
.x
;
324 if (gwdesc
!= 0 && gwdesc
== x
->edit_widget
)
328 if (FRAME_X_WINDOW (f
) == wdesc
329 || f
->output_data
.x
->icon_desc
== wdesc
)
331 #endif /* not USE_X_TOOLKIT */
336 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
337 /* Like x_window_to_frame but also compares the window with the widget's
341 x_any_window_to_frame (dpyinfo
, wdesc
)
342 struct x_display_info
*dpyinfo
;
345 Lisp_Object tail
, frame
;
346 struct frame
*f
, *found
;
349 if (wdesc
== None
) return NULL
;
352 for (tail
= Vframe_list
; GC_CONSP (tail
) && !found
; tail
= XCDR (tail
))
355 if (!GC_FRAMEP (frame
))
359 if (FRAME_X_P (f
) && FRAME_X_DISPLAY_INFO (f
) == dpyinfo
)
361 /* This frame matches if the window is any of its widgets. */
362 x
= f
->output_data
.x
;
363 if (x
->hourglass_window
== wdesc
)
368 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
370 && (gwdesc
== x
->widget
371 || gwdesc
== x
->edit_widget
372 || gwdesc
== x
->vbox_widget
373 || gwdesc
== x
->menubar_widget
))
376 if (wdesc
== XtWindow (x
->widget
)
377 || wdesc
== XtWindow (x
->column_widget
)
378 || wdesc
== XtWindow (x
->edit_widget
))
380 /* Match if the window is this frame's menubar. */
381 else if (lw_window_is_in_menubar (wdesc
, x
->menubar_widget
))
385 else if (FRAME_X_WINDOW (f
) == wdesc
)
386 /* A tooltip frame. */
394 /* Likewise, but exclude the menu bar widget. */
397 x_non_menubar_window_to_frame (dpyinfo
, wdesc
)
398 struct x_display_info
*dpyinfo
;
401 Lisp_Object tail
, frame
;
405 if (wdesc
== None
) return 0;
407 for (tail
= Vframe_list
; GC_CONSP (tail
); tail
= XCDR (tail
))
410 if (!GC_FRAMEP (frame
))
413 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
415 x
= f
->output_data
.x
;
416 /* This frame matches if the window is any of its widgets. */
417 if (x
->hourglass_window
== wdesc
)
422 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
424 && (gwdesc
== x
->widget
425 || gwdesc
== x
->edit_widget
426 || gwdesc
== x
->vbox_widget
))
429 if (wdesc
== XtWindow (x
->widget
)
430 || wdesc
== XtWindow (x
->column_widget
)
431 || wdesc
== XtWindow (x
->edit_widget
))
435 else if (FRAME_X_WINDOW (f
) == wdesc
)
436 /* A tooltip frame. */
442 /* Likewise, but consider only the menu bar widget. */
445 x_menubar_window_to_frame (dpyinfo
, wdesc
)
446 struct x_display_info
*dpyinfo
;
449 Lisp_Object tail
, frame
;
453 if (wdesc
== None
) return 0;
455 for (tail
= Vframe_list
; GC_CONSP (tail
); tail
= XCDR (tail
))
458 if (!GC_FRAMEP (frame
))
461 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
463 x
= f
->output_data
.x
;
464 /* Match if the window is this frame's menubar. */
466 if (x
->menubar_widget
)
468 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
473 && (gwdesc
== x
->menubar_widget
474 || gtk_widget_get_parent (gwdesc
) == x
->menubar_widget
))
480 if (x
->menubar_widget
481 && lw_window_is_in_menubar (wdesc
, x
->menubar_widget
))
488 /* Return the frame whose principal (outermost) window is WDESC.
489 If WDESC is some other (smaller) window, we return 0. */
492 x_top_window_to_frame (dpyinfo
, wdesc
)
493 struct x_display_info
*dpyinfo
;
496 Lisp_Object tail
, frame
;
500 if (wdesc
== None
) return 0;
502 for (tail
= Vframe_list
; GC_CONSP (tail
); tail
= XCDR (tail
))
505 if (!GC_FRAMEP (frame
))
508 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
510 x
= f
->output_data
.x
;
514 /* This frame matches if the window is its topmost widget. */
516 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
517 if (gwdesc
== x
->widget
)
520 if (wdesc
== XtWindow (x
->widget
))
522 #if 0 /* I don't know why it did this,
523 but it seems logically wrong,
524 and it causes trouble for MapNotify events. */
525 /* Match if the window is this frame's menubar. */
526 if (x
->menubar_widget
527 && wdesc
== XtWindow (x
->menubar_widget
))
532 else if (FRAME_X_WINDOW (f
) == wdesc
)
538 #endif /* USE_X_TOOLKIT || USE_GTK */
542 static Lisp_Object unwind_create_frame
P_ ((Lisp_Object
));
543 static Lisp_Object unwind_create_tip_frame
P_ ((Lisp_Object
));
545 void x_set_foreground_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
546 static void x_set_wait_for_wm
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
547 void x_set_background_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
548 void x_set_mouse_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
549 void x_set_cursor_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
550 void x_set_border_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
551 void x_set_cursor_type
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
552 void x_set_icon_type
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
553 void x_set_icon_name
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
554 void x_explicitly_set_name
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
555 void x_set_menu_bar_lines
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
556 void x_set_title
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
557 void x_set_tool_bar_lines
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
558 void x_set_scroll_bar_foreground
P_ ((struct frame
*, Lisp_Object
,
560 void x_set_scroll_bar_background
P_ ((struct frame
*, Lisp_Object
,
562 static Lisp_Object x_default_scroll_bar_color_parameter
P_ ((struct frame
*,
569 /* Store the screen positions of frame F into XPTR and YPTR.
570 These are the positions of the containing window manager window,
571 not Emacs's own window. */
574 x_real_positions (f
, xptr
, yptr
)
578 int win_x
, win_y
, outer_x
, outer_y
;
579 int real_x
= 0, real_y
= 0;
581 Window win
= f
->output_data
.x
->parent_desc
;
587 count
= x_catch_errors (FRAME_X_DISPLAY (f
));
589 if (win
== FRAME_X_DISPLAY_INFO (f
)->root_window
)
590 win
= FRAME_OUTER_WINDOW (f
);
592 /* This loop traverses up the containment tree until we hit the root
593 window. Window managers may intersect many windows between our window
594 and the root window. The window we find just before the root window
595 should be the outer WM window. */
598 Window wm_window
, rootw
;
599 Window
*tmp_children
;
600 unsigned int tmp_nchildren
;
603 success
= XQueryTree (FRAME_X_DISPLAY (f
), win
, &rootw
,
604 &wm_window
, &tmp_children
, &tmp_nchildren
);
606 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
608 /* Don't free tmp_children if XQueryTree failed. */
612 XFree ((char *) tmp_children
);
614 if (wm_window
== rootw
|| had_errors
)
625 /* Get the real coordinates for the WM window upper left corner */
626 XGetGeometry (FRAME_X_DISPLAY (f
), win
,
627 &rootw
, &real_x
, &real_y
, &ign
, &ign
, &ign
, &ign
);
629 /* Translate real coordinates to coordinates relative to our
630 window. For our window, the upper left corner is 0, 0.
631 Since the upper left corner of the WM window is outside
632 our window, win_x and win_y will be negative:
634 ------------------ ---> x
636 | ----------------- v y
639 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
641 /* From-window, to-window. */
642 FRAME_X_DISPLAY_INFO (f
)->root_window
,
645 /* From-position, to-position. */
646 real_x
, real_y
, &win_x
, &win_y
,
651 if (FRAME_X_WINDOW (f
) == FRAME_OUTER_WINDOW (f
))
658 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
660 /* From-window, to-window. */
661 FRAME_X_DISPLAY_INFO (f
)->root_window
,
662 FRAME_OUTER_WINDOW (f
),
664 /* From-position, to-position. */
665 real_x
, real_y
, &outer_x
, &outer_y
,
671 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
674 x_uncatch_errors (FRAME_X_DISPLAY (f
), count
);
678 if (had_errors
) return;
680 f
->x_pixels_diff
= -win_x
;
681 f
->y_pixels_diff
= -win_y
;
683 FRAME_X_OUTPUT (f
)->x_pixels_outer_diff
= -outer_x
;
684 FRAME_X_OUTPUT (f
)->y_pixels_outer_diff
= -outer_y
;
693 /* Gamma-correct COLOR on frame F. */
696 gamma_correct (f
, color
)
702 color
->red
= pow (color
->red
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
703 color
->green
= pow (color
->green
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
704 color
->blue
= pow (color
->blue
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
709 /* Decide if color named COLOR_NAME is valid for use on frame F. If
710 so, return the RGB values in COLOR. If ALLOC_P is non-zero,
711 allocate the color. Value is zero if COLOR_NAME is invalid, or
712 no color could be allocated. */
715 x_defined_color (f
, color_name
, color
, alloc_p
)
722 Display
*dpy
= FRAME_X_DISPLAY (f
);
723 Colormap cmap
= FRAME_X_COLORMAP (f
);
726 success_p
= XParseColor (dpy
, cmap
, color_name
, color
);
727 if (success_p
&& alloc_p
)
728 success_p
= x_alloc_nearest_color (f
, cmap
, color
);
735 /* Return the pixel color value for color COLOR_NAME on frame F. If F
736 is a monochrome frame, return MONO_COLOR regardless of what ARG says.
737 Signal an error if color can't be allocated. */
740 x_decode_color (f
, color_name
, mono_color
)
742 Lisp_Object color_name
;
747 CHECK_STRING (color_name
);
749 #if 0 /* Don't do this. It's wrong when we're not using the default
750 colormap, it makes freeing difficult, and it's probably not
751 an important optimization. */
752 if (strcmp (SDATA (color_name
), "black") == 0)
753 return BLACK_PIX_DEFAULT (f
);
754 else if (strcmp (SDATA (color_name
), "white") == 0)
755 return WHITE_PIX_DEFAULT (f
);
758 /* Return MONO_COLOR for monochrome frames. */
759 if (FRAME_X_DISPLAY_INFO (f
)->n_planes
== 1)
762 /* x_defined_color is responsible for coping with failures
763 by looking for a near-miss. */
764 if (x_defined_color (f
, SDATA (color_name
), &cdef
, 1))
767 Fsignal (Qerror
, Fcons (build_string ("Undefined color"),
768 Fcons (color_name
, Qnil
)));
774 /* Change the `wait-for-wm' frame parameter of frame F. OLD_VALUE is
775 the previous value of that parameter, NEW_VALUE is the new value.
776 See also the comment of wait_for_wm in struct x_output. */
779 x_set_wait_for_wm (f
, new_value
, old_value
)
781 Lisp_Object new_value
, old_value
;
783 f
->output_data
.x
->wait_for_wm
= !NILP (new_value
);
788 /* Set icon from FILE for frame F. By using GTK functions the icon
789 may be any format that GdkPixbuf knows about, i.e. not just bitmaps. */
792 xg_set_icon (f
, file
)
802 found
= x_find_image_file (file
);
810 filename
= SDATA (found
);
813 pixbuf
= gdk_pixbuf_new_from_file (filename
, &err
);
817 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
819 g_object_unref (pixbuf
);
835 /* Functions called only from `x_set_frame_param'
836 to set individual parameters.
838 If FRAME_X_WINDOW (f) is 0,
839 the frame is being created and its X-window does not exist yet.
840 In that case, just record the parameter's new value
841 in the standard place; do not attempt to change the window. */
844 x_set_foreground_color (f
, arg
, oldval
)
846 Lisp_Object arg
, oldval
;
848 struct x_output
*x
= f
->output_data
.x
;
849 unsigned long fg
, old_fg
;
851 fg
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
852 old_fg
= x
->foreground_pixel
;
853 x
->foreground_pixel
= fg
;
855 if (FRAME_X_WINDOW (f
) != 0)
857 Display
*dpy
= FRAME_X_DISPLAY (f
);
860 XSetForeground (dpy
, x
->normal_gc
, fg
);
861 XSetBackground (dpy
, x
->reverse_gc
, fg
);
863 if (x
->cursor_pixel
== old_fg
)
865 unload_color (f
, x
->cursor_pixel
);
866 x
->cursor_pixel
= x_copy_color (f
, fg
);
867 XSetBackground (dpy
, x
->cursor_gc
, x
->cursor_pixel
);
872 update_face_from_frame_parameter (f
, Qforeground_color
, arg
);
874 if (FRAME_VISIBLE_P (f
))
878 unload_color (f
, old_fg
);
882 x_set_background_color (f
, arg
, oldval
)
884 Lisp_Object arg
, oldval
;
886 struct x_output
*x
= f
->output_data
.x
;
889 bg
= x_decode_color (f
, arg
, WHITE_PIX_DEFAULT (f
));
890 unload_color (f
, x
->background_pixel
);
891 x
->background_pixel
= bg
;
893 if (FRAME_X_WINDOW (f
) != 0)
895 Display
*dpy
= FRAME_X_DISPLAY (f
);
898 XSetBackground (dpy
, x
->normal_gc
, bg
);
899 XSetForeground (dpy
, x
->reverse_gc
, bg
);
900 XSetWindowBackground (dpy
, FRAME_X_WINDOW (f
), bg
);
901 XSetForeground (dpy
, x
->cursor_gc
, bg
);
904 xg_set_background_color (f
, bg
);
907 #ifndef USE_TOOLKIT_SCROLL_BARS /* Turns out to be annoying with
908 toolkit scroll bars. */
911 for (bar
= FRAME_SCROLL_BARS (f
);
913 bar
= XSCROLL_BAR (bar
)->next
)
915 Window window
= SCROLL_BAR_X_WINDOW (XSCROLL_BAR (bar
));
916 XSetWindowBackground (dpy
, window
, bg
);
919 #endif /* USE_TOOLKIT_SCROLL_BARS */
922 update_face_from_frame_parameter (f
, Qbackground_color
, arg
);
924 if (FRAME_VISIBLE_P (f
))
930 x_set_mouse_color (f
, arg
, oldval
)
932 Lisp_Object arg
, oldval
;
934 struct x_output
*x
= f
->output_data
.x
;
935 Display
*dpy
= FRAME_X_DISPLAY (f
);
936 Cursor cursor
, nontext_cursor
, mode_cursor
, hand_cursor
;
937 Cursor hourglass_cursor
, horizontal_drag_cursor
;
939 unsigned long pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
940 unsigned long mask_color
= x
->background_pixel
;
942 /* Don't let pointers be invisible. */
943 if (mask_color
== pixel
)
945 x_free_colors (f
, &pixel
, 1);
946 pixel
= x_copy_color (f
, x
->foreground_pixel
);
949 unload_color (f
, x
->mouse_pixel
);
950 x
->mouse_pixel
= pixel
;
954 /* It's not okay to crash if the user selects a screwy cursor. */
955 count
= x_catch_errors (dpy
);
957 if (!NILP (Vx_pointer_shape
))
959 CHECK_NUMBER (Vx_pointer_shape
);
960 cursor
= XCreateFontCursor (dpy
, XINT (Vx_pointer_shape
));
963 cursor
= XCreateFontCursor (dpy
, XC_xterm
);
964 x_check_errors (dpy
, "bad text pointer cursor: %s");
966 if (!NILP (Vx_nontext_pointer_shape
))
968 CHECK_NUMBER (Vx_nontext_pointer_shape
);
970 = XCreateFontCursor (dpy
, XINT (Vx_nontext_pointer_shape
));
973 nontext_cursor
= XCreateFontCursor (dpy
, XC_left_ptr
);
974 x_check_errors (dpy
, "bad nontext pointer cursor: %s");
976 if (!NILP (Vx_hourglass_pointer_shape
))
978 CHECK_NUMBER (Vx_hourglass_pointer_shape
);
980 = XCreateFontCursor (dpy
, XINT (Vx_hourglass_pointer_shape
));
983 hourglass_cursor
= XCreateFontCursor (dpy
, XC_watch
);
984 x_check_errors (dpy
, "bad hourglass pointer cursor: %s");
986 if (!NILP (Vx_mode_pointer_shape
))
988 CHECK_NUMBER (Vx_mode_pointer_shape
);
989 mode_cursor
= XCreateFontCursor (dpy
, XINT (Vx_mode_pointer_shape
));
992 mode_cursor
= XCreateFontCursor (dpy
, XC_xterm
);
993 x_check_errors (dpy
, "bad modeline pointer cursor: %s");
995 if (!NILP (Vx_sensitive_text_pointer_shape
))
997 CHECK_NUMBER (Vx_sensitive_text_pointer_shape
);
999 = XCreateFontCursor (dpy
, XINT (Vx_sensitive_text_pointer_shape
));
1002 hand_cursor
= XCreateFontCursor (dpy
, XC_hand2
);
1004 if (!NILP (Vx_window_horizontal_drag_shape
))
1006 CHECK_NUMBER (Vx_window_horizontal_drag_shape
);
1007 horizontal_drag_cursor
1008 = XCreateFontCursor (dpy
, XINT (Vx_window_horizontal_drag_shape
));
1011 horizontal_drag_cursor
1012 = XCreateFontCursor (dpy
, XC_sb_h_double_arrow
);
1014 /* Check and report errors with the above calls. */
1015 x_check_errors (dpy
, "can't set cursor shape: %s");
1016 x_uncatch_errors (dpy
, count
);
1019 XColor fore_color
, back_color
;
1021 fore_color
.pixel
= x
->mouse_pixel
;
1022 x_query_color (f
, &fore_color
);
1023 back_color
.pixel
= mask_color
;
1024 x_query_color (f
, &back_color
);
1026 XRecolorCursor (dpy
, cursor
, &fore_color
, &back_color
);
1027 XRecolorCursor (dpy
, nontext_cursor
, &fore_color
, &back_color
);
1028 XRecolorCursor (dpy
, mode_cursor
, &fore_color
, &back_color
);
1029 XRecolorCursor (dpy
, hand_cursor
, &fore_color
, &back_color
);
1030 XRecolorCursor (dpy
, hourglass_cursor
, &fore_color
, &back_color
);
1031 XRecolorCursor (dpy
, horizontal_drag_cursor
, &fore_color
, &back_color
);
1034 if (FRAME_X_WINDOW (f
) != 0)
1035 XDefineCursor (dpy
, FRAME_X_WINDOW (f
), cursor
);
1037 if (cursor
!= x
->text_cursor
1038 && x
->text_cursor
!= 0)
1039 XFreeCursor (dpy
, x
->text_cursor
);
1040 x
->text_cursor
= cursor
;
1042 if (nontext_cursor
!= x
->nontext_cursor
1043 && x
->nontext_cursor
!= 0)
1044 XFreeCursor (dpy
, x
->nontext_cursor
);
1045 x
->nontext_cursor
= nontext_cursor
;
1047 if (hourglass_cursor
!= x
->hourglass_cursor
1048 && x
->hourglass_cursor
!= 0)
1049 XFreeCursor (dpy
, x
->hourglass_cursor
);
1050 x
->hourglass_cursor
= hourglass_cursor
;
1052 if (mode_cursor
!= x
->modeline_cursor
1053 && x
->modeline_cursor
!= 0)
1054 XFreeCursor (dpy
, f
->output_data
.x
->modeline_cursor
);
1055 x
->modeline_cursor
= mode_cursor
;
1057 if (hand_cursor
!= x
->hand_cursor
1058 && x
->hand_cursor
!= 0)
1059 XFreeCursor (dpy
, x
->hand_cursor
);
1060 x
->hand_cursor
= hand_cursor
;
1062 if (horizontal_drag_cursor
!= x
->horizontal_drag_cursor
1063 && x
->horizontal_drag_cursor
!= 0)
1064 XFreeCursor (dpy
, x
->horizontal_drag_cursor
);
1065 x
->horizontal_drag_cursor
= horizontal_drag_cursor
;
1070 update_face_from_frame_parameter (f
, Qmouse_color
, arg
);
1074 x_set_cursor_color (f
, arg
, oldval
)
1076 Lisp_Object arg
, oldval
;
1078 unsigned long fore_pixel
, pixel
;
1079 int fore_pixel_allocated_p
= 0, pixel_allocated_p
= 0;
1080 struct x_output
*x
= f
->output_data
.x
;
1082 if (!NILP (Vx_cursor_fore_pixel
))
1084 fore_pixel
= x_decode_color (f
, Vx_cursor_fore_pixel
,
1085 WHITE_PIX_DEFAULT (f
));
1086 fore_pixel_allocated_p
= 1;
1089 fore_pixel
= x
->background_pixel
;
1091 pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1092 pixel_allocated_p
= 1;
1094 /* Make sure that the cursor color differs from the background color. */
1095 if (pixel
== x
->background_pixel
)
1097 if (pixel_allocated_p
)
1099 x_free_colors (f
, &pixel
, 1);
1100 pixel_allocated_p
= 0;
1103 pixel
= x
->mouse_pixel
;
1104 if (pixel
== fore_pixel
)
1106 if (fore_pixel_allocated_p
)
1108 x_free_colors (f
, &fore_pixel
, 1);
1109 fore_pixel_allocated_p
= 0;
1111 fore_pixel
= x
->background_pixel
;
1115 unload_color (f
, x
->cursor_foreground_pixel
);
1116 if (!fore_pixel_allocated_p
)
1117 fore_pixel
= x_copy_color (f
, fore_pixel
);
1118 x
->cursor_foreground_pixel
= fore_pixel
;
1120 unload_color (f
, x
->cursor_pixel
);
1121 if (!pixel_allocated_p
)
1122 pixel
= x_copy_color (f
, pixel
);
1123 x
->cursor_pixel
= pixel
;
1125 if (FRAME_X_WINDOW (f
) != 0)
1128 XSetBackground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, x
->cursor_pixel
);
1129 XSetForeground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, fore_pixel
);
1132 if (FRAME_VISIBLE_P (f
))
1134 x_update_cursor (f
, 0);
1135 x_update_cursor (f
, 1);
1139 update_face_from_frame_parameter (f
, Qcursor_color
, arg
);
1142 /* Set the border-color of frame F to pixel value PIX.
1143 Note that this does not fully take effect if done before
1144 F has an x-window. */
1147 x_set_border_pixel (f
, pix
)
1151 unload_color (f
, f
->output_data
.x
->border_pixel
);
1152 f
->output_data
.x
->border_pixel
= pix
;
1154 if (FRAME_X_WINDOW (f
) != 0 && f
->border_width
> 0)
1157 XSetWindowBorder (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1158 (unsigned long)pix
);
1161 if (FRAME_VISIBLE_P (f
))
1166 /* Set the border-color of frame F to value described by ARG.
1167 ARG can be a string naming a color.
1168 The border-color is used for the border that is drawn by the X server.
1169 Note that this does not fully take effect if done before
1170 F has an x-window; it must be redone when the window is created.
1172 Note: this is done in two routines because of the way X10 works.
1174 Note: under X11, this is normally the province of the window manager,
1175 and so emacs' border colors may be overridden. */
1178 x_set_border_color (f
, arg
, oldval
)
1180 Lisp_Object arg
, oldval
;
1185 pix
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1186 x_set_border_pixel (f
, pix
);
1187 update_face_from_frame_parameter (f
, Qborder_color
, arg
);
1192 x_set_cursor_type (f
, arg
, oldval
)
1194 Lisp_Object arg
, oldval
;
1196 set_frame_cursor_types (f
, arg
);
1198 /* Make sure the cursor gets redrawn. */
1199 cursor_type_changed
= 1;
1203 x_set_icon_type (f
, arg
, oldval
)
1205 Lisp_Object arg
, oldval
;
1211 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1214 else if (!STRINGP (oldval
) && EQ (oldval
, Qnil
) == EQ (arg
, Qnil
))
1219 result
= x_text_icon (f
,
1220 (char *) SDATA ((!NILP (f
->icon_name
)
1224 result
= x_bitmap_icon (f
, arg
);
1229 error ("No icon window available");
1232 XFlush (FRAME_X_DISPLAY (f
));
1237 x_set_icon_name (f
, arg
, oldval
)
1239 Lisp_Object arg
, oldval
;
1245 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1248 else if (!STRINGP (oldval
) && EQ (oldval
, Qnil
) == EQ (arg
, Qnil
))
1253 if (f
->output_data
.x
->icon_bitmap
!= 0)
1258 result
= x_text_icon (f
,
1259 (char *) SDATA ((!NILP (f
->icon_name
)
1268 error ("No icon window available");
1271 XFlush (FRAME_X_DISPLAY (f
));
1277 x_set_menu_bar_lines (f
, value
, oldval
)
1279 Lisp_Object value
, oldval
;
1282 #if ! defined (USE_X_TOOLKIT) && ! defined (USE_GTK)
1283 int olines
= FRAME_MENU_BAR_LINES (f
);
1286 /* Right now, menu bars don't work properly in minibuf-only frames;
1287 most of the commands try to apply themselves to the minibuffer
1288 frame itself, and get an error because you can't switch buffers
1289 in or split the minibuffer window. */
1290 if (FRAME_MINIBUF_ONLY_P (f
))
1293 if (INTEGERP (value
))
1294 nlines
= XINT (value
);
1298 /* Make sure we redisplay all windows in this frame. */
1299 windows_or_buffers_changed
++;
1301 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
1302 FRAME_MENU_BAR_LINES (f
) = 0;
1305 FRAME_EXTERNAL_MENU_BAR (f
) = 1;
1306 if (FRAME_X_P (f
) && f
->output_data
.x
->menubar_widget
== 0)
1307 /* Make sure next redisplay shows the menu bar. */
1308 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= Qt
;
1312 if (FRAME_EXTERNAL_MENU_BAR (f
) == 1)
1313 free_frame_menubar (f
);
1314 FRAME_EXTERNAL_MENU_BAR (f
) = 0;
1316 f
->output_data
.x
->menubar_widget
= 0;
1318 #else /* not USE_X_TOOLKIT && not USE_GTK */
1319 FRAME_MENU_BAR_LINES (f
) = nlines
;
1320 change_window_heights (f
->root_window
, nlines
- olines
);
1321 #endif /* not USE_X_TOOLKIT */
1326 /* Set the number of lines used for the tool bar of frame F to VALUE.
1327 VALUE not an integer, or < 0 means set the lines to zero. OLDVAL
1328 is the old number of tool bar lines. This function changes the
1329 height of all windows on frame F to match the new tool bar height.
1330 The frame's height doesn't change. */
1333 x_set_tool_bar_lines (f
, value
, oldval
)
1335 Lisp_Object value
, oldval
;
1337 int delta
, nlines
, root_height
;
1338 Lisp_Object root_window
;
1340 /* Treat tool bars like menu bars. */
1341 if (FRAME_MINIBUF_ONLY_P (f
))
1344 /* Use VALUE only if an integer >= 0. */
1345 if (INTEGERP (value
) && XINT (value
) >= 0)
1346 nlines
= XFASTINT (value
);
1351 FRAME_TOOL_BAR_LINES (f
) = 0;
1354 FRAME_EXTERNAL_TOOL_BAR (f
) = 1;
1355 if (FRAME_X_P (f
) && f
->output_data
.x
->toolbar_widget
== 0)
1356 /* Make sure next redisplay shows the tool bar. */
1357 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= Qt
;
1358 update_frame_tool_bar (f
);
1362 if (FRAME_EXTERNAL_TOOL_BAR (f
))
1363 free_frame_tool_bar (f
);
1364 FRAME_EXTERNAL_TOOL_BAR (f
) = 0;
1370 /* Make sure we redisplay all windows in this frame. */
1371 ++windows_or_buffers_changed
;
1373 delta
= nlines
- FRAME_TOOL_BAR_LINES (f
);
1375 /* Don't resize the tool-bar to more than we have room for. */
1376 root_window
= FRAME_ROOT_WINDOW (f
);
1377 root_height
= WINDOW_TOTAL_LINES (XWINDOW (root_window
));
1378 if (root_height
- delta
< 1)
1380 delta
= root_height
- 1;
1381 nlines
= FRAME_TOOL_BAR_LINES (f
) + delta
;
1384 FRAME_TOOL_BAR_LINES (f
) = nlines
;
1385 change_window_heights (root_window
, delta
);
1388 /* We also have to make sure that the internal border at the top of
1389 the frame, below the menu bar or tool bar, is redrawn when the
1390 tool bar disappears. This is so because the internal border is
1391 below the tool bar if one is displayed, but is below the menu bar
1392 if there isn't a tool bar. The tool bar draws into the area
1393 below the menu bar. */
1394 if (FRAME_X_WINDOW (f
) && FRAME_TOOL_BAR_LINES (f
) == 0)
1397 clear_current_matrices (f
);
1400 /* If the tool bar gets smaller, the internal border below it
1401 has to be cleared. It was formerly part of the display
1402 of the larger tool bar, and updating windows won't clear it. */
1405 int height
= FRAME_INTERNAL_BORDER_WIDTH (f
);
1406 int width
= FRAME_PIXEL_WIDTH (f
);
1407 int y
= nlines
* FRAME_LINE_HEIGHT (f
);
1409 /* height can be zero here. */
1410 if (height
> 0 && width
> 0)
1413 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1414 0, y
, width
, height
, False
);
1418 if (WINDOWP (f
->tool_bar_window
))
1419 clear_glyph_matrix (XWINDOW (f
->tool_bar_window
)->current_matrix
);
1424 /* Set the foreground color for scroll bars on frame F to VALUE.
1425 VALUE should be a string, a color name. If it isn't a string or
1426 isn't a valid color name, do nothing. OLDVAL is the old value of
1427 the frame parameter. */
1430 x_set_scroll_bar_foreground (f
, value
, oldval
)
1432 Lisp_Object value
, oldval
;
1434 unsigned long pixel
;
1436 if (STRINGP (value
))
1437 pixel
= x_decode_color (f
, value
, BLACK_PIX_DEFAULT (f
));
1441 if (f
->output_data
.x
->scroll_bar_foreground_pixel
!= -1)
1442 unload_color (f
, f
->output_data
.x
->scroll_bar_foreground_pixel
);
1444 f
->output_data
.x
->scroll_bar_foreground_pixel
= pixel
;
1445 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1447 /* Remove all scroll bars because they have wrong colors. */
1448 if (FRAME_DEVICE (f
)->condemn_scroll_bars_hook
)
1449 (*FRAME_DEVICE (f
)->condemn_scroll_bars_hook
) (f
);
1450 if (FRAME_DEVICE (f
)->judge_scroll_bars_hook
)
1451 (*FRAME_DEVICE (f
)->judge_scroll_bars_hook
) (f
);
1453 update_face_from_frame_parameter (f
, Qscroll_bar_foreground
, value
);
1459 /* Set the background color for scroll bars on frame F to VALUE VALUE
1460 should be a string, a color name. If it isn't a string or isn't a
1461 valid color name, do nothing. OLDVAL is the old value of the frame
1465 x_set_scroll_bar_background (f
, value
, oldval
)
1467 Lisp_Object value
, oldval
;
1469 unsigned long pixel
;
1471 if (STRINGP (value
))
1472 pixel
= x_decode_color (f
, value
, WHITE_PIX_DEFAULT (f
));
1476 if (f
->output_data
.x
->scroll_bar_background_pixel
!= -1)
1477 unload_color (f
, f
->output_data
.x
->scroll_bar_background_pixel
);
1479 #ifdef USE_TOOLKIT_SCROLL_BARS
1480 /* Scrollbar shadow colors. */
1481 if (f
->output_data
.x
->scroll_bar_top_shadow_pixel
!= -1)
1483 unload_color (f
, f
->output_data
.x
->scroll_bar_top_shadow_pixel
);
1484 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
1486 if (f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
!= -1)
1488 unload_color (f
, f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
);
1489 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
1491 #endif /* USE_TOOLKIT_SCROLL_BARS */
1493 f
->output_data
.x
->scroll_bar_background_pixel
= pixel
;
1494 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1496 /* Remove all scroll bars because they have wrong colors. */
1497 if (FRAME_DEVICE (f
)->condemn_scroll_bars_hook
)
1498 (*FRAME_DEVICE (f
)->condemn_scroll_bars_hook
) (f
);
1499 if (FRAME_DEVICE (f
)->judge_scroll_bars_hook
)
1500 (*FRAME_DEVICE (f
)->judge_scroll_bars_hook
) (f
);
1502 update_face_from_frame_parameter (f
, Qscroll_bar_background
, value
);
1508 /* Encode Lisp string STRING as a text in a format appropriate for
1509 XICCC (X Inter Client Communication Conventions).
1511 If STRING contains only ASCII characters, do no conversion and
1512 return the string data of STRING. Otherwise, encode the text by
1513 CODING_SYSTEM, and return a newly allocated memory area which
1514 should be freed by `xfree' by a caller.
1516 SELECTIONP non-zero means the string is being encoded for an X
1517 selection, so it is safe to run pre-write conversions (which
1520 Store the byte length of resulting text in *TEXT_BYTES.
1522 If the text contains only ASCII and Latin-1, store 1 in *STRING_P,
1523 which means that the `encoding' of the result can be `STRING'.
1524 Otherwise store 0 in *STRINGP, which means that the `encoding' of
1525 the result should be `COMPOUND_TEXT'. */
1528 x_encode_text (string
, coding_system
, selectionp
, text_bytes
, stringp
)
1529 Lisp_Object string
, coding_system
;
1530 int *text_bytes
, *stringp
;
1533 unsigned char *str
= SDATA (string
);
1534 int chars
= SCHARS (string
);
1535 int bytes
= SBYTES (string
);
1539 struct coding_system coding
;
1540 extern Lisp_Object Qcompound_text_with_extensions
;
1542 charset_info
= find_charset_in_text (str
, chars
, bytes
, NULL
, Qnil
);
1543 if (charset_info
== 0)
1545 /* No multibyte character in OBJ. We need not encode it. */
1546 *text_bytes
= bytes
;
1551 setup_coding_system (coding_system
, &coding
);
1553 && SYMBOLP (coding
.pre_write_conversion
)
1554 && !NILP (Ffboundp (coding
.pre_write_conversion
)))
1556 string
= run_pre_post_conversion_on_str (string
, &coding
, 1);
1557 str
= SDATA (string
);
1558 chars
= SCHARS (string
);
1559 bytes
= SBYTES (string
);
1561 coding
.src_multibyte
= 1;
1562 coding
.dst_multibyte
= 0;
1563 coding
.mode
|= CODING_MODE_LAST_BLOCK
;
1564 if (coding
.type
== coding_type_iso2022
)
1565 coding
.flags
|= CODING_FLAG_ISO_SAFE
;
1566 /* We suppress producing escape sequences for composition. */
1567 coding
.composing
= COMPOSITION_DISABLED
;
1568 bufsize
= encoding_buffer_size (&coding
, bytes
);
1569 buf
= (unsigned char *) xmalloc (bufsize
);
1570 encode_coding (&coding
, str
, buf
, bytes
, bufsize
);
1571 *text_bytes
= coding
.produced
;
1572 *stringp
= (charset_info
== 1
1573 || (!EQ (coding_system
, Qcompound_text
)
1574 && !EQ (coding_system
, Qcompound_text_with_extensions
)));
1579 /* Set the WM name to NAME for frame F. Also set the icon name.
1580 If the frame already has an icon name, use that, otherwise set the
1581 icon name to NAME. */
1584 x_set_name_internal (f
, name
)
1588 if (FRAME_X_WINDOW (f
))
1593 XTextProperty text
, icon
;
1595 int do_free_icon_value
= 0, do_free_text_value
= 0;
1596 Lisp_Object coding_system
;
1598 coding_system
= Qcompound_text
;
1599 /* Note: Encoding strategy
1601 We encode NAME by compound-text and use "COMPOUND-TEXT" in
1602 text.encoding. But, there are non-internationalized window
1603 managers which don't support that encoding. So, if NAME
1604 contains only ASCII and 8859-1 characters, encode it by
1605 iso-latin-1, and use "STRING" in text.encoding hoping that
1606 such window managers at least analyze this format correctly,
1607 i.e. treat 8-bit bytes as 8859-1 characters.
1609 We may also be able to use "UTF8_STRING" in text.encoding
1610 in the future which can encode all Unicode characters.
1611 But, for the moment, there's no way to know that the
1612 current window manager supports it or not. */
1613 text
.value
= x_encode_text (name
, coding_system
, 0, &bytes
, &stringp
);
1614 text
.encoding
= (stringp
? XA_STRING
1615 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1617 text
.nitems
= bytes
;
1619 /* Check early, because ENCODE_UTF_8 below may GC and name may be
1621 do_free_text_value
= text
.value
!= SDATA (name
);
1623 if (NILP (f
->icon_name
))
1629 /* See the above comment "Note: Encoding strategy". */
1630 icon
.value
= x_encode_text (f
->icon_name
, coding_system
, 0,
1632 icon
.encoding
= (stringp
? XA_STRING
1633 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1635 icon
.nitems
= bytes
;
1636 do_free_icon_value
= icon
.value
!= SDATA (f
->icon_name
);
1640 gtk_window_set_title (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
1641 SDATA (ENCODE_UTF_8 (name
)));
1642 #else /* not USE_GTK */
1643 XSetWMName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &text
);
1644 #endif /* not USE_GTK */
1646 XSetWMIconName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &icon
);
1648 if (do_free_icon_value
)
1650 if (do_free_text_value
)
1653 #else /* not HAVE_X11R4 */
1654 XSetIconName (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1656 XStoreName (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1658 #endif /* not HAVE_X11R4 */
1663 /* Change the name of frame F to NAME. If NAME is nil, set F's name to
1666 If EXPLICIT is non-zero, that indicates that lisp code is setting the
1667 name; if NAME is a string, set F's name to NAME and set
1668 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1670 If EXPLICIT is zero, that indicates that Emacs redisplay code is
1671 suggesting a new name, which lisp code should override; if
1672 F->explicit_name is set, ignore the new name; otherwise, set it. */
1675 x_set_name (f
, name
, explicit)
1680 /* Make sure that requests from lisp code override requests from
1681 Emacs redisplay code. */
1684 /* If we're switching from explicit to implicit, we had better
1685 update the mode lines and thereby update the title. */
1686 if (f
->explicit_name
&& NILP (name
))
1687 update_mode_lines
= 1;
1689 f
->explicit_name
= ! NILP (name
);
1691 else if (f
->explicit_name
)
1694 /* If NAME is nil, set the name to the x_id_name. */
1697 /* Check for no change needed in this very common case
1698 before we do any consing. */
1699 if (!strcmp (FRAME_X_DISPLAY_INFO (f
)->x_id_name
,
1702 name
= build_string (FRAME_X_DISPLAY_INFO (f
)->x_id_name
);
1705 CHECK_STRING (name
);
1707 /* Don't change the name if it's already NAME. */
1708 if (! NILP (Fstring_equal (name
, f
->name
)))
1713 /* For setting the frame title, the title parameter should override
1714 the name parameter. */
1715 if (! NILP (f
->title
))
1718 x_set_name_internal (f
, name
);
1721 /* This function should be called when the user's lisp code has
1722 specified a name for the frame; the name will override any set by the
1725 x_explicitly_set_name (f
, arg
, oldval
)
1727 Lisp_Object arg
, oldval
;
1729 x_set_name (f
, arg
, 1);
1732 /* This function should be called by Emacs redisplay code to set the
1733 name; names set this way will never override names set by the user's
1736 x_implicitly_set_name (f
, arg
, oldval
)
1738 Lisp_Object arg
, oldval
;
1740 x_set_name (f
, arg
, 0);
1743 /* Change the title of frame F to NAME.
1744 If NAME is nil, use the frame name as the title.
1746 If EXPLICIT is non-zero, that indicates that lisp code is setting the
1747 name; if NAME is a string, set F's name to NAME and set
1748 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1750 If EXPLICIT is zero, that indicates that Emacs redisplay code is
1751 suggesting a new name, which lisp code should override; if
1752 F->explicit_name is set, ignore the new name; otherwise, set it. */
1755 x_set_title (f
, name
, old_name
)
1757 Lisp_Object name
, old_name
;
1759 /* Don't change the title if it's already NAME. */
1760 if (EQ (name
, f
->title
))
1763 update_mode_lines
= 1;
1770 CHECK_STRING (name
);
1772 x_set_name_internal (f
, name
);
1776 x_set_scroll_bar_default_width (f
)
1779 int wid
= FRAME_COLUMN_WIDTH (f
);
1781 #ifdef USE_TOOLKIT_SCROLL_BARS
1782 /* A minimum width of 14 doesn't look good for toolkit scroll bars. */
1783 int width
= 16 + 2 * VERTICAL_SCROLL_BAR_WIDTH_TRIM
;
1784 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (width
+ wid
- 1) / wid
;
1785 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = width
;
1787 /* Make the actual width at least 14 pixels and a multiple of a
1789 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (14 + wid
- 1) / wid
;
1791 /* Use all of that space (aside from required margins) for the
1793 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = 0;
1798 /* Record in frame F the specified or default value according to ALIST
1799 of the parameter named PROP (a Lisp symbol). If no value is
1800 specified for PROP, look for an X default for XPROP on the frame
1801 named NAME. If that is not found either, use the value DEFLT. */
1804 x_default_scroll_bar_color_parameter (f
, alist
, prop
, xprop
, xclass
,
1813 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
1816 tem
= x_get_arg (dpyinfo
, alist
, prop
, xprop
, xclass
, RES_TYPE_STRING
);
1817 if (EQ (tem
, Qunbound
))
1819 #ifdef USE_TOOLKIT_SCROLL_BARS
1821 /* See if an X resource for the scroll bar color has been
1823 tem
= display_x_get_resource (dpyinfo
,
1824 build_string (foreground_p
1828 build_string ("verticalScrollBar"),
1832 /* If nothing has been specified, scroll bars will use a
1833 toolkit-dependent default. Because these defaults are
1834 difficult to get at without actually creating a scroll
1835 bar, use nil to indicate that no color has been
1840 #else /* not USE_TOOLKIT_SCROLL_BARS */
1844 #endif /* not USE_TOOLKIT_SCROLL_BARS */
1847 x_set_frame_parameters (f
, Fcons (Fcons (prop
, tem
), Qnil
));
1853 #if !defined (HAVE_X11R4) && !defined (HAVE_XSETWMPROTOCOLS)
1856 XSetWMProtocols (dpy
, w
, protocols
, count
)
1863 prop
= XInternAtom (dpy
, "WM_PROTOCOLS", False
);
1864 if (prop
== None
) return False
;
1865 XChangeProperty (dpy
, w
, prop
, XA_ATOM
, 32, PropModeReplace
,
1866 (unsigned char *) protocols
, count
);
1869 #endif /* not HAVE_X11R4 && not HAVE_XSETWMPROTOCOLS */
1871 #ifdef USE_X_TOOLKIT
1873 /* If the WM_PROTOCOLS property does not already contain WM_TAKE_FOCUS,
1874 WM_DELETE_WINDOW, and WM_SAVE_YOURSELF, then add them. (They may
1875 already be present because of the toolkit (Motif adds some of them,
1876 for example, but Xt doesn't). */
1879 hack_wm_protocols (f
, widget
)
1883 Display
*dpy
= XtDisplay (widget
);
1884 Window w
= XtWindow (widget
);
1885 int need_delete
= 1;
1892 unsigned char *catoms
;
1894 unsigned long nitems
= 0;
1895 unsigned long bytes_after
;
1897 if ((XGetWindowProperty (dpy
, w
,
1898 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1899 (long)0, (long)100, False
, XA_ATOM
,
1900 &type
, &format
, &nitems
, &bytes_after
,
1903 && format
== 32 && type
== XA_ATOM
)
1905 Atom
*atoms
= (Atom
*) catoms
;
1910 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
)
1912 else if (atoms
[nitems
]
1913 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
)
1915 else if (atoms
[nitems
]
1916 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
)
1927 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
1929 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
;
1931 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
1933 XChangeProperty (dpy
, w
, FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1934 XA_ATOM
, 32, PropModeAppend
,
1935 (unsigned char *) props
, count
);
1943 /* Support routines for XIC (X Input Context). */
1947 static XFontSet xic_create_xfontset
P_ ((struct frame
*, char *));
1948 static XIMStyle best_xim_style
P_ ((XIMStyles
*, XIMStyles
*));
1951 /* Supported XIM styles, ordered by preference. */
1953 static XIMStyle supported_xim_styles
[] =
1955 XIMPreeditPosition
| XIMStatusArea
,
1956 XIMPreeditPosition
| XIMStatusNothing
,
1957 XIMPreeditPosition
| XIMStatusNone
,
1958 XIMPreeditNothing
| XIMStatusArea
,
1959 XIMPreeditNothing
| XIMStatusNothing
,
1960 XIMPreeditNothing
| XIMStatusNone
,
1961 XIMPreeditNone
| XIMStatusArea
,
1962 XIMPreeditNone
| XIMStatusNothing
,
1963 XIMPreeditNone
| XIMStatusNone
,
1968 /* Create an X fontset on frame F with base font name BASE_FONTNAME. */
1970 char xic_defaut_fontset
[] = "-*-*-*-r-normal--14-*-*-*-*-*-*-*";
1972 /* Create an Xt fontset spec from the name of a base font.
1973 If `motif' is True use the Motif syntax. */
1975 xic_create_fontsetname (base_fontname
, motif
)
1976 char *base_fontname
;
1979 const char *sep
= motif
? ";" : ",";
1982 /* Make a fontset name from the base font name. */
1983 if (xic_defaut_fontset
== base_fontname
)
1984 { /* There is no base font name, use the default. */
1985 int len
= strlen (base_fontname
) + 2;
1986 fontsetname
= xmalloc (len
);
1987 bzero (fontsetname
, len
);
1988 strcpy (fontsetname
, base_fontname
);
1992 /* Make a fontset name from the base font name.
1993 The font set will be made of the following elements:
1995 - the base font where the charset spec is replaced by -*-*.
1996 - the same but with the family also replaced with -*-*-. */
1997 char *p
= base_fontname
;
2000 for (i
= 0; *p
; p
++)
2003 { /* As the font name doesn't conform to XLFD, we can't
2004 modify it to generalize it to allcs and allfamilies.
2005 Use the specified font plus the default. */
2006 int len
= strlen (base_fontname
) + strlen (xic_defaut_fontset
) + 3;
2007 fontsetname
= xmalloc (len
);
2008 bzero (fontsetname
, len
);
2009 strcpy (fontsetname
, base_fontname
);
2010 strcat (fontsetname
, sep
);
2011 strcat (fontsetname
, xic_defaut_fontset
);
2016 char *p1
= NULL
, *p2
= NULL
;
2017 char *font_allcs
= NULL
;
2018 char *font_allfamilies
= NULL
;
2019 char *font_all
= NULL
;
2020 char *allcs
= "*-*-*-*-*-*-*";
2021 char *allfamilies
= "-*-*-";
2022 char *all
= "*-*-*-*-";
2024 for (i
= 0, p
= base_fontname
; i
< 8; p
++)
2035 /* Build the font spec that matches all charsets. */
2036 len
= p
- base_fontname
+ strlen (allcs
) + 1;
2037 font_allcs
= (char *) alloca (len
);
2038 bzero (font_allcs
, len
);
2039 bcopy (base_fontname
, font_allcs
, p
- base_fontname
);
2040 strcat (font_allcs
, allcs
);
2042 /* Build the font spec that matches all families. */
2043 len
= p
- p1
+ strlen (allcs
) + strlen (allfamilies
) + 1;
2044 font_allfamilies
= (char *) alloca (len
);
2045 bzero (font_allfamilies
, len
);
2046 strcpy (font_allfamilies
, allfamilies
);
2047 bcopy (p1
, font_allfamilies
+ strlen (allfamilies
), p
- p1
);
2048 strcat (font_allfamilies
, allcs
);
2050 /* Build the font spec that matches all. */
2051 len
= p
- p2
+ strlen (allcs
) + strlen (all
) + strlen (allfamilies
) + 1;
2052 font_all
= (char *) alloca (len
);
2053 bzero (font_all
, len
);
2054 strcpy (font_all
, allfamilies
);
2055 strcat (font_all
, all
);
2056 bcopy (p2
, font_all
+ strlen (all
) + strlen (allfamilies
), p
- p2
);
2057 strcat (font_all
, allcs
);
2059 /* Build the actual font set name. */
2060 len
= strlen (base_fontname
) + strlen (font_allcs
)
2061 + strlen (font_allfamilies
) + strlen (font_all
) + 5;
2062 fontsetname
= xmalloc (len
);
2063 bzero (fontsetname
, len
);
2064 strcpy (fontsetname
, base_fontname
);
2065 strcat (fontsetname
, sep
);
2066 strcat (fontsetname
, font_allcs
);
2067 strcat (fontsetname
, sep
);
2068 strcat (fontsetname
, font_allfamilies
);
2069 strcat (fontsetname
, sep
);
2070 strcat (fontsetname
, font_all
);
2074 strcat (fontsetname
, ":");
2079 xic_create_xfontset (f
, base_fontname
)
2081 char *base_fontname
;
2083 XFontSet xfs
= NULL
;
2084 char **missing_list
= NULL
;
2087 Lisp_Object rest
, frame
;
2090 base_fontname
= xic_defaut_fontset
;
2092 /* See if there is another frame already using same fontset. */
2093 FOR_EACH_FRAME (rest
, frame
)
2095 struct frame
*cf
= XFRAME (frame
);
2096 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
2097 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
2098 && FRAME_XIC_BASE_FONTNAME (cf
)
2099 && !strcmp (FRAME_XIC_BASE_FONTNAME (cf
), base_fontname
))
2101 xfs
= FRAME_XIC_FONTSET (cf
);
2108 char *fontsetname
= xic_create_fontsetname (base_fontname
, False
);
2111 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
),
2112 fontsetname
, &missing_list
,
2113 &missing_count
, &def_string
);
2115 XFreeStringList (missing_list
);
2116 xfree (fontsetname
);
2119 if (FRAME_XIC_BASE_FONTNAME (f
))
2120 xfree (FRAME_XIC_BASE_FONTNAME (f
));
2121 FRAME_XIC_BASE_FONTNAME (f
) = xstrdup (base_fontname
);
2123 /* No need to free def_string. */
2127 /* Free the X fontset of frame F if it is the last frame using it. */
2130 xic_free_xfontset (f
)
2133 Lisp_Object rest
, frame
;
2136 if (!FRAME_XIC_FONTSET (f
))
2139 /* See if there is another frame sharing the same fontset. */
2140 FOR_EACH_FRAME (rest
, frame
)
2142 struct frame
*cf
= XFRAME (frame
);
2143 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
2144 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
2145 && FRAME_XIC_FONTSET (cf
) == FRAME_XIC_FONTSET (f
))
2153 /* The fontset is not used anymore. It is safe to free it. */
2154 XFreeFontSet (FRAME_X_DISPLAY (f
), FRAME_XIC_FONTSET (f
));
2156 if (FRAME_XIC_BASE_FONTNAME (f
))
2157 xfree (FRAME_XIC_BASE_FONTNAME (f
));
2158 FRAME_XIC_BASE_FONTNAME (f
) = NULL
;
2159 FRAME_XIC_FONTSET (f
) = NULL
;
2163 /* Value is the best input style, given user preferences USER (already
2164 checked to be supported by Emacs), and styles supported by the
2165 input method XIM. */
2168 best_xim_style (user
, xim
)
2174 for (i
= 0; i
< user
->count_styles
; ++i
)
2175 for (j
= 0; j
< xim
->count_styles
; ++j
)
2176 if (user
->supported_styles
[i
] == xim
->supported_styles
[j
])
2177 return user
->supported_styles
[i
];
2179 /* Return the default style. */
2180 return XIMPreeditNothing
| XIMStatusNothing
;
2183 /* Create XIC for frame F. */
2185 static XIMStyle xic_style
;
2188 create_frame_xic (f
)
2193 XFontSet xfs
= NULL
;
2198 /* Create X fontset. */
2199 xfs
= xic_create_xfontset
2200 (f
, (FRAME_FONTSET (f
) < 0) ? NULL
2201 : (char *) SDATA (fontset_ascii (FRAME_FONTSET (f
))));
2203 xim
= FRAME_X_XIM (f
);
2208 XVaNestedList preedit_attr
;
2209 XVaNestedList status_attr
;
2211 s_area
.x
= 0; s_area
.y
= 0; s_area
.width
= 1; s_area
.height
= 1;
2212 spot
.x
= 0; spot
.y
= 1;
2214 /* Determine XIC style. */
2217 XIMStyles supported_list
;
2218 supported_list
.count_styles
= (sizeof supported_xim_styles
2219 / sizeof supported_xim_styles
[0]);
2220 supported_list
.supported_styles
= supported_xim_styles
;
2221 xic_style
= best_xim_style (&supported_list
,
2222 FRAME_X_XIM_STYLES (f
));
2225 preedit_attr
= XVaCreateNestedList (0,
2228 FRAME_FOREGROUND_PIXEL (f
),
2230 FRAME_BACKGROUND_PIXEL (f
),
2231 (xic_style
& XIMPreeditPosition
2236 status_attr
= XVaCreateNestedList (0,
2242 FRAME_FOREGROUND_PIXEL (f
),
2244 FRAME_BACKGROUND_PIXEL (f
),
2247 xic
= XCreateIC (xim
,
2248 XNInputStyle
, xic_style
,
2249 XNClientWindow
, FRAME_X_WINDOW (f
),
2250 XNFocusWindow
, FRAME_X_WINDOW (f
),
2251 XNStatusAttributes
, status_attr
,
2252 XNPreeditAttributes
, preedit_attr
,
2254 XFree (preedit_attr
);
2255 XFree (status_attr
);
2258 FRAME_XIC (f
) = xic
;
2259 FRAME_XIC_STYLE (f
) = xic_style
;
2260 FRAME_XIC_FONTSET (f
) = xfs
;
2264 /* Destroy XIC and free XIC fontset of frame F, if any. */
2270 if (FRAME_XIC (f
) == NULL
)
2273 XDestroyIC (FRAME_XIC (f
));
2274 xic_free_xfontset (f
);
2276 FRAME_XIC (f
) = NULL
;
2280 /* Place preedit area for XIC of window W's frame to specified
2281 pixel position X/Y. X and Y are relative to window W. */
2284 xic_set_preeditarea (w
, x
, y
)
2288 struct frame
*f
= XFRAME (w
->frame
);
2292 spot
.x
= WINDOW_TO_FRAME_PIXEL_X (w
, x
) + WINDOW_LEFT_FRINGE_WIDTH (w
);
2293 spot
.y
= WINDOW_TO_FRAME_PIXEL_Y (w
, y
) + FONT_BASE (FRAME_FONT (f
));
2294 attr
= XVaCreateNestedList (0, XNSpotLocation
, &spot
, NULL
);
2295 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2300 /* Place status area for XIC in bottom right corner of frame F.. */
2303 xic_set_statusarea (f
)
2306 XIC xic
= FRAME_XIC (f
);
2311 /* Negotiate geometry of status area. If input method has existing
2312 status area, use its current size. */
2313 area
.x
= area
.y
= area
.width
= area
.height
= 0;
2314 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &area
, NULL
);
2315 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2318 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &needed
, NULL
);
2319 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2322 if (needed
->width
== 0) /* Use XNArea instead of XNAreaNeeded */
2324 attr
= XVaCreateNestedList (0, XNArea
, &needed
, NULL
);
2325 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2329 area
.width
= needed
->width
;
2330 area
.height
= needed
->height
;
2331 area
.x
= FRAME_PIXEL_WIDTH (f
) - area
.width
- FRAME_INTERNAL_BORDER_WIDTH (f
);
2332 area
.y
= (FRAME_PIXEL_HEIGHT (f
) - area
.height
2333 - FRAME_MENUBAR_HEIGHT (f
)
2334 - FRAME_TOOLBAR_HEIGHT (f
)
2335 - FRAME_INTERNAL_BORDER_WIDTH (f
));
2338 attr
= XVaCreateNestedList (0, XNArea
, &area
, NULL
);
2339 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2344 /* Set X fontset for XIC of frame F, using base font name
2345 BASE_FONTNAME. Called when a new Emacs fontset is chosen. */
2348 xic_set_xfontset (f
, base_fontname
)
2350 char *base_fontname
;
2355 xic_free_xfontset (f
);
2357 xfs
= xic_create_xfontset (f
, base_fontname
);
2359 attr
= XVaCreateNestedList (0, XNFontSet
, xfs
, NULL
);
2360 if (FRAME_XIC_STYLE (f
) & XIMPreeditPosition
)
2361 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2362 if (FRAME_XIC_STYLE (f
) & XIMStatusArea
)
2363 XSetICValues (FRAME_XIC (f
), XNStatusAttributes
, attr
, NULL
);
2366 FRAME_XIC_FONTSET (f
) = xfs
;
2369 #endif /* HAVE_X_I18N */
2373 #ifdef USE_X_TOOLKIT
2375 /* Create and set up the X widget for frame F. */
2378 x_window (f
, window_prompting
, minibuffer_only
)
2380 long window_prompting
;
2381 int minibuffer_only
;
2383 XClassHint class_hints
;
2384 XSetWindowAttributes attributes
;
2385 unsigned long attribute_mask
;
2386 Widget shell_widget
;
2388 Widget frame_widget
;
2394 /* Use the resource name as the top-level widget name
2395 for looking up resources. Make a non-Lisp copy
2396 for the window manager, so GC relocation won't bother it.
2398 Elsewhere we specify the window name for the window manager. */
2401 char *str
= (char *) SDATA (Vx_resource_name
);
2402 f
->namebuf
= (char *) xmalloc (strlen (str
) + 1);
2403 strcpy (f
->namebuf
, str
);
2407 XtSetArg (al
[ac
], XtNallowShellResize
, 1); ac
++;
2408 XtSetArg (al
[ac
], XtNinput
, 1); ac
++;
2409 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2410 XtSetArg (al
[ac
], XtNborderWidth
, f
->border_width
); ac
++;
2411 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2412 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2413 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2414 shell_widget
= XtAppCreateShell (f
->namebuf
, EMACS_CLASS
,
2415 applicationShellWidgetClass
,
2416 FRAME_X_DISPLAY (f
), al
, ac
);
2418 f
->output_data
.x
->widget
= shell_widget
;
2419 /* maybe_set_screen_title_format (shell_widget); */
2421 pane_widget
= lw_create_widget ("main", "pane", widget_id_tick
++,
2422 (widget_value
*) NULL
,
2423 shell_widget
, False
,
2427 (lw_callback
) NULL
);
2430 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2431 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2432 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2433 XtSetValues (pane_widget
, al
, ac
);
2434 f
->output_data
.x
->column_widget
= pane_widget
;
2436 /* mappedWhenManaged to false tells to the paned window to not map/unmap
2437 the emacs screen when changing menubar. This reduces flickering. */
2440 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2441 XtSetArg (al
[ac
], XtNshowGrip
, 0); ac
++;
2442 XtSetArg (al
[ac
], XtNallowResize
, 1); ac
++;
2443 XtSetArg (al
[ac
], XtNresizeToPreferred
, 1); ac
++;
2444 XtSetArg (al
[ac
], XtNemacsFrame
, f
); ac
++;
2445 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2446 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2447 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2448 frame_widget
= XtCreateWidget (f
->namebuf
, emacsFrameClass
, pane_widget
,
2451 f
->output_data
.x
->edit_widget
= frame_widget
;
2453 XtManageChild (frame_widget
);
2455 /* Do some needed geometry management. */
2458 char *tem
, shell_position
[32];
2461 int extra_borders
= 0;
2463 = (f
->output_data
.x
->menubar_widget
2464 ? (f
->output_data
.x
->menubar_widget
->core
.height
2465 + f
->output_data
.x
->menubar_widget
->core
.border_width
)
2468 #if 0 /* Experimentally, we now get the right results
2469 for -geometry -0-0 without this. 24 Aug 96, rms. */
2470 if (FRAME_EXTERNAL_MENU_BAR (f
))
2473 XtVaGetValues (pane_widget
, XtNinternalBorderWidth
, &ibw
, NULL
);
2474 menubar_size
+= ibw
;
2478 f
->output_data
.x
->menubar_height
= menubar_size
;
2481 /* Motif seems to need this amount added to the sizes
2482 specified for the shell widget. The Athena/Lucid widgets don't.
2483 Both conclusions reached experimentally. -- rms. */
2484 XtVaGetValues (f
->output_data
.x
->edit_widget
, XtNinternalBorderWidth
,
2485 &extra_borders
, NULL
);
2489 /* Convert our geometry parameters into a geometry string
2491 Note that we do not specify here whether the position
2492 is a user-specified or program-specified one.
2493 We pass that information later, in x_wm_set_size_hints. */
2495 int left
= f
->left_pos
;
2496 int xneg
= window_prompting
& XNegative
;
2497 int top
= f
->top_pos
;
2498 int yneg
= window_prompting
& YNegative
;
2504 if (window_prompting
& USPosition
)
2505 sprintf (shell_position
, "=%dx%d%c%d%c%d",
2506 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2507 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
,
2508 (xneg
? '-' : '+'), left
,
2509 (yneg
? '-' : '+'), top
);
2512 sprintf (shell_position
, "=%dx%d",
2513 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2514 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
);
2516 /* Setting x and y when the position is not specified in
2517 the geometry string will set program position in the WM hints.
2518 If Emacs had just one program position, we could set it in
2519 fallback resources, but since each make-frame call can specify
2520 different program positions, this is easier. */
2521 XtSetArg (al
[ac
], XtNx
, left
); ac
++;
2522 XtSetArg (al
[ac
], XtNy
, top
); ac
++;
2526 len
= strlen (shell_position
) + 1;
2527 /* We don't free this because we don't know whether
2528 it is safe to free it while the frame exists.
2529 It isn't worth the trouble of arranging to free it
2530 when the frame is deleted. */
2531 tem
= (char *) xmalloc (len
);
2532 strncpy (tem
, shell_position
, len
);
2533 XtSetArg (al
[ac
], XtNgeometry
, tem
); ac
++;
2534 XtSetValues (shell_widget
, al
, ac
);
2537 XtManageChild (pane_widget
);
2538 XtRealizeWidget (shell_widget
);
2540 FRAME_X_WINDOW (f
) = XtWindow (frame_widget
);
2542 validate_x_resource_name ();
2544 class_hints
.res_name
= (char *) SDATA (Vx_resource_name
);
2545 class_hints
.res_class
= (char *) SDATA (Vx_resource_class
);
2546 XSetClassHint (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
), &class_hints
);
2549 FRAME_XIC (f
) = NULL
;
2551 create_frame_xic (f
);
2554 f
->output_data
.x
->wm_hints
.input
= True
;
2555 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2556 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2557 &f
->output_data
.x
->wm_hints
);
2559 hack_wm_protocols (f
, shell_widget
);
2562 XtAddEventHandler (shell_widget
, 0, True
, _XEditResCheckMessages
, 0);
2565 /* Do a stupid property change to force the server to generate a
2566 PropertyNotify event so that the event_stream server timestamp will
2567 be initialized to something relevant to the time we created the window.
2569 XChangeProperty (XtDisplay (frame_widget
), XtWindow (frame_widget
),
2570 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
2571 XA_ATOM
, 32, PropModeAppend
,
2572 (unsigned char*) NULL
, 0);
2574 /* Make all the standard events reach the Emacs frame. */
2575 attributes
.event_mask
= STANDARD_EVENT_SET
;
2580 /* XIM server might require some X events. */
2581 unsigned long fevent
= NoEventMask
;
2582 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2583 attributes
.event_mask
|= fevent
;
2585 #endif /* HAVE_X_I18N */
2587 attribute_mask
= CWEventMask
;
2588 XChangeWindowAttributes (XtDisplay (shell_widget
), XtWindow (shell_widget
),
2589 attribute_mask
, &attributes
);
2591 XtMapWidget (frame_widget
);
2593 /* x_set_name normally ignores requests to set the name if the
2594 requested name is the same as the current name. This is the one
2595 place where that assumption isn't correct; f->name is set, but
2596 the X server hasn't been told. */
2599 int explicit = f
->explicit_name
;
2601 f
->explicit_name
= 0;
2604 x_set_name (f
, name
, explicit);
2607 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2608 f
->output_data
.x
->text_cursor
);
2612 /* This is a no-op, except under Motif. Make sure main areas are
2613 set to something reasonable, in case we get an error later. */
2614 lw_set_main_areas (pane_widget
, 0, frame_widget
);
2617 #else /* not USE_X_TOOLKIT */
2623 if (! xg_create_frame_widgets (f
))
2624 error ("Unable to create window");
2627 FRAME_XIC (f
) = NULL
;
2631 create_frame_xic (f
);
2634 /* XIM server might require some X events. */
2635 unsigned long fevent
= NoEventMask
;
2636 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2638 if (fevent
!= NoEventMask
)
2640 XSetWindowAttributes attributes
;
2641 XWindowAttributes wattr
;
2642 unsigned long attribute_mask
;
2644 XGetWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2646 attributes
.event_mask
= wattr
.your_event_mask
| fevent
;
2647 attribute_mask
= CWEventMask
;
2648 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2649 attribute_mask
, &attributes
);
2657 #else /*! USE_GTK */
2658 /* Create and set up the X window for frame F. */
2665 XClassHint class_hints
;
2666 XSetWindowAttributes attributes
;
2667 unsigned long attribute_mask
;
2669 attributes
.background_pixel
= f
->output_data
.x
->background_pixel
;
2670 attributes
.border_pixel
= f
->output_data
.x
->border_pixel
;
2671 attributes
.bit_gravity
= StaticGravity
;
2672 attributes
.backing_store
= NotUseful
;
2673 attributes
.save_under
= True
;
2674 attributes
.event_mask
= STANDARD_EVENT_SET
;
2675 attributes
.colormap
= FRAME_X_COLORMAP (f
);
2676 attribute_mask
= (CWBackPixel
| CWBorderPixel
| CWBitGravity
| CWEventMask
2681 = XCreateWindow (FRAME_X_DISPLAY (f
),
2682 f
->output_data
.x
->parent_desc
,
2685 FRAME_PIXEL_WIDTH (f
), FRAME_PIXEL_HEIGHT (f
),
2687 CopyFromParent
, /* depth */
2688 InputOutput
, /* class */
2690 attribute_mask
, &attributes
);
2695 create_frame_xic (f
);
2698 /* XIM server might require some X events. */
2699 unsigned long fevent
= NoEventMask
;
2700 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2701 attributes
.event_mask
|= fevent
;
2702 attribute_mask
= CWEventMask
;
2703 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2704 attribute_mask
, &attributes
);
2707 #endif /* HAVE_X_I18N */
2709 validate_x_resource_name ();
2711 class_hints
.res_name
= (char *) SDATA (Vx_resource_name
);
2712 class_hints
.res_class
= (char *) SDATA (Vx_resource_class
);
2713 XSetClassHint (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), &class_hints
);
2715 /* The menubar is part of the ordinary display;
2716 it does not count in addition to the height of the window. */
2717 f
->output_data
.x
->menubar_height
= 0;
2719 /* This indicates that we use the "Passive Input" input model.
2720 Unless we do this, we don't get the Focus{In,Out} events that we
2721 need to draw the cursor correctly. Accursed bureaucrats.
2722 XWhipsAndChains (FRAME_X_DISPLAY (f), IronMaiden, &TheRack); */
2724 f
->output_data
.x
->wm_hints
.input
= True
;
2725 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2726 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2727 &f
->output_data
.x
->wm_hints
);
2728 f
->output_data
.x
->wm_hints
.icon_pixmap
= None
;
2730 /* Request "save yourself" and "delete window" commands from wm. */
2733 protocols
[0] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
2734 protocols
[1] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
2735 XSetWMProtocols (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), protocols
, 2);
2738 /* x_set_name normally ignores requests to set the name if the
2739 requested name is the same as the current name. This is the one
2740 place where that assumption isn't correct; f->name is set, but
2741 the X server hasn't been told. */
2744 int explicit = f
->explicit_name
;
2746 f
->explicit_name
= 0;
2749 x_set_name (f
, name
, explicit);
2752 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2753 f
->output_data
.x
->text_cursor
);
2757 if (FRAME_X_WINDOW (f
) == 0)
2758 error ("Unable to create window");
2761 #endif /* not USE_GTK */
2762 #endif /* not USE_X_TOOLKIT */
2764 /* Verify that the icon position args for this window are valid. */
2767 x_icon_verify (f
, parms
)
2771 Lisp_Object icon_x
, icon_y
;
2773 /* Set the position of the icon. Note that twm groups all
2774 icons in an icon window. */
2775 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2776 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2777 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2779 CHECK_NUMBER (icon_x
);
2780 CHECK_NUMBER (icon_y
);
2782 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2783 error ("Both left and top icon corners of icon must be specified");
2786 /* Handle the icon stuff for this window. Perhaps later we might
2787 want an x_set_icon_position which can be called interactively as
2795 Lisp_Object icon_x
, icon_y
;
2796 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2798 /* Set the position of the icon. Note that twm groups all
2799 icons in an icon window. */
2800 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2801 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2802 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2804 CHECK_NUMBER (icon_x
);
2805 CHECK_NUMBER (icon_y
);
2807 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2808 error ("Both left and top icon corners of icon must be specified");
2812 if (! EQ (icon_x
, Qunbound
))
2813 x_wm_set_icon_position (f
, XINT (icon_x
), XINT (icon_y
));
2815 /* Start up iconic or window? */
2816 x_wm_set_window_state
2817 (f
, (EQ (x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0, RES_TYPE_SYMBOL
),
2822 x_text_icon (f
, (char *) SDATA ((!NILP (f
->icon_name
)
2829 /* Make the GCs needed for this window, setting the
2830 background, border and mouse colors; also create the
2831 mouse cursor and the gray border tile. */
2833 static char cursor_bits
[] =
2835 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2836 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2837 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2838 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00
2845 XGCValues gc_values
;
2849 /* Create the GCs of this frame.
2850 Note that many default values are used. */
2853 gc_values
.font
= FRAME_FONT (f
)->fid
;
2854 gc_values
.foreground
= f
->output_data
.x
->foreground_pixel
;
2855 gc_values
.background
= f
->output_data
.x
->background_pixel
;
2856 gc_values
.line_width
= 0; /* Means 1 using fast algorithm. */
2857 f
->output_data
.x
->normal_gc
2858 = XCreateGC (FRAME_X_DISPLAY (f
),
2860 GCLineWidth
| GCFont
| GCForeground
| GCBackground
,
2863 /* Reverse video style. */
2864 gc_values
.foreground
= f
->output_data
.x
->background_pixel
;
2865 gc_values
.background
= f
->output_data
.x
->foreground_pixel
;
2866 f
->output_data
.x
->reverse_gc
2867 = XCreateGC (FRAME_X_DISPLAY (f
),
2869 GCFont
| GCForeground
| GCBackground
| GCLineWidth
,
2872 /* Cursor has cursor-color background, background-color foreground. */
2873 gc_values
.foreground
= f
->output_data
.x
->background_pixel
;
2874 gc_values
.background
= f
->output_data
.x
->cursor_pixel
;
2875 gc_values
.fill_style
= FillOpaqueStippled
;
2877 = XCreateBitmapFromData (FRAME_X_DISPLAY (f
),
2878 FRAME_X_DISPLAY_INFO (f
)->root_window
,
2879 cursor_bits
, 16, 16);
2880 f
->output_data
.x
->cursor_gc
2881 = XCreateGC (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2882 (GCFont
| GCForeground
| GCBackground
2883 | GCFillStyle
/* | GCStipple */ | GCLineWidth
),
2887 f
->output_data
.x
->white_relief
.gc
= 0;
2888 f
->output_data
.x
->black_relief
.gc
= 0;
2890 /* Create the gray border tile used when the pointer is not in
2891 the frame. Since this depends on the frame's pixel values,
2892 this must be done on a per-frame basis. */
2893 f
->output_data
.x
->border_tile
2894 = (XCreatePixmapFromBitmapData
2895 (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
2896 gray_bits
, gray_width
, gray_height
,
2897 f
->output_data
.x
->foreground_pixel
,
2898 f
->output_data
.x
->background_pixel
,
2899 DefaultDepth (FRAME_X_DISPLAY (f
), FRAME_X_SCREEN_NUMBER (f
))));
2905 /* Free what was was allocated in x_make_gc. */
2911 Display
*dpy
= FRAME_X_DISPLAY (f
);
2915 if (f
->output_data
.x
->normal_gc
)
2917 XFreeGC (dpy
, f
->output_data
.x
->normal_gc
);
2918 f
->output_data
.x
->normal_gc
= 0;
2921 if (f
->output_data
.x
->reverse_gc
)
2923 XFreeGC (dpy
, f
->output_data
.x
->reverse_gc
);
2924 f
->output_data
.x
->reverse_gc
= 0;
2927 if (f
->output_data
.x
->cursor_gc
)
2929 XFreeGC (dpy
, f
->output_data
.x
->cursor_gc
);
2930 f
->output_data
.x
->cursor_gc
= 0;
2933 if (f
->output_data
.x
->border_tile
)
2935 XFreePixmap (dpy
, f
->output_data
.x
->border_tile
);
2936 f
->output_data
.x
->border_tile
= 0;
2943 /* Handler for signals raised during x_create_frame and
2944 x_create_top_frame. FRAME is the frame which is partially
2948 unwind_create_frame (frame
)
2951 struct frame
*f
= XFRAME (frame
);
2953 /* If frame is already dead, nothing to do. This can happen if the
2954 display is disconnected after the frame has become official, but
2955 before x_create_frame removes the unwind protect. */
2956 if (!FRAME_LIVE_P (f
))
2959 /* If frame is ``official'', nothing to do. */
2960 if (!CONSP (Vframe_list
) || !EQ (XCAR (Vframe_list
), frame
))
2963 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2966 x_free_frame_resources (f
);
2969 /* Check that reference counts are indeed correct. */
2970 xassert (dpyinfo
->reference_count
== dpyinfo_refcount
);
2971 xassert (dpyinfo
->image_cache
->refcount
== image_cache_refcount
);
2980 DEFUN ("x-create-frame", Fx_create_frame
, Sx_create_frame
,
2982 doc
: /* Make a new X window, which is called a "frame" in Emacs terms.
2983 Returns an Emacs frame object.
2984 ALIST is an alist of frame parameters.
2985 If the parameters specify that the frame should not have a minibuffer,
2986 and do not specify a specific minibuffer window to use,
2987 then `default-minibuffer-frame' must be a frame whose minibuffer can
2988 be shared by the new frame.
2990 This function is an internal primitive--use `make-frame' instead. */)
2995 Lisp_Object frame
, tem
;
2997 int minibuffer_only
= 0;
2998 long window_prompting
= 0;
3000 int count
= SPECPDL_INDEX ();
3001 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
3002 Lisp_Object display
;
3003 struct x_display_info
*dpyinfo
= NULL
;
3007 /* Use this general default value to start with
3008 until we know if this frame has a specified name. */
3009 Vx_resource_name
= Vinvocation_name
;
3011 display
= x_get_arg (dpyinfo
, parms
, Qdevice
, 0, 0, RES_TYPE_NUMBER
);
3012 if (EQ (display
, Qunbound
))
3013 display
= x_get_arg (dpyinfo
, parms
, Qdisplay
, 0, 0, RES_TYPE_STRING
);
3014 if (EQ (display
, Qunbound
))
3016 dpyinfo
= check_x_display_info (display
);
3018 kb
= dpyinfo
->device
->kboard
;
3020 kb
= &the_only_kboard
;
3023 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
3025 && ! EQ (name
, Qunbound
)
3027 error ("Invalid frame name--not a string or nil");
3030 Vx_resource_name
= name
;
3032 /* See if parent window is specified. */
3033 parent
= x_get_arg (dpyinfo
, parms
, Qparent_id
, NULL
, NULL
, RES_TYPE_NUMBER
);
3034 if (EQ (parent
, Qunbound
))
3036 if (! NILP (parent
))
3037 CHECK_NUMBER (parent
);
3039 /* make_frame_without_minibuffer can run Lisp code and garbage collect. */
3040 /* No need to protect DISPLAY because that's not used after passing
3041 it to make_frame_without_minibuffer. */
3043 GCPRO4 (parms
, parent
, name
, frame
);
3044 tem
= x_get_arg (dpyinfo
, parms
, Qminibuffer
, "minibuffer", "Minibuffer",
3046 if (EQ (tem
, Qnone
) || NILP (tem
))
3047 f
= make_frame_without_minibuffer (Qnil
, kb
, display
);
3048 else if (EQ (tem
, Qonly
))
3050 f
= make_minibuffer_frame ();
3051 minibuffer_only
= 1;
3053 else if (WINDOWP (tem
))
3054 f
= make_frame_without_minibuffer (tem
, kb
, display
);
3058 XSETFRAME (frame
, f
);
3060 /* Note that X Windows does support scroll bars. */
3061 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 1;
3063 f
->device
= dpyinfo
->device
;
3064 f
->device
->reference_count
++;
3066 f
->output_method
= output_x_window
;
3067 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
3068 bzero (f
->output_data
.x
, sizeof (struct x_output
));
3069 f
->output_data
.x
->icon_bitmap
= -1;
3070 FRAME_FONTSET (f
) = -1;
3071 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
3072 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
3073 #ifdef USE_TOOLKIT_SCROLL_BARS
3074 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
3075 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
3076 #endif /* USE_TOOLKIT_SCROLL_BARS */
3077 record_unwind_protect (unwind_create_frame
, frame
);
3080 = x_get_arg (dpyinfo
, parms
, Qicon_name
, "iconName", "Title",
3082 if (! STRINGP (f
->icon_name
))
3083 f
->icon_name
= Qnil
;
3085 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
3087 image_cache_refcount
= FRAME_X_IMAGE_CACHE (f
)->refcount
;
3088 dpyinfo_refcount
= dpyinfo
->reference_count
;
3089 #endif /* GLYPH_DEBUG */
3091 /* These colors will be set anyway later, but it's important
3092 to get the color reference counts right, so initialize them! */
3095 struct gcpro gcpro1
;
3097 /* Function x_decode_color can signal an error. Make
3098 sure to initialize color slots so that we won't try
3099 to free colors we haven't allocated. */
3100 f
->output_data
.x
->foreground_pixel
= -1;
3101 f
->output_data
.x
->background_pixel
= -1;
3102 f
->output_data
.x
->cursor_pixel
= -1;
3103 f
->output_data
.x
->cursor_foreground_pixel
= -1;
3104 f
->output_data
.x
->border_pixel
= -1;
3105 f
->output_data
.x
->mouse_pixel
= -1;
3107 black
= build_string ("black");
3109 f
->output_data
.x
->foreground_pixel
3110 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3111 f
->output_data
.x
->background_pixel
3112 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3113 f
->output_data
.x
->cursor_pixel
3114 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3115 f
->output_data
.x
->cursor_foreground_pixel
3116 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3117 f
->output_data
.x
->border_pixel
3118 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3119 f
->output_data
.x
->mouse_pixel
3120 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3124 /* Specify the parent under which to make this X window. */
3128 f
->output_data
.x
->parent_desc
= (Window
) XFASTINT (parent
);
3129 f
->output_data
.x
->explicit_parent
= 1;
3133 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
3134 f
->output_data
.x
->explicit_parent
= 0;
3137 /* Set the name; the functions to which we pass f expect the name to
3139 if (EQ (name
, Qunbound
) || NILP (name
))
3141 f
->name
= build_string (dpyinfo
->x_id_name
);
3142 f
->explicit_name
= 0;
3147 f
->explicit_name
= 1;
3148 /* use the frame's title when getting resources for this frame. */
3149 specbind (Qx_resource_name
, name
);
3152 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qwindow_system
, Qx
), Qnil
));
3154 /* Extract the window parameters from the supplied values
3155 that are needed to determine window geometry. */
3159 font
= x_get_arg (dpyinfo
, parms
, Qfont
, "font", "Font", RES_TYPE_STRING
);
3162 /* First, try whatever font the caller has specified. */
3165 tem
= Fquery_fontset (font
, Qnil
);
3167 font
= x_new_fontset (f
, SDATA (tem
));
3169 font
= x_new_font (f
, SDATA (font
));
3172 /* Try out a font which we hope has bold and italic variations. */
3173 if (!STRINGP (font
))
3174 font
= x_new_font (f
, "-adobe-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-1");
3175 if (!STRINGP (font
))
3176 font
= x_new_font (f
, "-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-1");
3177 if (! STRINGP (font
))
3178 font
= x_new_font (f
, "-*-*-medium-r-normal-*-*-140-*-*-c-*-iso8859-1");
3179 if (! STRINGP (font
))
3180 /* This was formerly the first thing tried, but it finds too many fonts
3181 and takes too long. */
3182 font
= x_new_font (f
, "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1");
3183 /* If those didn't work, look for something which will at least work. */
3184 if (! STRINGP (font
))
3185 font
= x_new_font (f
, "-*-fixed-*-*-*-*-*-140-*-*-c-*-iso8859-1");
3187 if (! STRINGP (font
))
3188 font
= build_string ("fixed");
3190 x_default_parameter (f
, parms
, Qfont
, font
,
3191 "font", "Font", RES_TYPE_STRING
);
3195 /* Prevent lwlib/xlwmenu.c from crashing because of a bug
3196 whereby it fails to get any font. */
3197 xlwmenu_default_font
= FRAME_FONT (f
);
3200 x_default_parameter (f
, parms
, Qborder_width
, make_number (2),
3201 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
3203 /* This defaults to 1 in order to match xterm. We recognize either
3204 internalBorderWidth or internalBorder (which is what xterm calls
3206 if (NILP (Fassq (Qinternal_border_width
, parms
)))
3210 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
3211 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
3212 if (! EQ (value
, Qunbound
))
3213 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
3216 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
3217 "internalBorderWidth", "internalBorderWidth",
3219 x_default_parameter (f
, parms
, Qvertical_scroll_bars
, Qleft
,
3220 "verticalScrollBars", "ScrollBars",
3223 /* Also do the stuff which must be set before the window exists. */
3224 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
3225 "foreground", "Foreground", RES_TYPE_STRING
);
3226 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
3227 "background", "Background", RES_TYPE_STRING
);
3228 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
3229 "pointerColor", "Foreground", RES_TYPE_STRING
);
3230 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
3231 "cursorColor", "Foreground", RES_TYPE_STRING
);
3232 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
3233 "borderColor", "BorderColor", RES_TYPE_STRING
);
3234 x_default_parameter (f
, parms
, Qscreen_gamma
, Qnil
,
3235 "screenGamma", "ScreenGamma", RES_TYPE_FLOAT
);
3236 x_default_parameter (f
, parms
, Qline_spacing
, Qnil
,
3237 "lineSpacing", "LineSpacing", RES_TYPE_NUMBER
);
3238 x_default_parameter (f
, parms
, Qleft_fringe
, Qnil
,
3239 "leftFringe", "LeftFringe", RES_TYPE_NUMBER
);
3240 x_default_parameter (f
, parms
, Qright_fringe
, Qnil
,
3241 "rightFringe", "RightFringe", RES_TYPE_NUMBER
);
3243 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_foreground
,
3244 "scrollBarForeground",
3245 "ScrollBarForeground", 1);
3246 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_background
,
3247 "scrollBarBackground",
3248 "ScrollBarBackground", 0);
3250 /* Init faces before x_default_parameter is called for scroll-bar
3251 parameters because that function calls x_set_scroll_bar_width,
3252 which calls change_frame_size, which calls Fset_window_buffer,
3253 which runs hooks, which call Fvertical_motion. At the end, we
3254 end up in init_iterator with a null face cache, which should not
3256 init_frame_faces (f
);
3258 x_default_parameter (f
, parms
, Qmenu_bar_lines
, make_number (1),
3259 "menuBar", "MenuBar", RES_TYPE_NUMBER
);
3260 x_default_parameter (f
, parms
, Qtool_bar_lines
, make_number (1),
3261 "toolBar", "ToolBar", RES_TYPE_NUMBER
);
3262 x_default_parameter (f
, parms
, Qbuffer_predicate
, Qnil
,
3263 "bufferPredicate", "BufferPredicate",
3265 x_default_parameter (f
, parms
, Qtitle
, Qnil
,
3266 "title", "Title", RES_TYPE_STRING
);
3267 x_default_parameter (f
, parms
, Qwait_for_wm
, Qt
,
3268 "waitForWM", "WaitForWM", RES_TYPE_BOOLEAN
);
3269 x_default_parameter (f
, parms
, Qfullscreen
, Qnil
,
3270 "fullscreen", "Fullscreen", RES_TYPE_SYMBOL
);
3272 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
3274 /* Compute the size of the X window. */
3275 window_prompting
= x_figure_window_size (f
, parms
, 1);
3277 tem
= x_get_arg (dpyinfo
, parms
, Qunsplittable
, 0, 0, RES_TYPE_BOOLEAN
);
3278 f
->no_split
= minibuffer_only
|| EQ (tem
, Qt
);
3280 x_icon_verify (f
, parms
);
3282 /* Create the X widget or window. */
3283 #ifdef USE_X_TOOLKIT
3284 x_window (f
, window_prompting
, minibuffer_only
);
3292 /* Now consider the frame official. */
3293 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
3294 Vframe_list
= Fcons (frame
, Vframe_list
);
3296 /* We need to do this after creating the X window, so that the
3297 icon-creation functions can say whose icon they're describing. */
3298 x_default_parameter (f
, parms
, Qicon_type
, Qnil
,
3299 "bitmapIcon", "BitmapIcon", RES_TYPE_SYMBOL
);
3301 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
3302 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3303 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
3304 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3305 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
3306 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
3307 x_default_parameter (f
, parms
, Qscroll_bar_width
, Qnil
,
3308 "scrollBarWidth", "ScrollBarWidth",
3311 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
3312 Change will not be effected unless different from the current
3314 width
= FRAME_COLS (f
);
3315 height
= FRAME_LINES (f
);
3317 SET_FRAME_COLS (f
, 0);
3318 FRAME_LINES (f
) = 0;
3319 change_frame_size (f
, height
, width
, 1, 0, 0);
3321 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
3322 /* Create the menu bar. */
3323 if (!minibuffer_only
&& FRAME_EXTERNAL_MENU_BAR (f
))
3325 /* If this signals an error, we haven't set size hints for the
3326 frame and we didn't make it visible. */
3327 initialize_frame_menubar (f
);
3330 /* This is a no-op, except under Motif where it arranges the
3331 main window for the widgets on it. */
3332 lw_set_main_areas (f
->output_data
.x
->column_widget
,
3333 f
->output_data
.x
->menubar_widget
,
3334 f
->output_data
.x
->edit_widget
);
3335 #endif /* not USE_GTK */
3337 #endif /* USE_X_TOOLKIT || USE_GTK */
3339 /* Tell the server what size and position, etc, we want, and how
3340 badly we want them. This should be done after we have the menu
3341 bar so that its size can be taken into account. */
3343 x_wm_set_size_hint (f
, window_prompting
, 0);
3346 /* Make the window appear on the frame and enable display, unless
3347 the caller says not to. However, with explicit parent, Emacs
3348 cannot control visibility, so don't try. */
3349 if (! f
->output_data
.x
->explicit_parent
)
3351 Lisp_Object visibility
;
3353 visibility
= x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0,
3355 if (EQ (visibility
, Qunbound
))
3358 if (EQ (visibility
, Qicon
))
3359 x_iconify_frame (f
);
3360 else if (! NILP (visibility
))
3361 x_make_frame_visible (f
);
3363 /* Must have been Qnil. */
3367 /* Set the WM leader property. GTK does this itself, so this is not
3368 needed when using GTK. */
3369 if (dpyinfo
->client_leader_window
!= 0)
3372 XChangeProperty (FRAME_X_DISPLAY (f
),
3373 FRAME_OUTER_WINDOW (f
),
3374 dpyinfo
->Xatom_wm_client_leader
,
3375 XA_WINDOW
, 32, PropModeReplace
,
3376 (char *) &dpyinfo
->client_leader_window
, 1);
3382 /* Make sure windows on this frame appear in calls to next-window
3383 and similar functions. */
3384 Vwindow_list
= Qnil
;
3386 return unbind_to (count
, frame
);
3390 /* FRAME is used only to get a handle on the X display. We don't pass the
3391 display info directly because we're called from frame.c, which doesn't
3392 know about that structure. */
3395 x_get_focus_frame (frame
)
3396 struct frame
*frame
;
3398 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (frame
);
3400 if (! dpyinfo
->x_focus_frame
)
3403 XSETFRAME (xfocus
, dpyinfo
->x_focus_frame
);
3408 /* In certain situations, when the window manager follows a
3409 click-to-focus policy, there seems to be no way around calling
3410 XSetInputFocus to give another frame the input focus .
3412 In an ideal world, XSetInputFocus should generally be avoided so
3413 that applications don't interfere with the window manager's focus
3414 policy. But I think it's okay to use when it's clearly done
3415 following a user-command. */
3417 DEFUN ("x-focus-frame", Fx_focus_frame
, Sx_focus_frame
, 1, 1, 0,
3418 doc
: /* Set the input focus to FRAME.
3419 FRAME nil means use the selected frame. */)
3423 struct frame
*f
= check_x_frame (frame
);
3424 Display
*dpy
= FRAME_X_DISPLAY (f
);
3428 count
= x_catch_errors (dpy
);
3429 XSetInputFocus (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
3430 RevertToParent
, CurrentTime
);
3431 x_uncatch_errors (dpy
, count
);
3438 DEFUN ("xw-color-defined-p", Fxw_color_defined_p
, Sxw_color_defined_p
, 1, 2, 0,
3439 doc
: /* Internal function called by `color-defined-p', which see. */)
3441 Lisp_Object color
, frame
;
3444 FRAME_PTR f
= check_x_frame (frame
);
3446 CHECK_STRING (color
);
3448 if (x_defined_color (f
, SDATA (color
), &foo
, 0))
3454 DEFUN ("xw-color-values", Fxw_color_values
, Sxw_color_values
, 1, 2, 0,
3455 doc
: /* Internal function called by `color-values', which see. */)
3457 Lisp_Object color
, frame
;
3460 FRAME_PTR f
= check_x_frame (frame
);
3462 CHECK_STRING (color
);
3464 if (x_defined_color (f
, SDATA (color
), &foo
, 0))
3468 rgb
[0] = make_number (foo
.red
);
3469 rgb
[1] = make_number (foo
.green
);
3470 rgb
[2] = make_number (foo
.blue
);
3471 return Flist (3, rgb
);
3477 DEFUN ("xw-display-color-p", Fxw_display_color_p
, Sxw_display_color_p
, 0, 1, 0,
3478 doc
: /* Internal function called by `display-color-p', which see. */)
3482 struct x_display_info
*dpyinfo
= check_x_display_info (device
);
3484 if (dpyinfo
->n_planes
<= 2)
3487 switch (dpyinfo
->visual
->class)
3500 DEFUN ("x-display-grayscale-p", Fx_display_grayscale_p
, Sx_display_grayscale_p
,
3502 doc
: /* Return t if the X display supports shades of gray.
3503 Note that color displays do support shades of gray.
3504 The optional argument DEVICE specifies which display to ask about.
3505 DEVICE should be a device id, a frame or a display name (a string).
3506 If omitted or nil, that stands for the selected frame's display device. */)
3510 struct x_display_info
*dpyinfo
= check_x_display_info (device
);
3512 if (dpyinfo
->n_planes
<= 1)
3515 switch (dpyinfo
->visual
->class)
3530 DEFUN ("x-display-pixel-width", Fx_display_pixel_width
, Sx_display_pixel_width
,
3532 doc
: /* Returns the width in pixels of the X display DEVICE.
3533 The optional argument DEVICE specifies which display to ask about.
3534 DEVICE should be a device id, a frame or a display name (a string).
3535 If omitted or nil, that stands for the selected frame's display. */)
3539 struct x_display_info
*dpyinfo
= check_x_display_info (device
);
3541 return make_number (dpyinfo
->width
);
3544 DEFUN ("x-display-pixel-height", Fx_display_pixel_height
,
3545 Sx_display_pixel_height
, 0, 1, 0,
3546 doc
: /* Returns the height in pixels of the X display DEVICE.
3547 The optional argument DEVICE specifies which display to ask about.
3548 DEVICE should be a device id, a frame or a display name (a string).
3549 If omitted or nil, that stands for the selected frame's display. */)
3553 struct x_display_info
*dpyinfo
= check_x_display_info (device
);
3555 return make_number (dpyinfo
->height
);
3558 DEFUN ("x-display-planes", Fx_display_planes
, Sx_display_planes
,
3560 doc
: /* Returns the number of bitplanes of the X display DEVICE.
3561 The optional argument DEVICE specifies which display to ask about.
3562 DEVICE should be a device id, a frame or a display name (a string).
3563 If omitted or nil, that stands for the selected frame's display. */)
3567 struct x_display_info
*dpyinfo
= check_x_display_info (device
);
3569 return make_number (dpyinfo
->n_planes
);
3572 DEFUN ("x-display-color-cells", Fx_display_color_cells
, Sx_display_color_cells
,
3574 doc
: /* Returns the number of color cells of the X display DEVICE.
3575 The optional argument DEVICE specifies which display to ask about.
3576 DEVICE should be a device id, a frame or a display name (a string).
3577 If omitted or nil, that stands for the selected frame's display. */)
3581 struct x_display_info
*dpyinfo
= check_x_display_info (device
);
3583 int nr_planes
= DisplayPlanes (dpyinfo
->display
,
3584 XScreenNumberOfScreen (dpyinfo
->screen
));
3586 /* Truncate nr_planes to 24 to avoid integer overflow.
3587 Some displays says 32, but only 24 bits are actually significant.
3588 There are only very few and rare video cards that have more than
3589 24 significant bits. Also 24 bits is more than 16 million colors,
3590 it "should be enough for everyone". */
3591 if (nr_planes
> 24) nr_planes
= 24;
3593 return make_number (1 << nr_planes
);
3596 DEFUN ("x-server-max-request-size", Fx_server_max_request_size
,
3597 Sx_server_max_request_size
,
3599 doc
: /* Returns the maximum request size of the X server of display DEVICE.
3600 The optional argument DEVICE specifies which display to ask about.
3601 DEVICE should be a device id, a frame or a display name (a string).
3602 If omitted or nil, that stands for the selected frame's display. */)
3606 struct x_display_info
*dpyinfo
= check_x_display_info (device
);
3608 return make_number (MAXREQUEST (dpyinfo
->display
));
3611 DEFUN ("x-server-vendor", Fx_server_vendor
, Sx_server_vendor
, 0, 1, 0,
3612 doc
: /* Returns the "vendor ID" string of the X server of display DEVICE.
3613 \(Labelling every distributor as a "vendor" embodies the false assumption
3614 that operating systems cannot be developed and distributed noncommercially.)
3615 The optional argument DEVICE specifies which display to ask about.
3616 DEVICE should be a device id, a frame or a display name (a string).
3617 If omitted or nil, that stands for the selected frame's display. */)
3621 struct x_display_info
*dpyinfo
= check_x_display_info (device
);
3622 char *vendor
= ServerVendor (dpyinfo
->display
);
3624 if (! vendor
) vendor
= "";
3625 return build_string (vendor
);
3628 DEFUN ("x-server-version", Fx_server_version
, Sx_server_version
, 0, 1, 0,
3629 doc
: /* Returns the version numbers of the X server of display DEVICE.
3630 The value is a list of three integers: the major and minor
3631 version numbers of the X Protocol in use, and the distributor-specific release
3632 number. See also the function `x-server-vendor'.
3634 The optional argument DEVICE specifies which display to ask about.
3635 DEVICE should be a device id, a frame or a display name (a string).
3636 If omitted or nil, that stands for the selected frame's display. */)
3640 struct x_display_info
*dpyinfo
= check_x_display_info (device
);
3641 Display
*dpy
= dpyinfo
->display
;
3643 return Fcons (make_number (ProtocolVersion (dpy
)),
3644 Fcons (make_number (ProtocolRevision (dpy
)),
3645 Fcons (make_number (VendorRelease (dpy
)), Qnil
)));
3648 DEFUN ("x-display-screens", Fx_display_screens
, Sx_display_screens
, 0, 1, 0,
3649 doc
: /* Return the number of screens on the X server of display DEVICE.
3650 The optional argument DEVICE specifies which display to ask about.
3651 DEVICE should be a device id, a frame or a display name (a string).
3652 If omitted or nil, that stands for the selected frame's display. */)
3656 struct x_display_info
*dpyinfo
= check_x_display_info (device
);
3658 return make_number (ScreenCount (dpyinfo
->display
));
3661 DEFUN ("x-display-mm-height", Fx_display_mm_height
, Sx_display_mm_height
, 0, 1, 0,
3662 doc
: /* Return the height in millimeters of the X display DEVICE.
3663 The optional argument DEVICE specifies which display to ask about.
3664 DEVICE should be a device id, a frame or a display name (a string).
3665 If omitted or nil, that stands for the selected frame's display. */)
3669 struct x_display_info
*dpyinfo
= check_x_display_info (device
);
3671 return make_number (HeightMMOfScreen (dpyinfo
->screen
));
3674 DEFUN ("x-display-mm-width", Fx_display_mm_width
, Sx_display_mm_width
, 0, 1, 0,
3675 doc
: /* Return the width in millimeters of the X display DEVICE.
3676 The optional argument DEVICE specifies which display to ask about.
3677 DEVICE should be a device id, a frame or a display name (a string).
3678 If omitted or nil, that stands for the selected frame's display. */)
3682 struct x_display_info
*dpyinfo
= check_x_display_info (device
);
3684 return make_number (WidthMMOfScreen (dpyinfo
->screen
));
3687 DEFUN ("x-display-backing-store", Fx_display_backing_store
,
3688 Sx_display_backing_store
, 0, 1, 0,
3689 doc
: /* Returns an indication of whether X display DEVICE does backing store.
3690 The value may be `always', `when-mapped', or `not-useful'.
3691 The optional argument DEVICE specifies which display to ask about.
3692 DEVICE should be a device id, a frame or a display name (a string).
3693 If omitted or nil, that stands for the selected frame's display. */)
3697 struct x_display_info
*dpyinfo
= check_x_display_info (device
);
3700 switch (DoesBackingStore (dpyinfo
->screen
))
3703 result
= intern ("always");
3707 result
= intern ("when-mapped");
3711 result
= intern ("not-useful");
3715 error ("Strange value for BackingStore parameter of screen");
3722 DEFUN ("x-display-visual-class", Fx_display_visual_class
,
3723 Sx_display_visual_class
, 0, 1, 0,
3724 doc
: /* Return the visual class of the X display DEVICE.
3725 The value is one of the symbols `static-gray', `gray-scale',
3726 `static-color', `pseudo-color', `true-color', or `direct-color'.
3728 The optional argument DEVICE specifies which display to ask about.
3729 DEVICE should a device id, a frame or a display name (a string).
3730 If omitted or nil, that stands for the selected frame's display. */)
3734 struct x_display_info
*dpyinfo
= check_x_display_info (device
);
3737 switch (dpyinfo
->visual
->class)
3740 result
= intern ("static-gray");
3743 result
= intern ("gray-scale");
3746 result
= intern ("static-color");
3749 result
= intern ("pseudo-color");
3752 result
= intern ("true-color");
3755 result
= intern ("direct-color");
3758 error ("Display has an unknown visual class");
3765 DEFUN ("x-display-save-under", Fx_display_save_under
,
3766 Sx_display_save_under
, 0, 1, 0,
3767 doc
: /* Returns t if the X display DEVICE supports the save-under feature.
3768 The optional argument DEVICE specifies which display to ask about.
3769 DEVICE should be a device id, a frame or a display name (a string).
3770 If omitted or nil, that stands for the selected frame's display. */)
3774 struct x_display_info
*dpyinfo
= check_x_display_info (device
);
3776 if (DoesSaveUnders (dpyinfo
->screen
) == True
)
3784 register struct frame
*f
;
3786 return FRAME_PIXEL_WIDTH (f
);
3791 register struct frame
*f
;
3793 return FRAME_PIXEL_HEIGHT (f
);
3798 register struct frame
*f
;
3800 return FRAME_COLUMN_WIDTH (f
);
3805 register struct frame
*f
;
3807 return FRAME_LINE_HEIGHT (f
);
3812 register struct frame
*f
;
3814 return FRAME_X_DISPLAY_INFO (f
)->n_planes
;
3819 /************************************************************************
3821 ************************************************************************/
3824 /* Mapping visual names to visuals. */
3826 static struct visual_class
3833 {"StaticGray", StaticGray
},
3834 {"GrayScale", GrayScale
},
3835 {"StaticColor", StaticColor
},
3836 {"PseudoColor", PseudoColor
},
3837 {"TrueColor", TrueColor
},
3838 {"DirectColor", DirectColor
},
3843 #ifndef HAVE_XSCREENNUMBEROFSCREEN
3845 /* Value is the screen number of screen SCR. This is a substitute for
3846 the X function with the same name when that doesn't exist. */
3849 XScreenNumberOfScreen (scr
)
3850 register Screen
*scr
;
3852 Display
*dpy
= scr
->display
;
3855 for (i
= 0; i
< dpy
->nscreens
; ++i
)
3856 if (scr
== dpy
->screens
+ i
)
3862 #endif /* not HAVE_XSCREENNUMBEROFSCREEN */
3865 /* Select the visual that should be used on display DPYINFO. Set
3866 members of DPYINFO appropriately. Called from x_term_init. */
3869 select_visual (dpyinfo
)
3870 struct x_display_info
*dpyinfo
;
3872 Display
*dpy
= dpyinfo
->display
;
3873 Screen
*screen
= dpyinfo
->screen
;
3876 /* See if a visual is specified. */
3877 value
= display_x_get_resource (dpyinfo
,
3878 build_string ("visualClass"),
3879 build_string ("VisualClass"),
3881 if (STRINGP (value
))
3883 /* VALUE should be of the form CLASS-DEPTH, where CLASS is one
3884 of `PseudoColor', `TrueColor' etc. and DEPTH is the color
3885 depth, a decimal number. NAME is compared with case ignored. */
3886 char *s
= (char *) alloca (SBYTES (value
) + 1);
3891 strcpy (s
, SDATA (value
));
3892 dash
= index (s
, '-');
3895 dpyinfo
->n_planes
= atoi (dash
+ 1);
3899 /* We won't find a matching visual with depth 0, so that
3900 an error will be printed below. */
3901 dpyinfo
->n_planes
= 0;
3903 /* Determine the visual class. */
3904 for (i
= 0; visual_classes
[i
].name
; ++i
)
3905 if (xstricmp (s
, visual_classes
[i
].name
) == 0)
3907 class = visual_classes
[i
].class;
3911 /* Look up a matching visual for the specified class. */
3913 || !XMatchVisualInfo (dpy
, XScreenNumberOfScreen (screen
),
3914 dpyinfo
->n_planes
, class, &vinfo
))
3915 fatal ("Invalid visual specification `%s'", SDATA (value
));
3917 dpyinfo
->visual
= vinfo
.visual
;
3922 XVisualInfo
*vinfo
, vinfo_template
;
3924 dpyinfo
->visual
= DefaultVisualOfScreen (screen
);
3927 vinfo_template
.visualid
= XVisualIDFromVisual (dpyinfo
->visual
);
3929 vinfo_template
.visualid
= dpyinfo
->visual
->visualid
;
3931 vinfo_template
.screen
= XScreenNumberOfScreen (screen
);
3932 vinfo
= XGetVisualInfo (dpy
, VisualIDMask
| VisualScreenMask
,
3933 &vinfo_template
, &n_visuals
);
3935 fatal ("Can't get proper X visual info");
3937 dpyinfo
->n_planes
= vinfo
->depth
;
3938 XFree ((char *) vinfo
);
3943 /* Return the X display structure for the display named NAME.
3944 Open a new connection if necessary. */
3946 struct x_display_info
*
3947 x_display_info_for_name (name
)
3951 struct x_display_info
*dpyinfo
;
3953 CHECK_STRING (name
);
3956 if (! EQ (Vinitial_window_system
, intern ("x")))
3957 error ("Not using X Windows"); /* That doesn't stop us anymore. */
3960 for (dpyinfo
= x_display_list
, names
= x_display_name_list
;
3962 dpyinfo
= dpyinfo
->next
, names
= XCDR (names
))
3965 tem
= Fstring_equal (XCAR (XCAR (names
)), name
);
3970 /* Use this general default value to start with. */
3971 Vx_resource_name
= Vinvocation_name
;
3973 validate_x_resource_name ();
3975 dpyinfo
= x_term_init (name
, (char *)0,
3976 (char *) SDATA (Vx_resource_name
));
3979 error ("Cannot connect to X server %s", SDATA (name
));
3982 XSETFASTINT (Vwindow_system_version
, 11);
3988 DEFUN ("x-open-connection", Fx_open_connection
, Sx_open_connection
,
3990 doc
: /* Open a connection to an X server.
3991 DISPLAY is the name of the display to connect to.
3992 Optional second arg XRM-STRING is a string of resources in xrdb format.
3993 If the optional third arg MUST-SUCCEED is non-nil,
3994 terminate Emacs if we can't open the connection. */)
3995 (display
, xrm_string
, must_succeed
)
3996 Lisp_Object display
, xrm_string
, must_succeed
;
3998 unsigned char *xrm_option
;
3999 struct x_display_info
*dpyinfo
;
4001 CHECK_STRING (display
);
4002 if (! NILP (xrm_string
))
4003 CHECK_STRING (xrm_string
);
4006 if (! EQ (Vinitial_window_system
, intern ("x")))
4007 error ("Not using X Windows"); /* That doesn't stop us anymore. */
4010 if (! NILP (xrm_string
))
4011 xrm_option
= (unsigned char *) SDATA (xrm_string
);
4013 xrm_option
= (unsigned char *) 0;
4015 validate_x_resource_name ();
4017 /* This is what opens the connection and sets x_current_display.
4018 This also initializes many symbols, such as those used for input. */
4019 dpyinfo
= x_term_init (display
, xrm_option
,
4020 (char *) SDATA (Vx_resource_name
));
4024 if (!NILP (must_succeed
))
4025 fatal ("Cannot connect to X server %s.\n\
4026 Check the DISPLAY environment variable or use `-d'.\n\
4027 Also use the `xauth' program to verify that you have the proper\n\
4028 authorization information needed to connect the X server.\n\
4029 An insecure way to solve the problem may be to use `xhost'.\n",
4032 error ("Cannot connect to X server %s", SDATA (display
));
4037 XSETFASTINT (Vwindow_system_version
, 11);
4041 DEFUN ("x-close-connection", Fx_close_connection
,
4042 Sx_close_connection
, 1, 1, 0,
4043 doc
: /* Close the connection to DISPLAY's X server.
4044 For DISPLAY, specify either a frame or a display name (a string).
4045 If DISPLAY is nil, that stands for the selected frame's display. */)
4047 Lisp_Object display
;
4049 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
4051 if (dpyinfo
->reference_count
> 0)
4052 error ("Display still has frames on it");
4054 x_delete_device (dpyinfo
->device
);
4059 DEFUN ("x-display-list", Fx_display_list
, Sx_display_list
, 0, 0, 0,
4060 doc
: /* Return the list of display names that Emacs has connections to. */)
4063 Lisp_Object tail
, result
;
4066 for (tail
= x_display_name_list
; ! NILP (tail
); tail
= XCDR (tail
))
4067 result
= Fcons (XCAR (XCAR (tail
)), result
);
4072 DEFUN ("x-synchronize", Fx_synchronize
, Sx_synchronize
, 1, 2, 0,
4073 doc
: /* If ON is non-nil, report X errors as soon as the erring request is made.
4074 If ON is nil, allow buffering of requests.
4075 Turning on synchronization prohibits the Xlib routines from buffering
4076 requests and seriously degrades performance, but makes debugging much
4078 The optional second argument DISPLAY specifies which display to act on.
4079 DISPLAY should be either a frame or a display name (a string).
4080 If DISPLAY is omitted or nil, that stands for the selected frame's display. */)
4082 Lisp_Object display
, on
;
4084 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
4086 XSynchronize (dpyinfo
->display
, !EQ (on
, Qnil
));
4091 /* Wait for responses to all X commands issued so far for frame F. */
4098 XSync (FRAME_X_DISPLAY (f
), False
);
4103 /***********************************************************************
4105 ***********************************************************************/
4107 DEFUN ("x-change-window-property", Fx_change_window_property
,
4108 Sx_change_window_property
, 2, 6, 0,
4109 doc
: /* Change window property PROP to VALUE on the X window of FRAME.
4110 PROP must be a string.
4111 VALUE may be a string or a list of conses, numbers and/or strings.
4112 If an element in the list is a string, it is converted to
4113 an Atom and the value of the Atom is used. If an element is a cons,
4114 it is converted to a 32 bit number where the car is the 16 top bits and the
4115 cdr is the lower 16 bits.
4116 FRAME nil or omitted means use the selected frame.
4117 If TYPE is given and non-nil, it is the name of the type of VALUE.
4118 If TYPE is not given or nil, the type is STRING.
4119 FORMAT gives the size in bits of each element if VALUE is a list.
4120 It must be one of 8, 16 or 32.
4121 If VALUE is a string or FORMAT is nil or not given, FORMAT defaults to 8.
4122 If OUTER_P is non-nil, the property is changed for the outer X window of
4123 FRAME. Default is to change on the edit X window.
4126 (prop
, value
, frame
, type
, format
, outer_p
)
4127 Lisp_Object prop
, value
, frame
, type
, format
, outer_p
;
4129 struct frame
*f
= check_x_frame (frame
);
4131 Atom target_type
= XA_STRING
;
4132 int element_format
= 8;
4133 unsigned char *data
;
4137 CHECK_STRING (prop
);
4139 if (! NILP (format
))
4141 CHECK_NUMBER (format
);
4142 element_format
= XFASTINT (format
);
4144 if (element_format
!= 8 && element_format
!= 16
4145 && element_format
!= 32)
4146 error ("FORMAT must be one of 8, 16 or 32");
4151 nelements
= x_check_property_data (value
);
4152 if (nelements
== -1)
4153 error ("Bad data in VALUE, must be number, string or cons");
4155 if (element_format
== 8)
4156 data
= (unsigned char *) xmalloc (nelements
);
4157 else if (element_format
== 16)
4158 data
= (unsigned char *) xmalloc (nelements
*2);
4159 else /* format == 32 */
4160 /* The man page for XChangeProperty:
4161 "If the specified format is 32, the property data must be a
4163 This applies even if long is more than 64 bits. The X library
4164 converts to 32 bits before sending to the X server. */
4165 data
= (unsigned char *) xmalloc (nelements
* sizeof(long));
4167 x_fill_property_data (FRAME_X_DISPLAY (f
), value
, data
, element_format
);
4171 CHECK_STRING (value
);
4172 data
= SDATA (value
);
4173 nelements
= SCHARS (value
);
4177 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4180 CHECK_STRING (type
);
4181 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (type
), False
);
4184 if (! NILP (outer_p
)) w
= FRAME_OUTER_WINDOW (f
);
4185 else w
= FRAME_X_WINDOW (f
);
4187 XChangeProperty (FRAME_X_DISPLAY (f
), w
,
4188 prop_atom
, target_type
, element_format
, PropModeReplace
,
4191 if (CONSP (value
)) xfree (data
);
4193 /* Make sure the property is set when we return. */
4194 XFlush (FRAME_X_DISPLAY (f
));
4201 DEFUN ("x-delete-window-property", Fx_delete_window_property
,
4202 Sx_delete_window_property
, 1, 2, 0,
4203 doc
: /* Remove window property PROP from X window of FRAME.
4204 FRAME nil or omitted means use the selected frame. Value is PROP. */)
4206 Lisp_Object prop
, frame
;
4208 struct frame
*f
= check_x_frame (frame
);
4211 CHECK_STRING (prop
);
4213 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4214 XDeleteProperty (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), prop_atom
);
4216 /* Make sure the property is removed when we return. */
4217 XFlush (FRAME_X_DISPLAY (f
));
4224 DEFUN ("x-window-property", Fx_window_property
, Sx_window_property
,
4226 doc
: /* Value is the value of window property PROP on FRAME.
4227 If FRAME is nil or omitted, use the selected frame.
4228 If TYPE is nil or omitted, get the property as a string. Otherwise TYPE
4229 is the name of the Atom that denotes the type expected.
4230 If SOURCE is non-nil, get the property on that window instead of from
4231 FRAME. The number 0 denotes the root window.
4232 If DELETE_P is non-nil, delete the property after retreiving it.
4233 If VECTOR_RET_P is non-nil, don't return a string but a vector of values.
4235 Value is nil if FRAME hasn't a property with name PROP or if PROP has
4236 no value of TYPE. */)
4237 (prop
, frame
, type
, source
, delete_p
, vector_ret_p
)
4238 Lisp_Object prop
, frame
, type
, source
, delete_p
, vector_ret_p
;
4240 struct frame
*f
= check_x_frame (frame
);
4243 Lisp_Object prop_value
= Qnil
;
4244 unsigned char *tmp_data
= NULL
;
4246 Atom target_type
= XA_STRING
;
4248 unsigned long actual_size
, bytes_remaining
;
4249 Window target_window
= FRAME_X_WINDOW (f
);
4250 struct gcpro gcpro1
;
4252 GCPRO1 (prop_value
);
4253 CHECK_STRING (prop
);
4255 if (! NILP (source
))
4257 if (NUMBERP (source
))
4259 if (FLOATP (source
))
4260 target_window
= (Window
) XFLOAT (source
);
4262 target_window
= XFASTINT (source
);
4264 if (target_window
== 0)
4265 target_window
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4267 else if (CONSP (source
))
4268 target_window
= cons_to_long (source
);
4274 if (strcmp ("AnyPropertyType", SDATA (type
)) == 0)
4275 target_type
= AnyPropertyType
;
4277 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (type
), False
);
4280 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4281 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4282 prop_atom
, 0, 0, False
, target_type
,
4283 &actual_type
, &actual_format
, &actual_size
,
4284 &bytes_remaining
, &tmp_data
);
4287 int size
= bytes_remaining
;
4292 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4293 prop_atom
, 0, bytes_remaining
,
4294 ! NILP (delete_p
), target_type
,
4295 &actual_type
, &actual_format
,
4296 &actual_size
, &bytes_remaining
,
4298 if (rc
== Success
&& tmp_data
)
4300 /* The man page for XGetWindowProperty says:
4301 "If the returned format is 32, the returned data is represented
4302 as a long array and should be cast to that type to obtain the
4304 This applies even if long is more than 32 bits, the X library
4305 converts from 32 bit elements received from the X server to long
4306 and passes the long array to us. Thus, for that case bcopy can not
4307 be used. We convert to a 32 bit type here, because so much code
4310 The bytes and offsets passed to XGetWindowProperty refers to the
4311 property and those are indeed in 32 bit quantities if format is
4314 if (actual_format
== 32 && actual_format
< BITS_PER_LONG
)
4317 int *idata
= (int *) tmp_data
;
4318 long *ldata
= (long *) tmp_data
;
4320 for (i
= 0; i
< actual_size
; ++i
)
4321 idata
[i
] = (int) ldata
[i
];
4324 if (NILP (vector_ret_p
))
4325 prop_value
= make_string (tmp_data
, size
);
4327 prop_value
= x_property_data_to_lisp (f
,
4334 if (tmp_data
) XFree (tmp_data
);
4344 /***********************************************************************
4346 ***********************************************************************/
4348 /* If non-null, an asynchronous timer that, when it expires, displays
4349 an hourglass cursor on all frames. */
4351 static struct atimer
*hourglass_atimer
;
4353 /* Non-zero means an hourglass cursor is currently shown. */
4355 static int hourglass_shown_p
;
4357 /* Number of seconds to wait before displaying an hourglass cursor. */
4359 static Lisp_Object Vhourglass_delay
;
4361 /* Default number of seconds to wait before displaying an hourglass
4364 #define DEFAULT_HOURGLASS_DELAY 1
4366 /* Function prototypes. */
4368 static void show_hourglass
P_ ((struct atimer
*));
4369 static void hide_hourglass
P_ ((void));
4371 /* Return non-zero if houglass timer has been started or hourglass is shown. */
4374 hourglass_started ()
4376 return hourglass_shown_p
|| hourglass_atimer
!= NULL
;
4380 /* Cancel a currently active hourglass timer, and start a new one. */
4386 int secs
, usecs
= 0;
4388 cancel_hourglass ();
4390 if (INTEGERP (Vhourglass_delay
)
4391 && XINT (Vhourglass_delay
) > 0)
4392 secs
= XFASTINT (Vhourglass_delay
);
4393 else if (FLOATP (Vhourglass_delay
)
4394 && XFLOAT_DATA (Vhourglass_delay
) > 0)
4397 tem
= Ftruncate (Vhourglass_delay
, Qnil
);
4398 secs
= XFASTINT (tem
);
4399 usecs
= (XFLOAT_DATA (Vhourglass_delay
) - secs
) * 1000000;
4402 secs
= DEFAULT_HOURGLASS_DELAY
;
4404 EMACS_SET_SECS_USECS (delay
, secs
, usecs
);
4405 hourglass_atimer
= start_atimer (ATIMER_RELATIVE
, delay
,
4406 show_hourglass
, NULL
);
4410 /* Cancel the hourglass cursor timer if active, hide a busy cursor if
4416 if (hourglass_atimer
)
4418 cancel_atimer (hourglass_atimer
);
4419 hourglass_atimer
= NULL
;
4422 if (hourglass_shown_p
)
4427 /* Timer function of hourglass_atimer. TIMER is equal to
4430 Display an hourglass pointer on all frames by mapping the frames'
4431 hourglass_window. Set the hourglass_p flag in the frames'
4432 output_data.x structure to indicate that an hourglass cursor is
4433 shown on the frames. */
4436 show_hourglass (timer
)
4437 struct atimer
*timer
;
4439 /* The timer implementation will cancel this timer automatically
4440 after this function has run. Set hourglass_atimer to null
4441 so that we know the timer doesn't have to be canceled. */
4442 hourglass_atimer
= NULL
;
4444 if (!hourglass_shown_p
)
4446 Lisp_Object rest
, frame
;
4450 FOR_EACH_FRAME (rest
, frame
)
4452 struct frame
*f
= XFRAME (frame
);
4454 if (FRAME_LIVE_P (f
) && FRAME_X_P (f
) && FRAME_X_DISPLAY (f
))
4456 Display
*dpy
= FRAME_X_DISPLAY (f
);
4458 #ifdef USE_X_TOOLKIT
4459 if (f
->output_data
.x
->widget
)
4461 if (FRAME_OUTER_WINDOW (f
))
4464 f
->output_data
.x
->hourglass_p
= 1;
4466 if (!f
->output_data
.x
->hourglass_window
)
4468 unsigned long mask
= CWCursor
;
4469 XSetWindowAttributes attrs
;
4471 Window parent
= FRAME_X_WINDOW (f
);
4473 Window parent
= FRAME_OUTER_WINDOW (f
);
4475 attrs
.cursor
= f
->output_data
.x
->hourglass_cursor
;
4477 f
->output_data
.x
->hourglass_window
4478 = XCreateWindow (dpy
, parent
,
4479 0, 0, 32000, 32000, 0, 0,
4485 XMapRaised (dpy
, f
->output_data
.x
->hourglass_window
);
4491 hourglass_shown_p
= 1;
4497 /* Hide the hourglass pointer on all frames, if it is currently
4503 if (hourglass_shown_p
)
4505 Lisp_Object rest
, frame
;
4508 FOR_EACH_FRAME (rest
, frame
)
4510 struct frame
*f
= XFRAME (frame
);
4513 /* Watch out for newly created frames. */
4514 && f
->output_data
.x
->hourglass_window
)
4516 XUnmapWindow (FRAME_X_DISPLAY (f
),
4517 f
->output_data
.x
->hourglass_window
);
4518 /* Sync here because XTread_socket looks at the
4519 hourglass_p flag that is reset to zero below. */
4520 XSync (FRAME_X_DISPLAY (f
), False
);
4521 f
->output_data
.x
->hourglass_p
= 0;
4525 hourglass_shown_p
= 0;
4532 /***********************************************************************
4534 ***********************************************************************/
4536 static Lisp_Object x_create_tip_frame
P_ ((struct x_display_info
*,
4537 Lisp_Object
, Lisp_Object
));
4538 static void compute_tip_xy
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
,
4539 Lisp_Object
, int, int, int *, int *));
4541 /* The frame of a currently visible tooltip. */
4543 Lisp_Object tip_frame
;
4545 /* If non-nil, a timer started that hides the last tooltip when it
4548 Lisp_Object tip_timer
;
4551 /* If non-nil, a vector of 3 elements containing the last args
4552 with which x-show-tip was called. See there. */
4554 Lisp_Object last_show_tip_args
;
4556 /* Maximum size for tooltips; a cons (COLUMNS . ROWS). */
4558 Lisp_Object Vx_max_tooltip_size
;
4562 unwind_create_tip_frame (frame
)
4565 Lisp_Object deleted
;
4567 deleted
= unwind_create_frame (frame
);
4568 if (EQ (deleted
, Qt
))
4578 /* Create a frame for a tooltip on the display described by DPYINFO.
4579 PARMS is a list of frame parameters. TEXT is the string to
4580 display in the tip frame. Value is the frame.
4582 Note that functions called here, esp. x_default_parameter can
4583 signal errors, for instance when a specified color name is
4584 undefined. We have to make sure that we're in a consistent state
4585 when this happens. */
4588 x_create_tip_frame (dpyinfo
, parms
, text
)
4589 struct x_display_info
*dpyinfo
;
4590 Lisp_Object parms
, text
;
4593 Lisp_Object frame
, tem
;
4595 long window_prompting
= 0;
4597 int count
= SPECPDL_INDEX ();
4598 struct gcpro gcpro1
, gcpro2
, gcpro3
;
4599 int face_change_count_before
= face_change_count
;
4601 struct buffer
*old_buffer
;
4605 /* Get the name of the frame to use for resource lookup. */
4606 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
4608 && !EQ (name
, Qunbound
)
4610 error ("Invalid frame name--not a string or nil");
4613 GCPRO3 (parms
, name
, frame
);
4615 XSETFRAME (frame
, f
);
4617 buffer
= Fget_buffer_create (build_string (" *tip*"));
4618 Fset_window_buffer (FRAME_ROOT_WINDOW (f
), buffer
, Qnil
);
4619 old_buffer
= current_buffer
;
4620 set_buffer_internal_1 (XBUFFER (buffer
));
4621 current_buffer
->truncate_lines
= Qnil
;
4622 specbind (Qinhibit_read_only
, Qt
);
4623 specbind (Qinhibit_modification_hooks
, Qt
);
4626 set_buffer_internal_1 (old_buffer
);
4628 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 0;
4629 record_unwind_protect (unwind_create_tip_frame
, frame
);
4631 f
->device
= dpyinfo
->device
;
4632 f
->device
->reference_count
++;
4634 /* By setting the output method, we're essentially saying that
4635 the frame is live, as per FRAME_LIVE_P. If we get a signal
4636 from this point on, x_destroy_window might screw up reference
4638 f
->output_method
= output_x_window
;
4639 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
4640 bzero (f
->output_data
.x
, sizeof (struct x_output
));
4641 f
->output_data
.x
->icon_bitmap
= -1;
4642 FRAME_FONTSET (f
) = -1;
4643 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
4644 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
4645 #ifdef USE_TOOLKIT_SCROLL_BARS
4646 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
4647 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
4648 #endif /* USE_TOOLKIT_SCROLL_BARS */
4649 f
->icon_name
= Qnil
;
4650 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
4652 image_cache_refcount
= FRAME_X_IMAGE_CACHE (f
)->refcount
;
4653 dpyinfo_refcount
= dpyinfo
->reference_count
;
4654 #endif /* GLYPH_DEBUG */
4655 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4656 f
->output_data
.x
->explicit_parent
= 0;
4658 /* These colors will be set anyway later, but it's important
4659 to get the color reference counts right, so initialize them! */
4662 struct gcpro gcpro1
;
4664 /* Function x_decode_color can signal an error. Make
4665 sure to initialize color slots so that we won't try
4666 to free colors we haven't allocated. */
4667 f
->output_data
.x
->foreground_pixel
= -1;
4668 f
->output_data
.x
->background_pixel
= -1;
4669 f
->output_data
.x
->cursor_pixel
= -1;
4670 f
->output_data
.x
->cursor_foreground_pixel
= -1;
4671 f
->output_data
.x
->border_pixel
= -1;
4672 f
->output_data
.x
->mouse_pixel
= -1;
4674 black
= build_string ("black");
4676 f
->output_data
.x
->foreground_pixel
4677 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4678 f
->output_data
.x
->background_pixel
4679 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4680 f
->output_data
.x
->cursor_pixel
4681 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4682 f
->output_data
.x
->cursor_foreground_pixel
4683 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4684 f
->output_data
.x
->border_pixel
4685 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4686 f
->output_data
.x
->mouse_pixel
4687 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4691 /* Set the name; the functions to which we pass f expect the name to
4693 if (EQ (name
, Qunbound
) || NILP (name
))
4695 f
->name
= build_string (dpyinfo
->x_id_name
);
4696 f
->explicit_name
= 0;
4701 f
->explicit_name
= 1;
4702 /* use the frame's title when getting resources for this frame. */
4703 specbind (Qx_resource_name
, name
);
4706 /* Extract the window parameters from the supplied values that are
4707 needed to determine window geometry. */
4711 font
= x_get_arg (dpyinfo
, parms
, Qfont
, "font", "Font", RES_TYPE_STRING
);
4714 /* First, try whatever font the caller has specified. */
4717 tem
= Fquery_fontset (font
, Qnil
);
4719 font
= x_new_fontset (f
, SDATA (tem
));
4721 font
= x_new_font (f
, SDATA (font
));
4724 /* Try out a font which we hope has bold and italic variations. */
4725 if (!STRINGP (font
))
4726 font
= x_new_font (f
, "-adobe-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-1");
4727 if (!STRINGP (font
))
4728 font
= x_new_font (f
, "-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-1");
4729 if (! STRINGP (font
))
4730 font
= x_new_font (f
, "-*-*-medium-r-normal-*-*-140-*-*-c-*-iso8859-1");
4731 if (! STRINGP (font
))
4732 /* This was formerly the first thing tried, but it finds too many fonts
4733 and takes too long. */
4734 font
= x_new_font (f
, "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1");
4735 /* If those didn't work, look for something which will at least work. */
4736 if (! STRINGP (font
))
4737 font
= x_new_font (f
, "-*-fixed-*-*-*-*-*-140-*-*-c-*-iso8859-1");
4739 if (! STRINGP (font
))
4740 font
= build_string ("fixed");
4742 x_default_parameter (f
, parms
, Qfont
, font
,
4743 "font", "Font", RES_TYPE_STRING
);
4746 x_default_parameter (f
, parms
, Qborder_width
, make_number (2),
4747 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
4749 /* This defaults to 2 in order to match xterm. We recognize either
4750 internalBorderWidth or internalBorder (which is what xterm calls
4752 if (NILP (Fassq (Qinternal_border_width
, parms
)))
4756 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
4757 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
4758 if (! EQ (value
, Qunbound
))
4759 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
4763 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
4764 "internalBorderWidth", "internalBorderWidth",
4767 /* Also do the stuff which must be set before the window exists. */
4768 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
4769 "foreground", "Foreground", RES_TYPE_STRING
);
4770 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
4771 "background", "Background", RES_TYPE_STRING
);
4772 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
4773 "pointerColor", "Foreground", RES_TYPE_STRING
);
4774 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
4775 "cursorColor", "Foreground", RES_TYPE_STRING
);
4776 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
4777 "borderColor", "BorderColor", RES_TYPE_STRING
);
4779 /* Init faces before x_default_parameter is called for scroll-bar
4780 parameters because that function calls x_set_scroll_bar_width,
4781 which calls change_frame_size, which calls Fset_window_buffer,
4782 which runs hooks, which call Fvertical_motion. At the end, we
4783 end up in init_iterator with a null face cache, which should not
4785 init_frame_faces (f
);
4787 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4789 window_prompting
= x_figure_window_size (f
, parms
, 0);
4792 XSetWindowAttributes attrs
;
4796 mask
= CWBackPixel
| CWOverrideRedirect
| CWEventMask
;
4797 if (DoesSaveUnders (dpyinfo
->screen
))
4798 mask
|= CWSaveUnder
;
4800 /* Window managers look at the override-redirect flag to determine
4801 whether or net to give windows a decoration (Xlib spec, chapter
4803 attrs
.override_redirect
= True
;
4804 attrs
.save_under
= True
;
4805 attrs
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
4806 /* Arrange for getting MapNotify and UnmapNotify events. */
4807 attrs
.event_mask
= StructureNotifyMask
;
4809 = FRAME_X_WINDOW (f
)
4810 = XCreateWindow (FRAME_X_DISPLAY (f
),
4811 FRAME_X_DISPLAY_INFO (f
)->root_window
,
4812 /* x, y, width, height */
4816 CopyFromParent
, InputOutput
, CopyFromParent
,
4823 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
4824 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4825 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
4826 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4827 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
4828 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
4830 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
4831 Change will not be effected unless different from the current
4833 width
= FRAME_COLS (f
);
4834 height
= FRAME_LINES (f
);
4835 SET_FRAME_COLS (f
, 0);
4836 FRAME_LINES (f
) = 0;
4837 change_frame_size (f
, height
, width
, 1, 0, 0);
4839 /* Add `tooltip' frame parameter's default value. */
4840 if (NILP (Fframe_parameter (frame
, intern ("tooltip"))))
4841 Fmodify_frame_parameters (frame
, Fcons (Fcons (intern ("tooltip"), Qt
),
4844 /* Set up faces after all frame parameters are known. This call
4845 also merges in face attributes specified for new frames.
4847 Frame parameters may be changed if .Xdefaults contains
4848 specifications for the default font. For example, if there is an
4849 `Emacs.default.attributeBackground: pink', the `background-color'
4850 attribute of the frame get's set, which let's the internal border
4851 of the tooltip frame appear in pink. Prevent this. */
4853 Lisp_Object bg
= Fframe_parameter (frame
, Qbackground_color
);
4855 /* Set tip_frame here, so that */
4857 call1 (Qface_set_after_frame_default
, frame
);
4859 if (!EQ (bg
, Fframe_parameter (frame
, Qbackground_color
)))
4860 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qbackground_color
, bg
),
4864 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qwindow_system
, Qx
), Qnil
));
4870 /* It is now ok to make the frame official even if we get an error
4871 below. And the frame needs to be on Vframe_list or making it
4872 visible won't work. */
4873 Vframe_list
= Fcons (frame
, Vframe_list
);
4875 /* Now that the frame is official, it counts as a reference to
4877 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
4879 /* Setting attributes of faces of the tooltip frame from resources
4880 and similar will increment face_change_count, which leads to the
4881 clearing of all current matrices. Since this isn't necessary
4882 here, avoid it by resetting face_change_count to the value it
4883 had before we created the tip frame. */
4884 face_change_count
= face_change_count_before
;
4886 /* Discard the unwind_protect. */
4887 return unbind_to (count
, frame
);
4891 /* Compute where to display tip frame F. PARMS is the list of frame
4892 parameters for F. DX and DY are specified offsets from the current
4893 location of the mouse. WIDTH and HEIGHT are the width and height
4894 of the tooltip. Return coordinates relative to the root window of
4895 the display in *ROOT_X, and *ROOT_Y. */
4898 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, root_x
, root_y
)
4900 Lisp_Object parms
, dx
, dy
;
4902 int *root_x
, *root_y
;
4904 Lisp_Object left
, top
;
4909 /* User-specified position? */
4910 left
= Fcdr (Fassq (Qleft
, parms
));
4911 top
= Fcdr (Fassq (Qtop
, parms
));
4913 /* Move the tooltip window where the mouse pointer is. Resize and
4915 if (!INTEGERP (left
) || !INTEGERP (top
))
4918 XQueryPointer (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
4919 &root
, &child
, root_x
, root_y
, &win_x
, &win_y
, &pmask
);
4924 *root_y
= XINT (top
);
4925 else if (*root_y
+ XINT (dy
) - height
< 0)
4926 *root_y
-= XINT (dy
);
4930 *root_y
+= XINT (dy
);
4933 if (INTEGERP (left
))
4934 *root_x
= XINT (left
);
4935 else if (*root_x
+ XINT (dx
) + width
<= FRAME_X_DISPLAY_INFO (f
)->width
)
4936 /* It fits to the right of the pointer. */
4937 *root_x
+= XINT (dx
);
4938 else if (width
+ XINT (dx
) <= *root_x
)
4939 /* It fits to the left of the pointer. */
4940 *root_x
-= width
+ XINT (dx
);
4942 /* Put it left-justified on the screen--it ought to fit that way. */
4947 DEFUN ("x-show-tip", Fx_show_tip
, Sx_show_tip
, 1, 6, 0,
4948 doc
: /* Show STRING in a "tooltip" window on frame FRAME.
4949 A tooltip window is a small X window displaying a string.
4951 FRAME nil or omitted means use the selected frame.
4953 PARMS is an optional list of frame parameters which can be used to
4954 change the tooltip's appearance.
4956 Automatically hide the tooltip after TIMEOUT seconds. TIMEOUT nil
4957 means use the default timeout of 5 seconds.
4959 If the list of frame parameters PARAMS contains a `left' parameters,
4960 the tooltip is displayed at that x-position. Otherwise it is
4961 displayed at the mouse position, with offset DX added (default is 5 if
4962 DX isn't specified). Likewise for the y-position; if a `top' frame
4963 parameter is specified, it determines the y-position of the tooltip
4964 window, otherwise it is displayed at the mouse position, with offset
4965 DY added (default is -10).
4967 A tooltip's maximum size is specified by `x-max-tooltip-size'.
4968 Text larger than the specified size is clipped. */)
4969 (string
, frame
, parms
, timeout
, dx
, dy
)
4970 Lisp_Object string
, frame
, parms
, timeout
, dx
, dy
;
4975 struct buffer
*old_buffer
;
4976 struct text_pos pos
;
4977 int i
, width
, height
;
4978 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
4979 int old_windows_or_buffers_changed
= windows_or_buffers_changed
;
4980 int count
= SPECPDL_INDEX ();
4982 specbind (Qinhibit_redisplay
, Qt
);
4984 GCPRO4 (string
, parms
, frame
, timeout
);
4986 CHECK_STRING (string
);
4987 f
= check_x_frame (frame
);
4989 timeout
= make_number (5);
4991 CHECK_NATNUM (timeout
);
4994 dx
= make_number (5);
4999 dy
= make_number (-10);
5003 if (NILP (last_show_tip_args
))
5004 last_show_tip_args
= Fmake_vector (make_number (3), Qnil
);
5006 if (!NILP (tip_frame
))
5008 Lisp_Object last_string
= AREF (last_show_tip_args
, 0);
5009 Lisp_Object last_frame
= AREF (last_show_tip_args
, 1);
5010 Lisp_Object last_parms
= AREF (last_show_tip_args
, 2);
5012 if (EQ (frame
, last_frame
)
5013 && !NILP (Fequal (last_string
, string
))
5014 && !NILP (Fequal (last_parms
, parms
)))
5016 struct frame
*f
= XFRAME (tip_frame
);
5018 /* Only DX and DY have changed. */
5019 if (!NILP (tip_timer
))
5021 Lisp_Object timer
= tip_timer
;
5023 call1 (Qcancel_timer
, timer
);
5027 compute_tip_xy (f
, parms
, dx
, dy
, FRAME_PIXEL_WIDTH (f
),
5028 FRAME_PIXEL_HEIGHT (f
), &root_x
, &root_y
);
5029 XMoveWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5036 /* Hide a previous tip, if any. */
5039 ASET (last_show_tip_args
, 0, string
);
5040 ASET (last_show_tip_args
, 1, frame
);
5041 ASET (last_show_tip_args
, 2, parms
);
5043 /* Add default values to frame parameters. */
5044 if (NILP (Fassq (Qname
, parms
)))
5045 parms
= Fcons (Fcons (Qname
, build_string ("tooltip")), parms
);
5046 if (NILP (Fassq (Qinternal_border_width
, parms
)))
5047 parms
= Fcons (Fcons (Qinternal_border_width
, make_number (3)), parms
);
5048 if (NILP (Fassq (Qborder_width
, parms
)))
5049 parms
= Fcons (Fcons (Qborder_width
, make_number (1)), parms
);
5050 if (NILP (Fassq (Qborder_color
, parms
)))
5051 parms
= Fcons (Fcons (Qborder_color
, build_string ("lightyellow")), parms
);
5052 if (NILP (Fassq (Qbackground_color
, parms
)))
5053 parms
= Fcons (Fcons (Qbackground_color
, build_string ("lightyellow")),
5056 /* Create a frame for the tooltip, and record it in the global
5057 variable tip_frame. */
5058 frame
= x_create_tip_frame (FRAME_X_DISPLAY_INFO (f
), parms
, string
);
5061 /* Set up the frame's root window. */
5062 w
= XWINDOW (FRAME_ROOT_WINDOW (f
));
5063 w
->left_col
= w
->top_line
= make_number (0);
5065 if (CONSP (Vx_max_tooltip_size
)
5066 && INTEGERP (XCAR (Vx_max_tooltip_size
))
5067 && XINT (XCAR (Vx_max_tooltip_size
)) > 0
5068 && INTEGERP (XCDR (Vx_max_tooltip_size
))
5069 && XINT (XCDR (Vx_max_tooltip_size
)) > 0)
5071 w
->total_cols
= XCAR (Vx_max_tooltip_size
);
5072 w
->total_lines
= XCDR (Vx_max_tooltip_size
);
5076 w
->total_cols
= make_number (80);
5077 w
->total_lines
= make_number (40);
5080 FRAME_TOTAL_COLS (f
) = XINT (w
->total_cols
);
5082 w
->pseudo_window_p
= 1;
5084 /* Display the tooltip text in a temporary buffer. */
5085 old_buffer
= current_buffer
;
5086 set_buffer_internal_1 (XBUFFER (XWINDOW (FRAME_ROOT_WINDOW (f
))->buffer
));
5087 current_buffer
->truncate_lines
= Qnil
;
5088 clear_glyph_matrix (w
->desired_matrix
);
5089 clear_glyph_matrix (w
->current_matrix
);
5090 SET_TEXT_POS (pos
, BEGV
, BEGV_BYTE
);
5091 try_window (FRAME_ROOT_WINDOW (f
), pos
, 0);
5093 /* Compute width and height of the tooltip. */
5095 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
5097 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
5101 /* Stop at the first empty row at the end. */
5102 if (!row
->enabled_p
|| !row
->displays_text_p
)
5105 /* Let the row go over the full width of the frame. */
5106 row
->full_width_p
= 1;
5108 /* There's a glyph at the end of rows that is used to place
5109 the cursor there. Don't include the width of this glyph. */
5110 if (row
->used
[TEXT_AREA
])
5112 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
5113 row_width
= row
->pixel_width
- last
->pixel_width
;
5116 row_width
= row
->pixel_width
;
5118 height
+= row
->height
;
5119 width
= max (width
, row_width
);
5122 /* Add the frame's internal border to the width and height the X
5123 window should have. */
5124 height
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5125 width
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5127 /* Move the tooltip window where the mouse pointer is. Resize and
5129 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
5132 XMoveResizeWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5133 root_x
, root_y
, width
, height
);
5134 XMapRaised (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
));
5137 /* Draw into the window. */
5138 w
->must_be_updated_p
= 1;
5139 update_single_window (w
, 1);
5141 /* Restore original current buffer. */
5142 set_buffer_internal_1 (old_buffer
);
5143 windows_or_buffers_changed
= old_windows_or_buffers_changed
;
5146 /* Let the tip disappear after timeout seconds. */
5147 tip_timer
= call3 (intern ("run-at-time"), timeout
, Qnil
,
5148 intern ("x-hide-tip"));
5151 return unbind_to (count
, Qnil
);
5155 DEFUN ("x-hide-tip", Fx_hide_tip
, Sx_hide_tip
, 0, 0, 0,
5156 doc
: /* Hide the current tooltip window, if there is any.
5157 Value is t if tooltip was open, nil otherwise. */)
5161 Lisp_Object deleted
, frame
, timer
;
5162 struct gcpro gcpro1
, gcpro2
;
5164 /* Return quickly if nothing to do. */
5165 if (NILP (tip_timer
) && NILP (tip_frame
))
5170 GCPRO2 (frame
, timer
);
5171 tip_frame
= tip_timer
= deleted
= Qnil
;
5173 count
= SPECPDL_INDEX ();
5174 specbind (Qinhibit_redisplay
, Qt
);
5175 specbind (Qinhibit_quit
, Qt
);
5178 call1 (Qcancel_timer
, timer
);
5182 Fdelete_frame (frame
, Qnil
);
5186 /* Bloodcurdling hack alert: The Lucid menu bar widget's
5187 redisplay procedure is not called when a tip frame over menu
5188 items is unmapped. Redisplay the menu manually... */
5190 struct frame
*f
= SELECTED_FRAME ();
5191 Widget w
= f
->output_data
.x
->menubar_widget
;
5192 extern void xlwmenu_redisplay
P_ ((Widget
));
5194 if (!DoesSaveUnders (FRAME_X_DISPLAY_INFO (f
)->screen
)
5198 xlwmenu_redisplay (w
);
5202 #endif /* USE_LUCID */
5206 return unbind_to (count
, deleted
);
5211 /***********************************************************************
5212 File selection dialog
5213 ***********************************************************************/
5217 /* Callback for "OK" and "Cancel" on file selection dialog. */
5220 file_dialog_cb (widget
, client_data
, call_data
)
5222 XtPointer call_data
, client_data
;
5224 int *result
= (int *) client_data
;
5225 XmAnyCallbackStruct
*cb
= (XmAnyCallbackStruct
*) call_data
;
5226 *result
= cb
->reason
;
5230 /* Callback for unmapping a file selection dialog. This is used to
5231 capture the case where a dialog is closed via a window manager's
5232 closer button, for example. Using a XmNdestroyCallback didn't work
5236 file_dialog_unmap_cb (widget
, client_data
, call_data
)
5238 XtPointer call_data
, client_data
;
5240 int *result
= (int *) client_data
;
5241 *result
= XmCR_CANCEL
;
5245 clean_up_file_dialog (arg
)
5248 struct Lisp_Save_Value
*p
= XSAVE_VALUE (arg
);
5249 Widget dialog
= (Widget
) p
->pointer
;
5253 XtUnmanageChild (dialog
);
5254 XtDestroyWidget (dialog
);
5255 x_menu_set_in_use (0);
5262 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5263 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5264 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5265 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5266 or directory must exist. ONLY-DIR-P is ignored." */)
5267 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
)
5268 Lisp_Object prompt
, dir
, default_filename
, mustmatch
, only_dir_p
;
5271 struct frame
*f
= SELECTED_FRAME ();
5272 Lisp_Object file
= Qnil
;
5273 Widget dialog
, text
, help
;
5276 extern XtAppContext Xt_app_con
;
5277 XmString dir_xmstring
, pattern_xmstring
;
5278 int count
= SPECPDL_INDEX ();
5279 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5281 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5283 if (popup_activated ())
5284 error ("Trying to use a menu from within a menu-entry");
5286 CHECK_STRING (prompt
);
5289 /* Prevent redisplay. */
5290 specbind (Qinhibit_redisplay
, Qt
);
5294 /* Create the dialog with PROMPT as title, using DIR as initial
5295 directory and using "*" as pattern. */
5296 dir
= Fexpand_file_name (dir
, Qnil
);
5297 dir_xmstring
= XmStringCreateLocalized (SDATA (dir
));
5298 pattern_xmstring
= XmStringCreateLocalized ("*");
5300 XtSetArg (al
[ac
], XmNtitle
, SDATA (prompt
)); ++ac
;
5301 XtSetArg (al
[ac
], XmNdirectory
, dir_xmstring
); ++ac
;
5302 XtSetArg (al
[ac
], XmNpattern
, pattern_xmstring
); ++ac
;
5303 XtSetArg (al
[ac
], XmNresizePolicy
, XmRESIZE_GROW
); ++ac
;
5304 XtSetArg (al
[ac
], XmNdialogStyle
, XmDIALOG_APPLICATION_MODAL
); ++ac
;
5305 dialog
= XmCreateFileSelectionDialog (f
->output_data
.x
->widget
,
5307 XmStringFree (dir_xmstring
);
5308 XmStringFree (pattern_xmstring
);
5310 /* Add callbacks for OK and Cancel. */
5311 XtAddCallback (dialog
, XmNokCallback
, file_dialog_cb
,
5312 (XtPointer
) &result
);
5313 XtAddCallback (dialog
, XmNcancelCallback
, file_dialog_cb
,
5314 (XtPointer
) &result
);
5315 XtAddCallback (dialog
, XmNunmapCallback
, file_dialog_unmap_cb
,
5316 (XtPointer
) &result
);
5318 /* Remove the help button since we can't display help. */
5319 help
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_HELP_BUTTON
);
5320 XtUnmanageChild (help
);
5322 /* Mark OK button as default. */
5323 XtVaSetValues (XmFileSelectionBoxGetChild (dialog
, XmDIALOG_OK_BUTTON
),
5324 XmNshowAsDefault
, True
, NULL
);
5326 /* If MUSTMATCH is non-nil, disable the file entry field of the
5327 dialog, so that the user must select a file from the files list
5328 box. We can't remove it because we wouldn't have a way to get at
5329 the result file name, then. */
5330 text
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5331 if (!NILP (mustmatch
))
5334 label
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_SELECTION_LABEL
);
5335 XtSetSensitive (text
, False
);
5336 XtSetSensitive (label
, False
);
5339 /* Manage the dialog, so that list boxes get filled. */
5340 XtManageChild (dialog
);
5342 if (STRINGP (default_filename
))
5344 XmString default_xmstring
;
5345 Widget wtext
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5346 Widget list
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_LIST
);
5348 XmTextPosition last_pos
= XmTextFieldGetLastPosition (wtext
);
5349 XmTextFieldReplace (wtext
, 0, last_pos
,
5350 (SDATA (Ffile_name_nondirectory (default_filename
))));
5352 /* Select DEFAULT_FILENAME in the files list box. DEFAULT_FILENAME
5353 must include the path for this to work. */
5355 default_xmstring
= XmStringCreateLocalized (SDATA (default_filename
));
5357 if (XmListItemExists (list
, default_xmstring
))
5359 int item_pos
= XmListItemPos (list
, default_xmstring
);
5360 /* Select the item and scroll it into view. */
5361 XmListSelectPos (list
, item_pos
, True
);
5362 XmListSetPos (list
, item_pos
);
5365 XmStringFree (default_xmstring
);
5368 record_unwind_protect (clean_up_file_dialog
, make_save_value (dialog
, 0));
5370 /* Process events until the user presses Cancel or OK. */
5371 x_menu_set_in_use (1);
5376 x_menu_wait_for_event (0);
5377 XtAppNextEvent (Xt_app_con
, &event
);
5378 if (event
.type
== KeyPress
5379 && FRAME_X_DISPLAY (f
) == event
.xkey
.display
)
5381 KeySym keysym
= XLookupKeysym (&event
.xkey
, 0);
5383 /* Pop down on C-g. */
5384 if (keysym
== XK_g
&& (event
.xkey
.state
& ControlMask
) != 0)
5385 XtUnmanageChild (dialog
);
5388 (void) x_dispatch_event (&event
, FRAME_X_DISPLAY (f
));
5391 /* Get the result. */
5392 if (result
== XmCR_OK
)
5397 XtVaGetValues (dialog
, XmNtextString
, &text
, NULL
);
5398 XmStringGetLtoR (text
, XmFONTLIST_DEFAULT_TAG
, &data
);
5399 XmStringFree (text
);
5400 file
= build_string (data
);
5409 /* Make "Cancel" equivalent to C-g. */
5411 Fsignal (Qquit
, Qnil
);
5413 return unbind_to (count
, file
);
5416 #endif /* USE_MOTIF */
5421 clean_up_dialog (arg
)
5424 x_menu_set_in_use (0);
5429 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5430 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5431 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5432 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5433 or directory must exist. If ONLY-DIR-P is non-nil, the user can only select
5435 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
)
5436 Lisp_Object prompt
, dir
, default_filename
, mustmatch
, only_dir_p
;
5438 FRAME_PTR f
= SELECTED_FRAME ();
5440 Lisp_Object file
= Qnil
;
5441 int count
= SPECPDL_INDEX ();
5442 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5445 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5447 if (popup_activated ())
5448 error ("Trying to use a menu from within a menu-entry");
5450 CHECK_STRING (prompt
);
5453 /* Prevent redisplay. */
5454 specbind (Qinhibit_redisplay
, Qt
);
5455 record_unwind_protect (clean_up_dialog
, Qnil
);
5459 if (STRINGP (default_filename
))
5460 cdef_file
= SDATA (default_filename
);
5462 cdef_file
= SDATA (dir
);
5464 fn
= xg_get_file_name (f
, SDATA (prompt
), cdef_file
,
5466 ! NILP (only_dir_p
));
5470 file
= build_string (fn
);
5477 /* Make "Cancel" equivalent to C-g. */
5479 Fsignal (Qquit
, Qnil
);
5481 return unbind_to (count
, file
);
5484 #endif /* USE_GTK */
5487 /***********************************************************************
5489 ***********************************************************************/
5491 #ifdef HAVE_XKBGETKEYBOARD
5492 #include <X11/XKBlib.h>
5493 #include <X11/keysym.h>
5496 DEFUN ("x-backspace-delete-keys-p", Fx_backspace_delete_keys_p
,
5497 Sx_backspace_delete_keys_p
, 0, 1, 0,
5498 doc
: /* Check if both Backspace and Delete keys are on the keyboard of FRAME.
5499 FRAME nil means use the selected frame.
5500 Value is t if we know that both keys are present, and are mapped to the
5501 usual X keysyms. */)
5505 #ifdef HAVE_XKBGETKEYBOARD
5507 struct frame
*f
= check_x_frame (frame
);
5508 Display
*dpy
= FRAME_X_DISPLAY (f
);
5509 Lisp_Object have_keys
;
5510 int major
, minor
, op
, event
, error
;
5514 /* Check library version in case we're dynamically linked. */
5515 major
= XkbMajorVersion
;
5516 minor
= XkbMinorVersion
;
5517 if (!XkbLibraryVersion (&major
, &minor
))
5523 /* Check that the server supports XKB. */
5524 major
= XkbMajorVersion
;
5525 minor
= XkbMinorVersion
;
5526 if (!XkbQueryExtension (dpy
, &op
, &event
, &error
, &major
, &minor
))
5532 /* In this code we check that the keyboard has physical keys with names
5533 that start with BKSP (Backspace) and DELE (Delete), and that they
5534 generate keysym XK_BackSpace and XK_Delete respectively.
5535 This function is used to test if normal-erase-is-backspace should be
5537 An alternative approach would be to just check if XK_BackSpace and
5538 XK_Delete are mapped to any key. But if any of those are mapped to
5539 some non-intuitive key combination (Meta-Shift-Ctrl-whatever) and the
5540 user doesn't know about it, it is better to return false here.
5541 It is more obvious to the user what to do if she/he has two keys
5542 clearly marked with names/symbols and one key does something not
5543 expected (i.e. she/he then tries the other).
5544 The cases where Backspace/Delete is mapped to some other key combination
5545 are rare, and in those cases, normal-erase-is-backspace can be turned on
5549 kb
= XkbGetMap (dpy
, XkbAllMapComponentsMask
, XkbUseCoreKbd
);
5552 int delete_keycode
= 0, backspace_keycode
= 0, i
;
5554 if (XkbGetNames (dpy
, XkbAllNamesMask
, kb
) == Success
)
5556 for (i
= kb
->min_key_code
;
5557 (i
< kb
->max_key_code
5558 && (delete_keycode
== 0 || backspace_keycode
== 0));
5561 /* The XKB symbolic key names can be seen most easily in
5562 the PS file generated by `xkbprint -label name
5564 if (bcmp ("DELE", kb
->names
->keys
[i
].name
, 4) == 0)
5566 else if (bcmp ("BKSP", kb
->names
->keys
[i
].name
, 4) == 0)
5567 backspace_keycode
= i
;
5570 XkbFreeNames (kb
, 0, True
);
5573 XkbFreeClientMap (kb
, 0, True
);
5576 && backspace_keycode
5577 && XKeysymToKeycode (dpy
, XK_Delete
) == delete_keycode
5578 && XKeysymToKeycode (dpy
, XK_BackSpace
) == backspace_keycode
)
5583 #else /* not HAVE_XKBGETKEYBOARD */
5585 #endif /* not HAVE_XKBGETKEYBOARD */
5590 /***********************************************************************
5592 ***********************************************************************/
5594 /* Keep this list in the same order as frame_parms in frame.c.
5595 Use 0 for unsupported frame parameters. */
5597 frame_parm_handler x_frame_parm_handlers
[] =
5601 x_set_background_color
,
5607 x_set_foreground_color
,
5610 x_set_internal_border_width
,
5611 x_set_menu_bar_lines
,
5613 x_explicitly_set_name
,
5614 x_set_scroll_bar_width
,
5617 x_set_vertical_scroll_bars
,
5619 x_set_tool_bar_lines
,
5620 x_set_scroll_bar_foreground
,
5621 x_set_scroll_bar_background
,
5633 /* This is zero if not using X windows. */
5636 /* The section below is built by the lisp expression at the top of the file,
5637 just above where these variables are declared. */
5638 /*&&& init symbols here &&&*/
5639 Qnone
= intern ("none");
5641 Qsuppress_icon
= intern ("suppress-icon");
5642 staticpro (&Qsuppress_icon
);
5643 Qundefined_color
= intern ("undefined-color");
5644 staticpro (&Qundefined_color
);
5645 Qcompound_text
= intern ("compound-text");
5646 staticpro (&Qcompound_text
);
5647 Qcancel_timer
= intern ("cancel-timer");
5648 staticpro (&Qcancel_timer
);
5649 /* This is the end of symbol initialization. */
5651 /* Text property `display' should be nonsticky by default. */
5652 Vtext_property_default_nonsticky
5653 = Fcons (Fcons (Qdisplay
, Qt
), Vtext_property_default_nonsticky
);
5656 Fput (Qundefined_color
, Qerror_conditions
,
5657 Fcons (Qundefined_color
, Fcons (Qerror
, Qnil
)));
5658 Fput (Qundefined_color
, Qerror_message
,
5659 build_string ("Undefined color"));
5661 DEFVAR_LISP ("x-pointer-shape", &Vx_pointer_shape
,
5662 doc
: /* The shape of the pointer when over text.
5663 Changing the value does not affect existing frames
5664 unless you set the mouse color. */);
5665 Vx_pointer_shape
= Qnil
;
5667 #if 0 /* This doesn't really do anything. */
5668 DEFVAR_LISP ("x-nontext-pointer-shape", &Vx_nontext_pointer_shape
,
5669 doc
: /* The shape of the pointer when not over text.
5670 This variable takes effect when you create a new frame
5671 or when you set the mouse color. */);
5673 Vx_nontext_pointer_shape
= Qnil
;
5675 DEFVAR_LISP ("x-hourglass-pointer-shape", &Vx_hourglass_pointer_shape
,
5676 doc
: /* The shape of the pointer when Emacs is busy.
5677 This variable takes effect when you create a new frame
5678 or when you set the mouse color. */);
5679 Vx_hourglass_pointer_shape
= Qnil
;
5681 DEFVAR_BOOL ("display-hourglass", &display_hourglass_p
,
5682 doc
: /* Non-zero means Emacs displays an hourglass pointer on window systems. */);
5683 display_hourglass_p
= 1;
5685 DEFVAR_LISP ("hourglass-delay", &Vhourglass_delay
,
5686 doc
: /* *Seconds to wait before displaying an hourglass pointer.
5687 Value must be an integer or float. */);
5688 Vhourglass_delay
= make_number (DEFAULT_HOURGLASS_DELAY
);
5690 #if 0 /* This doesn't really do anything. */
5691 DEFVAR_LISP ("x-mode-pointer-shape", &Vx_mode_pointer_shape
,
5692 doc
: /* The shape of the pointer when over the mode line.
5693 This variable takes effect when you create a new frame
5694 or when you set the mouse color. */);
5696 Vx_mode_pointer_shape
= Qnil
;
5698 DEFVAR_LISP ("x-sensitive-text-pointer-shape",
5699 &Vx_sensitive_text_pointer_shape
,
5700 doc
: /* The shape of the pointer when over mouse-sensitive text.
5701 This variable takes effect when you create a new frame
5702 or when you set the mouse color. */);
5703 Vx_sensitive_text_pointer_shape
= Qnil
;
5705 DEFVAR_LISP ("x-window-horizontal-drag-cursor",
5706 &Vx_window_horizontal_drag_shape
,
5707 doc
: /* Pointer shape to use for indicating a window can be dragged horizontally.
5708 This variable takes effect when you create a new frame
5709 or when you set the mouse color. */);
5710 Vx_window_horizontal_drag_shape
= Qnil
;
5712 DEFVAR_LISP ("x-cursor-fore-pixel", &Vx_cursor_fore_pixel
,
5713 doc
: /* A string indicating the foreground color of the cursor box. */);
5714 Vx_cursor_fore_pixel
= Qnil
;
5716 DEFVAR_LISP ("x-max-tooltip-size", &Vx_max_tooltip_size
,
5717 doc
: /* Maximum size for tooltips. Value is a pair (COLUMNS . ROWS).
5718 Text larger than this is clipped. */);
5719 Vx_max_tooltip_size
= Fcons (make_number (80), make_number (40));
5721 DEFVAR_LISP ("x-no-window-manager", &Vx_no_window_manager
,
5722 doc
: /* Non-nil if no X window manager is in use.
5723 Emacs doesn't try to figure this out; this is always nil
5724 unless you set it to something else. */);
5725 /* We don't have any way to find this out, so set it to nil
5726 and maybe the user would like to set it to t. */
5727 Vx_no_window_manager
= Qnil
;
5729 DEFVAR_LISP ("x-pixel-size-width-font-regexp",
5730 &Vx_pixel_size_width_font_regexp
,
5731 doc
: /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'.
5733 Since Emacs gets width of a font matching with this regexp from
5734 PIXEL_SIZE field of the name, font finding mechanism gets faster for
5735 such a font. This is especially effective for such large fonts as
5736 Chinese, Japanese, and Korean. */);
5737 Vx_pixel_size_width_font_regexp
= Qnil
;
5739 /* This is not ifdef:ed, so other builds than GTK can customize it. */
5740 DEFVAR_BOOL ("x-use-old-gtk-file-dialog", &x_use_old_gtk_file_dialog
,
5741 doc
: /* *Non-nil means prompt with the old GTK file selection dialog.
5742 If nil or if the file selection dialog is not available, the new GTK file
5743 chooser is used instead. To turn off all file dialogs set the
5744 variable `use-file-dialog'. */);
5745 x_use_old_gtk_file_dialog
= 0;
5747 #ifdef USE_X_TOOLKIT
5748 Fprovide (intern ("x-toolkit"), Qnil
);
5750 Fprovide (intern ("motif"), Qnil
);
5752 DEFVAR_LISP ("motif-version-string", &Vmotif_version_string
,
5753 doc
: /* Version info for LessTif/Motif. */);
5754 Vmotif_version_string
= build_string (XmVERSION_STRING
);
5755 #endif /* USE_MOTIF */
5756 #endif /* USE_X_TOOLKIT */
5759 /* Provide x-toolkit also for GTK. Internally GTK does not use Xt so it
5760 is not an X toolkit in that sense (USE_X_TOOLKIT is not defined).
5761 But for a user it is a toolkit for X, and indeed, configure
5762 accepts --with-x-toolkit=gtk. */
5763 Fprovide (intern ("x-toolkit"), Qnil
);
5764 Fprovide (intern ("gtk"), Qnil
);
5766 DEFVAR_LISP ("gtk-version-string", &Vgtk_version_string
,
5767 doc
: /* Version info for GTK+. */);
5769 char gtk_version
[40];
5770 g_snprintf (gtk_version
, sizeof (gtk_version
), "%u.%u.%u",
5771 GTK_MAJOR_VERSION
, GTK_MINOR_VERSION
, GTK_MICRO_VERSION
);
5772 Vgtk_version_string
= build_string (gtk_version
);
5774 #endif /* USE_GTK */
5776 /* X window properties. */
5777 defsubr (&Sx_change_window_property
);
5778 defsubr (&Sx_delete_window_property
);
5779 defsubr (&Sx_window_property
);
5781 defsubr (&Sxw_display_color_p
);
5782 defsubr (&Sx_display_grayscale_p
);
5783 defsubr (&Sxw_color_defined_p
);
5784 defsubr (&Sxw_color_values
);
5785 defsubr (&Sx_server_max_request_size
);
5786 defsubr (&Sx_server_vendor
);
5787 defsubr (&Sx_server_version
);
5788 defsubr (&Sx_display_pixel_width
);
5789 defsubr (&Sx_display_pixel_height
);
5790 defsubr (&Sx_display_mm_width
);
5791 defsubr (&Sx_display_mm_height
);
5792 defsubr (&Sx_display_screens
);
5793 defsubr (&Sx_display_planes
);
5794 defsubr (&Sx_display_color_cells
);
5795 defsubr (&Sx_display_visual_class
);
5796 defsubr (&Sx_display_backing_store
);
5797 defsubr (&Sx_display_save_under
);
5798 defsubr (&Sx_create_frame
);
5799 defsubr (&Sx_open_connection
);
5800 defsubr (&Sx_close_connection
);
5801 defsubr (&Sx_display_list
);
5802 defsubr (&Sx_synchronize
);
5803 defsubr (&Sx_focus_frame
);
5804 defsubr (&Sx_backspace_delete_keys_p
);
5806 /* Setting callback functions for fontset handler. */
5807 get_font_info_func
= x_get_font_info
;
5809 #if 0 /* This function pointer doesn't seem to be used anywhere.
5810 And the pointer assigned has the wrong type, anyway. */
5811 list_fonts_func
= x_list_fonts
;
5814 load_font_func
= x_load_font
;
5815 find_ccl_program_func
= x_find_ccl_program
;
5816 query_font_func
= x_query_font
;
5817 set_frame_fontset_func
= x_set_font
;
5818 check_window_system_func
= check_x
;
5820 hourglass_atimer
= NULL
;
5821 hourglass_shown_p
= 0;
5823 defsubr (&Sx_show_tip
);
5824 defsubr (&Sx_hide_tip
);
5826 staticpro (&tip_timer
);
5828 staticpro (&tip_frame
);
5830 last_show_tip_args
= Qnil
;
5831 staticpro (&last_show_tip_args
);
5833 #if defined (USE_MOTIF) || defined (USE_GTK)
5834 defsubr (&Sx_file_dialog
);
5838 #endif /* HAVE_X_WINDOWS */
5840 /* arch-tag: 55040d02-5485-4d58-8b22-95a7a05f3288
5841 (do not change this comment) */