1 /* Functions for the X window system.
2 Copyright (C) 1989, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000,
3 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc.
5 This file is part of GNU Emacs.
7 GNU Emacs is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 2, or (at your option)
12 GNU Emacs is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with GNU Emacs; see the file COPYING. If not, write to
19 the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
20 Boston, MA 02110-1301, USA. */
30 /* This makes the fields of a Display accessible, in Xlib header files. */
32 #define XLIB_ILLEGAL_ACCESS
39 #include "intervals.h"
40 #include "dispextern.h"
42 #include "blockinput.h"
48 #include "termhooks.h"
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 /* The background and shape of the mouse pointer, and shape when not
162 over text or in the modeline. */
164 Lisp_Object Vx_pointer_shape
, Vx_nontext_pointer_shape
, Vx_mode_pointer_shape
;
165 Lisp_Object Vx_hourglass_pointer_shape
;
167 /* The shape when over mouse-sensitive text. */
169 Lisp_Object Vx_sensitive_text_pointer_shape
;
171 /* If non-nil, the pointer shape to indicate that windows can be
172 dragged horizontally. */
174 Lisp_Object Vx_window_horizontal_drag_shape
;
176 /* Color of chars displayed in cursor box. */
178 Lisp_Object Vx_cursor_fore_pixel
;
180 /* Nonzero if using X. */
184 /* Non nil if no window manager is in use. */
186 Lisp_Object Vx_no_window_manager
;
188 /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'. */
190 Lisp_Object Vx_pixel_size_width_font_regexp
;
193 Lisp_Object Qsuppress_icon
;
194 Lisp_Object Qundefined_color
;
195 Lisp_Object Qcompound_text
, Qcancel_timer
;
199 extern Lisp_Object Vwindow_system_version
;
201 /* The below are defined in frame.c. */
204 int image_cache_refcount
, dpyinfo_refcount
;
209 /* Error if we are not connected to X. */
215 error ("X windows are not in use or not initialized");
218 /* Nonzero if we can use mouse menus.
219 You should not call this unless HAVE_MENUS is defined. */
227 /* Extract a frame as a FRAME_PTR, defaulting to the selected frame
228 and checking validity for X. */
231 check_x_frame (frame
)
237 frame
= selected_frame
;
238 CHECK_LIVE_FRAME (frame
);
241 error ("Non-X frame used");
245 /* Let the user specify an X display with a frame.
246 nil stands for the selected frame--or, if that is not an X frame,
247 the first X display on the list. */
249 struct x_display_info
*
250 check_x_display_info (frame
)
253 struct x_display_info
*dpyinfo
= NULL
;
257 struct frame
*sf
= XFRAME (selected_frame
);
259 if (FRAME_X_P (sf
) && FRAME_LIVE_P (sf
))
260 dpyinfo
= FRAME_X_DISPLAY_INFO (sf
);
261 else if (x_display_list
!= 0)
262 dpyinfo
= x_display_list
;
264 error ("X windows are not in use or not initialized");
266 else if (STRINGP (frame
))
267 dpyinfo
= x_display_info_for_name (frame
);
270 FRAME_PTR f
= check_x_frame (frame
);
271 dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
278 /* Return the Emacs frame-object corresponding to an X window.
279 It could be the frame's main window or an icon window. */
281 /* This function can be called during GC, so use GC_xxx type test macros. */
284 x_window_to_frame (dpyinfo
, wdesc
)
285 struct x_display_info
*dpyinfo
;
288 Lisp_Object tail
, frame
;
291 if (wdesc
== None
) return 0;
293 for (tail
= Vframe_list
; GC_CONSP (tail
); tail
= XCDR (tail
))
296 if (!GC_FRAMEP (frame
))
299 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
301 if (f
->output_data
.x
->hourglass_window
== wdesc
)
304 if ((f
->output_data
.x
->edit_widget
305 && XtWindow (f
->output_data
.x
->edit_widget
) == wdesc
)
306 /* A tooltip frame? */
307 || (!f
->output_data
.x
->edit_widget
308 && FRAME_X_WINDOW (f
) == wdesc
)
309 || f
->output_data
.x
->icon_desc
== wdesc
)
311 #else /* not USE_X_TOOLKIT */
313 if (f
->output_data
.x
->edit_widget
)
315 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
316 struct x_output
*x
= f
->output_data
.x
;
317 if (gwdesc
!= 0 && gwdesc
== x
->edit_widget
)
321 if (FRAME_X_WINDOW (f
) == wdesc
322 || f
->output_data
.x
->icon_desc
== wdesc
)
324 #endif /* not USE_X_TOOLKIT */
329 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
330 /* Like x_window_to_frame but also compares the window with the widget's
334 x_any_window_to_frame (dpyinfo
, wdesc
)
335 struct x_display_info
*dpyinfo
;
338 Lisp_Object tail
, frame
;
339 struct frame
*f
, *found
;
342 if (wdesc
== None
) return NULL
;
345 for (tail
= Vframe_list
; GC_CONSP (tail
) && !found
; tail
= XCDR (tail
))
348 if (!GC_FRAMEP (frame
))
352 if (FRAME_X_P (f
) && FRAME_X_DISPLAY_INFO (f
) == dpyinfo
)
354 /* This frame matches if the window is any of its widgets. */
355 x
= f
->output_data
.x
;
356 if (x
->hourglass_window
== wdesc
)
361 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
363 && (gwdesc
== x
->widget
364 || gwdesc
== x
->edit_widget
365 || gwdesc
== x
->vbox_widget
366 || gwdesc
== x
->menubar_widget
))
369 if (wdesc
== XtWindow (x
->widget
)
370 || wdesc
== XtWindow (x
->column_widget
)
371 || wdesc
== XtWindow (x
->edit_widget
))
373 /* Match if the window is this frame's menubar. */
374 else if (lw_window_is_in_menubar (wdesc
, x
->menubar_widget
))
378 else if (FRAME_X_WINDOW (f
) == wdesc
)
379 /* A tooltip frame. */
387 /* Likewise, but exclude the menu bar widget. */
390 x_non_menubar_window_to_frame (dpyinfo
, wdesc
)
391 struct x_display_info
*dpyinfo
;
394 Lisp_Object tail
, frame
;
398 if (wdesc
== None
) return 0;
400 for (tail
= Vframe_list
; GC_CONSP (tail
); tail
= XCDR (tail
))
403 if (!GC_FRAMEP (frame
))
406 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
408 x
= f
->output_data
.x
;
409 /* This frame matches if the window is any of its widgets. */
410 if (x
->hourglass_window
== wdesc
)
415 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
417 && (gwdesc
== x
->widget
418 || gwdesc
== x
->edit_widget
419 || gwdesc
== x
->vbox_widget
))
422 if (wdesc
== XtWindow (x
->widget
)
423 || wdesc
== XtWindow (x
->column_widget
)
424 || wdesc
== XtWindow (x
->edit_widget
))
428 else if (FRAME_X_WINDOW (f
) == wdesc
)
429 /* A tooltip frame. */
435 /* Likewise, but consider only the menu bar widget. */
438 x_menubar_window_to_frame (dpyinfo
, wdesc
)
439 struct x_display_info
*dpyinfo
;
442 Lisp_Object tail
, frame
;
446 if (wdesc
== None
) return 0;
448 for (tail
= Vframe_list
; GC_CONSP (tail
); tail
= XCDR (tail
))
451 if (!GC_FRAMEP (frame
))
454 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
456 x
= f
->output_data
.x
;
457 /* Match if the window is this frame's menubar. */
459 if (x
->menubar_widget
)
461 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
466 && (gwdesc
== x
->menubar_widget
467 || gtk_widget_get_parent (gwdesc
) == x
->menubar_widget
))
473 if (x
->menubar_widget
474 && lw_window_is_in_menubar (wdesc
, x
->menubar_widget
))
481 /* Return the frame whose principal (outermost) window is WDESC.
482 If WDESC is some other (smaller) window, we return 0. */
485 x_top_window_to_frame (dpyinfo
, wdesc
)
486 struct x_display_info
*dpyinfo
;
489 Lisp_Object tail
, frame
;
493 if (wdesc
== None
) return 0;
495 for (tail
= Vframe_list
; GC_CONSP (tail
); tail
= XCDR (tail
))
498 if (!GC_FRAMEP (frame
))
501 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
503 x
= f
->output_data
.x
;
507 /* This frame matches if the window is its topmost widget. */
509 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
510 if (gwdesc
== x
->widget
)
513 if (wdesc
== XtWindow (x
->widget
))
515 #if 0 /* I don't know why it did this,
516 but it seems logically wrong,
517 and it causes trouble for MapNotify events. */
518 /* Match if the window is this frame's menubar. */
519 if (x
->menubar_widget
520 && wdesc
== XtWindow (x
->menubar_widget
))
525 else if (FRAME_X_WINDOW (f
) == wdesc
)
531 #endif /* USE_X_TOOLKIT || USE_GTK */
535 static Lisp_Object unwind_create_frame
P_ ((Lisp_Object
));
536 static Lisp_Object unwind_create_tip_frame
P_ ((Lisp_Object
));
538 void x_set_foreground_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
539 static void x_set_wait_for_wm
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
540 void x_set_background_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
541 void x_set_mouse_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
542 void x_set_cursor_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
543 void x_set_border_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
544 void x_set_cursor_type
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
545 void x_set_icon_type
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
546 void x_set_icon_name
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
547 void x_explicitly_set_name
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
548 void x_set_menu_bar_lines
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
549 void x_set_title
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
550 void x_set_tool_bar_lines
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
551 void x_set_scroll_bar_foreground
P_ ((struct frame
*, Lisp_Object
,
553 void x_set_scroll_bar_background
P_ ((struct frame
*, Lisp_Object
,
555 static Lisp_Object x_default_scroll_bar_color_parameter
P_ ((struct frame
*,
562 /* Store the screen positions of frame F into XPTR and YPTR.
563 These are the positions of the containing window manager window,
564 not Emacs's own window. */
567 x_real_positions (f
, xptr
, yptr
)
571 int win_x
, win_y
, outer_x
, outer_y
;
572 int real_x
= 0, real_y
= 0;
574 Window win
= f
->output_data
.x
->parent_desc
;
580 count
= x_catch_errors (FRAME_X_DISPLAY (f
));
582 if (win
== FRAME_X_DISPLAY_INFO (f
)->root_window
)
583 win
= FRAME_OUTER_WINDOW (f
);
585 /* This loop traverses up the containment tree until we hit the root
586 window. Window managers may intersect many windows between our window
587 and the root window. The window we find just before the root window
588 should be the outer WM window. */
591 Window wm_window
, rootw
;
592 Window
*tmp_children
;
593 unsigned int tmp_nchildren
;
596 success
= XQueryTree (FRAME_X_DISPLAY (f
), win
, &rootw
,
597 &wm_window
, &tmp_children
, &tmp_nchildren
);
599 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
601 /* Don't free tmp_children if XQueryTree failed. */
605 XFree ((char *) tmp_children
);
607 if (wm_window
== rootw
|| had_errors
)
618 /* Get the real coordinates for the WM window upper left corner */
619 XGetGeometry (FRAME_X_DISPLAY (f
), win
,
620 &rootw
, &real_x
, &real_y
, &ign
, &ign
, &ign
, &ign
);
622 /* Translate real coordinates to coordinates relative to our
623 window. For our window, the upper left corner is 0, 0.
624 Since the upper left corner of the WM window is outside
625 our window, win_x and win_y will be negative:
627 ------------------ ---> x
629 | ----------------- v y
632 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
634 /* From-window, to-window. */
635 FRAME_X_DISPLAY_INFO (f
)->root_window
,
638 /* From-position, to-position. */
639 real_x
, real_y
, &win_x
, &win_y
,
644 if (FRAME_X_WINDOW (f
) == FRAME_OUTER_WINDOW (f
))
651 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
653 /* From-window, to-window. */
654 FRAME_X_DISPLAY_INFO (f
)->root_window
,
655 FRAME_OUTER_WINDOW (f
),
657 /* From-position, to-position. */
658 real_x
, real_y
, &outer_x
, &outer_y
,
664 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
667 x_uncatch_errors (FRAME_X_DISPLAY (f
), count
);
671 if (had_errors
) return;
673 f
->x_pixels_diff
= -win_x
;
674 f
->y_pixels_diff
= -win_y
;
676 FRAME_X_OUTPUT (f
)->x_pixels_outer_diff
= -outer_x
;
677 FRAME_X_OUTPUT (f
)->y_pixels_outer_diff
= -outer_y
;
686 /* Gamma-correct COLOR on frame F. */
689 gamma_correct (f
, color
)
695 color
->red
= pow (color
->red
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
696 color
->green
= pow (color
->green
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
697 color
->blue
= pow (color
->blue
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
702 /* Decide if color named COLOR_NAME is valid for use on frame F. If
703 so, return the RGB values in COLOR. If ALLOC_P is non-zero,
704 allocate the color. Value is zero if COLOR_NAME is invalid, or
705 no color could be allocated. */
708 x_defined_color (f
, color_name
, color
, alloc_p
)
715 Display
*dpy
= FRAME_X_DISPLAY (f
);
716 Colormap cmap
= FRAME_X_COLORMAP (f
);
719 success_p
= XParseColor (dpy
, cmap
, color_name
, color
);
720 if (success_p
&& alloc_p
)
721 success_p
= x_alloc_nearest_color (f
, cmap
, color
);
728 /* Return the pixel color value for color COLOR_NAME on frame F. If F
729 is a monochrome frame, return MONO_COLOR regardless of what ARG says.
730 Signal an error if color can't be allocated. */
733 x_decode_color (f
, color_name
, mono_color
)
735 Lisp_Object color_name
;
740 CHECK_STRING (color_name
);
742 #if 0 /* Don't do this. It's wrong when we're not using the default
743 colormap, it makes freeing difficult, and it's probably not
744 an important optimization. */
745 if (strcmp (SDATA (color_name
), "black") == 0)
746 return BLACK_PIX_DEFAULT (f
);
747 else if (strcmp (SDATA (color_name
), "white") == 0)
748 return WHITE_PIX_DEFAULT (f
);
751 /* Return MONO_COLOR for monochrome frames. */
752 if (FRAME_X_DISPLAY_INFO (f
)->n_planes
== 1)
755 /* x_defined_color is responsible for coping with failures
756 by looking for a near-miss. */
757 if (x_defined_color (f
, SDATA (color_name
), &cdef
, 1))
760 Fsignal (Qerror
, Fcons (build_string ("Undefined color"),
761 Fcons (color_name
, Qnil
)));
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
)
795 found
= x_find_image_file (file
);
801 char *filename
= (char *) SDATA (found
);
804 pixbuf
= gdk_pixbuf_new_from_file (filename
, &err
);
808 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
810 g_object_unref (pixbuf
);
825 xg_set_icon_from_xpm_data (f
, data
)
830 GdkPixbuf
*pixbuf
= gdk_pixbuf_new_from_xpm_data ((const char **) data
);
835 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)), pixbuf
);
836 g_object_unref (pixbuf
);
842 /* Functions called only from `x_set_frame_param'
843 to set individual parameters.
845 If FRAME_X_WINDOW (f) is 0,
846 the frame is being created and its X-window does not exist yet.
847 In that case, just record the parameter's new value
848 in the standard place; do not attempt to change the window. */
851 x_set_foreground_color (f
, arg
, oldval
)
853 Lisp_Object arg
, oldval
;
855 struct x_output
*x
= f
->output_data
.x
;
856 unsigned long fg
, old_fg
;
858 fg
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
859 old_fg
= x
->foreground_pixel
;
860 x
->foreground_pixel
= fg
;
862 if (FRAME_X_WINDOW (f
) != 0)
864 Display
*dpy
= FRAME_X_DISPLAY (f
);
867 XSetForeground (dpy
, x
->normal_gc
, fg
);
868 XSetBackground (dpy
, x
->reverse_gc
, fg
);
870 if (x
->cursor_pixel
== old_fg
)
872 unload_color (f
, x
->cursor_pixel
);
873 x
->cursor_pixel
= x_copy_color (f
, fg
);
874 XSetBackground (dpy
, x
->cursor_gc
, x
->cursor_pixel
);
879 update_face_from_frame_parameter (f
, Qforeground_color
, arg
);
881 if (FRAME_VISIBLE_P (f
))
885 unload_color (f
, old_fg
);
889 x_set_background_color (f
, arg
, oldval
)
891 Lisp_Object arg
, oldval
;
893 struct x_output
*x
= f
->output_data
.x
;
896 bg
= x_decode_color (f
, arg
, WHITE_PIX_DEFAULT (f
));
897 unload_color (f
, x
->background_pixel
);
898 x
->background_pixel
= bg
;
900 if (FRAME_X_WINDOW (f
) != 0)
902 Display
*dpy
= FRAME_X_DISPLAY (f
);
905 XSetBackground (dpy
, x
->normal_gc
, bg
);
906 XSetForeground (dpy
, x
->reverse_gc
, bg
);
907 XSetWindowBackground (dpy
, FRAME_X_WINDOW (f
), bg
);
908 XSetForeground (dpy
, x
->cursor_gc
, bg
);
911 xg_set_background_color (f
, bg
);
914 #ifndef USE_TOOLKIT_SCROLL_BARS /* Turns out to be annoying with
915 toolkit scroll bars. */
918 for (bar
= FRAME_SCROLL_BARS (f
);
920 bar
= XSCROLL_BAR (bar
)->next
)
922 Window window
= SCROLL_BAR_X_WINDOW (XSCROLL_BAR (bar
));
923 XSetWindowBackground (dpy
, window
, bg
);
926 #endif /* USE_TOOLKIT_SCROLL_BARS */
929 update_face_from_frame_parameter (f
, Qbackground_color
, arg
);
931 if (FRAME_VISIBLE_P (f
))
937 x_set_mouse_color (f
, arg
, oldval
)
939 Lisp_Object arg
, oldval
;
941 struct x_output
*x
= f
->output_data
.x
;
942 Display
*dpy
= FRAME_X_DISPLAY (f
);
943 Cursor cursor
, nontext_cursor
, mode_cursor
, hand_cursor
;
944 Cursor hourglass_cursor
, horizontal_drag_cursor
;
946 unsigned long pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
947 unsigned long mask_color
= x
->background_pixel
;
949 /* Don't let pointers be invisible. */
950 if (mask_color
== pixel
)
952 x_free_colors (f
, &pixel
, 1);
953 pixel
= x_copy_color (f
, x
->foreground_pixel
);
956 unload_color (f
, x
->mouse_pixel
);
957 x
->mouse_pixel
= pixel
;
961 /* It's not okay to crash if the user selects a screwy cursor. */
962 count
= x_catch_errors (dpy
);
964 if (!NILP (Vx_pointer_shape
))
966 CHECK_NUMBER (Vx_pointer_shape
);
967 cursor
= XCreateFontCursor (dpy
, XINT (Vx_pointer_shape
));
970 cursor
= XCreateFontCursor (dpy
, XC_xterm
);
971 x_check_errors (dpy
, "bad text pointer cursor: %s");
973 if (!NILP (Vx_nontext_pointer_shape
))
975 CHECK_NUMBER (Vx_nontext_pointer_shape
);
977 = XCreateFontCursor (dpy
, XINT (Vx_nontext_pointer_shape
));
980 nontext_cursor
= XCreateFontCursor (dpy
, XC_left_ptr
);
981 x_check_errors (dpy
, "bad nontext pointer cursor: %s");
983 if (!NILP (Vx_hourglass_pointer_shape
))
985 CHECK_NUMBER (Vx_hourglass_pointer_shape
);
987 = XCreateFontCursor (dpy
, XINT (Vx_hourglass_pointer_shape
));
990 hourglass_cursor
= XCreateFontCursor (dpy
, XC_watch
);
991 x_check_errors (dpy
, "bad hourglass pointer cursor: %s");
993 if (!NILP (Vx_mode_pointer_shape
))
995 CHECK_NUMBER (Vx_mode_pointer_shape
);
996 mode_cursor
= XCreateFontCursor (dpy
, XINT (Vx_mode_pointer_shape
));
999 mode_cursor
= XCreateFontCursor (dpy
, XC_xterm
);
1000 x_check_errors (dpy
, "bad modeline pointer cursor: %s");
1002 if (!NILP (Vx_sensitive_text_pointer_shape
))
1004 CHECK_NUMBER (Vx_sensitive_text_pointer_shape
);
1006 = XCreateFontCursor (dpy
, XINT (Vx_sensitive_text_pointer_shape
));
1009 hand_cursor
= XCreateFontCursor (dpy
, XC_hand2
);
1011 if (!NILP (Vx_window_horizontal_drag_shape
))
1013 CHECK_NUMBER (Vx_window_horizontal_drag_shape
);
1014 horizontal_drag_cursor
1015 = XCreateFontCursor (dpy
, XINT (Vx_window_horizontal_drag_shape
));
1018 horizontal_drag_cursor
1019 = XCreateFontCursor (dpy
, XC_sb_h_double_arrow
);
1021 /* Check and report errors with the above calls. */
1022 x_check_errors (dpy
, "can't set cursor shape: %s");
1023 x_uncatch_errors (dpy
, count
);
1026 XColor fore_color
, back_color
;
1028 fore_color
.pixel
= x
->mouse_pixel
;
1029 x_query_color (f
, &fore_color
);
1030 back_color
.pixel
= mask_color
;
1031 x_query_color (f
, &back_color
);
1033 XRecolorCursor (dpy
, cursor
, &fore_color
, &back_color
);
1034 XRecolorCursor (dpy
, nontext_cursor
, &fore_color
, &back_color
);
1035 XRecolorCursor (dpy
, mode_cursor
, &fore_color
, &back_color
);
1036 XRecolorCursor (dpy
, hand_cursor
, &fore_color
, &back_color
);
1037 XRecolorCursor (dpy
, hourglass_cursor
, &fore_color
, &back_color
);
1038 XRecolorCursor (dpy
, horizontal_drag_cursor
, &fore_color
, &back_color
);
1041 if (FRAME_X_WINDOW (f
) != 0)
1042 XDefineCursor (dpy
, FRAME_X_WINDOW (f
), cursor
);
1044 if (cursor
!= x
->text_cursor
1045 && x
->text_cursor
!= 0)
1046 XFreeCursor (dpy
, x
->text_cursor
);
1047 x
->text_cursor
= cursor
;
1049 if (nontext_cursor
!= x
->nontext_cursor
1050 && x
->nontext_cursor
!= 0)
1051 XFreeCursor (dpy
, x
->nontext_cursor
);
1052 x
->nontext_cursor
= nontext_cursor
;
1054 if (hourglass_cursor
!= x
->hourglass_cursor
1055 && x
->hourglass_cursor
!= 0)
1056 XFreeCursor (dpy
, x
->hourglass_cursor
);
1057 x
->hourglass_cursor
= hourglass_cursor
;
1059 if (mode_cursor
!= x
->modeline_cursor
1060 && x
->modeline_cursor
!= 0)
1061 XFreeCursor (dpy
, f
->output_data
.x
->modeline_cursor
);
1062 x
->modeline_cursor
= mode_cursor
;
1064 if (hand_cursor
!= x
->hand_cursor
1065 && x
->hand_cursor
!= 0)
1066 XFreeCursor (dpy
, x
->hand_cursor
);
1067 x
->hand_cursor
= hand_cursor
;
1069 if (horizontal_drag_cursor
!= x
->horizontal_drag_cursor
1070 && x
->horizontal_drag_cursor
!= 0)
1071 XFreeCursor (dpy
, x
->horizontal_drag_cursor
);
1072 x
->horizontal_drag_cursor
= horizontal_drag_cursor
;
1077 update_face_from_frame_parameter (f
, Qmouse_color
, arg
);
1081 x_set_cursor_color (f
, arg
, oldval
)
1083 Lisp_Object arg
, oldval
;
1085 unsigned long fore_pixel
, pixel
;
1086 int fore_pixel_allocated_p
= 0, pixel_allocated_p
= 0;
1087 struct x_output
*x
= f
->output_data
.x
;
1089 if (!NILP (Vx_cursor_fore_pixel
))
1091 fore_pixel
= x_decode_color (f
, Vx_cursor_fore_pixel
,
1092 WHITE_PIX_DEFAULT (f
));
1093 fore_pixel_allocated_p
= 1;
1096 fore_pixel
= x
->background_pixel
;
1098 pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1099 pixel_allocated_p
= 1;
1101 /* Make sure that the cursor color differs from the background color. */
1102 if (pixel
== x
->background_pixel
)
1104 if (pixel_allocated_p
)
1106 x_free_colors (f
, &pixel
, 1);
1107 pixel_allocated_p
= 0;
1110 pixel
= x
->mouse_pixel
;
1111 if (pixel
== fore_pixel
)
1113 if (fore_pixel_allocated_p
)
1115 x_free_colors (f
, &fore_pixel
, 1);
1116 fore_pixel_allocated_p
= 0;
1118 fore_pixel
= x
->background_pixel
;
1122 unload_color (f
, x
->cursor_foreground_pixel
);
1123 if (!fore_pixel_allocated_p
)
1124 fore_pixel
= x_copy_color (f
, fore_pixel
);
1125 x
->cursor_foreground_pixel
= fore_pixel
;
1127 unload_color (f
, x
->cursor_pixel
);
1128 if (!pixel_allocated_p
)
1129 pixel
= x_copy_color (f
, pixel
);
1130 x
->cursor_pixel
= pixel
;
1132 if (FRAME_X_WINDOW (f
) != 0)
1135 XSetBackground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, x
->cursor_pixel
);
1136 XSetForeground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, fore_pixel
);
1139 if (FRAME_VISIBLE_P (f
))
1141 x_update_cursor (f
, 0);
1142 x_update_cursor (f
, 1);
1146 update_face_from_frame_parameter (f
, Qcursor_color
, arg
);
1149 /* Set the border-color of frame F to pixel value PIX.
1150 Note that this does not fully take effect if done before
1151 F has an x-window. */
1154 x_set_border_pixel (f
, pix
)
1158 unload_color (f
, f
->output_data
.x
->border_pixel
);
1159 f
->output_data
.x
->border_pixel
= pix
;
1161 if (FRAME_X_WINDOW (f
) != 0 && f
->border_width
> 0)
1164 XSetWindowBorder (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1165 (unsigned long)pix
);
1168 if (FRAME_VISIBLE_P (f
))
1173 /* Set the border-color of frame F to value described by ARG.
1174 ARG can be a string naming a color.
1175 The border-color is used for the border that is drawn by the X server.
1176 Note that this does not fully take effect if done before
1177 F has an x-window; it must be redone when the window is created.
1179 Note: this is done in two routines because of the way X10 works.
1181 Note: under X11, this is normally the province of the window manager,
1182 and so emacs' border colors may be overridden. */
1185 x_set_border_color (f
, arg
, oldval
)
1187 Lisp_Object arg
, oldval
;
1192 pix
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1193 x_set_border_pixel (f
, pix
);
1194 update_face_from_frame_parameter (f
, Qborder_color
, arg
);
1199 x_set_cursor_type (f
, arg
, oldval
)
1201 Lisp_Object arg
, oldval
;
1203 set_frame_cursor_types (f
, arg
);
1205 /* Make sure the cursor gets redrawn. */
1206 cursor_type_changed
= 1;
1210 x_set_icon_type (f
, arg
, oldval
)
1212 Lisp_Object arg
, oldval
;
1218 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1221 else if (!STRINGP (oldval
) && EQ (oldval
, Qnil
) == EQ (arg
, Qnil
))
1226 result
= x_text_icon (f
,
1227 (char *) SDATA ((!NILP (f
->icon_name
)
1231 result
= x_bitmap_icon (f
, arg
);
1236 error ("No icon window available");
1239 XFlush (FRAME_X_DISPLAY (f
));
1244 x_set_icon_name (f
, arg
, oldval
)
1246 Lisp_Object arg
, oldval
;
1252 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1255 else if (!STRINGP (oldval
) && EQ (oldval
, Qnil
) == EQ (arg
, Qnil
))
1260 if (f
->output_data
.x
->icon_bitmap
!= 0)
1265 result
= x_text_icon (f
,
1266 (char *) SDATA ((!NILP (f
->icon_name
)
1275 error ("No icon window available");
1278 XFlush (FRAME_X_DISPLAY (f
));
1284 x_set_menu_bar_lines (f
, value
, oldval
)
1286 Lisp_Object value
, oldval
;
1289 #if ! defined (USE_X_TOOLKIT) && ! defined (USE_GTK)
1290 int olines
= FRAME_MENU_BAR_LINES (f
);
1293 /* Right now, menu bars don't work properly in minibuf-only frames;
1294 most of the commands try to apply themselves to the minibuffer
1295 frame itself, and get an error because you can't switch buffers
1296 in or split the minibuffer window. */
1297 if (FRAME_MINIBUF_ONLY_P (f
))
1300 if (INTEGERP (value
))
1301 nlines
= XINT (value
);
1305 /* Make sure we redisplay all windows in this frame. */
1306 windows_or_buffers_changed
++;
1308 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
1309 FRAME_MENU_BAR_LINES (f
) = 0;
1312 FRAME_EXTERNAL_MENU_BAR (f
) = 1;
1313 if (FRAME_X_P (f
) && f
->output_data
.x
->menubar_widget
== 0)
1314 /* Make sure next redisplay shows the menu bar. */
1315 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= Qt
;
1319 if (FRAME_EXTERNAL_MENU_BAR (f
) == 1)
1320 free_frame_menubar (f
);
1321 FRAME_EXTERNAL_MENU_BAR (f
) = 0;
1323 f
->output_data
.x
->menubar_widget
= 0;
1325 #else /* not USE_X_TOOLKIT && not USE_GTK */
1326 FRAME_MENU_BAR_LINES (f
) = nlines
;
1327 change_window_heights (f
->root_window
, nlines
- olines
);
1328 #endif /* not USE_X_TOOLKIT */
1333 /* Set the number of lines used for the tool bar of frame F to VALUE.
1334 VALUE not an integer, or < 0 means set the lines to zero. OLDVAL
1335 is the old number of tool bar lines. This function changes the
1336 height of all windows on frame F to match the new tool bar height.
1337 The frame's height doesn't change. */
1340 x_set_tool_bar_lines (f
, value
, oldval
)
1342 Lisp_Object value
, oldval
;
1344 int delta
, nlines
, root_height
;
1345 Lisp_Object root_window
;
1347 /* Treat tool bars like menu bars. */
1348 if (FRAME_MINIBUF_ONLY_P (f
))
1351 /* Use VALUE only if an integer >= 0. */
1352 if (INTEGERP (value
) && XINT (value
) >= 0)
1353 nlines
= XFASTINT (value
);
1358 FRAME_TOOL_BAR_LINES (f
) = 0;
1361 FRAME_EXTERNAL_TOOL_BAR (f
) = 1;
1362 if (FRAME_X_P (f
) && f
->output_data
.x
->toolbar_widget
== 0)
1363 /* Make sure next redisplay shows the tool bar. */
1364 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= Qt
;
1365 update_frame_tool_bar (f
);
1369 if (FRAME_EXTERNAL_TOOL_BAR (f
))
1370 free_frame_tool_bar (f
);
1371 FRAME_EXTERNAL_TOOL_BAR (f
) = 0;
1377 /* Make sure we redisplay all windows in this frame. */
1378 ++windows_or_buffers_changed
;
1380 delta
= nlines
- FRAME_TOOL_BAR_LINES (f
);
1382 /* Don't resize the tool-bar to more than we have room for. */
1383 root_window
= FRAME_ROOT_WINDOW (f
);
1384 root_height
= WINDOW_TOTAL_LINES (XWINDOW (root_window
));
1385 if (root_height
- delta
< 1)
1387 delta
= root_height
- 1;
1388 nlines
= FRAME_TOOL_BAR_LINES (f
) + delta
;
1391 FRAME_TOOL_BAR_LINES (f
) = nlines
;
1392 change_window_heights (root_window
, delta
);
1395 /* We also have to make sure that the internal border at the top of
1396 the frame, below the menu bar or tool bar, is redrawn when the
1397 tool bar disappears. This is so because the internal border is
1398 below the tool bar if one is displayed, but is below the menu bar
1399 if there isn't a tool bar. The tool bar draws into the area
1400 below the menu bar. */
1401 if (FRAME_X_WINDOW (f
) && FRAME_TOOL_BAR_LINES (f
) == 0)
1405 clear_current_matrices (f
);
1406 updating_frame
= NULL
;
1409 /* If the tool bar gets smaller, the internal border below it
1410 has to be cleared. It was formerly part of the display
1411 of the larger tool bar, and updating windows won't clear it. */
1414 int height
= FRAME_INTERNAL_BORDER_WIDTH (f
);
1415 int width
= FRAME_PIXEL_WIDTH (f
);
1416 int y
= nlines
* FRAME_LINE_HEIGHT (f
);
1418 /* height can be zero here. */
1419 if (height
> 0 && width
> 0)
1422 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1423 0, y
, width
, height
, False
);
1427 if (WINDOWP (f
->tool_bar_window
))
1428 clear_glyph_matrix (XWINDOW (f
->tool_bar_window
)->current_matrix
);
1433 /* Set the foreground color for scroll bars on frame F to VALUE.
1434 VALUE should be a string, a color name. If it isn't a string or
1435 isn't a valid color name, do nothing. OLDVAL is the old value of
1436 the frame parameter. */
1439 x_set_scroll_bar_foreground (f
, value
, oldval
)
1441 Lisp_Object value
, oldval
;
1443 unsigned long pixel
;
1445 if (STRINGP (value
))
1446 pixel
= x_decode_color (f
, value
, BLACK_PIX_DEFAULT (f
));
1450 if (f
->output_data
.x
->scroll_bar_foreground_pixel
!= -1)
1451 unload_color (f
, f
->output_data
.x
->scroll_bar_foreground_pixel
);
1453 f
->output_data
.x
->scroll_bar_foreground_pixel
= pixel
;
1454 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1456 /* Remove all scroll bars because they have wrong colors. */
1457 if (condemn_scroll_bars_hook
)
1458 (*condemn_scroll_bars_hook
) (f
);
1459 if (judge_scroll_bars_hook
)
1460 (*judge_scroll_bars_hook
) (f
);
1462 update_face_from_frame_parameter (f
, Qscroll_bar_foreground
, value
);
1468 /* Set the background color for scroll bars on frame F to VALUE VALUE
1469 should be a string, a color name. If it isn't a string or isn't a
1470 valid color name, do nothing. OLDVAL is the old value of the frame
1474 x_set_scroll_bar_background (f
, value
, oldval
)
1476 Lisp_Object value
, oldval
;
1478 unsigned long pixel
;
1480 if (STRINGP (value
))
1481 pixel
= x_decode_color (f
, value
, WHITE_PIX_DEFAULT (f
));
1485 if (f
->output_data
.x
->scroll_bar_background_pixel
!= -1)
1486 unload_color (f
, f
->output_data
.x
->scroll_bar_background_pixel
);
1488 #ifdef USE_TOOLKIT_SCROLL_BARS
1489 /* Scrollbar shadow colors. */
1490 if (f
->output_data
.x
->scroll_bar_top_shadow_pixel
!= -1)
1492 unload_color (f
, f
->output_data
.x
->scroll_bar_top_shadow_pixel
);
1493 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
1495 if (f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
!= -1)
1497 unload_color (f
, f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
);
1498 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
1500 #endif /* USE_TOOLKIT_SCROLL_BARS */
1502 f
->output_data
.x
->scroll_bar_background_pixel
= pixel
;
1503 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1505 /* Remove all scroll bars because they have wrong colors. */
1506 if (condemn_scroll_bars_hook
)
1507 (*condemn_scroll_bars_hook
) (f
);
1508 if (judge_scroll_bars_hook
)
1509 (*judge_scroll_bars_hook
) (f
);
1511 update_face_from_frame_parameter (f
, Qscroll_bar_background
, value
);
1517 /* Encode Lisp string STRING as a text in a format appropriate for
1518 XICCC (X Inter Client Communication Conventions).
1520 If STRING contains only ASCII characters, do no conversion and
1521 return the string data of STRING. Otherwise, encode the text by
1522 CODING_SYSTEM, and return a newly allocated memory area which
1523 should be freed by `xfree' by a caller.
1525 SELECTIONP non-zero means the string is being encoded for an X
1526 selection, so it is safe to run pre-write conversions (which
1529 Store the byte length of resulting text in *TEXT_BYTES.
1531 If the text contains only ASCII and Latin-1, store 1 in *STRING_P,
1532 which means that the `encoding' of the result can be `STRING'.
1533 Otherwise store 0 in *STRINGP, which means that the `encoding' of
1534 the result should be `COMPOUND_TEXT'. */
1536 static unsigned char *
1537 x_encode_text (string
, coding_system
, selectionp
, text_bytes
, stringp
, freep
)
1538 Lisp_Object string
, coding_system
;
1539 int *text_bytes
, *stringp
;
1543 unsigned char *str
= SDATA (string
);
1544 int chars
= SCHARS (string
);
1545 int bytes
= SBYTES (string
);
1549 struct coding_system coding
;
1550 extern Lisp_Object Qcompound_text_with_extensions
;
1552 charset_info
= find_charset_in_text (str
, chars
, bytes
, NULL
, Qnil
);
1553 if (charset_info
== 0)
1555 /* No multibyte character in OBJ. We need not encode it. */
1556 *text_bytes
= bytes
;
1562 setup_coding_system (coding_system
, &coding
);
1564 && SYMBOLP (coding
.pre_write_conversion
)
1565 && !NILP (Ffboundp (coding
.pre_write_conversion
)))
1567 string
= run_pre_post_conversion_on_str (string
, &coding
, 1);
1568 str
= SDATA (string
);
1569 chars
= SCHARS (string
);
1570 bytes
= SBYTES (string
);
1572 coding
.src_multibyte
= 1;
1573 coding
.dst_multibyte
= 0;
1574 coding
.mode
|= CODING_MODE_LAST_BLOCK
;
1575 if (coding
.type
== coding_type_iso2022
)
1576 coding
.flags
|= CODING_FLAG_ISO_SAFE
;
1577 /* We suppress producing escape sequences for composition. */
1578 coding
.composing
= COMPOSITION_DISABLED
;
1579 bufsize
= encoding_buffer_size (&coding
, bytes
);
1580 buf
= (unsigned char *) xmalloc (bufsize
);
1581 encode_coding (&coding
, str
, buf
, bytes
, bufsize
);
1582 *text_bytes
= coding
.produced
;
1583 *stringp
= (charset_info
== 1
1584 || (!EQ (coding_system
, Qcompound_text
)
1585 && !EQ (coding_system
, Qcompound_text_with_extensions
)));
1591 /* Set the WM name to NAME for frame F. Also set the icon name.
1592 If the frame already has an icon name, use that, otherwise set the
1593 icon name to NAME. */
1596 x_set_name_internal (f
, name
)
1600 if (FRAME_X_WINDOW (f
))
1605 XTextProperty text
, icon
;
1607 int do_free_icon_value
= 0, do_free_text_value
= 0;
1608 Lisp_Object coding_system
;
1610 coding_system
= Qcompound_text
;
1611 /* Note: Encoding strategy
1613 We encode NAME by compound-text and use "COMPOUND-TEXT" in
1614 text.encoding. But, there are non-internationalized window
1615 managers which don't support that encoding. So, if NAME
1616 contains only ASCII and 8859-1 characters, encode it by
1617 iso-latin-1, and use "STRING" in text.encoding hoping that
1618 such window managers at least analyze this format correctly,
1619 i.e. treat 8-bit bytes as 8859-1 characters.
1621 We may also be able to use "UTF8_STRING" in text.encoding
1622 in the future which can encode all Unicode characters.
1623 But, for the moment, there's no way to know that the
1624 current window manager supports it or not. */
1625 text
.value
= x_encode_text (name
, coding_system
, 0, &bytes
, &stringp
,
1626 &do_free_text_value
);
1627 text
.encoding
= (stringp
? XA_STRING
1628 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1630 text
.nitems
= bytes
;
1632 if (NILP (f
->icon_name
))
1638 /* See the above comment "Note: Encoding strategy". */
1639 icon
.value
= x_encode_text (f
->icon_name
, coding_system
, 0,
1640 &bytes
, &stringp
, &do_free_icon_value
);
1641 icon
.encoding
= (stringp
? XA_STRING
1642 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1644 icon
.nitems
= bytes
;
1648 gtk_window_set_title (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
1649 (char *) SDATA (ENCODE_UTF_8 (name
)));
1650 #else /* not USE_GTK */
1651 XSetWMName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &text
);
1652 #endif /* not USE_GTK */
1654 XSetWMIconName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &icon
);
1656 if (do_free_icon_value
)
1658 if (do_free_text_value
)
1661 #else /* not HAVE_X11R4 */
1662 XSetIconName (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1664 XStoreName (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1666 #endif /* not HAVE_X11R4 */
1671 /* Change the name of frame F to NAME. If NAME is nil, set F's name to
1674 If EXPLICIT is non-zero, that indicates that lisp code is setting the
1675 name; if NAME is a string, set F's name to NAME and set
1676 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1678 If EXPLICIT is zero, that indicates that Emacs redisplay code is
1679 suggesting a new name, which lisp code should override; if
1680 F->explicit_name is set, ignore the new name; otherwise, set it. */
1683 x_set_name (f
, name
, explicit)
1688 /* Make sure that requests from lisp code override requests from
1689 Emacs redisplay code. */
1692 /* If we're switching from explicit to implicit, we had better
1693 update the mode lines and thereby update the title. */
1694 if (f
->explicit_name
&& NILP (name
))
1695 update_mode_lines
= 1;
1697 f
->explicit_name
= ! NILP (name
);
1699 else if (f
->explicit_name
)
1702 /* If NAME is nil, set the name to the x_id_name. */
1705 /* Check for no change needed in this very common case
1706 before we do any consing. */
1707 if (!strcmp (FRAME_X_DISPLAY_INFO (f
)->x_id_name
,
1710 name
= build_string (FRAME_X_DISPLAY_INFO (f
)->x_id_name
);
1713 CHECK_STRING (name
);
1715 /* Don't change the name if it's already NAME. */
1716 if (! NILP (Fstring_equal (name
, f
->name
)))
1721 /* For setting the frame title, the title parameter should override
1722 the name parameter. */
1723 if (! NILP (f
->title
))
1726 x_set_name_internal (f
, name
);
1729 /* This function should be called when the user's lisp code has
1730 specified a name for the frame; the name will override any set by the
1733 x_explicitly_set_name (f
, arg
, oldval
)
1735 Lisp_Object arg
, oldval
;
1737 x_set_name (f
, arg
, 1);
1740 /* This function should be called by Emacs redisplay code to set the
1741 name; names set this way will never override names set by the user's
1744 x_implicitly_set_name (f
, arg
, oldval
)
1746 Lisp_Object arg
, oldval
;
1748 x_set_name (f
, arg
, 0);
1751 /* Change the title of frame F to NAME.
1752 If NAME is nil, use the frame name as the title.
1754 If EXPLICIT is non-zero, that indicates that lisp code is setting the
1755 name; if NAME is a string, set F's name to NAME and set
1756 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1758 If EXPLICIT is zero, that indicates that Emacs redisplay code is
1759 suggesting a new name, which lisp code should override; if
1760 F->explicit_name is set, ignore the new name; otherwise, set it. */
1763 x_set_title (f
, name
, old_name
)
1765 Lisp_Object name
, old_name
;
1767 /* Don't change the title if it's already NAME. */
1768 if (EQ (name
, f
->title
))
1771 update_mode_lines
= 1;
1778 CHECK_STRING (name
);
1780 x_set_name_internal (f
, name
);
1784 x_set_scroll_bar_default_width (f
)
1787 int wid
= FRAME_COLUMN_WIDTH (f
);
1789 #ifdef USE_TOOLKIT_SCROLL_BARS
1790 /* A minimum width of 14 doesn't look good for toolkit scroll bars. */
1791 int width
= 16 + 2 * VERTICAL_SCROLL_BAR_WIDTH_TRIM
;
1792 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (width
+ wid
- 1) / wid
;
1793 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = width
;
1795 /* Make the actual width at least 14 pixels and a multiple of a
1797 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (14 + wid
- 1) / wid
;
1799 /* Use all of that space (aside from required margins) for the
1801 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = 0;
1806 /* Record in frame F the specified or default value according to ALIST
1807 of the parameter named PROP (a Lisp symbol). If no value is
1808 specified for PROP, look for an X default for XPROP on the frame
1809 named NAME. If that is not found either, use the value DEFLT. */
1812 x_default_scroll_bar_color_parameter (f
, alist
, prop
, xprop
, xclass
,
1821 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
1824 tem
= x_get_arg (dpyinfo
, alist
, prop
, xprop
, xclass
, RES_TYPE_STRING
);
1825 if (EQ (tem
, Qunbound
))
1827 #ifdef USE_TOOLKIT_SCROLL_BARS
1829 /* See if an X resource for the scroll bar color has been
1831 tem
= display_x_get_resource (dpyinfo
,
1832 build_string (foreground_p
1836 build_string ("verticalScrollBar"),
1840 /* If nothing has been specified, scroll bars will use a
1841 toolkit-dependent default. Because these defaults are
1842 difficult to get at without actually creating a scroll
1843 bar, use nil to indicate that no color has been
1848 #else /* not USE_TOOLKIT_SCROLL_BARS */
1852 #endif /* not USE_TOOLKIT_SCROLL_BARS */
1855 x_set_frame_parameters (f
, Fcons (Fcons (prop
, tem
), Qnil
));
1861 #if !defined (HAVE_X11R4) && !defined (HAVE_XSETWMPROTOCOLS)
1864 XSetWMProtocols (dpy
, w
, protocols
, count
)
1871 prop
= XInternAtom (dpy
, "WM_PROTOCOLS", False
);
1872 if (prop
== None
) return False
;
1873 XChangeProperty (dpy
, w
, prop
, XA_ATOM
, 32, PropModeReplace
,
1874 (unsigned char *) protocols
, count
);
1877 #endif /* not HAVE_X11R4 && not HAVE_XSETWMPROTOCOLS */
1879 #ifdef USE_X_TOOLKIT
1881 /* If the WM_PROTOCOLS property does not already contain WM_TAKE_FOCUS,
1882 WM_DELETE_WINDOW, and WM_SAVE_YOURSELF, then add them. (They may
1883 already be present because of the toolkit (Motif adds some of them,
1884 for example, but Xt doesn't). */
1887 hack_wm_protocols (f
, widget
)
1891 Display
*dpy
= XtDisplay (widget
);
1892 Window w
= XtWindow (widget
);
1893 int need_delete
= 1;
1900 unsigned char *catoms
;
1902 unsigned long nitems
= 0;
1903 unsigned long bytes_after
;
1905 if ((XGetWindowProperty (dpy
, w
,
1906 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1907 (long)0, (long)100, False
, XA_ATOM
,
1908 &type
, &format
, &nitems
, &bytes_after
,
1911 && format
== 32 && type
== XA_ATOM
)
1913 Atom
*atoms
= (Atom
*) catoms
;
1918 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
)
1920 else if (atoms
[nitems
]
1921 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
)
1923 else if (atoms
[nitems
]
1924 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
)
1935 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
1937 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
;
1939 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
1941 XChangeProperty (dpy
, w
, FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1942 XA_ATOM
, 32, PropModeAppend
,
1943 (unsigned char *) props
, count
);
1951 /* Support routines for XIC (X Input Context). */
1955 static XFontSet xic_create_xfontset
P_ ((struct frame
*, char *));
1956 static XIMStyle best_xim_style
P_ ((XIMStyles
*, XIMStyles
*));
1959 /* Supported XIM styles, ordered by preference. */
1961 static XIMStyle supported_xim_styles
[] =
1963 XIMPreeditPosition
| XIMStatusArea
,
1964 XIMPreeditPosition
| XIMStatusNothing
,
1965 XIMPreeditPosition
| XIMStatusNone
,
1966 XIMPreeditNothing
| XIMStatusArea
,
1967 XIMPreeditNothing
| XIMStatusNothing
,
1968 XIMPreeditNothing
| XIMStatusNone
,
1969 XIMPreeditNone
| XIMStatusArea
,
1970 XIMPreeditNone
| XIMStatusNothing
,
1971 XIMPreeditNone
| XIMStatusNone
,
1976 /* Create an X fontset on frame F with base font name BASE_FONTNAME. */
1978 char xic_defaut_fontset
[] = "-*-*-*-r-normal--14-*-*-*-*-*-*-*";
1980 /* Create an Xt fontset spec from the name of a base font.
1981 If `motif' is True use the Motif syntax. */
1983 xic_create_fontsetname (base_fontname
, motif
)
1984 char *base_fontname
;
1987 const char *sep
= motif
? ";" : ",";
1990 /* Make a fontset name from the base font name. */
1991 if (xic_defaut_fontset
== base_fontname
)
1992 { /* There is no base font name, use the default. */
1993 int len
= strlen (base_fontname
) + 2;
1994 fontsetname
= xmalloc (len
);
1995 bzero (fontsetname
, len
);
1996 strcpy (fontsetname
, base_fontname
);
2000 /* Make a fontset name from the base font name.
2001 The font set will be made of the following elements:
2003 - the base font where the charset spec is replaced by -*-*.
2004 - the same but with the family also replaced with -*-*-. */
2005 char *p
= base_fontname
;
2008 for (i
= 0; *p
; p
++)
2011 { /* As the font name doesn't conform to XLFD, we can't
2012 modify it to generalize it to allcs and allfamilies.
2013 Use the specified font plus the default. */
2014 int len
= strlen (base_fontname
) + strlen (xic_defaut_fontset
) + 3;
2015 fontsetname
= xmalloc (len
);
2016 bzero (fontsetname
, len
);
2017 strcpy (fontsetname
, base_fontname
);
2018 strcat (fontsetname
, sep
);
2019 strcat (fontsetname
, xic_defaut_fontset
);
2024 char *p1
= NULL
, *p2
= NULL
;
2025 char *font_allcs
= NULL
;
2026 char *font_allfamilies
= NULL
;
2027 char *font_all
= NULL
;
2028 char *allcs
= "*-*-*-*-*-*-*";
2029 char *allfamilies
= "-*-*-";
2030 char *all
= "*-*-*-*-";
2032 for (i
= 0, p
= base_fontname
; i
< 8; p
++)
2043 /* Build the font spec that matches all charsets. */
2044 len
= p
- base_fontname
+ strlen (allcs
) + 1;
2045 font_allcs
= (char *) alloca (len
);
2046 bzero (font_allcs
, len
);
2047 bcopy (base_fontname
, font_allcs
, p
- base_fontname
);
2048 strcat (font_allcs
, allcs
);
2050 /* Build the font spec that matches all families. */
2051 len
= p
- p1
+ strlen (allcs
) + strlen (allfamilies
) + 1;
2052 font_allfamilies
= (char *) alloca (len
);
2053 bzero (font_allfamilies
, len
);
2054 strcpy (font_allfamilies
, allfamilies
);
2055 bcopy (p1
, font_allfamilies
+ strlen (allfamilies
), p
- p1
);
2056 strcat (font_allfamilies
, allcs
);
2058 /* Build the font spec that matches all. */
2059 len
= p
- p2
+ strlen (allcs
) + strlen (all
) + strlen (allfamilies
) + 1;
2060 font_all
= (char *) alloca (len
);
2061 bzero (font_all
, len
);
2062 strcpy (font_all
, allfamilies
);
2063 strcat (font_all
, all
);
2064 bcopy (p2
, font_all
+ strlen (all
) + strlen (allfamilies
), p
- p2
);
2065 strcat (font_all
, allcs
);
2067 /* Build the actual font set name. */
2068 len
= strlen (base_fontname
) + strlen (font_allcs
)
2069 + strlen (font_allfamilies
) + strlen (font_all
) + 5;
2070 fontsetname
= xmalloc (len
);
2071 bzero (fontsetname
, len
);
2072 strcpy (fontsetname
, base_fontname
);
2073 strcat (fontsetname
, sep
);
2074 strcat (fontsetname
, font_allcs
);
2075 strcat (fontsetname
, sep
);
2076 strcat (fontsetname
, font_allfamilies
);
2077 strcat (fontsetname
, sep
);
2078 strcat (fontsetname
, font_all
);
2082 strcat (fontsetname
, ":");
2087 xic_create_xfontset (f
, base_fontname
)
2089 char *base_fontname
;
2091 XFontSet xfs
= NULL
;
2092 char **missing_list
= NULL
;
2095 Lisp_Object rest
, frame
;
2098 base_fontname
= xic_defaut_fontset
;
2100 /* See if there is another frame already using same fontset. */
2101 FOR_EACH_FRAME (rest
, frame
)
2103 struct frame
*cf
= XFRAME (frame
);
2104 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
2105 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
2106 && FRAME_XIC_BASE_FONTNAME (cf
)
2107 && !strcmp (FRAME_XIC_BASE_FONTNAME (cf
), base_fontname
))
2109 xfs
= FRAME_XIC_FONTSET (cf
);
2116 char *fontsetname
= xic_create_fontsetname (base_fontname
, False
);
2119 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
),
2120 fontsetname
, &missing_list
,
2121 &missing_count
, &def_string
);
2123 XFreeStringList (missing_list
);
2124 xfree (fontsetname
);
2127 if (FRAME_XIC_BASE_FONTNAME (f
))
2128 xfree (FRAME_XIC_BASE_FONTNAME (f
));
2129 FRAME_XIC_BASE_FONTNAME (f
) = xstrdup (base_fontname
);
2131 /* No need to free def_string. */
2135 /* Free the X fontset of frame F if it is the last frame using it. */
2138 xic_free_xfontset (f
)
2141 Lisp_Object rest
, frame
;
2144 if (!FRAME_XIC_FONTSET (f
))
2147 /* See if there is another frame sharing the same fontset. */
2148 FOR_EACH_FRAME (rest
, frame
)
2150 struct frame
*cf
= XFRAME (frame
);
2151 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
2152 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
2153 && FRAME_XIC_FONTSET (cf
) == FRAME_XIC_FONTSET (f
))
2161 /* The fontset is not used anymore. It is safe to free it. */
2162 XFreeFontSet (FRAME_X_DISPLAY (f
), FRAME_XIC_FONTSET (f
));
2164 if (FRAME_XIC_BASE_FONTNAME (f
))
2165 xfree (FRAME_XIC_BASE_FONTNAME (f
));
2166 FRAME_XIC_BASE_FONTNAME (f
) = NULL
;
2167 FRAME_XIC_FONTSET (f
) = NULL
;
2171 /* Value is the best input style, given user preferences USER (already
2172 checked to be supported by Emacs), and styles supported by the
2173 input method XIM. */
2176 best_xim_style (user
, xim
)
2182 for (i
= 0; i
< user
->count_styles
; ++i
)
2183 for (j
= 0; j
< xim
->count_styles
; ++j
)
2184 if (user
->supported_styles
[i
] == xim
->supported_styles
[j
])
2185 return user
->supported_styles
[i
];
2187 /* Return the default style. */
2188 return XIMPreeditNothing
| XIMStatusNothing
;
2191 /* Create XIC for frame F. */
2193 static XIMStyle xic_style
;
2196 create_frame_xic (f
)
2201 XFontSet xfs
= NULL
;
2206 /* Create X fontset. */
2207 xfs
= xic_create_xfontset
2208 (f
, (FRAME_FONTSET (f
) < 0) ? NULL
2209 : (char *) SDATA (fontset_ascii (FRAME_FONTSET (f
))));
2211 xim
= FRAME_X_XIM (f
);
2216 XVaNestedList preedit_attr
;
2217 XVaNestedList status_attr
;
2219 s_area
.x
= 0; s_area
.y
= 0; s_area
.width
= 1; s_area
.height
= 1;
2220 spot
.x
= 0; spot
.y
= 1;
2222 /* Determine XIC style. */
2225 XIMStyles supported_list
;
2226 supported_list
.count_styles
= (sizeof supported_xim_styles
2227 / sizeof supported_xim_styles
[0]);
2228 supported_list
.supported_styles
= supported_xim_styles
;
2229 xic_style
= best_xim_style (&supported_list
,
2230 FRAME_X_XIM_STYLES (f
));
2233 preedit_attr
= XVaCreateNestedList (0,
2236 FRAME_FOREGROUND_PIXEL (f
),
2238 FRAME_BACKGROUND_PIXEL (f
),
2239 (xic_style
& XIMPreeditPosition
2244 status_attr
= XVaCreateNestedList (0,
2250 FRAME_FOREGROUND_PIXEL (f
),
2252 FRAME_BACKGROUND_PIXEL (f
),
2255 xic
= XCreateIC (xim
,
2256 XNInputStyle
, xic_style
,
2257 XNClientWindow
, FRAME_X_WINDOW (f
),
2258 XNFocusWindow
, FRAME_X_WINDOW (f
),
2259 XNStatusAttributes
, status_attr
,
2260 XNPreeditAttributes
, preedit_attr
,
2262 XFree (preedit_attr
);
2263 XFree (status_attr
);
2266 FRAME_XIC (f
) = xic
;
2267 FRAME_XIC_STYLE (f
) = xic_style
;
2268 FRAME_XIC_FONTSET (f
) = xfs
;
2272 /* Destroy XIC and free XIC fontset of frame F, if any. */
2278 if (FRAME_XIC (f
) == NULL
)
2281 XDestroyIC (FRAME_XIC (f
));
2282 xic_free_xfontset (f
);
2284 FRAME_XIC (f
) = NULL
;
2288 /* Place preedit area for XIC of window W's frame to specified
2289 pixel position X/Y. X and Y are relative to window W. */
2292 xic_set_preeditarea (w
, x
, y
)
2296 struct frame
*f
= XFRAME (w
->frame
);
2300 spot
.x
= WINDOW_TO_FRAME_PIXEL_X (w
, x
) + WINDOW_LEFT_FRINGE_WIDTH (w
);
2301 spot
.y
= WINDOW_TO_FRAME_PIXEL_Y (w
, y
) + FONT_BASE (FRAME_FONT (f
));
2302 attr
= XVaCreateNestedList (0, XNSpotLocation
, &spot
, NULL
);
2303 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2308 /* Place status area for XIC in bottom right corner of frame F.. */
2311 xic_set_statusarea (f
)
2314 XIC xic
= FRAME_XIC (f
);
2319 /* Negotiate geometry of status area. If input method has existing
2320 status area, use its current size. */
2321 area
.x
= area
.y
= area
.width
= area
.height
= 0;
2322 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &area
, NULL
);
2323 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2326 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &needed
, NULL
);
2327 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2330 if (needed
->width
== 0) /* Use XNArea instead of XNAreaNeeded */
2332 attr
= XVaCreateNestedList (0, XNArea
, &needed
, NULL
);
2333 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2337 area
.width
= needed
->width
;
2338 area
.height
= needed
->height
;
2339 area
.x
= FRAME_PIXEL_WIDTH (f
) - area
.width
- FRAME_INTERNAL_BORDER_WIDTH (f
);
2340 area
.y
= (FRAME_PIXEL_HEIGHT (f
) - area
.height
2341 - FRAME_MENUBAR_HEIGHT (f
)
2342 - FRAME_TOOLBAR_HEIGHT (f
)
2343 - FRAME_INTERNAL_BORDER_WIDTH (f
));
2346 attr
= XVaCreateNestedList (0, XNArea
, &area
, NULL
);
2347 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2352 /* Set X fontset for XIC of frame F, using base font name
2353 BASE_FONTNAME. Called when a new Emacs fontset is chosen. */
2356 xic_set_xfontset (f
, base_fontname
)
2358 char *base_fontname
;
2363 xic_free_xfontset (f
);
2365 xfs
= xic_create_xfontset (f
, base_fontname
);
2367 attr
= XVaCreateNestedList (0, XNFontSet
, xfs
, NULL
);
2368 if (FRAME_XIC_STYLE (f
) & XIMPreeditPosition
)
2369 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2370 if (FRAME_XIC_STYLE (f
) & XIMStatusArea
)
2371 XSetICValues (FRAME_XIC (f
), XNStatusAttributes
, attr
, NULL
);
2374 FRAME_XIC_FONTSET (f
) = xfs
;
2377 #endif /* HAVE_X_I18N */
2381 #ifdef USE_X_TOOLKIT
2383 /* Create and set up the X widget for frame F. */
2386 x_window (f
, window_prompting
, minibuffer_only
)
2388 long window_prompting
;
2389 int minibuffer_only
;
2391 XClassHint class_hints
;
2392 XSetWindowAttributes attributes
;
2393 unsigned long attribute_mask
;
2394 Widget shell_widget
;
2396 Widget frame_widget
;
2402 /* Use the resource name as the top-level widget name
2403 for looking up resources. Make a non-Lisp copy
2404 for the window manager, so GC relocation won't bother it.
2406 Elsewhere we specify the window name for the window manager. */
2409 char *str
= (char *) SDATA (Vx_resource_name
);
2410 f
->namebuf
= (char *) xmalloc (strlen (str
) + 1);
2411 strcpy (f
->namebuf
, str
);
2415 XtSetArg (al
[ac
], XtNallowShellResize
, 1); ac
++;
2416 XtSetArg (al
[ac
], XtNinput
, 1); ac
++;
2417 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2418 XtSetArg (al
[ac
], XtNborderWidth
, f
->border_width
); ac
++;
2419 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2420 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2421 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2422 shell_widget
= XtAppCreateShell (f
->namebuf
, EMACS_CLASS
,
2423 applicationShellWidgetClass
,
2424 FRAME_X_DISPLAY (f
), al
, ac
);
2426 f
->output_data
.x
->widget
= shell_widget
;
2427 /* maybe_set_screen_title_format (shell_widget); */
2429 pane_widget
= lw_create_widget ("main", "pane", widget_id_tick
++,
2430 (widget_value
*) NULL
,
2431 shell_widget
, False
,
2435 (lw_callback
) NULL
);
2438 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2439 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2440 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2441 XtSetValues (pane_widget
, al
, ac
);
2442 f
->output_data
.x
->column_widget
= pane_widget
;
2444 /* mappedWhenManaged to false tells to the paned window to not map/unmap
2445 the emacs screen when changing menubar. This reduces flickering. */
2448 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2449 XtSetArg (al
[ac
], XtNshowGrip
, 0); ac
++;
2450 XtSetArg (al
[ac
], XtNallowResize
, 1); ac
++;
2451 XtSetArg (al
[ac
], XtNresizeToPreferred
, 1); ac
++;
2452 XtSetArg (al
[ac
], XtNemacsFrame
, f
); ac
++;
2453 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2454 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2455 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2456 frame_widget
= XtCreateWidget (f
->namebuf
, emacsFrameClass
, pane_widget
,
2459 f
->output_data
.x
->edit_widget
= frame_widget
;
2461 XtManageChild (frame_widget
);
2463 /* Do some needed geometry management. */
2466 char *tem
, shell_position
[32];
2469 int extra_borders
= 0;
2471 = (f
->output_data
.x
->menubar_widget
2472 ? (f
->output_data
.x
->menubar_widget
->core
.height
2473 + f
->output_data
.x
->menubar_widget
->core
.border_width
)
2476 #if 0 /* Experimentally, we now get the right results
2477 for -geometry -0-0 without this. 24 Aug 96, rms. */
2478 if (FRAME_EXTERNAL_MENU_BAR (f
))
2481 XtVaGetValues (pane_widget
, XtNinternalBorderWidth
, &ibw
, NULL
);
2482 menubar_size
+= ibw
;
2486 f
->output_data
.x
->menubar_height
= menubar_size
;
2489 /* Motif seems to need this amount added to the sizes
2490 specified for the shell widget. The Athena/Lucid widgets don't.
2491 Both conclusions reached experimentally. -- rms. */
2492 XtVaGetValues (f
->output_data
.x
->edit_widget
, XtNinternalBorderWidth
,
2493 &extra_borders
, NULL
);
2497 /* Convert our geometry parameters into a geometry string
2499 Note that we do not specify here whether the position
2500 is a user-specified or program-specified one.
2501 We pass that information later, in x_wm_set_size_hints. */
2503 int left
= f
->left_pos
;
2504 int xneg
= window_prompting
& XNegative
;
2505 int top
= f
->top_pos
;
2506 int yneg
= window_prompting
& YNegative
;
2512 if (window_prompting
& USPosition
)
2513 sprintf (shell_position
, "=%dx%d%c%d%c%d",
2514 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2515 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
,
2516 (xneg
? '-' : '+'), left
,
2517 (yneg
? '-' : '+'), top
);
2520 sprintf (shell_position
, "=%dx%d",
2521 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2522 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
);
2524 /* Setting x and y when the position is not specified in
2525 the geometry string will set program position in the WM hints.
2526 If Emacs had just one program position, we could set it in
2527 fallback resources, but since each make-frame call can specify
2528 different program positions, this is easier. */
2529 XtSetArg (al
[ac
], XtNx
, left
); ac
++;
2530 XtSetArg (al
[ac
], XtNy
, top
); ac
++;
2534 len
= strlen (shell_position
) + 1;
2535 /* We don't free this because we don't know whether
2536 it is safe to free it while the frame exists.
2537 It isn't worth the trouble of arranging to free it
2538 when the frame is deleted. */
2539 tem
= (char *) xmalloc (len
);
2540 strncpy (tem
, shell_position
, len
);
2541 XtSetArg (al
[ac
], XtNgeometry
, tem
); ac
++;
2542 XtSetValues (shell_widget
, al
, ac
);
2545 XtManageChild (pane_widget
);
2546 XtRealizeWidget (shell_widget
);
2548 FRAME_X_WINDOW (f
) = XtWindow (frame_widget
);
2550 validate_x_resource_name ();
2552 class_hints
.res_name
= (char *) SDATA (Vx_resource_name
);
2553 class_hints
.res_class
= (char *) SDATA (Vx_resource_class
);
2554 XSetClassHint (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
), &class_hints
);
2557 FRAME_XIC (f
) = NULL
;
2559 create_frame_xic (f
);
2562 f
->output_data
.x
->wm_hints
.input
= True
;
2563 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2564 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2565 &f
->output_data
.x
->wm_hints
);
2567 hack_wm_protocols (f
, shell_widget
);
2570 XtAddEventHandler (shell_widget
, 0, True
, _XEditResCheckMessages
, 0);
2573 /* Do a stupid property change to force the server to generate a
2574 PropertyNotify event so that the event_stream server timestamp will
2575 be initialized to something relevant to the time we created the window.
2577 XChangeProperty (XtDisplay (frame_widget
), XtWindow (frame_widget
),
2578 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
2579 XA_ATOM
, 32, PropModeAppend
,
2580 (unsigned char*) NULL
, 0);
2582 /* Make all the standard events reach the Emacs frame. */
2583 attributes
.event_mask
= STANDARD_EVENT_SET
;
2588 /* XIM server might require some X events. */
2589 unsigned long fevent
= NoEventMask
;
2590 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2591 attributes
.event_mask
|= fevent
;
2593 #endif /* HAVE_X_I18N */
2595 attribute_mask
= CWEventMask
;
2596 XChangeWindowAttributes (XtDisplay (shell_widget
), XtWindow (shell_widget
),
2597 attribute_mask
, &attributes
);
2599 XtMapWidget (frame_widget
);
2601 /* x_set_name normally ignores requests to set the name if the
2602 requested name is the same as the current name. This is the one
2603 place where that assumption isn't correct; f->name is set, but
2604 the X server hasn't been told. */
2607 int explicit = f
->explicit_name
;
2609 f
->explicit_name
= 0;
2612 x_set_name (f
, name
, explicit);
2615 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2616 f
->output_data
.x
->text_cursor
);
2620 /* This is a no-op, except under Motif. Make sure main areas are
2621 set to something reasonable, in case we get an error later. */
2622 lw_set_main_areas (pane_widget
, 0, frame_widget
);
2625 #else /* not USE_X_TOOLKIT */
2631 if (! xg_create_frame_widgets (f
))
2632 error ("Unable to create window");
2635 FRAME_XIC (f
) = NULL
;
2639 create_frame_xic (f
);
2642 /* XIM server might require some X events. */
2643 unsigned long fevent
= NoEventMask
;
2644 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2646 if (fevent
!= NoEventMask
)
2648 XSetWindowAttributes attributes
;
2649 XWindowAttributes wattr
;
2650 unsigned long attribute_mask
;
2652 XGetWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2654 attributes
.event_mask
= wattr
.your_event_mask
| fevent
;
2655 attribute_mask
= CWEventMask
;
2656 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2657 attribute_mask
, &attributes
);
2665 #else /*! USE_GTK */
2666 /* Create and set up the X window for frame F. */
2673 XClassHint class_hints
;
2674 XSetWindowAttributes attributes
;
2675 unsigned long attribute_mask
;
2677 attributes
.background_pixel
= f
->output_data
.x
->background_pixel
;
2678 attributes
.border_pixel
= f
->output_data
.x
->border_pixel
;
2679 attributes
.bit_gravity
= StaticGravity
;
2680 attributes
.backing_store
= NotUseful
;
2681 attributes
.save_under
= True
;
2682 attributes
.event_mask
= STANDARD_EVENT_SET
;
2683 attributes
.colormap
= FRAME_X_COLORMAP (f
);
2684 attribute_mask
= (CWBackPixel
| CWBorderPixel
| CWBitGravity
| CWEventMask
2689 = XCreateWindow (FRAME_X_DISPLAY (f
),
2690 f
->output_data
.x
->parent_desc
,
2693 FRAME_PIXEL_WIDTH (f
), FRAME_PIXEL_HEIGHT (f
),
2695 CopyFromParent
, /* depth */
2696 InputOutput
, /* class */
2698 attribute_mask
, &attributes
);
2703 create_frame_xic (f
);
2706 /* XIM server might require some X events. */
2707 unsigned long fevent
= NoEventMask
;
2708 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2709 attributes
.event_mask
|= fevent
;
2710 attribute_mask
= CWEventMask
;
2711 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2712 attribute_mask
, &attributes
);
2715 #endif /* HAVE_X_I18N */
2717 validate_x_resource_name ();
2719 class_hints
.res_name
= (char *) SDATA (Vx_resource_name
);
2720 class_hints
.res_class
= (char *) SDATA (Vx_resource_class
);
2721 XSetClassHint (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), &class_hints
);
2723 /* The menubar is part of the ordinary display;
2724 it does not count in addition to the height of the window. */
2725 f
->output_data
.x
->menubar_height
= 0;
2727 /* This indicates that we use the "Passive Input" input model.
2728 Unless we do this, we don't get the Focus{In,Out} events that we
2729 need to draw the cursor correctly. Accursed bureaucrats.
2730 XWhipsAndChains (FRAME_X_DISPLAY (f), IronMaiden, &TheRack); */
2732 f
->output_data
.x
->wm_hints
.input
= True
;
2733 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2734 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2735 &f
->output_data
.x
->wm_hints
);
2736 f
->output_data
.x
->wm_hints
.icon_pixmap
= None
;
2738 /* Request "save yourself" and "delete window" commands from wm. */
2741 protocols
[0] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
2742 protocols
[1] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
2743 XSetWMProtocols (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), protocols
, 2);
2746 /* x_set_name normally ignores requests to set the name if the
2747 requested name is the same as the current name. This is the one
2748 place where that assumption isn't correct; f->name is set, but
2749 the X server hasn't been told. */
2752 int explicit = f
->explicit_name
;
2754 f
->explicit_name
= 0;
2757 x_set_name (f
, name
, explicit);
2760 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2761 f
->output_data
.x
->text_cursor
);
2765 if (FRAME_X_WINDOW (f
) == 0)
2766 error ("Unable to create window");
2769 #endif /* not USE_GTK */
2770 #endif /* not USE_X_TOOLKIT */
2772 /* Verify that the icon position args for this window are valid. */
2775 x_icon_verify (f
, parms
)
2779 Lisp_Object icon_x
, icon_y
;
2781 /* Set the position of the icon. Note that twm groups all
2782 icons in an icon window. */
2783 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2784 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2785 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2787 CHECK_NUMBER (icon_x
);
2788 CHECK_NUMBER (icon_y
);
2790 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2791 error ("Both left and top icon corners of icon must be specified");
2794 /* Handle the icon stuff for this window. Perhaps later we might
2795 want an x_set_icon_position which can be called interactively as
2803 Lisp_Object icon_x
, icon_y
;
2804 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2806 /* Set the position of the icon. Note that twm groups all
2807 icons in an icon window. */
2808 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2809 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2810 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2812 CHECK_NUMBER (icon_x
);
2813 CHECK_NUMBER (icon_y
);
2815 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2816 error ("Both left and top icon corners of icon must be specified");
2820 if (! EQ (icon_x
, Qunbound
))
2821 x_wm_set_icon_position (f
, XINT (icon_x
), XINT (icon_y
));
2823 /* Start up iconic or window? */
2824 x_wm_set_window_state
2825 (f
, (EQ (x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0, RES_TYPE_SYMBOL
),
2830 x_text_icon (f
, (char *) SDATA ((!NILP (f
->icon_name
)
2837 /* Make the GCs needed for this window, setting the
2838 background, border and mouse colors; also create the
2839 mouse cursor and the gray border tile. */
2841 static char cursor_bits
[] =
2843 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2844 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2845 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2846 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00
2853 XGCValues gc_values
;
2857 /* Create the GCs of this frame.
2858 Note that many default values are used. */
2861 gc_values
.font
= FRAME_FONT (f
)->fid
;
2862 gc_values
.foreground
= f
->output_data
.x
->foreground_pixel
;
2863 gc_values
.background
= f
->output_data
.x
->background_pixel
;
2864 gc_values
.line_width
= 0; /* Means 1 using fast algorithm. */
2865 f
->output_data
.x
->normal_gc
2866 = XCreateGC (FRAME_X_DISPLAY (f
),
2868 GCLineWidth
| GCFont
| GCForeground
| GCBackground
,
2871 /* Reverse video style. */
2872 gc_values
.foreground
= f
->output_data
.x
->background_pixel
;
2873 gc_values
.background
= f
->output_data
.x
->foreground_pixel
;
2874 f
->output_data
.x
->reverse_gc
2875 = XCreateGC (FRAME_X_DISPLAY (f
),
2877 GCFont
| GCForeground
| GCBackground
| GCLineWidth
,
2880 /* Cursor has cursor-color background, background-color foreground. */
2881 gc_values
.foreground
= f
->output_data
.x
->background_pixel
;
2882 gc_values
.background
= f
->output_data
.x
->cursor_pixel
;
2883 gc_values
.fill_style
= FillOpaqueStippled
;
2885 = XCreateBitmapFromData (FRAME_X_DISPLAY (f
),
2886 FRAME_X_DISPLAY_INFO (f
)->root_window
,
2887 cursor_bits
, 16, 16);
2888 f
->output_data
.x
->cursor_gc
2889 = XCreateGC (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2890 (GCFont
| GCForeground
| GCBackground
2891 | GCFillStyle
/* | GCStipple */ | GCLineWidth
),
2895 f
->output_data
.x
->white_relief
.gc
= 0;
2896 f
->output_data
.x
->black_relief
.gc
= 0;
2898 /* Create the gray border tile used when the pointer is not in
2899 the frame. Since this depends on the frame's pixel values,
2900 this must be done on a per-frame basis. */
2901 f
->output_data
.x
->border_tile
2902 = (XCreatePixmapFromBitmapData
2903 (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
2904 gray_bits
, gray_width
, gray_height
,
2905 f
->output_data
.x
->foreground_pixel
,
2906 f
->output_data
.x
->background_pixel
,
2907 DefaultDepth (FRAME_X_DISPLAY (f
), FRAME_X_SCREEN_NUMBER (f
))));
2913 /* Free what was was allocated in x_make_gc. */
2919 Display
*dpy
= FRAME_X_DISPLAY (f
);
2923 if (f
->output_data
.x
->normal_gc
)
2925 XFreeGC (dpy
, f
->output_data
.x
->normal_gc
);
2926 f
->output_data
.x
->normal_gc
= 0;
2929 if (f
->output_data
.x
->reverse_gc
)
2931 XFreeGC (dpy
, f
->output_data
.x
->reverse_gc
);
2932 f
->output_data
.x
->reverse_gc
= 0;
2935 if (f
->output_data
.x
->cursor_gc
)
2937 XFreeGC (dpy
, f
->output_data
.x
->cursor_gc
);
2938 f
->output_data
.x
->cursor_gc
= 0;
2941 if (f
->output_data
.x
->border_tile
)
2943 XFreePixmap (dpy
, f
->output_data
.x
->border_tile
);
2944 f
->output_data
.x
->border_tile
= 0;
2951 /* Handler for signals raised during x_create_frame and
2952 x_create_top_frame. FRAME is the frame which is partially
2956 unwind_create_frame (frame
)
2959 struct frame
*f
= XFRAME (frame
);
2961 /* If frame is ``official'', nothing to do. */
2962 if (!CONSP (Vframe_list
) || !EQ (XCAR (Vframe_list
), frame
))
2965 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2968 x_free_frame_resources (f
);
2971 /* Check that reference counts are indeed correct. */
2972 xassert (dpyinfo
->reference_count
== dpyinfo_refcount
);
2973 xassert (dpyinfo
->image_cache
->refcount
== image_cache_refcount
);
2982 DEFUN ("x-create-frame", Fx_create_frame
, Sx_create_frame
,
2984 doc
: /* Make a new X window, which is called a "frame" in Emacs terms.
2985 Returns an Emacs frame object.
2986 ALIST is an alist of frame parameters.
2987 If the parameters specify that the frame should not have a minibuffer,
2988 and do not specify a specific minibuffer window to use,
2989 then `default-minibuffer-frame' must be a frame whose minibuffer can
2990 be shared by the new frame.
2992 This function is an internal primitive--use `make-frame' instead. */)
2997 Lisp_Object frame
, tem
;
2999 int minibuffer_only
= 0;
3000 long window_prompting
= 0;
3002 int count
= SPECPDL_INDEX ();
3003 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
3004 Lisp_Object display
;
3005 struct x_display_info
*dpyinfo
= NULL
;
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 */
3076 record_unwind_protect (unwind_create_frame
, frame
);
3079 = x_get_arg (dpyinfo
, parms
, Qicon_name
, "iconName", "Title",
3081 if (! STRINGP (f
->icon_name
))
3082 f
->icon_name
= Qnil
;
3084 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
3086 image_cache_refcount
= FRAME_X_IMAGE_CACHE (f
)->refcount
;
3087 dpyinfo_refcount
= dpyinfo
->reference_count
;
3088 #endif /* GLYPH_DEBUG */
3090 FRAME_KBOARD (f
) = kb
;
3093 /* These colors will be set anyway later, but it's important
3094 to get the color reference counts right, so initialize them! */
3097 struct gcpro gcpro1
;
3099 /* Function x_decode_color can signal an error. Make
3100 sure to initialize color slots so that we won't try
3101 to free colors we haven't allocated. */
3102 f
->output_data
.x
->foreground_pixel
= -1;
3103 f
->output_data
.x
->background_pixel
= -1;
3104 f
->output_data
.x
->cursor_pixel
= -1;
3105 f
->output_data
.x
->cursor_foreground_pixel
= -1;
3106 f
->output_data
.x
->border_pixel
= -1;
3107 f
->output_data
.x
->mouse_pixel
= -1;
3109 black
= build_string ("black");
3111 f
->output_data
.x
->foreground_pixel
3112 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3113 f
->output_data
.x
->background_pixel
3114 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3115 f
->output_data
.x
->cursor_pixel
3116 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3117 f
->output_data
.x
->cursor_foreground_pixel
3118 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3119 f
->output_data
.x
->border_pixel
3120 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3121 f
->output_data
.x
->mouse_pixel
3122 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3126 /* Specify the parent under which to make this X window. */
3130 f
->output_data
.x
->parent_desc
= (Window
) XFASTINT (parent
);
3131 f
->output_data
.x
->explicit_parent
= 1;
3135 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
3136 f
->output_data
.x
->explicit_parent
= 0;
3139 /* Set the name; the functions to which we pass f expect the name to
3141 if (EQ (name
, Qunbound
) || NILP (name
))
3143 f
->name
= build_string (dpyinfo
->x_id_name
);
3144 f
->explicit_name
= 0;
3149 f
->explicit_name
= 1;
3150 /* use the frame's title when getting resources for this frame. */
3151 specbind (Qx_resource_name
, name
);
3154 /* Extract the window parameters from the supplied values
3155 that are needed to determine window geometry. */
3159 font
= x_get_arg (dpyinfo
, parms
, Qfont
, "font", "Font", RES_TYPE_STRING
);
3162 /* First, try whatever font the caller has specified. */
3165 tem
= Fquery_fontset (font
, Qnil
);
3167 font
= x_new_fontset (f
, SDATA (tem
));
3169 font
= x_new_font (f
, SDATA (font
));
3172 /* Try out a font which we hope has bold and italic variations. */
3173 if (!STRINGP (font
))
3174 font
= x_new_font (f
, "-adobe-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-1");
3175 if (!STRINGP (font
))
3176 font
= x_new_font (f
, "-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-1");
3177 if (! STRINGP (font
))
3178 font
= x_new_font (f
, "-*-*-medium-r-normal-*-*-140-*-*-c-*-iso8859-1");
3179 if (! STRINGP (font
))
3180 /* This was formerly the first thing tried, but it finds too many fonts
3181 and takes too long. */
3182 font
= x_new_font (f
, "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1");
3183 /* If those didn't work, look for something which will at least work. */
3184 if (! STRINGP (font
))
3185 font
= x_new_font (f
, "-*-fixed-*-*-*-*-*-140-*-*-c-*-iso8859-1");
3187 if (! STRINGP (font
))
3188 font
= build_string ("fixed");
3190 x_default_parameter (f
, parms
, Qfont
, font
,
3191 "font", "Font", RES_TYPE_STRING
);
3195 /* Prevent lwlib/xlwmenu.c from crashing because of a bug
3196 whereby it fails to get any font. */
3197 xlwmenu_default_font
= FRAME_FONT (f
);
3200 x_default_parameter (f
, parms
, Qborder_width
, make_number (2),
3201 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
3203 /* This defaults to 1 in order to match xterm. We recognize either
3204 internalBorderWidth or internalBorder (which is what xterm calls
3206 if (NILP (Fassq (Qinternal_border_width
, parms
)))
3210 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
3211 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
3212 if (! EQ (value
, Qunbound
))
3213 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
3216 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
3217 "internalBorderWidth", "internalBorderWidth",
3219 x_default_parameter (f
, parms
, Qvertical_scroll_bars
, Qleft
,
3220 "verticalScrollBars", "ScrollBars",
3223 /* Also do the stuff which must be set before the window exists. */
3224 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
3225 "foreground", "Foreground", RES_TYPE_STRING
);
3226 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
3227 "background", "Background", RES_TYPE_STRING
);
3228 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
3229 "pointerColor", "Foreground", RES_TYPE_STRING
);
3230 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
3231 "cursorColor", "Foreground", RES_TYPE_STRING
);
3232 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
3233 "borderColor", "BorderColor", RES_TYPE_STRING
);
3234 x_default_parameter (f
, parms
, Qscreen_gamma
, Qnil
,
3235 "screenGamma", "ScreenGamma", RES_TYPE_FLOAT
);
3236 x_default_parameter (f
, parms
, Qline_spacing
, Qnil
,
3237 "lineSpacing", "LineSpacing", RES_TYPE_NUMBER
);
3238 x_default_parameter (f
, parms
, Qleft_fringe
, Qnil
,
3239 "leftFringe", "LeftFringe", RES_TYPE_NUMBER
);
3240 x_default_parameter (f
, parms
, Qright_fringe
, Qnil
,
3241 "rightFringe", "RightFringe", RES_TYPE_NUMBER
);
3243 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_foreground
,
3244 "scrollBarForeground",
3245 "ScrollBarForeground", 1);
3246 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_background
,
3247 "scrollBarBackground",
3248 "ScrollBarBackground", 0);
3250 /* Init faces before x_default_parameter is called for scroll-bar
3251 parameters because that function calls x_set_scroll_bar_width,
3252 which calls change_frame_size, which calls Fset_window_buffer,
3253 which runs hooks, which call Fvertical_motion. At the end, we
3254 end up in init_iterator with a null face cache, which should not
3256 init_frame_faces (f
);
3258 x_default_parameter (f
, parms
, Qmenu_bar_lines
, make_number (1),
3259 "menuBar", "MenuBar", RES_TYPE_NUMBER
);
3260 x_default_parameter (f
, parms
, Qtool_bar_lines
, make_number (1),
3261 "toolBar", "ToolBar", RES_TYPE_NUMBER
);
3262 x_default_parameter (f
, parms
, Qbuffer_predicate
, Qnil
,
3263 "bufferPredicate", "BufferPredicate",
3265 x_default_parameter (f
, parms
, Qtitle
, Qnil
,
3266 "title", "Title", RES_TYPE_STRING
);
3267 x_default_parameter (f
, parms
, Qwait_for_wm
, Qt
,
3268 "waitForWM", "WaitForWM", RES_TYPE_BOOLEAN
);
3269 x_default_parameter (f
, parms
, Qfullscreen
, Qnil
,
3270 "fullscreen", "Fullscreen", RES_TYPE_SYMBOL
);
3272 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
3274 /* Compute the size of the X window. */
3275 window_prompting
= x_figure_window_size (f
, parms
, 1);
3277 tem
= x_get_arg (dpyinfo
, parms
, Qunsplittable
, 0, 0, RES_TYPE_BOOLEAN
);
3278 f
->no_split
= minibuffer_only
|| EQ (tem
, Qt
);
3280 x_icon_verify (f
, parms
);
3282 /* Create the X widget or window. */
3283 #ifdef USE_X_TOOLKIT
3284 x_window (f
, window_prompting
, minibuffer_only
);
3292 /* Now consider the frame official. */
3293 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
3294 Vframe_list
= Fcons (frame
, Vframe_list
);
3296 /* We need to do this after creating the X window, so that the
3297 icon-creation functions can say whose icon they're describing. */
3298 x_default_parameter (f
, parms
, Qicon_type
, Qt
,
3299 "bitmapIcon", "BitmapIcon", RES_TYPE_SYMBOL
);
3301 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
3302 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3303 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
3304 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3305 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
3306 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
3307 x_default_parameter (f
, parms
, Qscroll_bar_width
, Qnil
,
3308 "scrollBarWidth", "ScrollBarWidth",
3311 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
3312 Change will not be effected unless different from the current
3314 width
= FRAME_COLS (f
);
3315 height
= FRAME_LINES (f
);
3317 SET_FRAME_COLS (f
, 0);
3318 FRAME_LINES (f
) = 0;
3319 change_frame_size (f
, height
, width
, 1, 0, 0);
3321 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
3322 /* Create the menu bar. */
3323 if (!minibuffer_only
&& FRAME_EXTERNAL_MENU_BAR (f
))
3325 /* If this signals an error, we haven't set size hints for the
3326 frame and we didn't make it visible. */
3327 initialize_frame_menubar (f
);
3330 /* This is a no-op, except under Motif where it arranges the
3331 main window for the widgets on it. */
3332 lw_set_main_areas (f
->output_data
.x
->column_widget
,
3333 f
->output_data
.x
->menubar_widget
,
3334 f
->output_data
.x
->edit_widget
);
3335 #endif /* not USE_GTK */
3337 #endif /* USE_X_TOOLKIT || USE_GTK */
3339 /* Tell the server what size and position, etc, we want, and how
3340 badly we want them. This should be done after we have the menu
3341 bar so that its size can be taken into account. */
3343 x_wm_set_size_hint (f
, window_prompting
, 0);
3346 /* Make the window appear on the frame and enable display, unless
3347 the caller says not to. However, with explicit parent, Emacs
3348 cannot control visibility, so don't try. */
3349 if (! f
->output_data
.x
->explicit_parent
)
3351 Lisp_Object visibility
;
3353 visibility
= x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0,
3355 if (EQ (visibility
, Qunbound
))
3358 if (EQ (visibility
, Qicon
))
3359 x_iconify_frame (f
);
3360 else if (! NILP (visibility
))
3361 x_make_frame_visible (f
);
3363 /* Must have been Qnil. */
3367 /* Set the WM leader property. GTK does this itself, so this is not
3368 needed when using GTK. */
3369 if (dpyinfo
->client_leader_window
!= 0)
3372 XChangeProperty (FRAME_X_DISPLAY (f
),
3373 FRAME_OUTER_WINDOW (f
),
3374 dpyinfo
->Xatom_wm_client_leader
,
3375 XA_WINDOW
, 32, PropModeReplace
,
3376 (unsigned char *) &dpyinfo
->client_leader_window
, 1);
3380 /* Initialize `default-minibuffer-frame' in case this is the first
3381 frame on this display device. */
3382 if (FRAME_HAS_MINIBUF_P (f
)
3383 && (!FRAMEP (kb
->Vdefault_minibuffer_frame
)
3384 || !FRAME_LIVE_P (XFRAME (kb
->Vdefault_minibuffer_frame
))))
3385 kb
->Vdefault_minibuffer_frame
= frame
;
3389 /* Make sure windows on this frame appear in calls to next-window
3390 and similar functions. */
3391 Vwindow_list
= Qnil
;
3393 return unbind_to (count
, frame
);
3397 /* FRAME is used only to get a handle on the X display. We don't pass the
3398 display info directly because we're called from frame.c, which doesn't
3399 know about that structure. */
3402 x_get_focus_frame (frame
)
3403 struct frame
*frame
;
3405 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (frame
);
3407 if (! dpyinfo
->x_focus_frame
)
3410 XSETFRAME (xfocus
, dpyinfo
->x_focus_frame
);
3415 /* In certain situations, when the window manager follows a
3416 click-to-focus policy, there seems to be no way around calling
3417 XSetInputFocus to give another frame the input focus .
3419 In an ideal world, XSetInputFocus should generally be avoided so
3420 that applications don't interfere with the window manager's focus
3421 policy. But I think it's okay to use when it's clearly done
3422 following a user-command. */
3424 DEFUN ("x-focus-frame", Fx_focus_frame
, Sx_focus_frame
, 1, 1, 0,
3425 doc
: /* Set the input focus to FRAME.
3426 FRAME nil means use the selected frame. */)
3430 struct frame
*f
= check_x_frame (frame
);
3431 Display
*dpy
= FRAME_X_DISPLAY (f
);
3435 count
= x_catch_errors (dpy
);
3436 XSetInputFocus (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
3437 RevertToParent
, CurrentTime
);
3438 x_uncatch_errors (dpy
, count
);
3445 DEFUN ("xw-color-defined-p", Fxw_color_defined_p
, Sxw_color_defined_p
, 1, 2, 0,
3446 doc
: /* Internal function called by `color-defined-p', which see. */)
3448 Lisp_Object color
, frame
;
3451 FRAME_PTR f
= check_x_frame (frame
);
3453 CHECK_STRING (color
);
3455 if (x_defined_color (f
, SDATA (color
), &foo
, 0))
3461 DEFUN ("xw-color-values", Fxw_color_values
, Sxw_color_values
, 1, 2, 0,
3462 doc
: /* Internal function called by `color-values', which see. */)
3464 Lisp_Object color
, frame
;
3467 FRAME_PTR f
= check_x_frame (frame
);
3469 CHECK_STRING (color
);
3471 if (x_defined_color (f
, SDATA (color
), &foo
, 0))
3475 rgb
[0] = make_number (foo
.red
);
3476 rgb
[1] = make_number (foo
.green
);
3477 rgb
[2] = make_number (foo
.blue
);
3478 return Flist (3, rgb
);
3484 DEFUN ("xw-display-color-p", Fxw_display_color_p
, Sxw_display_color_p
, 0, 1, 0,
3485 doc
: /* Internal function called by `display-color-p', which see. */)
3487 Lisp_Object display
;
3489 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3491 if (dpyinfo
->n_planes
<= 2)
3494 switch (dpyinfo
->visual
->class)
3507 DEFUN ("x-display-grayscale-p", Fx_display_grayscale_p
, Sx_display_grayscale_p
,
3509 doc
: /* Return t if the X display supports shades of gray.
3510 Note that color displays do support shades of gray.
3511 The optional argument DISPLAY specifies which display to ask about.
3512 DISPLAY should be either a frame or a display name (a string).
3513 If omitted or nil, that stands for the selected frame's display. */)
3515 Lisp_Object display
;
3517 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3519 if (dpyinfo
->n_planes
<= 1)
3522 switch (dpyinfo
->visual
->class)
3537 DEFUN ("x-display-pixel-width", Fx_display_pixel_width
, Sx_display_pixel_width
,
3539 doc
: /* Returns the width in pixels of the X display DISPLAY.
3540 The optional argument DISPLAY specifies which display to ask about.
3541 DISPLAY should be either a frame or a display name (a string).
3542 If omitted or nil, that stands for the selected frame's display. */)
3544 Lisp_Object display
;
3546 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3548 return make_number (dpyinfo
->width
);
3551 DEFUN ("x-display-pixel-height", Fx_display_pixel_height
,
3552 Sx_display_pixel_height
, 0, 1, 0,
3553 doc
: /* Returns the height in pixels of the X display DISPLAY.
3554 The optional argument DISPLAY specifies which display to ask about.
3555 DISPLAY should be either a frame or a display name (a string).
3556 If omitted or nil, that stands for the selected frame's display. */)
3558 Lisp_Object display
;
3560 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3562 return make_number (dpyinfo
->height
);
3565 DEFUN ("x-display-planes", Fx_display_planes
, Sx_display_planes
,
3567 doc
: /* Returns the number of bitplanes of the X display DISPLAY.
3568 The optional argument DISPLAY specifies which display to ask about.
3569 DISPLAY should be either a frame or a display name (a string).
3570 If omitted or nil, that stands for the selected frame's display. */)
3572 Lisp_Object display
;
3574 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3576 return make_number (dpyinfo
->n_planes
);
3579 DEFUN ("x-display-color-cells", Fx_display_color_cells
, Sx_display_color_cells
,
3581 doc
: /* Returns the number of color cells of the X display DISPLAY.
3582 The optional argument DISPLAY specifies which display to ask about.
3583 DISPLAY should be either a frame or a display name (a string).
3584 If omitted or nil, that stands for the selected frame's display. */)
3586 Lisp_Object display
;
3588 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3590 int nr_planes
= DisplayPlanes (dpyinfo
->display
,
3591 XScreenNumberOfScreen (dpyinfo
->screen
));
3593 /* Truncate nr_planes to 24 to avoid integer overflow.
3594 Some displays says 32, but only 24 bits are actually significant.
3595 There are only very few and rare video cards that have more than
3596 24 significant bits. Also 24 bits is more than 16 million colors,
3597 it "should be enough for everyone". */
3598 if (nr_planes
> 24) nr_planes
= 24;
3600 return make_number (1 << nr_planes
);
3603 DEFUN ("x-server-max-request-size", Fx_server_max_request_size
,
3604 Sx_server_max_request_size
,
3606 doc
: /* Returns the maximum request size of the X server of display DISPLAY.
3607 The optional argument DISPLAY specifies which display to ask about.
3608 DISPLAY should be either a frame or a display name (a string).
3609 If omitted or nil, that stands for the selected frame's display. */)
3611 Lisp_Object display
;
3613 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3615 return make_number (MAXREQUEST (dpyinfo
->display
));
3618 DEFUN ("x-server-vendor", Fx_server_vendor
, Sx_server_vendor
, 0, 1, 0,
3619 doc
: /* Returns the "vendor ID" string of the X server of display DISPLAY.
3620 \(Labelling every distributor as a "vendor" embodies the false assumption
3621 that operating systems cannot be developed and distributed noncommercially.)
3622 The optional argument DISPLAY specifies which display to ask about.
3623 DISPLAY should be either a frame or a display name (a string).
3624 If omitted or nil, that stands for the selected frame's display. */)
3626 Lisp_Object display
;
3628 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3629 char *vendor
= ServerVendor (dpyinfo
->display
);
3631 if (! vendor
) vendor
= "";
3632 return build_string (vendor
);
3635 DEFUN ("x-server-version", Fx_server_version
, Sx_server_version
, 0, 1, 0,
3636 doc
: /* Returns the version numbers of the X server of display DISPLAY.
3637 The value is a list of three integers: the major and minor
3638 version numbers of the X Protocol in use, and the distributor-specific release
3639 number. See also the function `x-server-vendor'.
3641 The optional argument DISPLAY specifies which display to ask about.
3642 DISPLAY should be either a frame or a display name (a string).
3643 If omitted or nil, that stands for the selected frame's display. */)
3645 Lisp_Object display
;
3647 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3648 Display
*dpy
= dpyinfo
->display
;
3650 return Fcons (make_number (ProtocolVersion (dpy
)),
3651 Fcons (make_number (ProtocolRevision (dpy
)),
3652 Fcons (make_number (VendorRelease (dpy
)), Qnil
)));
3655 DEFUN ("x-display-screens", Fx_display_screens
, Sx_display_screens
, 0, 1, 0,
3656 doc
: /* Return the number of screens on the X server of display DISPLAY.
3657 The optional argument DISPLAY specifies which display to ask about.
3658 DISPLAY should be either a frame or a display name (a string).
3659 If omitted or nil, that stands for the selected frame's display. */)
3661 Lisp_Object display
;
3663 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3665 return make_number (ScreenCount (dpyinfo
->display
));
3668 DEFUN ("x-display-mm-height", Fx_display_mm_height
, Sx_display_mm_height
, 0, 1, 0,
3669 doc
: /* Return the height in millimeters of the X display DISPLAY.
3670 The optional argument DISPLAY specifies which display to ask about.
3671 DISPLAY should be either a frame or a display name (a string).
3672 If omitted or nil, that stands for the selected frame's display. */)
3674 Lisp_Object display
;
3676 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3678 return make_number (HeightMMOfScreen (dpyinfo
->screen
));
3681 DEFUN ("x-display-mm-width", Fx_display_mm_width
, Sx_display_mm_width
, 0, 1, 0,
3682 doc
: /* Return the width in millimeters of the X display DISPLAY.
3683 The optional argument DISPLAY specifies which display to ask about.
3684 DISPLAY should be either a frame or a display name (a string).
3685 If omitted or nil, that stands for the selected frame's display. */)
3687 Lisp_Object display
;
3689 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3691 return make_number (WidthMMOfScreen (dpyinfo
->screen
));
3694 DEFUN ("x-display-backing-store", Fx_display_backing_store
,
3695 Sx_display_backing_store
, 0, 1, 0,
3696 doc
: /* Returns an indication of whether X display DISPLAY does backing store.
3697 The value may be `always', `when-mapped', or `not-useful'.
3698 The optional argument DISPLAY specifies which display to ask about.
3699 DISPLAY should be either a frame or a display name (a string).
3700 If omitted or nil, that stands for the selected frame's display. */)
3702 Lisp_Object display
;
3704 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3707 switch (DoesBackingStore (dpyinfo
->screen
))
3710 result
= intern ("always");
3714 result
= intern ("when-mapped");
3718 result
= intern ("not-useful");
3722 error ("Strange value for BackingStore parameter of screen");
3729 DEFUN ("x-display-visual-class", Fx_display_visual_class
,
3730 Sx_display_visual_class
, 0, 1, 0,
3731 doc
: /* Return the visual class of the X display DISPLAY.
3732 The value is one of the symbols `static-gray', `gray-scale',
3733 `static-color', `pseudo-color', `true-color', or `direct-color'.
3735 The optional argument DISPLAY specifies which display to ask about.
3736 DISPLAY should be either a frame or a display name (a string).
3737 If omitted or nil, that stands for the selected frame's display. */)
3739 Lisp_Object display
;
3741 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3744 switch (dpyinfo
->visual
->class)
3747 result
= intern ("static-gray");
3750 result
= intern ("gray-scale");
3753 result
= intern ("static-color");
3756 result
= intern ("pseudo-color");
3759 result
= intern ("true-color");
3762 result
= intern ("direct-color");
3765 error ("Display has an unknown visual class");
3772 DEFUN ("x-display-save-under", Fx_display_save_under
,
3773 Sx_display_save_under
, 0, 1, 0,
3774 doc
: /* Returns t if the X display DISPLAY supports the save-under feature.
3775 The optional argument DISPLAY specifies which display to ask about.
3776 DISPLAY should be either a frame or a display name (a string).
3777 If omitted or nil, that stands for the selected frame's display. */)
3779 Lisp_Object display
;
3781 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3783 if (DoesSaveUnders (dpyinfo
->screen
) == True
)
3791 register struct frame
*f
;
3793 return FRAME_PIXEL_WIDTH (f
);
3798 register struct frame
*f
;
3800 return FRAME_PIXEL_HEIGHT (f
);
3805 register struct frame
*f
;
3807 return FRAME_COLUMN_WIDTH (f
);
3812 register struct frame
*f
;
3814 return FRAME_LINE_HEIGHT (f
);
3819 register struct frame
*f
;
3821 return FRAME_X_DISPLAY_INFO (f
)->n_planes
;
3826 /************************************************************************
3828 ************************************************************************/
3831 /* Mapping visual names to visuals. */
3833 static struct visual_class
3840 {"StaticGray", StaticGray
},
3841 {"GrayScale", GrayScale
},
3842 {"StaticColor", StaticColor
},
3843 {"PseudoColor", PseudoColor
},
3844 {"TrueColor", TrueColor
},
3845 {"DirectColor", DirectColor
},
3850 #ifndef HAVE_XSCREENNUMBEROFSCREEN
3852 /* Value is the screen number of screen SCR. This is a substitute for
3853 the X function with the same name when that doesn't exist. */
3856 XScreenNumberOfScreen (scr
)
3857 register Screen
*scr
;
3859 Display
*dpy
= scr
->display
;
3862 for (i
= 0; i
< dpy
->nscreens
; ++i
)
3863 if (scr
== dpy
->screens
+ i
)
3869 #endif /* not HAVE_XSCREENNUMBEROFSCREEN */
3872 /* Select the visual that should be used on display DPYINFO. Set
3873 members of DPYINFO appropriately. Called from x_term_init. */
3876 select_visual (dpyinfo
)
3877 struct x_display_info
*dpyinfo
;
3879 Display
*dpy
= dpyinfo
->display
;
3880 Screen
*screen
= dpyinfo
->screen
;
3883 /* See if a visual is specified. */
3884 value
= display_x_get_resource (dpyinfo
,
3885 build_string ("visualClass"),
3886 build_string ("VisualClass"),
3888 if (STRINGP (value
))
3890 /* VALUE should be of the form CLASS-DEPTH, where CLASS is one
3891 of `PseudoColor', `TrueColor' etc. and DEPTH is the color
3892 depth, a decimal number. NAME is compared with case ignored. */
3893 char *s
= (char *) alloca (SBYTES (value
) + 1);
3898 strcpy (s
, SDATA (value
));
3899 dash
= index (s
, '-');
3902 dpyinfo
->n_planes
= atoi (dash
+ 1);
3906 /* We won't find a matching visual with depth 0, so that
3907 an error will be printed below. */
3908 dpyinfo
->n_planes
= 0;
3910 /* Determine the visual class. */
3911 for (i
= 0; visual_classes
[i
].name
; ++i
)
3912 if (xstricmp (s
, visual_classes
[i
].name
) == 0)
3914 class = visual_classes
[i
].class;
3918 /* Look up a matching visual for the specified class. */
3920 || !XMatchVisualInfo (dpy
, XScreenNumberOfScreen (screen
),
3921 dpyinfo
->n_planes
, class, &vinfo
))
3922 fatal ("Invalid visual specification `%s'", SDATA (value
));
3924 dpyinfo
->visual
= vinfo
.visual
;
3929 XVisualInfo
*vinfo
, vinfo_template
;
3931 dpyinfo
->visual
= DefaultVisualOfScreen (screen
);
3934 vinfo_template
.visualid
= XVisualIDFromVisual (dpyinfo
->visual
);
3936 vinfo_template
.visualid
= dpyinfo
->visual
->visualid
;
3938 vinfo_template
.screen
= XScreenNumberOfScreen (screen
);
3939 vinfo
= XGetVisualInfo (dpy
, VisualIDMask
| VisualScreenMask
,
3940 &vinfo_template
, &n_visuals
);
3942 fatal ("Can't get proper X visual info");
3944 dpyinfo
->n_planes
= vinfo
->depth
;
3945 XFree ((char *) vinfo
);
3950 /* Return the X display structure for the display named NAME.
3951 Open a new connection if necessary. */
3953 struct x_display_info
*
3954 x_display_info_for_name (name
)
3958 struct x_display_info
*dpyinfo
;
3960 CHECK_STRING (name
);
3962 if (! EQ (Vwindow_system
, intern ("x")))
3963 error ("Not using X Windows");
3965 for (dpyinfo
= x_display_list
, names
= x_display_name_list
;
3967 dpyinfo
= dpyinfo
->next
, names
= XCDR (names
))
3970 tem
= Fstring_equal (XCAR (XCAR (names
)), name
);
3975 /* Use this general default value to start with. */
3976 Vx_resource_name
= Vinvocation_name
;
3978 validate_x_resource_name ();
3980 dpyinfo
= x_term_init (name
, (char *)0,
3981 (char *) SDATA (Vx_resource_name
));
3984 error ("Cannot connect to X server %s", SDATA (name
));
3987 XSETFASTINT (Vwindow_system_version
, 11);
3993 DEFUN ("x-open-connection", Fx_open_connection
, Sx_open_connection
,
3995 doc
: /* Open a connection to an X server.
3996 DISPLAY is the name of the display to connect to.
3997 Optional second arg XRM-STRING is a string of resources in xrdb format.
3998 If the optional third arg MUST-SUCCEED is non-nil,
3999 terminate Emacs if we can't open the connection. */)
4000 (display
, xrm_string
, must_succeed
)
4001 Lisp_Object display
, xrm_string
, must_succeed
;
4003 unsigned char *xrm_option
;
4004 struct x_display_info
*dpyinfo
;
4006 CHECK_STRING (display
);
4007 if (! NILP (xrm_string
))
4008 CHECK_STRING (xrm_string
);
4010 if (! EQ (Vwindow_system
, intern ("x")))
4011 error ("Not using X Windows");
4013 if (! NILP (xrm_string
))
4014 xrm_option
= (unsigned char *) SDATA (xrm_string
);
4016 xrm_option
= (unsigned char *) 0;
4018 validate_x_resource_name ();
4020 /* This is what opens the connection and sets x_current_display.
4021 This also initializes many symbols, such as those used for input. */
4022 dpyinfo
= x_term_init (display
, xrm_option
,
4023 (char *) SDATA (Vx_resource_name
));
4027 if (!NILP (must_succeed
))
4028 fatal ("Cannot connect to X server %s.\n\
4029 Check the DISPLAY environment variable or use `-d'.\n\
4030 Also use the `xauth' program to verify that you have the proper\n\
4031 authorization information needed to connect the X server.\n\
4032 An insecure way to solve the problem may be to use `xhost'.\n",
4035 error ("Cannot connect to X server %s", SDATA (display
));
4040 XSETFASTINT (Vwindow_system_version
, 11);
4044 DEFUN ("x-close-connection", Fx_close_connection
,
4045 Sx_close_connection
, 1, 1, 0,
4046 doc
: /* Close the connection to DISPLAY's X server.
4047 For DISPLAY, specify either a frame or a display name (a string).
4048 If DISPLAY is nil, that stands for the selected frame's display. */)
4050 Lisp_Object display
;
4052 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
4055 if (dpyinfo
->reference_count
> 0)
4056 error ("Display still has frames on it");
4059 /* Free the fonts in the font table. */
4060 for (i
= 0; i
< dpyinfo
->n_fonts
; i
++)
4061 if (dpyinfo
->font_table
[i
].name
)
4063 XFreeFont (dpyinfo
->display
, dpyinfo
->font_table
[i
].font
);
4066 x_destroy_all_bitmaps (dpyinfo
);
4067 XSetCloseDownMode (dpyinfo
->display
, DestroyAll
);
4069 #ifdef USE_X_TOOLKIT
4070 XtCloseDisplay (dpyinfo
->display
);
4072 XCloseDisplay (dpyinfo
->display
);
4075 x_delete_display (dpyinfo
);
4081 DEFUN ("x-display-list", Fx_display_list
, Sx_display_list
, 0, 0, 0,
4082 doc
: /* Return the list of display names that Emacs has connections to. */)
4085 Lisp_Object tail
, result
;
4088 for (tail
= x_display_name_list
; ! NILP (tail
); tail
= XCDR (tail
))
4089 result
= Fcons (XCAR (XCAR (tail
)), result
);
4094 DEFUN ("x-synchronize", Fx_synchronize
, Sx_synchronize
, 1, 2, 0,
4095 doc
: /* If ON is non-nil, report X errors as soon as the erring request is made.
4096 If ON is nil, allow buffering of requests.
4097 Turning on synchronization prohibits the Xlib routines from buffering
4098 requests and seriously degrades performance, but makes debugging much
4100 The optional second argument DISPLAY specifies which display to act on.
4101 DISPLAY should be either a frame or a display name (a string).
4102 If DISPLAY is omitted or nil, that stands for the selected frame's display. */)
4104 Lisp_Object display
, on
;
4106 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
4108 XSynchronize (dpyinfo
->display
, !EQ (on
, Qnil
));
4113 /* Wait for responses to all X commands issued so far for frame F. */
4120 XSync (FRAME_X_DISPLAY (f
), False
);
4125 /***********************************************************************
4127 ***********************************************************************/
4129 DEFUN ("x-change-window-property", Fx_change_window_property
,
4130 Sx_change_window_property
, 2, 6, 0,
4131 doc
: /* Change window property PROP to VALUE on the X window of FRAME.
4132 PROP must be a string.
4133 VALUE may be a string or a list of conses, numbers and/or strings.
4134 If an element in the list is a string, it is converted to
4135 an Atom and the value of the Atom is used. If an element is a cons,
4136 it is converted to a 32 bit number where the car is the 16 top bits and the
4137 cdr is the lower 16 bits.
4138 FRAME nil or omitted means use the selected frame.
4139 If TYPE is given and non-nil, it is the name of the type of VALUE.
4140 If TYPE is not given or nil, the type is STRING.
4141 FORMAT gives the size in bits of each element if VALUE is a list.
4142 It must be one of 8, 16 or 32.
4143 If VALUE is a string or FORMAT is nil or not given, FORMAT defaults to 8.
4144 If OUTER_P is non-nil, the property is changed for the outer X window of
4145 FRAME. Default is to change on the edit X window.
4148 (prop
, value
, frame
, type
, format
, outer_p
)
4149 Lisp_Object prop
, value
, frame
, type
, format
, outer_p
;
4151 struct frame
*f
= check_x_frame (frame
);
4153 Atom target_type
= XA_STRING
;
4154 int element_format
= 8;
4155 unsigned char *data
;
4159 CHECK_STRING (prop
);
4161 if (! NILP (format
))
4163 CHECK_NUMBER (format
);
4164 element_format
= XFASTINT (format
);
4166 if (element_format
!= 8 && element_format
!= 16
4167 && element_format
!= 32)
4168 error ("FORMAT must be one of 8, 16 or 32");
4173 nelements
= x_check_property_data (value
);
4174 if (nelements
== -1)
4175 error ("Bad data in VALUE, must be number, string or cons");
4177 if (element_format
== 8)
4178 data
= (unsigned char *) xmalloc (nelements
);
4179 else if (element_format
== 16)
4180 data
= (unsigned char *) xmalloc (nelements
*2);
4181 else /* format == 32 */
4182 /* The man page for XChangeProperty:
4183 "If the specified format is 32, the property data must be a
4185 This applies even if long is more than 64 bits. The X library
4186 converts to 32 bits before sending to the X server. */
4187 data
= (unsigned char *) xmalloc (nelements
* sizeof(long));
4189 x_fill_property_data (FRAME_X_DISPLAY (f
), value
, data
, element_format
);
4193 CHECK_STRING (value
);
4194 data
= SDATA (value
);
4195 nelements
= SCHARS (value
);
4199 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4202 CHECK_STRING (type
);
4203 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (type
), False
);
4206 if (! NILP (outer_p
)) w
= FRAME_OUTER_WINDOW (f
);
4207 else w
= FRAME_X_WINDOW (f
);
4209 XChangeProperty (FRAME_X_DISPLAY (f
), w
,
4210 prop_atom
, target_type
, element_format
, PropModeReplace
,
4213 if (CONSP (value
)) xfree (data
);
4215 /* Make sure the property is set when we return. */
4216 XFlush (FRAME_X_DISPLAY (f
));
4223 DEFUN ("x-delete-window-property", Fx_delete_window_property
,
4224 Sx_delete_window_property
, 1, 2, 0,
4225 doc
: /* Remove window property PROP from X window of FRAME.
4226 FRAME nil or omitted means use the selected frame. Value is PROP. */)
4228 Lisp_Object prop
, frame
;
4230 struct frame
*f
= check_x_frame (frame
);
4233 CHECK_STRING (prop
);
4235 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4236 XDeleteProperty (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), prop_atom
);
4238 /* Make sure the property is removed when we return. */
4239 XFlush (FRAME_X_DISPLAY (f
));
4246 DEFUN ("x-window-property", Fx_window_property
, Sx_window_property
,
4248 doc
: /* Value is the value of window property PROP on FRAME.
4249 If FRAME is nil or omitted, use the selected frame.
4250 If TYPE is nil or omitted, get the property as a string. Otherwise TYPE
4251 is the name of the Atom that denotes the type expected.
4252 If SOURCE is non-nil, get the property on that window instead of from
4253 FRAME. The number 0 denotes the root window.
4254 If DELETE_P is non-nil, delete the property after retreiving it.
4255 If VECTOR_RET_P is non-nil, don't return a string but a vector of values.
4257 Value is nil if FRAME hasn't a property with name PROP or if PROP has
4258 no value of TYPE. */)
4259 (prop
, frame
, type
, source
, delete_p
, vector_ret_p
)
4260 Lisp_Object prop
, frame
, type
, source
, delete_p
, vector_ret_p
;
4262 struct frame
*f
= check_x_frame (frame
);
4265 Lisp_Object prop_value
= Qnil
;
4266 unsigned char *tmp_data
= NULL
;
4268 Atom target_type
= XA_STRING
;
4270 unsigned long actual_size
, bytes_remaining
;
4271 Window target_window
= FRAME_X_WINDOW (f
);
4272 struct gcpro gcpro1
;
4274 GCPRO1 (prop_value
);
4275 CHECK_STRING (prop
);
4277 if (! NILP (source
))
4279 if (NUMBERP (source
))
4281 if (FLOATP (source
))
4282 target_window
= (Window
) XFLOAT (source
);
4284 target_window
= XFASTINT (source
);
4286 if (target_window
== 0)
4287 target_window
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4289 else if (CONSP (source
))
4290 target_window
= cons_to_long (source
);
4296 if (strcmp ("AnyPropertyType", SDATA (type
)) == 0)
4297 target_type
= AnyPropertyType
;
4299 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (type
), False
);
4302 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4303 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4304 prop_atom
, 0, 0, False
, target_type
,
4305 &actual_type
, &actual_format
, &actual_size
,
4306 &bytes_remaining
, &tmp_data
);
4309 int size
= bytes_remaining
;
4314 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4315 prop_atom
, 0, bytes_remaining
,
4316 ! NILP (delete_p
), target_type
,
4317 &actual_type
, &actual_format
,
4318 &actual_size
, &bytes_remaining
,
4320 if (rc
== Success
&& tmp_data
)
4322 /* The man page for XGetWindowProperty says:
4323 "If the returned format is 32, the returned data is represented
4324 as a long array and should be cast to that type to obtain the
4326 This applies even if long is more than 32 bits, the X library
4327 converts from 32 bit elements received from the X server to long
4328 and passes the long array to us. Thus, for that case bcopy can not
4329 be used. We convert to a 32 bit type here, because so much code
4332 The bytes and offsets passed to XGetWindowProperty refers to the
4333 property and those are indeed in 32 bit quantities if format is
4336 if (actual_format
== 32 && actual_format
< BITS_PER_LONG
)
4339 int *idata
= (int *) tmp_data
;
4340 long *ldata
= (long *) tmp_data
;
4342 for (i
= 0; i
< actual_size
; ++i
)
4343 idata
[i
] = (int) ldata
[i
];
4346 if (NILP (vector_ret_p
))
4347 prop_value
= make_string (tmp_data
, size
);
4349 prop_value
= x_property_data_to_lisp (f
,
4356 if (tmp_data
) XFree (tmp_data
);
4366 /***********************************************************************
4368 ***********************************************************************/
4370 /* If non-null, an asynchronous timer that, when it expires, displays
4371 an hourglass cursor on all frames. */
4373 static struct atimer
*hourglass_atimer
;
4375 /* Non-zero means an hourglass cursor is currently shown. */
4377 static int hourglass_shown_p
;
4379 /* Number of seconds to wait before displaying an hourglass cursor. */
4381 static Lisp_Object Vhourglass_delay
;
4383 /* Default number of seconds to wait before displaying an hourglass
4386 #define DEFAULT_HOURGLASS_DELAY 1
4388 /* Function prototypes. */
4390 static void show_hourglass
P_ ((struct atimer
*));
4391 static void hide_hourglass
P_ ((void));
4393 /* Return non-zero if houglass timer has been started or hourglass is shown. */
4396 hourglass_started ()
4398 return hourglass_shown_p
|| hourglass_atimer
!= NULL
;
4402 /* Cancel a currently active hourglass timer, and start a new one. */
4408 int secs
, usecs
= 0;
4410 /* Don't bother for ttys. */
4411 if (NILP (Vwindow_system
))
4414 cancel_hourglass ();
4416 if (INTEGERP (Vhourglass_delay
)
4417 && XINT (Vhourglass_delay
) > 0)
4418 secs
= XFASTINT (Vhourglass_delay
);
4419 else if (FLOATP (Vhourglass_delay
)
4420 && XFLOAT_DATA (Vhourglass_delay
) > 0)
4423 tem
= Ftruncate (Vhourglass_delay
, Qnil
);
4424 secs
= XFASTINT (tem
);
4425 usecs
= (XFLOAT_DATA (Vhourglass_delay
) - secs
) * 1000000;
4428 secs
= DEFAULT_HOURGLASS_DELAY
;
4430 EMACS_SET_SECS_USECS (delay
, secs
, usecs
);
4431 hourglass_atimer
= start_atimer (ATIMER_RELATIVE
, delay
,
4432 show_hourglass
, NULL
);
4436 /* Cancel the hourglass cursor timer if active, hide a busy cursor if
4442 if (hourglass_atimer
)
4444 cancel_atimer (hourglass_atimer
);
4445 hourglass_atimer
= NULL
;
4448 if (hourglass_shown_p
)
4453 /* Timer function of hourglass_atimer. TIMER is equal to
4456 Display an hourglass pointer on all frames by mapping the frames'
4457 hourglass_window. Set the hourglass_p flag in the frames'
4458 output_data.x structure to indicate that an hourglass cursor is
4459 shown on the frames. */
4462 show_hourglass (timer
)
4463 struct atimer
*timer
;
4465 /* The timer implementation will cancel this timer automatically
4466 after this function has run. Set hourglass_atimer to null
4467 so that we know the timer doesn't have to be canceled. */
4468 hourglass_atimer
= NULL
;
4470 if (!hourglass_shown_p
)
4472 Lisp_Object rest
, frame
;
4476 FOR_EACH_FRAME (rest
, frame
)
4478 struct frame
*f
= XFRAME (frame
);
4480 if (FRAME_LIVE_P (f
) && FRAME_X_P (f
) && FRAME_X_DISPLAY (f
))
4482 Display
*dpy
= FRAME_X_DISPLAY (f
);
4484 #ifdef USE_X_TOOLKIT
4485 if (f
->output_data
.x
->widget
)
4487 if (FRAME_OUTER_WINDOW (f
))
4490 f
->output_data
.x
->hourglass_p
= 1;
4492 if (!f
->output_data
.x
->hourglass_window
)
4494 unsigned long mask
= CWCursor
;
4495 XSetWindowAttributes attrs
;
4497 Window parent
= FRAME_X_WINDOW (f
);
4499 Window parent
= FRAME_OUTER_WINDOW (f
);
4501 attrs
.cursor
= f
->output_data
.x
->hourglass_cursor
;
4503 f
->output_data
.x
->hourglass_window
4504 = XCreateWindow (dpy
, parent
,
4505 0, 0, 32000, 32000, 0, 0,
4511 XMapRaised (dpy
, f
->output_data
.x
->hourglass_window
);
4517 hourglass_shown_p
= 1;
4523 /* Hide the hourglass pointer on all frames, if it is currently
4529 if (hourglass_shown_p
)
4531 Lisp_Object rest
, frame
;
4534 FOR_EACH_FRAME (rest
, frame
)
4536 struct frame
*f
= XFRAME (frame
);
4539 /* Watch out for newly created frames. */
4540 && f
->output_data
.x
->hourglass_window
)
4542 XUnmapWindow (FRAME_X_DISPLAY (f
),
4543 f
->output_data
.x
->hourglass_window
);
4544 /* Sync here because XTread_socket looks at the
4545 hourglass_p flag that is reset to zero below. */
4546 XSync (FRAME_X_DISPLAY (f
), False
);
4547 f
->output_data
.x
->hourglass_p
= 0;
4551 hourglass_shown_p
= 0;
4558 /***********************************************************************
4560 ***********************************************************************/
4562 static Lisp_Object x_create_tip_frame
P_ ((struct x_display_info
*,
4563 Lisp_Object
, Lisp_Object
));
4564 static void compute_tip_xy
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
,
4565 Lisp_Object
, int, int, int *, int *));
4567 /* The frame of a currently visible tooltip. */
4569 Lisp_Object tip_frame
;
4571 /* If non-nil, a timer started that hides the last tooltip when it
4574 Lisp_Object tip_timer
;
4577 /* If non-nil, a vector of 3 elements containing the last args
4578 with which x-show-tip was called. See there. */
4580 Lisp_Object last_show_tip_args
;
4582 /* Maximum size for tooltips; a cons (COLUMNS . ROWS). */
4584 Lisp_Object Vx_max_tooltip_size
;
4588 unwind_create_tip_frame (frame
)
4591 Lisp_Object deleted
;
4593 deleted
= unwind_create_frame (frame
);
4594 if (EQ (deleted
, Qt
))
4604 /* Create a frame for a tooltip on the display described by DPYINFO.
4605 PARMS is a list of frame parameters. TEXT is the string to
4606 display in the tip frame. Value is the frame.
4608 Note that functions called here, esp. x_default_parameter can
4609 signal errors, for instance when a specified color name is
4610 undefined. We have to make sure that we're in a consistent state
4611 when this happens. */
4614 x_create_tip_frame (dpyinfo
, parms
, text
)
4615 struct x_display_info
*dpyinfo
;
4616 Lisp_Object parms
, text
;
4619 Lisp_Object frame
, tem
;
4621 long window_prompting
= 0;
4623 int count
= SPECPDL_INDEX ();
4624 struct gcpro gcpro1
, gcpro2
, gcpro3
;
4626 int face_change_count_before
= face_change_count
;
4628 struct buffer
*old_buffer
;
4634 kb
= dpyinfo
->kboard
;
4636 kb
= &the_only_kboard
;
4639 /* Get the name of the frame to use for resource lookup. */
4640 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
4642 && !EQ (name
, Qunbound
)
4644 error ("Invalid frame name--not a string or nil");
4647 GCPRO3 (parms
, name
, frame
);
4649 XSETFRAME (frame
, f
);
4651 buffer
= Fget_buffer_create (build_string (" *tip*"));
4652 Fset_window_buffer (FRAME_ROOT_WINDOW (f
), buffer
, Qnil
);
4653 old_buffer
= current_buffer
;
4654 set_buffer_internal_1 (XBUFFER (buffer
));
4655 current_buffer
->truncate_lines
= Qnil
;
4656 specbind (Qinhibit_read_only
, Qt
);
4657 specbind (Qinhibit_modification_hooks
, Qt
);
4660 set_buffer_internal_1 (old_buffer
);
4662 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 0;
4663 record_unwind_protect (unwind_create_tip_frame
, frame
);
4665 /* By setting the output method, we're essentially saying that
4666 the frame is live, as per FRAME_LIVE_P. If we get a signal
4667 from this point on, x_destroy_window might screw up reference
4669 f
->output_method
= output_x_window
;
4670 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
4671 bzero (f
->output_data
.x
, sizeof (struct x_output
));
4672 f
->output_data
.x
->icon_bitmap
= -1;
4673 FRAME_FONTSET (f
) = -1;
4674 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
4675 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
4676 #ifdef USE_TOOLKIT_SCROLL_BARS
4677 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
4678 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
4679 #endif /* USE_TOOLKIT_SCROLL_BARS */
4680 f
->icon_name
= Qnil
;
4681 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
4683 image_cache_refcount
= FRAME_X_IMAGE_CACHE (f
)->refcount
;
4684 dpyinfo_refcount
= dpyinfo
->reference_count
;
4685 #endif /* GLYPH_DEBUG */
4687 FRAME_KBOARD (f
) = kb
;
4689 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4690 f
->output_data
.x
->explicit_parent
= 0;
4692 /* These colors will be set anyway later, but it's important
4693 to get the color reference counts right, so initialize them! */
4696 struct gcpro gcpro1
;
4698 black
= build_string ("black");
4700 f
->output_data
.x
->foreground_pixel
4701 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4702 f
->output_data
.x
->background_pixel
4703 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4704 f
->output_data
.x
->cursor_pixel
4705 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4706 f
->output_data
.x
->cursor_foreground_pixel
4707 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4708 f
->output_data
.x
->border_pixel
4709 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4710 f
->output_data
.x
->mouse_pixel
4711 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4715 /* Set the name; the functions to which we pass f expect the name to
4717 if (EQ (name
, Qunbound
) || NILP (name
))
4719 f
->name
= build_string (dpyinfo
->x_id_name
);
4720 f
->explicit_name
= 0;
4725 f
->explicit_name
= 1;
4726 /* use the frame's title when getting resources for this frame. */
4727 specbind (Qx_resource_name
, name
);
4730 /* Extract the window parameters from the supplied values that are
4731 needed to determine window geometry. */
4735 font
= x_get_arg (dpyinfo
, parms
, Qfont
, "font", "Font", RES_TYPE_STRING
);
4738 /* First, try whatever font the caller has specified. */
4741 tem
= Fquery_fontset (font
, Qnil
);
4743 font
= x_new_fontset (f
, SDATA (tem
));
4745 font
= x_new_font (f
, SDATA (font
));
4748 /* Try out a font which we hope has bold and italic variations. */
4749 if (!STRINGP (font
))
4750 font
= x_new_font (f
, "-adobe-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-1");
4751 if (!STRINGP (font
))
4752 font
= x_new_font (f
, "-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-1");
4753 if (! STRINGP (font
))
4754 font
= x_new_font (f
, "-*-*-medium-r-normal-*-*-140-*-*-c-*-iso8859-1");
4755 if (! STRINGP (font
))
4756 /* This was formerly the first thing tried, but it finds too many fonts
4757 and takes too long. */
4758 font
= x_new_font (f
, "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1");
4759 /* If those didn't work, look for something which will at least work. */
4760 if (! STRINGP (font
))
4761 font
= x_new_font (f
, "-*-fixed-*-*-*-*-*-140-*-*-c-*-iso8859-1");
4763 if (! STRINGP (font
))
4764 font
= build_string ("fixed");
4766 x_default_parameter (f
, parms
, Qfont
, font
,
4767 "font", "Font", RES_TYPE_STRING
);
4770 x_default_parameter (f
, parms
, Qborder_width
, make_number (2),
4771 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
4773 /* This defaults to 2 in order to match xterm. We recognize either
4774 internalBorderWidth or internalBorder (which is what xterm calls
4776 if (NILP (Fassq (Qinternal_border_width
, parms
)))
4780 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
4781 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
4782 if (! EQ (value
, Qunbound
))
4783 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
4787 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
4788 "internalBorderWidth", "internalBorderWidth",
4791 /* Also do the stuff which must be set before the window exists. */
4792 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
4793 "foreground", "Foreground", RES_TYPE_STRING
);
4794 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
4795 "background", "Background", RES_TYPE_STRING
);
4796 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
4797 "pointerColor", "Foreground", RES_TYPE_STRING
);
4798 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
4799 "cursorColor", "Foreground", RES_TYPE_STRING
);
4800 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
4801 "borderColor", "BorderColor", RES_TYPE_STRING
);
4803 /* Init faces before x_default_parameter is called for scroll-bar
4804 parameters because that function calls x_set_scroll_bar_width,
4805 which calls change_frame_size, which calls Fset_window_buffer,
4806 which runs hooks, which call Fvertical_motion. At the end, we
4807 end up in init_iterator with a null face cache, which should not
4809 init_frame_faces (f
);
4811 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4813 window_prompting
= x_figure_window_size (f
, parms
, 0);
4816 XSetWindowAttributes attrs
;
4820 mask
= CWBackPixel
| CWOverrideRedirect
| CWEventMask
;
4821 if (DoesSaveUnders (dpyinfo
->screen
))
4822 mask
|= CWSaveUnder
;
4824 /* Window managers look at the override-redirect flag to determine
4825 whether or net to give windows a decoration (Xlib spec, chapter
4827 attrs
.override_redirect
= True
;
4828 attrs
.save_under
= True
;
4829 attrs
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
4830 /* Arrange for getting MapNotify and UnmapNotify events. */
4831 attrs
.event_mask
= StructureNotifyMask
;
4833 = FRAME_X_WINDOW (f
)
4834 = XCreateWindow (FRAME_X_DISPLAY (f
),
4835 FRAME_X_DISPLAY_INFO (f
)->root_window
,
4836 /* x, y, width, height */
4840 CopyFromParent
, InputOutput
, CopyFromParent
,
4847 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
4848 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4849 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
4850 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4851 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
4852 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
4854 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
4855 Change will not be effected unless different from the current
4857 width
= FRAME_COLS (f
);
4858 height
= FRAME_LINES (f
);
4859 SET_FRAME_COLS (f
, 0);
4860 FRAME_LINES (f
) = 0;
4861 change_frame_size (f
, height
, width
, 1, 0, 0);
4863 /* Add `tooltip' frame parameter's default value. */
4864 if (NILP (Fframe_parameter (frame
, intern ("tooltip"))))
4865 Fmodify_frame_parameters (frame
, Fcons (Fcons (intern ("tooltip"), Qt
),
4868 /* Set up faces after all frame parameters are known. This call
4869 also merges in face attributes specified for new frames.
4871 Frame parameters may be changed if .Xdefaults contains
4872 specifications for the default font. For example, if there is an
4873 `Emacs.default.attributeBackground: pink', the `background-color'
4874 attribute of the frame get's set, which let's the internal border
4875 of the tooltip frame appear in pink. Prevent this. */
4877 Lisp_Object bg
= Fframe_parameter (frame
, Qbackground_color
);
4879 /* Set tip_frame here, so that */
4881 call1 (Qface_set_after_frame_default
, frame
);
4883 if (!EQ (bg
, Fframe_parameter (frame
, Qbackground_color
)))
4884 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qbackground_color
, bg
),
4892 /* It is now ok to make the frame official even if we get an error
4893 below. And the frame needs to be on Vframe_list or making it
4894 visible won't work. */
4895 Vframe_list
= Fcons (frame
, Vframe_list
);
4897 /* Now that the frame is official, it counts as a reference to
4899 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
4901 /* Setting attributes of faces of the tooltip frame from resources
4902 and similar will increment face_change_count, which leads to the
4903 clearing of all current matrices. Since this isn't necessary
4904 here, avoid it by resetting face_change_count to the value it
4905 had before we created the tip frame. */
4906 face_change_count
= face_change_count_before
;
4908 /* Discard the unwind_protect. */
4909 return unbind_to (count
, frame
);
4913 /* Compute where to display tip frame F. PARMS is the list of frame
4914 parameters for F. DX and DY are specified offsets from the current
4915 location of the mouse. WIDTH and HEIGHT are the width and height
4916 of the tooltip. Return coordinates relative to the root window of
4917 the display in *ROOT_X, and *ROOT_Y. */
4920 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, root_x
, root_y
)
4922 Lisp_Object parms
, dx
, dy
;
4924 int *root_x
, *root_y
;
4926 Lisp_Object left
, top
;
4931 /* User-specified position? */
4932 left
= Fcdr (Fassq (Qleft
, parms
));
4933 top
= Fcdr (Fassq (Qtop
, parms
));
4935 /* Move the tooltip window where the mouse pointer is. Resize and
4937 if (!INTEGERP (left
) || !INTEGERP (top
))
4940 XQueryPointer (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
4941 &root
, &child
, root_x
, root_y
, &win_x
, &win_y
, &pmask
);
4946 *root_y
= XINT (top
);
4947 else if (*root_y
+ XINT (dy
) <= 0)
4948 *root_y
= 0; /* Can happen for negative dy */
4949 else if (*root_y
+ XINT (dy
) + height
<= FRAME_X_DISPLAY_INFO (f
)->height
)
4950 /* It fits below the pointer */
4951 *root_y
+= XINT (dy
);
4952 else if (height
+ XINT (dy
) <= *root_y
)
4953 /* It fits above the pointer. */
4954 *root_y
-= height
+ XINT (dy
);
4956 /* Put it on the top. */
4959 if (INTEGERP (left
))
4960 *root_x
= XINT (left
);
4961 else if (*root_x
+ XINT (dx
) <= 0)
4962 *root_x
= 0; /* Can happen for negative dx */
4963 else if (*root_x
+ XINT (dx
) + width
<= FRAME_X_DISPLAY_INFO (f
)->width
)
4964 /* It fits to the right of the pointer. */
4965 *root_x
+= XINT (dx
);
4966 else if (width
+ XINT (dx
) <= *root_x
)
4967 /* It fits to the left of the pointer. */
4968 *root_x
-= width
+ XINT (dx
);
4970 /* Put it left-justified on the screen--it ought to fit that way. */
4975 DEFUN ("x-show-tip", Fx_show_tip
, Sx_show_tip
, 1, 6, 0,
4976 doc
: /* Show STRING in a "tooltip" window on frame FRAME.
4977 A tooltip window is a small X window displaying a string.
4979 FRAME nil or omitted means use the selected frame.
4981 PARMS is an optional list of frame parameters which can be used to
4982 change the tooltip's appearance.
4984 Automatically hide the tooltip after TIMEOUT seconds. TIMEOUT nil
4985 means use the default timeout of 5 seconds.
4987 If the list of frame parameters PARAMS contains a `left' parameters,
4988 the tooltip is displayed at that x-position. Otherwise it is
4989 displayed at the mouse position, with offset DX added (default is 5 if
4990 DX isn't specified). Likewise for the y-position; if a `top' frame
4991 parameter is specified, it determines the y-position of the tooltip
4992 window, otherwise it is displayed at the mouse position, with offset
4993 DY added (default is -10).
4995 A tooltip's maximum size is specified by `x-max-tooltip-size'.
4996 Text larger than the specified size is clipped. */)
4997 (string
, frame
, parms
, timeout
, dx
, dy
)
4998 Lisp_Object string
, frame
, parms
, timeout
, dx
, dy
;
5003 struct buffer
*old_buffer
;
5004 struct text_pos pos
;
5005 int i
, width
, height
;
5006 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
5007 int old_windows_or_buffers_changed
= windows_or_buffers_changed
;
5008 int count
= SPECPDL_INDEX ();
5010 specbind (Qinhibit_redisplay
, Qt
);
5012 GCPRO4 (string
, parms
, frame
, timeout
);
5014 CHECK_STRING (string
);
5015 f
= check_x_frame (frame
);
5017 timeout
= make_number (5);
5019 CHECK_NATNUM (timeout
);
5022 dx
= make_number (5);
5027 dy
= make_number (-10);
5031 if (NILP (last_show_tip_args
))
5032 last_show_tip_args
= Fmake_vector (make_number (3), Qnil
);
5034 if (!NILP (tip_frame
))
5036 Lisp_Object last_string
= AREF (last_show_tip_args
, 0);
5037 Lisp_Object last_frame
= AREF (last_show_tip_args
, 1);
5038 Lisp_Object last_parms
= AREF (last_show_tip_args
, 2);
5040 if (EQ (frame
, last_frame
)
5041 && !NILP (Fequal (last_string
, string
))
5042 && !NILP (Fequal (last_parms
, parms
)))
5044 struct frame
*f
= XFRAME (tip_frame
);
5046 /* Only DX and DY have changed. */
5047 if (!NILP (tip_timer
))
5049 Lisp_Object timer
= tip_timer
;
5051 call1 (Qcancel_timer
, timer
);
5055 compute_tip_xy (f
, parms
, dx
, dy
, FRAME_PIXEL_WIDTH (f
),
5056 FRAME_PIXEL_HEIGHT (f
), &root_x
, &root_y
);
5057 XMoveWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5064 /* Hide a previous tip, if any. */
5067 ASET (last_show_tip_args
, 0, string
);
5068 ASET (last_show_tip_args
, 1, frame
);
5069 ASET (last_show_tip_args
, 2, parms
);
5071 /* Add default values to frame parameters. */
5072 if (NILP (Fassq (Qname
, parms
)))
5073 parms
= Fcons (Fcons (Qname
, build_string ("tooltip")), parms
);
5074 if (NILP (Fassq (Qinternal_border_width
, parms
)))
5075 parms
= Fcons (Fcons (Qinternal_border_width
, make_number (3)), parms
);
5076 if (NILP (Fassq (Qborder_width
, parms
)))
5077 parms
= Fcons (Fcons (Qborder_width
, make_number (1)), parms
);
5078 if (NILP (Fassq (Qborder_color
, parms
)))
5079 parms
= Fcons (Fcons (Qborder_color
, build_string ("lightyellow")), parms
);
5080 if (NILP (Fassq (Qbackground_color
, parms
)))
5081 parms
= Fcons (Fcons (Qbackground_color
, build_string ("lightyellow")),
5084 /* Create a frame for the tooltip, and record it in the global
5085 variable tip_frame. */
5086 frame
= x_create_tip_frame (FRAME_X_DISPLAY_INFO (f
), parms
, string
);
5089 /* Set up the frame's root window. */
5090 w
= XWINDOW (FRAME_ROOT_WINDOW (f
));
5091 w
->left_col
= w
->top_line
= make_number (0);
5093 if (CONSP (Vx_max_tooltip_size
)
5094 && INTEGERP (XCAR (Vx_max_tooltip_size
))
5095 && XINT (XCAR (Vx_max_tooltip_size
)) > 0
5096 && INTEGERP (XCDR (Vx_max_tooltip_size
))
5097 && XINT (XCDR (Vx_max_tooltip_size
)) > 0)
5099 w
->total_cols
= XCAR (Vx_max_tooltip_size
);
5100 w
->total_lines
= XCDR (Vx_max_tooltip_size
);
5104 w
->total_cols
= make_number (80);
5105 w
->total_lines
= make_number (40);
5108 FRAME_TOTAL_COLS (f
) = XINT (w
->total_cols
);
5110 w
->pseudo_window_p
= 1;
5112 /* Display the tooltip text in a temporary buffer. */
5113 old_buffer
= current_buffer
;
5114 set_buffer_internal_1 (XBUFFER (XWINDOW (FRAME_ROOT_WINDOW (f
))->buffer
));
5115 current_buffer
->truncate_lines
= Qnil
;
5116 clear_glyph_matrix (w
->desired_matrix
);
5117 clear_glyph_matrix (w
->current_matrix
);
5118 SET_TEXT_POS (pos
, BEGV
, BEGV_BYTE
);
5119 try_window (FRAME_ROOT_WINDOW (f
), pos
, 0);
5121 /* Compute width and height of the tooltip. */
5123 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
5125 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
5129 /* Stop at the first empty row at the end. */
5130 if (!row
->enabled_p
|| !row
->displays_text_p
)
5133 /* Let the row go over the full width of the frame. */
5134 row
->full_width_p
= 1;
5136 /* There's a glyph at the end of rows that is used to place
5137 the cursor there. Don't include the width of this glyph. */
5138 if (row
->used
[TEXT_AREA
])
5140 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
5141 row_width
= row
->pixel_width
- last
->pixel_width
;
5144 row_width
= row
->pixel_width
;
5146 height
+= row
->height
;
5147 width
= max (width
, row_width
);
5150 /* Add the frame's internal border to the width and height the X
5151 window should have. */
5152 height
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5153 width
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5155 /* Move the tooltip window where the mouse pointer is. Resize and
5157 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
5160 XMoveResizeWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5161 root_x
, root_y
, width
, height
);
5162 XMapRaised (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
));
5165 /* Draw into the window. */
5166 w
->must_be_updated_p
= 1;
5167 update_single_window (w
, 1);
5169 /* Restore original current buffer. */
5170 set_buffer_internal_1 (old_buffer
);
5171 windows_or_buffers_changed
= old_windows_or_buffers_changed
;
5174 /* Let the tip disappear after timeout seconds. */
5175 tip_timer
= call3 (intern ("run-at-time"), timeout
, Qnil
,
5176 intern ("x-hide-tip"));
5179 return unbind_to (count
, Qnil
);
5183 DEFUN ("x-hide-tip", Fx_hide_tip
, Sx_hide_tip
, 0, 0, 0,
5184 doc
: /* Hide the current tooltip window, if there is any.
5185 Value is t if tooltip was open, nil otherwise. */)
5189 Lisp_Object deleted
, frame
, timer
;
5190 struct gcpro gcpro1
, gcpro2
;
5192 /* Return quickly if nothing to do. */
5193 if (NILP (tip_timer
) && NILP (tip_frame
))
5198 GCPRO2 (frame
, timer
);
5199 tip_frame
= tip_timer
= deleted
= Qnil
;
5201 count
= SPECPDL_INDEX ();
5202 specbind (Qinhibit_redisplay
, Qt
);
5203 specbind (Qinhibit_quit
, Qt
);
5206 call1 (Qcancel_timer
, timer
);
5210 Fdelete_frame (frame
, Qnil
);
5214 /* Bloodcurdling hack alert: The Lucid menu bar widget's
5215 redisplay procedure is not called when a tip frame over menu
5216 items is unmapped. Redisplay the menu manually... */
5218 struct frame
*f
= SELECTED_FRAME ();
5219 Widget w
= f
->output_data
.x
->menubar_widget
;
5220 extern void xlwmenu_redisplay
P_ ((Widget
));
5222 if (!DoesSaveUnders (FRAME_X_DISPLAY_INFO (f
)->screen
)
5226 xlwmenu_redisplay (w
);
5230 #endif /* USE_LUCID */
5234 return unbind_to (count
, deleted
);
5239 /***********************************************************************
5240 File selection dialog
5241 ***********************************************************************/
5243 DEFUN ("x-uses-old-gtk-dialog", Fx_uses_old_gtk_dialog
,
5244 Sx_uses_old_gtk_dialog
,
5246 doc
: /* Return t if the old Gtk+ file selection dialog is used. */)
5250 extern int use_dialog_box
;
5251 extern int use_file_dialog
;
5256 && xg_uses_old_file_dialog ())
5264 /* Callback for "OK" and "Cancel" on file selection dialog. */
5267 file_dialog_cb (widget
, client_data
, call_data
)
5269 XtPointer call_data
, client_data
;
5271 int *result
= (int *) client_data
;
5272 XmAnyCallbackStruct
*cb
= (XmAnyCallbackStruct
*) call_data
;
5273 *result
= cb
->reason
;
5277 /* Callback for unmapping a file selection dialog. This is used to
5278 capture the case where a dialog is closed via a window manager's
5279 closer button, for example. Using a XmNdestroyCallback didn't work
5283 file_dialog_unmap_cb (widget
, client_data
, call_data
)
5285 XtPointer call_data
, client_data
;
5287 int *result
= (int *) client_data
;
5288 *result
= XmCR_CANCEL
;
5292 clean_up_file_dialog (arg
)
5295 struct Lisp_Save_Value
*p
= XSAVE_VALUE (arg
);
5296 Widget dialog
= (Widget
) p
->pointer
;
5300 XtUnmanageChild (dialog
);
5301 XtDestroyWidget (dialog
);
5302 x_menu_set_in_use (0);
5309 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5310 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5311 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5312 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5313 or directory must exist. ONLY-DIR-P is ignored." */)
5314 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
)
5315 Lisp_Object prompt
, dir
, default_filename
, mustmatch
, only_dir_p
;
5318 struct frame
*f
= SELECTED_FRAME ();
5319 Lisp_Object file
= Qnil
;
5320 Widget dialog
, text
, help
;
5323 extern XtAppContext Xt_app_con
;
5324 XmString dir_xmstring
, pattern_xmstring
;
5325 int count
= SPECPDL_INDEX ();
5326 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5328 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5330 if (popup_activated ())
5331 error ("Trying to use a menu from within a menu-entry");
5333 CHECK_STRING (prompt
);
5336 /* Prevent redisplay. */
5337 specbind (Qinhibit_redisplay
, Qt
);
5341 /* Create the dialog with PROMPT as title, using DIR as initial
5342 directory and using "*" as pattern. */
5343 dir
= Fexpand_file_name (dir
, Qnil
);
5344 dir_xmstring
= XmStringCreateLocalized (SDATA (dir
));
5345 pattern_xmstring
= XmStringCreateLocalized ("*");
5347 XtSetArg (al
[ac
], XmNtitle
, SDATA (prompt
)); ++ac
;
5348 XtSetArg (al
[ac
], XmNdirectory
, dir_xmstring
); ++ac
;
5349 XtSetArg (al
[ac
], XmNpattern
, pattern_xmstring
); ++ac
;
5350 XtSetArg (al
[ac
], XmNresizePolicy
, XmRESIZE_GROW
); ++ac
;
5351 XtSetArg (al
[ac
], XmNdialogStyle
, XmDIALOG_APPLICATION_MODAL
); ++ac
;
5352 dialog
= XmCreateFileSelectionDialog (f
->output_data
.x
->widget
,
5354 XmStringFree (dir_xmstring
);
5355 XmStringFree (pattern_xmstring
);
5357 /* Add callbacks for OK and Cancel. */
5358 XtAddCallback (dialog
, XmNokCallback
, file_dialog_cb
,
5359 (XtPointer
) &result
);
5360 XtAddCallback (dialog
, XmNcancelCallback
, file_dialog_cb
,
5361 (XtPointer
) &result
);
5362 XtAddCallback (dialog
, XmNunmapCallback
, file_dialog_unmap_cb
,
5363 (XtPointer
) &result
);
5365 /* Remove the help button since we can't display help. */
5366 help
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_HELP_BUTTON
);
5367 XtUnmanageChild (help
);
5369 /* Mark OK button as default. */
5370 XtVaSetValues (XmFileSelectionBoxGetChild (dialog
, XmDIALOG_OK_BUTTON
),
5371 XmNshowAsDefault
, True
, NULL
);
5373 /* If MUSTMATCH is non-nil, disable the file entry field of the
5374 dialog, so that the user must select a file from the files list
5375 box. We can't remove it because we wouldn't have a way to get at
5376 the result file name, then. */
5377 text
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5378 if (!NILP (mustmatch
))
5381 label
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_SELECTION_LABEL
);
5382 XtSetSensitive (text
, False
);
5383 XtSetSensitive (label
, False
);
5386 /* Manage the dialog, so that list boxes get filled. */
5387 XtManageChild (dialog
);
5389 if (STRINGP (default_filename
))
5391 XmString default_xmstring
;
5392 Widget wtext
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5393 Widget list
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_LIST
);
5395 XmTextPosition last_pos
= XmTextFieldGetLastPosition (wtext
);
5396 XmTextFieldReplace (wtext
, 0, last_pos
,
5397 (SDATA (Ffile_name_nondirectory (default_filename
))));
5399 /* Select DEFAULT_FILENAME in the files list box. DEFAULT_FILENAME
5400 must include the path for this to work. */
5402 default_xmstring
= XmStringCreateLocalized (SDATA (default_filename
));
5404 if (XmListItemExists (list
, default_xmstring
))
5406 int item_pos
= XmListItemPos (list
, default_xmstring
);
5407 /* Select the item and scroll it into view. */
5408 XmListSelectPos (list
, item_pos
, True
);
5409 XmListSetPos (list
, item_pos
);
5412 XmStringFree (default_xmstring
);
5415 record_unwind_protect (clean_up_file_dialog
, make_save_value (dialog
, 0));
5417 /* Process events until the user presses Cancel or OK. */
5418 x_menu_set_in_use (1);
5423 x_menu_wait_for_event (0);
5424 XtAppNextEvent (Xt_app_con
, &event
);
5425 if (event
.type
== KeyPress
5426 && FRAME_X_DISPLAY (f
) == event
.xkey
.display
)
5428 KeySym keysym
= XLookupKeysym (&event
.xkey
, 0);
5430 /* Pop down on C-g. */
5431 if (keysym
== XK_g
&& (event
.xkey
.state
& ControlMask
) != 0)
5432 XtUnmanageChild (dialog
);
5435 (void) x_dispatch_event (&event
, FRAME_X_DISPLAY (f
));
5438 /* Get the result. */
5439 if (result
== XmCR_OK
)
5444 XtVaGetValues (dialog
, XmNtextString
, &text
, NULL
);
5445 XmStringGetLtoR (text
, XmFONTLIST_DEFAULT_TAG
, &data
);
5446 XmStringFree (text
);
5447 file
= build_string (data
);
5456 /* Make "Cancel" equivalent to C-g. */
5458 Fsignal (Qquit
, Qnil
);
5460 return unbind_to (count
, file
);
5463 #endif /* USE_MOTIF */
5468 clean_up_dialog (arg
)
5471 x_menu_set_in_use (0);
5476 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5477 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5478 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5479 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5480 or directory must exist. If ONLY-DIR-P is non-nil, the user can only select
5482 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
)
5483 Lisp_Object prompt
, dir
, default_filename
, mustmatch
, only_dir_p
;
5485 FRAME_PTR f
= SELECTED_FRAME ();
5487 Lisp_Object file
= Qnil
;
5488 int count
= SPECPDL_INDEX ();
5489 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5492 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5494 if (popup_activated ())
5495 error ("Trying to use a menu from within a menu-entry");
5497 CHECK_STRING (prompt
);
5500 /* Prevent redisplay. */
5501 specbind (Qinhibit_redisplay
, Qt
);
5502 record_unwind_protect (clean_up_dialog
, Qnil
);
5506 if (STRINGP (default_filename
))
5507 cdef_file
= SDATA (default_filename
);
5509 cdef_file
= SDATA (dir
);
5511 fn
= xg_get_file_name (f
, SDATA (prompt
), cdef_file
,
5513 ! NILP (only_dir_p
));
5517 file
= build_string (fn
);
5524 /* Make "Cancel" equivalent to C-g. */
5526 Fsignal (Qquit
, Qnil
);
5528 return unbind_to (count
, file
);
5531 #endif /* USE_GTK */
5534 /***********************************************************************
5536 ***********************************************************************/
5538 #ifdef HAVE_XKBGETKEYBOARD
5539 #include <X11/XKBlib.h>
5540 #include <X11/keysym.h>
5543 DEFUN ("x-backspace-delete-keys-p", Fx_backspace_delete_keys_p
,
5544 Sx_backspace_delete_keys_p
, 0, 1, 0,
5545 doc
: /* Check if both Backspace and Delete keys are on the keyboard of FRAME.
5546 FRAME nil means use the selected frame.
5547 Value is t if we know that both keys are present, and are mapped to the
5548 usual X keysyms. Value is `lambda' if we cannot determine if both keys are
5549 present and mapped to the usual X keysyms. */)
5553 #ifdef HAVE_XKBGETKEYBOARD
5555 struct frame
*f
= check_x_frame (frame
);
5556 Display
*dpy
= FRAME_X_DISPLAY (f
);
5557 Lisp_Object have_keys
;
5558 int major
, minor
, op
, event
, error
;
5562 /* Check library version in case we're dynamically linked. */
5563 major
= XkbMajorVersion
;
5564 minor
= XkbMinorVersion
;
5565 if (!XkbLibraryVersion (&major
, &minor
))
5571 /* Check that the server supports XKB. */
5572 major
= XkbMajorVersion
;
5573 minor
= XkbMinorVersion
;
5574 if (!XkbQueryExtension (dpy
, &op
, &event
, &error
, &major
, &minor
))
5580 /* In this code we check that the keyboard has physical keys with names
5581 that start with BKSP (Backspace) and DELE (Delete), and that they
5582 generate keysym XK_BackSpace and XK_Delete respectively.
5583 This function is used to test if normal-erase-is-backspace should be
5585 An alternative approach would be to just check if XK_BackSpace and
5586 XK_Delete are mapped to any key. But if any of those are mapped to
5587 some non-intuitive key combination (Meta-Shift-Ctrl-whatever) and the
5588 user doesn't know about it, it is better to return false here.
5589 It is more obvious to the user what to do if she/he has two keys
5590 clearly marked with names/symbols and one key does something not
5591 expected (i.e. she/he then tries the other).
5592 The cases where Backspace/Delete is mapped to some other key combination
5593 are rare, and in those cases, normal-erase-is-backspace can be turned on
5597 kb
= XkbGetMap (dpy
, XkbAllMapComponentsMask
, XkbUseCoreKbd
);
5600 int delete_keycode
= 0, backspace_keycode
= 0, i
;
5602 if (XkbGetNames (dpy
, XkbAllNamesMask
, kb
) == Success
)
5604 for (i
= kb
->min_key_code
;
5605 (i
< kb
->max_key_code
5606 && (delete_keycode
== 0 || backspace_keycode
== 0));
5609 /* The XKB symbolic key names can be seen most easily in
5610 the PS file generated by `xkbprint -label name
5612 if (bcmp ("DELE", kb
->names
->keys
[i
].name
, 4) == 0)
5614 else if (bcmp ("BKSP", kb
->names
->keys
[i
].name
, 4) == 0)
5615 backspace_keycode
= i
;
5618 XkbFreeNames (kb
, 0, True
);
5621 XkbFreeClientMap (kb
, 0, True
);
5624 && backspace_keycode
5625 && XKeysymToKeycode (dpy
, XK_Delete
) == delete_keycode
5626 && XKeysymToKeycode (dpy
, XK_BackSpace
) == backspace_keycode
)
5631 #else /* not HAVE_XKBGETKEYBOARD */
5633 #endif /* not HAVE_XKBGETKEYBOARD */
5638 /***********************************************************************
5640 ***********************************************************************/
5642 /* Keep this list in the same order as frame_parms in frame.c.
5643 Use 0 for unsupported frame parameters. */
5645 frame_parm_handler x_frame_parm_handlers
[] =
5649 x_set_background_color
,
5655 x_set_foreground_color
,
5658 x_set_internal_border_width
,
5659 x_set_menu_bar_lines
,
5661 x_explicitly_set_name
,
5662 x_set_scroll_bar_width
,
5665 x_set_vertical_scroll_bars
,
5667 x_set_tool_bar_lines
,
5668 x_set_scroll_bar_foreground
,
5669 x_set_scroll_bar_background
,
5681 /* This is zero if not using X windows. */
5684 /* The section below is built by the lisp expression at the top of the file,
5685 just above where these variables are declared. */
5686 /*&&& init symbols here &&&*/
5687 Qnone
= intern ("none");
5689 Qsuppress_icon
= intern ("suppress-icon");
5690 staticpro (&Qsuppress_icon
);
5691 Qundefined_color
= intern ("undefined-color");
5692 staticpro (&Qundefined_color
);
5693 Qcompound_text
= intern ("compound-text");
5694 staticpro (&Qcompound_text
);
5695 Qcancel_timer
= intern ("cancel-timer");
5696 staticpro (&Qcancel_timer
);
5697 /* This is the end of symbol initialization. */
5699 /* Text property `display' should be nonsticky by default. */
5700 Vtext_property_default_nonsticky
5701 = Fcons (Fcons (Qdisplay
, Qt
), Vtext_property_default_nonsticky
);
5704 Fput (Qundefined_color
, Qerror_conditions
,
5705 Fcons (Qundefined_color
, Fcons (Qerror
, Qnil
)));
5706 Fput (Qundefined_color
, Qerror_message
,
5707 build_string ("Undefined color"));
5709 DEFVAR_LISP ("x-pointer-shape", &Vx_pointer_shape
,
5710 doc
: /* The shape of the pointer when over text.
5711 Changing the value does not affect existing frames
5712 unless you set the mouse color. */);
5713 Vx_pointer_shape
= Qnil
;
5715 #if 0 /* This doesn't really do anything. */
5716 DEFVAR_LISP ("x-nontext-pointer-shape", &Vx_nontext_pointer_shape
,
5717 doc
: /* The shape of the pointer when not over text.
5718 This variable takes effect when you create a new frame
5719 or when you set the mouse color. */);
5721 Vx_nontext_pointer_shape
= Qnil
;
5723 DEFVAR_LISP ("x-hourglass-pointer-shape", &Vx_hourglass_pointer_shape
,
5724 doc
: /* The shape of the pointer when Emacs is busy.
5725 This variable takes effect when you create a new frame
5726 or when you set the mouse color. */);
5727 Vx_hourglass_pointer_shape
= Qnil
;
5729 DEFVAR_BOOL ("display-hourglass", &display_hourglass_p
,
5730 doc
: /* Non-zero means Emacs displays an hourglass pointer on window systems. */);
5731 display_hourglass_p
= 1;
5733 DEFVAR_LISP ("hourglass-delay", &Vhourglass_delay
,
5734 doc
: /* *Seconds to wait before displaying an hourglass pointer.
5735 Value must be an integer or float. */);
5736 Vhourglass_delay
= make_number (DEFAULT_HOURGLASS_DELAY
);
5738 #if 0 /* This doesn't really do anything. */
5739 DEFVAR_LISP ("x-mode-pointer-shape", &Vx_mode_pointer_shape
,
5740 doc
: /* The shape of the pointer when over the mode line.
5741 This variable takes effect when you create a new frame
5742 or when you set the mouse color. */);
5744 Vx_mode_pointer_shape
= Qnil
;
5746 DEFVAR_LISP ("x-sensitive-text-pointer-shape",
5747 &Vx_sensitive_text_pointer_shape
,
5748 doc
: /* The shape of the pointer when over mouse-sensitive text.
5749 This variable takes effect when you create a new frame
5750 or when you set the mouse color. */);
5751 Vx_sensitive_text_pointer_shape
= Qnil
;
5753 DEFVAR_LISP ("x-window-horizontal-drag-cursor",
5754 &Vx_window_horizontal_drag_shape
,
5755 doc
: /* Pointer shape to use for indicating a window can be dragged horizontally.
5756 This variable takes effect when you create a new frame
5757 or when you set the mouse color. */);
5758 Vx_window_horizontal_drag_shape
= Qnil
;
5760 DEFVAR_LISP ("x-cursor-fore-pixel", &Vx_cursor_fore_pixel
,
5761 doc
: /* A string indicating the foreground color of the cursor box. */);
5762 Vx_cursor_fore_pixel
= Qnil
;
5764 DEFVAR_LISP ("x-max-tooltip-size", &Vx_max_tooltip_size
,
5765 doc
: /* Maximum size for tooltips. Value is a pair (COLUMNS . ROWS).
5766 Text larger than this is clipped. */);
5767 Vx_max_tooltip_size
= Fcons (make_number (80), make_number (40));
5769 DEFVAR_LISP ("x-no-window-manager", &Vx_no_window_manager
,
5770 doc
: /* Non-nil if no X window manager is in use.
5771 Emacs doesn't try to figure this out; this is always nil
5772 unless you set it to something else. */);
5773 /* We don't have any way to find this out, so set it to nil
5774 and maybe the user would like to set it to t. */
5775 Vx_no_window_manager
= Qnil
;
5777 DEFVAR_LISP ("x-pixel-size-width-font-regexp",
5778 &Vx_pixel_size_width_font_regexp
,
5779 doc
: /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'.
5781 Since Emacs gets width of a font matching with this regexp from
5782 PIXEL_SIZE field of the name, font finding mechanism gets faster for
5783 such a font. This is especially effective for such large fonts as
5784 Chinese, Japanese, and Korean. */);
5785 Vx_pixel_size_width_font_regexp
= Qnil
;
5787 /* This is not ifdef:ed, so other builds than GTK can customize it. */
5788 DEFVAR_BOOL ("x-use-old-gtk-file-dialog", &x_use_old_gtk_file_dialog
,
5789 doc
: /* *Non-nil means prompt with the old GTK file selection dialog.
5790 If nil or if the file selection dialog is not available, the new GTK file
5791 chooser is used instead. To turn off all file dialogs set the
5792 variable `use-file-dialog'. */);
5793 x_use_old_gtk_file_dialog
= 0;
5795 DEFVAR_BOOL ("x-gtk-show-hidden-files", &x_gtk_show_hidden_files
,
5796 doc
: /* *If non-nil, the GTK file chooser will by default show hidden files.
5797 Note that this is just the default, there is a toggle button on the file
5798 chooser to show or not show hidden files on a case by case basis. */);
5799 x_gtk_show_hidden_files
= 0;
5801 Fprovide (intern ("x"), Qnil
);
5803 #ifdef USE_X_TOOLKIT
5804 Fprovide (intern ("x-toolkit"), Qnil
);
5806 Fprovide (intern ("motif"), Qnil
);
5808 DEFVAR_LISP ("motif-version-string", &Vmotif_version_string
,
5809 doc
: /* Version info for LessTif/Motif. */);
5810 Vmotif_version_string
= build_string (XmVERSION_STRING
);
5811 #endif /* USE_MOTIF */
5812 #endif /* USE_X_TOOLKIT */
5815 /* Provide x-toolkit also for GTK. Internally GTK does not use Xt so it
5816 is not an X toolkit in that sense (USE_X_TOOLKIT is not defined).
5817 But for a user it is a toolkit for X, and indeed, configure
5818 accepts --with-x-toolkit=gtk. */
5819 Fprovide (intern ("x-toolkit"), Qnil
);
5820 Fprovide (intern ("gtk"), Qnil
);
5822 DEFVAR_LISP ("gtk-version-string", &Vgtk_version_string
,
5823 doc
: /* Version info for GTK+. */);
5825 char gtk_version
[40];
5826 g_snprintf (gtk_version
, sizeof (gtk_version
), "%u.%u.%u",
5827 GTK_MAJOR_VERSION
, GTK_MINOR_VERSION
, GTK_MICRO_VERSION
);
5828 Vgtk_version_string
= build_string (gtk_version
);
5830 #endif /* USE_GTK */
5832 /* X window properties. */
5833 defsubr (&Sx_change_window_property
);
5834 defsubr (&Sx_delete_window_property
);
5835 defsubr (&Sx_window_property
);
5837 defsubr (&Sxw_display_color_p
);
5838 defsubr (&Sx_display_grayscale_p
);
5839 defsubr (&Sxw_color_defined_p
);
5840 defsubr (&Sxw_color_values
);
5841 defsubr (&Sx_server_max_request_size
);
5842 defsubr (&Sx_server_vendor
);
5843 defsubr (&Sx_server_version
);
5844 defsubr (&Sx_display_pixel_width
);
5845 defsubr (&Sx_display_pixel_height
);
5846 defsubr (&Sx_display_mm_width
);
5847 defsubr (&Sx_display_mm_height
);
5848 defsubr (&Sx_display_screens
);
5849 defsubr (&Sx_display_planes
);
5850 defsubr (&Sx_display_color_cells
);
5851 defsubr (&Sx_display_visual_class
);
5852 defsubr (&Sx_display_backing_store
);
5853 defsubr (&Sx_display_save_under
);
5854 defsubr (&Sx_create_frame
);
5855 defsubr (&Sx_open_connection
);
5856 defsubr (&Sx_close_connection
);
5857 defsubr (&Sx_display_list
);
5858 defsubr (&Sx_synchronize
);
5859 defsubr (&Sx_focus_frame
);
5860 defsubr (&Sx_backspace_delete_keys_p
);
5862 /* Setting callback functions for fontset handler. */
5863 get_font_info_func
= x_get_font_info
;
5865 #if 0 /* This function pointer doesn't seem to be used anywhere.
5866 And the pointer assigned has the wrong type, anyway. */
5867 list_fonts_func
= x_list_fonts
;
5870 load_font_func
= x_load_font
;
5871 find_ccl_program_func
= x_find_ccl_program
;
5872 query_font_func
= x_query_font
;
5873 set_frame_fontset_func
= x_set_font
;
5874 check_window_system_func
= check_x
;
5876 hourglass_atimer
= NULL
;
5877 hourglass_shown_p
= 0;
5879 defsubr (&Sx_show_tip
);
5880 defsubr (&Sx_hide_tip
);
5882 staticpro (&tip_timer
);
5884 staticpro (&tip_frame
);
5886 last_show_tip_args
= Qnil
;
5887 staticpro (&last_show_tip_args
);
5889 defsubr (&Sx_uses_old_gtk_dialog
);
5890 #if defined (USE_MOTIF) || defined (USE_GTK)
5891 defsubr (&Sx_file_dialog
);
5895 #endif /* HAVE_X_WINDOWS */
5897 /* arch-tag: 55040d02-5485-4d58-8b22-95a7a05f3288
5898 (do not change this comment) */