1 /* Functions for the X window system.
2 Copyright (C) 1989, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000,
3 2001, 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc.
5 This file is part of GNU Emacs.
7 GNU Emacs is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 2, or (at your option)
12 GNU Emacs is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with GNU Emacs; see the file COPYING. If not, write to
19 the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
20 Boston, MA 02110-1301, USA. */
30 /* This makes the fields of a Display accessible, in Xlib header files. */
32 #define XLIB_ILLEGAL_ACCESS
39 #include "intervals.h"
40 #include "dispextern.h"
42 #include "blockinput.h"
48 #include "termhooks.h"
54 #include <sys/types.h>
58 #if 1 /* Used to be #ifdef EMACS_BITMAP_FILES, but this should always work. */
59 #include "bitmaps/gray.xbm"
61 #include <X11/bitmaps/gray>
64 #include "[.bitmaps]gray.xbm"
72 #include <X11/Shell.h>
75 #include <X11/Xaw/Paned.h>
76 #include <X11/Xaw/Label.h>
77 #endif /* USE_MOTIF */
80 #undef USG /* ####KLUDGE for Solaris 2.2 and up */
89 #include "../lwlib/lwlib.h"
93 #include <Xm/DialogS.h>
94 #include <Xm/FileSB.h>
97 /* Do the EDITRES protocol if running X11R5
98 Exception: HP-UX (at least version A.09.05) has X11R5 without EditRes */
100 #if (XtSpecificationRelease >= 5) && !defined(NO_EDITRES)
102 extern void _XEditResCheckMessages ();
103 #endif /* R5 + Athena */
105 /* Unique id counter for widgets created by the Lucid Widget Library. */
107 extern LWLIB_ID widget_id_tick
;
110 /* This is part of a kludge--see lwlib/xlwmenu.c. */
111 extern XFontStruct
*xlwmenu_default_font
;
114 extern void free_frame_menubar ();
115 extern double atof ();
119 /* LessTif/Motif version info. */
121 static Lisp_Object Vmotif_version_string
;
123 #endif /* USE_MOTIF */
125 #endif /* USE_X_TOOLKIT */
129 /* GTK+ version info */
131 static Lisp_Object Vgtk_version_string
;
136 #define MAXREQUEST(dpy) (XMaxRequestSize (dpy))
138 #define MAXREQUEST(dpy) ((dpy)->max_request_size)
141 /* The gray bitmap `bitmaps/gray'. This is done because xterm.c uses
142 it, and including `bitmaps/gray' more than once is a problem when
143 config.h defines `static' as an empty replacement string. */
145 int gray_bitmap_width
= gray_width
;
146 int gray_bitmap_height
= gray_height
;
147 char *gray_bitmap_bits
= gray_bits
;
149 /* Non-zero means we're allowed to display an hourglass cursor. */
151 int display_hourglass_p
;
153 /* Non-zero means prompt with the old GTK file selection dialog. */
155 int x_use_old_gtk_file_dialog
;
157 /* If non-zero, by default show hidden files in the GTK file chooser. */
159 int x_gtk_show_hidden_files
;
161 /* If non-zero, don't collapse to tool bar when it is detached. */
163 int x_gtk_whole_detached_tool_bar
;
165 /* The background and shape of the mouse pointer, and shape when not
166 over text or in the modeline. */
168 Lisp_Object Vx_pointer_shape
, Vx_nontext_pointer_shape
, Vx_mode_pointer_shape
;
169 Lisp_Object Vx_hourglass_pointer_shape
;
171 /* The shape when over mouse-sensitive text. */
173 Lisp_Object Vx_sensitive_text_pointer_shape
;
175 /* If non-nil, the pointer shape to indicate that windows can be
176 dragged horizontally. */
178 Lisp_Object Vx_window_horizontal_drag_shape
;
180 /* Color of chars displayed in cursor box. */
182 Lisp_Object Vx_cursor_fore_pixel
;
184 /* Nonzero if using X. */
188 /* Non nil if no window manager is in use. */
190 Lisp_Object Vx_no_window_manager
;
192 /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'. */
194 Lisp_Object Vx_pixel_size_width_font_regexp
;
197 Lisp_Object Qsuppress_icon
;
198 Lisp_Object Qundefined_color
;
199 Lisp_Object Qcompound_text
, Qcancel_timer
;
203 extern Lisp_Object Vwindow_system_version
;
205 /* The below are defined in frame.c. */
208 int image_cache_refcount
, dpyinfo_refcount
;
213 /* Error if we are not connected to X. */
219 error ("X windows are not in use or not initialized");
222 /* Nonzero if we can use mouse menus.
223 You should not call this unless HAVE_MENUS is defined. */
231 /* Extract a frame as a FRAME_PTR, defaulting to the selected frame
232 and checking validity for X. */
235 check_x_frame (frame
)
241 frame
= selected_frame
;
242 CHECK_LIVE_FRAME (frame
);
245 error ("Non-X frame used");
249 /* Let the user specify an X display with a frame.
250 nil stands for the selected frame--or, if that is not an X frame,
251 the first X display on the list. */
253 struct x_display_info
*
254 check_x_display_info (frame
)
257 struct x_display_info
*dpyinfo
= NULL
;
261 struct frame
*sf
= XFRAME (selected_frame
);
263 if (FRAME_X_P (sf
) && FRAME_LIVE_P (sf
))
264 dpyinfo
= FRAME_X_DISPLAY_INFO (sf
);
265 else if (x_display_list
!= 0)
266 dpyinfo
= x_display_list
;
268 error ("X windows are not in use or not initialized");
270 else if (STRINGP (frame
))
271 dpyinfo
= x_display_info_for_name (frame
);
274 FRAME_PTR f
= check_x_frame (frame
);
275 dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
282 /* Return the Emacs frame-object corresponding to an X window.
283 It could be the frame's main window or an icon window. */
285 /* This function can be called during GC, so use GC_xxx type test macros. */
288 x_window_to_frame (dpyinfo
, wdesc
)
289 struct x_display_info
*dpyinfo
;
292 Lisp_Object tail
, frame
;
295 if (wdesc
== None
) return 0;
297 for (tail
= Vframe_list
; GC_CONSP (tail
); tail
= XCDR (tail
))
300 if (!GC_FRAMEP (frame
))
303 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
305 if (f
->output_data
.x
->hourglass_window
== wdesc
)
308 if ((f
->output_data
.x
->edit_widget
309 && XtWindow (f
->output_data
.x
->edit_widget
) == wdesc
)
310 /* A tooltip frame? */
311 || (!f
->output_data
.x
->edit_widget
312 && FRAME_X_WINDOW (f
) == wdesc
)
313 || f
->output_data
.x
->icon_desc
== wdesc
)
315 #else /* not USE_X_TOOLKIT */
317 if (f
->output_data
.x
->edit_widget
)
319 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
320 struct x_output
*x
= f
->output_data
.x
;
321 if (gwdesc
!= 0 && gwdesc
== x
->edit_widget
)
325 if (FRAME_X_WINDOW (f
) == wdesc
326 || f
->output_data
.x
->icon_desc
== wdesc
)
328 #endif /* not USE_X_TOOLKIT */
333 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
334 /* Like x_window_to_frame but also compares the window with the widget's
338 x_any_window_to_frame (dpyinfo
, wdesc
)
339 struct x_display_info
*dpyinfo
;
342 Lisp_Object tail
, frame
;
343 struct frame
*f
, *found
;
346 if (wdesc
== None
) return NULL
;
349 for (tail
= Vframe_list
; GC_CONSP (tail
) && !found
; tail
= XCDR (tail
))
352 if (!GC_FRAMEP (frame
))
356 if (FRAME_X_P (f
) && FRAME_X_DISPLAY_INFO (f
) == dpyinfo
)
358 /* This frame matches if the window is any of its widgets. */
359 x
= f
->output_data
.x
;
360 if (x
->hourglass_window
== wdesc
)
365 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
367 && (gwdesc
== x
->widget
368 || gwdesc
== x
->edit_widget
369 || gwdesc
== x
->vbox_widget
370 || gwdesc
== x
->menubar_widget
))
373 if (wdesc
== XtWindow (x
->widget
)
374 || wdesc
== XtWindow (x
->column_widget
)
375 || wdesc
== XtWindow (x
->edit_widget
))
377 /* Match if the window is this frame's menubar. */
378 else if (lw_window_is_in_menubar (wdesc
, x
->menubar_widget
))
382 else if (FRAME_X_WINDOW (f
) == wdesc
)
383 /* A tooltip frame. */
391 /* Likewise, but exclude the menu bar widget. */
394 x_non_menubar_window_to_frame (dpyinfo
, wdesc
)
395 struct x_display_info
*dpyinfo
;
398 Lisp_Object tail
, frame
;
402 if (wdesc
== None
) return 0;
404 for (tail
= Vframe_list
; GC_CONSP (tail
); tail
= XCDR (tail
))
407 if (!GC_FRAMEP (frame
))
410 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
412 x
= f
->output_data
.x
;
413 /* This frame matches if the window is any of its widgets. */
414 if (x
->hourglass_window
== wdesc
)
419 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
421 && (gwdesc
== x
->widget
422 || gwdesc
== x
->edit_widget
423 || gwdesc
== x
->vbox_widget
))
426 if (wdesc
== XtWindow (x
->widget
)
427 || wdesc
== XtWindow (x
->column_widget
)
428 || wdesc
== XtWindow (x
->edit_widget
))
432 else if (FRAME_X_WINDOW (f
) == wdesc
)
433 /* A tooltip frame. */
439 /* Likewise, but consider only the menu bar widget. */
442 x_menubar_window_to_frame (dpyinfo
, wdesc
)
443 struct x_display_info
*dpyinfo
;
446 Lisp_Object tail
, frame
;
450 if (wdesc
== None
) return 0;
452 for (tail
= Vframe_list
; GC_CONSP (tail
); tail
= XCDR (tail
))
455 if (!GC_FRAMEP (frame
))
458 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
460 x
= f
->output_data
.x
;
461 /* Match if the window is this frame's menubar. */
463 if (x
->menubar_widget
)
465 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
470 && (gwdesc
== x
->menubar_widget
471 || gtk_widget_get_parent (gwdesc
) == x
->menubar_widget
))
477 if (x
->menubar_widget
478 && lw_window_is_in_menubar (wdesc
, x
->menubar_widget
))
485 /* Return the frame whose principal (outermost) window is WDESC.
486 If WDESC is some other (smaller) window, we return 0. */
489 x_top_window_to_frame (dpyinfo
, wdesc
)
490 struct x_display_info
*dpyinfo
;
493 Lisp_Object tail
, frame
;
497 if (wdesc
== None
) return 0;
499 for (tail
= Vframe_list
; GC_CONSP (tail
); tail
= XCDR (tail
))
502 if (!GC_FRAMEP (frame
))
505 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
507 x
= f
->output_data
.x
;
511 /* This frame matches if the window is its topmost widget. */
513 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
514 if (gwdesc
== x
->widget
)
517 if (wdesc
== XtWindow (x
->widget
))
519 #if 0 /* I don't know why it did this,
520 but it seems logically wrong,
521 and it causes trouble for MapNotify events. */
522 /* Match if the window is this frame's menubar. */
523 if (x
->menubar_widget
524 && wdesc
== XtWindow (x
->menubar_widget
))
529 else if (FRAME_X_WINDOW (f
) == wdesc
)
535 #endif /* USE_X_TOOLKIT || USE_GTK */
539 static Lisp_Object unwind_create_frame
P_ ((Lisp_Object
));
540 static Lisp_Object unwind_create_tip_frame
P_ ((Lisp_Object
));
542 void x_set_foreground_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
543 static void x_set_wait_for_wm
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
544 void x_set_background_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
545 void x_set_mouse_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
546 void x_set_cursor_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
547 void x_set_border_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
548 void x_set_cursor_type
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
549 void x_set_icon_type
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
550 void x_set_icon_name
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
551 void x_explicitly_set_name
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
552 void x_set_menu_bar_lines
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
553 void x_set_title
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
554 void x_set_tool_bar_lines
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
555 void x_set_scroll_bar_foreground
P_ ((struct frame
*, Lisp_Object
,
557 void x_set_scroll_bar_background
P_ ((struct frame
*, Lisp_Object
,
559 static Lisp_Object x_default_scroll_bar_color_parameter
P_ ((struct frame
*,
566 /* Store the screen positions of frame F into XPTR and YPTR.
567 These are the positions of the containing window manager window,
568 not Emacs's own window. */
571 x_real_positions (f
, xptr
, yptr
)
575 int win_x
, win_y
, outer_x
, outer_y
;
576 int real_x
= 0, real_y
= 0;
578 Window win
= f
->output_data
.x
->parent_desc
;
582 x_catch_errors (FRAME_X_DISPLAY (f
));
584 if (win
== FRAME_X_DISPLAY_INFO (f
)->root_window
)
585 win
= FRAME_OUTER_WINDOW (f
);
587 /* This loop traverses up the containment tree until we hit the root
588 window. Window managers may intersect many windows between our window
589 and the root window. The window we find just before the root window
590 should be the outer WM window. */
593 Window wm_window
, rootw
;
594 Window
*tmp_children
;
595 unsigned int tmp_nchildren
;
598 success
= XQueryTree (FRAME_X_DISPLAY (f
), win
, &rootw
,
599 &wm_window
, &tmp_children
, &tmp_nchildren
);
601 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
603 /* Don't free tmp_children if XQueryTree failed. */
607 XFree ((char *) tmp_children
);
609 if (wm_window
== rootw
|| had_errors
)
620 /* Get the real coordinates for the WM window upper left corner */
621 XGetGeometry (FRAME_X_DISPLAY (f
), win
,
622 &rootw
, &real_x
, &real_y
, &ign
, &ign
, &ign
, &ign
);
624 /* Translate real coordinates to coordinates relative to our
625 window. For our window, the upper left corner is 0, 0.
626 Since the upper left corner of the WM window is outside
627 our window, win_x and win_y will be negative:
629 ------------------ ---> x
631 | ----------------- v y
634 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
636 /* From-window, to-window. */
637 FRAME_X_DISPLAY_INFO (f
)->root_window
,
640 /* From-position, to-position. */
641 real_x
, real_y
, &win_x
, &win_y
,
646 if (FRAME_X_WINDOW (f
) == FRAME_OUTER_WINDOW (f
))
653 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
655 /* From-window, to-window. */
656 FRAME_X_DISPLAY_INFO (f
)->root_window
,
657 FRAME_OUTER_WINDOW (f
),
659 /* From-position, to-position. */
660 real_x
, real_y
, &outer_x
, &outer_y
,
666 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
673 if (had_errors
) return;
675 f
->x_pixels_diff
= -win_x
;
676 f
->y_pixels_diff
= -win_y
;
678 FRAME_X_OUTPUT (f
)->x_pixels_outer_diff
= -outer_x
;
679 FRAME_X_OUTPUT (f
)->y_pixels_outer_diff
= -outer_y
;
688 /* Gamma-correct COLOR on frame F. */
691 gamma_correct (f
, color
)
697 color
->red
= pow (color
->red
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
698 color
->green
= pow (color
->green
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
699 color
->blue
= pow (color
->blue
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
704 /* Decide if color named COLOR_NAME is valid for use on frame F. If
705 so, return the RGB values in COLOR. If ALLOC_P is non-zero,
706 allocate the color. Value is zero if COLOR_NAME is invalid, or
707 no color could be allocated. */
710 x_defined_color (f
, color_name
, color
, alloc_p
)
717 Display
*dpy
= FRAME_X_DISPLAY (f
);
718 Colormap cmap
= FRAME_X_COLORMAP (f
);
721 success_p
= XParseColor (dpy
, cmap
, color_name
, color
);
722 if (success_p
&& alloc_p
)
723 success_p
= x_alloc_nearest_color (f
, cmap
, color
);
730 /* Return the pixel color value for color COLOR_NAME on frame F. If F
731 is a monochrome frame, return MONO_COLOR regardless of what ARG says.
732 Signal an error if color can't be allocated. */
735 x_decode_color (f
, color_name
, mono_color
)
737 Lisp_Object color_name
;
742 CHECK_STRING (color_name
);
744 #if 0 /* Don't do this. It's wrong when we're not using the default
745 colormap, it makes freeing difficult, and it's probably not
746 an important optimization. */
747 if (strcmp (SDATA (color_name
), "black") == 0)
748 return BLACK_PIX_DEFAULT (f
);
749 else if (strcmp (SDATA (color_name
), "white") == 0)
750 return WHITE_PIX_DEFAULT (f
);
753 /* Return MONO_COLOR for monochrome frames. */
754 if (FRAME_X_DISPLAY_INFO (f
)->n_planes
== 1)
757 /* x_defined_color is responsible for coping with failures
758 by looking for a near-miss. */
759 if (x_defined_color (f
, SDATA (color_name
), &cdef
, 1))
762 signal_error ("Undefined color", color_name
);
767 /* Change the `wait-for-wm' frame parameter of frame F. OLD_VALUE is
768 the previous value of that parameter, NEW_VALUE is the new value.
769 See also the comment of wait_for_wm in struct x_output. */
772 x_set_wait_for_wm (f
, new_value
, old_value
)
774 Lisp_Object new_value
, old_value
;
776 f
->output_data
.x
->wait_for_wm
= !NILP (new_value
);
781 /* Set icon from FILE for frame F. By using GTK functions the icon
782 may be any format that GdkPixbuf knows about, i.e. not just bitmaps. */
785 xg_set_icon (f
, file
)
792 found
= x_find_image_file (file
);
798 char *filename
= (char *) SDATA (found
);
801 pixbuf
= gdk_pixbuf_new_from_file (filename
, &err
);
805 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
807 g_object_unref (pixbuf
);
821 xg_set_icon_from_xpm_data (f
, data
)
826 GdkPixbuf
*pixbuf
= gdk_pixbuf_new_from_xpm_data ((const char **) data
);
831 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)), pixbuf
);
832 g_object_unref (pixbuf
);
838 /* Functions called only from `x_set_frame_param'
839 to set individual parameters.
841 If FRAME_X_WINDOW (f) is 0,
842 the frame is being created and its X-window does not exist yet.
843 In that case, just record the parameter's new value
844 in the standard place; do not attempt to change the window. */
847 x_set_foreground_color (f
, arg
, oldval
)
849 Lisp_Object arg
, oldval
;
851 struct x_output
*x
= f
->output_data
.x
;
852 unsigned long fg
, old_fg
;
854 fg
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
855 old_fg
= x
->foreground_pixel
;
856 x
->foreground_pixel
= fg
;
858 if (FRAME_X_WINDOW (f
) != 0)
860 Display
*dpy
= FRAME_X_DISPLAY (f
);
863 XSetForeground (dpy
, x
->normal_gc
, fg
);
864 XSetBackground (dpy
, x
->reverse_gc
, fg
);
866 if (x
->cursor_pixel
== old_fg
)
868 unload_color (f
, x
->cursor_pixel
);
869 x
->cursor_pixel
= x_copy_color (f
, fg
);
870 XSetBackground (dpy
, x
->cursor_gc
, x
->cursor_pixel
);
875 update_face_from_frame_parameter (f
, Qforeground_color
, arg
);
877 if (FRAME_VISIBLE_P (f
))
881 unload_color (f
, old_fg
);
885 x_set_background_color (f
, arg
, oldval
)
887 Lisp_Object arg
, oldval
;
889 struct x_output
*x
= f
->output_data
.x
;
892 bg
= x_decode_color (f
, arg
, WHITE_PIX_DEFAULT (f
));
893 unload_color (f
, x
->background_pixel
);
894 x
->background_pixel
= bg
;
896 if (FRAME_X_WINDOW (f
) != 0)
898 Display
*dpy
= FRAME_X_DISPLAY (f
);
901 XSetBackground (dpy
, x
->normal_gc
, bg
);
902 XSetForeground (dpy
, x
->reverse_gc
, bg
);
903 XSetWindowBackground (dpy
, FRAME_X_WINDOW (f
), bg
);
904 XSetForeground (dpy
, x
->cursor_gc
, bg
);
907 xg_set_background_color (f
, bg
);
910 #ifndef USE_TOOLKIT_SCROLL_BARS /* Turns out to be annoying with
911 toolkit scroll bars. */
914 for (bar
= FRAME_SCROLL_BARS (f
);
916 bar
= XSCROLL_BAR (bar
)->next
)
918 Window window
= SCROLL_BAR_X_WINDOW (XSCROLL_BAR (bar
));
919 XSetWindowBackground (dpy
, window
, bg
);
922 #endif /* USE_TOOLKIT_SCROLL_BARS */
925 update_face_from_frame_parameter (f
, Qbackground_color
, arg
);
927 if (FRAME_VISIBLE_P (f
))
933 x_set_mouse_color (f
, arg
, oldval
)
935 Lisp_Object arg
, oldval
;
937 struct x_output
*x
= f
->output_data
.x
;
938 Display
*dpy
= FRAME_X_DISPLAY (f
);
939 Cursor cursor
, nontext_cursor
, mode_cursor
, hand_cursor
;
940 Cursor hourglass_cursor
, horizontal_drag_cursor
;
941 unsigned long pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
942 unsigned long mask_color
= x
->background_pixel
;
944 /* Don't let pointers be invisible. */
945 if (mask_color
== pixel
)
947 x_free_colors (f
, &pixel
, 1);
948 pixel
= x_copy_color (f
, x
->foreground_pixel
);
951 unload_color (f
, x
->mouse_pixel
);
952 x
->mouse_pixel
= pixel
;
956 /* It's not okay to crash if the user selects a screwy cursor. */
957 x_catch_errors (dpy
);
959 if (!NILP (Vx_pointer_shape
))
961 CHECK_NUMBER (Vx_pointer_shape
);
962 cursor
= XCreateFontCursor (dpy
, XINT (Vx_pointer_shape
));
965 cursor
= XCreateFontCursor (dpy
, XC_xterm
);
966 x_check_errors (dpy
, "bad text pointer cursor: %s");
968 if (!NILP (Vx_nontext_pointer_shape
))
970 CHECK_NUMBER (Vx_nontext_pointer_shape
);
972 = XCreateFontCursor (dpy
, XINT (Vx_nontext_pointer_shape
));
975 nontext_cursor
= XCreateFontCursor (dpy
, XC_left_ptr
);
976 x_check_errors (dpy
, "bad nontext pointer cursor: %s");
978 if (!NILP (Vx_hourglass_pointer_shape
))
980 CHECK_NUMBER (Vx_hourglass_pointer_shape
);
982 = XCreateFontCursor (dpy
, XINT (Vx_hourglass_pointer_shape
));
985 hourglass_cursor
= XCreateFontCursor (dpy
, XC_watch
);
986 x_check_errors (dpy
, "bad hourglass pointer cursor: %s");
988 if (!NILP (Vx_mode_pointer_shape
))
990 CHECK_NUMBER (Vx_mode_pointer_shape
);
991 mode_cursor
= XCreateFontCursor (dpy
, XINT (Vx_mode_pointer_shape
));
994 mode_cursor
= XCreateFontCursor (dpy
, XC_xterm
);
995 x_check_errors (dpy
, "bad modeline pointer cursor: %s");
997 if (!NILP (Vx_sensitive_text_pointer_shape
))
999 CHECK_NUMBER (Vx_sensitive_text_pointer_shape
);
1001 = XCreateFontCursor (dpy
, XINT (Vx_sensitive_text_pointer_shape
));
1004 hand_cursor
= XCreateFontCursor (dpy
, XC_hand2
);
1006 if (!NILP (Vx_window_horizontal_drag_shape
))
1008 CHECK_NUMBER (Vx_window_horizontal_drag_shape
);
1009 horizontal_drag_cursor
1010 = XCreateFontCursor (dpy
, XINT (Vx_window_horizontal_drag_shape
));
1013 horizontal_drag_cursor
1014 = XCreateFontCursor (dpy
, XC_sb_h_double_arrow
);
1016 /* Check and report errors with the above calls. */
1017 x_check_errors (dpy
, "can't set cursor shape: %s");
1018 x_uncatch_errors ();
1021 XColor fore_color
, back_color
;
1023 fore_color
.pixel
= x
->mouse_pixel
;
1024 x_query_color (f
, &fore_color
);
1025 back_color
.pixel
= mask_color
;
1026 x_query_color (f
, &back_color
);
1028 XRecolorCursor (dpy
, cursor
, &fore_color
, &back_color
);
1029 XRecolorCursor (dpy
, nontext_cursor
, &fore_color
, &back_color
);
1030 XRecolorCursor (dpy
, mode_cursor
, &fore_color
, &back_color
);
1031 XRecolorCursor (dpy
, hand_cursor
, &fore_color
, &back_color
);
1032 XRecolorCursor (dpy
, hourglass_cursor
, &fore_color
, &back_color
);
1033 XRecolorCursor (dpy
, horizontal_drag_cursor
, &fore_color
, &back_color
);
1036 if (FRAME_X_WINDOW (f
) != 0)
1037 XDefineCursor (dpy
, FRAME_X_WINDOW (f
), cursor
);
1039 if (cursor
!= x
->text_cursor
1040 && x
->text_cursor
!= 0)
1041 XFreeCursor (dpy
, x
->text_cursor
);
1042 x
->text_cursor
= cursor
;
1044 if (nontext_cursor
!= x
->nontext_cursor
1045 && x
->nontext_cursor
!= 0)
1046 XFreeCursor (dpy
, x
->nontext_cursor
);
1047 x
->nontext_cursor
= nontext_cursor
;
1049 if (hourglass_cursor
!= x
->hourglass_cursor
1050 && x
->hourglass_cursor
!= 0)
1051 XFreeCursor (dpy
, x
->hourglass_cursor
);
1052 x
->hourglass_cursor
= hourglass_cursor
;
1054 if (mode_cursor
!= x
->modeline_cursor
1055 && x
->modeline_cursor
!= 0)
1056 XFreeCursor (dpy
, f
->output_data
.x
->modeline_cursor
);
1057 x
->modeline_cursor
= mode_cursor
;
1059 if (hand_cursor
!= x
->hand_cursor
1060 && x
->hand_cursor
!= 0)
1061 XFreeCursor (dpy
, x
->hand_cursor
);
1062 x
->hand_cursor
= hand_cursor
;
1064 if (horizontal_drag_cursor
!= x
->horizontal_drag_cursor
1065 && x
->horizontal_drag_cursor
!= 0)
1066 XFreeCursor (dpy
, x
->horizontal_drag_cursor
);
1067 x
->horizontal_drag_cursor
= horizontal_drag_cursor
;
1072 update_face_from_frame_parameter (f
, Qmouse_color
, arg
);
1076 x_set_cursor_color (f
, arg
, oldval
)
1078 Lisp_Object arg
, oldval
;
1080 unsigned long fore_pixel
, pixel
;
1081 int fore_pixel_allocated_p
= 0, pixel_allocated_p
= 0;
1082 struct x_output
*x
= f
->output_data
.x
;
1084 if (!NILP (Vx_cursor_fore_pixel
))
1086 fore_pixel
= x_decode_color (f
, Vx_cursor_fore_pixel
,
1087 WHITE_PIX_DEFAULT (f
));
1088 fore_pixel_allocated_p
= 1;
1091 fore_pixel
= x
->background_pixel
;
1093 pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1094 pixel_allocated_p
= 1;
1096 /* Make sure that the cursor color differs from the background color. */
1097 if (pixel
== x
->background_pixel
)
1099 if (pixel_allocated_p
)
1101 x_free_colors (f
, &pixel
, 1);
1102 pixel_allocated_p
= 0;
1105 pixel
= x
->mouse_pixel
;
1106 if (pixel
== fore_pixel
)
1108 if (fore_pixel_allocated_p
)
1110 x_free_colors (f
, &fore_pixel
, 1);
1111 fore_pixel_allocated_p
= 0;
1113 fore_pixel
= x
->background_pixel
;
1117 unload_color (f
, x
->cursor_foreground_pixel
);
1118 if (!fore_pixel_allocated_p
)
1119 fore_pixel
= x_copy_color (f
, fore_pixel
);
1120 x
->cursor_foreground_pixel
= fore_pixel
;
1122 unload_color (f
, x
->cursor_pixel
);
1123 if (!pixel_allocated_p
)
1124 pixel
= x_copy_color (f
, pixel
);
1125 x
->cursor_pixel
= pixel
;
1127 if (FRAME_X_WINDOW (f
) != 0)
1130 XSetBackground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, x
->cursor_pixel
);
1131 XSetForeground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, fore_pixel
);
1134 if (FRAME_VISIBLE_P (f
))
1136 x_update_cursor (f
, 0);
1137 x_update_cursor (f
, 1);
1141 update_face_from_frame_parameter (f
, Qcursor_color
, arg
);
1144 /* Set the border-color of frame F to pixel value PIX.
1145 Note that this does not fully take effect if done before
1146 F has an x-window. */
1149 x_set_border_pixel (f
, pix
)
1153 unload_color (f
, f
->output_data
.x
->border_pixel
);
1154 f
->output_data
.x
->border_pixel
= pix
;
1156 if (FRAME_X_WINDOW (f
) != 0 && f
->border_width
> 0)
1159 XSetWindowBorder (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1160 (unsigned long)pix
);
1163 if (FRAME_VISIBLE_P (f
))
1168 /* Set the border-color of frame F to value described by ARG.
1169 ARG can be a string naming a color.
1170 The border-color is used for the border that is drawn by the X server.
1171 Note that this does not fully take effect if done before
1172 F has an x-window; it must be redone when the window is created.
1174 Note: this is done in two routines because of the way X10 works.
1176 Note: under X11, this is normally the province of the window manager,
1177 and so emacs' border colors may be overridden. */
1180 x_set_border_color (f
, arg
, oldval
)
1182 Lisp_Object arg
, oldval
;
1187 pix
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1188 x_set_border_pixel (f
, pix
);
1189 update_face_from_frame_parameter (f
, Qborder_color
, arg
);
1194 x_set_cursor_type (f
, arg
, oldval
)
1196 Lisp_Object arg
, oldval
;
1198 set_frame_cursor_types (f
, arg
);
1200 /* Make sure the cursor gets redrawn. */
1201 cursor_type_changed
= 1;
1205 x_set_icon_type (f
, arg
, oldval
)
1207 Lisp_Object arg
, oldval
;
1213 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1216 else if (!STRINGP (oldval
) && EQ (oldval
, Qnil
) == EQ (arg
, Qnil
))
1221 result
= x_text_icon (f
,
1222 (char *) SDATA ((!NILP (f
->icon_name
)
1226 result
= x_bitmap_icon (f
, arg
);
1231 error ("No icon window available");
1234 XFlush (FRAME_X_DISPLAY (f
));
1239 x_set_icon_name (f
, arg
, oldval
)
1241 Lisp_Object arg
, oldval
;
1247 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1250 else if (!NILP (arg
) || NILP (oldval
))
1255 if (f
->output_data
.x
->icon_bitmap
!= 0)
1260 result
= x_text_icon (f
,
1261 (char *) SDATA ((!NILP (f
->icon_name
)
1270 error ("No icon window available");
1273 XFlush (FRAME_X_DISPLAY (f
));
1279 x_set_menu_bar_lines (f
, value
, oldval
)
1281 Lisp_Object value
, oldval
;
1284 #if ! defined (USE_X_TOOLKIT) && ! defined (USE_GTK)
1285 int olines
= FRAME_MENU_BAR_LINES (f
);
1288 /* Right now, menu bars don't work properly in minibuf-only frames;
1289 most of the commands try to apply themselves to the minibuffer
1290 frame itself, and get an error because you can't switch buffers
1291 in or split the minibuffer window. */
1292 if (FRAME_MINIBUF_ONLY_P (f
))
1295 if (INTEGERP (value
))
1296 nlines
= XINT (value
);
1300 /* Make sure we redisplay all windows in this frame. */
1301 windows_or_buffers_changed
++;
1303 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
1304 FRAME_MENU_BAR_LINES (f
) = 0;
1307 FRAME_EXTERNAL_MENU_BAR (f
) = 1;
1308 if (FRAME_X_P (f
) && f
->output_data
.x
->menubar_widget
== 0)
1309 /* Make sure next redisplay shows the menu bar. */
1310 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= Qt
;
1314 if (FRAME_EXTERNAL_MENU_BAR (f
) == 1)
1315 free_frame_menubar (f
);
1316 FRAME_EXTERNAL_MENU_BAR (f
) = 0;
1318 f
->output_data
.x
->menubar_widget
= 0;
1320 #else /* not USE_X_TOOLKIT && not USE_GTK */
1321 FRAME_MENU_BAR_LINES (f
) = nlines
;
1322 change_window_heights (f
->root_window
, nlines
- olines
);
1323 #endif /* not USE_X_TOOLKIT */
1328 /* Set the number of lines used for the tool bar of frame F to VALUE.
1329 VALUE not an integer, or < 0 means set the lines to zero. OLDVAL
1330 is the old number of tool bar lines. This function changes the
1331 height of all windows on frame F to match the new tool bar height.
1332 The frame's height doesn't change. */
1335 x_set_tool_bar_lines (f
, value
, oldval
)
1337 Lisp_Object value
, oldval
;
1339 int delta
, nlines
, root_height
;
1340 Lisp_Object root_window
;
1342 /* Treat tool bars like menu bars. */
1343 if (FRAME_MINIBUF_ONLY_P (f
))
1346 /* Use VALUE only if an integer >= 0. */
1347 if (INTEGERP (value
) && XINT (value
) >= 0)
1348 nlines
= XFASTINT (value
);
1353 FRAME_TOOL_BAR_LINES (f
) = 0;
1356 FRAME_EXTERNAL_TOOL_BAR (f
) = 1;
1357 if (FRAME_X_P (f
) && f
->output_data
.x
->toolbar_widget
== 0)
1358 /* Make sure next redisplay shows the tool bar. */
1359 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= Qt
;
1360 update_frame_tool_bar (f
);
1364 if (FRAME_EXTERNAL_TOOL_BAR (f
))
1365 free_frame_tool_bar (f
);
1366 FRAME_EXTERNAL_TOOL_BAR (f
) = 0;
1372 /* Make sure we redisplay all windows in this frame. */
1373 ++windows_or_buffers_changed
;
1375 delta
= nlines
- FRAME_TOOL_BAR_LINES (f
);
1377 /* Don't resize the tool-bar to more than we have room for. */
1378 root_window
= FRAME_ROOT_WINDOW (f
);
1379 root_height
= WINDOW_TOTAL_LINES (XWINDOW (root_window
));
1380 if (root_height
- delta
< 1)
1382 delta
= root_height
- 1;
1383 nlines
= FRAME_TOOL_BAR_LINES (f
) + delta
;
1386 FRAME_TOOL_BAR_LINES (f
) = nlines
;
1387 change_window_heights (root_window
, delta
);
1390 /* We also have to make sure that the internal border at the top of
1391 the frame, below the menu bar or tool bar, is redrawn when the
1392 tool bar disappears. This is so because the internal border is
1393 below the tool bar if one is displayed, but is below the menu bar
1394 if there isn't a tool bar. The tool bar draws into the area
1395 below the menu bar. */
1396 if (FRAME_X_WINDOW (f
) && FRAME_TOOL_BAR_LINES (f
) == 0)
1400 clear_current_matrices (f
);
1401 updating_frame
= NULL
;
1404 /* If the tool bar gets smaller, the internal border below it
1405 has to be cleared. It was formerly part of the display
1406 of the larger tool bar, and updating windows won't clear it. */
1409 int height
= FRAME_INTERNAL_BORDER_WIDTH (f
);
1410 int width
= FRAME_PIXEL_WIDTH (f
);
1411 int y
= nlines
* FRAME_LINE_HEIGHT (f
);
1413 /* height can be zero here. */
1414 if (height
> 0 && width
> 0)
1417 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1418 0, y
, width
, height
, False
);
1422 if (WINDOWP (f
->tool_bar_window
))
1423 clear_glyph_matrix (XWINDOW (f
->tool_bar_window
)->current_matrix
);
1428 /* Set the foreground color for scroll bars on frame F to VALUE.
1429 VALUE should be a string, a color name. If it isn't a string or
1430 isn't a valid color name, do nothing. OLDVAL is the old value of
1431 the frame parameter. */
1434 x_set_scroll_bar_foreground (f
, value
, oldval
)
1436 Lisp_Object value
, oldval
;
1438 unsigned long pixel
;
1440 if (STRINGP (value
))
1441 pixel
= x_decode_color (f
, value
, BLACK_PIX_DEFAULT (f
));
1445 if (f
->output_data
.x
->scroll_bar_foreground_pixel
!= -1)
1446 unload_color (f
, f
->output_data
.x
->scroll_bar_foreground_pixel
);
1448 f
->output_data
.x
->scroll_bar_foreground_pixel
= pixel
;
1449 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1451 /* Remove all scroll bars because they have wrong colors. */
1452 if (condemn_scroll_bars_hook
)
1453 (*condemn_scroll_bars_hook
) (f
);
1454 if (judge_scroll_bars_hook
)
1455 (*judge_scroll_bars_hook
) (f
);
1457 update_face_from_frame_parameter (f
, Qscroll_bar_foreground
, value
);
1463 /* Set the background color for scroll bars on frame F to VALUE VALUE
1464 should be a string, a color name. If it isn't a string or isn't a
1465 valid color name, do nothing. OLDVAL is the old value of the frame
1469 x_set_scroll_bar_background (f
, value
, oldval
)
1471 Lisp_Object value
, oldval
;
1473 unsigned long pixel
;
1475 if (STRINGP (value
))
1476 pixel
= x_decode_color (f
, value
, WHITE_PIX_DEFAULT (f
));
1480 if (f
->output_data
.x
->scroll_bar_background_pixel
!= -1)
1481 unload_color (f
, f
->output_data
.x
->scroll_bar_background_pixel
);
1483 #ifdef USE_TOOLKIT_SCROLL_BARS
1484 /* Scrollbar shadow colors. */
1485 if (f
->output_data
.x
->scroll_bar_top_shadow_pixel
!= -1)
1487 unload_color (f
, f
->output_data
.x
->scroll_bar_top_shadow_pixel
);
1488 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
1490 if (f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
!= -1)
1492 unload_color (f
, f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
);
1493 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
1495 #endif /* USE_TOOLKIT_SCROLL_BARS */
1497 f
->output_data
.x
->scroll_bar_background_pixel
= pixel
;
1498 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1500 /* Remove all scroll bars because they have wrong colors. */
1501 if (condemn_scroll_bars_hook
)
1502 (*condemn_scroll_bars_hook
) (f
);
1503 if (judge_scroll_bars_hook
)
1504 (*judge_scroll_bars_hook
) (f
);
1506 update_face_from_frame_parameter (f
, Qscroll_bar_background
, value
);
1512 /* Encode Lisp string STRING as a text in a format appropriate for
1513 XICCC (X Inter Client Communication Conventions).
1515 If STRING contains only ASCII characters, do no conversion and
1516 return the string data of STRING. Otherwise, encode the text by
1517 CODING_SYSTEM, and return a newly allocated memory area which
1518 should be freed by `xfree' by a caller.
1520 SELECTIONP non-zero means the string is being encoded for an X
1521 selection, so it is safe to run pre-write conversions (which
1524 Store the byte length of resulting text in *TEXT_BYTES.
1526 If the text contains only ASCII and Latin-1, store 1 in *STRING_P,
1527 which means that the `encoding' of the result can be `STRING'.
1528 Otherwise store 0 in *STRINGP, which means that the `encoding' of
1529 the result should be `COMPOUND_TEXT'. */
1531 static unsigned char *
1532 x_encode_text (string
, coding_system
, selectionp
, text_bytes
, stringp
, freep
)
1533 Lisp_Object string
, coding_system
;
1534 int *text_bytes
, *stringp
;
1538 unsigned char *str
= SDATA (string
);
1539 int chars
= SCHARS (string
);
1540 int bytes
= SBYTES (string
);
1544 struct coding_system coding
;
1545 extern Lisp_Object Qcompound_text_with_extensions
;
1547 charset_info
= find_charset_in_text (str
, chars
, bytes
, NULL
, Qnil
);
1548 if (charset_info
== 0)
1550 /* No multibyte character in OBJ. We need not encode it. */
1551 *text_bytes
= bytes
;
1557 setup_coding_system (coding_system
, &coding
);
1559 && SYMBOLP (coding
.pre_write_conversion
)
1560 && !NILP (Ffboundp (coding
.pre_write_conversion
)))
1562 string
= run_pre_post_conversion_on_str (string
, &coding
, 1);
1563 str
= SDATA (string
);
1564 chars
= SCHARS (string
);
1565 bytes
= SBYTES (string
);
1567 coding
.src_multibyte
= 1;
1568 coding
.dst_multibyte
= 0;
1569 coding
.mode
|= CODING_MODE_LAST_BLOCK
;
1570 if (coding
.type
== coding_type_iso2022
)
1571 coding
.flags
|= CODING_FLAG_ISO_SAFE
;
1572 /* We suppress producing escape sequences for composition. */
1573 coding
.composing
= COMPOSITION_DISABLED
;
1574 bufsize
= encoding_buffer_size (&coding
, bytes
);
1575 buf
= (unsigned char *) xmalloc (bufsize
);
1576 encode_coding (&coding
, str
, buf
, bytes
, bufsize
);
1577 *text_bytes
= coding
.produced
;
1578 *stringp
= (charset_info
== 1
1579 || (!EQ (coding_system
, Qcompound_text
)
1580 && !EQ (coding_system
, Qcompound_text_with_extensions
)));
1586 /* Set the WM name to NAME for frame F. Also set the icon name.
1587 If the frame already has an icon name, use that, otherwise set the
1588 icon name to NAME. */
1591 x_set_name_internal (f
, name
)
1595 if (FRAME_X_WINDOW (f
))
1600 XTextProperty text
, icon
;
1602 int do_free_icon_value
= 0, do_free_text_value
= 0;
1603 Lisp_Object coding_system
;
1605 coding_system
= Qcompound_text
;
1606 /* Note: Encoding strategy
1608 We encode NAME by compound-text and use "COMPOUND-TEXT" in
1609 text.encoding. But, there are non-internationalized window
1610 managers which don't support that encoding. So, if NAME
1611 contains only ASCII and 8859-1 characters, encode it by
1612 iso-latin-1, and use "STRING" in text.encoding hoping that
1613 such window managers at least analyze this format correctly,
1614 i.e. treat 8-bit bytes as 8859-1 characters.
1616 We may also be able to use "UTF8_STRING" in text.encoding
1617 in the future which can encode all Unicode characters.
1618 But, for the moment, there's no way to know that the
1619 current window manager supports it or not. */
1620 text
.value
= x_encode_text (name
, coding_system
, 0, &bytes
, &stringp
,
1621 &do_free_text_value
);
1622 text
.encoding
= (stringp
? XA_STRING
1623 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1625 text
.nitems
= bytes
;
1627 if (!STRINGP (f
->icon_name
))
1633 /* See the above comment "Note: Encoding strategy". */
1634 icon
.value
= x_encode_text (f
->icon_name
, coding_system
, 0,
1635 &bytes
, &stringp
, &do_free_icon_value
);
1636 icon
.encoding
= (stringp
? XA_STRING
1637 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1639 icon
.nitems
= bytes
;
1643 gtk_window_set_title (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
1644 (char *) SDATA (ENCODE_UTF_8 (name
)));
1645 #else /* not USE_GTK */
1646 XSetWMName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &text
);
1647 #endif /* not USE_GTK */
1649 XSetWMIconName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &icon
);
1651 if (do_free_icon_value
)
1653 if (do_free_text_value
)
1656 #else /* not HAVE_X11R4 */
1657 XSetIconName (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1659 XStoreName (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1661 #endif /* not HAVE_X11R4 */
1666 /* Change the name of frame F to NAME. If NAME is nil, set F's name to
1669 If EXPLICIT is non-zero, that indicates that lisp code is setting the
1670 name; if NAME is a string, set F's name to NAME and set
1671 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1673 If EXPLICIT is zero, that indicates that Emacs redisplay code is
1674 suggesting a new name, which lisp code should override; if
1675 F->explicit_name is set, ignore the new name; otherwise, set it. */
1678 x_set_name (f
, name
, explicit)
1683 /* Make sure that requests from lisp code override requests from
1684 Emacs redisplay code. */
1687 /* If we're switching from explicit to implicit, we had better
1688 update the mode lines and thereby update the title. */
1689 if (f
->explicit_name
&& NILP (name
))
1690 update_mode_lines
= 1;
1692 f
->explicit_name
= ! NILP (name
);
1694 else if (f
->explicit_name
)
1697 /* If NAME is nil, set the name to the x_id_name. */
1700 /* Check for no change needed in this very common case
1701 before we do any consing. */
1702 if (!strcmp (FRAME_X_DISPLAY_INFO (f
)->x_id_name
,
1705 name
= build_string (FRAME_X_DISPLAY_INFO (f
)->x_id_name
);
1708 CHECK_STRING (name
);
1710 /* Don't change the name if it's already NAME. */
1711 if (! NILP (Fstring_equal (name
, f
->name
)))
1716 /* For setting the frame title, the title parameter should override
1717 the name parameter. */
1718 if (! NILP (f
->title
))
1721 x_set_name_internal (f
, name
);
1724 /* This function should be called when the user's lisp code has
1725 specified a name for the frame; the name will override any set by the
1728 x_explicitly_set_name (f
, arg
, oldval
)
1730 Lisp_Object arg
, oldval
;
1732 x_set_name (f
, arg
, 1);
1735 /* This function should be called by Emacs redisplay code to set the
1736 name; names set this way will never override names set by the user's
1739 x_implicitly_set_name (f
, arg
, oldval
)
1741 Lisp_Object arg
, oldval
;
1743 x_set_name (f
, arg
, 0);
1746 /* Change the title of frame F to NAME.
1747 If NAME is nil, use the frame name as the title.
1749 If EXPLICIT is non-zero, that indicates that lisp code is setting the
1750 name; if NAME is a string, set F's name to NAME and set
1751 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1753 If EXPLICIT is zero, that indicates that Emacs redisplay code is
1754 suggesting a new name, which lisp code should override; if
1755 F->explicit_name is set, ignore the new name; otherwise, set it. */
1758 x_set_title (f
, name
, old_name
)
1760 Lisp_Object name
, old_name
;
1762 /* Don't change the title if it's already NAME. */
1763 if (EQ (name
, f
->title
))
1766 update_mode_lines
= 1;
1773 CHECK_STRING (name
);
1775 x_set_name_internal (f
, name
);
1779 x_set_scroll_bar_default_width (f
)
1782 int wid
= FRAME_COLUMN_WIDTH (f
);
1784 #ifdef USE_TOOLKIT_SCROLL_BARS
1785 /* A minimum width of 14 doesn't look good for toolkit scroll bars. */
1786 int width
= 16 + 2 * VERTICAL_SCROLL_BAR_WIDTH_TRIM
;
1787 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (width
+ wid
- 1) / wid
;
1788 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = width
;
1790 /* Make the actual width at least 14 pixels and a multiple of a
1792 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (14 + wid
- 1) / wid
;
1794 /* Use all of that space (aside from required margins) for the
1796 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = 0;
1801 /* Record in frame F the specified or default value according to ALIST
1802 of the parameter named PROP (a Lisp symbol). If no value is
1803 specified for PROP, look for an X default for XPROP on the frame
1804 named NAME. If that is not found either, use the value DEFLT. */
1807 x_default_scroll_bar_color_parameter (f
, alist
, prop
, xprop
, xclass
,
1816 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
1819 tem
= x_get_arg (dpyinfo
, alist
, prop
, xprop
, xclass
, RES_TYPE_STRING
);
1820 if (EQ (tem
, Qunbound
))
1822 #ifdef USE_TOOLKIT_SCROLL_BARS
1824 /* See if an X resource for the scroll bar color has been
1826 tem
= display_x_get_resource (dpyinfo
,
1827 build_string (foreground_p
1831 build_string ("verticalScrollBar"),
1835 /* If nothing has been specified, scroll bars will use a
1836 toolkit-dependent default. Because these defaults are
1837 difficult to get at without actually creating a scroll
1838 bar, use nil to indicate that no color has been
1843 #else /* not USE_TOOLKIT_SCROLL_BARS */
1847 #endif /* not USE_TOOLKIT_SCROLL_BARS */
1850 x_set_frame_parameters (f
, Fcons (Fcons (prop
, tem
), Qnil
));
1856 #if !defined (HAVE_X11R4) && !defined (HAVE_XSETWMPROTOCOLS)
1859 XSetWMProtocols (dpy
, w
, protocols
, count
)
1866 prop
= XInternAtom (dpy
, "WM_PROTOCOLS", False
);
1867 if (prop
== None
) return False
;
1868 XChangeProperty (dpy
, w
, prop
, XA_ATOM
, 32, PropModeReplace
,
1869 (unsigned char *) protocols
, count
);
1872 #endif /* not HAVE_X11R4 && not HAVE_XSETWMPROTOCOLS */
1874 #ifdef USE_X_TOOLKIT
1876 /* If the WM_PROTOCOLS property does not already contain WM_TAKE_FOCUS,
1877 WM_DELETE_WINDOW, and WM_SAVE_YOURSELF, then add them. (They may
1878 already be present because of the toolkit (Motif adds some of them,
1879 for example, but Xt doesn't). */
1882 hack_wm_protocols (f
, widget
)
1886 Display
*dpy
= XtDisplay (widget
);
1887 Window w
= XtWindow (widget
);
1888 int need_delete
= 1;
1895 unsigned char *catoms
;
1897 unsigned long nitems
= 0;
1898 unsigned long bytes_after
;
1900 if ((XGetWindowProperty (dpy
, w
,
1901 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1902 (long)0, (long)100, False
, XA_ATOM
,
1903 &type
, &format
, &nitems
, &bytes_after
,
1906 && format
== 32 && type
== XA_ATOM
)
1908 Atom
*atoms
= (Atom
*) catoms
;
1913 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
)
1915 else if (atoms
[nitems
]
1916 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
)
1918 else if (atoms
[nitems
]
1919 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
)
1930 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
1932 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
;
1934 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
1936 XChangeProperty (dpy
, w
, FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1937 XA_ATOM
, 32, PropModeAppend
,
1938 (unsigned char *) props
, count
);
1946 /* Support routines for XIC (X Input Context). */
1950 static XFontSet xic_create_xfontset
P_ ((struct frame
*, char *));
1951 static XIMStyle best_xim_style
P_ ((XIMStyles
*, XIMStyles
*));
1954 /* Supported XIM styles, ordered by preference. */
1956 static XIMStyle supported_xim_styles
[] =
1958 XIMPreeditPosition
| XIMStatusArea
,
1959 XIMPreeditPosition
| XIMStatusNothing
,
1960 XIMPreeditPosition
| XIMStatusNone
,
1961 XIMPreeditNothing
| XIMStatusArea
,
1962 XIMPreeditNothing
| XIMStatusNothing
,
1963 XIMPreeditNothing
| XIMStatusNone
,
1964 XIMPreeditNone
| XIMStatusArea
,
1965 XIMPreeditNone
| XIMStatusNothing
,
1966 XIMPreeditNone
| XIMStatusNone
,
1971 /* Create an X fontset on frame F with base font name BASE_FONTNAME. */
1973 char xic_defaut_fontset
[] = "-*-*-*-r-normal--14-*-*-*-*-*-*-*";
1975 /* Create an Xt fontset spec from the name of a base font.
1976 If `motif' is True use the Motif syntax. */
1978 xic_create_fontsetname (base_fontname
, motif
)
1979 char *base_fontname
;
1982 const char *sep
= motif
? ";" : ",";
1985 /* Make a fontset name from the base font name. */
1986 if (xic_defaut_fontset
== base_fontname
)
1987 { /* There is no base font name, use the default. */
1988 int len
= strlen (base_fontname
) + 2;
1989 fontsetname
= xmalloc (len
);
1990 bzero (fontsetname
, len
);
1991 strcpy (fontsetname
, base_fontname
);
1995 /* Make a fontset name from the base font name.
1996 The font set will be made of the following elements:
1998 - the base font where the charset spec is replaced by -*-*.
1999 - the same but with the family also replaced with -*-*-. */
2000 char *p
= base_fontname
;
2003 for (i
= 0; *p
; p
++)
2006 { /* As the font name doesn't conform to XLFD, we can't
2007 modify it to generalize it to allcs and allfamilies.
2008 Use the specified font plus the default. */
2009 int len
= strlen (base_fontname
) + strlen (xic_defaut_fontset
) + 3;
2010 fontsetname
= xmalloc (len
);
2011 bzero (fontsetname
, len
);
2012 strcpy (fontsetname
, base_fontname
);
2013 strcat (fontsetname
, sep
);
2014 strcat (fontsetname
, xic_defaut_fontset
);
2019 char *p1
= NULL
, *p2
= NULL
;
2020 char *font_allcs
= NULL
;
2021 char *font_allfamilies
= NULL
;
2022 char *font_all
= NULL
;
2023 char *allcs
= "*-*-*-*-*-*-*";
2024 char *allfamilies
= "-*-*-";
2025 char *all
= "*-*-*-*-";
2027 for (i
= 0, p
= base_fontname
; i
< 8; p
++)
2038 /* Build the font spec that matches all charsets. */
2039 len
= p
- base_fontname
+ strlen (allcs
) + 1;
2040 font_allcs
= (char *) alloca (len
);
2041 bzero (font_allcs
, len
);
2042 bcopy (base_fontname
, font_allcs
, p
- base_fontname
);
2043 strcat (font_allcs
, allcs
);
2045 /* Build the font spec that matches all families. */
2046 len
= p
- p1
+ strlen (allcs
) + strlen (allfamilies
) + 1;
2047 font_allfamilies
= (char *) alloca (len
);
2048 bzero (font_allfamilies
, len
);
2049 strcpy (font_allfamilies
, allfamilies
);
2050 bcopy (p1
, font_allfamilies
+ strlen (allfamilies
), p
- p1
);
2051 strcat (font_allfamilies
, allcs
);
2053 /* Build the font spec that matches all. */
2054 len
= p
- p2
+ strlen (allcs
) + strlen (all
) + strlen (allfamilies
) + 1;
2055 font_all
= (char *) alloca (len
);
2056 bzero (font_all
, len
);
2057 strcpy (font_all
, allfamilies
);
2058 strcat (font_all
, all
);
2059 bcopy (p2
, font_all
+ strlen (all
) + strlen (allfamilies
), p
- p2
);
2060 strcat (font_all
, allcs
);
2062 /* Build the actual font set name. */
2063 len
= strlen (base_fontname
) + strlen (font_allcs
)
2064 + strlen (font_allfamilies
) + strlen (font_all
) + 5;
2065 fontsetname
= xmalloc (len
);
2066 bzero (fontsetname
, len
);
2067 strcpy (fontsetname
, base_fontname
);
2068 strcat (fontsetname
, sep
);
2069 strcat (fontsetname
, font_allcs
);
2070 strcat (fontsetname
, sep
);
2071 strcat (fontsetname
, font_allfamilies
);
2072 strcat (fontsetname
, sep
);
2073 strcat (fontsetname
, font_all
);
2077 strcat (fontsetname
, ":");
2082 xic_create_xfontset (f
, base_fontname
)
2084 char *base_fontname
;
2086 XFontSet xfs
= NULL
;
2087 char **missing_list
= NULL
;
2090 Lisp_Object rest
, frame
;
2093 base_fontname
= xic_defaut_fontset
;
2095 /* See if there is another frame already using same fontset. */
2096 FOR_EACH_FRAME (rest
, frame
)
2098 struct frame
*cf
= XFRAME (frame
);
2099 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
2100 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
2101 && FRAME_XIC_BASE_FONTNAME (cf
)
2102 && !strcmp (FRAME_XIC_BASE_FONTNAME (cf
), base_fontname
))
2104 xfs
= FRAME_XIC_FONTSET (cf
);
2111 char *fontsetname
= xic_create_fontsetname (base_fontname
, False
);
2114 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
),
2115 fontsetname
, &missing_list
,
2116 &missing_count
, &def_string
);
2118 XFreeStringList (missing_list
);
2119 xfree (fontsetname
);
2122 if (FRAME_XIC_BASE_FONTNAME (f
))
2123 xfree (FRAME_XIC_BASE_FONTNAME (f
));
2124 FRAME_XIC_BASE_FONTNAME (f
) = xstrdup (base_fontname
);
2126 /* No need to free def_string. */
2130 /* Free the X fontset of frame F if it is the last frame using it. */
2133 xic_free_xfontset (f
)
2136 Lisp_Object rest
, frame
;
2139 if (!FRAME_XIC_FONTSET (f
))
2142 /* See if there is another frame sharing the same fontset. */
2143 FOR_EACH_FRAME (rest
, frame
)
2145 struct frame
*cf
= XFRAME (frame
);
2146 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
2147 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
2148 && FRAME_XIC_FONTSET (cf
) == FRAME_XIC_FONTSET (f
))
2156 /* The fontset is not used anymore. It is safe to free it. */
2157 XFreeFontSet (FRAME_X_DISPLAY (f
), FRAME_XIC_FONTSET (f
));
2159 if (FRAME_XIC_BASE_FONTNAME (f
))
2160 xfree (FRAME_XIC_BASE_FONTNAME (f
));
2161 FRAME_XIC_BASE_FONTNAME (f
) = NULL
;
2162 FRAME_XIC_FONTSET (f
) = NULL
;
2166 /* Value is the best input style, given user preferences USER (already
2167 checked to be supported by Emacs), and styles supported by the
2168 input method XIM. */
2171 best_xim_style (user
, xim
)
2177 for (i
= 0; i
< user
->count_styles
; ++i
)
2178 for (j
= 0; j
< xim
->count_styles
; ++j
)
2179 if (user
->supported_styles
[i
] == xim
->supported_styles
[j
])
2180 return user
->supported_styles
[i
];
2182 /* Return the default style. */
2183 return XIMPreeditNothing
| XIMStatusNothing
;
2186 /* Create XIC for frame F. */
2188 static XIMStyle xic_style
;
2191 create_frame_xic (f
)
2196 XFontSet xfs
= NULL
;
2201 /* Create X fontset. */
2202 xfs
= xic_create_xfontset
2203 (f
, (FRAME_FONTSET (f
) < 0) ? NULL
2204 : (char *) SDATA (fontset_ascii (FRAME_FONTSET (f
))));
2206 xim
= FRAME_X_XIM (f
);
2211 XVaNestedList preedit_attr
;
2212 XVaNestedList status_attr
;
2214 s_area
.x
= 0; s_area
.y
= 0; s_area
.width
= 1; s_area
.height
= 1;
2215 spot
.x
= 0; spot
.y
= 1;
2217 /* Determine XIC style. */
2220 XIMStyles supported_list
;
2221 supported_list
.count_styles
= (sizeof supported_xim_styles
2222 / sizeof supported_xim_styles
[0]);
2223 supported_list
.supported_styles
= supported_xim_styles
;
2224 xic_style
= best_xim_style (&supported_list
,
2225 FRAME_X_XIM_STYLES (f
));
2228 preedit_attr
= XVaCreateNestedList (0,
2231 FRAME_FOREGROUND_PIXEL (f
),
2233 FRAME_BACKGROUND_PIXEL (f
),
2234 (xic_style
& XIMPreeditPosition
2239 status_attr
= XVaCreateNestedList (0,
2245 FRAME_FOREGROUND_PIXEL (f
),
2247 FRAME_BACKGROUND_PIXEL (f
),
2250 xic
= XCreateIC (xim
,
2251 XNInputStyle
, xic_style
,
2252 XNClientWindow
, FRAME_X_WINDOW (f
),
2253 XNFocusWindow
, FRAME_X_WINDOW (f
),
2254 XNStatusAttributes
, status_attr
,
2255 XNPreeditAttributes
, preedit_attr
,
2257 XFree (preedit_attr
);
2258 XFree (status_attr
);
2261 FRAME_XIC (f
) = xic
;
2262 FRAME_XIC_STYLE (f
) = xic_style
;
2263 FRAME_XIC_FONTSET (f
) = xfs
;
2267 /* Destroy XIC and free XIC fontset of frame F, if any. */
2273 if (FRAME_XIC (f
) == NULL
)
2276 XDestroyIC (FRAME_XIC (f
));
2277 xic_free_xfontset (f
);
2279 FRAME_XIC (f
) = NULL
;
2283 /* Place preedit area for XIC of window W's frame to specified
2284 pixel position X/Y. X and Y are relative to window W. */
2287 xic_set_preeditarea (w
, x
, y
)
2291 struct frame
*f
= XFRAME (w
->frame
);
2295 spot
.x
= WINDOW_TO_FRAME_PIXEL_X (w
, x
) + WINDOW_LEFT_FRINGE_WIDTH (w
);
2296 spot
.y
= WINDOW_TO_FRAME_PIXEL_Y (w
, y
) + FONT_BASE (FRAME_FONT (f
));
2297 attr
= XVaCreateNestedList (0, XNSpotLocation
, &spot
, NULL
);
2298 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2303 /* Place status area for XIC in bottom right corner of frame F.. */
2306 xic_set_statusarea (f
)
2309 XIC xic
= FRAME_XIC (f
);
2314 /* Negotiate geometry of status area. If input method has existing
2315 status area, use its current size. */
2316 area
.x
= area
.y
= area
.width
= area
.height
= 0;
2317 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &area
, NULL
);
2318 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2321 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &needed
, NULL
);
2322 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2325 if (needed
->width
== 0) /* Use XNArea instead of XNAreaNeeded */
2327 attr
= XVaCreateNestedList (0, XNArea
, &needed
, NULL
);
2328 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2332 area
.width
= needed
->width
;
2333 area
.height
= needed
->height
;
2334 area
.x
= FRAME_PIXEL_WIDTH (f
) - area
.width
- FRAME_INTERNAL_BORDER_WIDTH (f
);
2335 area
.y
= (FRAME_PIXEL_HEIGHT (f
) - area
.height
2336 - FRAME_MENUBAR_HEIGHT (f
)
2337 - FRAME_TOOLBAR_HEIGHT (f
)
2338 - FRAME_INTERNAL_BORDER_WIDTH (f
));
2341 attr
= XVaCreateNestedList (0, XNArea
, &area
, NULL
);
2342 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2347 /* Set X fontset for XIC of frame F, using base font name
2348 BASE_FONTNAME. Called when a new Emacs fontset is chosen. */
2351 xic_set_xfontset (f
, base_fontname
)
2353 char *base_fontname
;
2358 xic_free_xfontset (f
);
2360 xfs
= xic_create_xfontset (f
, base_fontname
);
2362 attr
= XVaCreateNestedList (0, XNFontSet
, xfs
, NULL
);
2363 if (FRAME_XIC_STYLE (f
) & XIMPreeditPosition
)
2364 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2365 if (FRAME_XIC_STYLE (f
) & XIMStatusArea
)
2366 XSetICValues (FRAME_XIC (f
), XNStatusAttributes
, attr
, NULL
);
2369 FRAME_XIC_FONTSET (f
) = xfs
;
2372 #endif /* HAVE_X_I18N */
2376 #ifdef USE_X_TOOLKIT
2378 /* Create and set up the X widget for frame F. */
2381 x_window (f
, window_prompting
, minibuffer_only
)
2383 long window_prompting
;
2384 int minibuffer_only
;
2386 XClassHint class_hints
;
2387 XSetWindowAttributes attributes
;
2388 unsigned long attribute_mask
;
2389 Widget shell_widget
;
2391 Widget frame_widget
;
2397 /* Use the resource name as the top-level widget name
2398 for looking up resources. Make a non-Lisp copy
2399 for the window manager, so GC relocation won't bother it.
2401 Elsewhere we specify the window name for the window manager. */
2404 char *str
= (char *) SDATA (Vx_resource_name
);
2405 f
->namebuf
= (char *) xmalloc (strlen (str
) + 1);
2406 strcpy (f
->namebuf
, str
);
2410 XtSetArg (al
[ac
], XtNallowShellResize
, 1); ac
++;
2411 XtSetArg (al
[ac
], XtNinput
, 1); ac
++;
2412 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2413 XtSetArg (al
[ac
], XtNborderWidth
, f
->border_width
); ac
++;
2414 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2415 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2416 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2417 shell_widget
= XtAppCreateShell (f
->namebuf
, EMACS_CLASS
,
2418 applicationShellWidgetClass
,
2419 FRAME_X_DISPLAY (f
), al
, ac
);
2421 f
->output_data
.x
->widget
= shell_widget
;
2422 /* maybe_set_screen_title_format (shell_widget); */
2424 pane_widget
= lw_create_widget ("main", "pane", widget_id_tick
++,
2425 (widget_value
*) NULL
,
2426 shell_widget
, False
,
2430 (lw_callback
) NULL
);
2433 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2434 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2435 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2436 XtSetValues (pane_widget
, al
, ac
);
2437 f
->output_data
.x
->column_widget
= pane_widget
;
2439 /* mappedWhenManaged to false tells to the paned window to not map/unmap
2440 the emacs screen when changing menubar. This reduces flickering. */
2443 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2444 XtSetArg (al
[ac
], XtNshowGrip
, 0); ac
++;
2445 XtSetArg (al
[ac
], XtNallowResize
, 1); ac
++;
2446 XtSetArg (al
[ac
], XtNresizeToPreferred
, 1); ac
++;
2447 XtSetArg (al
[ac
], XtNemacsFrame
, f
); ac
++;
2448 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2449 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2450 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2451 frame_widget
= XtCreateWidget (f
->namebuf
, emacsFrameClass
, pane_widget
,
2454 f
->output_data
.x
->edit_widget
= frame_widget
;
2456 XtManageChild (frame_widget
);
2458 /* Do some needed geometry management. */
2461 char *tem
, shell_position
[32];
2464 int extra_borders
= 0;
2466 = (f
->output_data
.x
->menubar_widget
2467 ? (f
->output_data
.x
->menubar_widget
->core
.height
2468 + f
->output_data
.x
->menubar_widget
->core
.border_width
)
2471 #if 0 /* Experimentally, we now get the right results
2472 for -geometry -0-0 without this. 24 Aug 96, rms. */
2473 if (FRAME_EXTERNAL_MENU_BAR (f
))
2476 XtVaGetValues (pane_widget
, XtNinternalBorderWidth
, &ibw
, NULL
);
2477 menubar_size
+= ibw
;
2481 f
->output_data
.x
->menubar_height
= menubar_size
;
2484 /* Motif seems to need this amount added to the sizes
2485 specified for the shell widget. The Athena/Lucid widgets don't.
2486 Both conclusions reached experimentally. -- rms. */
2487 XtVaGetValues (f
->output_data
.x
->edit_widget
, XtNinternalBorderWidth
,
2488 &extra_borders
, NULL
);
2492 /* Convert our geometry parameters into a geometry string
2494 Note that we do not specify here whether the position
2495 is a user-specified or program-specified one.
2496 We pass that information later, in x_wm_set_size_hints. */
2498 int left
= f
->left_pos
;
2499 int xneg
= window_prompting
& XNegative
;
2500 int top
= f
->top_pos
;
2501 int yneg
= window_prompting
& YNegative
;
2507 if (window_prompting
& USPosition
)
2508 sprintf (shell_position
, "=%dx%d%c%d%c%d",
2509 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2510 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
,
2511 (xneg
? '-' : '+'), left
,
2512 (yneg
? '-' : '+'), top
);
2515 sprintf (shell_position
, "=%dx%d",
2516 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2517 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
);
2519 /* Setting x and y when the position is not specified in
2520 the geometry string will set program position in the WM hints.
2521 If Emacs had just one program position, we could set it in
2522 fallback resources, but since each make-frame call can specify
2523 different program positions, this is easier. */
2524 XtSetArg (al
[ac
], XtNx
, left
); ac
++;
2525 XtSetArg (al
[ac
], XtNy
, top
); ac
++;
2529 len
= strlen (shell_position
) + 1;
2530 /* We don't free this because we don't know whether
2531 it is safe to free it while the frame exists.
2532 It isn't worth the trouble of arranging to free it
2533 when the frame is deleted. */
2534 tem
= (char *) xmalloc (len
);
2535 strncpy (tem
, shell_position
, len
);
2536 XtSetArg (al
[ac
], XtNgeometry
, tem
); ac
++;
2537 XtSetValues (shell_widget
, al
, ac
);
2540 XtManageChild (pane_widget
);
2541 XtRealizeWidget (shell_widget
);
2543 FRAME_X_WINDOW (f
) = XtWindow (frame_widget
);
2545 validate_x_resource_name ();
2547 class_hints
.res_name
= (char *) SDATA (Vx_resource_name
);
2548 class_hints
.res_class
= (char *) SDATA (Vx_resource_class
);
2549 XSetClassHint (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
), &class_hints
);
2552 FRAME_XIC (f
) = NULL
;
2554 create_frame_xic (f
);
2557 f
->output_data
.x
->wm_hints
.input
= True
;
2558 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2559 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2560 &f
->output_data
.x
->wm_hints
);
2562 hack_wm_protocols (f
, shell_widget
);
2565 XtAddEventHandler (shell_widget
, 0, True
, _XEditResCheckMessages
, 0);
2568 /* Do a stupid property change to force the server to generate a
2569 PropertyNotify event so that the event_stream server timestamp will
2570 be initialized to something relevant to the time we created the window.
2572 XChangeProperty (XtDisplay (frame_widget
), XtWindow (frame_widget
),
2573 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
2574 XA_ATOM
, 32, PropModeAppend
,
2575 (unsigned char*) NULL
, 0);
2577 /* Make all the standard events reach the Emacs frame. */
2578 attributes
.event_mask
= STANDARD_EVENT_SET
;
2583 /* XIM server might require some X events. */
2584 unsigned long fevent
= NoEventMask
;
2585 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2586 attributes
.event_mask
|= fevent
;
2588 #endif /* HAVE_X_I18N */
2590 attribute_mask
= CWEventMask
;
2591 XChangeWindowAttributes (XtDisplay (shell_widget
), XtWindow (shell_widget
),
2592 attribute_mask
, &attributes
);
2594 XtMapWidget (frame_widget
);
2596 /* x_set_name normally ignores requests to set the name if the
2597 requested name is the same as the current name. This is the one
2598 place where that assumption isn't correct; f->name is set, but
2599 the X server hasn't been told. */
2602 int explicit = f
->explicit_name
;
2604 f
->explicit_name
= 0;
2607 x_set_name (f
, name
, explicit);
2610 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2611 f
->output_data
.x
->text_cursor
);
2615 /* This is a no-op, except under Motif. Make sure main areas are
2616 set to something reasonable, in case we get an error later. */
2617 lw_set_main_areas (pane_widget
, 0, frame_widget
);
2620 #else /* not USE_X_TOOLKIT */
2626 if (! xg_create_frame_widgets (f
))
2627 error ("Unable to create window");
2630 FRAME_XIC (f
) = NULL
;
2634 create_frame_xic (f
);
2637 /* XIM server might require some X events. */
2638 unsigned long fevent
= NoEventMask
;
2639 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2641 if (fevent
!= NoEventMask
)
2643 XSetWindowAttributes attributes
;
2644 XWindowAttributes wattr
;
2645 unsigned long attribute_mask
;
2647 XGetWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2649 attributes
.event_mask
= wattr
.your_event_mask
| fevent
;
2650 attribute_mask
= CWEventMask
;
2651 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2652 attribute_mask
, &attributes
);
2660 #else /*! USE_GTK */
2661 /* Create and set up the X window for frame F. */
2668 XClassHint class_hints
;
2669 XSetWindowAttributes attributes
;
2670 unsigned long attribute_mask
;
2672 attributes
.background_pixel
= f
->output_data
.x
->background_pixel
;
2673 attributes
.border_pixel
= f
->output_data
.x
->border_pixel
;
2674 attributes
.bit_gravity
= StaticGravity
;
2675 attributes
.backing_store
= NotUseful
;
2676 attributes
.save_under
= True
;
2677 attributes
.event_mask
= STANDARD_EVENT_SET
;
2678 attributes
.colormap
= FRAME_X_COLORMAP (f
);
2679 attribute_mask
= (CWBackPixel
| CWBorderPixel
| CWBitGravity
| CWEventMask
2684 = XCreateWindow (FRAME_X_DISPLAY (f
),
2685 f
->output_data
.x
->parent_desc
,
2688 FRAME_PIXEL_WIDTH (f
), FRAME_PIXEL_HEIGHT (f
),
2690 CopyFromParent
, /* depth */
2691 InputOutput
, /* class */
2693 attribute_mask
, &attributes
);
2698 create_frame_xic (f
);
2701 /* XIM server might require some X events. */
2702 unsigned long fevent
= NoEventMask
;
2703 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2704 attributes
.event_mask
|= fevent
;
2705 attribute_mask
= CWEventMask
;
2706 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2707 attribute_mask
, &attributes
);
2710 #endif /* HAVE_X_I18N */
2712 validate_x_resource_name ();
2714 class_hints
.res_name
= (char *) SDATA (Vx_resource_name
);
2715 class_hints
.res_class
= (char *) SDATA (Vx_resource_class
);
2716 XSetClassHint (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), &class_hints
);
2718 /* The menubar is part of the ordinary display;
2719 it does not count in addition to the height of the window. */
2720 f
->output_data
.x
->menubar_height
= 0;
2722 /* This indicates that we use the "Passive Input" input model.
2723 Unless we do this, we don't get the Focus{In,Out} events that we
2724 need to draw the cursor correctly. Accursed bureaucrats.
2725 XWhipsAndChains (FRAME_X_DISPLAY (f), IronMaiden, &TheRack); */
2727 f
->output_data
.x
->wm_hints
.input
= True
;
2728 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2729 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2730 &f
->output_data
.x
->wm_hints
);
2731 f
->output_data
.x
->wm_hints
.icon_pixmap
= None
;
2733 /* Request "save yourself" and "delete window" commands from wm. */
2736 protocols
[0] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
2737 protocols
[1] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
2738 XSetWMProtocols (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), protocols
, 2);
2741 /* x_set_name normally ignores requests to set the name if the
2742 requested name is the same as the current name. This is the one
2743 place where that assumption isn't correct; f->name is set, but
2744 the X server hasn't been told. */
2747 int explicit = f
->explicit_name
;
2749 f
->explicit_name
= 0;
2752 x_set_name (f
, name
, explicit);
2755 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2756 f
->output_data
.x
->text_cursor
);
2760 if (FRAME_X_WINDOW (f
) == 0)
2761 error ("Unable to create window");
2764 #endif /* not USE_GTK */
2765 #endif /* not USE_X_TOOLKIT */
2767 /* Verify that the icon position args for this window are valid. */
2770 x_icon_verify (f
, parms
)
2774 Lisp_Object icon_x
, icon_y
;
2776 /* Set the position of the icon. Note that twm groups all
2777 icons in an icon window. */
2778 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2779 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2780 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2782 CHECK_NUMBER (icon_x
);
2783 CHECK_NUMBER (icon_y
);
2785 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2786 error ("Both left and top icon corners of icon must be specified");
2789 /* Handle the icon stuff for this window. Perhaps later we might
2790 want an x_set_icon_position which can be called interactively as
2798 Lisp_Object icon_x
, icon_y
;
2799 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2801 /* Set the position of the icon. Note that twm groups all
2802 icons in an icon window. */
2803 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2804 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2805 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2807 CHECK_NUMBER (icon_x
);
2808 CHECK_NUMBER (icon_y
);
2810 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2811 error ("Both left and top icon corners of icon must be specified");
2815 if (! EQ (icon_x
, Qunbound
))
2816 x_wm_set_icon_position (f
, XINT (icon_x
), XINT (icon_y
));
2818 #if 0 /* x_get_arg removes the visibility parameter as a side effect,
2819 but x_create_frame still needs it. */
2820 /* Start up iconic or window? */
2821 x_wm_set_window_state
2822 (f
, (EQ (x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0, RES_TYPE_SYMBOL
),
2828 x_text_icon (f
, (char *) SDATA ((!NILP (f
->icon_name
)
2835 /* Make the GCs needed for this window, setting the
2836 background, border and mouse colors; also create the
2837 mouse cursor and the gray border tile. */
2839 static char cursor_bits
[] =
2841 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2842 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2843 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2844 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00
2851 XGCValues gc_values
;
2855 /* Create the GCs of this frame.
2856 Note that many default values are used. */
2859 gc_values
.font
= FRAME_FONT (f
)->fid
;
2860 gc_values
.foreground
= f
->output_data
.x
->foreground_pixel
;
2861 gc_values
.background
= f
->output_data
.x
->background_pixel
;
2862 gc_values
.line_width
= 0; /* Means 1 using fast algorithm. */
2863 f
->output_data
.x
->normal_gc
2864 = XCreateGC (FRAME_X_DISPLAY (f
),
2866 GCLineWidth
| GCFont
| GCForeground
| GCBackground
,
2869 /* Reverse video style. */
2870 gc_values
.foreground
= f
->output_data
.x
->background_pixel
;
2871 gc_values
.background
= f
->output_data
.x
->foreground_pixel
;
2872 f
->output_data
.x
->reverse_gc
2873 = XCreateGC (FRAME_X_DISPLAY (f
),
2875 GCFont
| GCForeground
| GCBackground
| GCLineWidth
,
2878 /* Cursor has cursor-color background, background-color foreground. */
2879 gc_values
.foreground
= f
->output_data
.x
->background_pixel
;
2880 gc_values
.background
= f
->output_data
.x
->cursor_pixel
;
2881 gc_values
.fill_style
= FillOpaqueStippled
;
2883 = XCreateBitmapFromData (FRAME_X_DISPLAY (f
),
2884 FRAME_X_DISPLAY_INFO (f
)->root_window
,
2885 cursor_bits
, 16, 16);
2886 f
->output_data
.x
->cursor_gc
2887 = XCreateGC (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2888 (GCFont
| GCForeground
| GCBackground
2889 | GCFillStyle
/* | GCStipple */ | GCLineWidth
),
2893 f
->output_data
.x
->white_relief
.gc
= 0;
2894 f
->output_data
.x
->black_relief
.gc
= 0;
2896 /* Create the gray border tile used when the pointer is not in
2897 the frame. Since this depends on the frame's pixel values,
2898 this must be done on a per-frame basis. */
2899 f
->output_data
.x
->border_tile
2900 = (XCreatePixmapFromBitmapData
2901 (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
2902 gray_bits
, gray_width
, gray_height
,
2903 f
->output_data
.x
->foreground_pixel
,
2904 f
->output_data
.x
->background_pixel
,
2905 DefaultDepth (FRAME_X_DISPLAY (f
), FRAME_X_SCREEN_NUMBER (f
))));
2911 /* Free what was was allocated in x_make_gc. */
2917 Display
*dpy
= FRAME_X_DISPLAY (f
);
2921 if (f
->output_data
.x
->normal_gc
)
2923 XFreeGC (dpy
, f
->output_data
.x
->normal_gc
);
2924 f
->output_data
.x
->normal_gc
= 0;
2927 if (f
->output_data
.x
->reverse_gc
)
2929 XFreeGC (dpy
, f
->output_data
.x
->reverse_gc
);
2930 f
->output_data
.x
->reverse_gc
= 0;
2933 if (f
->output_data
.x
->cursor_gc
)
2935 XFreeGC (dpy
, f
->output_data
.x
->cursor_gc
);
2936 f
->output_data
.x
->cursor_gc
= 0;
2939 if (f
->output_data
.x
->border_tile
)
2941 XFreePixmap (dpy
, f
->output_data
.x
->border_tile
);
2942 f
->output_data
.x
->border_tile
= 0;
2949 /* Handler for signals raised during x_create_frame and
2950 x_create_top_frame. FRAME is the frame which is partially
2954 unwind_create_frame (frame
)
2957 struct frame
*f
= XFRAME (frame
);
2959 /* If frame is ``official'', nothing to do. */
2960 if (!CONSP (Vframe_list
) || !EQ (XCAR (Vframe_list
), frame
))
2963 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2966 x_free_frame_resources (f
);
2969 /* Check that reference counts are indeed correct. */
2970 xassert (dpyinfo
->reference_count
== dpyinfo_refcount
);
2971 xassert (dpyinfo
->image_cache
->refcount
== image_cache_refcount
);
2980 DEFUN ("x-create-frame", Fx_create_frame
, Sx_create_frame
,
2982 doc
: /* Make a new X window, which is called a "frame" in Emacs terms.
2983 Returns an Emacs frame object.
2984 ALIST is an alist of frame parameters.
2985 If the parameters specify that the frame should not have a minibuffer,
2986 and do not specify a specific minibuffer window to use,
2987 then `default-minibuffer-frame' must be a frame whose minibuffer can
2988 be shared by the new frame.
2990 This function is an internal primitive--use `make-frame' instead. */)
2995 Lisp_Object frame
, tem
;
2997 int minibuffer_only
= 0;
2998 long window_prompting
= 0;
3000 int count
= SPECPDL_INDEX ();
3001 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
3002 Lisp_Object display
;
3003 struct x_display_info
*dpyinfo
= NULL
;
3009 parms
= Fcopy_alist (parms
);
3011 /* Use this general default value to start with
3012 until we know if this frame has a specified name. */
3013 Vx_resource_name
= Vinvocation_name
;
3015 display
= x_get_arg (dpyinfo
, parms
, Qdisplay
, 0, 0, RES_TYPE_STRING
);
3016 if (EQ (display
, Qunbound
))
3018 dpyinfo
= check_x_display_info (display
);
3020 kb
= dpyinfo
->kboard
;
3022 kb
= &the_only_kboard
;
3025 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
3027 && ! EQ (name
, Qunbound
)
3029 error ("Invalid frame name--not a string or nil");
3032 Vx_resource_name
= name
;
3034 /* See if parent window is specified. */
3035 parent
= x_get_arg (dpyinfo
, parms
, Qparent_id
, NULL
, NULL
, RES_TYPE_NUMBER
);
3036 if (EQ (parent
, Qunbound
))
3038 if (! NILP (parent
))
3039 CHECK_NUMBER (parent
);
3041 /* make_frame_without_minibuffer can run Lisp code and garbage collect. */
3042 /* No need to protect DISPLAY because that's not used after passing
3043 it to make_frame_without_minibuffer. */
3045 GCPRO4 (parms
, parent
, name
, frame
);
3046 tem
= x_get_arg (dpyinfo
, parms
, Qminibuffer
, "minibuffer", "Minibuffer",
3048 if (EQ (tem
, Qnone
) || NILP (tem
))
3049 f
= make_frame_without_minibuffer (Qnil
, kb
, display
);
3050 else if (EQ (tem
, Qonly
))
3052 f
= make_minibuffer_frame ();
3053 minibuffer_only
= 1;
3055 else if (WINDOWP (tem
))
3056 f
= make_frame_without_minibuffer (tem
, kb
, display
);
3060 XSETFRAME (frame
, f
);
3062 /* Note that X Windows does support scroll bars. */
3063 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 1;
3065 f
->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 */
3078 = x_get_arg (dpyinfo
, parms
, Qicon_name
, "iconName", "Title",
3080 if (! STRINGP (f
->icon_name
))
3081 f
->icon_name
= Qnil
;
3083 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
3085 /* With FRAME_X_DISPLAY_INFO set up, this unwind-protect is safe. */
3086 record_unwind_protect (unwind_create_frame
, frame
);
3088 image_cache_refcount
= FRAME_X_IMAGE_CACHE (f
)->refcount
;
3089 dpyinfo_refcount
= dpyinfo
->reference_count
;
3090 #endif /* GLYPH_DEBUG */
3092 FRAME_KBOARD (f
) = kb
;
3095 /* These colors will be set anyway later, but it's important
3096 to get the color reference counts right, so initialize them! */
3099 struct gcpro gcpro1
;
3101 /* Function x_decode_color can signal an error. Make
3102 sure to initialize color slots so that we won't try
3103 to free colors we haven't allocated. */
3104 f
->output_data
.x
->foreground_pixel
= -1;
3105 f
->output_data
.x
->background_pixel
= -1;
3106 f
->output_data
.x
->cursor_pixel
= -1;
3107 f
->output_data
.x
->cursor_foreground_pixel
= -1;
3108 f
->output_data
.x
->border_pixel
= -1;
3109 f
->output_data
.x
->mouse_pixel
= -1;
3111 black
= build_string ("black");
3113 f
->output_data
.x
->foreground_pixel
3114 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3115 f
->output_data
.x
->background_pixel
3116 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3117 f
->output_data
.x
->cursor_pixel
3118 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3119 f
->output_data
.x
->cursor_foreground_pixel
3120 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3121 f
->output_data
.x
->border_pixel
3122 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3123 f
->output_data
.x
->mouse_pixel
3124 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3128 /* Specify the parent under which to make this X window. */
3132 f
->output_data
.x
->parent_desc
= (Window
) XFASTINT (parent
);
3133 f
->output_data
.x
->explicit_parent
= 1;
3137 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
3138 f
->output_data
.x
->explicit_parent
= 0;
3141 /* Set the name; the functions to which we pass f expect the name to
3143 if (EQ (name
, Qunbound
) || NILP (name
))
3145 f
->name
= build_string (dpyinfo
->x_id_name
);
3146 f
->explicit_name
= 0;
3151 f
->explicit_name
= 1;
3152 /* use the frame's title when getting resources for this frame. */
3153 specbind (Qx_resource_name
, name
);
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_set_frame_parameters (f
, Fcons (Fcons (Qfont
, font
), Qnil
));
3196 /* Prevent lwlib/xlwmenu.c from crashing because of a bug
3197 whereby it fails to get any font. */
3198 xlwmenu_default_font
= FRAME_FONT (f
);
3201 x_default_parameter (f
, parms
, Qborder_width
, make_number (2),
3202 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
3204 /* This defaults to 1 in order to match xterm. We recognize either
3205 internalBorderWidth or internalBorder (which is what xterm calls
3207 if (NILP (Fassq (Qinternal_border_width
, parms
)))
3211 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
3212 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
3213 if (! EQ (value
, Qunbound
))
3214 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
3217 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
3218 "internalBorderWidth", "internalBorderWidth",
3220 x_default_parameter (f
, parms
, Qvertical_scroll_bars
, Qleft
,
3221 "verticalScrollBars", "ScrollBars",
3224 /* Also do the stuff which must be set before the window exists. */
3225 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
3226 "foreground", "Foreground", RES_TYPE_STRING
);
3227 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
3228 "background", "Background", RES_TYPE_STRING
);
3229 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
3230 "pointerColor", "Foreground", RES_TYPE_STRING
);
3231 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
3232 "cursorColor", "Foreground", RES_TYPE_STRING
);
3233 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
3234 "borderColor", "BorderColor", RES_TYPE_STRING
);
3235 x_default_parameter (f
, parms
, Qscreen_gamma
, Qnil
,
3236 "screenGamma", "ScreenGamma", RES_TYPE_FLOAT
);
3237 x_default_parameter (f
, parms
, Qline_spacing
, Qnil
,
3238 "lineSpacing", "LineSpacing", RES_TYPE_NUMBER
);
3239 x_default_parameter (f
, parms
, Qleft_fringe
, Qnil
,
3240 "leftFringe", "LeftFringe", RES_TYPE_NUMBER
);
3241 x_default_parameter (f
, parms
, Qright_fringe
, Qnil
,
3242 "rightFringe", "RightFringe", RES_TYPE_NUMBER
);
3244 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_foreground
,
3245 "scrollBarForeground",
3246 "ScrollBarForeground", 1);
3247 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_background
,
3248 "scrollBarBackground",
3249 "ScrollBarBackground", 0);
3251 /* Init faces before x_default_parameter is called for scroll-bar
3252 parameters because that function calls x_set_scroll_bar_width,
3253 which calls change_frame_size, which calls Fset_window_buffer,
3254 which runs hooks, which call Fvertical_motion. At the end, we
3255 end up in init_iterator with a null face cache, which should not
3257 init_frame_faces (f
);
3259 x_default_parameter (f
, parms
, Qmenu_bar_lines
, make_number (1),
3260 "menuBar", "MenuBar", RES_TYPE_NUMBER
);
3261 x_default_parameter (f
, parms
, Qtool_bar_lines
, make_number (1),
3262 "toolBar", "ToolBar", RES_TYPE_NUMBER
);
3263 x_default_parameter (f
, parms
, Qbuffer_predicate
, Qnil
,
3264 "bufferPredicate", "BufferPredicate",
3266 x_default_parameter (f
, parms
, Qtitle
, Qnil
,
3267 "title", "Title", RES_TYPE_STRING
);
3268 x_default_parameter (f
, parms
, Qwait_for_wm
, Qt
,
3269 "waitForWM", "WaitForWM", RES_TYPE_BOOLEAN
);
3270 x_default_parameter (f
, parms
, Qfullscreen
, Qnil
,
3271 "fullscreen", "Fullscreen", RES_TYPE_SYMBOL
);
3273 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
3275 /* Compute the size of the X window. */
3276 window_prompting
= x_figure_window_size (f
, parms
, 1);
3278 tem
= x_get_arg (dpyinfo
, parms
, Qunsplittable
, 0, 0, RES_TYPE_BOOLEAN
);
3279 f
->no_split
= minibuffer_only
|| EQ (tem
, Qt
);
3281 x_icon_verify (f
, parms
);
3283 /* Create the X widget or window. */
3284 #ifdef USE_X_TOOLKIT
3285 x_window (f
, window_prompting
, minibuffer_only
);
3293 /* Now consider the frame official. */
3294 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
3295 Vframe_list
= Fcons (frame
, Vframe_list
);
3297 /* We need to do this after creating the X window, so that the
3298 icon-creation functions can say whose icon they're describing. */
3299 x_default_parameter (f
, parms
, Qicon_type
, Qt
,
3300 "bitmapIcon", "BitmapIcon", RES_TYPE_SYMBOL
);
3302 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
3303 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3304 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
3305 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3306 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
3307 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
3308 x_default_parameter (f
, parms
, Qscroll_bar_width
, Qnil
,
3309 "scrollBarWidth", "ScrollBarWidth",
3312 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
3313 Change will not be effected unless different from the current
3315 width
= FRAME_COLS (f
);
3316 height
= FRAME_LINES (f
);
3318 SET_FRAME_COLS (f
, 0);
3319 FRAME_LINES (f
) = 0;
3320 change_frame_size (f
, height
, width
, 1, 0, 0);
3322 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
3323 /* Create the menu bar. */
3324 if (!minibuffer_only
&& FRAME_EXTERNAL_MENU_BAR (f
))
3326 /* If this signals an error, we haven't set size hints for the
3327 frame and we didn't make it visible. */
3328 initialize_frame_menubar (f
);
3331 /* This is a no-op, except under Motif where it arranges the
3332 main window for the widgets on it. */
3333 lw_set_main_areas (f
->output_data
.x
->column_widget
,
3334 f
->output_data
.x
->menubar_widget
,
3335 f
->output_data
.x
->edit_widget
);
3336 #endif /* not USE_GTK */
3338 #endif /* USE_X_TOOLKIT || USE_GTK */
3340 /* Tell the server what size and position, etc, we want, and how
3341 badly we want them. This should be done after we have the menu
3342 bar so that its size can be taken into account. */
3344 x_wm_set_size_hint (f
, window_prompting
, 0);
3347 /* Make the window appear on the frame and enable display, unless
3348 the caller says not to. However, with explicit parent, Emacs
3349 cannot control visibility, so don't try. */
3350 if (! f
->output_data
.x
->explicit_parent
)
3352 Lisp_Object visibility
;
3354 visibility
= x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0,
3356 if (EQ (visibility
, Qunbound
))
3359 if (EQ (visibility
, Qicon
))
3360 x_iconify_frame (f
);
3361 else if (! NILP (visibility
))
3362 x_make_frame_visible (f
);
3364 /* Must have been Qnil. */
3368 /* Set the WM leader property. GTK does this itself, so this is not
3369 needed when using GTK. */
3370 if (dpyinfo
->client_leader_window
!= 0)
3373 XChangeProperty (FRAME_X_DISPLAY (f
),
3374 FRAME_OUTER_WINDOW (f
),
3375 dpyinfo
->Xatom_wm_client_leader
,
3376 XA_WINDOW
, 32, PropModeReplace
,
3377 (unsigned char *) &dpyinfo
->client_leader_window
, 1);
3381 /* Initialize `default-minibuffer-frame' in case this is the first
3382 frame on this display device. */
3383 if (FRAME_HAS_MINIBUF_P (f
)
3384 && (!FRAMEP (kb
->Vdefault_minibuffer_frame
)
3385 || !FRAME_LIVE_P (XFRAME (kb
->Vdefault_minibuffer_frame
))))
3386 kb
->Vdefault_minibuffer_frame
= frame
;
3388 /* All remaining specified parameters, which have not been "used"
3389 by x_get_arg and friends, now go in the misc. alist of the frame. */
3390 for (tem
= parms
; !NILP (tem
); tem
= XCDR (tem
))
3391 if (CONSP (XCAR (tem
)) && !NILP (XCAR (XCAR (tem
))))
3392 f
->param_alist
= Fcons (XCAR (tem
), f
->param_alist
);
3396 /* Make sure windows on this frame appear in calls to next-window
3397 and similar functions. */
3398 Vwindow_list
= Qnil
;
3400 return unbind_to (count
, frame
);
3404 /* FRAME is used only to get a handle on the X display. We don't pass the
3405 display info directly because we're called from frame.c, which doesn't
3406 know about that structure. */
3409 x_get_focus_frame (frame
)
3410 struct frame
*frame
;
3412 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (frame
);
3414 if (! dpyinfo
->x_focus_frame
)
3417 XSETFRAME (xfocus
, dpyinfo
->x_focus_frame
);
3422 /* In certain situations, when the window manager follows a
3423 click-to-focus policy, there seems to be no way around calling
3424 XSetInputFocus to give another frame the input focus .
3426 In an ideal world, XSetInputFocus should generally be avoided so
3427 that applications don't interfere with the window manager's focus
3428 policy. But I think it's okay to use when it's clearly done
3429 following a user-command. */
3431 DEFUN ("x-focus-frame", Fx_focus_frame
, Sx_focus_frame
, 1, 1, 0,
3432 doc
: /* Set the input focus to FRAME.
3433 FRAME nil means use the selected frame. */)
3437 struct frame
*f
= check_x_frame (frame
);
3438 Display
*dpy
= FRAME_X_DISPLAY (f
);
3441 x_catch_errors (dpy
);
3442 XSetInputFocus (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
3443 RevertToParent
, CurrentTime
);
3444 x_uncatch_errors ();
3451 DEFUN ("xw-color-defined-p", Fxw_color_defined_p
, Sxw_color_defined_p
, 1, 2, 0,
3452 doc
: /* Internal function called by `color-defined-p', which see. */)
3454 Lisp_Object color
, frame
;
3457 FRAME_PTR f
= check_x_frame (frame
);
3459 CHECK_STRING (color
);
3461 if (x_defined_color (f
, SDATA (color
), &foo
, 0))
3467 DEFUN ("xw-color-values", Fxw_color_values
, Sxw_color_values
, 1, 2, 0,
3468 doc
: /* Internal function called by `color-values', which see. */)
3470 Lisp_Object color
, frame
;
3473 FRAME_PTR f
= check_x_frame (frame
);
3475 CHECK_STRING (color
);
3477 if (x_defined_color (f
, SDATA (color
), &foo
, 0))
3478 return list3 (make_number (foo
.red
),
3479 make_number (foo
.green
),
3480 make_number (foo
.blue
));
3485 DEFUN ("xw-display-color-p", Fxw_display_color_p
, Sxw_display_color_p
, 0, 1, 0,
3486 doc
: /* Internal function called by `display-color-p', which see. */)
3488 Lisp_Object display
;
3490 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3492 if (dpyinfo
->n_planes
<= 2)
3495 switch (dpyinfo
->visual
->class)
3508 DEFUN ("x-display-grayscale-p", Fx_display_grayscale_p
, Sx_display_grayscale_p
,
3510 doc
: /* Return t if the X display supports shades of gray.
3511 Note that color displays do support shades of gray.
3512 The optional argument DISPLAY specifies which display to ask about.
3513 DISPLAY should be either a frame or a display name (a string).
3514 If omitted or nil, that stands for the selected frame's display. */)
3516 Lisp_Object display
;
3518 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3520 if (dpyinfo
->n_planes
<= 1)
3523 switch (dpyinfo
->visual
->class)
3538 DEFUN ("x-display-pixel-width", Fx_display_pixel_width
, Sx_display_pixel_width
,
3540 doc
: /* Returns the width in pixels of the X display DISPLAY.
3541 The optional argument DISPLAY specifies which display to ask about.
3542 DISPLAY should be either a frame or a display name (a string).
3543 If omitted or nil, that stands for the selected frame's display. */)
3545 Lisp_Object display
;
3547 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3549 return make_number (dpyinfo
->width
);
3552 DEFUN ("x-display-pixel-height", Fx_display_pixel_height
,
3553 Sx_display_pixel_height
, 0, 1, 0,
3554 doc
: /* Returns the height in pixels of the X display DISPLAY.
3555 The optional argument DISPLAY specifies which display to ask about.
3556 DISPLAY should be either a frame or a display name (a string).
3557 If omitted or nil, that stands for the selected frame's display. */)
3559 Lisp_Object display
;
3561 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3563 return make_number (dpyinfo
->height
);
3566 DEFUN ("x-display-planes", Fx_display_planes
, Sx_display_planes
,
3568 doc
: /* Returns the number of bitplanes of the X display DISPLAY.
3569 The optional argument DISPLAY specifies which display to ask about.
3570 DISPLAY should be either a frame or a display name (a string).
3571 If omitted or nil, that stands for the selected frame's display. */)
3573 Lisp_Object display
;
3575 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3577 return make_number (dpyinfo
->n_planes
);
3580 DEFUN ("x-display-color-cells", Fx_display_color_cells
, Sx_display_color_cells
,
3582 doc
: /* Returns the number of color cells of the X display DISPLAY.
3583 The optional argument DISPLAY specifies which display to ask about.
3584 DISPLAY should be either a frame or a display name (a string).
3585 If omitted or nil, that stands for the selected frame's display. */)
3587 Lisp_Object display
;
3589 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3591 int nr_planes
= DisplayPlanes (dpyinfo
->display
,
3592 XScreenNumberOfScreen (dpyinfo
->screen
));
3594 /* Truncate nr_planes to 24 to avoid integer overflow.
3595 Some displays says 32, but only 24 bits are actually significant.
3596 There are only very few and rare video cards that have more than
3597 24 significant bits. Also 24 bits is more than 16 million colors,
3598 it "should be enough for everyone". */
3599 if (nr_planes
> 24) nr_planes
= 24;
3601 return make_number (1 << nr_planes
);
3604 DEFUN ("x-server-max-request-size", Fx_server_max_request_size
,
3605 Sx_server_max_request_size
,
3607 doc
: /* Returns the maximum request size of the X server of display DISPLAY.
3608 The optional argument DISPLAY specifies which display to ask about.
3609 DISPLAY should be either a frame or a display name (a string).
3610 If omitted or nil, that stands for the selected frame's display. */)
3612 Lisp_Object display
;
3614 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3616 return make_number (MAXREQUEST (dpyinfo
->display
));
3619 DEFUN ("x-server-vendor", Fx_server_vendor
, Sx_server_vendor
, 0, 1, 0,
3620 doc
: /* Returns the "vendor ID" string of the X server of display DISPLAY.
3621 \(Labelling every distributor as a "vendor" embodies the false assumption
3622 that operating systems cannot be developed and distributed noncommercially.)
3623 The optional argument DISPLAY specifies which display to ask about.
3624 DISPLAY should be either a frame or a display name (a string).
3625 If omitted or nil, that stands for the selected frame's display. */)
3627 Lisp_Object display
;
3629 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3630 char *vendor
= ServerVendor (dpyinfo
->display
);
3632 if (! vendor
) vendor
= "";
3633 return build_string (vendor
);
3636 DEFUN ("x-server-version", Fx_server_version
, Sx_server_version
, 0, 1, 0,
3637 doc
: /* Returns the version numbers of the X server of display DISPLAY.
3638 The value is a list of three integers: the major and minor
3639 version numbers of the X Protocol in use, and the distributor-specific release
3640 number. See also the function `x-server-vendor'.
3642 The optional argument DISPLAY specifies which display to ask about.
3643 DISPLAY should be either a frame or a display name (a string).
3644 If omitted or nil, that stands for the selected frame's display. */)
3646 Lisp_Object display
;
3648 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3649 Display
*dpy
= dpyinfo
->display
;
3651 return Fcons (make_number (ProtocolVersion (dpy
)),
3652 Fcons (make_number (ProtocolRevision (dpy
)),
3653 Fcons (make_number (VendorRelease (dpy
)), Qnil
)));
3656 DEFUN ("x-display-screens", Fx_display_screens
, Sx_display_screens
, 0, 1, 0,
3657 doc
: /* Return the number of screens on the X server of display DISPLAY.
3658 The optional argument DISPLAY specifies which display to ask about.
3659 DISPLAY should be either a frame or a display name (a string).
3660 If omitted or nil, that stands for the selected frame's display. */)
3662 Lisp_Object display
;
3664 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3666 return make_number (ScreenCount (dpyinfo
->display
));
3669 DEFUN ("x-display-mm-height", Fx_display_mm_height
, Sx_display_mm_height
, 0, 1, 0,
3670 doc
: /* Return the height in millimeters of the X display DISPLAY.
3671 The optional argument DISPLAY specifies which display to ask about.
3672 DISPLAY should be either a frame or a display name (a string).
3673 If omitted or nil, that stands for the selected frame's display. */)
3675 Lisp_Object display
;
3677 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3679 return make_number (HeightMMOfScreen (dpyinfo
->screen
));
3682 DEFUN ("x-display-mm-width", Fx_display_mm_width
, Sx_display_mm_width
, 0, 1, 0,
3683 doc
: /* Return the width in millimeters of the X display DISPLAY.
3684 The optional argument DISPLAY specifies which display to ask about.
3685 DISPLAY should be either a frame or a display name (a string).
3686 If omitted or nil, that stands for the selected frame's display. */)
3688 Lisp_Object display
;
3690 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3692 return make_number (WidthMMOfScreen (dpyinfo
->screen
));
3695 DEFUN ("x-display-backing-store", Fx_display_backing_store
,
3696 Sx_display_backing_store
, 0, 1, 0,
3697 doc
: /* Returns an indication of whether X display DISPLAY does backing store.
3698 The value may be `always', `when-mapped', or `not-useful'.
3699 The optional argument DISPLAY specifies which display to ask about.
3700 DISPLAY should be either a frame or a display name (a string).
3701 If omitted or nil, that stands for the selected frame's display. */)
3703 Lisp_Object display
;
3705 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3708 switch (DoesBackingStore (dpyinfo
->screen
))
3711 result
= intern ("always");
3715 result
= intern ("when-mapped");
3719 result
= intern ("not-useful");
3723 error ("Strange value for BackingStore parameter of screen");
3730 DEFUN ("x-display-visual-class", Fx_display_visual_class
,
3731 Sx_display_visual_class
, 0, 1, 0,
3732 doc
: /* Return the visual class of the X display DISPLAY.
3733 The value is one of the symbols `static-gray', `gray-scale',
3734 `static-color', `pseudo-color', `true-color', or `direct-color'.
3736 The optional argument DISPLAY specifies which display to ask about.
3737 DISPLAY should be either a frame or a display name (a string).
3738 If omitted or nil, that stands for the selected frame's display. */)
3740 Lisp_Object display
;
3742 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3745 switch (dpyinfo
->visual
->class)
3748 result
= intern ("static-gray");
3751 result
= intern ("gray-scale");
3754 result
= intern ("static-color");
3757 result
= intern ("pseudo-color");
3760 result
= intern ("true-color");
3763 result
= intern ("direct-color");
3766 error ("Display has an unknown visual class");
3773 DEFUN ("x-display-save-under", Fx_display_save_under
,
3774 Sx_display_save_under
, 0, 1, 0,
3775 doc
: /* Returns t if the X display DISPLAY supports the save-under feature.
3776 The optional argument DISPLAY specifies which display to ask about.
3777 DISPLAY should be either a frame or a display name (a string).
3778 If omitted or nil, that stands for the selected frame's display. */)
3780 Lisp_Object display
;
3782 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3784 if (DoesSaveUnders (dpyinfo
->screen
) == True
)
3792 register struct frame
*f
;
3794 return FRAME_PIXEL_WIDTH (f
);
3799 register struct frame
*f
;
3801 return FRAME_PIXEL_HEIGHT (f
);
3806 register struct frame
*f
;
3808 return FRAME_COLUMN_WIDTH (f
);
3813 register struct frame
*f
;
3815 return FRAME_LINE_HEIGHT (f
);
3820 register struct frame
*f
;
3822 return FRAME_X_DISPLAY_INFO (f
)->n_planes
;
3827 /************************************************************************
3829 ************************************************************************/
3832 /* Mapping visual names to visuals. */
3834 static struct visual_class
3841 {"StaticGray", StaticGray
},
3842 {"GrayScale", GrayScale
},
3843 {"StaticColor", StaticColor
},
3844 {"PseudoColor", PseudoColor
},
3845 {"TrueColor", TrueColor
},
3846 {"DirectColor", DirectColor
},
3851 #ifndef HAVE_XSCREENNUMBEROFSCREEN
3853 /* Value is the screen number of screen SCR. This is a substitute for
3854 the X function with the same name when that doesn't exist. */
3857 XScreenNumberOfScreen (scr
)
3858 register Screen
*scr
;
3860 Display
*dpy
= scr
->display
;
3863 for (i
= 0; i
< dpy
->nscreens
; ++i
)
3864 if (scr
== dpy
->screens
+ i
)
3870 #endif /* not HAVE_XSCREENNUMBEROFSCREEN */
3873 /* Select the visual that should be used on display DPYINFO. Set
3874 members of DPYINFO appropriately. Called from x_term_init. */
3877 select_visual (dpyinfo
)
3878 struct x_display_info
*dpyinfo
;
3880 Display
*dpy
= dpyinfo
->display
;
3881 Screen
*screen
= dpyinfo
->screen
;
3884 /* See if a visual is specified. */
3885 value
= display_x_get_resource (dpyinfo
,
3886 build_string ("visualClass"),
3887 build_string ("VisualClass"),
3889 if (STRINGP (value
))
3891 /* VALUE should be of the form CLASS-DEPTH, where CLASS is one
3892 of `PseudoColor', `TrueColor' etc. and DEPTH is the color
3893 depth, a decimal number. NAME is compared with case ignored. */
3894 char *s
= (char *) alloca (SBYTES (value
) + 1);
3899 strcpy (s
, SDATA (value
));
3900 dash
= index (s
, '-');
3903 dpyinfo
->n_planes
= atoi (dash
+ 1);
3907 /* We won't find a matching visual with depth 0, so that
3908 an error will be printed below. */
3909 dpyinfo
->n_planes
= 0;
3911 /* Determine the visual class. */
3912 for (i
= 0; visual_classes
[i
].name
; ++i
)
3913 if (xstricmp (s
, visual_classes
[i
].name
) == 0)
3915 class = visual_classes
[i
].class;
3919 /* Look up a matching visual for the specified class. */
3921 || !XMatchVisualInfo (dpy
, XScreenNumberOfScreen (screen
),
3922 dpyinfo
->n_planes
, class, &vinfo
))
3923 fatal ("Invalid visual specification `%s'", SDATA (value
));
3925 dpyinfo
->visual
= vinfo
.visual
;
3930 XVisualInfo
*vinfo
, vinfo_template
;
3932 dpyinfo
->visual
= DefaultVisualOfScreen (screen
);
3935 vinfo_template
.visualid
= XVisualIDFromVisual (dpyinfo
->visual
);
3937 vinfo_template
.visualid
= dpyinfo
->visual
->visualid
;
3939 vinfo_template
.screen
= XScreenNumberOfScreen (screen
);
3940 vinfo
= XGetVisualInfo (dpy
, VisualIDMask
| VisualScreenMask
,
3941 &vinfo_template
, &n_visuals
);
3943 fatal ("Can't get proper X visual info");
3945 dpyinfo
->n_planes
= vinfo
->depth
;
3946 XFree ((char *) vinfo
);
3951 /* Return the X display structure for the display named NAME.
3952 Open a new connection if necessary. */
3954 struct x_display_info
*
3955 x_display_info_for_name (name
)
3959 struct x_display_info
*dpyinfo
;
3961 CHECK_STRING (name
);
3963 if (! EQ (Vwindow_system
, intern ("x")))
3964 error ("Not using X Windows");
3966 for (dpyinfo
= x_display_list
, names
= x_display_name_list
;
3968 dpyinfo
= dpyinfo
->next
, names
= XCDR (names
))
3971 tem
= Fstring_equal (XCAR (XCAR (names
)), name
);
3976 /* Use this general default value to start with. */
3977 Vx_resource_name
= Vinvocation_name
;
3979 validate_x_resource_name ();
3981 dpyinfo
= x_term_init (name
, (char *)0,
3982 (char *) SDATA (Vx_resource_name
));
3985 error ("Cannot connect to X server %s", SDATA (name
));
3988 XSETFASTINT (Vwindow_system_version
, 11);
3994 DEFUN ("x-open-connection", Fx_open_connection
, Sx_open_connection
,
3996 doc
: /* Open a connection to an X server.
3997 DISPLAY is the name of the display to connect to.
3998 Optional second arg XRM-STRING is a string of resources in xrdb format.
3999 If the optional third arg MUST-SUCCEED is non-nil,
4000 terminate Emacs if we can't open the connection. */)
4001 (display
, xrm_string
, must_succeed
)
4002 Lisp_Object display
, xrm_string
, must_succeed
;
4004 unsigned char *xrm_option
;
4005 struct x_display_info
*dpyinfo
;
4007 CHECK_STRING (display
);
4008 if (! NILP (xrm_string
))
4009 CHECK_STRING (xrm_string
);
4011 if (! EQ (Vwindow_system
, intern ("x")))
4012 error ("Not using X Windows");
4014 if (! NILP (xrm_string
))
4015 xrm_option
= (unsigned char *) SDATA (xrm_string
);
4017 xrm_option
= (unsigned char *) 0;
4019 validate_x_resource_name ();
4021 /* This is what opens the connection and sets x_current_display.
4022 This also initializes many symbols, such as those used for input. */
4023 dpyinfo
= x_term_init (display
, xrm_option
,
4024 (char *) SDATA (Vx_resource_name
));
4028 if (!NILP (must_succeed
))
4029 fatal ("Cannot connect to X server %s.\n\
4030 Check the DISPLAY environment variable or use `-d'.\n\
4031 Also use the `xauth' program to verify that you have the proper\n\
4032 authorization information needed to connect the X server.\n\
4033 An insecure way to solve the problem may be to use `xhost'.\n",
4036 error ("Cannot connect to X server %s", SDATA (display
));
4041 XSETFASTINT (Vwindow_system_version
, 11);
4045 DEFUN ("x-close-connection", Fx_close_connection
,
4046 Sx_close_connection
, 1, 1, 0,
4047 doc
: /* Close the connection to DISPLAY's X server.
4048 For DISPLAY, specify either a frame or a display name (a string).
4049 If DISPLAY is nil, that stands for the selected frame's display. */)
4051 Lisp_Object display
;
4053 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
4056 if (dpyinfo
->reference_count
> 0)
4057 error ("Display still has frames on it");
4060 /* Free the fonts in the font table. */
4061 for (i
= 0; i
< dpyinfo
->n_fonts
; i
++)
4062 if (dpyinfo
->font_table
[i
].name
)
4064 XFreeFont (dpyinfo
->display
, dpyinfo
->font_table
[i
].font
);
4067 x_destroy_all_bitmaps (dpyinfo
);
4068 XSetCloseDownMode (dpyinfo
->display
, DestroyAll
);
4070 #ifdef USE_X_TOOLKIT
4071 XtCloseDisplay (dpyinfo
->display
);
4073 XCloseDisplay (dpyinfo
->display
);
4076 x_delete_display (dpyinfo
);
4082 DEFUN ("x-display-list", Fx_display_list
, Sx_display_list
, 0, 0, 0,
4083 doc
: /* Return the list of display names that Emacs has connections to. */)
4086 Lisp_Object tail
, result
;
4089 for (tail
= x_display_name_list
; ! NILP (tail
); tail
= XCDR (tail
))
4090 result
= Fcons (XCAR (XCAR (tail
)), result
);
4095 DEFUN ("x-synchronize", Fx_synchronize
, Sx_synchronize
, 1, 2, 0,
4096 doc
: /* If ON is non-nil, report X errors as soon as the erring request is made.
4097 If ON is nil, allow buffering of requests.
4098 Turning on synchronization prohibits the Xlib routines from buffering
4099 requests and seriously degrades performance, but makes debugging much
4101 The optional second argument DISPLAY specifies which display to act on.
4102 DISPLAY should be either a frame or a display name (a string).
4103 If DISPLAY is omitted or nil, that stands for the selected frame's display. */)
4105 Lisp_Object display
, on
;
4107 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
4109 XSynchronize (dpyinfo
->display
, !EQ (on
, Qnil
));
4114 /* Wait for responses to all X commands issued so far for frame F. */
4121 XSync (FRAME_X_DISPLAY (f
), False
);
4126 /***********************************************************************
4128 ***********************************************************************/
4130 DEFUN ("x-change-window-property", Fx_change_window_property
,
4131 Sx_change_window_property
, 2, 6, 0,
4132 doc
: /* Change window property PROP to VALUE on the X window of FRAME.
4133 PROP must be a string.
4134 VALUE may be a string or a list of conses, numbers and/or strings.
4135 If an element in the list is a string, it is converted to
4136 an Atom and the value of the Atom is used. If an element is a cons,
4137 it is converted to a 32 bit number where the car is the 16 top bits and the
4138 cdr is the lower 16 bits.
4139 FRAME nil or omitted means use the selected frame.
4140 If TYPE is given and non-nil, it is the name of the type of VALUE.
4141 If TYPE is not given or nil, the type is STRING.
4142 FORMAT gives the size in bits of each element if VALUE is a list.
4143 It must be one of 8, 16 or 32.
4144 If VALUE is a string or FORMAT is nil or not given, FORMAT defaults to 8.
4145 If OUTER_P is non-nil, the property is changed for the outer X window of
4146 FRAME. Default is to change on the edit X window.
4149 (prop
, value
, frame
, type
, format
, outer_p
)
4150 Lisp_Object prop
, value
, frame
, type
, format
, outer_p
;
4152 struct frame
*f
= check_x_frame (frame
);
4154 Atom target_type
= XA_STRING
;
4155 int element_format
= 8;
4156 unsigned char *data
;
4160 CHECK_STRING (prop
);
4162 if (! NILP (format
))
4164 CHECK_NUMBER (format
);
4165 element_format
= XFASTINT (format
);
4167 if (element_format
!= 8 && element_format
!= 16
4168 && element_format
!= 32)
4169 error ("FORMAT must be one of 8, 16 or 32");
4174 nelements
= x_check_property_data (value
);
4175 if (nelements
== -1)
4176 error ("Bad data in VALUE, must be number, string or cons");
4178 if (element_format
== 8)
4179 data
= (unsigned char *) xmalloc (nelements
);
4180 else if (element_format
== 16)
4181 data
= (unsigned char *) xmalloc (nelements
*2);
4182 else /* format == 32 */
4183 /* The man page for XChangeProperty:
4184 "If the specified format is 32, the property data must be a
4186 This applies even if long is more than 64 bits. The X library
4187 converts to 32 bits before sending to the X server. */
4188 data
= (unsigned char *) xmalloc (nelements
* sizeof(long));
4190 x_fill_property_data (FRAME_X_DISPLAY (f
), value
, data
, element_format
);
4194 CHECK_STRING (value
);
4195 data
= SDATA (value
);
4196 nelements
= SCHARS (value
);
4200 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4203 CHECK_STRING (type
);
4204 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (type
), False
);
4207 if (! NILP (outer_p
)) w
= FRAME_OUTER_WINDOW (f
);
4208 else w
= FRAME_X_WINDOW (f
);
4210 XChangeProperty (FRAME_X_DISPLAY (f
), w
,
4211 prop_atom
, target_type
, element_format
, PropModeReplace
,
4214 if (CONSP (value
)) xfree (data
);
4216 /* Make sure the property is set when we return. */
4217 XFlush (FRAME_X_DISPLAY (f
));
4224 DEFUN ("x-delete-window-property", Fx_delete_window_property
,
4225 Sx_delete_window_property
, 1, 2, 0,
4226 doc
: /* Remove window property PROP from X window of FRAME.
4227 FRAME nil or omitted means use the selected frame. Value is PROP. */)
4229 Lisp_Object prop
, frame
;
4231 struct frame
*f
= check_x_frame (frame
);
4234 CHECK_STRING (prop
);
4236 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4237 XDeleteProperty (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), prop_atom
);
4239 /* Make sure the property is removed when we return. */
4240 XFlush (FRAME_X_DISPLAY (f
));
4247 DEFUN ("x-window-property", Fx_window_property
, Sx_window_property
,
4249 doc
: /* Value is the value of window property PROP on FRAME.
4250 If FRAME is nil or omitted, use the selected frame.
4251 If TYPE is nil or omitted, get the property as a string. Otherwise TYPE
4252 is the name of the Atom that denotes the type expected.
4253 If SOURCE is non-nil, get the property on that window instead of from
4254 FRAME. The number 0 denotes the root window.
4255 If DELETE_P is non-nil, delete the property after retreiving it.
4256 If VECTOR_RET_P is non-nil, don't return a string but a vector of values.
4258 Value is nil if FRAME hasn't a property with name PROP or if PROP has
4259 no value of TYPE. */)
4260 (prop
, frame
, type
, source
, delete_p
, vector_ret_p
)
4261 Lisp_Object prop
, frame
, type
, source
, delete_p
, vector_ret_p
;
4263 struct frame
*f
= check_x_frame (frame
);
4266 Lisp_Object prop_value
= Qnil
;
4267 unsigned char *tmp_data
= NULL
;
4269 Atom target_type
= XA_STRING
;
4271 unsigned long actual_size
, bytes_remaining
;
4272 Window target_window
= FRAME_X_WINDOW (f
);
4273 struct gcpro gcpro1
;
4275 GCPRO1 (prop_value
);
4276 CHECK_STRING (prop
);
4278 if (! NILP (source
))
4280 if (NUMBERP (source
))
4282 if (FLOATP (source
))
4283 target_window
= (Window
) XFLOAT (source
);
4285 target_window
= XFASTINT (source
);
4287 if (target_window
== 0)
4288 target_window
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4290 else if (CONSP (source
))
4291 target_window
= cons_to_long (source
);
4297 if (strcmp ("AnyPropertyType", SDATA (type
)) == 0)
4298 target_type
= AnyPropertyType
;
4300 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (type
), False
);
4303 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4304 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4305 prop_atom
, 0, 0, False
, target_type
,
4306 &actual_type
, &actual_format
, &actual_size
,
4307 &bytes_remaining
, &tmp_data
);
4310 int size
= bytes_remaining
;
4315 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4316 prop_atom
, 0, bytes_remaining
,
4317 ! NILP (delete_p
), target_type
,
4318 &actual_type
, &actual_format
,
4319 &actual_size
, &bytes_remaining
,
4321 if (rc
== Success
&& tmp_data
)
4323 /* The man page for XGetWindowProperty says:
4324 "If the returned format is 32, the returned data is represented
4325 as a long array and should be cast to that type to obtain the
4327 This applies even if long is more than 32 bits, the X library
4328 converts from 32 bit elements received from the X server to long
4329 and passes the long array to us. Thus, for that case bcopy can not
4330 be used. We convert to a 32 bit type here, because so much code
4333 The bytes and offsets passed to XGetWindowProperty refers to the
4334 property and those are indeed in 32 bit quantities if format is
4337 if (actual_format
== 32 && actual_format
< BITS_PER_LONG
)
4340 int *idata
= (int *) tmp_data
;
4341 long *ldata
= (long *) tmp_data
;
4343 for (i
= 0; i
< actual_size
; ++i
)
4344 idata
[i
] = (int) ldata
[i
];
4347 if (NILP (vector_ret_p
))
4348 prop_value
= make_string (tmp_data
, size
);
4350 prop_value
= x_property_data_to_lisp (f
,
4357 if (tmp_data
) XFree (tmp_data
);
4367 /***********************************************************************
4369 ***********************************************************************/
4371 /* If non-null, an asynchronous timer that, when it expires, displays
4372 an hourglass cursor on all frames. */
4374 static struct atimer
*hourglass_atimer
;
4376 /* Non-zero means an hourglass cursor is currently shown. */
4378 static int hourglass_shown_p
;
4380 /* Number of seconds to wait before displaying an hourglass cursor. */
4382 static Lisp_Object Vhourglass_delay
;
4384 /* Default number of seconds to wait before displaying an hourglass
4387 #define DEFAULT_HOURGLASS_DELAY 1
4389 /* Function prototypes. */
4391 static void show_hourglass
P_ ((struct atimer
*));
4392 static void hide_hourglass
P_ ((void));
4394 /* Return non-zero if houglass timer has been started or hourglass is shown. */
4397 hourglass_started ()
4399 return hourglass_shown_p
|| hourglass_atimer
!= NULL
;
4403 /* Cancel a currently active hourglass timer, and start a new one. */
4409 int secs
, usecs
= 0;
4411 /* Don't bother for ttys. */
4412 if (NILP (Vwindow_system
))
4415 cancel_hourglass ();
4417 if (INTEGERP (Vhourglass_delay
)
4418 && XINT (Vhourglass_delay
) > 0)
4419 secs
= XFASTINT (Vhourglass_delay
);
4420 else if (FLOATP (Vhourglass_delay
)
4421 && XFLOAT_DATA (Vhourglass_delay
) > 0)
4424 tem
= Ftruncate (Vhourglass_delay
, Qnil
);
4425 secs
= XFASTINT (tem
);
4426 usecs
= (XFLOAT_DATA (Vhourglass_delay
) - secs
) * 1000000;
4429 secs
= DEFAULT_HOURGLASS_DELAY
;
4431 EMACS_SET_SECS_USECS (delay
, secs
, usecs
);
4432 hourglass_atimer
= start_atimer (ATIMER_RELATIVE
, delay
,
4433 show_hourglass
, NULL
);
4437 /* Cancel the hourglass cursor timer if active, hide a busy cursor if
4443 if (hourglass_atimer
)
4445 cancel_atimer (hourglass_atimer
);
4446 hourglass_atimer
= NULL
;
4449 if (hourglass_shown_p
)
4454 /* Timer function of hourglass_atimer. TIMER is equal to
4457 Display an hourglass pointer on all frames by mapping the frames'
4458 hourglass_window. Set the hourglass_p flag in the frames'
4459 output_data.x structure to indicate that an hourglass cursor is
4460 shown on the frames. */
4463 show_hourglass (timer
)
4464 struct atimer
*timer
;
4466 /* The timer implementation will cancel this timer automatically
4467 after this function has run. Set hourglass_atimer to null
4468 so that we know the timer doesn't have to be canceled. */
4469 hourglass_atimer
= NULL
;
4471 if (!hourglass_shown_p
)
4473 Lisp_Object rest
, frame
;
4477 FOR_EACH_FRAME (rest
, frame
)
4479 struct frame
*f
= XFRAME (frame
);
4481 if (FRAME_LIVE_P (f
) && FRAME_X_P (f
) && FRAME_X_DISPLAY (f
))
4483 Display
*dpy
= FRAME_X_DISPLAY (f
);
4485 #ifdef USE_X_TOOLKIT
4486 if (f
->output_data
.x
->widget
)
4488 if (FRAME_OUTER_WINDOW (f
))
4491 f
->output_data
.x
->hourglass_p
= 1;
4493 if (!f
->output_data
.x
->hourglass_window
)
4495 unsigned long mask
= CWCursor
;
4496 XSetWindowAttributes attrs
;
4498 Window parent
= FRAME_X_WINDOW (f
);
4500 Window parent
= FRAME_OUTER_WINDOW (f
);
4502 attrs
.cursor
= f
->output_data
.x
->hourglass_cursor
;
4504 f
->output_data
.x
->hourglass_window
4505 = XCreateWindow (dpy
, parent
,
4506 0, 0, 32000, 32000, 0, 0,
4512 XMapRaised (dpy
, f
->output_data
.x
->hourglass_window
);
4518 hourglass_shown_p
= 1;
4524 /* Hide the hourglass pointer on all frames, if it is currently
4530 if (hourglass_shown_p
)
4532 Lisp_Object rest
, frame
;
4535 FOR_EACH_FRAME (rest
, frame
)
4537 struct frame
*f
= XFRAME (frame
);
4540 /* Watch out for newly created frames. */
4541 && f
->output_data
.x
->hourglass_window
)
4543 XUnmapWindow (FRAME_X_DISPLAY (f
),
4544 f
->output_data
.x
->hourglass_window
);
4545 /* Sync here because XTread_socket looks at the
4546 hourglass_p flag that is reset to zero below. */
4547 XSync (FRAME_X_DISPLAY (f
), False
);
4548 f
->output_data
.x
->hourglass_p
= 0;
4552 hourglass_shown_p
= 0;
4559 /***********************************************************************
4561 ***********************************************************************/
4563 static Lisp_Object x_create_tip_frame
P_ ((struct x_display_info
*,
4564 Lisp_Object
, Lisp_Object
));
4565 static void compute_tip_xy
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
,
4566 Lisp_Object
, int, int, int *, int *));
4568 /* The frame of a currently visible tooltip. */
4570 Lisp_Object tip_frame
;
4572 /* If non-nil, a timer started that hides the last tooltip when it
4575 Lisp_Object tip_timer
;
4578 /* If non-nil, a vector of 3 elements containing the last args
4579 with which x-show-tip was called. See there. */
4581 Lisp_Object last_show_tip_args
;
4583 /* Maximum size for tooltips; a cons (COLUMNS . ROWS). */
4585 Lisp_Object Vx_max_tooltip_size
;
4589 unwind_create_tip_frame (frame
)
4592 Lisp_Object deleted
;
4594 deleted
= unwind_create_frame (frame
);
4595 if (EQ (deleted
, Qt
))
4605 /* Create a frame for a tooltip on the display described by DPYINFO.
4606 PARMS is a list of frame parameters. TEXT is the string to
4607 display in the tip frame. Value is the frame.
4609 Note that functions called here, esp. x_default_parameter can
4610 signal errors, for instance when a specified color name is
4611 undefined. We have to make sure that we're in a consistent state
4612 when this happens. */
4615 x_create_tip_frame (dpyinfo
, parms
, text
)
4616 struct x_display_info
*dpyinfo
;
4617 Lisp_Object parms
, text
;
4620 Lisp_Object frame
, tem
;
4622 long window_prompting
= 0;
4624 int count
= SPECPDL_INDEX ();
4625 struct gcpro gcpro1
, gcpro2
, gcpro3
;
4627 int face_change_count_before
= face_change_count
;
4629 struct buffer
*old_buffer
;
4633 parms
= Fcopy_alist (parms
);
4636 kb
= dpyinfo
->kboard
;
4638 kb
= &the_only_kboard
;
4641 /* Get the name of the frame to use for resource lookup. */
4642 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
4644 && !EQ (name
, Qunbound
)
4646 error ("Invalid frame name--not a string or nil");
4649 GCPRO3 (parms
, name
, frame
);
4651 XSETFRAME (frame
, f
);
4653 buffer
= Fget_buffer_create (build_string (" *tip*"));
4654 Fset_window_buffer (FRAME_ROOT_WINDOW (f
), buffer
, Qnil
);
4655 old_buffer
= current_buffer
;
4656 set_buffer_internal_1 (XBUFFER (buffer
));
4657 current_buffer
->truncate_lines
= Qnil
;
4658 specbind (Qinhibit_read_only
, Qt
);
4659 specbind (Qinhibit_modification_hooks
, Qt
);
4662 set_buffer_internal_1 (old_buffer
);
4664 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 0;
4665 record_unwind_protect (unwind_create_tip_frame
, frame
);
4667 /* By setting the output method, we're essentially saying that
4668 the frame is live, as per FRAME_LIVE_P. If we get a signal
4669 from this point on, x_destroy_window might screw up reference
4671 f
->output_method
= output_x_window
;
4672 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
4673 bzero (f
->output_data
.x
, sizeof (struct x_output
));
4674 f
->output_data
.x
->icon_bitmap
= -1;
4675 FRAME_FONTSET (f
) = -1;
4676 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
4677 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
4678 #ifdef USE_TOOLKIT_SCROLL_BARS
4679 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
4680 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
4681 #endif /* USE_TOOLKIT_SCROLL_BARS */
4682 f
->icon_name
= Qnil
;
4683 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
4685 image_cache_refcount
= FRAME_X_IMAGE_CACHE (f
)->refcount
;
4686 dpyinfo_refcount
= dpyinfo
->reference_count
;
4687 #endif /* GLYPH_DEBUG */
4689 FRAME_KBOARD (f
) = kb
;
4691 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4692 f
->output_data
.x
->explicit_parent
= 0;
4694 /* These colors will be set anyway later, but it's important
4695 to get the color reference counts right, so initialize them! */
4698 struct gcpro gcpro1
;
4700 black
= build_string ("black");
4702 f
->output_data
.x
->foreground_pixel
4703 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4704 f
->output_data
.x
->background_pixel
4705 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4706 f
->output_data
.x
->cursor_pixel
4707 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4708 f
->output_data
.x
->cursor_foreground_pixel
4709 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4710 f
->output_data
.x
->border_pixel
4711 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4712 f
->output_data
.x
->mouse_pixel
4713 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4717 /* Set the name; the functions to which we pass f expect the name to
4719 if (EQ (name
, Qunbound
) || NILP (name
))
4721 f
->name
= build_string (dpyinfo
->x_id_name
);
4722 f
->explicit_name
= 0;
4727 f
->explicit_name
= 1;
4728 /* use the frame's title when getting resources for this frame. */
4729 specbind (Qx_resource_name
, name
);
4732 /* Extract the window parameters from the supplied values that are
4733 needed to determine window geometry. */
4737 font
= x_get_arg (dpyinfo
, parms
, Qfont
, "font", "Font", RES_TYPE_STRING
);
4740 /* First, try whatever font the caller has specified. */
4743 tem
= Fquery_fontset (font
, Qnil
);
4745 font
= x_new_fontset (f
, SDATA (tem
));
4747 font
= x_new_font (f
, SDATA (font
));
4750 /* Try out a font which we hope has bold and italic variations. */
4751 if (!STRINGP (font
))
4752 font
= x_new_font (f
, "-adobe-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-1");
4753 if (!STRINGP (font
))
4754 font
= x_new_font (f
, "-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-1");
4755 if (! STRINGP (font
))
4756 font
= x_new_font (f
, "-*-*-medium-r-normal-*-*-140-*-*-c-*-iso8859-1");
4757 if (! STRINGP (font
))
4758 /* This was formerly the first thing tried, but it finds too many fonts
4759 and takes too long. */
4760 font
= x_new_font (f
, "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1");
4761 /* If those didn't work, look for something which will at least work. */
4762 if (! STRINGP (font
))
4763 font
= x_new_font (f
, "-*-fixed-*-*-*-*-*-140-*-*-c-*-iso8859-1");
4765 if (! STRINGP (font
))
4766 font
= build_string ("fixed");
4768 x_default_parameter (f
, parms
, Qfont
, font
,
4769 "font", "Font", RES_TYPE_STRING
);
4772 x_default_parameter (f
, parms
, Qborder_width
, make_number (2),
4773 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
4775 /* This defaults to 2 in order to match xterm. We recognize either
4776 internalBorderWidth or internalBorder (which is what xterm calls
4778 if (NILP (Fassq (Qinternal_border_width
, parms
)))
4782 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
4783 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
4784 if (! EQ (value
, Qunbound
))
4785 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
4789 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
4790 "internalBorderWidth", "internalBorderWidth",
4793 /* Also do the stuff which must be set before the window exists. */
4794 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
4795 "foreground", "Foreground", RES_TYPE_STRING
);
4796 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
4797 "background", "Background", RES_TYPE_STRING
);
4798 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
4799 "pointerColor", "Foreground", RES_TYPE_STRING
);
4800 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
4801 "cursorColor", "Foreground", RES_TYPE_STRING
);
4802 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
4803 "borderColor", "BorderColor", RES_TYPE_STRING
);
4805 /* Init faces before x_default_parameter is called for scroll-bar
4806 parameters because that function calls x_set_scroll_bar_width,
4807 which calls change_frame_size, which calls Fset_window_buffer,
4808 which runs hooks, which call Fvertical_motion. At the end, we
4809 end up in init_iterator with a null face cache, which should not
4811 init_frame_faces (f
);
4813 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4815 window_prompting
= x_figure_window_size (f
, parms
, 0);
4818 XSetWindowAttributes attrs
;
4822 mask
= CWBackPixel
| CWOverrideRedirect
| CWEventMask
;
4823 if (DoesSaveUnders (dpyinfo
->screen
))
4824 mask
|= CWSaveUnder
;
4826 /* Window managers look at the override-redirect flag to determine
4827 whether or net to give windows a decoration (Xlib spec, chapter
4829 attrs
.override_redirect
= True
;
4830 attrs
.save_under
= True
;
4831 attrs
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
4832 /* Arrange for getting MapNotify and UnmapNotify events. */
4833 attrs
.event_mask
= StructureNotifyMask
;
4835 = FRAME_X_WINDOW (f
)
4836 = XCreateWindow (FRAME_X_DISPLAY (f
),
4837 FRAME_X_DISPLAY_INFO (f
)->root_window
,
4838 /* x, y, width, height */
4842 CopyFromParent
, InputOutput
, CopyFromParent
,
4849 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
4850 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4851 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
4852 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4853 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
4854 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
4856 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
4857 Change will not be effected unless different from the current
4859 width
= FRAME_COLS (f
);
4860 height
= FRAME_LINES (f
);
4861 SET_FRAME_COLS (f
, 0);
4862 FRAME_LINES (f
) = 0;
4863 change_frame_size (f
, height
, width
, 1, 0, 0);
4865 /* Add `tooltip' frame parameter's default value. */
4866 if (NILP (Fframe_parameter (frame
, intern ("tooltip"))))
4867 Fmodify_frame_parameters (frame
, Fcons (Fcons (intern ("tooltip"), Qt
),
4870 /* Set up faces after all frame parameters are known. This call
4871 also merges in face attributes specified for new frames.
4873 Frame parameters may be changed if .Xdefaults contains
4874 specifications for the default font. For example, if there is an
4875 `Emacs.default.attributeBackground: pink', the `background-color'
4876 attribute of the frame get's set, which let's the internal border
4877 of the tooltip frame appear in pink. Prevent this. */
4879 Lisp_Object bg
= Fframe_parameter (frame
, Qbackground_color
);
4881 /* Set tip_frame here, so that */
4883 call1 (Qface_set_after_frame_default
, frame
);
4885 if (!EQ (bg
, Fframe_parameter (frame
, Qbackground_color
)))
4886 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qbackground_color
, bg
),
4894 /* It is now ok to make the frame official even if we get an error
4895 below. And the frame needs to be on Vframe_list or making it
4896 visible won't work. */
4897 Vframe_list
= Fcons (frame
, Vframe_list
);
4899 /* Now that the frame is official, it counts as a reference to
4901 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
4903 /* Setting attributes of faces of the tooltip frame from resources
4904 and similar will increment face_change_count, which leads to the
4905 clearing of all current matrices. Since this isn't necessary
4906 here, avoid it by resetting face_change_count to the value it
4907 had before we created the tip frame. */
4908 face_change_count
= face_change_count_before
;
4910 /* Discard the unwind_protect. */
4911 return unbind_to (count
, frame
);
4915 /* Compute where to display tip frame F. PARMS is the list of frame
4916 parameters for F. DX and DY are specified offsets from the current
4917 location of the mouse. WIDTH and HEIGHT are the width and height
4918 of the tooltip. Return coordinates relative to the root window of
4919 the display in *ROOT_X, and *ROOT_Y. */
4922 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, root_x
, root_y
)
4924 Lisp_Object parms
, dx
, dy
;
4926 int *root_x
, *root_y
;
4928 Lisp_Object left
, top
;
4933 /* User-specified position? */
4934 left
= Fcdr (Fassq (Qleft
, parms
));
4935 top
= Fcdr (Fassq (Qtop
, parms
));
4937 /* Move the tooltip window where the mouse pointer is. Resize and
4939 if (!INTEGERP (left
) || !INTEGERP (top
))
4942 XQueryPointer (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
4943 &root
, &child
, root_x
, root_y
, &win_x
, &win_y
, &pmask
);
4948 *root_y
= XINT (top
);
4949 else if (*root_y
+ XINT (dy
) <= 0)
4950 *root_y
= 0; /* Can happen for negative dy */
4951 else if (*root_y
+ XINT (dy
) + height
<= FRAME_X_DISPLAY_INFO (f
)->height
)
4952 /* It fits below the pointer */
4953 *root_y
+= XINT (dy
);
4954 else if (height
+ XINT (dy
) <= *root_y
)
4955 /* It fits above the pointer. */
4956 *root_y
-= height
+ XINT (dy
);
4958 /* Put it on the top. */
4961 if (INTEGERP (left
))
4962 *root_x
= XINT (left
);
4963 else if (*root_x
+ XINT (dx
) <= 0)
4964 *root_x
= 0; /* Can happen for negative dx */
4965 else if (*root_x
+ XINT (dx
) + width
<= FRAME_X_DISPLAY_INFO (f
)->width
)
4966 /* It fits to the right of the pointer. */
4967 *root_x
+= XINT (dx
);
4968 else if (width
+ XINT (dx
) <= *root_x
)
4969 /* It fits to the left of the pointer. */
4970 *root_x
-= width
+ XINT (dx
);
4972 /* Put it left-justified on the screen--it ought to fit that way. */
4977 DEFUN ("x-show-tip", Fx_show_tip
, Sx_show_tip
, 1, 6, 0,
4978 doc
: /* Show STRING in a "tooltip" window on frame FRAME.
4979 A tooltip window is a small X window displaying a string.
4981 FRAME nil or omitted means use the selected frame.
4983 PARMS is an optional list of frame parameters which can be used to
4984 change the tooltip's appearance.
4986 Automatically hide the tooltip after TIMEOUT seconds. TIMEOUT nil
4987 means use the default timeout of 5 seconds.
4989 If the list of frame parameters PARAMS contains a `left' parameters,
4990 the tooltip is displayed at that x-position. Otherwise it is
4991 displayed at the mouse position, with offset DX added (default is 5 if
4992 DX isn't specified). Likewise for the y-position; if a `top' frame
4993 parameter is specified, it determines the y-position of the tooltip
4994 window, otherwise it is displayed at the mouse position, with offset
4995 DY added (default is -10).
4997 A tooltip's maximum size is specified by `x-max-tooltip-size'.
4998 Text larger than the specified size is clipped. */)
4999 (string
, frame
, parms
, timeout
, dx
, dy
)
5000 Lisp_Object string
, frame
, parms
, timeout
, dx
, dy
;
5005 struct buffer
*old_buffer
;
5006 struct text_pos pos
;
5007 int i
, width
, height
;
5008 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
5009 int old_windows_or_buffers_changed
= windows_or_buffers_changed
;
5010 int count
= SPECPDL_INDEX ();
5012 specbind (Qinhibit_redisplay
, Qt
);
5014 GCPRO4 (string
, parms
, frame
, timeout
);
5016 CHECK_STRING (string
);
5017 f
= check_x_frame (frame
);
5019 timeout
= make_number (5);
5021 CHECK_NATNUM (timeout
);
5024 dx
= make_number (5);
5029 dy
= make_number (-10);
5033 if (NILP (last_show_tip_args
))
5034 last_show_tip_args
= Fmake_vector (make_number (3), Qnil
);
5036 if (!NILP (tip_frame
))
5038 Lisp_Object last_string
= AREF (last_show_tip_args
, 0);
5039 Lisp_Object last_frame
= AREF (last_show_tip_args
, 1);
5040 Lisp_Object last_parms
= AREF (last_show_tip_args
, 2);
5042 if (EQ (frame
, last_frame
)
5043 && !NILP (Fequal (last_string
, string
))
5044 && !NILP (Fequal (last_parms
, parms
)))
5046 struct frame
*f
= XFRAME (tip_frame
);
5048 /* Only DX and DY have changed. */
5049 if (!NILP (tip_timer
))
5051 Lisp_Object timer
= tip_timer
;
5053 call1 (Qcancel_timer
, timer
);
5057 compute_tip_xy (f
, parms
, dx
, dy
, FRAME_PIXEL_WIDTH (f
),
5058 FRAME_PIXEL_HEIGHT (f
), &root_x
, &root_y
);
5059 XMoveWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5066 /* Hide a previous tip, if any. */
5069 ASET (last_show_tip_args
, 0, string
);
5070 ASET (last_show_tip_args
, 1, frame
);
5071 ASET (last_show_tip_args
, 2, parms
);
5073 /* Add default values to frame parameters. */
5074 if (NILP (Fassq (Qname
, parms
)))
5075 parms
= Fcons (Fcons (Qname
, build_string ("tooltip")), parms
);
5076 if (NILP (Fassq (Qinternal_border_width
, parms
)))
5077 parms
= Fcons (Fcons (Qinternal_border_width
, make_number (3)), parms
);
5078 if (NILP (Fassq (Qborder_width
, parms
)))
5079 parms
= Fcons (Fcons (Qborder_width
, make_number (1)), parms
);
5080 if (NILP (Fassq (Qborder_color
, parms
)))
5081 parms
= Fcons (Fcons (Qborder_color
, build_string ("lightyellow")), parms
);
5082 if (NILP (Fassq (Qbackground_color
, parms
)))
5083 parms
= Fcons (Fcons (Qbackground_color
, build_string ("lightyellow")),
5086 /* Create a frame for the tooltip, and record it in the global
5087 variable tip_frame. */
5088 frame
= x_create_tip_frame (FRAME_X_DISPLAY_INFO (f
), parms
, string
);
5091 /* Set up the frame's root window. */
5092 w
= XWINDOW (FRAME_ROOT_WINDOW (f
));
5093 w
->left_col
= w
->top_line
= make_number (0);
5095 if (CONSP (Vx_max_tooltip_size
)
5096 && INTEGERP (XCAR (Vx_max_tooltip_size
))
5097 && XINT (XCAR (Vx_max_tooltip_size
)) > 0
5098 && INTEGERP (XCDR (Vx_max_tooltip_size
))
5099 && XINT (XCDR (Vx_max_tooltip_size
)) > 0)
5101 w
->total_cols
= XCAR (Vx_max_tooltip_size
);
5102 w
->total_lines
= XCDR (Vx_max_tooltip_size
);
5106 w
->total_cols
= make_number (80);
5107 w
->total_lines
= make_number (40);
5110 FRAME_TOTAL_COLS (f
) = XINT (w
->total_cols
);
5112 w
->pseudo_window_p
= 1;
5114 /* Display the tooltip text in a temporary buffer. */
5115 old_buffer
= current_buffer
;
5116 set_buffer_internal_1 (XBUFFER (XWINDOW (FRAME_ROOT_WINDOW (f
))->buffer
));
5117 current_buffer
->truncate_lines
= Qnil
;
5118 clear_glyph_matrix (w
->desired_matrix
);
5119 clear_glyph_matrix (w
->current_matrix
);
5120 SET_TEXT_POS (pos
, BEGV
, BEGV_BYTE
);
5121 try_window (FRAME_ROOT_WINDOW (f
), pos
, 0);
5123 /* Compute width and height of the tooltip. */
5125 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
5127 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
5131 /* Stop at the first empty row at the end. */
5132 if (!row
->enabled_p
|| !row
->displays_text_p
)
5135 /* Let the row go over the full width of the frame. */
5136 row
->full_width_p
= 1;
5138 /* There's a glyph at the end of rows that is used to place
5139 the cursor there. Don't include the width of this glyph. */
5140 if (row
->used
[TEXT_AREA
])
5142 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
5143 row_width
= row
->pixel_width
- last
->pixel_width
;
5146 row_width
= row
->pixel_width
;
5148 height
+= row
->height
;
5149 width
= max (width
, row_width
);
5152 /* Add the frame's internal border to the width and height the X
5153 window should have. */
5154 height
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5155 width
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5157 /* Move the tooltip window where the mouse pointer is. Resize and
5159 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
5162 XMoveResizeWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5163 root_x
, root_y
, width
, height
);
5164 XMapRaised (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
));
5167 /* Draw into the window. */
5168 w
->must_be_updated_p
= 1;
5169 update_single_window (w
, 1);
5171 /* Restore original current buffer. */
5172 set_buffer_internal_1 (old_buffer
);
5173 windows_or_buffers_changed
= old_windows_or_buffers_changed
;
5176 /* Let the tip disappear after timeout seconds. */
5177 tip_timer
= call3 (intern ("run-at-time"), timeout
, Qnil
,
5178 intern ("x-hide-tip"));
5181 return unbind_to (count
, Qnil
);
5185 DEFUN ("x-hide-tip", Fx_hide_tip
, Sx_hide_tip
, 0, 0, 0,
5186 doc
: /* Hide the current tooltip window, if there is any.
5187 Value is t if tooltip was open, nil otherwise. */)
5191 Lisp_Object deleted
, frame
, timer
;
5192 struct gcpro gcpro1
, gcpro2
;
5194 /* Return quickly if nothing to do. */
5195 if (NILP (tip_timer
) && NILP (tip_frame
))
5200 GCPRO2 (frame
, timer
);
5201 tip_frame
= tip_timer
= deleted
= Qnil
;
5203 count
= SPECPDL_INDEX ();
5204 specbind (Qinhibit_redisplay
, Qt
);
5205 specbind (Qinhibit_quit
, Qt
);
5208 call1 (Qcancel_timer
, timer
);
5212 Fdelete_frame (frame
, Qnil
);
5216 /* Bloodcurdling hack alert: The Lucid menu bar widget's
5217 redisplay procedure is not called when a tip frame over menu
5218 items is unmapped. Redisplay the menu manually... */
5220 struct frame
*f
= SELECTED_FRAME ();
5221 Widget w
= f
->output_data
.x
->menubar_widget
;
5222 extern void xlwmenu_redisplay
P_ ((Widget
));
5224 if (!DoesSaveUnders (FRAME_X_DISPLAY_INFO (f
)->screen
)
5228 xlwmenu_redisplay (w
);
5232 #endif /* USE_LUCID */
5236 return unbind_to (count
, deleted
);
5241 /***********************************************************************
5242 File selection dialog
5243 ***********************************************************************/
5245 DEFUN ("x-uses-old-gtk-dialog", Fx_uses_old_gtk_dialog
,
5246 Sx_uses_old_gtk_dialog
,
5248 doc
: /* Return t if the old Gtk+ file selection dialog is used. */)
5252 extern int use_dialog_box
;
5253 extern int use_file_dialog
;
5258 && xg_uses_old_file_dialog ())
5266 /* Callback for "OK" and "Cancel" on file selection dialog. */
5269 file_dialog_cb (widget
, client_data
, call_data
)
5271 XtPointer call_data
, client_data
;
5273 int *result
= (int *) client_data
;
5274 XmAnyCallbackStruct
*cb
= (XmAnyCallbackStruct
*) call_data
;
5275 *result
= cb
->reason
;
5279 /* Callback for unmapping a file selection dialog. This is used to
5280 capture the case where a dialog is closed via a window manager's
5281 closer button, for example. Using a XmNdestroyCallback didn't work
5285 file_dialog_unmap_cb (widget
, client_data
, call_data
)
5287 XtPointer call_data
, client_data
;
5289 int *result
= (int *) client_data
;
5290 *result
= XmCR_CANCEL
;
5294 clean_up_file_dialog (arg
)
5297 struct Lisp_Save_Value
*p
= XSAVE_VALUE (arg
);
5298 Widget dialog
= (Widget
) p
->pointer
;
5302 XtUnmanageChild (dialog
);
5303 XtDestroyWidget (dialog
);
5304 x_menu_set_in_use (0);
5311 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5312 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5313 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5314 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5315 or directory must exist. ONLY-DIR-P is ignored." */)
5316 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
)
5317 Lisp_Object prompt
, dir
, default_filename
, mustmatch
, only_dir_p
;
5320 struct frame
*f
= SELECTED_FRAME ();
5321 Lisp_Object file
= Qnil
;
5322 Lisp_Object decoded_file
;
5323 Widget dialog
, text
, help
;
5326 extern XtAppContext Xt_app_con
;
5327 XmString dir_xmstring
, pattern_xmstring
;
5328 int count
= SPECPDL_INDEX ();
5329 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5331 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5333 if (popup_activated ())
5334 error ("Trying to use a menu from within a menu-entry");
5336 CHECK_STRING (prompt
);
5339 /* Prevent redisplay. */
5340 specbind (Qinhibit_redisplay
, Qt
);
5344 /* Create the dialog with PROMPT as title, using DIR as initial
5345 directory and using "*" as pattern. */
5346 dir
= Fexpand_file_name (dir
, Qnil
);
5347 dir_xmstring
= XmStringCreateLocalized (SDATA (dir
));
5348 pattern_xmstring
= XmStringCreateLocalized ("*");
5350 XtSetArg (al
[ac
], XmNtitle
, SDATA (prompt
)); ++ac
;
5351 XtSetArg (al
[ac
], XmNdirectory
, dir_xmstring
); ++ac
;
5352 XtSetArg (al
[ac
], XmNpattern
, pattern_xmstring
); ++ac
;
5353 XtSetArg (al
[ac
], XmNresizePolicy
, XmRESIZE_GROW
); ++ac
;
5354 XtSetArg (al
[ac
], XmNdialogStyle
, XmDIALOG_APPLICATION_MODAL
); ++ac
;
5355 dialog
= XmCreateFileSelectionDialog (f
->output_data
.x
->widget
,
5357 XmStringFree (dir_xmstring
);
5358 XmStringFree (pattern_xmstring
);
5360 /* Add callbacks for OK and Cancel. */
5361 XtAddCallback (dialog
, XmNokCallback
, file_dialog_cb
,
5362 (XtPointer
) &result
);
5363 XtAddCallback (dialog
, XmNcancelCallback
, file_dialog_cb
,
5364 (XtPointer
) &result
);
5365 XtAddCallback (dialog
, XmNunmapCallback
, file_dialog_unmap_cb
,
5366 (XtPointer
) &result
);
5368 /* Remove the help button since we can't display help. */
5369 help
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_HELP_BUTTON
);
5370 XtUnmanageChild (help
);
5372 /* Mark OK button as default. */
5373 XtVaSetValues (XmFileSelectionBoxGetChild (dialog
, XmDIALOG_OK_BUTTON
),
5374 XmNshowAsDefault
, True
, NULL
);
5376 /* If MUSTMATCH is non-nil, disable the file entry field of the
5377 dialog, so that the user must select a file from the files list
5378 box. We can't remove it because we wouldn't have a way to get at
5379 the result file name, then. */
5380 text
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5381 if (!NILP (mustmatch
))
5384 label
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_SELECTION_LABEL
);
5385 XtSetSensitive (text
, False
);
5386 XtSetSensitive (label
, False
);
5389 /* Manage the dialog, so that list boxes get filled. */
5390 XtManageChild (dialog
);
5392 if (STRINGP (default_filename
))
5394 XmString default_xmstring
;
5395 Widget wtext
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5396 Widget list
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_LIST
);
5398 XmTextPosition last_pos
= XmTextFieldGetLastPosition (wtext
);
5399 XmTextFieldReplace (wtext
, 0, last_pos
,
5400 (SDATA (Ffile_name_nondirectory (default_filename
))));
5402 /* Select DEFAULT_FILENAME in the files list box. DEFAULT_FILENAME
5403 must include the path for this to work. */
5405 default_xmstring
= XmStringCreateLocalized (SDATA (default_filename
));
5407 if (XmListItemExists (list
, default_xmstring
))
5409 int item_pos
= XmListItemPos (list
, default_xmstring
);
5410 /* Select the item and scroll it into view. */
5411 XmListSelectPos (list
, item_pos
, True
);
5412 XmListSetPos (list
, item_pos
);
5415 XmStringFree (default_xmstring
);
5418 record_unwind_protect (clean_up_file_dialog
, make_save_value (dialog
, 0));
5420 /* Process events until the user presses Cancel or OK. */
5421 x_menu_set_in_use (1);
5426 x_menu_wait_for_event (0);
5427 XtAppNextEvent (Xt_app_con
, &event
);
5428 if (event
.type
== KeyPress
5429 && FRAME_X_DISPLAY (f
) == event
.xkey
.display
)
5431 KeySym keysym
= XLookupKeysym (&event
.xkey
, 0);
5433 /* Pop down on C-g. */
5434 if (keysym
== XK_g
&& (event
.xkey
.state
& ControlMask
) != 0)
5435 XtUnmanageChild (dialog
);
5438 (void) x_dispatch_event (&event
, FRAME_X_DISPLAY (f
));
5441 /* Get the result. */
5442 if (result
== XmCR_OK
)
5447 XtVaGetValues (dialog
, XmNtextString
, &text
, NULL
);
5448 XmStringGetLtoR (text
, XmFONTLIST_DEFAULT_TAG
, &data
);
5449 XmStringFree (text
);
5450 file
= build_string (data
);
5459 /* Make "Cancel" equivalent to C-g. */
5461 Fsignal (Qquit
, Qnil
);
5463 decoded_file
= DECODE_FILE (file
);
5465 return unbind_to (count
, decoded_file
);
5468 #endif /* USE_MOTIF */
5473 clean_up_dialog (arg
)
5476 x_menu_set_in_use (0);
5481 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5482 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5483 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5484 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5485 or directory must exist. If ONLY-DIR-P is non-nil, the user can only select
5487 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
)
5488 Lisp_Object prompt
, dir
, default_filename
, mustmatch
, only_dir_p
;
5490 FRAME_PTR f
= SELECTED_FRAME ();
5492 Lisp_Object file
= Qnil
;
5493 Lisp_Object decoded_file
;
5494 int count
= SPECPDL_INDEX ();
5495 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5498 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5500 if (popup_activated ())
5501 error ("Trying to use a menu from within a menu-entry");
5503 CHECK_STRING (prompt
);
5506 /* Prevent redisplay. */
5507 specbind (Qinhibit_redisplay
, Qt
);
5508 record_unwind_protect (clean_up_dialog
, Qnil
);
5512 if (STRINGP (default_filename
))
5513 cdef_file
= SDATA (default_filename
);
5515 cdef_file
= SDATA (dir
);
5517 fn
= xg_get_file_name (f
, SDATA (prompt
), cdef_file
,
5519 ! NILP (only_dir_p
));
5523 file
= build_string (fn
);
5530 /* Make "Cancel" equivalent to C-g. */
5532 Fsignal (Qquit
, Qnil
);
5534 decoded_file
= DECODE_FILE (file
);
5536 return unbind_to (count
, decoded_file
);
5539 #endif /* USE_GTK */
5542 /***********************************************************************
5544 ***********************************************************************/
5546 #ifdef HAVE_XKBGETKEYBOARD
5547 #include <X11/XKBlib.h>
5548 #include <X11/keysym.h>
5551 DEFUN ("x-backspace-delete-keys-p", Fx_backspace_delete_keys_p
,
5552 Sx_backspace_delete_keys_p
, 0, 1, 0,
5553 doc
: /* Check if both Backspace and Delete keys are on the keyboard of FRAME.
5554 FRAME nil means use the selected frame.
5555 Value is t if we know that both keys are present, and are mapped to the
5556 usual X keysyms. Value is `lambda' if we cannot determine if both keys are
5557 present and mapped to the usual X keysyms. */)
5561 #ifdef HAVE_XKBGETKEYBOARD
5563 struct frame
*f
= check_x_frame (frame
);
5564 Display
*dpy
= FRAME_X_DISPLAY (f
);
5565 Lisp_Object have_keys
;
5566 int major
, minor
, op
, event
, error
;
5570 /* Check library version in case we're dynamically linked. */
5571 major
= XkbMajorVersion
;
5572 minor
= XkbMinorVersion
;
5573 if (!XkbLibraryVersion (&major
, &minor
))
5579 /* Check that the server supports XKB. */
5580 major
= XkbMajorVersion
;
5581 minor
= XkbMinorVersion
;
5582 if (!XkbQueryExtension (dpy
, &op
, &event
, &error
, &major
, &minor
))
5588 /* In this code we check that the keyboard has physical keys with names
5589 that start with BKSP (Backspace) and DELE (Delete), and that they
5590 generate keysym XK_BackSpace and XK_Delete respectively.
5591 This function is used to test if normal-erase-is-backspace should be
5593 An alternative approach would be to just check if XK_BackSpace and
5594 XK_Delete are mapped to any key. But if any of those are mapped to
5595 some non-intuitive key combination (Meta-Shift-Ctrl-whatever) and the
5596 user doesn't know about it, it is better to return false here.
5597 It is more obvious to the user what to do if she/he has two keys
5598 clearly marked with names/symbols and one key does something not
5599 expected (i.e. she/he then tries the other).
5600 The cases where Backspace/Delete is mapped to some other key combination
5601 are rare, and in those cases, normal-erase-is-backspace can be turned on
5605 kb
= XkbGetMap (dpy
, XkbAllMapComponentsMask
, XkbUseCoreKbd
);
5608 int delete_keycode
= 0, backspace_keycode
= 0, i
;
5610 if (XkbGetNames (dpy
, XkbAllNamesMask
, kb
) == Success
)
5612 for (i
= kb
->min_key_code
;
5613 (i
< kb
->max_key_code
5614 && (delete_keycode
== 0 || backspace_keycode
== 0));
5617 /* The XKB symbolic key names can be seen most easily in
5618 the PS file generated by `xkbprint -label name
5620 if (bcmp ("DELE", kb
->names
->keys
[i
].name
, 4) == 0)
5622 else if (bcmp ("BKSP", kb
->names
->keys
[i
].name
, 4) == 0)
5623 backspace_keycode
= i
;
5626 XkbFreeNames (kb
, 0, True
);
5629 XkbFreeClientMap (kb
, 0, True
);
5632 && backspace_keycode
5633 && XKeysymToKeycode (dpy
, XK_Delete
) == delete_keycode
5634 && XKeysymToKeycode (dpy
, XK_BackSpace
) == backspace_keycode
)
5639 #else /* not HAVE_XKBGETKEYBOARD */
5641 #endif /* not HAVE_XKBGETKEYBOARD */
5646 /***********************************************************************
5648 ***********************************************************************/
5650 /* Keep this list in the same order as frame_parms in frame.c.
5651 Use 0 for unsupported frame parameters. */
5653 frame_parm_handler x_frame_parm_handlers
[] =
5657 x_set_background_color
,
5663 x_set_foreground_color
,
5666 x_set_internal_border_width
,
5667 x_set_menu_bar_lines
,
5669 x_explicitly_set_name
,
5670 x_set_scroll_bar_width
,
5673 x_set_vertical_scroll_bars
,
5675 x_set_tool_bar_lines
,
5676 x_set_scroll_bar_foreground
,
5677 x_set_scroll_bar_background
,
5689 /* This is zero if not using X windows. */
5692 /* The section below is built by the lisp expression at the top of the file,
5693 just above where these variables are declared. */
5694 /*&&& init symbols here &&&*/
5695 Qnone
= intern ("none");
5697 Qsuppress_icon
= intern ("suppress-icon");
5698 staticpro (&Qsuppress_icon
);
5699 Qundefined_color
= intern ("undefined-color");
5700 staticpro (&Qundefined_color
);
5701 Qcompound_text
= intern ("compound-text");
5702 staticpro (&Qcompound_text
);
5703 Qcancel_timer
= intern ("cancel-timer");
5704 staticpro (&Qcancel_timer
);
5705 /* This is the end of symbol initialization. */
5707 /* Text property `display' should be nonsticky by default. */
5708 Vtext_property_default_nonsticky
5709 = Fcons (Fcons (Qdisplay
, Qt
), Vtext_property_default_nonsticky
);
5712 Fput (Qundefined_color
, Qerror_conditions
,
5713 Fcons (Qundefined_color
, Fcons (Qerror
, Qnil
)));
5714 Fput (Qundefined_color
, Qerror_message
,
5715 build_string ("Undefined color"));
5717 DEFVAR_LISP ("x-pointer-shape", &Vx_pointer_shape
,
5718 doc
: /* The shape of the pointer when over text.
5719 Changing the value does not affect existing frames
5720 unless you set the mouse color. */);
5721 Vx_pointer_shape
= Qnil
;
5723 #if 0 /* This doesn't really do anything. */
5724 DEFVAR_LISP ("x-nontext-pointer-shape", &Vx_nontext_pointer_shape
,
5725 doc
: /* The shape of the pointer when not over text.
5726 This variable takes effect when you create a new frame
5727 or when you set the mouse color. */);
5729 Vx_nontext_pointer_shape
= Qnil
;
5731 DEFVAR_LISP ("x-hourglass-pointer-shape", &Vx_hourglass_pointer_shape
,
5732 doc
: /* The shape of the pointer when Emacs is busy.
5733 This variable takes effect when you create a new frame
5734 or when you set the mouse color. */);
5735 Vx_hourglass_pointer_shape
= Qnil
;
5737 DEFVAR_BOOL ("display-hourglass", &display_hourglass_p
,
5738 doc
: /* Non-zero means Emacs displays an hourglass pointer on window systems. */);
5739 display_hourglass_p
= 1;
5741 DEFVAR_LISP ("hourglass-delay", &Vhourglass_delay
,
5742 doc
: /* *Seconds to wait before displaying an hourglass pointer.
5743 Value must be an integer or float. */);
5744 Vhourglass_delay
= make_number (DEFAULT_HOURGLASS_DELAY
);
5746 #if 0 /* This doesn't really do anything. */
5747 DEFVAR_LISP ("x-mode-pointer-shape", &Vx_mode_pointer_shape
,
5748 doc
: /* The shape of the pointer when over the mode line.
5749 This variable takes effect when you create a new frame
5750 or when you set the mouse color. */);
5752 Vx_mode_pointer_shape
= Qnil
;
5754 DEFVAR_LISP ("x-sensitive-text-pointer-shape",
5755 &Vx_sensitive_text_pointer_shape
,
5756 doc
: /* The shape of the pointer when over mouse-sensitive text.
5757 This variable takes effect when you create a new frame
5758 or when you set the mouse color. */);
5759 Vx_sensitive_text_pointer_shape
= Qnil
;
5761 DEFVAR_LISP ("x-window-horizontal-drag-cursor",
5762 &Vx_window_horizontal_drag_shape
,
5763 doc
: /* Pointer shape to use for indicating a window can be dragged horizontally.
5764 This variable takes effect when you create a new frame
5765 or when you set the mouse color. */);
5766 Vx_window_horizontal_drag_shape
= Qnil
;
5768 DEFVAR_LISP ("x-cursor-fore-pixel", &Vx_cursor_fore_pixel
,
5769 doc
: /* A string indicating the foreground color of the cursor box. */);
5770 Vx_cursor_fore_pixel
= Qnil
;
5772 DEFVAR_LISP ("x-max-tooltip-size", &Vx_max_tooltip_size
,
5773 doc
: /* Maximum size for tooltips. Value is a pair (COLUMNS . ROWS).
5774 Text larger than this is clipped. */);
5775 Vx_max_tooltip_size
= Fcons (make_number (80), make_number (40));
5777 DEFVAR_LISP ("x-no-window-manager", &Vx_no_window_manager
,
5778 doc
: /* Non-nil if no X window manager is in use.
5779 Emacs doesn't try to figure this out; this is always nil
5780 unless you set it to something else. */);
5781 /* We don't have any way to find this out, so set it to nil
5782 and maybe the user would like to set it to t. */
5783 Vx_no_window_manager
= Qnil
;
5785 DEFVAR_LISP ("x-pixel-size-width-font-regexp",
5786 &Vx_pixel_size_width_font_regexp
,
5787 doc
: /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'.
5789 Since Emacs gets width of a font matching with this regexp from
5790 PIXEL_SIZE field of the name, font finding mechanism gets faster for
5791 such a font. This is especially effective for such large fonts as
5792 Chinese, Japanese, and Korean. */);
5793 Vx_pixel_size_width_font_regexp
= Qnil
;
5795 /* This is not ifdef:ed, so other builds than GTK can customize it. */
5796 DEFVAR_BOOL ("x-use-old-gtk-file-dialog", &x_use_old_gtk_file_dialog
,
5797 doc
: /* *Non-nil means prompt with the old GTK file selection dialog.
5798 If nil or if the file selection dialog is not available, the new GTK file
5799 chooser is used instead. To turn off all file dialogs set the
5800 variable `use-file-dialog'. */);
5801 x_use_old_gtk_file_dialog
= 0;
5803 DEFVAR_BOOL ("x-gtk-show-hidden-files", &x_gtk_show_hidden_files
,
5804 doc
: /* *If non-nil, the GTK file chooser will by default show hidden files.
5805 Note that this is just the default, there is a toggle button on the file
5806 chooser to show or not show hidden files on a case by case basis. */);
5807 x_gtk_show_hidden_files
= 0;
5809 DEFVAR_BOOL ("x-gtk-whole-detached-tool-bar", &x_gtk_whole_detached_tool_bar
,
5810 doc
: /* *If non-nil, a detached tool bar is shown in full.
5811 The default is to just show an arrow and pressing on that arrow shows
5812 the tool bar buttons. */);
5813 x_gtk_whole_detached_tool_bar
= 0;
5815 Fprovide (intern ("x"), Qnil
);
5817 #ifdef USE_X_TOOLKIT
5818 Fprovide (intern ("x-toolkit"), Qnil
);
5820 Fprovide (intern ("motif"), Qnil
);
5822 DEFVAR_LISP ("motif-version-string", &Vmotif_version_string
,
5823 doc
: /* Version info for LessTif/Motif. */);
5824 Vmotif_version_string
= build_string (XmVERSION_STRING
);
5825 #endif /* USE_MOTIF */
5826 #endif /* USE_X_TOOLKIT */
5829 /* Provide x-toolkit also for GTK. Internally GTK does not use Xt so it
5830 is not an X toolkit in that sense (USE_X_TOOLKIT is not defined).
5831 But for a user it is a toolkit for X, and indeed, configure
5832 accepts --with-x-toolkit=gtk. */
5833 Fprovide (intern ("x-toolkit"), Qnil
);
5834 Fprovide (intern ("gtk"), Qnil
);
5836 DEFVAR_LISP ("gtk-version-string", &Vgtk_version_string
,
5837 doc
: /* Version info for GTK+. */);
5839 char gtk_version
[40];
5840 g_snprintf (gtk_version
, sizeof (gtk_version
), "%u.%u.%u",
5841 GTK_MAJOR_VERSION
, GTK_MINOR_VERSION
, GTK_MICRO_VERSION
);
5842 Vgtk_version_string
= build_string (gtk_version
);
5844 #endif /* USE_GTK */
5846 /* X window properties. */
5847 defsubr (&Sx_change_window_property
);
5848 defsubr (&Sx_delete_window_property
);
5849 defsubr (&Sx_window_property
);
5851 defsubr (&Sxw_display_color_p
);
5852 defsubr (&Sx_display_grayscale_p
);
5853 defsubr (&Sxw_color_defined_p
);
5854 defsubr (&Sxw_color_values
);
5855 defsubr (&Sx_server_max_request_size
);
5856 defsubr (&Sx_server_vendor
);
5857 defsubr (&Sx_server_version
);
5858 defsubr (&Sx_display_pixel_width
);
5859 defsubr (&Sx_display_pixel_height
);
5860 defsubr (&Sx_display_mm_width
);
5861 defsubr (&Sx_display_mm_height
);
5862 defsubr (&Sx_display_screens
);
5863 defsubr (&Sx_display_planes
);
5864 defsubr (&Sx_display_color_cells
);
5865 defsubr (&Sx_display_visual_class
);
5866 defsubr (&Sx_display_backing_store
);
5867 defsubr (&Sx_display_save_under
);
5868 defsubr (&Sx_create_frame
);
5869 defsubr (&Sx_open_connection
);
5870 defsubr (&Sx_close_connection
);
5871 defsubr (&Sx_display_list
);
5872 defsubr (&Sx_synchronize
);
5873 defsubr (&Sx_focus_frame
);
5874 defsubr (&Sx_backspace_delete_keys_p
);
5876 /* Setting callback functions for fontset handler. */
5877 get_font_info_func
= x_get_font_info
;
5879 #if 0 /* This function pointer doesn't seem to be used anywhere.
5880 And the pointer assigned has the wrong type, anyway. */
5881 list_fonts_func
= x_list_fonts
;
5884 load_font_func
= x_load_font
;
5885 find_ccl_program_func
= x_find_ccl_program
;
5886 query_font_func
= x_query_font
;
5887 set_frame_fontset_func
= x_set_font
;
5888 check_window_system_func
= check_x
;
5890 hourglass_atimer
= NULL
;
5891 hourglass_shown_p
= 0;
5893 defsubr (&Sx_show_tip
);
5894 defsubr (&Sx_hide_tip
);
5896 staticpro (&tip_timer
);
5898 staticpro (&tip_frame
);
5900 last_show_tip_args
= Qnil
;
5901 staticpro (&last_show_tip_args
);
5903 defsubr (&Sx_uses_old_gtk_dialog
);
5904 #if defined (USE_MOTIF) || defined (USE_GTK)
5905 defsubr (&Sx_file_dialog
);
5909 #endif /* HAVE_X_WINDOWS */
5911 /* arch-tag: 55040d02-5485-4d58-8b22-95a7a05f3288
5912 (do not change this comment) */