1 /* Functions for the X window system.
2 Copyright (C) 1989, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000,
3 2001, 2002, 2003, 2004, 2005 Free Software Foundation.
5 This file is part of GNU Emacs.
7 GNU Emacs is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 2, or (at your option)
12 GNU Emacs is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with GNU Emacs; see the file COPYING. If not, write to
19 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
20 Boston, MA 02111-1307, USA. */
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 frame.
243 nil stands for the selected frame--or, if that is not an X frame,
244 the first X display on the list. */
246 struct x_display_info
*
247 check_x_display_info (frame
)
250 struct x_display_info
*dpyinfo
= NULL
;
254 struct frame
*sf
= XFRAME (selected_frame
);
256 if (FRAME_X_P (sf
) && FRAME_LIVE_P (sf
))
257 dpyinfo
= FRAME_X_DISPLAY_INFO (sf
);
258 else if (x_display_list
!= 0)
259 dpyinfo
= x_display_list
;
261 error ("X windows are not in use or not initialized");
263 else if (INTEGERP (frame
))
265 struct display
*d
= get_display (XINT (frame
), 1);
267 if (d
->type
!= output_x_window
)
268 error ("Display %d is not an X display", XINT (frame
));
270 dpyinfo
= d
->display_info
.x
;
272 else if (STRINGP (frame
))
273 dpyinfo
= x_display_info_for_name (frame
);
276 FRAME_PTR f
= check_x_frame (frame
);
277 dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
284 /* Return the Emacs frame-object corresponding to an X window.
285 It could be the frame's main window or an icon window. */
287 /* This function can be called during GC, so use GC_xxx type test macros. */
290 x_window_to_frame (dpyinfo
, wdesc
)
291 struct x_display_info
*dpyinfo
;
294 Lisp_Object tail
, frame
;
297 if (wdesc
== None
) return 0;
299 for (tail
= Vframe_list
; GC_CONSP (tail
); tail
= XCDR (tail
))
302 if (!GC_FRAMEP (frame
))
305 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
307 if (f
->output_data
.x
->hourglass_window
== wdesc
)
310 if ((f
->output_data
.x
->edit_widget
311 && XtWindow (f
->output_data
.x
->edit_widget
) == wdesc
)
312 /* A tooltip frame? */
313 || (!f
->output_data
.x
->edit_widget
314 && FRAME_X_WINDOW (f
) == wdesc
)
315 || f
->output_data
.x
->icon_desc
== wdesc
)
317 #else /* not USE_X_TOOLKIT */
319 if (f
->output_data
.x
->edit_widget
)
321 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
322 struct x_output
*x
= f
->output_data
.x
;
323 if (gwdesc
!= 0 && gwdesc
== x
->edit_widget
)
327 if (FRAME_X_WINDOW (f
) == wdesc
328 || f
->output_data
.x
->icon_desc
== wdesc
)
330 #endif /* not USE_X_TOOLKIT */
335 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
336 /* Like x_window_to_frame but also compares the window with the widget's
340 x_any_window_to_frame (dpyinfo
, wdesc
)
341 struct x_display_info
*dpyinfo
;
344 Lisp_Object tail
, frame
;
345 struct frame
*f
, *found
;
348 if (wdesc
== None
) return NULL
;
351 for (tail
= Vframe_list
; GC_CONSP (tail
) && !found
; tail
= XCDR (tail
))
354 if (!GC_FRAMEP (frame
))
358 if (FRAME_X_P (f
) && FRAME_X_DISPLAY_INFO (f
) == dpyinfo
)
360 /* This frame matches if the window is any of its widgets. */
361 x
= f
->output_data
.x
;
362 if (x
->hourglass_window
== wdesc
)
367 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
369 && (gwdesc
== x
->widget
370 || gwdesc
== x
->edit_widget
371 || gwdesc
== x
->vbox_widget
372 || gwdesc
== x
->menubar_widget
))
375 if (wdesc
== XtWindow (x
->widget
)
376 || wdesc
== XtWindow (x
->column_widget
)
377 || wdesc
== XtWindow (x
->edit_widget
))
379 /* Match if the window is this frame's menubar. */
380 else if (lw_window_is_in_menubar (wdesc
, x
->menubar_widget
))
384 else if (FRAME_X_WINDOW (f
) == wdesc
)
385 /* A tooltip frame. */
393 /* Likewise, but exclude the menu bar widget. */
396 x_non_menubar_window_to_frame (dpyinfo
, wdesc
)
397 struct x_display_info
*dpyinfo
;
400 Lisp_Object tail
, frame
;
404 if (wdesc
== None
) return 0;
406 for (tail
= Vframe_list
; GC_CONSP (tail
); tail
= XCDR (tail
))
409 if (!GC_FRAMEP (frame
))
412 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
414 x
= f
->output_data
.x
;
415 /* This frame matches if the window is any of its widgets. */
416 if (x
->hourglass_window
== wdesc
)
421 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
423 && (gwdesc
== x
->widget
424 || gwdesc
== x
->edit_widget
425 || gwdesc
== x
->vbox_widget
))
428 if (wdesc
== XtWindow (x
->widget
)
429 || wdesc
== XtWindow (x
->column_widget
)
430 || wdesc
== XtWindow (x
->edit_widget
))
434 else if (FRAME_X_WINDOW (f
) == wdesc
)
435 /* A tooltip frame. */
441 /* Likewise, but consider only the menu bar widget. */
444 x_menubar_window_to_frame (dpyinfo
, wdesc
)
445 struct x_display_info
*dpyinfo
;
448 Lisp_Object tail
, frame
;
452 if (wdesc
== None
) return 0;
454 for (tail
= Vframe_list
; GC_CONSP (tail
); tail
= XCDR (tail
))
457 if (!GC_FRAMEP (frame
))
460 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
462 x
= f
->output_data
.x
;
463 /* Match if the window is this frame's menubar. */
465 if (x
->menubar_widget
)
467 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
472 && (gwdesc
== x
->menubar_widget
473 || gtk_widget_get_parent (gwdesc
) == x
->menubar_widget
))
479 if (x
->menubar_widget
480 && lw_window_is_in_menubar (wdesc
, x
->menubar_widget
))
487 /* Return the frame whose principal (outermost) window is WDESC.
488 If WDESC is some other (smaller) window, we return 0. */
491 x_top_window_to_frame (dpyinfo
, wdesc
)
492 struct x_display_info
*dpyinfo
;
495 Lisp_Object tail
, frame
;
499 if (wdesc
== None
) return 0;
501 for (tail
= Vframe_list
; GC_CONSP (tail
); tail
= XCDR (tail
))
504 if (!GC_FRAMEP (frame
))
507 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
509 x
= f
->output_data
.x
;
513 /* This frame matches if the window is its topmost widget. */
515 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
516 if (gwdesc
== x
->widget
)
519 if (wdesc
== XtWindow (x
->widget
))
521 #if 0 /* I don't know why it did this,
522 but it seems logically wrong,
523 and it causes trouble for MapNotify events. */
524 /* Match if the window is this frame's menubar. */
525 if (x
->menubar_widget
526 && wdesc
== XtWindow (x
->menubar_widget
))
531 else if (FRAME_X_WINDOW (f
) == wdesc
)
537 #endif /* USE_X_TOOLKIT || USE_GTK */
541 static Lisp_Object unwind_create_frame
P_ ((Lisp_Object
));
542 static Lisp_Object unwind_create_tip_frame
P_ ((Lisp_Object
));
544 void x_set_foreground_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
545 static void x_set_wait_for_wm
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
546 void x_set_background_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
547 void x_set_mouse_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
548 void x_set_cursor_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
549 void x_set_border_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
550 void x_set_cursor_type
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
551 void x_set_icon_type
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
552 void x_set_icon_name
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
553 void x_explicitly_set_name
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
554 void x_set_menu_bar_lines
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
555 void x_set_title
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
556 void x_set_tool_bar_lines
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
557 void x_set_scroll_bar_foreground
P_ ((struct frame
*, Lisp_Object
,
559 void x_set_scroll_bar_background
P_ ((struct frame
*, Lisp_Object
,
561 static Lisp_Object x_default_scroll_bar_color_parameter
P_ ((struct frame
*,
568 /* Store the screen positions of frame F into XPTR and YPTR.
569 These are the positions of the containing window manager window,
570 not Emacs's own window. */
573 x_real_positions (f
, xptr
, yptr
)
577 int win_x
, win_y
, outer_x
, outer_y
;
578 int real_x
= 0, real_y
= 0;
580 Window win
= f
->output_data
.x
->parent_desc
;
586 count
= x_catch_errors (FRAME_X_DISPLAY (f
));
588 if (win
== FRAME_X_DISPLAY_INFO (f
)->root_window
)
589 win
= FRAME_OUTER_WINDOW (f
);
591 /* This loop traverses up the containment tree until we hit the root
592 window. Window managers may intersect many windows between our window
593 and the root window. The window we find just before the root window
594 should be the outer WM window. */
597 Window wm_window
, rootw
;
598 Window
*tmp_children
;
599 unsigned int tmp_nchildren
;
602 success
= XQueryTree (FRAME_X_DISPLAY (f
), win
, &rootw
,
603 &wm_window
, &tmp_children
, &tmp_nchildren
);
605 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
607 /* Don't free tmp_children if XQueryTree failed. */
611 XFree ((char *) tmp_children
);
613 if (wm_window
== rootw
|| had_errors
)
624 /* Get the real coordinates for the WM window upper left corner */
625 XGetGeometry (FRAME_X_DISPLAY (f
), win
,
626 &rootw
, &real_x
, &real_y
, &ign
, &ign
, &ign
, &ign
);
628 /* Translate real coordinates to coordinates relative to our
629 window. For our window, the upper left corner is 0, 0.
630 Since the upper left corner of the WM window is outside
631 our window, win_x and win_y will be negative:
633 ------------------ ---> x
635 | ----------------- v y
638 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
640 /* From-window, to-window. */
641 FRAME_X_DISPLAY_INFO (f
)->root_window
,
644 /* From-position, to-position. */
645 real_x
, real_y
, &win_x
, &win_y
,
650 if (FRAME_X_WINDOW (f
) == FRAME_OUTER_WINDOW (f
))
657 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
659 /* From-window, to-window. */
660 FRAME_X_DISPLAY_INFO (f
)->root_window
,
661 FRAME_OUTER_WINDOW (f
),
663 /* From-position, to-position. */
664 real_x
, real_y
, &outer_x
, &outer_y
,
670 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
673 x_uncatch_errors (FRAME_X_DISPLAY (f
), count
);
677 if (had_errors
) return;
679 f
->x_pixels_diff
= -win_x
;
680 f
->y_pixels_diff
= -win_y
;
682 FRAME_X_OUTPUT (f
)->x_pixels_outer_diff
= -outer_x
;
683 FRAME_X_OUTPUT (f
)->y_pixels_outer_diff
= -outer_y
;
692 /* Gamma-correct COLOR on frame F. */
695 gamma_correct (f
, color
)
701 color
->red
= pow (color
->red
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
702 color
->green
= pow (color
->green
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
703 color
->blue
= pow (color
->blue
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
708 /* Decide if color named COLOR_NAME is valid for use on frame F. If
709 so, return the RGB values in COLOR. If ALLOC_P is non-zero,
710 allocate the color. Value is zero if COLOR_NAME is invalid, or
711 no color could be allocated. */
714 x_defined_color (f
, color_name
, color
, alloc_p
)
721 Display
*dpy
= FRAME_X_DISPLAY (f
);
722 Colormap cmap
= FRAME_X_COLORMAP (f
);
725 success_p
= XParseColor (dpy
, cmap
, color_name
, color
);
726 if (success_p
&& alloc_p
)
727 success_p
= x_alloc_nearest_color (f
, cmap
, color
);
734 /* Return the pixel color value for color COLOR_NAME on frame F. If F
735 is a monochrome frame, return MONO_COLOR regardless of what ARG says.
736 Signal an error if color can't be allocated. */
739 x_decode_color (f
, color_name
, mono_color
)
741 Lisp_Object color_name
;
746 CHECK_STRING (color_name
);
748 #if 0 /* Don't do this. It's wrong when we're not using the default
749 colormap, it makes freeing difficult, and it's probably not
750 an important optimization. */
751 if (strcmp (SDATA (color_name
), "black") == 0)
752 return BLACK_PIX_DEFAULT (f
);
753 else if (strcmp (SDATA (color_name
), "white") == 0)
754 return WHITE_PIX_DEFAULT (f
);
757 /* Return MONO_COLOR for monochrome frames. */
758 if (FRAME_X_DISPLAY_INFO (f
)->n_planes
== 1)
761 /* x_defined_color is responsible for coping with failures
762 by looking for a near-miss. */
763 if (x_defined_color (f
, SDATA (color_name
), &cdef
, 1))
766 Fsignal (Qerror
, Fcons (build_string ("Undefined color"),
767 Fcons (color_name
, Qnil
)));
773 /* Change the `wait-for-wm' frame parameter of frame F. OLD_VALUE is
774 the previous value of that parameter, NEW_VALUE is the new value.
775 See also the comment of wait_for_wm in struct x_output. */
778 x_set_wait_for_wm (f
, new_value
, old_value
)
780 Lisp_Object new_value
, old_value
;
782 f
->output_data
.x
->wait_for_wm
= !NILP (new_value
);
787 /* Set icon from FILE for frame F. By using GTK functions the icon
788 may be any format that GdkPixbuf knows about, i.e. not just bitmaps. */
791 xg_set_icon (f
, file
)
801 found
= x_find_image_file (file
);
809 filename
= SDATA (found
);
812 pixbuf
= gdk_pixbuf_new_from_file (filename
, &err
);
816 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
818 g_object_unref (pixbuf
);
834 /* Functions called only from `x_set_frame_param'
835 to set individual parameters.
837 If FRAME_X_WINDOW (f) is 0,
838 the frame is being created and its X-window does not exist yet.
839 In that case, just record the parameter's new value
840 in the standard place; do not attempt to change the window. */
843 x_set_foreground_color (f
, arg
, oldval
)
845 Lisp_Object arg
, oldval
;
847 struct x_output
*x
= f
->output_data
.x
;
848 unsigned long fg
, old_fg
;
850 fg
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
851 old_fg
= x
->foreground_pixel
;
852 x
->foreground_pixel
= fg
;
854 if (FRAME_X_WINDOW (f
) != 0)
856 Display
*dpy
= FRAME_X_DISPLAY (f
);
859 XSetForeground (dpy
, x
->normal_gc
, fg
);
860 XSetBackground (dpy
, x
->reverse_gc
, fg
);
862 if (x
->cursor_pixel
== old_fg
)
864 unload_color (f
, x
->cursor_pixel
);
865 x
->cursor_pixel
= x_copy_color (f
, fg
);
866 XSetBackground (dpy
, x
->cursor_gc
, x
->cursor_pixel
);
871 update_face_from_frame_parameter (f
, Qforeground_color
, arg
);
873 if (FRAME_VISIBLE_P (f
))
877 unload_color (f
, old_fg
);
881 x_set_background_color (f
, arg
, oldval
)
883 Lisp_Object arg
, oldval
;
885 struct x_output
*x
= f
->output_data
.x
;
888 bg
= x_decode_color (f
, arg
, WHITE_PIX_DEFAULT (f
));
889 unload_color (f
, x
->background_pixel
);
890 x
->background_pixel
= bg
;
892 if (FRAME_X_WINDOW (f
) != 0)
894 Display
*dpy
= FRAME_X_DISPLAY (f
);
897 XSetBackground (dpy
, x
->normal_gc
, bg
);
898 XSetForeground (dpy
, x
->reverse_gc
, bg
);
899 XSetWindowBackground (dpy
, FRAME_X_WINDOW (f
), bg
);
900 XSetForeground (dpy
, x
->cursor_gc
, bg
);
903 xg_set_background_color (f
, bg
);
906 #ifndef USE_TOOLKIT_SCROLL_BARS /* Turns out to be annoying with
907 toolkit scroll bars. */
910 for (bar
= FRAME_SCROLL_BARS (f
);
912 bar
= XSCROLL_BAR (bar
)->next
)
914 Window window
= SCROLL_BAR_X_WINDOW (XSCROLL_BAR (bar
));
915 XSetWindowBackground (dpy
, window
, bg
);
918 #endif /* USE_TOOLKIT_SCROLL_BARS */
921 update_face_from_frame_parameter (f
, Qbackground_color
, arg
);
923 if (FRAME_VISIBLE_P (f
))
929 x_set_mouse_color (f
, arg
, oldval
)
931 Lisp_Object arg
, oldval
;
933 struct x_output
*x
= f
->output_data
.x
;
934 Display
*dpy
= FRAME_X_DISPLAY (f
);
935 Cursor cursor
, nontext_cursor
, mode_cursor
, hand_cursor
;
936 Cursor hourglass_cursor
, horizontal_drag_cursor
;
938 unsigned long pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
939 unsigned long mask_color
= x
->background_pixel
;
941 /* Don't let pointers be invisible. */
942 if (mask_color
== pixel
)
944 x_free_colors (f
, &pixel
, 1);
945 pixel
= x_copy_color (f
, x
->foreground_pixel
);
948 unload_color (f
, x
->mouse_pixel
);
949 x
->mouse_pixel
= pixel
;
953 /* It's not okay to crash if the user selects a screwy cursor. */
954 count
= x_catch_errors (dpy
);
956 if (!NILP (Vx_pointer_shape
))
958 CHECK_NUMBER (Vx_pointer_shape
);
959 cursor
= XCreateFontCursor (dpy
, XINT (Vx_pointer_shape
));
962 cursor
= XCreateFontCursor (dpy
, XC_xterm
);
963 x_check_errors (dpy
, "bad text pointer cursor: %s");
965 if (!NILP (Vx_nontext_pointer_shape
))
967 CHECK_NUMBER (Vx_nontext_pointer_shape
);
969 = XCreateFontCursor (dpy
, XINT (Vx_nontext_pointer_shape
));
972 nontext_cursor
= XCreateFontCursor (dpy
, XC_left_ptr
);
973 x_check_errors (dpy
, "bad nontext pointer cursor: %s");
975 if (!NILP (Vx_hourglass_pointer_shape
))
977 CHECK_NUMBER (Vx_hourglass_pointer_shape
);
979 = XCreateFontCursor (dpy
, XINT (Vx_hourglass_pointer_shape
));
982 hourglass_cursor
= XCreateFontCursor (dpy
, XC_watch
);
983 x_check_errors (dpy
, "bad hourglass pointer cursor: %s");
985 if (!NILP (Vx_mode_pointer_shape
))
987 CHECK_NUMBER (Vx_mode_pointer_shape
);
988 mode_cursor
= XCreateFontCursor (dpy
, XINT (Vx_mode_pointer_shape
));
991 mode_cursor
= XCreateFontCursor (dpy
, XC_xterm
);
992 x_check_errors (dpy
, "bad modeline pointer cursor: %s");
994 if (!NILP (Vx_sensitive_text_pointer_shape
))
996 CHECK_NUMBER (Vx_sensitive_text_pointer_shape
);
998 = XCreateFontCursor (dpy
, XINT (Vx_sensitive_text_pointer_shape
));
1001 hand_cursor
= XCreateFontCursor (dpy
, XC_hand2
);
1003 if (!NILP (Vx_window_horizontal_drag_shape
))
1005 CHECK_NUMBER (Vx_window_horizontal_drag_shape
);
1006 horizontal_drag_cursor
1007 = XCreateFontCursor (dpy
, XINT (Vx_window_horizontal_drag_shape
));
1010 horizontal_drag_cursor
1011 = XCreateFontCursor (dpy
, XC_sb_h_double_arrow
);
1013 /* Check and report errors with the above calls. */
1014 x_check_errors (dpy
, "can't set cursor shape: %s");
1015 x_uncatch_errors (dpy
, count
);
1018 XColor fore_color
, back_color
;
1020 fore_color
.pixel
= x
->mouse_pixel
;
1021 x_query_color (f
, &fore_color
);
1022 back_color
.pixel
= mask_color
;
1023 x_query_color (f
, &back_color
);
1025 XRecolorCursor (dpy
, cursor
, &fore_color
, &back_color
);
1026 XRecolorCursor (dpy
, nontext_cursor
, &fore_color
, &back_color
);
1027 XRecolorCursor (dpy
, mode_cursor
, &fore_color
, &back_color
);
1028 XRecolorCursor (dpy
, hand_cursor
, &fore_color
, &back_color
);
1029 XRecolorCursor (dpy
, hourglass_cursor
, &fore_color
, &back_color
);
1030 XRecolorCursor (dpy
, horizontal_drag_cursor
, &fore_color
, &back_color
);
1033 if (FRAME_X_WINDOW (f
) != 0)
1034 XDefineCursor (dpy
, FRAME_X_WINDOW (f
), cursor
);
1036 if (cursor
!= x
->text_cursor
1037 && x
->text_cursor
!= 0)
1038 XFreeCursor (dpy
, x
->text_cursor
);
1039 x
->text_cursor
= cursor
;
1041 if (nontext_cursor
!= x
->nontext_cursor
1042 && x
->nontext_cursor
!= 0)
1043 XFreeCursor (dpy
, x
->nontext_cursor
);
1044 x
->nontext_cursor
= nontext_cursor
;
1046 if (hourglass_cursor
!= x
->hourglass_cursor
1047 && x
->hourglass_cursor
!= 0)
1048 XFreeCursor (dpy
, x
->hourglass_cursor
);
1049 x
->hourglass_cursor
= hourglass_cursor
;
1051 if (mode_cursor
!= x
->modeline_cursor
1052 && x
->modeline_cursor
!= 0)
1053 XFreeCursor (dpy
, f
->output_data
.x
->modeline_cursor
);
1054 x
->modeline_cursor
= mode_cursor
;
1056 if (hand_cursor
!= x
->hand_cursor
1057 && x
->hand_cursor
!= 0)
1058 XFreeCursor (dpy
, x
->hand_cursor
);
1059 x
->hand_cursor
= hand_cursor
;
1061 if (horizontal_drag_cursor
!= x
->horizontal_drag_cursor
1062 && x
->horizontal_drag_cursor
!= 0)
1063 XFreeCursor (dpy
, x
->horizontal_drag_cursor
);
1064 x
->horizontal_drag_cursor
= horizontal_drag_cursor
;
1069 update_face_from_frame_parameter (f
, Qmouse_color
, arg
);
1073 x_set_cursor_color (f
, arg
, oldval
)
1075 Lisp_Object arg
, oldval
;
1077 unsigned long fore_pixel
, pixel
;
1078 int fore_pixel_allocated_p
= 0, pixel_allocated_p
= 0;
1079 struct x_output
*x
= f
->output_data
.x
;
1081 if (!NILP (Vx_cursor_fore_pixel
))
1083 fore_pixel
= x_decode_color (f
, Vx_cursor_fore_pixel
,
1084 WHITE_PIX_DEFAULT (f
));
1085 fore_pixel_allocated_p
= 1;
1088 fore_pixel
= x
->background_pixel
;
1090 pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1091 pixel_allocated_p
= 1;
1093 /* Make sure that the cursor color differs from the background color. */
1094 if (pixel
== x
->background_pixel
)
1096 if (pixel_allocated_p
)
1098 x_free_colors (f
, &pixel
, 1);
1099 pixel_allocated_p
= 0;
1102 pixel
= x
->mouse_pixel
;
1103 if (pixel
== fore_pixel
)
1105 if (fore_pixel_allocated_p
)
1107 x_free_colors (f
, &fore_pixel
, 1);
1108 fore_pixel_allocated_p
= 0;
1110 fore_pixel
= x
->background_pixel
;
1114 unload_color (f
, x
->cursor_foreground_pixel
);
1115 if (!fore_pixel_allocated_p
)
1116 fore_pixel
= x_copy_color (f
, fore_pixel
);
1117 x
->cursor_foreground_pixel
= fore_pixel
;
1119 unload_color (f
, x
->cursor_pixel
);
1120 if (!pixel_allocated_p
)
1121 pixel
= x_copy_color (f
, pixel
);
1122 x
->cursor_pixel
= pixel
;
1124 if (FRAME_X_WINDOW (f
) != 0)
1127 XSetBackground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, x
->cursor_pixel
);
1128 XSetForeground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, fore_pixel
);
1131 if (FRAME_VISIBLE_P (f
))
1133 x_update_cursor (f
, 0);
1134 x_update_cursor (f
, 1);
1138 update_face_from_frame_parameter (f
, Qcursor_color
, arg
);
1141 /* Set the border-color of frame F to pixel value PIX.
1142 Note that this does not fully take effect if done before
1143 F has an x-window. */
1146 x_set_border_pixel (f
, pix
)
1150 unload_color (f
, f
->output_data
.x
->border_pixel
);
1151 f
->output_data
.x
->border_pixel
= pix
;
1153 if (FRAME_X_WINDOW (f
) != 0 && f
->border_width
> 0)
1156 XSetWindowBorder (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1157 (unsigned long)pix
);
1160 if (FRAME_VISIBLE_P (f
))
1165 /* Set the border-color of frame F to value described by ARG.
1166 ARG can be a string naming a color.
1167 The border-color is used for the border that is drawn by the X server.
1168 Note that this does not fully take effect if done before
1169 F has an x-window; it must be redone when the window is created.
1171 Note: this is done in two routines because of the way X10 works.
1173 Note: under X11, this is normally the province of the window manager,
1174 and so emacs' border colors may be overridden. */
1177 x_set_border_color (f
, arg
, oldval
)
1179 Lisp_Object arg
, oldval
;
1184 pix
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1185 x_set_border_pixel (f
, pix
);
1186 update_face_from_frame_parameter (f
, Qborder_color
, arg
);
1191 x_set_cursor_type (f
, arg
, oldval
)
1193 Lisp_Object arg
, oldval
;
1195 set_frame_cursor_types (f
, arg
);
1197 /* Make sure the cursor gets redrawn. */
1198 cursor_type_changed
= 1;
1202 x_set_icon_type (f
, arg
, oldval
)
1204 Lisp_Object arg
, oldval
;
1210 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1213 else if (!STRINGP (oldval
) && EQ (oldval
, Qnil
) == EQ (arg
, Qnil
))
1218 result
= x_text_icon (f
,
1219 (char *) SDATA ((!NILP (f
->icon_name
)
1223 result
= x_bitmap_icon (f
, arg
);
1228 error ("No icon window available");
1231 XFlush (FRAME_X_DISPLAY (f
));
1236 x_set_icon_name (f
, arg
, oldval
)
1238 Lisp_Object arg
, oldval
;
1244 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1247 else if (!STRINGP (oldval
) && EQ (oldval
, Qnil
) == EQ (arg
, Qnil
))
1252 if (f
->output_data
.x
->icon_bitmap
!= 0)
1257 result
= x_text_icon (f
,
1258 (char *) SDATA ((!NILP (f
->icon_name
)
1267 error ("No icon window available");
1270 XFlush (FRAME_X_DISPLAY (f
));
1276 x_set_menu_bar_lines (f
, value
, oldval
)
1278 Lisp_Object value
, oldval
;
1281 #if ! defined (USE_X_TOOLKIT) && ! defined (USE_GTK)
1282 int olines
= FRAME_MENU_BAR_LINES (f
);
1285 /* Right now, menu bars don't work properly in minibuf-only frames;
1286 most of the commands try to apply themselves to the minibuffer
1287 frame itself, and get an error because you can't switch buffers
1288 in or split the minibuffer window. */
1289 if (FRAME_MINIBUF_ONLY_P (f
))
1292 if (INTEGERP (value
))
1293 nlines
= XINT (value
);
1297 /* Make sure we redisplay all windows in this frame. */
1298 windows_or_buffers_changed
++;
1300 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
1301 FRAME_MENU_BAR_LINES (f
) = 0;
1304 FRAME_EXTERNAL_MENU_BAR (f
) = 1;
1305 if (FRAME_X_P (f
) && f
->output_data
.x
->menubar_widget
== 0)
1306 /* Make sure next redisplay shows the menu bar. */
1307 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= Qt
;
1311 if (FRAME_EXTERNAL_MENU_BAR (f
) == 1)
1312 free_frame_menubar (f
);
1313 FRAME_EXTERNAL_MENU_BAR (f
) = 0;
1315 f
->output_data
.x
->menubar_widget
= 0;
1317 #else /* not USE_X_TOOLKIT && not USE_GTK */
1318 FRAME_MENU_BAR_LINES (f
) = nlines
;
1319 change_window_heights (f
->root_window
, nlines
- olines
);
1320 #endif /* not USE_X_TOOLKIT */
1325 /* Set the number of lines used for the tool bar of frame F to VALUE.
1326 VALUE not an integer, or < 0 means set the lines to zero. OLDVAL
1327 is the old number of tool bar lines. This function changes the
1328 height of all windows on frame F to match the new tool bar height.
1329 The frame's height doesn't change. */
1332 x_set_tool_bar_lines (f
, value
, oldval
)
1334 Lisp_Object value
, oldval
;
1336 int delta
, nlines
, root_height
;
1337 Lisp_Object root_window
;
1339 /* Treat tool bars like menu bars. */
1340 if (FRAME_MINIBUF_ONLY_P (f
))
1343 /* Use VALUE only if an integer >= 0. */
1344 if (INTEGERP (value
) && XINT (value
) >= 0)
1345 nlines
= XFASTINT (value
);
1350 FRAME_TOOL_BAR_LINES (f
) = 0;
1353 FRAME_EXTERNAL_TOOL_BAR (f
) = 1;
1354 if (FRAME_X_P (f
) && f
->output_data
.x
->toolbar_widget
== 0)
1355 /* Make sure next redisplay shows the tool bar. */
1356 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= Qt
;
1357 update_frame_tool_bar (f
);
1361 if (FRAME_EXTERNAL_TOOL_BAR (f
))
1362 free_frame_tool_bar (f
);
1363 FRAME_EXTERNAL_TOOL_BAR (f
) = 0;
1369 /* Make sure we redisplay all windows in this frame. */
1370 ++windows_or_buffers_changed
;
1372 delta
= nlines
- FRAME_TOOL_BAR_LINES (f
);
1374 /* Don't resize the tool-bar to more than we have room for. */
1375 root_window
= FRAME_ROOT_WINDOW (f
);
1376 root_height
= WINDOW_TOTAL_LINES (XWINDOW (root_window
));
1377 if (root_height
- delta
< 1)
1379 delta
= root_height
- 1;
1380 nlines
= FRAME_TOOL_BAR_LINES (f
) + delta
;
1383 FRAME_TOOL_BAR_LINES (f
) = nlines
;
1384 change_window_heights (root_window
, delta
);
1387 /* We also have to make sure that the internal border at the top of
1388 the frame, below the menu bar or tool bar, is redrawn when the
1389 tool bar disappears. This is so because the internal border is
1390 below the tool bar if one is displayed, but is below the menu bar
1391 if there isn't a tool bar. The tool bar draws into the area
1392 below the menu bar. */
1393 if (FRAME_X_WINDOW (f
) && FRAME_TOOL_BAR_LINES (f
) == 0)
1396 clear_current_matrices (f
);
1399 /* If the tool bar gets smaller, the internal border below it
1400 has to be cleared. It was formerly part of the display
1401 of the larger tool bar, and updating windows won't clear it. */
1404 int height
= FRAME_INTERNAL_BORDER_WIDTH (f
);
1405 int width
= FRAME_PIXEL_WIDTH (f
);
1406 int y
= nlines
* FRAME_LINE_HEIGHT (f
);
1408 /* height can be zero here. */
1409 if (height
> 0 && width
> 0)
1412 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1413 0, y
, width
, height
, False
);
1417 if (WINDOWP (f
->tool_bar_window
))
1418 clear_glyph_matrix (XWINDOW (f
->tool_bar_window
)->current_matrix
);
1423 /* Set the foreground color for scroll bars on frame F to VALUE.
1424 VALUE should be a string, a color name. If it isn't a string or
1425 isn't a valid color name, do nothing. OLDVAL is the old value of
1426 the frame parameter. */
1429 x_set_scroll_bar_foreground (f
, value
, oldval
)
1431 Lisp_Object value
, oldval
;
1433 unsigned long pixel
;
1435 if (STRINGP (value
))
1436 pixel
= x_decode_color (f
, value
, BLACK_PIX_DEFAULT (f
));
1440 if (f
->output_data
.x
->scroll_bar_foreground_pixel
!= -1)
1441 unload_color (f
, f
->output_data
.x
->scroll_bar_foreground_pixel
);
1443 f
->output_data
.x
->scroll_bar_foreground_pixel
= pixel
;
1444 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1446 /* Remove all scroll bars because they have wrong colors. */
1447 if (FRAME_DISPLAY (f
)->condemn_scroll_bars_hook
)
1448 (*FRAME_DISPLAY (f
)->condemn_scroll_bars_hook
) (f
);
1449 if (FRAME_DISPLAY (f
)->judge_scroll_bars_hook
)
1450 (*FRAME_DISPLAY (f
)->judge_scroll_bars_hook
) (f
);
1452 update_face_from_frame_parameter (f
, Qscroll_bar_foreground
, value
);
1458 /* Set the background color for scroll bars on frame F to VALUE VALUE
1459 should be a string, a color name. If it isn't a string or isn't a
1460 valid color name, do nothing. OLDVAL is the old value of the frame
1464 x_set_scroll_bar_background (f
, value
, oldval
)
1466 Lisp_Object value
, oldval
;
1468 unsigned long pixel
;
1470 if (STRINGP (value
))
1471 pixel
= x_decode_color (f
, value
, WHITE_PIX_DEFAULT (f
));
1475 if (f
->output_data
.x
->scroll_bar_background_pixel
!= -1)
1476 unload_color (f
, f
->output_data
.x
->scroll_bar_background_pixel
);
1478 #ifdef USE_TOOLKIT_SCROLL_BARS
1479 /* Scrollbar shadow colors. */
1480 if (f
->output_data
.x
->scroll_bar_top_shadow_pixel
!= -1)
1482 unload_color (f
, f
->output_data
.x
->scroll_bar_top_shadow_pixel
);
1483 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
1485 if (f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
!= -1)
1487 unload_color (f
, f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
);
1488 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
1490 #endif /* USE_TOOLKIT_SCROLL_BARS */
1492 f
->output_data
.x
->scroll_bar_background_pixel
= pixel
;
1493 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1495 /* Remove all scroll bars because they have wrong colors. */
1496 if (FRAME_DISPLAY (f
)->condemn_scroll_bars_hook
)
1497 (*FRAME_DISPLAY (f
)->condemn_scroll_bars_hook
) (f
);
1498 if (FRAME_DISPLAY (f
)->judge_scroll_bars_hook
)
1499 (*FRAME_DISPLAY (f
)->judge_scroll_bars_hook
) (f
);
1501 update_face_from_frame_parameter (f
, Qscroll_bar_background
, value
);
1507 /* Encode Lisp string STRING as a text in a format appropriate for
1508 XICCC (X Inter Client Communication Conventions).
1510 If STRING contains only ASCII characters, do no conversion and
1511 return the string data of STRING. Otherwise, encode the text by
1512 CODING_SYSTEM, and return a newly allocated memory area which
1513 should be freed by `xfree' by a caller.
1515 SELECTIONP non-zero means the string is being encoded for an X
1516 selection, so it is safe to run pre-write conversions (which
1519 Store the byte length of resulting text in *TEXT_BYTES.
1521 If the text contains only ASCII and Latin-1, store 1 in *STRING_P,
1522 which means that the `encoding' of the result can be `STRING'.
1523 Otherwise store 0 in *STRINGP, which means that the `encoding' of
1524 the result should be `COMPOUND_TEXT'. */
1527 x_encode_text (string
, coding_system
, selectionp
, text_bytes
, stringp
)
1528 Lisp_Object string
, coding_system
;
1529 int *text_bytes
, *stringp
;
1532 unsigned char *str
= SDATA (string
);
1533 int chars
= SCHARS (string
);
1534 int bytes
= SBYTES (string
);
1538 struct coding_system coding
;
1539 extern Lisp_Object Qcompound_text_with_extensions
;
1541 charset_info
= find_charset_in_text (str
, chars
, bytes
, NULL
, Qnil
);
1542 if (charset_info
== 0)
1544 /* No multibyte character in OBJ. We need not encode it. */
1545 *text_bytes
= bytes
;
1550 setup_coding_system (coding_system
, &coding
);
1552 && SYMBOLP (coding
.pre_write_conversion
)
1553 && !NILP (Ffboundp (coding
.pre_write_conversion
)))
1555 string
= run_pre_post_conversion_on_str (string
, &coding
, 1);
1556 str
= SDATA (string
);
1557 chars
= SCHARS (string
);
1558 bytes
= SBYTES (string
);
1560 coding
.src_multibyte
= 1;
1561 coding
.dst_multibyte
= 0;
1562 coding
.mode
|= CODING_MODE_LAST_BLOCK
;
1563 if (coding
.type
== coding_type_iso2022
)
1564 coding
.flags
|= CODING_FLAG_ISO_SAFE
;
1565 /* We suppress producing escape sequences for composition. */
1566 coding
.composing
= COMPOSITION_DISABLED
;
1567 bufsize
= encoding_buffer_size (&coding
, bytes
);
1568 buf
= (unsigned char *) xmalloc (bufsize
);
1569 encode_coding (&coding
, str
, buf
, bytes
, bufsize
);
1570 *text_bytes
= coding
.produced
;
1571 *stringp
= (charset_info
== 1
1572 || (!EQ (coding_system
, Qcompound_text
)
1573 && !EQ (coding_system
, Qcompound_text_with_extensions
)));
1578 /* Set the WM name to NAME for frame F. Also set the icon name.
1579 If the frame already has an icon name, use that, otherwise set the
1580 icon name to NAME. */
1583 x_set_name_internal (f
, name
)
1587 if (FRAME_X_WINDOW (f
))
1592 XTextProperty text
, icon
;
1594 int do_free_icon_value
= 0, do_free_text_value
= 0;
1595 Lisp_Object coding_system
;
1597 coding_system
= Qcompound_text
;
1598 /* Note: Encoding strategy
1600 We encode NAME by compound-text and use "COMPOUND-TEXT" in
1601 text.encoding. But, there are non-internationalized window
1602 managers which don't support that encoding. So, if NAME
1603 contains only ASCII and 8859-1 characters, encode it by
1604 iso-latin-1, and use "STRING" in text.encoding hoping that
1605 such window managers at least analyze this format correctly,
1606 i.e. treat 8-bit bytes as 8859-1 characters.
1608 We may also be able to use "UTF8_STRING" in text.encoding
1609 in the future which can encode all Unicode characters.
1610 But, for the moment, there's no way to know that the
1611 current window manager supports it or not. */
1612 text
.value
= x_encode_text (name
, coding_system
, 0, &bytes
, &stringp
);
1613 text
.encoding
= (stringp
? XA_STRING
1614 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1616 text
.nitems
= bytes
;
1618 /* Check early, because ENCODE_UTF_8 below may GC and name may be
1620 do_free_text_value
= text
.value
!= SDATA (name
);
1622 if (NILP (f
->icon_name
))
1628 /* See the above comment "Note: Encoding strategy". */
1629 icon
.value
= x_encode_text (f
->icon_name
, coding_system
, 0,
1631 icon
.encoding
= (stringp
? XA_STRING
1632 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1634 icon
.nitems
= bytes
;
1635 do_free_icon_value
= icon
.value
!= SDATA (f
->icon_name
);
1639 gtk_window_set_title (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
1640 SDATA (ENCODE_UTF_8 (name
)));
1641 #else /* not USE_GTK */
1642 XSetWMName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &text
);
1643 #endif /* not USE_GTK */
1645 XSetWMIconName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &icon
);
1647 if (do_free_icon_value
)
1649 if (do_free_text_value
)
1652 #else /* not HAVE_X11R4 */
1653 XSetIconName (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1655 XStoreName (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1657 #endif /* not HAVE_X11R4 */
1662 /* Change the name of frame F to NAME. If NAME is nil, set F's name to
1665 If EXPLICIT is non-zero, that indicates that lisp code is setting the
1666 name; if NAME is a string, set F's name to NAME and set
1667 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1669 If EXPLICIT is zero, that indicates that Emacs redisplay code is
1670 suggesting a new name, which lisp code should override; if
1671 F->explicit_name is set, ignore the new name; otherwise, set it. */
1674 x_set_name (f
, name
, explicit)
1679 /* Make sure that requests from lisp code override requests from
1680 Emacs redisplay code. */
1683 /* If we're switching from explicit to implicit, we had better
1684 update the mode lines and thereby update the title. */
1685 if (f
->explicit_name
&& NILP (name
))
1686 update_mode_lines
= 1;
1688 f
->explicit_name
= ! NILP (name
);
1690 else if (f
->explicit_name
)
1693 /* If NAME is nil, set the name to the x_id_name. */
1696 /* Check for no change needed in this very common case
1697 before we do any consing. */
1698 if (!strcmp (FRAME_X_DISPLAY_INFO (f
)->x_id_name
,
1701 name
= build_string (FRAME_X_DISPLAY_INFO (f
)->x_id_name
);
1704 CHECK_STRING (name
);
1706 /* Don't change the name if it's already NAME. */
1707 if (! NILP (Fstring_equal (name
, f
->name
)))
1712 /* For setting the frame title, the title parameter should override
1713 the name parameter. */
1714 if (! NILP (f
->title
))
1717 x_set_name_internal (f
, name
);
1720 /* This function should be called when the user's lisp code has
1721 specified a name for the frame; the name will override any set by the
1724 x_explicitly_set_name (f
, arg
, oldval
)
1726 Lisp_Object arg
, oldval
;
1728 x_set_name (f
, arg
, 1);
1731 /* This function should be called by Emacs redisplay code to set the
1732 name; names set this way will never override names set by the user's
1735 x_implicitly_set_name (f
, arg
, oldval
)
1737 Lisp_Object arg
, oldval
;
1739 x_set_name (f
, arg
, 0);
1742 /* Change the title of frame F to NAME.
1743 If NAME is nil, use the frame name as the title.
1745 If EXPLICIT is non-zero, that indicates that lisp code is setting the
1746 name; if NAME is a string, set F's name to NAME and set
1747 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1749 If EXPLICIT is zero, that indicates that Emacs redisplay code is
1750 suggesting a new name, which lisp code should override; if
1751 F->explicit_name is set, ignore the new name; otherwise, set it. */
1754 x_set_title (f
, name
, old_name
)
1756 Lisp_Object name
, old_name
;
1758 /* Don't change the title if it's already NAME. */
1759 if (EQ (name
, f
->title
))
1762 update_mode_lines
= 1;
1769 CHECK_STRING (name
);
1771 x_set_name_internal (f
, name
);
1775 x_set_scroll_bar_default_width (f
)
1778 int wid
= FRAME_COLUMN_WIDTH (f
);
1780 #ifdef USE_TOOLKIT_SCROLL_BARS
1781 /* A minimum width of 14 doesn't look good for toolkit scroll bars. */
1782 int width
= 16 + 2 * VERTICAL_SCROLL_BAR_WIDTH_TRIM
;
1783 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (width
+ wid
- 1) / wid
;
1784 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = width
;
1786 /* Make the actual width at least 14 pixels and a multiple of a
1788 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (14 + wid
- 1) / wid
;
1790 /* Use all of that space (aside from required margins) for the
1792 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = 0;
1797 /* Record in frame F the specified or default value according to ALIST
1798 of the parameter named PROP (a Lisp symbol). If no value is
1799 specified for PROP, look for an X default for XPROP on the frame
1800 named NAME. If that is not found either, use the value DEFLT. */
1803 x_default_scroll_bar_color_parameter (f
, alist
, prop
, xprop
, xclass
,
1812 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
1815 tem
= x_get_arg (dpyinfo
, alist
, prop
, xprop
, xclass
, RES_TYPE_STRING
);
1816 if (EQ (tem
, Qunbound
))
1818 #ifdef USE_TOOLKIT_SCROLL_BARS
1820 /* See if an X resource for the scroll bar color has been
1822 tem
= display_x_get_resource (dpyinfo
,
1823 build_string (foreground_p
1827 build_string ("verticalScrollBar"),
1831 /* If nothing has been specified, scroll bars will use a
1832 toolkit-dependent default. Because these defaults are
1833 difficult to get at without actually creating a scroll
1834 bar, use nil to indicate that no color has been
1839 #else /* not USE_TOOLKIT_SCROLL_BARS */
1843 #endif /* not USE_TOOLKIT_SCROLL_BARS */
1846 x_set_frame_parameters (f
, Fcons (Fcons (prop
, tem
), Qnil
));
1852 #if !defined (HAVE_X11R4) && !defined (HAVE_XSETWMPROTOCOLS)
1855 XSetWMProtocols (dpy
, w
, protocols
, count
)
1862 prop
= XInternAtom (dpy
, "WM_PROTOCOLS", False
);
1863 if (prop
== None
) return False
;
1864 XChangeProperty (dpy
, w
, prop
, XA_ATOM
, 32, PropModeReplace
,
1865 (unsigned char *) protocols
, count
);
1868 #endif /* not HAVE_X11R4 && not HAVE_XSETWMPROTOCOLS */
1870 #ifdef USE_X_TOOLKIT
1872 /* If the WM_PROTOCOLS property does not already contain WM_TAKE_FOCUS,
1873 WM_DELETE_WINDOW, and WM_SAVE_YOURSELF, then add them. (They may
1874 already be present because of the toolkit (Motif adds some of them,
1875 for example, but Xt doesn't). */
1878 hack_wm_protocols (f
, widget
)
1882 Display
*dpy
= XtDisplay (widget
);
1883 Window w
= XtWindow (widget
);
1884 int need_delete
= 1;
1891 unsigned char *catoms
;
1893 unsigned long nitems
= 0;
1894 unsigned long bytes_after
;
1896 if ((XGetWindowProperty (dpy
, w
,
1897 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1898 (long)0, (long)100, False
, XA_ATOM
,
1899 &type
, &format
, &nitems
, &bytes_after
,
1902 && format
== 32 && type
== XA_ATOM
)
1904 Atom
*atoms
= (Atom
*) catoms
;
1909 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
)
1911 else if (atoms
[nitems
]
1912 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
)
1914 else if (atoms
[nitems
]
1915 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
)
1926 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
1928 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
;
1930 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
1932 XChangeProperty (dpy
, w
, FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1933 XA_ATOM
, 32, PropModeAppend
,
1934 (unsigned char *) props
, count
);
1942 /* Support routines for XIC (X Input Context). */
1946 static XFontSet xic_create_xfontset
P_ ((struct frame
*, char *));
1947 static XIMStyle best_xim_style
P_ ((XIMStyles
*, XIMStyles
*));
1950 /* Supported XIM styles, ordered by preference. */
1952 static XIMStyle supported_xim_styles
[] =
1954 XIMPreeditPosition
| XIMStatusArea
,
1955 XIMPreeditPosition
| XIMStatusNothing
,
1956 XIMPreeditPosition
| XIMStatusNone
,
1957 XIMPreeditNothing
| XIMStatusArea
,
1958 XIMPreeditNothing
| XIMStatusNothing
,
1959 XIMPreeditNothing
| XIMStatusNone
,
1960 XIMPreeditNone
| XIMStatusArea
,
1961 XIMPreeditNone
| XIMStatusNothing
,
1962 XIMPreeditNone
| XIMStatusNone
,
1967 /* Create an X fontset on frame F with base font name BASE_FONTNAME. */
1969 char xic_defaut_fontset
[] = "-*-*-*-r-normal--14-*-*-*-*-*-*-*";
1971 /* Create an Xt fontset spec from the name of a base font.
1972 If `motif' is True use the Motif syntax. */
1974 xic_create_fontsetname (base_fontname
, motif
)
1975 char *base_fontname
;
1978 const char *sep
= motif
? ";" : ",";
1981 /* Make a fontset name from the base font name. */
1982 if (xic_defaut_fontset
== base_fontname
)
1983 { /* There is no base font name, use the default. */
1984 int len
= strlen (base_fontname
) + 2;
1985 fontsetname
= xmalloc (len
);
1986 bzero (fontsetname
, len
);
1987 strcpy (fontsetname
, base_fontname
);
1991 /* Make a fontset name from the base font name.
1992 The font set will be made of the following elements:
1994 - the base font where the charset spec is replaced by -*-*.
1995 - the same but with the family also replaced with -*-*-. */
1996 char *p
= base_fontname
;
1999 for (i
= 0; *p
; p
++)
2002 { /* As the font name doesn't conform to XLFD, we can't
2003 modify it to generalize it to allcs and allfamilies.
2004 Use the specified font plus the default. */
2005 int len
= strlen (base_fontname
) + strlen (xic_defaut_fontset
) + 3;
2006 fontsetname
= xmalloc (len
);
2007 bzero (fontsetname
, len
);
2008 strcpy (fontsetname
, base_fontname
);
2009 strcat (fontsetname
, sep
);
2010 strcat (fontsetname
, xic_defaut_fontset
);
2015 char *p1
= NULL
, *p2
= NULL
;
2016 char *font_allcs
= NULL
;
2017 char *font_allfamilies
= NULL
;
2018 char *font_all
= NULL
;
2019 char *allcs
= "*-*-*-*-*-*-*";
2020 char *allfamilies
= "-*-*-";
2021 char *all
= "*-*-*-*-";
2023 for (i
= 0, p
= base_fontname
; i
< 8; p
++)
2034 /* Build the font spec that matches all charsets. */
2035 len
= p
- base_fontname
+ strlen (allcs
) + 1;
2036 font_allcs
= (char *) alloca (len
);
2037 bzero (font_allcs
, len
);
2038 bcopy (base_fontname
, font_allcs
, p
- base_fontname
);
2039 strcat (font_allcs
, allcs
);
2041 /* Build the font spec that matches all families. */
2042 len
= p
- p1
+ strlen (allcs
) + strlen (allfamilies
) + 1;
2043 font_allfamilies
= (char *) alloca (len
);
2044 bzero (font_allfamilies
, len
);
2045 strcpy (font_allfamilies
, allfamilies
);
2046 bcopy (p1
, font_allfamilies
+ strlen (allfamilies
), p
- p1
);
2047 strcat (font_allfamilies
, allcs
);
2049 /* Build the font spec that matches all. */
2050 len
= p
- p2
+ strlen (allcs
) + strlen (all
) + strlen (allfamilies
) + 1;
2051 font_all
= (char *) alloca (len
);
2052 bzero (font_all
, len
);
2053 strcpy (font_all
, allfamilies
);
2054 strcat (font_all
, all
);
2055 bcopy (p2
, font_all
+ strlen (all
) + strlen (allfamilies
), p
- p2
);
2056 strcat (font_all
, allcs
);
2058 /* Build the actual font set name. */
2059 len
= strlen (base_fontname
) + strlen (font_allcs
)
2060 + strlen (font_allfamilies
) + strlen (font_all
) + 5;
2061 fontsetname
= xmalloc (len
);
2062 bzero (fontsetname
, len
);
2063 strcpy (fontsetname
, base_fontname
);
2064 strcat (fontsetname
, sep
);
2065 strcat (fontsetname
, font_allcs
);
2066 strcat (fontsetname
, sep
);
2067 strcat (fontsetname
, font_allfamilies
);
2068 strcat (fontsetname
, sep
);
2069 strcat (fontsetname
, font_all
);
2073 strcat (fontsetname
, ":");
2078 xic_create_xfontset (f
, base_fontname
)
2080 char *base_fontname
;
2082 XFontSet xfs
= NULL
;
2083 char **missing_list
= NULL
;
2086 Lisp_Object rest
, frame
;
2089 base_fontname
= xic_defaut_fontset
;
2091 /* See if there is another frame already using same fontset. */
2092 FOR_EACH_FRAME (rest
, frame
)
2094 struct frame
*cf
= XFRAME (frame
);
2095 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
2096 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
2097 && FRAME_XIC_BASE_FONTNAME (cf
)
2098 && !strcmp (FRAME_XIC_BASE_FONTNAME (cf
), base_fontname
))
2100 xfs
= FRAME_XIC_FONTSET (cf
);
2107 char *fontsetname
= xic_create_fontsetname (base_fontname
, False
);
2110 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
),
2111 fontsetname
, &missing_list
,
2112 &missing_count
, &def_string
);
2114 XFreeStringList (missing_list
);
2115 xfree (fontsetname
);
2118 if (FRAME_XIC_BASE_FONTNAME (f
))
2119 xfree (FRAME_XIC_BASE_FONTNAME (f
));
2120 FRAME_XIC_BASE_FONTNAME (f
) = xstrdup (base_fontname
);
2122 /* No need to free def_string. */
2126 /* Free the X fontset of frame F if it is the last frame using it. */
2129 xic_free_xfontset (f
)
2132 Lisp_Object rest
, frame
;
2135 if (!FRAME_XIC_FONTSET (f
))
2138 /* See if there is another frame sharing the same fontset. */
2139 FOR_EACH_FRAME (rest
, frame
)
2141 struct frame
*cf
= XFRAME (frame
);
2142 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
2143 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
2144 && FRAME_XIC_FONTSET (cf
) == FRAME_XIC_FONTSET (f
))
2152 /* The fontset is not used anymore. It is safe to free it. */
2153 XFreeFontSet (FRAME_X_DISPLAY (f
), FRAME_XIC_FONTSET (f
));
2155 if (FRAME_XIC_BASE_FONTNAME (f
))
2156 xfree (FRAME_XIC_BASE_FONTNAME (f
));
2157 FRAME_XIC_BASE_FONTNAME (f
) = NULL
;
2158 FRAME_XIC_FONTSET (f
) = NULL
;
2162 /* Value is the best input style, given user preferences USER (already
2163 checked to be supported by Emacs), and styles supported by the
2164 input method XIM. */
2167 best_xim_style (user
, xim
)
2173 for (i
= 0; i
< user
->count_styles
; ++i
)
2174 for (j
= 0; j
< xim
->count_styles
; ++j
)
2175 if (user
->supported_styles
[i
] == xim
->supported_styles
[j
])
2176 return user
->supported_styles
[i
];
2178 /* Return the default style. */
2179 return XIMPreeditNothing
| XIMStatusNothing
;
2182 /* Create XIC for frame F. */
2184 static XIMStyle xic_style
;
2187 create_frame_xic (f
)
2192 XFontSet xfs
= NULL
;
2197 /* Create X fontset. */
2198 xfs
= xic_create_xfontset
2199 (f
, (FRAME_FONTSET (f
) < 0) ? NULL
2200 : (char *) SDATA (fontset_ascii (FRAME_FONTSET (f
))));
2202 xim
= FRAME_X_XIM (f
);
2207 XVaNestedList preedit_attr
;
2208 XVaNestedList status_attr
;
2210 s_area
.x
= 0; s_area
.y
= 0; s_area
.width
= 1; s_area
.height
= 1;
2211 spot
.x
= 0; spot
.y
= 1;
2213 /* Determine XIC style. */
2216 XIMStyles supported_list
;
2217 supported_list
.count_styles
= (sizeof supported_xim_styles
2218 / sizeof supported_xim_styles
[0]);
2219 supported_list
.supported_styles
= supported_xim_styles
;
2220 xic_style
= best_xim_style (&supported_list
,
2221 FRAME_X_XIM_STYLES (f
));
2224 preedit_attr
= XVaCreateNestedList (0,
2227 FRAME_FOREGROUND_PIXEL (f
),
2229 FRAME_BACKGROUND_PIXEL (f
),
2230 (xic_style
& XIMPreeditPosition
2235 status_attr
= XVaCreateNestedList (0,
2241 FRAME_FOREGROUND_PIXEL (f
),
2243 FRAME_BACKGROUND_PIXEL (f
),
2246 xic
= XCreateIC (xim
,
2247 XNInputStyle
, xic_style
,
2248 XNClientWindow
, FRAME_X_WINDOW (f
),
2249 XNFocusWindow
, FRAME_X_WINDOW (f
),
2250 XNStatusAttributes
, status_attr
,
2251 XNPreeditAttributes
, preedit_attr
,
2253 XFree (preedit_attr
);
2254 XFree (status_attr
);
2257 FRAME_XIC (f
) = xic
;
2258 FRAME_XIC_STYLE (f
) = xic_style
;
2259 FRAME_XIC_FONTSET (f
) = xfs
;
2263 /* Destroy XIC and free XIC fontset of frame F, if any. */
2269 if (FRAME_XIC (f
) == NULL
)
2272 XDestroyIC (FRAME_XIC (f
));
2273 xic_free_xfontset (f
);
2275 FRAME_XIC (f
) = NULL
;
2279 /* Place preedit area for XIC of window W's frame to specified
2280 pixel position X/Y. X and Y are relative to window W. */
2283 xic_set_preeditarea (w
, x
, y
)
2287 struct frame
*f
= XFRAME (w
->frame
);
2291 spot
.x
= WINDOW_TO_FRAME_PIXEL_X (w
, x
) + WINDOW_LEFT_FRINGE_WIDTH (w
);
2292 spot
.y
= WINDOW_TO_FRAME_PIXEL_Y (w
, y
) + FONT_BASE (FRAME_FONT (f
));
2293 attr
= XVaCreateNestedList (0, XNSpotLocation
, &spot
, NULL
);
2294 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2299 /* Place status area for XIC in bottom right corner of frame F.. */
2302 xic_set_statusarea (f
)
2305 XIC xic
= FRAME_XIC (f
);
2310 /* Negotiate geometry of status area. If input method has existing
2311 status area, use its current size. */
2312 area
.x
= area
.y
= area
.width
= area
.height
= 0;
2313 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &area
, NULL
);
2314 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2317 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &needed
, NULL
);
2318 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2321 if (needed
->width
== 0) /* Use XNArea instead of XNAreaNeeded */
2323 attr
= XVaCreateNestedList (0, XNArea
, &needed
, NULL
);
2324 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2328 area
.width
= needed
->width
;
2329 area
.height
= needed
->height
;
2330 area
.x
= FRAME_PIXEL_WIDTH (f
) - area
.width
- FRAME_INTERNAL_BORDER_WIDTH (f
);
2331 area
.y
= (FRAME_PIXEL_HEIGHT (f
) - area
.height
2332 - FRAME_MENUBAR_HEIGHT (f
)
2333 - FRAME_TOOLBAR_HEIGHT (f
)
2334 - FRAME_INTERNAL_BORDER_WIDTH (f
));
2337 attr
= XVaCreateNestedList (0, XNArea
, &area
, NULL
);
2338 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2343 /* Set X fontset for XIC of frame F, using base font name
2344 BASE_FONTNAME. Called when a new Emacs fontset is chosen. */
2347 xic_set_xfontset (f
, base_fontname
)
2349 char *base_fontname
;
2354 xic_free_xfontset (f
);
2356 xfs
= xic_create_xfontset (f
, base_fontname
);
2358 attr
= XVaCreateNestedList (0, XNFontSet
, xfs
, NULL
);
2359 if (FRAME_XIC_STYLE (f
) & XIMPreeditPosition
)
2360 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2361 if (FRAME_XIC_STYLE (f
) & XIMStatusArea
)
2362 XSetICValues (FRAME_XIC (f
), XNStatusAttributes
, attr
, NULL
);
2365 FRAME_XIC_FONTSET (f
) = xfs
;
2368 #endif /* HAVE_X_I18N */
2372 #ifdef USE_X_TOOLKIT
2374 /* Create and set up the X widget for frame F. */
2377 x_window (f
, window_prompting
, minibuffer_only
)
2379 long window_prompting
;
2380 int minibuffer_only
;
2382 XClassHint class_hints
;
2383 XSetWindowAttributes attributes
;
2384 unsigned long attribute_mask
;
2385 Widget shell_widget
;
2387 Widget frame_widget
;
2393 /* Use the resource name as the top-level widget name
2394 for looking up resources. Make a non-Lisp copy
2395 for the window manager, so GC relocation won't bother it.
2397 Elsewhere we specify the window name for the window manager. */
2400 char *str
= (char *) SDATA (Vx_resource_name
);
2401 f
->namebuf
= (char *) xmalloc (strlen (str
) + 1);
2402 strcpy (f
->namebuf
, str
);
2406 XtSetArg (al
[ac
], XtNallowShellResize
, 1); ac
++;
2407 XtSetArg (al
[ac
], XtNinput
, 1); ac
++;
2408 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2409 XtSetArg (al
[ac
], XtNborderWidth
, f
->border_width
); ac
++;
2410 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2411 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2412 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2413 shell_widget
= XtAppCreateShell (f
->namebuf
, EMACS_CLASS
,
2414 applicationShellWidgetClass
,
2415 FRAME_X_DISPLAY (f
), al
, ac
);
2417 f
->output_data
.x
->widget
= shell_widget
;
2418 /* maybe_set_screen_title_format (shell_widget); */
2420 pane_widget
= lw_create_widget ("main", "pane", widget_id_tick
++,
2421 (widget_value
*) NULL
,
2422 shell_widget
, False
,
2426 (lw_callback
) NULL
);
2429 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2430 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2431 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2432 XtSetValues (pane_widget
, al
, ac
);
2433 f
->output_data
.x
->column_widget
= pane_widget
;
2435 /* mappedWhenManaged to false tells to the paned window to not map/unmap
2436 the emacs screen when changing menubar. This reduces flickering. */
2439 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2440 XtSetArg (al
[ac
], XtNshowGrip
, 0); ac
++;
2441 XtSetArg (al
[ac
], XtNallowResize
, 1); ac
++;
2442 XtSetArg (al
[ac
], XtNresizeToPreferred
, 1); ac
++;
2443 XtSetArg (al
[ac
], XtNemacsFrame
, f
); ac
++;
2444 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2445 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2446 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2447 frame_widget
= XtCreateWidget (f
->namebuf
, emacsFrameClass
, pane_widget
,
2450 f
->output_data
.x
->edit_widget
= frame_widget
;
2452 XtManageChild (frame_widget
);
2454 /* Do some needed geometry management. */
2457 char *tem
, shell_position
[32];
2460 int extra_borders
= 0;
2462 = (f
->output_data
.x
->menubar_widget
2463 ? (f
->output_data
.x
->menubar_widget
->core
.height
2464 + f
->output_data
.x
->menubar_widget
->core
.border_width
)
2467 #if 0 /* Experimentally, we now get the right results
2468 for -geometry -0-0 without this. 24 Aug 96, rms. */
2469 if (FRAME_EXTERNAL_MENU_BAR (f
))
2472 XtVaGetValues (pane_widget
, XtNinternalBorderWidth
, &ibw
, NULL
);
2473 menubar_size
+= ibw
;
2477 f
->output_data
.x
->menubar_height
= menubar_size
;
2480 /* Motif seems to need this amount added to the sizes
2481 specified for the shell widget. The Athena/Lucid widgets don't.
2482 Both conclusions reached experimentally. -- rms. */
2483 XtVaGetValues (f
->output_data
.x
->edit_widget
, XtNinternalBorderWidth
,
2484 &extra_borders
, NULL
);
2488 /* Convert our geometry parameters into a geometry string
2490 Note that we do not specify here whether the position
2491 is a user-specified or program-specified one.
2492 We pass that information later, in x_wm_set_size_hints. */
2494 int left
= f
->left_pos
;
2495 int xneg
= window_prompting
& XNegative
;
2496 int top
= f
->top_pos
;
2497 int yneg
= window_prompting
& YNegative
;
2503 if (window_prompting
& USPosition
)
2504 sprintf (shell_position
, "=%dx%d%c%d%c%d",
2505 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2506 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
,
2507 (xneg
? '-' : '+'), left
,
2508 (yneg
? '-' : '+'), top
);
2511 sprintf (shell_position
, "=%dx%d",
2512 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2513 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
);
2515 /* Setting x and y when the position is not specified in
2516 the geometry string will set program position in the WM hints.
2517 If Emacs had just one program position, we could set it in
2518 fallback resources, but since each make-frame call can specify
2519 different program positions, this is easier. */
2520 XtSetArg (al
[ac
], XtNx
, left
); ac
++;
2521 XtSetArg (al
[ac
], XtNy
, top
); ac
++;
2525 len
= strlen (shell_position
) + 1;
2526 /* We don't free this because we don't know whether
2527 it is safe to free it while the frame exists.
2528 It isn't worth the trouble of arranging to free it
2529 when the frame is deleted. */
2530 tem
= (char *) xmalloc (len
);
2531 strncpy (tem
, shell_position
, len
);
2532 XtSetArg (al
[ac
], XtNgeometry
, tem
); ac
++;
2533 XtSetValues (shell_widget
, al
, ac
);
2536 XtManageChild (pane_widget
);
2537 XtRealizeWidget (shell_widget
);
2539 FRAME_X_WINDOW (f
) = XtWindow (frame_widget
);
2541 validate_x_resource_name ();
2543 class_hints
.res_name
= (char *) SDATA (Vx_resource_name
);
2544 class_hints
.res_class
= (char *) SDATA (Vx_resource_class
);
2545 XSetClassHint (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
), &class_hints
);
2548 FRAME_XIC (f
) = NULL
;
2550 create_frame_xic (f
);
2553 f
->output_data
.x
->wm_hints
.input
= True
;
2554 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2555 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2556 &f
->output_data
.x
->wm_hints
);
2558 hack_wm_protocols (f
, shell_widget
);
2561 XtAddEventHandler (shell_widget
, 0, True
, _XEditResCheckMessages
, 0);
2564 /* Do a stupid property change to force the server to generate a
2565 PropertyNotify event so that the event_stream server timestamp will
2566 be initialized to something relevant to the time we created the window.
2568 XChangeProperty (XtDisplay (frame_widget
), XtWindow (frame_widget
),
2569 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
2570 XA_ATOM
, 32, PropModeAppend
,
2571 (unsigned char*) NULL
, 0);
2573 /* Make all the standard events reach the Emacs frame. */
2574 attributes
.event_mask
= STANDARD_EVENT_SET
;
2579 /* XIM server might require some X events. */
2580 unsigned long fevent
= NoEventMask
;
2581 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2582 attributes
.event_mask
|= fevent
;
2584 #endif /* HAVE_X_I18N */
2586 attribute_mask
= CWEventMask
;
2587 XChangeWindowAttributes (XtDisplay (shell_widget
), XtWindow (shell_widget
),
2588 attribute_mask
, &attributes
);
2590 XtMapWidget (frame_widget
);
2592 /* x_set_name normally ignores requests to set the name if the
2593 requested name is the same as the current name. This is the one
2594 place where that assumption isn't correct; f->name is set, but
2595 the X server hasn't been told. */
2598 int explicit = f
->explicit_name
;
2600 f
->explicit_name
= 0;
2603 x_set_name (f
, name
, explicit);
2606 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2607 f
->output_data
.x
->text_cursor
);
2611 /* This is a no-op, except under Motif. Make sure main areas are
2612 set to something reasonable, in case we get an error later. */
2613 lw_set_main_areas (pane_widget
, 0, frame_widget
);
2616 #else /* not USE_X_TOOLKIT */
2622 if (! xg_create_frame_widgets (f
))
2623 error ("Unable to create window");
2626 FRAME_XIC (f
) = NULL
;
2630 create_frame_xic (f
);
2633 /* XIM server might require some X events. */
2634 unsigned long fevent
= NoEventMask
;
2635 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2637 if (fevent
!= NoEventMask
)
2639 XSetWindowAttributes attributes
;
2640 XWindowAttributes wattr
;
2641 unsigned long attribute_mask
;
2643 XGetWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2645 attributes
.event_mask
= wattr
.your_event_mask
| fevent
;
2646 attribute_mask
= CWEventMask
;
2647 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2648 attribute_mask
, &attributes
);
2656 #else /*! USE_GTK */
2657 /* Create and set up the X window for frame F. */
2664 XClassHint class_hints
;
2665 XSetWindowAttributes attributes
;
2666 unsigned long attribute_mask
;
2668 attributes
.background_pixel
= f
->output_data
.x
->background_pixel
;
2669 attributes
.border_pixel
= f
->output_data
.x
->border_pixel
;
2670 attributes
.bit_gravity
= StaticGravity
;
2671 attributes
.backing_store
= NotUseful
;
2672 attributes
.save_under
= True
;
2673 attributes
.event_mask
= STANDARD_EVENT_SET
;
2674 attributes
.colormap
= FRAME_X_COLORMAP (f
);
2675 attribute_mask
= (CWBackPixel
| CWBorderPixel
| CWBitGravity
| CWEventMask
2680 = XCreateWindow (FRAME_X_DISPLAY (f
),
2681 f
->output_data
.x
->parent_desc
,
2684 FRAME_PIXEL_WIDTH (f
), FRAME_PIXEL_HEIGHT (f
),
2686 CopyFromParent
, /* depth */
2687 InputOutput
, /* class */
2689 attribute_mask
, &attributes
);
2694 create_frame_xic (f
);
2697 /* XIM server might require some X events. */
2698 unsigned long fevent
= NoEventMask
;
2699 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2700 attributes
.event_mask
|= fevent
;
2701 attribute_mask
= CWEventMask
;
2702 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2703 attribute_mask
, &attributes
);
2706 #endif /* HAVE_X_I18N */
2708 validate_x_resource_name ();
2710 class_hints
.res_name
= (char *) SDATA (Vx_resource_name
);
2711 class_hints
.res_class
= (char *) SDATA (Vx_resource_class
);
2712 XSetClassHint (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), &class_hints
);
2714 /* The menubar is part of the ordinary display;
2715 it does not count in addition to the height of the window. */
2716 f
->output_data
.x
->menubar_height
= 0;
2718 /* This indicates that we use the "Passive Input" input model.
2719 Unless we do this, we don't get the Focus{In,Out} events that we
2720 need to draw the cursor correctly. Accursed bureaucrats.
2721 XWhipsAndChains (FRAME_X_DISPLAY (f), IronMaiden, &TheRack); */
2723 f
->output_data
.x
->wm_hints
.input
= True
;
2724 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2725 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2726 &f
->output_data
.x
->wm_hints
);
2727 f
->output_data
.x
->wm_hints
.icon_pixmap
= None
;
2729 /* Request "save yourself" and "delete window" commands from wm. */
2732 protocols
[0] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
2733 protocols
[1] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
2734 XSetWMProtocols (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), protocols
, 2);
2737 /* x_set_name normally ignores requests to set the name if the
2738 requested name is the same as the current name. This is the one
2739 place where that assumption isn't correct; f->name is set, but
2740 the X server hasn't been told. */
2743 int explicit = f
->explicit_name
;
2745 f
->explicit_name
= 0;
2748 x_set_name (f
, name
, explicit);
2751 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2752 f
->output_data
.x
->text_cursor
);
2756 if (FRAME_X_WINDOW (f
) == 0)
2757 error ("Unable to create window");
2760 #endif /* not USE_GTK */
2761 #endif /* not USE_X_TOOLKIT */
2763 /* Verify that the icon position args for this window are valid. */
2766 x_icon_verify (f
, parms
)
2770 Lisp_Object icon_x
, icon_y
;
2772 /* Set the position of the icon. Note that twm groups all
2773 icons in an icon window. */
2774 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2775 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2776 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2778 CHECK_NUMBER (icon_x
);
2779 CHECK_NUMBER (icon_y
);
2781 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2782 error ("Both left and top icon corners of icon must be specified");
2785 /* Handle the icon stuff for this window. Perhaps later we might
2786 want an x_set_icon_position which can be called interactively as
2794 Lisp_Object icon_x
, icon_y
;
2795 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2797 /* Set the position of the icon. Note that twm groups all
2798 icons in an icon window. */
2799 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2800 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2801 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2803 CHECK_NUMBER (icon_x
);
2804 CHECK_NUMBER (icon_y
);
2806 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2807 error ("Both left and top icon corners of icon must be specified");
2811 if (! EQ (icon_x
, Qunbound
))
2812 x_wm_set_icon_position (f
, XINT (icon_x
), XINT (icon_y
));
2814 /* Start up iconic or window? */
2815 x_wm_set_window_state
2816 (f
, (EQ (x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0, RES_TYPE_SYMBOL
),
2821 x_text_icon (f
, (char *) SDATA ((!NILP (f
->icon_name
)
2828 /* Make the GCs needed for this window, setting the
2829 background, border and mouse colors; also create the
2830 mouse cursor and the gray border tile. */
2832 static char cursor_bits
[] =
2834 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
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
2844 XGCValues gc_values
;
2848 /* Create the GCs of this frame.
2849 Note that many default values are used. */
2852 gc_values
.font
= FRAME_FONT (f
)->fid
;
2853 gc_values
.foreground
= f
->output_data
.x
->foreground_pixel
;
2854 gc_values
.background
= f
->output_data
.x
->background_pixel
;
2855 gc_values
.line_width
= 0; /* Means 1 using fast algorithm. */
2856 f
->output_data
.x
->normal_gc
2857 = XCreateGC (FRAME_X_DISPLAY (f
),
2859 GCLineWidth
| GCFont
| GCForeground
| GCBackground
,
2862 /* Reverse video style. */
2863 gc_values
.foreground
= f
->output_data
.x
->background_pixel
;
2864 gc_values
.background
= f
->output_data
.x
->foreground_pixel
;
2865 f
->output_data
.x
->reverse_gc
2866 = XCreateGC (FRAME_X_DISPLAY (f
),
2868 GCFont
| GCForeground
| GCBackground
| GCLineWidth
,
2871 /* Cursor has cursor-color background, background-color foreground. */
2872 gc_values
.foreground
= f
->output_data
.x
->background_pixel
;
2873 gc_values
.background
= f
->output_data
.x
->cursor_pixel
;
2874 gc_values
.fill_style
= FillOpaqueStippled
;
2876 = XCreateBitmapFromData (FRAME_X_DISPLAY (f
),
2877 FRAME_X_DISPLAY_INFO (f
)->root_window
,
2878 cursor_bits
, 16, 16);
2879 f
->output_data
.x
->cursor_gc
2880 = XCreateGC (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2881 (GCFont
| GCForeground
| GCBackground
2882 | GCFillStyle
/* | GCStipple */ | GCLineWidth
),
2886 f
->output_data
.x
->white_relief
.gc
= 0;
2887 f
->output_data
.x
->black_relief
.gc
= 0;
2889 /* Create the gray border tile used when the pointer is not in
2890 the frame. Since this depends on the frame's pixel values,
2891 this must be done on a per-frame basis. */
2892 f
->output_data
.x
->border_tile
2893 = (XCreatePixmapFromBitmapData
2894 (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
2895 gray_bits
, gray_width
, gray_height
,
2896 f
->output_data
.x
->foreground_pixel
,
2897 f
->output_data
.x
->background_pixel
,
2898 DefaultDepth (FRAME_X_DISPLAY (f
), FRAME_X_SCREEN_NUMBER (f
))));
2904 /* Free what was was allocated in x_make_gc. */
2910 Display
*dpy
= FRAME_X_DISPLAY (f
);
2914 if (f
->output_data
.x
->normal_gc
)
2916 XFreeGC (dpy
, f
->output_data
.x
->normal_gc
);
2917 f
->output_data
.x
->normal_gc
= 0;
2920 if (f
->output_data
.x
->reverse_gc
)
2922 XFreeGC (dpy
, f
->output_data
.x
->reverse_gc
);
2923 f
->output_data
.x
->reverse_gc
= 0;
2926 if (f
->output_data
.x
->cursor_gc
)
2928 XFreeGC (dpy
, f
->output_data
.x
->cursor_gc
);
2929 f
->output_data
.x
->cursor_gc
= 0;
2932 if (f
->output_data
.x
->border_tile
)
2934 XFreePixmap (dpy
, f
->output_data
.x
->border_tile
);
2935 f
->output_data
.x
->border_tile
= 0;
2942 /* Handler for signals raised during x_create_frame and
2943 x_create_top_frame. FRAME is the frame which is partially
2947 unwind_create_frame (frame
)
2950 struct frame
*f
= XFRAME (frame
);
2952 /* If frame is already dead, nothing to do. This can happen if the
2953 display is disconnected after the frame has become official, but
2954 before x_create_frame removes the unwind protect. */
2955 if (!FRAME_LIVE_P (f
))
2958 /* If frame is ``official'', nothing to do. */
2959 if (!CONSP (Vframe_list
) || !EQ (XCAR (Vframe_list
), frame
))
2962 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2965 x_free_frame_resources (f
);
2968 /* Check that reference counts are indeed correct. */
2969 xassert (dpyinfo
->reference_count
== dpyinfo_refcount
);
2970 xassert (dpyinfo
->image_cache
->refcount
== image_cache_refcount
);
2979 DEFUN ("x-create-frame", Fx_create_frame
, Sx_create_frame
,
2981 doc
: /* Make a new X window, which is called a "frame" in Emacs terms.
2982 Returns an Emacs frame object.
2983 ALIST is an alist of frame parameters.
2984 If the parameters specify that the frame should not have a minibuffer,
2985 and do not specify a specific minibuffer window to use,
2986 then `default-minibuffer-frame' must be a frame whose minibuffer can
2987 be shared by the new frame.
2989 This function is an internal primitive--use `make-frame' instead. */)
2994 Lisp_Object frame
, tem
;
2996 int minibuffer_only
= 0;
2997 long window_prompting
= 0;
2999 int count
= SPECPDL_INDEX ();
3000 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
3001 Lisp_Object display
;
3002 struct x_display_info
*dpyinfo
= NULL
;
3006 /* Use this general default value to start with
3007 until we know if this frame has a specified name. */
3008 Vx_resource_name
= Vinvocation_name
;
3010 display
= x_get_arg (dpyinfo
, parms
, Qdisplay_id
, 0, 0, RES_TYPE_NUMBER
);
3011 if (EQ (display
, Qunbound
))
3012 display
= x_get_arg (dpyinfo
, parms
, Qdisplay
, 0, 0, RES_TYPE_STRING
);
3013 if (EQ (display
, Qunbound
))
3015 dpyinfo
= check_x_display_info (display
);
3017 kb
= dpyinfo
->kboard
;
3019 kb
= &the_only_kboard
;
3022 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
3024 && ! EQ (name
, Qunbound
)
3026 error ("Invalid frame name--not a string or nil");
3029 Vx_resource_name
= name
;
3031 /* See if parent window is specified. */
3032 parent
= x_get_arg (dpyinfo
, parms
, Qparent_id
, NULL
, NULL
, RES_TYPE_NUMBER
);
3033 if (EQ (parent
, Qunbound
))
3035 if (! NILP (parent
))
3036 CHECK_NUMBER (parent
);
3038 /* make_frame_without_minibuffer can run Lisp code and garbage collect. */
3039 /* No need to protect DISPLAY because that's not used after passing
3040 it to make_frame_without_minibuffer. */
3042 GCPRO4 (parms
, parent
, name
, frame
);
3043 tem
= x_get_arg (dpyinfo
, parms
, Qminibuffer
, "minibuffer", "Minibuffer",
3045 if (EQ (tem
, Qnone
) || NILP (tem
))
3046 f
= make_frame_without_minibuffer (Qnil
, kb
, display
);
3047 else if (EQ (tem
, Qonly
))
3049 f
= make_minibuffer_frame ();
3050 minibuffer_only
= 1;
3052 else if (WINDOWP (tem
))
3053 f
= make_frame_without_minibuffer (tem
, kb
, display
);
3057 XSETFRAME (frame
, f
);
3059 /* Note that X Windows does support scroll bars. */
3060 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 1;
3062 f
->display
= dpyinfo
->frame_display
;
3063 f
->display
->reference_count
++;
3065 f
->output_method
= output_x_window
;
3066 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
3067 bzero (f
->output_data
.x
, sizeof (struct x_output
));
3068 f
->output_data
.x
->icon_bitmap
= -1;
3069 FRAME_FONTSET (f
) = -1;
3070 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
3071 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
3072 #ifdef USE_TOOLKIT_SCROLL_BARS
3073 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
3074 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
3075 #endif /* USE_TOOLKIT_SCROLL_BARS */
3076 record_unwind_protect (unwind_create_frame
, frame
);
3079 = x_get_arg (dpyinfo
, parms
, Qicon_name
, "iconName", "Title",
3081 if (! STRINGP (f
->icon_name
))
3082 f
->icon_name
= Qnil
;
3084 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
3086 image_cache_refcount
= FRAME_X_IMAGE_CACHE (f
)->refcount
;
3087 dpyinfo_refcount
= dpyinfo
->reference_count
;
3088 #endif /* GLYPH_DEBUG */
3090 FRAME_KBOARD (f
) = kb
;
3093 /* These colors will be set anyway later, but it's important
3094 to get the color reference counts right, so initialize them! */
3097 struct gcpro gcpro1
;
3099 /* Function x_decode_color can signal an error. Make
3100 sure to initialize color slots so that we won't try
3101 to free colors we haven't allocated. */
3102 f
->output_data
.x
->foreground_pixel
= -1;
3103 f
->output_data
.x
->background_pixel
= -1;
3104 f
->output_data
.x
->cursor_pixel
= -1;
3105 f
->output_data
.x
->cursor_foreground_pixel
= -1;
3106 f
->output_data
.x
->border_pixel
= -1;
3107 f
->output_data
.x
->mouse_pixel
= -1;
3109 black
= build_string ("black");
3111 f
->output_data
.x
->foreground_pixel
3112 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3113 f
->output_data
.x
->background_pixel
3114 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3115 f
->output_data
.x
->cursor_pixel
3116 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3117 f
->output_data
.x
->cursor_foreground_pixel
3118 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3119 f
->output_data
.x
->border_pixel
3120 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3121 f
->output_data
.x
->mouse_pixel
3122 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3126 /* Specify the parent under which to make this X window. */
3130 f
->output_data
.x
->parent_desc
= (Window
) XFASTINT (parent
);
3131 f
->output_data
.x
->explicit_parent
= 1;
3135 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
3136 f
->output_data
.x
->explicit_parent
= 0;
3139 /* Set the name; the functions to which we pass f expect the name to
3141 if (EQ (name
, Qunbound
) || NILP (name
))
3143 f
->name
= build_string (dpyinfo
->x_id_name
);
3144 f
->explicit_name
= 0;
3149 f
->explicit_name
= 1;
3150 /* use the frame's title when getting resources for this frame. */
3151 specbind (Qx_resource_name
, name
);
3154 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qwindow_system
, Qx
), Qnil
));
3156 /* Extract the window parameters from the supplied values
3157 that are needed to determine window geometry. */
3161 font
= x_get_arg (dpyinfo
, parms
, Qfont
, "font", "Font", RES_TYPE_STRING
);
3164 /* First, try whatever font the caller has specified. */
3167 tem
= Fquery_fontset (font
, Qnil
);
3169 font
= x_new_fontset (f
, SDATA (tem
));
3171 font
= x_new_font (f
, SDATA (font
));
3174 /* Try out a font which we hope has bold and italic variations. */
3175 if (!STRINGP (font
))
3176 font
= x_new_font (f
, "-adobe-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-1");
3177 if (!STRINGP (font
))
3178 font
= x_new_font (f
, "-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-1");
3179 if (! STRINGP (font
))
3180 font
= x_new_font (f
, "-*-*-medium-r-normal-*-*-140-*-*-c-*-iso8859-1");
3181 if (! STRINGP (font
))
3182 /* This was formerly the first thing tried, but it finds too many fonts
3183 and takes too long. */
3184 font
= x_new_font (f
, "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1");
3185 /* If those didn't work, look for something which will at least work. */
3186 if (! STRINGP (font
))
3187 font
= x_new_font (f
, "-*-fixed-*-*-*-*-*-140-*-*-c-*-iso8859-1");
3189 if (! STRINGP (font
))
3190 font
= build_string ("fixed");
3192 x_default_parameter (f
, parms
, Qfont
, font
,
3193 "font", "Font", RES_TYPE_STRING
);
3197 /* Prevent lwlib/xlwmenu.c from crashing because of a bug
3198 whereby it fails to get any font. */
3199 xlwmenu_default_font
= FRAME_FONT (f
);
3202 x_default_parameter (f
, parms
, Qborder_width
, make_number (2),
3203 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
3205 /* This defaults to 1 in order to match xterm. We recognize either
3206 internalBorderWidth or internalBorder (which is what xterm calls
3208 if (NILP (Fassq (Qinternal_border_width
, parms
)))
3212 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
3213 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
3214 if (! EQ (value
, Qunbound
))
3215 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
3218 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
3219 "internalBorderWidth", "internalBorderWidth",
3221 x_default_parameter (f
, parms
, Qvertical_scroll_bars
, Qleft
,
3222 "verticalScrollBars", "ScrollBars",
3225 /* Also do the stuff which must be set before the window exists. */
3226 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
3227 "foreground", "Foreground", RES_TYPE_STRING
);
3228 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
3229 "background", "Background", RES_TYPE_STRING
);
3230 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
3231 "pointerColor", "Foreground", RES_TYPE_STRING
);
3232 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
3233 "cursorColor", "Foreground", RES_TYPE_STRING
);
3234 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
3235 "borderColor", "BorderColor", RES_TYPE_STRING
);
3236 x_default_parameter (f
, parms
, Qscreen_gamma
, Qnil
,
3237 "screenGamma", "ScreenGamma", RES_TYPE_FLOAT
);
3238 x_default_parameter (f
, parms
, Qline_spacing
, Qnil
,
3239 "lineSpacing", "LineSpacing", RES_TYPE_NUMBER
);
3240 x_default_parameter (f
, parms
, Qleft_fringe
, Qnil
,
3241 "leftFringe", "LeftFringe", RES_TYPE_NUMBER
);
3242 x_default_parameter (f
, parms
, Qright_fringe
, Qnil
,
3243 "rightFringe", "RightFringe", RES_TYPE_NUMBER
);
3245 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_foreground
,
3246 "scrollBarForeground",
3247 "ScrollBarForeground", 1);
3248 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_background
,
3249 "scrollBarBackground",
3250 "ScrollBarBackground", 0);
3252 /* Init faces before x_default_parameter is called for scroll-bar
3253 parameters because that function calls x_set_scroll_bar_width,
3254 which calls change_frame_size, which calls Fset_window_buffer,
3255 which runs hooks, which call Fvertical_motion. At the end, we
3256 end up in init_iterator with a null face cache, which should not
3258 init_frame_faces (f
);
3260 x_default_parameter (f
, parms
, Qmenu_bar_lines
, make_number (1),
3261 "menuBar", "MenuBar", RES_TYPE_NUMBER
);
3262 x_default_parameter (f
, parms
, Qtool_bar_lines
, make_number (1),
3263 "toolBar", "ToolBar", RES_TYPE_NUMBER
);
3264 x_default_parameter (f
, parms
, Qbuffer_predicate
, Qnil
,
3265 "bufferPredicate", "BufferPredicate",
3267 x_default_parameter (f
, parms
, Qtitle
, Qnil
,
3268 "title", "Title", RES_TYPE_STRING
);
3269 x_default_parameter (f
, parms
, Qwait_for_wm
, Qt
,
3270 "waitForWM", "WaitForWM", RES_TYPE_BOOLEAN
);
3271 x_default_parameter (f
, parms
, Qfullscreen
, Qnil
,
3272 "fullscreen", "Fullscreen", RES_TYPE_SYMBOL
);
3274 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
3276 /* Compute the size of the X window. */
3277 window_prompting
= x_figure_window_size (f
, parms
, 1);
3279 tem
= x_get_arg (dpyinfo
, parms
, Qunsplittable
, 0, 0, RES_TYPE_BOOLEAN
);
3280 f
->no_split
= minibuffer_only
|| EQ (tem
, Qt
);
3282 x_icon_verify (f
, parms
);
3284 /* Create the X widget or window. */
3285 #ifdef USE_X_TOOLKIT
3286 x_window (f
, window_prompting
, minibuffer_only
);
3294 /* Now consider the frame official. */
3295 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
3296 Vframe_list
= Fcons (frame
, Vframe_list
);
3298 /* We need to do this after creating the X window, so that the
3299 icon-creation functions can say whose icon they're describing. */
3300 x_default_parameter (f
, parms
, Qicon_type
, Qnil
,
3301 "bitmapIcon", "BitmapIcon", RES_TYPE_SYMBOL
);
3303 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
3304 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3305 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
3306 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3307 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
3308 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
3309 x_default_parameter (f
, parms
, Qscroll_bar_width
, Qnil
,
3310 "scrollBarWidth", "ScrollBarWidth",
3313 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
3314 Change will not be effected unless different from the current
3316 width
= FRAME_COLS (f
);
3317 height
= FRAME_LINES (f
);
3319 SET_FRAME_COLS (f
, 0);
3320 FRAME_LINES (f
) = 0;
3321 change_frame_size (f
, height
, width
, 1, 0, 0);
3323 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
3324 /* Create the menu bar. */
3325 if (!minibuffer_only
&& FRAME_EXTERNAL_MENU_BAR (f
))
3327 /* If this signals an error, we haven't set size hints for the
3328 frame and we didn't make it visible. */
3329 initialize_frame_menubar (f
);
3332 /* This is a no-op, except under Motif where it arranges the
3333 main window for the widgets on it. */
3334 lw_set_main_areas (f
->output_data
.x
->column_widget
,
3335 f
->output_data
.x
->menubar_widget
,
3336 f
->output_data
.x
->edit_widget
);
3337 #endif /* not USE_GTK */
3339 #endif /* USE_X_TOOLKIT || USE_GTK */
3341 /* Tell the server what size and position, etc, we want, and how
3342 badly we want them. This should be done after we have the menu
3343 bar so that its size can be taken into account. */
3345 x_wm_set_size_hint (f
, window_prompting
, 0);
3348 /* Make the window appear on the frame and enable display, unless
3349 the caller says not to. However, with explicit parent, Emacs
3350 cannot control visibility, so don't try. */
3351 if (! f
->output_data
.x
->explicit_parent
)
3353 Lisp_Object visibility
;
3355 visibility
= x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0,
3357 if (EQ (visibility
, Qunbound
))
3360 if (EQ (visibility
, Qicon
))
3361 x_iconify_frame (f
);
3362 else if (! NILP (visibility
))
3363 x_make_frame_visible (f
);
3365 /* Must have been Qnil. */
3369 /* Set the WM leader property. GTK does this itself, so this is not
3370 needed when using GTK. */
3371 if (dpyinfo
->client_leader_window
!= 0)
3374 XChangeProperty (FRAME_X_DISPLAY (f
),
3375 FRAME_OUTER_WINDOW (f
),
3376 dpyinfo
->Xatom_wm_client_leader
,
3377 XA_WINDOW
, 32, PropModeReplace
,
3378 (char *) &dpyinfo
->client_leader_window
, 1);
3384 /* Make sure windows on this frame appear in calls to next-window
3385 and similar functions. */
3386 Vwindow_list
= Qnil
;
3388 return unbind_to (count
, frame
);
3392 /* FRAME is used only to get a handle on the X display. We don't pass the
3393 display info directly because we're called from frame.c, which doesn't
3394 know about that structure. */
3397 x_get_focus_frame (frame
)
3398 struct frame
*frame
;
3400 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (frame
);
3402 if (! dpyinfo
->x_focus_frame
)
3405 XSETFRAME (xfocus
, dpyinfo
->x_focus_frame
);
3410 /* In certain situations, when the window manager follows a
3411 click-to-focus policy, there seems to be no way around calling
3412 XSetInputFocus to give another frame the input focus .
3414 In an ideal world, XSetInputFocus should generally be avoided so
3415 that applications don't interfere with the window manager's focus
3416 policy. But I think it's okay to use when it's clearly done
3417 following a user-command. */
3419 DEFUN ("x-focus-frame", Fx_focus_frame
, Sx_focus_frame
, 1, 1, 0,
3420 doc
: /* Set the input focus to FRAME.
3421 FRAME nil means use the selected frame. */)
3425 struct frame
*f
= check_x_frame (frame
);
3426 Display
*dpy
= FRAME_X_DISPLAY (f
);
3430 count
= x_catch_errors (dpy
);
3431 XSetInputFocus (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
3432 RevertToParent
, CurrentTime
);
3433 x_uncatch_errors (dpy
, count
);
3440 DEFUN ("xw-color-defined-p", Fxw_color_defined_p
, Sxw_color_defined_p
, 1, 2, 0,
3441 doc
: /* Internal function called by `color-defined-p', which see. */)
3443 Lisp_Object color
, frame
;
3446 FRAME_PTR f
= check_x_frame (frame
);
3448 CHECK_STRING (color
);
3450 if (x_defined_color (f
, SDATA (color
), &foo
, 0))
3456 DEFUN ("xw-color-values", Fxw_color_values
, Sxw_color_values
, 1, 2, 0,
3457 doc
: /* Internal function called by `color-values', which see. */)
3459 Lisp_Object color
, frame
;
3462 FRAME_PTR f
= check_x_frame (frame
);
3464 CHECK_STRING (color
);
3466 if (x_defined_color (f
, SDATA (color
), &foo
, 0))
3470 rgb
[0] = make_number (foo
.red
);
3471 rgb
[1] = make_number (foo
.green
);
3472 rgb
[2] = make_number (foo
.blue
);
3473 return Flist (3, rgb
);
3479 DEFUN ("xw-display-color-p", Fxw_display_color_p
, Sxw_display_color_p
, 0, 1, 0,
3480 doc
: /* Internal function called by `display-color-p', which see. */)
3482 Lisp_Object display
;
3484 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3486 if (dpyinfo
->n_planes
<= 2)
3489 switch (dpyinfo
->visual
->class)
3502 DEFUN ("x-display-grayscale-p", Fx_display_grayscale_p
, Sx_display_grayscale_p
,
3504 doc
: /* Return t if the X display supports shades of gray.
3505 Note that color displays do support shades of gray.
3506 The optional argument DISPLAY specifies which display to ask about.
3507 DISPLAY should be either a frame or a display name (a string).
3508 If omitted or nil, that stands for the selected frame's display. */)
3510 Lisp_Object display
;
3512 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3514 if (dpyinfo
->n_planes
<= 1)
3517 switch (dpyinfo
->visual
->class)
3532 DEFUN ("x-display-pixel-width", Fx_display_pixel_width
, Sx_display_pixel_width
,
3534 doc
: /* Returns the width in pixels of the X display DISPLAY.
3535 The optional argument DISPLAY specifies which display to ask about.
3536 DISPLAY should be either a frame or a display name (a string).
3537 If omitted or nil, that stands for the selected frame's display. */)
3539 Lisp_Object display
;
3541 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3543 return make_number (dpyinfo
->width
);
3546 DEFUN ("x-display-pixel-height", Fx_display_pixel_height
,
3547 Sx_display_pixel_height
, 0, 1, 0,
3548 doc
: /* Returns the height in pixels of the X display DISPLAY.
3549 The optional argument DISPLAY specifies which display to ask about.
3550 DISPLAY should be either a frame or a display name (a string).
3551 If omitted or nil, that stands for the selected frame's display. */)
3553 Lisp_Object display
;
3555 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3557 return make_number (dpyinfo
->height
);
3560 DEFUN ("x-display-planes", Fx_display_planes
, Sx_display_planes
,
3562 doc
: /* Returns the number of bitplanes of the X display DISPLAY.
3563 The optional argument DISPLAY specifies which display to ask about.
3564 DISPLAY should be either a frame or a display name (a string).
3565 If omitted or nil, that stands for the selected frame's display. */)
3567 Lisp_Object display
;
3569 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3571 return make_number (dpyinfo
->n_planes
);
3574 DEFUN ("x-display-color-cells", Fx_display_color_cells
, Sx_display_color_cells
,
3576 doc
: /* Returns the number of color cells of the X display DISPLAY.
3577 The optional argument DISPLAY specifies which display to ask about.
3578 DISPLAY should be either a frame or a display name (a string).
3579 If omitted or nil, that stands for the selected frame's display. */)
3581 Lisp_Object display
;
3583 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3585 int nr_planes
= DisplayPlanes (dpyinfo
->display
,
3586 XScreenNumberOfScreen (dpyinfo
->screen
));
3588 /* Truncate nr_planes to 24 to avoid integer overflow.
3589 Some displays says 32, but only 24 bits are actually significant.
3590 There are only very few and rare video cards that have more than
3591 24 significant bits. Also 24 bits is more than 16 million colors,
3592 it "should be enough for everyone". */
3593 if (nr_planes
> 24) nr_planes
= 24;
3595 return make_number (1 << nr_planes
);
3598 DEFUN ("x-server-max-request-size", Fx_server_max_request_size
,
3599 Sx_server_max_request_size
,
3601 doc
: /* Returns the maximum request size of the X server of display DISPLAY.
3602 The optional argument DISPLAY specifies which display to ask about.
3603 DISPLAY should be either a frame or a display name (a string).
3604 If omitted or nil, that stands for the selected frame's display. */)
3606 Lisp_Object display
;
3608 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3610 return make_number (MAXREQUEST (dpyinfo
->display
));
3613 DEFUN ("x-server-vendor", Fx_server_vendor
, Sx_server_vendor
, 0, 1, 0,
3614 doc
: /* Returns the "vendor ID" string of the X server of display DISPLAY.
3615 \(Labelling every distributor as a "vendor" embodies the false assumption
3616 that operating systems cannot be developed and distributed noncommercially.)
3617 The optional argument DISPLAY specifies which display to ask about.
3618 DISPLAY should be either a frame or a display name (a string).
3619 If omitted or nil, that stands for the selected frame's display. */)
3621 Lisp_Object display
;
3623 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3624 char *vendor
= ServerVendor (dpyinfo
->display
);
3626 if (! vendor
) vendor
= "";
3627 return build_string (vendor
);
3630 DEFUN ("x-server-version", Fx_server_version
, Sx_server_version
, 0, 1, 0,
3631 doc
: /* Returns the version numbers of the X server of display DISPLAY.
3632 The value is a list of three integers: the major and minor
3633 version numbers of the X Protocol in use, and the distributor-specific release
3634 number. See also the function `x-server-vendor'.
3636 The optional argument DISPLAY specifies which display to ask about.
3637 DISPLAY should be either a frame or a display name (a string).
3638 If omitted or nil, that stands for the selected frame's display. */)
3640 Lisp_Object display
;
3642 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3643 Display
*dpy
= dpyinfo
->display
;
3645 return Fcons (make_number (ProtocolVersion (dpy
)),
3646 Fcons (make_number (ProtocolRevision (dpy
)),
3647 Fcons (make_number (VendorRelease (dpy
)), Qnil
)));
3650 DEFUN ("x-display-screens", Fx_display_screens
, Sx_display_screens
, 0, 1, 0,
3651 doc
: /* Return the number of screens on the X server of display DISPLAY.
3652 The optional argument DISPLAY specifies which display to ask about.
3653 DISPLAY should be either a frame or a display name (a string).
3654 If omitted or nil, that stands for the selected frame's display. */)
3656 Lisp_Object display
;
3658 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3660 return make_number (ScreenCount (dpyinfo
->display
));
3663 DEFUN ("x-display-mm-height", Fx_display_mm_height
, Sx_display_mm_height
, 0, 1, 0,
3664 doc
: /* Return the height in millimeters of the X display DISPLAY.
3665 The optional argument DISPLAY specifies which display to ask about.
3666 DISPLAY should be either a frame or a display name (a string).
3667 If omitted or nil, that stands for the selected frame's display. */)
3669 Lisp_Object display
;
3671 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3673 return make_number (HeightMMOfScreen (dpyinfo
->screen
));
3676 DEFUN ("x-display-mm-width", Fx_display_mm_width
, Sx_display_mm_width
, 0, 1, 0,
3677 doc
: /* Return the width in millimeters of the X display DISPLAY.
3678 The optional argument DISPLAY specifies which display to ask about.
3679 DISPLAY should be either a frame or a display name (a string).
3680 If omitted or nil, that stands for the selected frame's display. */)
3682 Lisp_Object display
;
3684 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3686 return make_number (WidthMMOfScreen (dpyinfo
->screen
));
3689 DEFUN ("x-display-backing-store", Fx_display_backing_store
,
3690 Sx_display_backing_store
, 0, 1, 0,
3691 doc
: /* Returns an indication of whether X display DISPLAY does backing store.
3692 The value may be `always', `when-mapped', or `not-useful'.
3693 The optional argument DISPLAY specifies which display to ask about.
3694 DISPLAY should be either a frame or a display name (a string).
3695 If omitted or nil, that stands for the selected frame's display. */)
3697 Lisp_Object display
;
3699 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3702 switch (DoesBackingStore (dpyinfo
->screen
))
3705 result
= intern ("always");
3709 result
= intern ("when-mapped");
3713 result
= intern ("not-useful");
3717 error ("Strange value for BackingStore parameter of screen");
3724 DEFUN ("x-display-visual-class", Fx_display_visual_class
,
3725 Sx_display_visual_class
, 0, 1, 0,
3726 doc
: /* Return the visual class of the X display DISPLAY.
3727 The value is one of the symbols `static-gray', `gray-scale',
3728 `static-color', `pseudo-color', `true-color', or `direct-color'.
3730 The optional argument DISPLAY specifies which display to ask about.
3731 DISPLAY should be either a frame or a display name (a string).
3732 If omitted or nil, that stands for the selected frame's display. */)
3734 Lisp_Object display
;
3736 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3739 switch (dpyinfo
->visual
->class)
3742 result
= intern ("static-gray");
3745 result
= intern ("gray-scale");
3748 result
= intern ("static-color");
3751 result
= intern ("pseudo-color");
3754 result
= intern ("true-color");
3757 result
= intern ("direct-color");
3760 error ("Display has an unknown visual class");
3767 DEFUN ("x-display-save-under", Fx_display_save_under
,
3768 Sx_display_save_under
, 0, 1, 0,
3769 doc
: /* Returns t if the X display DISPLAY supports the save-under feature.
3770 The optional argument DISPLAY specifies which display to ask about.
3771 DISPLAY should be either a frame or a display name (a string).
3772 If omitted or nil, that stands for the selected frame's display. */)
3774 Lisp_Object display
;
3776 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3778 if (DoesSaveUnders (dpyinfo
->screen
) == True
)
3786 register struct frame
*f
;
3788 return FRAME_PIXEL_WIDTH (f
);
3793 register struct frame
*f
;
3795 return FRAME_PIXEL_HEIGHT (f
);
3800 register struct frame
*f
;
3802 return FRAME_COLUMN_WIDTH (f
);
3807 register struct frame
*f
;
3809 return FRAME_LINE_HEIGHT (f
);
3814 register struct frame
*f
;
3816 return FRAME_X_DISPLAY_INFO (f
)->n_planes
;
3821 /************************************************************************
3823 ************************************************************************/
3826 /* Mapping visual names to visuals. */
3828 static struct visual_class
3835 {"StaticGray", StaticGray
},
3836 {"GrayScale", GrayScale
},
3837 {"StaticColor", StaticColor
},
3838 {"PseudoColor", PseudoColor
},
3839 {"TrueColor", TrueColor
},
3840 {"DirectColor", DirectColor
},
3845 #ifndef HAVE_XSCREENNUMBEROFSCREEN
3847 /* Value is the screen number of screen SCR. This is a substitute for
3848 the X function with the same name when that doesn't exist. */
3851 XScreenNumberOfScreen (scr
)
3852 register Screen
*scr
;
3854 Display
*dpy
= scr
->display
;
3857 for (i
= 0; i
< dpy
->nscreens
; ++i
)
3858 if (scr
== dpy
->screens
+ i
)
3864 #endif /* not HAVE_XSCREENNUMBEROFSCREEN */
3867 /* Select the visual that should be used on display DPYINFO. Set
3868 members of DPYINFO appropriately. Called from x_term_init. */
3871 select_visual (dpyinfo
)
3872 struct x_display_info
*dpyinfo
;
3874 Display
*dpy
= dpyinfo
->display
;
3875 Screen
*screen
= dpyinfo
->screen
;
3878 /* See if a visual is specified. */
3879 value
= display_x_get_resource (dpyinfo
,
3880 build_string ("visualClass"),
3881 build_string ("VisualClass"),
3883 if (STRINGP (value
))
3885 /* VALUE should be of the form CLASS-DEPTH, where CLASS is one
3886 of `PseudoColor', `TrueColor' etc. and DEPTH is the color
3887 depth, a decimal number. NAME is compared with case ignored. */
3888 char *s
= (char *) alloca (SBYTES (value
) + 1);
3893 strcpy (s
, SDATA (value
));
3894 dash
= index (s
, '-');
3897 dpyinfo
->n_planes
= atoi (dash
+ 1);
3901 /* We won't find a matching visual with depth 0, so that
3902 an error will be printed below. */
3903 dpyinfo
->n_planes
= 0;
3905 /* Determine the visual class. */
3906 for (i
= 0; visual_classes
[i
].name
; ++i
)
3907 if (xstricmp (s
, visual_classes
[i
].name
) == 0)
3909 class = visual_classes
[i
].class;
3913 /* Look up a matching visual for the specified class. */
3915 || !XMatchVisualInfo (dpy
, XScreenNumberOfScreen (screen
),
3916 dpyinfo
->n_planes
, class, &vinfo
))
3917 fatal ("Invalid visual specification `%s'", SDATA (value
));
3919 dpyinfo
->visual
= vinfo
.visual
;
3924 XVisualInfo
*vinfo
, vinfo_template
;
3926 dpyinfo
->visual
= DefaultVisualOfScreen (screen
);
3929 vinfo_template
.visualid
= XVisualIDFromVisual (dpyinfo
->visual
);
3931 vinfo_template
.visualid
= dpyinfo
->visual
->visualid
;
3933 vinfo_template
.screen
= XScreenNumberOfScreen (screen
);
3934 vinfo
= XGetVisualInfo (dpy
, VisualIDMask
| VisualScreenMask
,
3935 &vinfo_template
, &n_visuals
);
3937 fatal ("Can't get proper X visual info");
3939 dpyinfo
->n_planes
= vinfo
->depth
;
3940 XFree ((char *) vinfo
);
3945 /* Return the X display structure for the display named NAME.
3946 Open a new connection if necessary. */
3948 struct x_display_info
*
3949 x_display_info_for_name (name
)
3953 struct x_display_info
*dpyinfo
;
3955 CHECK_STRING (name
);
3958 if (! EQ (Vinitial_window_system
, intern ("x")))
3959 error ("Not using X Windows"); /* That doesn't stop us anymore. */
3962 for (dpyinfo
= x_display_list
, names
= x_display_name_list
;
3964 dpyinfo
= dpyinfo
->next
, names
= XCDR (names
))
3967 tem
= Fstring_equal (XCAR (XCAR (names
)), name
);
3972 /* Use this general default value to start with. */
3973 Vx_resource_name
= Vinvocation_name
;
3975 validate_x_resource_name ();
3977 dpyinfo
= x_term_init (name
, (char *)0,
3978 (char *) SDATA (Vx_resource_name
));
3981 error ("Cannot connect to X server %s", SDATA (name
));
3984 XSETFASTINT (Vwindow_system_version
, 11);
3990 DEFUN ("x-open-connection", Fx_open_connection
, Sx_open_connection
,
3992 doc
: /* Open a connection to an X server.
3993 DISPLAY is the name of the display to connect to.
3994 Optional second arg XRM-STRING is a string of resources in xrdb format.
3995 If the optional third arg MUST-SUCCEED is non-nil,
3996 terminate Emacs if we can't open the connection. */)
3997 (display
, xrm_string
, must_succeed
)
3998 Lisp_Object display
, xrm_string
, must_succeed
;
4000 unsigned char *xrm_option
;
4001 struct x_display_info
*dpyinfo
;
4003 CHECK_STRING (display
);
4004 if (! NILP (xrm_string
))
4005 CHECK_STRING (xrm_string
);
4008 if (! EQ (Vinitial_window_system
, intern ("x")))
4009 error ("Not using X Windows"); /* That doesn't stop us anymore. */
4012 if (! NILP (xrm_string
))
4013 xrm_option
= (unsigned char *) SDATA (xrm_string
);
4015 xrm_option
= (unsigned char *) 0;
4017 validate_x_resource_name ();
4019 /* This is what opens the connection and sets x_current_display.
4020 This also initializes many symbols, such as those used for input. */
4021 dpyinfo
= x_term_init (display
, xrm_option
,
4022 (char *) SDATA (Vx_resource_name
));
4026 if (!NILP (must_succeed
))
4027 fatal ("Cannot connect to X server %s.\n\
4028 Check the DISPLAY environment variable or use `-d'.\n\
4029 Also use the `xauth' program to verify that you have the proper\n\
4030 authorization information needed to connect the X server.\n\
4031 An insecure way to solve the problem may be to use `xhost'.\n",
4034 error ("Cannot connect to X server %s", SDATA (display
));
4039 XSETFASTINT (Vwindow_system_version
, 11);
4043 DEFUN ("x-close-connection", Fx_close_connection
,
4044 Sx_close_connection
, 1, 1, 0,
4045 doc
: /* Close the connection to DISPLAY's X server.
4046 For DISPLAY, specify either a frame or a display name (a string).
4047 If DISPLAY is nil, that stands for the selected frame's display. */)
4049 Lisp_Object display
;
4051 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
4053 if (dpyinfo
->reference_count
> 0)
4054 error ("Display still has frames on it");
4056 x_delete_frame_display (dpyinfo
->frame_display
);
4061 DEFUN ("x-display-list", Fx_display_list
, Sx_display_list
, 0, 0, 0,
4062 doc
: /* Return the list of display names that Emacs has connections to. */)
4065 Lisp_Object tail
, result
;
4068 for (tail
= x_display_name_list
; ! NILP (tail
); tail
= XCDR (tail
))
4069 result
= Fcons (XCAR (XCAR (tail
)), result
);
4074 DEFUN ("x-synchronize", Fx_synchronize
, Sx_synchronize
, 1, 2, 0,
4075 doc
: /* If ON is non-nil, report X errors as soon as the erring request is made.
4076 If ON is nil, allow buffering of requests.
4077 Turning on synchronization prohibits the Xlib routines from buffering
4078 requests and seriously degrades performance, but makes debugging much
4080 The optional second argument DISPLAY specifies which display to act on.
4081 DISPLAY should be either a frame or a display name (a string).
4082 If DISPLAY is omitted or nil, that stands for the selected frame's display. */)
4084 Lisp_Object display
, on
;
4086 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
4088 XSynchronize (dpyinfo
->display
, !EQ (on
, Qnil
));
4093 /* Wait for responses to all X commands issued so far for frame F. */
4100 XSync (FRAME_X_DISPLAY (f
), False
);
4105 /***********************************************************************
4107 ***********************************************************************/
4109 DEFUN ("x-change-window-property", Fx_change_window_property
,
4110 Sx_change_window_property
, 2, 6, 0,
4111 doc
: /* Change window property PROP to VALUE on the X window of FRAME.
4112 PROP must be a string.
4113 VALUE may be a string or a list of conses, numbers and/or strings.
4114 If an element in the list is a string, it is converted to
4115 an Atom and the value of the Atom is used. If an element is a cons,
4116 it is converted to a 32 bit number where the car is the 16 top bits and the
4117 cdr is the lower 16 bits.
4118 FRAME nil or omitted means use the selected frame.
4119 If TYPE is given and non-nil, it is the name of the type of VALUE.
4120 If TYPE is not given or nil, the type is STRING.
4121 FORMAT gives the size in bits of each element if VALUE is a list.
4122 It must be one of 8, 16 or 32.
4123 If VALUE is a string or FORMAT is nil or not given, FORMAT defaults to 8.
4124 If OUTER_P is non-nil, the property is changed for the outer X window of
4125 FRAME. Default is to change on the edit X window.
4128 (prop
, value
, frame
, type
, format
, outer_p
)
4129 Lisp_Object prop
, value
, frame
, type
, format
, outer_p
;
4131 struct frame
*f
= check_x_frame (frame
);
4133 Atom target_type
= XA_STRING
;
4134 int element_format
= 8;
4135 unsigned char *data
;
4139 CHECK_STRING (prop
);
4141 if (! NILP (format
))
4143 CHECK_NUMBER (format
);
4144 element_format
= XFASTINT (format
);
4146 if (element_format
!= 8 && element_format
!= 16
4147 && element_format
!= 32)
4148 error ("FORMAT must be one of 8, 16 or 32");
4153 nelements
= x_check_property_data (value
);
4154 if (nelements
== -1)
4155 error ("Bad data in VALUE, must be number, string or cons");
4157 if (element_format
== 8)
4158 data
= (unsigned char *) xmalloc (nelements
);
4159 else if (element_format
== 16)
4160 data
= (unsigned char *) xmalloc (nelements
*2);
4161 else /* format == 32 */
4162 /* The man page for XChangeProperty:
4163 "If the specified format is 32, the property data must be a
4165 This applies even if long is more than 64 bits. The X library
4166 converts to 32 bits before sending to the X server. */
4167 data
= (unsigned char *) xmalloc (nelements
* sizeof(long));
4169 x_fill_property_data (FRAME_X_DISPLAY (f
), value
, data
, element_format
);
4173 CHECK_STRING (value
);
4174 data
= SDATA (value
);
4175 nelements
= SCHARS (value
);
4179 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4182 CHECK_STRING (type
);
4183 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (type
), False
);
4186 if (! NILP (outer_p
)) w
= FRAME_OUTER_WINDOW (f
);
4187 else w
= FRAME_X_WINDOW (f
);
4189 XChangeProperty (FRAME_X_DISPLAY (f
), w
,
4190 prop_atom
, target_type
, element_format
, PropModeReplace
,
4193 if (CONSP (value
)) xfree (data
);
4195 /* Make sure the property is set when we return. */
4196 XFlush (FRAME_X_DISPLAY (f
));
4203 DEFUN ("x-delete-window-property", Fx_delete_window_property
,
4204 Sx_delete_window_property
, 1, 2, 0,
4205 doc
: /* Remove window property PROP from X window of FRAME.
4206 FRAME nil or omitted means use the selected frame. Value is PROP. */)
4208 Lisp_Object prop
, frame
;
4210 struct frame
*f
= check_x_frame (frame
);
4213 CHECK_STRING (prop
);
4215 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4216 XDeleteProperty (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), prop_atom
);
4218 /* Make sure the property is removed when we return. */
4219 XFlush (FRAME_X_DISPLAY (f
));
4226 DEFUN ("x-window-property", Fx_window_property
, Sx_window_property
,
4228 doc
: /* Value is the value of window property PROP on FRAME.
4229 If FRAME is nil or omitted, use the selected frame.
4230 If TYPE is nil or omitted, get the property as a string. Otherwise TYPE
4231 is the name of the Atom that denotes the type expected.
4232 If SOURCE is non-nil, get the property on that window instead of from
4233 FRAME. The number 0 denotes the root window.
4234 If DELETE_P is non-nil, delete the property after retreiving it.
4235 If VECTOR_RET_P is non-nil, don't return a string but a vector of values.
4237 Value is nil if FRAME hasn't a property with name PROP or if PROP has
4238 no value of TYPE. */)
4239 (prop
, frame
, type
, source
, delete_p
, vector_ret_p
)
4240 Lisp_Object prop
, frame
, type
, source
, delete_p
, vector_ret_p
;
4242 struct frame
*f
= check_x_frame (frame
);
4245 Lisp_Object prop_value
= Qnil
;
4246 unsigned char *tmp_data
= NULL
;
4248 Atom target_type
= XA_STRING
;
4250 unsigned long actual_size
, bytes_remaining
;
4251 Window target_window
= FRAME_X_WINDOW (f
);
4252 struct gcpro gcpro1
;
4254 GCPRO1 (prop_value
);
4255 CHECK_STRING (prop
);
4257 if (! NILP (source
))
4259 if (NUMBERP (source
))
4261 if (FLOATP (source
))
4262 target_window
= (Window
) XFLOAT (source
);
4264 target_window
= XFASTINT (source
);
4266 if (target_window
== 0)
4267 target_window
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4269 else if (CONSP (source
))
4270 target_window
= cons_to_long (source
);
4276 if (strcmp ("AnyPropertyType", SDATA (type
)) == 0)
4277 target_type
= AnyPropertyType
;
4279 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (type
), False
);
4282 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4283 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4284 prop_atom
, 0, 0, False
, target_type
,
4285 &actual_type
, &actual_format
, &actual_size
,
4286 &bytes_remaining
, &tmp_data
);
4289 int size
= bytes_remaining
;
4294 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4295 prop_atom
, 0, bytes_remaining
,
4296 ! NILP (delete_p
), target_type
,
4297 &actual_type
, &actual_format
,
4298 &actual_size
, &bytes_remaining
,
4300 if (rc
== Success
&& tmp_data
)
4302 /* The man page for XGetWindowProperty says:
4303 "If the returned format is 32, the returned data is represented
4304 as a long array and should be cast to that type to obtain the
4306 This applies even if long is more than 32 bits, the X library
4307 converts from 32 bit elements received from the X server to long
4308 and passes the long array to us. Thus, for that case bcopy can not
4309 be used. We convert to a 32 bit type here, because so much code
4312 The bytes and offsets passed to XGetWindowProperty refers to the
4313 property and those are indeed in 32 bit quantities if format is
4316 if (actual_format
== 32 && actual_format
< BITS_PER_LONG
)
4319 int *idata
= (int *) tmp_data
;
4320 long *ldata
= (long *) tmp_data
;
4322 for (i
= 0; i
< actual_size
; ++i
)
4323 idata
[i
] = (int) ldata
[i
];
4326 if (NILP (vector_ret_p
))
4327 prop_value
= make_string (tmp_data
, size
);
4329 prop_value
= x_property_data_to_lisp (f
,
4336 if (tmp_data
) XFree (tmp_data
);
4346 /***********************************************************************
4348 ***********************************************************************/
4350 /* If non-null, an asynchronous timer that, when it expires, displays
4351 an hourglass cursor on all frames. */
4353 static struct atimer
*hourglass_atimer
;
4355 /* Non-zero means an hourglass cursor is currently shown. */
4357 static int hourglass_shown_p
;
4359 /* Number of seconds to wait before displaying an hourglass cursor. */
4361 static Lisp_Object Vhourglass_delay
;
4363 /* Default number of seconds to wait before displaying an hourglass
4366 #define DEFAULT_HOURGLASS_DELAY 1
4368 /* Function prototypes. */
4370 static void show_hourglass
P_ ((struct atimer
*));
4371 static void hide_hourglass
P_ ((void));
4373 /* Return non-zero if houglass timer has been started or hourglass is shown. */
4376 hourglass_started ()
4378 return hourglass_shown_p
|| hourglass_atimer
!= NULL
;
4382 /* Cancel a currently active hourglass timer, and start a new one. */
4388 int secs
, usecs
= 0;
4390 cancel_hourglass ();
4392 if (INTEGERP (Vhourglass_delay
)
4393 && XINT (Vhourglass_delay
) > 0)
4394 secs
= XFASTINT (Vhourglass_delay
);
4395 else if (FLOATP (Vhourglass_delay
)
4396 && XFLOAT_DATA (Vhourglass_delay
) > 0)
4399 tem
= Ftruncate (Vhourglass_delay
, Qnil
);
4400 secs
= XFASTINT (tem
);
4401 usecs
= (XFLOAT_DATA (Vhourglass_delay
) - secs
) * 1000000;
4404 secs
= DEFAULT_HOURGLASS_DELAY
;
4406 EMACS_SET_SECS_USECS (delay
, secs
, usecs
);
4407 hourglass_atimer
= start_atimer (ATIMER_RELATIVE
, delay
,
4408 show_hourglass
, NULL
);
4412 /* Cancel the hourglass cursor timer if active, hide a busy cursor if
4418 if (hourglass_atimer
)
4420 cancel_atimer (hourglass_atimer
);
4421 hourglass_atimer
= NULL
;
4424 if (hourglass_shown_p
)
4429 /* Timer function of hourglass_atimer. TIMER is equal to
4432 Display an hourglass pointer on all frames by mapping the frames'
4433 hourglass_window. Set the hourglass_p flag in the frames'
4434 output_data.x structure to indicate that an hourglass cursor is
4435 shown on the frames. */
4438 show_hourglass (timer
)
4439 struct atimer
*timer
;
4441 /* The timer implementation will cancel this timer automatically
4442 after this function has run. Set hourglass_atimer to null
4443 so that we know the timer doesn't have to be canceled. */
4444 hourglass_atimer
= NULL
;
4446 if (!hourglass_shown_p
)
4448 Lisp_Object rest
, frame
;
4452 FOR_EACH_FRAME (rest
, frame
)
4454 struct frame
*f
= XFRAME (frame
);
4456 if (FRAME_LIVE_P (f
) && FRAME_X_P (f
) && FRAME_X_DISPLAY (f
))
4458 Display
*dpy
= FRAME_X_DISPLAY (f
);
4460 #ifdef USE_X_TOOLKIT
4461 if (f
->output_data
.x
->widget
)
4463 if (FRAME_OUTER_WINDOW (f
))
4466 f
->output_data
.x
->hourglass_p
= 1;
4468 if (!f
->output_data
.x
->hourglass_window
)
4470 unsigned long mask
= CWCursor
;
4471 XSetWindowAttributes attrs
;
4473 Window parent
= FRAME_X_WINDOW (f
);
4475 Window parent
= FRAME_OUTER_WINDOW (f
);
4477 attrs
.cursor
= f
->output_data
.x
->hourglass_cursor
;
4479 f
->output_data
.x
->hourglass_window
4480 = XCreateWindow (dpy
, parent
,
4481 0, 0, 32000, 32000, 0, 0,
4487 XMapRaised (dpy
, f
->output_data
.x
->hourglass_window
);
4493 hourglass_shown_p
= 1;
4499 /* Hide the hourglass pointer on all frames, if it is currently
4505 if (hourglass_shown_p
)
4507 Lisp_Object rest
, frame
;
4510 FOR_EACH_FRAME (rest
, frame
)
4512 struct frame
*f
= XFRAME (frame
);
4515 /* Watch out for newly created frames. */
4516 && f
->output_data
.x
->hourglass_window
)
4518 XUnmapWindow (FRAME_X_DISPLAY (f
),
4519 f
->output_data
.x
->hourglass_window
);
4520 /* Sync here because XTread_socket looks at the
4521 hourglass_p flag that is reset to zero below. */
4522 XSync (FRAME_X_DISPLAY (f
), False
);
4523 f
->output_data
.x
->hourglass_p
= 0;
4527 hourglass_shown_p
= 0;
4534 /***********************************************************************
4536 ***********************************************************************/
4538 static Lisp_Object x_create_tip_frame
P_ ((struct x_display_info
*,
4539 Lisp_Object
, Lisp_Object
));
4540 static void compute_tip_xy
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
,
4541 Lisp_Object
, int, int, int *, int *));
4543 /* The frame of a currently visible tooltip. */
4545 Lisp_Object tip_frame
;
4547 /* If non-nil, a timer started that hides the last tooltip when it
4550 Lisp_Object tip_timer
;
4553 /* If non-nil, a vector of 3 elements containing the last args
4554 with which x-show-tip was called. See there. */
4556 Lisp_Object last_show_tip_args
;
4558 /* Maximum size for tooltips; a cons (COLUMNS . ROWS). */
4560 Lisp_Object Vx_max_tooltip_size
;
4564 unwind_create_tip_frame (frame
)
4567 Lisp_Object deleted
;
4569 deleted
= unwind_create_frame (frame
);
4570 if (EQ (deleted
, Qt
))
4580 /* Create a frame for a tooltip on the display described by DPYINFO.
4581 PARMS is a list of frame parameters. TEXT is the string to
4582 display in the tip frame. Value is the frame.
4584 Note that functions called here, esp. x_default_parameter can
4585 signal errors, for instance when a specified color name is
4586 undefined. We have to make sure that we're in a consistent state
4587 when this happens. */
4590 x_create_tip_frame (dpyinfo
, parms
, text
)
4591 struct x_display_info
*dpyinfo
;
4592 Lisp_Object parms
, text
;
4595 Lisp_Object frame
, tem
;
4597 long window_prompting
= 0;
4599 int count
= SPECPDL_INDEX ();
4600 struct gcpro gcpro1
, gcpro2
, gcpro3
;
4602 int face_change_count_before
= face_change_count
;
4604 struct buffer
*old_buffer
;
4610 kb
= dpyinfo
->kboard
;
4612 kb
= &the_only_kboard
;
4615 /* Get the name of the frame to use for resource lookup. */
4616 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
4618 && !EQ (name
, Qunbound
)
4620 error ("Invalid frame name--not a string or nil");
4623 GCPRO3 (parms
, name
, frame
);
4625 XSETFRAME (frame
, f
);
4627 buffer
= Fget_buffer_create (build_string (" *tip*"));
4628 Fset_window_buffer (FRAME_ROOT_WINDOW (f
), buffer
, Qnil
);
4629 old_buffer
= current_buffer
;
4630 set_buffer_internal_1 (XBUFFER (buffer
));
4631 current_buffer
->truncate_lines
= Qnil
;
4632 specbind (Qinhibit_read_only
, Qt
);
4633 specbind (Qinhibit_modification_hooks
, Qt
);
4636 set_buffer_internal_1 (old_buffer
);
4638 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 0;
4639 record_unwind_protect (unwind_create_tip_frame
, frame
);
4641 f
->display
= dpyinfo
->frame_display
;
4642 f
->display
->reference_count
++;
4644 /* By setting the output method, we're essentially saying that
4645 the frame is live, as per FRAME_LIVE_P. If we get a signal
4646 from this point on, x_destroy_window might screw up reference
4648 f
->output_method
= output_x_window
;
4649 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
4650 bzero (f
->output_data
.x
, sizeof (struct x_output
));
4651 f
->output_data
.x
->icon_bitmap
= -1;
4652 FRAME_FONTSET (f
) = -1;
4653 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
4654 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
4655 #ifdef USE_TOOLKIT_SCROLL_BARS
4656 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
4657 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
4658 #endif /* USE_TOOLKIT_SCROLL_BARS */
4659 f
->icon_name
= Qnil
;
4660 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
4662 image_cache_refcount
= FRAME_X_IMAGE_CACHE (f
)->refcount
;
4663 dpyinfo_refcount
= dpyinfo
->reference_count
;
4664 #endif /* GLYPH_DEBUG */
4666 FRAME_KBOARD (f
) = kb
;
4668 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4669 f
->output_data
.x
->explicit_parent
= 0;
4671 /* These colors will be set anyway later, but it's important
4672 to get the color reference counts right, so initialize them! */
4675 struct gcpro gcpro1
;
4677 /* Function x_decode_color can signal an error. Make
4678 sure to initialize color slots so that we won't try
4679 to free colors we haven't allocated. */
4680 f
->output_data
.x
->foreground_pixel
= -1;
4681 f
->output_data
.x
->background_pixel
= -1;
4682 f
->output_data
.x
->cursor_pixel
= -1;
4683 f
->output_data
.x
->cursor_foreground_pixel
= -1;
4684 f
->output_data
.x
->border_pixel
= -1;
4685 f
->output_data
.x
->mouse_pixel
= -1;
4687 black
= build_string ("black");
4689 f
->output_data
.x
->foreground_pixel
4690 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4691 f
->output_data
.x
->background_pixel
4692 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4693 f
->output_data
.x
->cursor_pixel
4694 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4695 f
->output_data
.x
->cursor_foreground_pixel
4696 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4697 f
->output_data
.x
->border_pixel
4698 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4699 f
->output_data
.x
->mouse_pixel
4700 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4704 /* Set the name; the functions to which we pass f expect the name to
4706 if (EQ (name
, Qunbound
) || NILP (name
))
4708 f
->name
= build_string (dpyinfo
->x_id_name
);
4709 f
->explicit_name
= 0;
4714 f
->explicit_name
= 1;
4715 /* use the frame's title when getting resources for this frame. */
4716 specbind (Qx_resource_name
, name
);
4719 /* Extract the window parameters from the supplied values that are
4720 needed to determine window geometry. */
4724 font
= x_get_arg (dpyinfo
, parms
, Qfont
, "font", "Font", RES_TYPE_STRING
);
4727 /* First, try whatever font the caller has specified. */
4730 tem
= Fquery_fontset (font
, Qnil
);
4732 font
= x_new_fontset (f
, SDATA (tem
));
4734 font
= x_new_font (f
, SDATA (font
));
4737 /* Try out a font which we hope has bold and italic variations. */
4738 if (!STRINGP (font
))
4739 font
= x_new_font (f
, "-adobe-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-1");
4740 if (!STRINGP (font
))
4741 font
= x_new_font (f
, "-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-1");
4742 if (! STRINGP (font
))
4743 font
= x_new_font (f
, "-*-*-medium-r-normal-*-*-140-*-*-c-*-iso8859-1");
4744 if (! STRINGP (font
))
4745 /* This was formerly the first thing tried, but it finds too many fonts
4746 and takes too long. */
4747 font
= x_new_font (f
, "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1");
4748 /* If those didn't work, look for something which will at least work. */
4749 if (! STRINGP (font
))
4750 font
= x_new_font (f
, "-*-fixed-*-*-*-*-*-140-*-*-c-*-iso8859-1");
4752 if (! STRINGP (font
))
4753 font
= build_string ("fixed");
4755 x_default_parameter (f
, parms
, Qfont
, font
,
4756 "font", "Font", RES_TYPE_STRING
);
4759 x_default_parameter (f
, parms
, Qborder_width
, make_number (2),
4760 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
4762 /* This defaults to 2 in order to match xterm. We recognize either
4763 internalBorderWidth or internalBorder (which is what xterm calls
4765 if (NILP (Fassq (Qinternal_border_width
, parms
)))
4769 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
4770 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
4771 if (! EQ (value
, Qunbound
))
4772 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
4776 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
4777 "internalBorderWidth", "internalBorderWidth",
4780 /* Also do the stuff which must be set before the window exists. */
4781 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
4782 "foreground", "Foreground", RES_TYPE_STRING
);
4783 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
4784 "background", "Background", RES_TYPE_STRING
);
4785 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
4786 "pointerColor", "Foreground", RES_TYPE_STRING
);
4787 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
4788 "cursorColor", "Foreground", RES_TYPE_STRING
);
4789 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
4790 "borderColor", "BorderColor", RES_TYPE_STRING
);
4792 /* Init faces before x_default_parameter is called for scroll-bar
4793 parameters because that function calls x_set_scroll_bar_width,
4794 which calls change_frame_size, which calls Fset_window_buffer,
4795 which runs hooks, which call Fvertical_motion. At the end, we
4796 end up in init_iterator with a null face cache, which should not
4798 init_frame_faces (f
);
4800 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4802 window_prompting
= x_figure_window_size (f
, parms
, 0);
4805 XSetWindowAttributes attrs
;
4809 mask
= CWBackPixel
| CWOverrideRedirect
| CWEventMask
;
4810 if (DoesSaveUnders (dpyinfo
->screen
))
4811 mask
|= CWSaveUnder
;
4813 /* Window managers look at the override-redirect flag to determine
4814 whether or net to give windows a decoration (Xlib spec, chapter
4816 attrs
.override_redirect
= True
;
4817 attrs
.save_under
= True
;
4818 attrs
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
4819 /* Arrange for getting MapNotify and UnmapNotify events. */
4820 attrs
.event_mask
= StructureNotifyMask
;
4822 = FRAME_X_WINDOW (f
)
4823 = XCreateWindow (FRAME_X_DISPLAY (f
),
4824 FRAME_X_DISPLAY_INFO (f
)->root_window
,
4825 /* x, y, width, height */
4829 CopyFromParent
, InputOutput
, CopyFromParent
,
4836 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
4837 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4838 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
4839 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4840 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
4841 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
4843 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
4844 Change will not be effected unless different from the current
4846 width
= FRAME_COLS (f
);
4847 height
= FRAME_LINES (f
);
4848 SET_FRAME_COLS (f
, 0);
4849 FRAME_LINES (f
) = 0;
4850 change_frame_size (f
, height
, width
, 1, 0, 0);
4852 /* Add `tooltip' frame parameter's default value. */
4853 if (NILP (Fframe_parameter (frame
, intern ("tooltip"))))
4854 Fmodify_frame_parameters (frame
, Fcons (Fcons (intern ("tooltip"), Qt
),
4857 /* Set up faces after all frame parameters are known. This call
4858 also merges in face attributes specified for new frames.
4860 Frame parameters may be changed if .Xdefaults contains
4861 specifications for the default font. For example, if there is an
4862 `Emacs.default.attributeBackground: pink', the `background-color'
4863 attribute of the frame get's set, which let's the internal border
4864 of the tooltip frame appear in pink. Prevent this. */
4866 Lisp_Object bg
= Fframe_parameter (frame
, Qbackground_color
);
4868 /* Set tip_frame here, so that */
4870 call1 (Qface_set_after_frame_default
, frame
);
4872 if (!EQ (bg
, Fframe_parameter (frame
, Qbackground_color
)))
4873 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qbackground_color
, bg
),
4877 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qwindow_system
, Qx
), Qnil
));
4883 /* It is now ok to make the frame official even if we get an error
4884 below. And the frame needs to be on Vframe_list or making it
4885 visible won't work. */
4886 Vframe_list
= Fcons (frame
, Vframe_list
);
4888 /* Now that the frame is official, it counts as a reference to
4890 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
4892 /* Setting attributes of faces of the tooltip frame from resources
4893 and similar will increment face_change_count, which leads to the
4894 clearing of all current matrices. Since this isn't necessary
4895 here, avoid it by resetting face_change_count to the value it
4896 had before we created the tip frame. */
4897 face_change_count
= face_change_count_before
;
4899 /* Discard the unwind_protect. */
4900 return unbind_to (count
, frame
);
4904 /* Compute where to display tip frame F. PARMS is the list of frame
4905 parameters for F. DX and DY are specified offsets from the current
4906 location of the mouse. WIDTH and HEIGHT are the width and height
4907 of the tooltip. Return coordinates relative to the root window of
4908 the display in *ROOT_X, and *ROOT_Y. */
4911 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, root_x
, root_y
)
4913 Lisp_Object parms
, dx
, dy
;
4915 int *root_x
, *root_y
;
4917 Lisp_Object left
, top
;
4922 /* User-specified position? */
4923 left
= Fcdr (Fassq (Qleft
, parms
));
4924 top
= Fcdr (Fassq (Qtop
, parms
));
4926 /* Move the tooltip window where the mouse pointer is. Resize and
4928 if (!INTEGERP (left
) || !INTEGERP (top
))
4931 XQueryPointer (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
4932 &root
, &child
, root_x
, root_y
, &win_x
, &win_y
, &pmask
);
4937 *root_y
= XINT (top
);
4938 else if (*root_y
+ XINT (dy
) - height
< 0)
4939 *root_y
-= XINT (dy
);
4943 *root_y
+= XINT (dy
);
4946 if (INTEGERP (left
))
4947 *root_x
= XINT (left
);
4948 else if (*root_x
+ XINT (dx
) + width
<= FRAME_X_DISPLAY_INFO (f
)->width
)
4949 /* It fits to the right of the pointer. */
4950 *root_x
+= XINT (dx
);
4951 else if (width
+ XINT (dx
) <= *root_x
)
4952 /* It fits to the left of the pointer. */
4953 *root_x
-= width
+ XINT (dx
);
4955 /* Put it left-justified on the screen--it ought to fit that way. */
4960 DEFUN ("x-show-tip", Fx_show_tip
, Sx_show_tip
, 1, 6, 0,
4961 doc
: /* Show STRING in a "tooltip" window on frame FRAME.
4962 A tooltip window is a small X window displaying a string.
4964 FRAME nil or omitted means use the selected frame.
4966 PARMS is an optional list of frame parameters which can be used to
4967 change the tooltip's appearance.
4969 Automatically hide the tooltip after TIMEOUT seconds. TIMEOUT nil
4970 means use the default timeout of 5 seconds.
4972 If the list of frame parameters PARAMS contains a `left' parameters,
4973 the tooltip is displayed at that x-position. Otherwise it is
4974 displayed at the mouse position, with offset DX added (default is 5 if
4975 DX isn't specified). Likewise for the y-position; if a `top' frame
4976 parameter is specified, it determines the y-position of the tooltip
4977 window, otherwise it is displayed at the mouse position, with offset
4978 DY added (default is -10).
4980 A tooltip's maximum size is specified by `x-max-tooltip-size'.
4981 Text larger than the specified size is clipped. */)
4982 (string
, frame
, parms
, timeout
, dx
, dy
)
4983 Lisp_Object string
, frame
, parms
, timeout
, dx
, dy
;
4988 struct buffer
*old_buffer
;
4989 struct text_pos pos
;
4990 int i
, width
, height
;
4991 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
4992 int old_windows_or_buffers_changed
= windows_or_buffers_changed
;
4993 int count
= SPECPDL_INDEX ();
4995 specbind (Qinhibit_redisplay
, Qt
);
4997 GCPRO4 (string
, parms
, frame
, timeout
);
4999 CHECK_STRING (string
);
5000 f
= check_x_frame (frame
);
5002 timeout
= make_number (5);
5004 CHECK_NATNUM (timeout
);
5007 dx
= make_number (5);
5012 dy
= make_number (-10);
5016 if (NILP (last_show_tip_args
))
5017 last_show_tip_args
= Fmake_vector (make_number (3), Qnil
);
5019 if (!NILP (tip_frame
))
5021 Lisp_Object last_string
= AREF (last_show_tip_args
, 0);
5022 Lisp_Object last_frame
= AREF (last_show_tip_args
, 1);
5023 Lisp_Object last_parms
= AREF (last_show_tip_args
, 2);
5025 if (EQ (frame
, last_frame
)
5026 && !NILP (Fequal (last_string
, string
))
5027 && !NILP (Fequal (last_parms
, parms
)))
5029 struct frame
*f
= XFRAME (tip_frame
);
5031 /* Only DX and DY have changed. */
5032 if (!NILP (tip_timer
))
5034 Lisp_Object timer
= tip_timer
;
5036 call1 (Qcancel_timer
, timer
);
5040 compute_tip_xy (f
, parms
, dx
, dy
, FRAME_PIXEL_WIDTH (f
),
5041 FRAME_PIXEL_HEIGHT (f
), &root_x
, &root_y
);
5042 XMoveWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5049 /* Hide a previous tip, if any. */
5052 ASET (last_show_tip_args
, 0, string
);
5053 ASET (last_show_tip_args
, 1, frame
);
5054 ASET (last_show_tip_args
, 2, parms
);
5056 /* Add default values to frame parameters. */
5057 if (NILP (Fassq (Qname
, parms
)))
5058 parms
= Fcons (Fcons (Qname
, build_string ("tooltip")), parms
);
5059 if (NILP (Fassq (Qinternal_border_width
, parms
)))
5060 parms
= Fcons (Fcons (Qinternal_border_width
, make_number (3)), parms
);
5061 if (NILP (Fassq (Qborder_width
, parms
)))
5062 parms
= Fcons (Fcons (Qborder_width
, make_number (1)), parms
);
5063 if (NILP (Fassq (Qborder_color
, parms
)))
5064 parms
= Fcons (Fcons (Qborder_color
, build_string ("lightyellow")), parms
);
5065 if (NILP (Fassq (Qbackground_color
, parms
)))
5066 parms
= Fcons (Fcons (Qbackground_color
, build_string ("lightyellow")),
5069 /* Create a frame for the tooltip, and record it in the global
5070 variable tip_frame. */
5071 frame
= x_create_tip_frame (FRAME_X_DISPLAY_INFO (f
), parms
, string
);
5074 /* Set up the frame's root window. */
5075 w
= XWINDOW (FRAME_ROOT_WINDOW (f
));
5076 w
->left_col
= w
->top_line
= make_number (0);
5078 if (CONSP (Vx_max_tooltip_size
)
5079 && INTEGERP (XCAR (Vx_max_tooltip_size
))
5080 && XINT (XCAR (Vx_max_tooltip_size
)) > 0
5081 && INTEGERP (XCDR (Vx_max_tooltip_size
))
5082 && XINT (XCDR (Vx_max_tooltip_size
)) > 0)
5084 w
->total_cols
= XCAR (Vx_max_tooltip_size
);
5085 w
->total_lines
= XCDR (Vx_max_tooltip_size
);
5089 w
->total_cols
= make_number (80);
5090 w
->total_lines
= make_number (40);
5093 FRAME_TOTAL_COLS (f
) = XINT (w
->total_cols
);
5095 w
->pseudo_window_p
= 1;
5097 /* Display the tooltip text in a temporary buffer. */
5098 old_buffer
= current_buffer
;
5099 set_buffer_internal_1 (XBUFFER (XWINDOW (FRAME_ROOT_WINDOW (f
))->buffer
));
5100 current_buffer
->truncate_lines
= Qnil
;
5101 clear_glyph_matrix (w
->desired_matrix
);
5102 clear_glyph_matrix (w
->current_matrix
);
5103 SET_TEXT_POS (pos
, BEGV
, BEGV_BYTE
);
5104 try_window (FRAME_ROOT_WINDOW (f
), pos
);
5106 /* Compute width and height of the tooltip. */
5108 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
5110 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
5114 /* Stop at the first empty row at the end. */
5115 if (!row
->enabled_p
|| !row
->displays_text_p
)
5118 /* Let the row go over the full width of the frame. */
5119 row
->full_width_p
= 1;
5121 /* There's a glyph at the end of rows that is used to place
5122 the cursor there. Don't include the width of this glyph. */
5123 if (row
->used
[TEXT_AREA
])
5125 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
5126 row_width
= row
->pixel_width
- last
->pixel_width
;
5129 row_width
= row
->pixel_width
;
5131 height
+= row
->height
;
5132 width
= max (width
, row_width
);
5135 /* Add the frame's internal border to the width and height the X
5136 window should have. */
5137 height
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5138 width
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5140 /* Move the tooltip window where the mouse pointer is. Resize and
5142 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
5145 XMoveResizeWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5146 root_x
, root_y
, width
, height
);
5147 XMapRaised (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
));
5150 /* Draw into the window. */
5151 w
->must_be_updated_p
= 1;
5152 update_single_window (w
, 1);
5154 /* Restore original current buffer. */
5155 set_buffer_internal_1 (old_buffer
);
5156 windows_or_buffers_changed
= old_windows_or_buffers_changed
;
5159 /* Let the tip disappear after timeout seconds. */
5160 tip_timer
= call3 (intern ("run-at-time"), timeout
, Qnil
,
5161 intern ("x-hide-tip"));
5164 return unbind_to (count
, Qnil
);
5168 DEFUN ("x-hide-tip", Fx_hide_tip
, Sx_hide_tip
, 0, 0, 0,
5169 doc
: /* Hide the current tooltip window, if there is any.
5170 Value is t if tooltip was open, nil otherwise. */)
5174 Lisp_Object deleted
, frame
, timer
;
5175 struct gcpro gcpro1
, gcpro2
;
5177 /* Return quickly if nothing to do. */
5178 if (NILP (tip_timer
) && NILP (tip_frame
))
5183 GCPRO2 (frame
, timer
);
5184 tip_frame
= tip_timer
= deleted
= Qnil
;
5186 count
= SPECPDL_INDEX ();
5187 specbind (Qinhibit_redisplay
, Qt
);
5188 specbind (Qinhibit_quit
, Qt
);
5191 call1 (Qcancel_timer
, timer
);
5195 Fdelete_frame (frame
, Qnil
);
5199 /* Bloodcurdling hack alert: The Lucid menu bar widget's
5200 redisplay procedure is not called when a tip frame over menu
5201 items is unmapped. Redisplay the menu manually... */
5203 struct frame
*f
= SELECTED_FRAME ();
5204 Widget w
= f
->output_data
.x
->menubar_widget
;
5205 extern void xlwmenu_redisplay
P_ ((Widget
));
5207 if (!DoesSaveUnders (FRAME_X_DISPLAY_INFO (f
)->screen
)
5211 xlwmenu_redisplay (w
);
5215 #endif /* USE_LUCID */
5219 return unbind_to (count
, deleted
);
5224 /***********************************************************************
5225 File selection dialog
5226 ***********************************************************************/
5230 /* Callback for "OK" and "Cancel" on file selection dialog. */
5233 file_dialog_cb (widget
, client_data
, call_data
)
5235 XtPointer call_data
, client_data
;
5237 int *result
= (int *) client_data
;
5238 XmAnyCallbackStruct
*cb
= (XmAnyCallbackStruct
*) call_data
;
5239 *result
= cb
->reason
;
5243 /* Callback for unmapping a file selection dialog. This is used to
5244 capture the case where a dialog is closed via a window manager's
5245 closer button, for example. Using a XmNdestroyCallback didn't work
5249 file_dialog_unmap_cb (widget
, client_data
, call_data
)
5251 XtPointer call_data
, client_data
;
5253 int *result
= (int *) client_data
;
5254 *result
= XmCR_CANCEL
;
5258 clean_up_file_dialog (arg
)
5261 struct Lisp_Save_Value
*p
= XSAVE_VALUE (arg
);
5262 Widget dialog
= (Widget
) p
->pointer
;
5266 XtUnmanageChild (dialog
);
5267 XtDestroyWidget (dialog
);
5268 x_menu_set_in_use (0);
5275 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5276 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5277 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5278 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5279 or directory must exist. ONLY-DIR-P is ignored." */)
5280 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
)
5281 Lisp_Object prompt
, dir
, default_filename
, mustmatch
, only_dir_p
;
5284 struct frame
*f
= SELECTED_FRAME ();
5285 Lisp_Object file
= Qnil
;
5286 Widget dialog
, text
, help
;
5289 extern XtAppContext Xt_app_con
;
5290 XmString dir_xmstring
, pattern_xmstring
;
5291 int count
= SPECPDL_INDEX ();
5292 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5294 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5296 if (popup_activated ())
5297 error ("Trying to use a menu from within a menu-entry");
5299 CHECK_STRING (prompt
);
5302 /* Prevent redisplay. */
5303 specbind (Qinhibit_redisplay
, Qt
);
5307 /* Create the dialog with PROMPT as title, using DIR as initial
5308 directory and using "*" as pattern. */
5309 dir
= Fexpand_file_name (dir
, Qnil
);
5310 dir_xmstring
= XmStringCreateLocalized (SDATA (dir
));
5311 pattern_xmstring
= XmStringCreateLocalized ("*");
5313 XtSetArg (al
[ac
], XmNtitle
, SDATA (prompt
)); ++ac
;
5314 XtSetArg (al
[ac
], XmNdirectory
, dir_xmstring
); ++ac
;
5315 XtSetArg (al
[ac
], XmNpattern
, pattern_xmstring
); ++ac
;
5316 XtSetArg (al
[ac
], XmNresizePolicy
, XmRESIZE_GROW
); ++ac
;
5317 XtSetArg (al
[ac
], XmNdialogStyle
, XmDIALOG_APPLICATION_MODAL
); ++ac
;
5318 dialog
= XmCreateFileSelectionDialog (f
->output_data
.x
->widget
,
5320 XmStringFree (dir_xmstring
);
5321 XmStringFree (pattern_xmstring
);
5323 /* Add callbacks for OK and Cancel. */
5324 XtAddCallback (dialog
, XmNokCallback
, file_dialog_cb
,
5325 (XtPointer
) &result
);
5326 XtAddCallback (dialog
, XmNcancelCallback
, file_dialog_cb
,
5327 (XtPointer
) &result
);
5328 XtAddCallback (dialog
, XmNunmapCallback
, file_dialog_unmap_cb
,
5329 (XtPointer
) &result
);
5331 /* Remove the help button since we can't display help. */
5332 help
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_HELP_BUTTON
);
5333 XtUnmanageChild (help
);
5335 /* Mark OK button as default. */
5336 XtVaSetValues (XmFileSelectionBoxGetChild (dialog
, XmDIALOG_OK_BUTTON
),
5337 XmNshowAsDefault
, True
, NULL
);
5339 /* If MUSTMATCH is non-nil, disable the file entry field of the
5340 dialog, so that the user must select a file from the files list
5341 box. We can't remove it because we wouldn't have a way to get at
5342 the result file name, then. */
5343 text
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5344 if (!NILP (mustmatch
))
5347 label
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_SELECTION_LABEL
);
5348 XtSetSensitive (text
, False
);
5349 XtSetSensitive (label
, False
);
5352 /* Manage the dialog, so that list boxes get filled. */
5353 XtManageChild (dialog
);
5355 if (STRINGP (default_filename
))
5357 XmString default_xmstring
;
5358 Widget wtext
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5359 Widget list
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_LIST
);
5361 XmTextPosition last_pos
= XmTextFieldGetLastPosition (wtext
);
5362 XmTextFieldReplace (wtext
, 0, last_pos
,
5363 (SDATA (Ffile_name_nondirectory (default_filename
))));
5365 /* Select DEFAULT_FILENAME in the files list box. DEFAULT_FILENAME
5366 must include the path for this to work. */
5368 default_xmstring
= XmStringCreateLocalized (SDATA (default_filename
));
5370 if (XmListItemExists (list
, default_xmstring
))
5372 int item_pos
= XmListItemPos (list
, default_xmstring
);
5373 /* Select the item and scroll it into view. */
5374 XmListSelectPos (list
, item_pos
, True
);
5375 XmListSetPos (list
, item_pos
);
5378 XmStringFree (default_xmstring
);
5381 record_unwind_protect (clean_up_file_dialog
, make_save_value (dialog
, 0));
5383 /* Process events until the user presses Cancel or OK. */
5384 x_menu_set_in_use (1);
5389 x_menu_wait_for_event (0);
5390 XtAppNextEvent (Xt_app_con
, &event
);
5391 if (event
.type
== KeyPress
5392 && FRAME_X_DISPLAY (f
) == event
.xkey
.display
)
5394 KeySym keysym
= XLookupKeysym (&event
.xkey
, 0);
5396 /* Pop down on C-g. */
5397 if (keysym
== XK_g
&& (event
.xkey
.state
& ControlMask
) != 0)
5398 XtUnmanageChild (dialog
);
5401 (void) x_dispatch_event (&event
, FRAME_X_DISPLAY (f
));
5404 /* Get the result. */
5405 if (result
== XmCR_OK
)
5410 XtVaGetValues (dialog
, XmNtextString
, &text
, NULL
);
5411 XmStringGetLtoR (text
, XmFONTLIST_DEFAULT_TAG
, &data
);
5412 XmStringFree (text
);
5413 file
= build_string (data
);
5422 /* Make "Cancel" equivalent to C-g. */
5424 Fsignal (Qquit
, Qnil
);
5426 return unbind_to (count
, file
);
5429 #endif /* USE_MOTIF */
5434 clean_up_dialog (arg
)
5437 x_menu_set_in_use (0);
5442 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5443 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5444 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5445 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5446 or directory must exist. If ONLY-DIR-P is non-nil, the user can only select
5448 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
)
5449 Lisp_Object prompt
, dir
, default_filename
, mustmatch
, only_dir_p
;
5451 FRAME_PTR f
= SELECTED_FRAME ();
5453 Lisp_Object file
= Qnil
;
5454 int count
= SPECPDL_INDEX ();
5455 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5458 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5460 if (popup_activated ())
5461 error ("Trying to use a menu from within a menu-entry");
5463 CHECK_STRING (prompt
);
5466 /* Prevent redisplay. */
5467 specbind (Qinhibit_redisplay
, Qt
);
5468 record_unwind_protect (clean_up_dialog
, Qnil
);
5472 if (STRINGP (default_filename
))
5473 cdef_file
= SDATA (default_filename
);
5475 cdef_file
= SDATA (dir
);
5477 fn
= xg_get_file_name (f
, SDATA (prompt
), cdef_file
,
5479 ! NILP (only_dir_p
));
5483 file
= build_string (fn
);
5490 /* Make "Cancel" equivalent to C-g. */
5492 Fsignal (Qquit
, Qnil
);
5494 return unbind_to (count
, file
);
5497 #endif /* USE_GTK */
5500 /***********************************************************************
5502 ***********************************************************************/
5504 #ifdef HAVE_XKBGETKEYBOARD
5505 #include <X11/XKBlib.h>
5506 #include <X11/keysym.h>
5509 DEFUN ("x-backspace-delete-keys-p", Fx_backspace_delete_keys_p
,
5510 Sx_backspace_delete_keys_p
, 0, 1, 0,
5511 doc
: /* Check if both Backspace and Delete keys are on the keyboard of FRAME.
5512 FRAME nil means use the selected frame.
5513 Value is t if we know that both keys are present, and are mapped to the
5514 usual X keysyms. */)
5518 #ifdef HAVE_XKBGETKEYBOARD
5520 struct frame
*f
= check_x_frame (frame
);
5521 Display
*dpy
= FRAME_X_DISPLAY (f
);
5522 Lisp_Object have_keys
;
5523 int major
, minor
, op
, event
, error
;
5527 /* Check library version in case we're dynamically linked. */
5528 major
= XkbMajorVersion
;
5529 minor
= XkbMinorVersion
;
5530 if (!XkbLibraryVersion (&major
, &minor
))
5536 /* Check that the server supports XKB. */
5537 major
= XkbMajorVersion
;
5538 minor
= XkbMinorVersion
;
5539 if (!XkbQueryExtension (dpy
, &op
, &event
, &error
, &major
, &minor
))
5545 /* In this code we check that the keyboard has physical keys with names
5546 that start with BKSP (Backspace) and DELE (Delete), and that they
5547 generate keysym XK_BackSpace and XK_Delete respectively.
5548 This function is used to test if normal-erase-is-backspace should be
5550 An alternative approach would be to just check if XK_BackSpace and
5551 XK_Delete are mapped to any key. But if any of those are mapped to
5552 some non-intuitive key combination (Meta-Shift-Ctrl-whatever) and the
5553 user doesn't know about it, it is better to return false here.
5554 It is more obvious to the user what to do if she/he has two keys
5555 clearly marked with names/symbols and one key does something not
5556 expected (i.e. she/he then tries the other).
5557 The cases where Backspace/Delete is mapped to some other key combination
5558 are rare, and in those cases, normal-erase-is-backspace can be turned on
5562 kb
= XkbGetMap (dpy
, XkbAllMapComponentsMask
, XkbUseCoreKbd
);
5565 int delete_keycode
= 0, backspace_keycode
= 0, i
;
5567 if (XkbGetNames (dpy
, XkbAllNamesMask
, kb
) == Success
)
5569 for (i
= kb
->min_key_code
;
5570 (i
< kb
->max_key_code
5571 && (delete_keycode
== 0 || backspace_keycode
== 0));
5574 /* The XKB symbolic key names can be seen most easily in
5575 the PS file generated by `xkbprint -label name
5577 if (bcmp ("DELE", kb
->names
->keys
[i
].name
, 4) == 0)
5579 else if (bcmp ("BKSP", kb
->names
->keys
[i
].name
, 4) == 0)
5580 backspace_keycode
= i
;
5583 XkbFreeNames (kb
, 0, True
);
5586 XkbFreeClientMap (kb
, 0, True
);
5589 && backspace_keycode
5590 && XKeysymToKeycode (dpy
, XK_Delete
) == delete_keycode
5591 && XKeysymToKeycode (dpy
, XK_BackSpace
) == backspace_keycode
)
5596 #else /* not HAVE_XKBGETKEYBOARD */
5598 #endif /* not HAVE_XKBGETKEYBOARD */
5603 /***********************************************************************
5605 ***********************************************************************/
5607 /* Keep this list in the same order as frame_parms in frame.c.
5608 Use 0 for unsupported frame parameters. */
5610 frame_parm_handler x_frame_parm_handlers
[] =
5614 x_set_background_color
,
5620 x_set_foreground_color
,
5623 x_set_internal_border_width
,
5624 x_set_menu_bar_lines
,
5626 x_explicitly_set_name
,
5627 x_set_scroll_bar_width
,
5630 x_set_vertical_scroll_bars
,
5632 x_set_tool_bar_lines
,
5633 x_set_scroll_bar_foreground
,
5634 x_set_scroll_bar_background
,
5646 /* This is zero if not using X windows. */
5649 /* The section below is built by the lisp expression at the top of the file,
5650 just above where these variables are declared. */
5651 /*&&& init symbols here &&&*/
5652 Qnone
= intern ("none");
5654 Qsuppress_icon
= intern ("suppress-icon");
5655 staticpro (&Qsuppress_icon
);
5656 Qundefined_color
= intern ("undefined-color");
5657 staticpro (&Qundefined_color
);
5658 Qcompound_text
= intern ("compound-text");
5659 staticpro (&Qcompound_text
);
5660 Qcancel_timer
= intern ("cancel-timer");
5661 staticpro (&Qcancel_timer
);
5662 /* This is the end of symbol initialization. */
5664 /* Text property `display' should be nonsticky by default. */
5665 Vtext_property_default_nonsticky
5666 = Fcons (Fcons (Qdisplay
, Qt
), Vtext_property_default_nonsticky
);
5669 Fput (Qundefined_color
, Qerror_conditions
,
5670 Fcons (Qundefined_color
, Fcons (Qerror
, Qnil
)));
5671 Fput (Qundefined_color
, Qerror_message
,
5672 build_string ("Undefined color"));
5674 DEFVAR_LISP ("x-pointer-shape", &Vx_pointer_shape
,
5675 doc
: /* The shape of the pointer when over text.
5676 Changing the value does not affect existing frames
5677 unless you set the mouse color. */);
5678 Vx_pointer_shape
= Qnil
;
5680 #if 0 /* This doesn't really do anything. */
5681 DEFVAR_LISP ("x-nontext-pointer-shape", &Vx_nontext_pointer_shape
,
5682 doc
: /* The shape of the pointer when not over text.
5683 This variable takes effect when you create a new frame
5684 or when you set the mouse color. */);
5686 Vx_nontext_pointer_shape
= Qnil
;
5688 DEFVAR_LISP ("x-hourglass-pointer-shape", &Vx_hourglass_pointer_shape
,
5689 doc
: /* The shape of the pointer when Emacs is busy.
5690 This variable takes effect when you create a new frame
5691 or when you set the mouse color. */);
5692 Vx_hourglass_pointer_shape
= Qnil
;
5694 DEFVAR_BOOL ("display-hourglass", &display_hourglass_p
,
5695 doc
: /* Non-zero means Emacs displays an hourglass pointer on window systems. */);
5696 display_hourglass_p
= 1;
5698 DEFVAR_LISP ("hourglass-delay", &Vhourglass_delay
,
5699 doc
: /* *Seconds to wait before displaying an hourglass pointer.
5700 Value must be an integer or float. */);
5701 Vhourglass_delay
= make_number (DEFAULT_HOURGLASS_DELAY
);
5703 #if 0 /* This doesn't really do anything. */
5704 DEFVAR_LISP ("x-mode-pointer-shape", &Vx_mode_pointer_shape
,
5705 doc
: /* The shape of the pointer when over the mode line.
5706 This variable takes effect when you create a new frame
5707 or when you set the mouse color. */);
5709 Vx_mode_pointer_shape
= Qnil
;
5711 DEFVAR_LISP ("x-sensitive-text-pointer-shape",
5712 &Vx_sensitive_text_pointer_shape
,
5713 doc
: /* The shape of the pointer when over mouse-sensitive text.
5714 This variable takes effect when you create a new frame
5715 or when you set the mouse color. */);
5716 Vx_sensitive_text_pointer_shape
= Qnil
;
5718 DEFVAR_LISP ("x-window-horizontal-drag-cursor",
5719 &Vx_window_horizontal_drag_shape
,
5720 doc
: /* Pointer shape to use for indicating a window can be dragged horizontally.
5721 This variable takes effect when you create a new frame
5722 or when you set the mouse color. */);
5723 Vx_window_horizontal_drag_shape
= Qnil
;
5725 DEFVAR_LISP ("x-cursor-fore-pixel", &Vx_cursor_fore_pixel
,
5726 doc
: /* A string indicating the foreground color of the cursor box. */);
5727 Vx_cursor_fore_pixel
= Qnil
;
5729 DEFVAR_LISP ("x-max-tooltip-size", &Vx_max_tooltip_size
,
5730 doc
: /* Maximum size for tooltips. Value is a pair (COLUMNS . ROWS).
5731 Text larger than this is clipped. */);
5732 Vx_max_tooltip_size
= Fcons (make_number (80), make_number (40));
5734 DEFVAR_LISP ("x-no-window-manager", &Vx_no_window_manager
,
5735 doc
: /* Non-nil if no X window manager is in use.
5736 Emacs doesn't try to figure this out; this is always nil
5737 unless you set it to something else. */);
5738 /* We don't have any way to find this out, so set it to nil
5739 and maybe the user would like to set it to t. */
5740 Vx_no_window_manager
= Qnil
;
5742 DEFVAR_LISP ("x-pixel-size-width-font-regexp",
5743 &Vx_pixel_size_width_font_regexp
,
5744 doc
: /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'.
5746 Since Emacs gets width of a font matching with this regexp from
5747 PIXEL_SIZE field of the name, font finding mechanism gets faster for
5748 such a font. This is especially effective for such large fonts as
5749 Chinese, Japanese, and Korean. */);
5750 Vx_pixel_size_width_font_regexp
= Qnil
;
5752 /* This is not ifdef:ed, so other builds than GTK can customize it. */
5753 DEFVAR_BOOL ("x-use-old-gtk-file-dialog", &x_use_old_gtk_file_dialog
,
5754 doc
: /* *Non-nil means prompt with the old GTK file selection dialog.
5755 If nil or if the file selection dialog is not available, the new GTK file
5756 chooser is used instead. To turn off all file dialogs set the
5757 variable `use-file-dialog'. */);
5758 x_use_old_gtk_file_dialog
= 0;
5760 #ifdef USE_X_TOOLKIT
5761 Fprovide (intern ("x-toolkit"), Qnil
);
5763 Fprovide (intern ("motif"), Qnil
);
5765 DEFVAR_LISP ("motif-version-string", &Vmotif_version_string
,
5766 doc
: /* Version info for LessTif/Motif. */);
5767 Vmotif_version_string
= build_string (XmVERSION_STRING
);
5768 #endif /* USE_MOTIF */
5769 #endif /* USE_X_TOOLKIT */
5772 /* Provide x-toolkit also for GTK. Internally GTK does not use Xt so it
5773 is not an X toolkit in that sense (USE_X_TOOLKIT is not defined).
5774 But for a user it is a toolkit for X, and indeed, configure
5775 accepts --with-x-toolkit=gtk. */
5776 Fprovide (intern ("x-toolkit"), Qnil
);
5777 Fprovide (intern ("gtk"), Qnil
);
5779 DEFVAR_LISP ("gtk-version-string", &Vgtk_version_string
,
5780 doc
: /* Version info for GTK+. */);
5782 char gtk_version
[40];
5783 g_snprintf (gtk_version
, sizeof (gtk_version
), "%u.%u.%u",
5784 GTK_MAJOR_VERSION
, GTK_MINOR_VERSION
, GTK_MICRO_VERSION
);
5785 Vgtk_version_string
= build_string (gtk_version
);
5787 #endif /* USE_GTK */
5789 /* X window properties. */
5790 defsubr (&Sx_change_window_property
);
5791 defsubr (&Sx_delete_window_property
);
5792 defsubr (&Sx_window_property
);
5794 defsubr (&Sxw_display_color_p
);
5795 defsubr (&Sx_display_grayscale_p
);
5796 defsubr (&Sxw_color_defined_p
);
5797 defsubr (&Sxw_color_values
);
5798 defsubr (&Sx_server_max_request_size
);
5799 defsubr (&Sx_server_vendor
);
5800 defsubr (&Sx_server_version
);
5801 defsubr (&Sx_display_pixel_width
);
5802 defsubr (&Sx_display_pixel_height
);
5803 defsubr (&Sx_display_mm_width
);
5804 defsubr (&Sx_display_mm_height
);
5805 defsubr (&Sx_display_screens
);
5806 defsubr (&Sx_display_planes
);
5807 defsubr (&Sx_display_color_cells
);
5808 defsubr (&Sx_display_visual_class
);
5809 defsubr (&Sx_display_backing_store
);
5810 defsubr (&Sx_display_save_under
);
5811 defsubr (&Sx_create_frame
);
5812 defsubr (&Sx_open_connection
);
5813 defsubr (&Sx_close_connection
);
5814 defsubr (&Sx_display_list
);
5815 defsubr (&Sx_synchronize
);
5816 defsubr (&Sx_focus_frame
);
5817 defsubr (&Sx_backspace_delete_keys_p
);
5819 /* Setting callback functions for fontset handler. */
5820 get_font_info_func
= x_get_font_info
;
5822 #if 0 /* This function pointer doesn't seem to be used anywhere.
5823 And the pointer assigned has the wrong type, anyway. */
5824 list_fonts_func
= x_list_fonts
;
5827 load_font_func
= x_load_font
;
5828 find_ccl_program_func
= x_find_ccl_program
;
5829 query_font_func
= x_query_font
;
5830 set_frame_fontset_func
= x_set_font
;
5831 check_window_system_func
= check_x
;
5833 hourglass_atimer
= NULL
;
5834 hourglass_shown_p
= 0;
5836 defsubr (&Sx_show_tip
);
5837 defsubr (&Sx_hide_tip
);
5839 staticpro (&tip_timer
);
5841 staticpro (&tip_frame
);
5843 last_show_tip_args
= Qnil
;
5844 staticpro (&last_show_tip_args
);
5846 #if defined (USE_MOTIF) || defined (USE_GTK)
5847 defsubr (&Sx_file_dialog
);
5851 #endif /* HAVE_X_WINDOWS */
5853 /* arch-tag: 55040d02-5485-4d58-8b22-95a7a05f3288
5854 (do not change this comment) */