1 /* Functions for the X window system.
2 Copyright (C) 1989, 1992, 1993, 1994, 1995 Free Software Foundation.
4 This file is part of GNU Emacs.
6 GNU Emacs is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 2, or (at your option)
11 GNU Emacs is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with GNU Emacs; see the file COPYING. If not, write to
18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
19 Boston, MA 02111-1307, USA. */
21 /* Completely rewritten by Richard Stallman. */
23 /* Rewritten for X11 by Joseph Arceneaux */
28 /* This makes the fields of a Display accessible, in Xlib header files. */
29 #define XLIB_ILLEGAL_ACCESS
36 #include "dispextern.h"
38 #include "blockinput.h"
44 /* On some systems, the character-composition stuff is broken in X11R5. */
45 #if defined (HAVE_X11R5) && ! defined (HAVE_X11R6)
46 #ifdef X11R5_INHIBIT_I18N
47 #define X_I18N_INHIBITED
52 #if 1 /* Used to be #ifdef EMACS_BITMAP_FILES, but this should always work. */
53 #include "bitmaps/gray.xbm"
55 #include <X11/bitmaps/gray>
58 #include "[.bitmaps]gray.xbm"
62 #include <X11/Shell.h>
65 #include <X11/Xaw/Paned.h>
66 #include <X11/Xaw/Label.h>
67 #endif /* USE_MOTIF */
70 #undef USG /* ####KLUDGE for Solaris 2.2 and up */
79 #include "../lwlib/lwlib.h"
81 /* Do the EDITRES protocol if running X11R5
82 Exception: HP-UX (at least version A.09.05) has X11R5 without EditRes */
83 #if (XtSpecificationRelease >= 5) && !defined(NO_EDITRES)
85 extern void _XEditResCheckMessages ();
86 #endif /* R5 + Athena */
88 /* Unique id counter for widgets created by the Lucid Widget
90 extern LWLIB_ID widget_id_tick
;
92 /* This is part of a kludge--see lwlib/xlwmenu.c. */
93 XFontStruct
*xlwmenu_default_font
;
95 extern void free_frame_menubar ();
96 #endif /* USE_X_TOOLKIT */
98 #define min(a,b) ((a) < (b) ? (a) : (b))
99 #define max(a,b) ((a) > (b) ? (a) : (b))
102 #define MAXREQUEST(dpy) (XMaxRequestSize (dpy))
104 #define MAXREQUEST(dpy) ((dpy)->max_request_size)
107 /* The name we're using in resource queries. */
108 Lisp_Object Vx_resource_name
;
110 /* The background and shape of the mouse pointer, and shape when not
111 over text or in the modeline. */
112 Lisp_Object Vx_pointer_shape
, Vx_nontext_pointer_shape
, Vx_mode_pointer_shape
;
113 /* The shape when over mouse-sensitive text. */
114 Lisp_Object Vx_sensitive_text_pointer_shape
;
116 /* Color of chars displayed in cursor box. */
117 Lisp_Object Vx_cursor_fore_pixel
;
119 /* Nonzero if using X. */
122 /* Non nil if no window manager is in use. */
123 Lisp_Object Vx_no_window_manager
;
125 /* Search path for bitmap files. */
126 Lisp_Object Vx_bitmap_file_path
;
128 /* Evaluate this expression to rebuild the section of syms_of_xfns
129 that initializes and staticpros the symbols declared below. Note
130 that Emacs 18 has a bug that keeps C-x C-e from being able to
131 evaluate this expression.
134 ;; Accumulate a list of the symbols we want to initialize from the
135 ;; declarations at the top of the file.
136 (goto-char (point-min))
137 (search-forward "/\*&&& symbols declared here &&&*\/\n")
139 (while (looking-at "Lisp_Object \\(Q[a-z_]+\\)")
141 (cons (buffer-substring (match-beginning 1) (match-end 1))
144 (setq symbol-list (nreverse symbol-list))
145 ;; Delete the section of syms_of_... where we initialize the symbols.
146 (search-forward "\n /\*&&& init symbols here &&&*\/\n")
147 (let ((start (point)))
148 (while (looking-at "^ Q")
150 (kill-region start (point)))
151 ;; Write a new symbol initialization section.
153 (insert (format " %s = intern (\"" (car symbol-list)))
154 (let ((start (point)))
155 (insert (substring (car symbol-list) 1))
156 (subst-char-in-region start (point) ?_ ?-))
157 (insert (format "\");\n staticpro (&%s);\n" (car symbol-list)))
158 (setq symbol-list (cdr symbol-list)))))
162 /*&&& symbols declared here &&&*/
163 Lisp_Object Qauto_raise
;
164 Lisp_Object Qauto_lower
;
165 Lisp_Object Qbackground_color
;
167 Lisp_Object Qborder_color
;
168 Lisp_Object Qborder_width
;
170 Lisp_Object Qcursor_color
;
171 Lisp_Object Qcursor_type
;
173 Lisp_Object Qforeground_color
;
174 Lisp_Object Qgeometry
;
175 Lisp_Object Qicon_left
;
176 Lisp_Object Qicon_top
;
177 Lisp_Object Qicon_type
;
178 Lisp_Object Qicon_name
;
179 Lisp_Object Qinternal_border_width
;
181 Lisp_Object Qmouse_color
;
183 Lisp_Object Qparent_id
;
184 Lisp_Object Qscroll_bar_width
;
185 Lisp_Object Qsuppress_icon
;
187 Lisp_Object Qundefined_color
;
188 Lisp_Object Qvertical_scroll_bars
;
189 Lisp_Object Qvisibility
;
190 Lisp_Object Qwindow_id
;
191 Lisp_Object Qx_frame_parameter
;
192 Lisp_Object Qx_resource_name
;
193 Lisp_Object Quser_position
;
194 Lisp_Object Quser_size
;
195 Lisp_Object Qdisplay
;
197 /* The below are defined in frame.c. */
198 extern Lisp_Object Qheight
, Qminibuffer
, Qname
, Qonly
, Qwidth
;
199 extern Lisp_Object Qunsplittable
, Qmenu_bar_lines
, Qbuffer_predicate
, Qtitle
;
201 extern Lisp_Object Vwindow_system_version
;
204 /* Error if we are not connected to X. */
209 error ("X windows are not in use or not initialized");
212 /* Nonzero if we can use mouse menus.
213 You should not call this unless HAVE_MENUS is defined. */
221 /* Extract a frame as a FRAME_PTR, defaulting to the selected frame
222 and checking validity for X. */
225 check_x_frame (frame
)
234 CHECK_LIVE_FRAME (frame
, 0);
238 error ("Non-X frame used");
242 /* Let the user specify an X display with a frame.
243 nil stands for the selected frame--or, if that is not an X frame,
244 the first X display on the list. */
246 static struct x_display_info
*
247 check_x_display_info (frame
)
252 if (FRAME_X_P (selected_frame
))
253 return FRAME_X_DISPLAY_INFO (selected_frame
);
254 else if (x_display_list
!= 0)
255 return x_display_list
;
257 error ("X windows are not in use or not initialized");
259 else if (STRINGP (frame
))
260 return x_display_info_for_name (frame
);
265 CHECK_LIVE_FRAME (frame
, 0);
268 error ("Non-X frame used");
269 return FRAME_X_DISPLAY_INFO (f
);
273 /* Return the Emacs frame-object corresponding to an X window.
274 It could be the frame's main window or an icon window. */
276 /* This function can be called during GC, so use GC_xxx type test macros. */
279 x_window_to_frame (dpyinfo
, wdesc
)
280 struct x_display_info
*dpyinfo
;
283 Lisp_Object tail
, frame
;
286 for (tail
= Vframe_list
; GC_CONSP (tail
); tail
= XCONS (tail
)->cdr
)
288 frame
= XCONS (tail
)->car
;
289 if (!GC_FRAMEP (frame
))
292 if (f
->output_data
.nothing
== 1 || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
295 if ((f
->output_data
.x
->edit_widget
296 && XtWindow (f
->output_data
.x
->edit_widget
) == wdesc
)
297 || f
->output_data
.x
->icon_desc
== wdesc
)
299 #else /* not USE_X_TOOLKIT */
300 if (FRAME_X_WINDOW (f
) == wdesc
301 || f
->output_data
.x
->icon_desc
== wdesc
)
303 #endif /* not USE_X_TOOLKIT */
309 /* Like x_window_to_frame but also compares the window with the widget's
313 x_any_window_to_frame (dpyinfo
, wdesc
)
314 struct x_display_info
*dpyinfo
;
317 Lisp_Object tail
, frame
;
321 for (tail
= Vframe_list
; GC_CONSP (tail
); tail
= XCONS (tail
)->cdr
)
323 frame
= XCONS (tail
)->car
;
324 if (!GC_FRAMEP (frame
))
327 if (f
->output_data
.nothing
== 1 || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
329 x
= f
->output_data
.x
;
330 /* This frame matches if the window is any of its widgets. */
331 if (wdesc
== XtWindow (x
->widget
)
332 || wdesc
== XtWindow (x
->column_widget
)
333 || wdesc
== XtWindow (x
->edit_widget
))
335 /* Match if the window is this frame's menubar. */
336 if (lw_window_is_in_menubar (wdesc
, x
->menubar_widget
))
342 /* Likewise, but exclude the menu bar widget. */
345 x_non_menubar_window_to_frame (dpyinfo
, wdesc
)
346 struct x_display_info
*dpyinfo
;
349 Lisp_Object tail
, frame
;
353 for (tail
= Vframe_list
; GC_CONSP (tail
); tail
= XCONS (tail
)->cdr
)
355 frame
= XCONS (tail
)->car
;
356 if (!GC_FRAMEP (frame
))
359 if (f
->output_data
.nothing
== 1 || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
361 x
= f
->output_data
.x
;
362 /* This frame matches if the window is any of its widgets. */
363 if (wdesc
== XtWindow (x
->widget
)
364 || wdesc
== XtWindow (x
->column_widget
)
365 || wdesc
== XtWindow (x
->edit_widget
))
371 /* Likewise, but consider only the menu bar widget. */
374 x_menubar_window_to_frame (dpyinfo
, wdesc
)
375 struct x_display_info
*dpyinfo
;
378 Lisp_Object tail
, frame
;
382 for (tail
= Vframe_list
; GC_CONSP (tail
); tail
= XCONS (tail
)->cdr
)
384 frame
= XCONS (tail
)->car
;
385 if (!GC_FRAMEP (frame
))
388 if (f
->output_data
.nothing
== 1 || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
390 x
= f
->output_data
.x
;
391 /* Match if the window is this frame's menubar. */
392 if (lw_window_is_in_menubar (wdesc
, x
->menubar_widget
))
398 /* Return the frame whose principal (outermost) window is WDESC.
399 If WDESC is some other (smaller) window, we return 0. */
402 x_top_window_to_frame (dpyinfo
, wdesc
)
403 struct x_display_info
*dpyinfo
;
406 Lisp_Object tail
, frame
;
410 for (tail
= Vframe_list
; GC_CONSP (tail
); tail
= XCONS (tail
)->cdr
)
412 frame
= XCONS (tail
)->car
;
413 if (!GC_FRAMEP (frame
))
416 if (f
->output_data
.nothing
== 1 || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
418 x
= f
->output_data
.x
;
419 /* This frame matches if the window is its topmost widget. */
420 if (wdesc
== XtWindow (x
->widget
))
422 #if 0 /* I don't know why it did this,
423 but it seems logically wrong,
424 and it causes trouble for MapNotify events. */
425 /* Match if the window is this frame's menubar. */
426 if (x
->menubar_widget
427 && wdesc
== XtWindow (x
->menubar_widget
))
433 #endif /* USE_X_TOOLKIT */
437 /* Code to deal with bitmaps. Bitmaps are referenced by their bitmap
438 id, which is just an int that this section returns. Bitmaps are
439 reference counted so they can be shared among frames.
441 Bitmap indices are guaranteed to be > 0, so a negative number can
442 be used to indicate no bitmap.
444 If you use x_create_bitmap_from_data, then you must keep track of
445 the bitmaps yourself. That is, creating a bitmap from the same
446 data more than once will not be caught. */
449 /* Functions to access the contents of a bitmap, given an id. */
452 x_bitmap_height (f
, id
)
456 return FRAME_X_DISPLAY_INFO (f
)->bitmaps
[id
- 1].height
;
460 x_bitmap_width (f
, id
)
464 return FRAME_X_DISPLAY_INFO (f
)->bitmaps
[id
- 1].width
;
468 x_bitmap_pixmap (f
, id
)
472 return FRAME_X_DISPLAY_INFO (f
)->bitmaps
[id
- 1].pixmap
;
476 /* Allocate a new bitmap record. Returns index of new record. */
479 x_allocate_bitmap_record (f
)
482 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
485 if (dpyinfo
->bitmaps
== NULL
)
487 dpyinfo
->bitmaps_size
= 10;
489 = (struct x_bitmap_record
*) xmalloc (dpyinfo
->bitmaps_size
* sizeof (struct x_bitmap_record
));
490 dpyinfo
->bitmaps_last
= 1;
494 if (dpyinfo
->bitmaps_last
< dpyinfo
->bitmaps_size
)
495 return ++dpyinfo
->bitmaps_last
;
497 for (i
= 0; i
< dpyinfo
->bitmaps_size
; ++i
)
498 if (dpyinfo
->bitmaps
[i
].refcount
== 0)
501 dpyinfo
->bitmaps_size
*= 2;
503 = (struct x_bitmap_record
*) xrealloc (dpyinfo
->bitmaps
,
504 dpyinfo
->bitmaps_size
* sizeof (struct x_bitmap_record
));
505 return ++dpyinfo
->bitmaps_last
;
508 /* Add one reference to the reference count of the bitmap with id ID. */
511 x_reference_bitmap (f
, id
)
515 ++FRAME_X_DISPLAY_INFO (f
)->bitmaps
[id
- 1].refcount
;
518 /* Create a bitmap for frame F from a HEIGHT x WIDTH array of bits at BITS. */
521 x_create_bitmap_from_data (f
, bits
, width
, height
)
524 unsigned int width
, height
;
526 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
530 bitmap
= XCreateBitmapFromData (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
531 bits
, width
, height
);
536 id
= x_allocate_bitmap_record (f
);
537 dpyinfo
->bitmaps
[id
- 1].pixmap
= bitmap
;
538 dpyinfo
->bitmaps
[id
- 1].file
= NULL
;
539 dpyinfo
->bitmaps
[id
- 1].refcount
= 1;
540 dpyinfo
->bitmaps
[id
- 1].depth
= 1;
541 dpyinfo
->bitmaps
[id
- 1].height
= height
;
542 dpyinfo
->bitmaps
[id
- 1].width
= width
;
547 /* Create bitmap from file FILE for frame F. */
550 x_create_bitmap_from_file (f
, file
)
554 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
555 unsigned int width
, height
;
557 int xhot
, yhot
, result
, id
;
562 /* Look for an existing bitmap with the same name. */
563 for (id
= 0; id
< dpyinfo
->bitmaps_last
; ++id
)
565 if (dpyinfo
->bitmaps
[id
].refcount
566 && dpyinfo
->bitmaps
[id
].file
567 && !strcmp (dpyinfo
->bitmaps
[id
].file
, (char *) XSTRING (file
)->data
))
569 ++dpyinfo
->bitmaps
[id
].refcount
;
574 /* Search bitmap-file-path for the file, if appropriate. */
575 fd
= openp (Vx_bitmap_file_path
, file
, "", &found
, 0);
580 filename
= (char *) XSTRING (found
)->data
;
582 result
= XReadBitmapFile (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
583 filename
, &width
, &height
, &bitmap
, &xhot
, &yhot
);
584 if (result
!= BitmapSuccess
)
587 id
= x_allocate_bitmap_record (f
);
588 dpyinfo
->bitmaps
[id
- 1].pixmap
= bitmap
;
589 dpyinfo
->bitmaps
[id
- 1].refcount
= 1;
590 dpyinfo
->bitmaps
[id
- 1].file
= (char *) xmalloc (XSTRING (file
)->size
+ 1);
591 dpyinfo
->bitmaps
[id
- 1].depth
= 1;
592 dpyinfo
->bitmaps
[id
- 1].height
= height
;
593 dpyinfo
->bitmaps
[id
- 1].width
= width
;
594 strcpy (dpyinfo
->bitmaps
[id
- 1].file
, XSTRING (file
)->data
);
599 /* Remove reference to bitmap with id number ID. */
602 x_destroy_bitmap (f
, id
)
606 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
610 --dpyinfo
->bitmaps
[id
- 1].refcount
;
611 if (dpyinfo
->bitmaps
[id
- 1].refcount
== 0)
614 XFreePixmap (FRAME_X_DISPLAY (f
), dpyinfo
->bitmaps
[id
- 1].pixmap
);
615 if (dpyinfo
->bitmaps
[id
- 1].file
)
617 free (dpyinfo
->bitmaps
[id
- 1].file
);
618 dpyinfo
->bitmaps
[id
- 1].file
= NULL
;
625 /* Free all the bitmaps for the display specified by DPYINFO. */
628 x_destroy_all_bitmaps (dpyinfo
)
629 struct x_display_info
*dpyinfo
;
632 for (i
= 0; i
< dpyinfo
->bitmaps_last
; i
++)
633 if (dpyinfo
->bitmaps
[i
].refcount
> 0)
635 XFreePixmap (dpyinfo
->display
, dpyinfo
->bitmaps
[i
].pixmap
);
636 if (dpyinfo
->bitmaps
[i
].file
)
637 free (dpyinfo
->bitmaps
[i
].file
);
639 dpyinfo
->bitmaps_last
= 0;
642 /* Connect the frame-parameter names for X frames
643 to the ways of passing the parameter values to the window system.
645 The name of a parameter, as a Lisp symbol,
646 has an `x-frame-parameter' property which is an integer in Lisp
647 that is an index in this table. */
649 struct x_frame_parm_table
652 void (*setter
)( /* struct frame *frame, Lisp_Object val, oldval */ );
655 void x_set_foreground_color ();
656 void x_set_background_color ();
657 void x_set_mouse_color ();
658 void x_set_cursor_color ();
659 void x_set_border_color ();
660 void x_set_cursor_type ();
661 void x_set_icon_type ();
662 void x_set_icon_name ();
664 void x_set_border_width ();
665 void x_set_internal_border_width ();
666 void x_explicitly_set_name ();
667 void x_set_autoraise ();
668 void x_set_autolower ();
669 void x_set_vertical_scroll_bars ();
670 void x_set_visibility ();
671 void x_set_menu_bar_lines ();
672 void x_set_scroll_bar_width ();
674 void x_set_unsplittable ();
676 static struct x_frame_parm_table x_frame_parms
[] =
678 "auto-raise", x_set_autoraise
,
679 "auto-lower", x_set_autolower
,
680 "background-color", x_set_background_color
,
681 "border-color", x_set_border_color
,
682 "border-width", x_set_border_width
,
683 "cursor-color", x_set_cursor_color
,
684 "cursor-type", x_set_cursor_type
,
686 "foreground-color", x_set_foreground_color
,
687 "icon-name", x_set_icon_name
,
688 "icon-type", x_set_icon_type
,
689 "internal-border-width", x_set_internal_border_width
,
690 "menu-bar-lines", x_set_menu_bar_lines
,
691 "mouse-color", x_set_mouse_color
,
692 "name", x_explicitly_set_name
,
693 "scroll-bar-width", x_set_scroll_bar_width
,
694 "title", x_set_title
,
695 "unsplittable", x_set_unsplittable
,
696 "vertical-scroll-bars", x_set_vertical_scroll_bars
,
697 "visibility", x_set_visibility
,
700 /* Attach the `x-frame-parameter' properties to
701 the Lisp symbol names of parameters relevant to X. */
703 init_x_parm_symbols ()
707 for (i
= 0; i
< sizeof (x_frame_parms
) / sizeof (x_frame_parms
[0]); i
++)
708 Fput (intern (x_frame_parms
[i
].name
), Qx_frame_parameter
,
712 /* Change the parameters of FRAME as specified by ALIST.
713 If a parameter is not specially recognized, do nothing;
714 otherwise call the `x_set_...' function for that parameter. */
717 x_set_frame_parameters (f
, alist
)
723 /* If both of these parameters are present, it's more efficient to
724 set them both at once. So we wait until we've looked at the
725 entire list before we set them. */
726 Lisp_Object width
, height
;
729 Lisp_Object left
, top
;
731 /* Same with these. */
732 Lisp_Object icon_left
, icon_top
;
734 /* Record in these vectors all the parms specified. */
738 int left_no_change
= 0, top_no_change
= 0;
739 int icon_left_no_change
= 0, icon_top_no_change
= 0;
742 for (tail
= alist
; CONSP (tail
); tail
= Fcdr (tail
))
745 parms
= (Lisp_Object
*) alloca (i
* sizeof (Lisp_Object
));
746 values
= (Lisp_Object
*) alloca (i
* sizeof (Lisp_Object
));
748 /* Extract parm names and values into those vectors. */
751 for (tail
= alist
; CONSP (tail
); tail
= Fcdr (tail
))
753 Lisp_Object elt
, prop
, val
;
756 parms
[i
] = Fcar (elt
);
757 values
[i
] = Fcdr (elt
);
761 width
= height
= top
= left
= Qunbound
;
762 icon_left
= icon_top
= Qunbound
;
764 /* Now process them in reverse of specified order. */
765 for (i
--; i
>= 0; i
--)
767 Lisp_Object prop
, val
;
772 if (EQ (prop
, Qwidth
))
774 else if (EQ (prop
, Qheight
))
776 else if (EQ (prop
, Qtop
))
778 else if (EQ (prop
, Qleft
))
780 else if (EQ (prop
, Qicon_top
))
782 else if (EQ (prop
, Qicon_left
))
786 register Lisp_Object param_index
, old_value
;
788 param_index
= Fget (prop
, Qx_frame_parameter
);
789 old_value
= get_frame_param (f
, prop
);
790 store_frame_param (f
, prop
, val
);
791 if (NATNUMP (param_index
)
792 && (XFASTINT (param_index
)
793 < sizeof (x_frame_parms
)/sizeof (x_frame_parms
[0])))
794 (*x_frame_parms
[XINT (param_index
)].setter
)(f
, val
, old_value
);
798 /* Don't die if just one of these was set. */
799 if (EQ (left
, Qunbound
))
802 if (f
->output_data
.x
->left_pos
< 0)
803 left
= Fcons (Qplus
, Fcons (make_number (f
->output_data
.x
->left_pos
), Qnil
));
805 XSETINT (left
, f
->output_data
.x
->left_pos
);
807 if (EQ (top
, Qunbound
))
810 if (f
->output_data
.x
->top_pos
< 0)
811 top
= Fcons (Qplus
, Fcons (make_number (f
->output_data
.x
->top_pos
), Qnil
));
813 XSETINT (top
, f
->output_data
.x
->top_pos
);
816 /* If one of the icon positions was not set, preserve or default it. */
817 if (EQ (icon_left
, Qunbound
) || ! INTEGERP (icon_left
))
819 icon_left_no_change
= 1;
820 icon_left
= Fcdr (Fassq (Qicon_left
, f
->param_alist
));
821 if (NILP (icon_left
))
822 XSETINT (icon_left
, 0);
824 if (EQ (icon_top
, Qunbound
) || ! INTEGERP (icon_top
))
826 icon_top_no_change
= 1;
827 icon_top
= Fcdr (Fassq (Qicon_top
, f
->param_alist
));
829 XSETINT (icon_top
, 0);
832 /* Don't die if just one of these was set. */
833 if (EQ (width
, Qunbound
))
835 if (FRAME_NEW_WIDTH (f
))
836 XSETINT (width
, FRAME_NEW_WIDTH (f
));
838 XSETINT (width
, FRAME_WIDTH (f
));
840 if (EQ (height
, Qunbound
))
842 if (FRAME_NEW_HEIGHT (f
))
843 XSETINT (height
, FRAME_NEW_HEIGHT (f
));
845 XSETINT (height
, FRAME_HEIGHT (f
));
848 /* Don't set these parameters unless they've been explicitly
849 specified. The window might be mapped or resized while we're in
850 this function, and we don't want to override that unless the lisp
851 code has asked for it.
853 Don't set these parameters unless they actually differ from the
854 window's current parameters; the window may not actually exist
859 check_frame_size (f
, &height
, &width
);
861 XSETFRAME (frame
, f
);
863 if ((NUMBERP (width
) && XINT (width
) != FRAME_WIDTH (f
))
864 || (NUMBERP (height
) && XINT (height
) != FRAME_HEIGHT (f
))
865 || FRAME_NEW_HEIGHT (f
) || FRAME_NEW_WIDTH (f
))
866 Fset_frame_size (frame
, width
, height
);
868 if ((!NILP (left
) || !NILP (top
))
869 && ! (left_no_change
&& top_no_change
)
870 && ! (NUMBERP (left
) && XINT (left
) == f
->output_data
.x
->left_pos
871 && NUMBERP (top
) && XINT (top
) == f
->output_data
.x
->top_pos
))
876 /* Record the signs. */
877 f
->output_data
.x
->size_hint_flags
&= ~ (XNegative
| YNegative
);
878 if (EQ (left
, Qminus
))
879 f
->output_data
.x
->size_hint_flags
|= XNegative
;
880 else if (INTEGERP (left
))
882 leftpos
= XINT (left
);
884 f
->output_data
.x
->size_hint_flags
|= XNegative
;
886 else if (CONSP (left
) && EQ (XCONS (left
)->car
, Qminus
)
887 && CONSP (XCONS (left
)->cdr
)
888 && INTEGERP (XCONS (XCONS (left
)->cdr
)->car
))
890 leftpos
= - XINT (XCONS (XCONS (left
)->cdr
)->car
);
891 f
->output_data
.x
->size_hint_flags
|= XNegative
;
893 else if (CONSP (left
) && EQ (XCONS (left
)->car
, Qplus
)
894 && CONSP (XCONS (left
)->cdr
)
895 && INTEGERP (XCONS (XCONS (left
)->cdr
)->car
))
897 leftpos
= XINT (XCONS (XCONS (left
)->cdr
)->car
);
900 if (EQ (top
, Qminus
))
901 f
->output_data
.x
->size_hint_flags
|= YNegative
;
902 else if (INTEGERP (top
))
906 f
->output_data
.x
->size_hint_flags
|= YNegative
;
908 else if (CONSP (top
) && EQ (XCONS (top
)->car
, Qminus
)
909 && CONSP (XCONS (top
)->cdr
)
910 && INTEGERP (XCONS (XCONS (top
)->cdr
)->car
))
912 toppos
= - XINT (XCONS (XCONS (top
)->cdr
)->car
);
913 f
->output_data
.x
->size_hint_flags
|= YNegative
;
915 else if (CONSP (top
) && EQ (XCONS (top
)->car
, Qplus
)
916 && CONSP (XCONS (top
)->cdr
)
917 && INTEGERP (XCONS (XCONS (top
)->cdr
)->car
))
919 toppos
= XINT (XCONS (XCONS (top
)->cdr
)->car
);
923 /* Store the numeric value of the position. */
924 f
->output_data
.x
->top_pos
= toppos
;
925 f
->output_data
.x
->left_pos
= leftpos
;
927 f
->output_data
.x
->win_gravity
= NorthWestGravity
;
929 /* Actually set that position, and convert to absolute. */
930 x_set_offset (f
, leftpos
, toppos
, -1);
933 if ((!NILP (icon_left
) || !NILP (icon_top
))
934 && ! (icon_left_no_change
&& icon_top_no_change
))
935 x_wm_set_icon_position (f
, XINT (icon_left
), XINT (icon_top
));
939 /* Store the screen positions of frame F into XPTR and YPTR.
940 These are the positions of the containing window manager window,
941 not Emacs's own window. */
944 x_real_positions (f
, xptr
, yptr
)
951 /* This is pretty gross, but seems to be the easiest way out of
952 the problem that arises when restarting window-managers. */
955 Window outer
= XtWindow (f
->output_data
.x
->widget
);
957 Window outer
= f
->output_data
.x
->window_desc
;
959 Window tmp_root_window
;
960 Window
*tmp_children
;
965 x_catch_errors (FRAME_X_DISPLAY (f
));
967 XQueryTree (FRAME_X_DISPLAY (f
), outer
, &tmp_root_window
,
968 &f
->output_data
.x
->parent_desc
,
969 &tmp_children
, &tmp_nchildren
);
970 XFree ((char *) tmp_children
);
974 /* Find the position of the outside upper-left corner of
975 the inner window, with respect to the outer window. */
976 if (f
->output_data
.x
->parent_desc
!= FRAME_X_DISPLAY_INFO (f
)->root_window
)
978 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
980 /* From-window, to-window. */
982 XtWindow (f
->output_data
.x
->widget
),
984 f
->output_data
.x
->window_desc
,
986 f
->output_data
.x
->parent_desc
,
988 /* From-position, to-position. */
989 0, 0, &win_x
, &win_y
,
994 #if 0 /* The values seem to be right without this and wrong with. */
995 win_x
+= f
->output_data
.x
->border_width
;
996 win_y
+= f
->output_data
.x
->border_width
;
1000 /* It is possible for the window returned by the XQueryNotify
1001 to become invalid by the time we call XTranslateCoordinates.
1002 That can happen when you restart some window managers.
1003 If so, we get an error in XTranslateCoordinates.
1004 Detect that and try the whole thing over. */
1005 if (! x_had_errors_p (FRAME_X_DISPLAY (f
)))
1008 x_uncatch_errors (FRAME_X_DISPLAY (f
));
1011 x_uncatch_errors (FRAME_X_DISPLAY (f
));
1013 *xptr
= f
->output_data
.x
->left_pos
- win_x
;
1014 *yptr
= f
->output_data
.x
->top_pos
- win_y
;
1017 /* Insert a description of internally-recorded parameters of frame X
1018 into the parameter alist *ALISTPTR that is to be given to the user.
1019 Only parameters that are specific to the X window system
1020 and whose values are not correctly recorded in the frame's
1021 param_alist need to be considered here. */
1023 x_report_frame_params (f
, alistptr
)
1025 Lisp_Object
*alistptr
;
1030 /* Represent negative positions (off the top or left screen edge)
1031 in a way that Fmodify_frame_parameters will understand correctly. */
1032 XSETINT (tem
, f
->output_data
.x
->left_pos
);
1033 if (f
->output_data
.x
->left_pos
>= 0)
1034 store_in_alist (alistptr
, Qleft
, tem
);
1036 store_in_alist (alistptr
, Qleft
, Fcons (Qplus
, Fcons (tem
, Qnil
)));
1038 XSETINT (tem
, f
->output_data
.x
->top_pos
);
1039 if (f
->output_data
.x
->top_pos
>= 0)
1040 store_in_alist (alistptr
, Qtop
, tem
);
1042 store_in_alist (alistptr
, Qtop
, Fcons (Qplus
, Fcons (tem
, Qnil
)));
1044 store_in_alist (alistptr
, Qborder_width
,
1045 make_number (f
->output_data
.x
->border_width
));
1046 store_in_alist (alistptr
, Qinternal_border_width
,
1047 make_number (f
->output_data
.x
->internal_border_width
));
1048 sprintf (buf
, "%ld", (long) FRAME_X_WINDOW (f
));
1049 store_in_alist (alistptr
, Qwindow_id
,
1050 build_string (buf
));
1051 store_in_alist (alistptr
, Qicon_name
, f
->icon_name
);
1052 FRAME_SAMPLE_VISIBILITY (f
);
1053 store_in_alist (alistptr
, Qvisibility
,
1054 (FRAME_VISIBLE_P (f
) ? Qt
1055 : FRAME_ICONIFIED_P (f
) ? Qicon
: Qnil
));
1056 store_in_alist (alistptr
, Qdisplay
,
1057 XCONS (FRAME_X_DISPLAY_INFO (f
)->name_list_element
)->car
);
1061 /* Decide if color named COLOR is valid for the display associated with
1062 the selected frame; if so, return the rgb values in COLOR_DEF.
1063 If ALLOC is nonzero, allocate a new colormap cell. */
1066 defined_color (f
, color
, color_def
, alloc
)
1072 register int status
;
1073 Colormap screen_colormap
;
1074 Display
*display
= FRAME_X_DISPLAY (f
);
1077 screen_colormap
= DefaultColormap (display
, XDefaultScreen (display
));
1079 status
= XParseColor (display
, screen_colormap
, color
, color_def
);
1080 if (status
&& alloc
)
1082 status
= XAllocColor (display
, screen_colormap
, color_def
);
1085 /* If we got to this point, the colormap is full, so we're
1086 going to try and get the next closest color.
1087 The algorithm used is a least-squares matching, which is
1088 what X uses for closest color matching with StaticColor visuals. */
1093 long nearest_delta
, trial_delta
;
1096 no_cells
= XDisplayCells (display
, XDefaultScreen (display
));
1097 cells
= (XColor
*) alloca (sizeof (XColor
) * no_cells
);
1099 for (x
= 0; x
< no_cells
; x
++)
1102 XQueryColors (display
, screen_colormap
, cells
, no_cells
);
1104 /* I'm assuming CSE so I'm not going to condense this. */
1105 nearest_delta
= ((((color_def
->red
>> 8) - (cells
[0].red
>> 8))
1106 * ((color_def
->red
>> 8) - (cells
[0].red
>> 8)))
1108 (((color_def
->green
>> 8) - (cells
[0].green
>> 8))
1109 * ((color_def
->green
>> 8) - (cells
[0].green
>> 8)))
1111 (((color_def
->blue
>> 8) - (cells
[0].blue
>> 8))
1112 * ((color_def
->blue
>> 8) - (cells
[0].blue
>> 8))));
1113 for (x
= 1; x
< no_cells
; x
++)
1115 trial_delta
= ((((color_def
->red
>> 8) - (cells
[x
].red
>> 8))
1116 * ((color_def
->red
>> 8) - (cells
[x
].red
>> 8)))
1118 (((color_def
->green
>> 8) - (cells
[x
].green
>> 8))
1119 * ((color_def
->green
>> 8) - (cells
[x
].green
>> 8)))
1121 (((color_def
->blue
>> 8) - (cells
[x
].blue
>> 8))
1122 * ((color_def
->blue
>> 8) - (cells
[x
].blue
>> 8))));
1123 if (trial_delta
< nearest_delta
)
1126 temp
.red
= cells
[x
].red
;
1127 temp
.green
= cells
[x
].green
;
1128 temp
.blue
= cells
[x
].blue
;
1129 status
= XAllocColor (display
, screen_colormap
, &temp
);
1133 nearest_delta
= trial_delta
;
1137 color_def
->red
= cells
[nearest
].red
;
1138 color_def
->green
= cells
[nearest
].green
;
1139 color_def
->blue
= cells
[nearest
].blue
;
1140 status
= XAllocColor (display
, screen_colormap
, color_def
);
1151 /* Given a string ARG naming a color, compute a pixel value from it
1152 suitable for screen F.
1153 If F is not a color screen, return DEF (default) regardless of what
1157 x_decode_color (f
, arg
, def
)
1164 CHECK_STRING (arg
, 0);
1166 if (strcmp (XSTRING (arg
)->data
, "black") == 0)
1167 return BLACK_PIX_DEFAULT (f
);
1168 else if (strcmp (XSTRING (arg
)->data
, "white") == 0)
1169 return WHITE_PIX_DEFAULT (f
);
1171 if (FRAME_X_DISPLAY_INFO (f
)->n_planes
== 1)
1174 /* defined_color is responsible for coping with failures
1175 by looking for a near-miss. */
1176 if (defined_color (f
, XSTRING (arg
)->data
, &cdef
, 1))
1179 Fsignal (Qerror
, Fcons (build_string ("undefined color"),
1180 Fcons (arg
, Qnil
)));
1183 /* Functions called only from `x_set_frame_param'
1184 to set individual parameters.
1186 If FRAME_X_WINDOW (f) is 0,
1187 the frame is being created and its X-window does not exist yet.
1188 In that case, just record the parameter's new value
1189 in the standard place; do not attempt to change the window. */
1192 x_set_foreground_color (f
, arg
, oldval
)
1194 Lisp_Object arg
, oldval
;
1196 f
->output_data
.x
->foreground_pixel
1197 = x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1198 if (FRAME_X_WINDOW (f
) != 0)
1201 XSetForeground (FRAME_X_DISPLAY (f
), f
->output_data
.x
->normal_gc
,
1202 f
->output_data
.x
->foreground_pixel
);
1203 XSetBackground (FRAME_X_DISPLAY (f
), f
->output_data
.x
->reverse_gc
,
1204 f
->output_data
.x
->foreground_pixel
);
1206 recompute_basic_faces (f
);
1207 if (FRAME_VISIBLE_P (f
))
1213 x_set_background_color (f
, arg
, oldval
)
1215 Lisp_Object arg
, oldval
;
1220 f
->output_data
.x
->background_pixel
1221 = x_decode_color (f
, arg
, WHITE_PIX_DEFAULT (f
));
1223 if (FRAME_X_WINDOW (f
) != 0)
1226 /* The main frame area. */
1227 XSetBackground (FRAME_X_DISPLAY (f
), f
->output_data
.x
->normal_gc
,
1228 f
->output_data
.x
->background_pixel
);
1229 XSetForeground (FRAME_X_DISPLAY (f
), f
->output_data
.x
->reverse_gc
,
1230 f
->output_data
.x
->background_pixel
);
1231 XSetForeground (FRAME_X_DISPLAY (f
), f
->output_data
.x
->cursor_gc
,
1232 f
->output_data
.x
->background_pixel
);
1233 XSetWindowBackground (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1234 f
->output_data
.x
->background_pixel
);
1237 for (bar
= FRAME_SCROLL_BARS (f
); !NILP (bar
);
1238 bar
= XSCROLL_BAR (bar
)->next
)
1239 XSetWindowBackground (FRAME_X_DISPLAY (f
),
1240 SCROLL_BAR_X_WINDOW (XSCROLL_BAR (bar
)),
1241 f
->output_data
.x
->background_pixel
);
1245 recompute_basic_faces (f
);
1247 if (FRAME_VISIBLE_P (f
))
1253 x_set_mouse_color (f
, arg
, oldval
)
1255 Lisp_Object arg
, oldval
;
1257 Cursor cursor
, nontext_cursor
, mode_cursor
, cross_cursor
;
1260 if (!EQ (Qnil
, arg
))
1261 f
->output_data
.x
->mouse_pixel
1262 = x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1263 mask_color
= f
->output_data
.x
->background_pixel
;
1264 /* No invisible pointers. */
1265 if (mask_color
== f
->output_data
.x
->mouse_pixel
1266 && mask_color
== f
->output_data
.x
->background_pixel
)
1267 f
->output_data
.x
->mouse_pixel
= f
->output_data
.x
->foreground_pixel
;
1271 /* It's not okay to crash if the user selects a screwy cursor. */
1272 x_catch_errors (FRAME_X_DISPLAY (f
));
1274 if (!EQ (Qnil
, Vx_pointer_shape
))
1276 CHECK_NUMBER (Vx_pointer_shape
, 0);
1277 cursor
= XCreateFontCursor (FRAME_X_DISPLAY (f
), XINT (Vx_pointer_shape
));
1280 cursor
= XCreateFontCursor (FRAME_X_DISPLAY (f
), XC_xterm
);
1281 x_check_errors (FRAME_X_DISPLAY (f
), "bad text pointer cursor: %s");
1283 if (!EQ (Qnil
, Vx_nontext_pointer_shape
))
1285 CHECK_NUMBER (Vx_nontext_pointer_shape
, 0);
1286 nontext_cursor
= XCreateFontCursor (FRAME_X_DISPLAY (f
),
1287 XINT (Vx_nontext_pointer_shape
));
1290 nontext_cursor
= XCreateFontCursor (FRAME_X_DISPLAY (f
), XC_left_ptr
);
1291 x_check_errors (FRAME_X_DISPLAY (f
), "bad nontext pointer cursor: %s");
1293 if (!EQ (Qnil
, Vx_mode_pointer_shape
))
1295 CHECK_NUMBER (Vx_mode_pointer_shape
, 0);
1296 mode_cursor
= XCreateFontCursor (FRAME_X_DISPLAY (f
),
1297 XINT (Vx_mode_pointer_shape
));
1300 mode_cursor
= XCreateFontCursor (FRAME_X_DISPLAY (f
), XC_xterm
);
1301 x_check_errors (FRAME_X_DISPLAY (f
), "bad modeline pointer cursor: %s");
1303 if (!EQ (Qnil
, Vx_sensitive_text_pointer_shape
))
1305 CHECK_NUMBER (Vx_sensitive_text_pointer_shape
, 0);
1307 = XCreateFontCursor (FRAME_X_DISPLAY (f
),
1308 XINT (Vx_sensitive_text_pointer_shape
));
1311 cross_cursor
= XCreateFontCursor (FRAME_X_DISPLAY (f
), XC_crosshair
);
1313 /* Check and report errors with the above calls. */
1314 x_check_errors (FRAME_X_DISPLAY (f
), "can't set cursor shape: %s");
1315 x_uncatch_errors (FRAME_X_DISPLAY (f
));
1318 XColor fore_color
, back_color
;
1320 fore_color
.pixel
= f
->output_data
.x
->mouse_pixel
;
1321 back_color
.pixel
= mask_color
;
1322 XQueryColor (FRAME_X_DISPLAY (f
),
1323 DefaultColormap (FRAME_X_DISPLAY (f
),
1324 DefaultScreen (FRAME_X_DISPLAY (f
))),
1326 XQueryColor (FRAME_X_DISPLAY (f
),
1327 DefaultColormap (FRAME_X_DISPLAY (f
),
1328 DefaultScreen (FRAME_X_DISPLAY (f
))),
1330 XRecolorCursor (FRAME_X_DISPLAY (f
), cursor
,
1331 &fore_color
, &back_color
);
1332 XRecolorCursor (FRAME_X_DISPLAY (f
), nontext_cursor
,
1333 &fore_color
, &back_color
);
1334 XRecolorCursor (FRAME_X_DISPLAY (f
), mode_cursor
,
1335 &fore_color
, &back_color
);
1336 XRecolorCursor (FRAME_X_DISPLAY (f
), cross_cursor
,
1337 &fore_color
, &back_color
);
1340 if (FRAME_X_WINDOW (f
) != 0)
1342 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), cursor
);
1345 if (cursor
!= f
->output_data
.x
->text_cursor
&& f
->output_data
.x
->text_cursor
!= 0)
1346 XFreeCursor (FRAME_X_DISPLAY (f
), f
->output_data
.x
->text_cursor
);
1347 f
->output_data
.x
->text_cursor
= cursor
;
1349 if (nontext_cursor
!= f
->output_data
.x
->nontext_cursor
1350 && f
->output_data
.x
->nontext_cursor
!= 0)
1351 XFreeCursor (FRAME_X_DISPLAY (f
), f
->output_data
.x
->nontext_cursor
);
1352 f
->output_data
.x
->nontext_cursor
= nontext_cursor
;
1354 if (mode_cursor
!= f
->output_data
.x
->modeline_cursor
1355 && f
->output_data
.x
->modeline_cursor
!= 0)
1356 XFreeCursor (FRAME_X_DISPLAY (f
), f
->output_data
.x
->modeline_cursor
);
1357 f
->output_data
.x
->modeline_cursor
= mode_cursor
;
1358 if (cross_cursor
!= f
->output_data
.x
->cross_cursor
1359 && f
->output_data
.x
->cross_cursor
!= 0)
1360 XFreeCursor (FRAME_X_DISPLAY (f
), f
->output_data
.x
->cross_cursor
);
1361 f
->output_data
.x
->cross_cursor
= cross_cursor
;
1363 XFlush (FRAME_X_DISPLAY (f
));
1368 x_set_cursor_color (f
, arg
, oldval
)
1370 Lisp_Object arg
, oldval
;
1372 unsigned long fore_pixel
;
1374 if (!EQ (Vx_cursor_fore_pixel
, Qnil
))
1375 fore_pixel
= x_decode_color (f
, Vx_cursor_fore_pixel
,
1376 WHITE_PIX_DEFAULT (f
));
1378 fore_pixel
= f
->output_data
.x
->background_pixel
;
1379 f
->output_data
.x
->cursor_pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1381 /* Make sure that the cursor color differs from the background color. */
1382 if (f
->output_data
.x
->cursor_pixel
== f
->output_data
.x
->background_pixel
)
1384 f
->output_data
.x
->cursor_pixel
= f
->output_data
.x
->mouse_pixel
;
1385 if (f
->output_data
.x
->cursor_pixel
== fore_pixel
)
1386 fore_pixel
= f
->output_data
.x
->background_pixel
;
1388 f
->output_data
.x
->cursor_foreground_pixel
= fore_pixel
;
1390 if (FRAME_X_WINDOW (f
) != 0)
1393 XSetBackground (FRAME_X_DISPLAY (f
), f
->output_data
.x
->cursor_gc
,
1394 f
->output_data
.x
->cursor_pixel
);
1395 XSetForeground (FRAME_X_DISPLAY (f
), f
->output_data
.x
->cursor_gc
,
1399 if (FRAME_VISIBLE_P (f
))
1401 x_display_cursor (f
, 0);
1402 x_display_cursor (f
, 1);
1407 /* Set the border-color of frame F to value described by ARG.
1408 ARG can be a string naming a color.
1409 The border-color is used for the border that is drawn by the X server.
1410 Note that this does not fully take effect if done before
1411 F has an x-window; it must be redone when the window is created.
1413 Note: this is done in two routines because of the way X10 works.
1415 Note: under X11, this is normally the province of the window manager,
1416 and so emacs' border colors may be overridden. */
1419 x_set_border_color (f
, arg
, oldval
)
1421 Lisp_Object arg
, oldval
;
1426 CHECK_STRING (arg
, 0);
1427 str
= XSTRING (arg
)->data
;
1429 pix
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1431 x_set_border_pixel (f
, pix
);
1434 /* Set the border-color of frame F to pixel value PIX.
1435 Note that this does not fully take effect if done before
1436 F has an x-window. */
1438 x_set_border_pixel (f
, pix
)
1442 f
->output_data
.x
->border_pixel
= pix
;
1444 if (FRAME_X_WINDOW (f
) != 0 && f
->output_data
.x
->border_width
> 0)
1450 XSetWindowBorder (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1451 (unsigned long)pix
);
1454 if (FRAME_VISIBLE_P (f
))
1460 x_set_cursor_type (f
, arg
, oldval
)
1462 Lisp_Object arg
, oldval
;
1466 FRAME_DESIRED_CURSOR (f
) = bar_cursor
;
1467 f
->output_data
.x
->cursor_width
= 2;
1469 else if (CONSP (arg
) && EQ (XCONS (arg
)->car
, Qbar
)
1470 && INTEGERP (XCONS (arg
)->cdr
))
1472 FRAME_DESIRED_CURSOR (f
) = bar_cursor
;
1473 f
->output_data
.x
->cursor_width
= XINT (XCONS (arg
)->cdr
);
1476 /* Treat anything unknown as "box cursor".
1477 It was bad to signal an error; people have trouble fixing
1478 .Xdefaults with Emacs, when it has something bad in it. */
1479 FRAME_DESIRED_CURSOR (f
) = filled_box_cursor
;
1481 /* Make sure the cursor gets redrawn. This is overkill, but how
1482 often do people change cursor types? */
1483 update_mode_lines
++;
1487 x_set_icon_type (f
, arg
, oldval
)
1489 Lisp_Object arg
, oldval
;
1496 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1499 else if (!STRINGP (oldval
) && EQ (oldval
, Qnil
) == EQ (arg
, Qnil
))
1504 result
= x_text_icon (f
,
1505 (char *) XSTRING ((!NILP (f
->icon_name
)
1509 result
= x_bitmap_icon (f
, arg
);
1514 error ("No icon window available");
1517 XFlush (FRAME_X_DISPLAY (f
));
1521 /* Return non-nil if frame F wants a bitmap icon. */
1529 tem
= assq_no_quit (Qicon_type
, f
->param_alist
);
1531 return XCONS (tem
)->cdr
;
1537 x_set_icon_name (f
, arg
, oldval
)
1539 Lisp_Object arg
, oldval
;
1546 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1549 else if (!STRINGP (oldval
) && EQ (oldval
, Qnil
) == EQ (arg
, Qnil
))
1554 if (f
->output_data
.x
->icon_bitmap
!= 0)
1559 result
= x_text_icon (f
,
1560 (char *) XSTRING ((!NILP (f
->icon_name
)
1569 error ("No icon window available");
1572 XFlush (FRAME_X_DISPLAY (f
));
1576 extern Lisp_Object
x_new_font ();
1579 x_set_font (f
, arg
, oldval
)
1581 Lisp_Object arg
, oldval
;
1585 CHECK_STRING (arg
, 1);
1588 result
= x_new_font (f
, XSTRING (arg
)->data
);
1591 if (EQ (result
, Qnil
))
1592 error ("Font `%s' is not defined", XSTRING (arg
)->data
);
1593 else if (EQ (result
, Qt
))
1594 error ("the characters of the given font have varying widths");
1595 else if (STRINGP (result
))
1597 recompute_basic_faces (f
);
1598 store_frame_param (f
, Qfont
, result
);
1605 x_set_border_width (f
, arg
, oldval
)
1607 Lisp_Object arg
, oldval
;
1609 CHECK_NUMBER (arg
, 0);
1611 if (XINT (arg
) == f
->output_data
.x
->border_width
)
1614 if (FRAME_X_WINDOW (f
) != 0)
1615 error ("Cannot change the border width of a window");
1617 f
->output_data
.x
->border_width
= XINT (arg
);
1621 x_set_internal_border_width (f
, arg
, oldval
)
1623 Lisp_Object arg
, oldval
;
1626 int old
= f
->output_data
.x
->internal_border_width
;
1628 CHECK_NUMBER (arg
, 0);
1629 f
->output_data
.x
->internal_border_width
= XINT (arg
);
1630 if (f
->output_data
.x
->internal_border_width
< 0)
1631 f
->output_data
.x
->internal_border_width
= 0;
1633 if (f
->output_data
.x
->internal_border_width
== old
)
1636 if (FRAME_X_WINDOW (f
) != 0)
1639 x_set_window_size (f
, 0, f
->width
, f
->height
);
1641 x_set_resize_hint (f
);
1643 XFlush (FRAME_X_DISPLAY (f
));
1645 SET_FRAME_GARBAGED (f
);
1650 x_set_visibility (f
, value
, oldval
)
1652 Lisp_Object value
, oldval
;
1655 XSETFRAME (frame
, f
);
1658 Fmake_frame_invisible (frame
, Qt
);
1659 else if (EQ (value
, Qicon
))
1660 Ficonify_frame (frame
);
1662 Fmake_frame_visible (frame
);
1666 x_set_menu_bar_lines_1 (window
, n
)
1670 struct window
*w
= XWINDOW (window
);
1672 XSETFASTINT (w
->top
, XFASTINT (w
->top
) + n
);
1673 XSETFASTINT (w
->height
, XFASTINT (w
->height
) - n
);
1675 /* Handle just the top child in a vertical split. */
1676 if (!NILP (w
->vchild
))
1677 x_set_menu_bar_lines_1 (w
->vchild
, n
);
1679 /* Adjust all children in a horizontal split. */
1680 for (window
= w
->hchild
; !NILP (window
); window
= w
->next
)
1682 w
= XWINDOW (window
);
1683 x_set_menu_bar_lines_1 (window
, n
);
1688 x_set_menu_bar_lines (f
, value
, oldval
)
1690 Lisp_Object value
, oldval
;
1693 int olines
= FRAME_MENU_BAR_LINES (f
);
1695 /* Right now, menu bars don't work properly in minibuf-only frames;
1696 most of the commands try to apply themselves to the minibuffer
1697 frame itslef, and get an error because you can't switch buffers
1698 in or split the minibuffer window. */
1699 if (FRAME_MINIBUF_ONLY_P (f
))
1702 if (INTEGERP (value
))
1703 nlines
= XINT (value
);
1707 #ifdef USE_X_TOOLKIT
1708 FRAME_MENU_BAR_LINES (f
) = 0;
1711 FRAME_EXTERNAL_MENU_BAR (f
) = 1;
1712 if (FRAME_X_P (f
) && f
->output_data
.x
->menubar_widget
== 0)
1713 /* Make sure next redisplay shows the menu bar. */
1714 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= Qt
;
1718 if (FRAME_EXTERNAL_MENU_BAR (f
) == 1)
1719 free_frame_menubar (f
);
1720 FRAME_EXTERNAL_MENU_BAR (f
) = 0;
1722 f
->output_data
.x
->menubar_widget
= 0;
1724 #else /* not USE_X_TOOLKIT */
1725 FRAME_MENU_BAR_LINES (f
) = nlines
;
1726 x_set_menu_bar_lines_1 (f
->root_window
, nlines
- olines
);
1727 #endif /* not USE_X_TOOLKIT */
1730 /* Change the name of frame F to NAME. If NAME is nil, set F's name to
1733 If EXPLICIT is non-zero, that indicates that lisp code is setting the
1734 name; if NAME is a string, set F's name to NAME and set
1735 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1737 If EXPLICIT is zero, that indicates that Emacs redisplay code is
1738 suggesting a new name, which lisp code should override; if
1739 F->explicit_name is set, ignore the new name; otherwise, set it. */
1742 x_set_name (f
, name
, explicit)
1747 /* Make sure that requests from lisp code override requests from
1748 Emacs redisplay code. */
1751 /* If we're switching from explicit to implicit, we had better
1752 update the mode lines and thereby update the title. */
1753 if (f
->explicit_name
&& NILP (name
))
1754 update_mode_lines
= 1;
1756 f
->explicit_name
= ! NILP (name
);
1758 else if (f
->explicit_name
)
1761 /* If NAME is nil, set the name to the x_id_name. */
1764 /* Check for no change needed in this very common case
1765 before we do any consing. */
1766 if (!strcmp (FRAME_X_DISPLAY_INFO (f
)->x_id_name
,
1767 XSTRING (f
->name
)->data
))
1769 name
= build_string (FRAME_X_DISPLAY_INFO (f
)->x_id_name
);
1772 CHECK_STRING (name
, 0);
1774 /* Don't change the name if it's already NAME. */
1775 if (! NILP (Fstring_equal (name
, f
->name
)))
1780 /* For setting the frame title, the title parameter should override
1781 the name parameter. */
1782 if (! NILP (f
->title
))
1785 if (FRAME_X_WINDOW (f
))
1790 XTextProperty text
, icon
;
1791 Lisp_Object icon_name
;
1793 text
.value
= XSTRING (name
)->data
;
1794 text
.encoding
= XA_STRING
;
1796 text
.nitems
= XSTRING (name
)->size
;
1798 icon_name
= (!NILP (f
->icon_name
) ? f
->icon_name
: name
);
1800 icon
.value
= XSTRING (icon_name
)->data
;
1801 icon
.encoding
= XA_STRING
;
1803 icon
.nitems
= XSTRING (icon_name
)->size
;
1804 #ifdef USE_X_TOOLKIT
1805 XSetWMName (FRAME_X_DISPLAY (f
),
1806 XtWindow (f
->output_data
.x
->widget
), &text
);
1807 XSetWMIconName (FRAME_X_DISPLAY (f
), XtWindow (f
->output_data
.x
->widget
),
1809 #else /* not USE_X_TOOLKIT */
1810 XSetWMName (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), &text
);
1811 XSetWMIconName (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), &icon
);
1812 #endif /* not USE_X_TOOLKIT */
1814 #else /* not HAVE_X11R4 */
1815 XSetIconName (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1816 XSTRING (name
)->data
);
1817 XStoreName (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1818 XSTRING (name
)->data
);
1819 #endif /* not HAVE_X11R4 */
1824 /* This function should be called when the user's lisp code has
1825 specified a name for the frame; the name will override any set by the
1828 x_explicitly_set_name (f
, arg
, oldval
)
1830 Lisp_Object arg
, oldval
;
1832 x_set_name (f
, arg
, 1);
1835 /* This function should be called by Emacs redisplay code to set the
1836 name; names set this way will never override names set by the user's
1839 x_implicitly_set_name (f
, arg
, oldval
)
1841 Lisp_Object arg
, oldval
;
1843 x_set_name (f
, arg
, 0);
1846 /* Change the title of frame F to NAME.
1847 If NAME is nil, use the frame name as the title.
1849 If EXPLICIT is non-zero, that indicates that lisp code is setting the
1850 name; if NAME is a string, set F's name to NAME and set
1851 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1853 If EXPLICIT is zero, that indicates that Emacs redisplay code is
1854 suggesting a new name, which lisp code should override; if
1855 F->explicit_name is set, ignore the new name; otherwise, set it. */
1858 x_set_title (f
, name
)
1862 /* Don't change the title if it's already NAME. */
1863 if (EQ (name
, f
->title
))
1866 update_mode_lines
= 1;
1873 if (FRAME_X_WINDOW (f
))
1878 XTextProperty text
, icon
;
1879 Lisp_Object icon_name
;
1881 text
.value
= XSTRING (name
)->data
;
1882 text
.encoding
= XA_STRING
;
1884 text
.nitems
= XSTRING (name
)->size
;
1886 icon_name
= (!NILP (f
->icon_name
) ? f
->icon_name
: name
);
1888 icon
.value
= XSTRING (icon_name
)->data
;
1889 icon
.encoding
= XA_STRING
;
1891 icon
.nitems
= XSTRING (icon_name
)->size
;
1892 #ifdef USE_X_TOOLKIT
1893 XSetWMName (FRAME_X_DISPLAY (f
),
1894 XtWindow (f
->output_data
.x
->widget
), &text
);
1895 XSetWMIconName (FRAME_X_DISPLAY (f
), XtWindow (f
->output_data
.x
->widget
),
1897 #else /* not USE_X_TOOLKIT */
1898 XSetWMName (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), &text
);
1899 XSetWMIconName (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), &icon
);
1900 #endif /* not USE_X_TOOLKIT */
1902 #else /* not HAVE_X11R4 */
1903 XSetIconName (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1904 XSTRING (name
)->data
);
1905 XStoreName (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1906 XSTRING (name
)->data
);
1907 #endif /* not HAVE_X11R4 */
1913 x_set_autoraise (f
, arg
, oldval
)
1915 Lisp_Object arg
, oldval
;
1917 f
->auto_raise
= !EQ (Qnil
, arg
);
1921 x_set_autolower (f
, arg
, oldval
)
1923 Lisp_Object arg
, oldval
;
1925 f
->auto_lower
= !EQ (Qnil
, arg
);
1929 x_set_unsplittable (f
, arg
, oldval
)
1931 Lisp_Object arg
, oldval
;
1933 f
->no_split
= !NILP (arg
);
1937 x_set_vertical_scroll_bars (f
, arg
, oldval
)
1939 Lisp_Object arg
, oldval
;
1941 if (NILP (arg
) != ! FRAME_HAS_VERTICAL_SCROLL_BARS (f
))
1943 FRAME_HAS_VERTICAL_SCROLL_BARS (f
) = ! NILP (arg
);
1945 /* We set this parameter before creating the X window for the
1946 frame, so we can get the geometry right from the start.
1947 However, if the window hasn't been created yet, we shouldn't
1948 call x_set_window_size. */
1949 if (FRAME_X_WINDOW (f
))
1950 x_set_window_size (f
, 0, FRAME_WIDTH (f
), FRAME_HEIGHT (f
));
1955 x_set_scroll_bar_width (f
, arg
, oldval
)
1957 Lisp_Object arg
, oldval
;
1961 FRAME_SCROLL_BAR_PIXEL_WIDTH (f
) = 0;
1962 FRAME_SCROLL_BAR_COLS (f
) = 2;
1964 else if (INTEGERP (arg
) && XINT (arg
) > 0
1965 && XFASTINT (arg
) != FRAME_SCROLL_BAR_PIXEL_WIDTH (f
))
1967 int wid
= FONT_WIDTH (f
->output_data
.x
->font
);
1968 FRAME_SCROLL_BAR_PIXEL_WIDTH (f
) = XFASTINT (arg
);
1969 FRAME_SCROLL_BAR_COLS (f
) = (XFASTINT (arg
) + wid
-1) / wid
;
1970 if (FRAME_X_WINDOW (f
))
1971 x_set_window_size (f
, 0, FRAME_WIDTH (f
), FRAME_HEIGHT (f
));
1975 /* Subroutines of creating an X frame. */
1977 /* Make sure that Vx_resource_name is set to a reasonable value.
1978 Fix it up, or set it to `emacs' if it is too hopeless. */
1981 validate_x_resource_name ()
1984 /* Number of valid characters in the resource name. */
1986 /* Number of invalid characters in the resource name. */
1991 if (STRINGP (Vx_resource_name
))
1993 unsigned char *p
= XSTRING (Vx_resource_name
)->data
;
1996 len
= XSTRING (Vx_resource_name
)->size
;
1998 /* Only letters, digits, - and _ are valid in resource names.
1999 Count the valid characters and count the invalid ones. */
2000 for (i
= 0; i
< len
; i
++)
2003 if (! ((c
>= 'a' && c
<= 'z')
2004 || (c
>= 'A' && c
<= 'Z')
2005 || (c
>= '0' && c
<= '9')
2006 || c
== '-' || c
== '_'))
2013 /* Not a string => completely invalid. */
2014 bad_count
= 5, good_count
= 0;
2016 /* If name is valid already, return. */
2020 /* If name is entirely invalid, or nearly so, use `emacs'. */
2022 || (good_count
== 1 && bad_count
> 0))
2024 Vx_resource_name
= build_string ("emacs");
2028 /* Name is partly valid. Copy it and replace the invalid characters
2029 with underscores. */
2031 Vx_resource_name
= new = Fcopy_sequence (Vx_resource_name
);
2033 for (i
= 0; i
< len
; i
++)
2035 int c
= XSTRING (new)->data
[i
];
2036 if (! ((c
>= 'a' && c
<= 'z')
2037 || (c
>= 'A' && c
<= 'Z')
2038 || (c
>= '0' && c
<= '9')
2039 || c
== '-' || c
== '_'))
2040 XSTRING (new)->data
[i
] = '_';
2045 extern char *x_get_string_resource ();
2047 DEFUN ("x-get-resource", Fx_get_resource
, Sx_get_resource
, 2, 4, 0,
2048 "Return the value of ATTRIBUTE, of class CLASS, from the X defaults database.\n\
2049 This uses `INSTANCE.ATTRIBUTE' as the key and `Emacs.CLASS' as the\n\
2050 class, where INSTANCE is the name under which Emacs was invoked, or\n\
2051 the name specified by the `-name' or `-rn' command-line arguments.\n\
2053 The optional arguments COMPONENT and SUBCLASS add to the key and the\n\
2054 class, respectively. You must specify both of them or neither.\n\
2055 If you specify them, the key is `INSTANCE.COMPONENT.ATTRIBUTE'\n\
2056 and the class is `Emacs.CLASS.SUBCLASS'.")
2057 (attribute
, class, component
, subclass
)
2058 Lisp_Object attribute
, class, component
, subclass
;
2060 register char *value
;
2066 CHECK_STRING (attribute
, 0);
2067 CHECK_STRING (class, 0);
2069 if (!NILP (component
))
2070 CHECK_STRING (component
, 1);
2071 if (!NILP (subclass
))
2072 CHECK_STRING (subclass
, 2);
2073 if (NILP (component
) != NILP (subclass
))
2074 error ("x-get-resource: must specify both COMPONENT and SUBCLASS or neither");
2076 validate_x_resource_name ();
2078 /* Allocate space for the components, the dots which separate them,
2079 and the final '\0'. Make them big enough for the worst case. */
2080 name_key
= (char *) alloca (XSTRING (Vx_resource_name
)->size
2081 + (STRINGP (component
)
2082 ? XSTRING (component
)->size
: 0)
2083 + XSTRING (attribute
)->size
2086 class_key
= (char *) alloca ((sizeof (EMACS_CLASS
) - 1)
2087 + XSTRING (class)->size
2088 + (STRINGP (subclass
)
2089 ? XSTRING (subclass
)->size
: 0)
2092 /* Start with emacs.FRAMENAME for the name (the specific one)
2093 and with `Emacs' for the class key (the general one). */
2094 strcpy (name_key
, XSTRING (Vx_resource_name
)->data
);
2095 strcpy (class_key
, EMACS_CLASS
);
2097 strcat (class_key
, ".");
2098 strcat (class_key
, XSTRING (class)->data
);
2100 if (!NILP (component
))
2102 strcat (class_key
, ".");
2103 strcat (class_key
, XSTRING (subclass
)->data
);
2105 strcat (name_key
, ".");
2106 strcat (name_key
, XSTRING (component
)->data
);
2109 strcat (name_key
, ".");
2110 strcat (name_key
, XSTRING (attribute
)->data
);
2112 value
= x_get_string_resource (check_x_display_info (Qnil
)->xrdb
,
2113 name_key
, class_key
);
2115 if (value
!= (char *) 0)
2116 return build_string (value
);
2121 /* Used when C code wants a resource value. */
2124 x_get_resource_string (attribute
, class)
2125 char *attribute
, *class;
2127 register char *value
;
2131 /* Allocate space for the components, the dots which separate them,
2132 and the final '\0'. */
2133 name_key
= (char *) alloca (XSTRING (Vinvocation_name
)->size
2134 + strlen (attribute
) + 2);
2135 class_key
= (char *) alloca ((sizeof (EMACS_CLASS
) - 1)
2136 + strlen (class) + 2);
2138 sprintf (name_key
, "%s.%s",
2139 XSTRING (Vinvocation_name
)->data
,
2141 sprintf (class_key
, "%s.%s", EMACS_CLASS
, class);
2143 return x_get_string_resource (FRAME_X_DISPLAY_INFO (selected_frame
)->xrdb
,
2144 name_key
, class_key
);
2147 /* Types we might convert a resource string into. */
2150 number
, boolean
, string
, symbol
2153 /* Return the value of parameter PARAM.
2155 First search ALIST, then Vdefault_frame_alist, then the X defaults
2156 database, using ATTRIBUTE as the attribute name and CLASS as its class.
2158 Convert the resource to the type specified by desired_type.
2160 If no default is specified, return Qunbound. If you call
2161 x_get_arg, make sure you deal with Qunbound in a reasonable way,
2162 and don't let it get stored in any Lisp-visible variables! */
2165 x_get_arg (alist
, param
, attribute
, class, type
)
2166 Lisp_Object alist
, param
;
2169 enum resource_types type
;
2171 register Lisp_Object tem
;
2173 tem
= Fassq (param
, alist
);
2175 tem
= Fassq (param
, Vdefault_frame_alist
);
2181 tem
= Fx_get_resource (build_string (attribute
),
2182 build_string (class),
2191 return make_number (atoi (XSTRING (tem
)->data
));
2194 tem
= Fdowncase (tem
);
2195 if (!strcmp (XSTRING (tem
)->data
, "on")
2196 || !strcmp (XSTRING (tem
)->data
, "true"))
2205 /* As a special case, we map the values `true' and `on'
2206 to Qt, and `false' and `off' to Qnil. */
2209 lower
= Fdowncase (tem
);
2210 if (!strcmp (XSTRING (lower
)->data
, "on")
2211 || !strcmp (XSTRING (lower
)->data
, "true"))
2213 else if (!strcmp (XSTRING (lower
)->data
, "off")
2214 || !strcmp (XSTRING (lower
)->data
, "false"))
2217 return Fintern (tem
, Qnil
);
2230 /* Record in frame F the specified or default value according to ALIST
2231 of the parameter named PARAM (a Lisp symbol).
2232 If no value is specified for PARAM, look for an X default for XPROP
2233 on the frame named NAME.
2234 If that is not found either, use the value DEFLT. */
2237 x_default_parameter (f
, alist
, prop
, deflt
, xprop
, xclass
, type
)
2244 enum resource_types type
;
2248 tem
= x_get_arg (alist
, prop
, xprop
, xclass
, type
);
2249 if (EQ (tem
, Qunbound
))
2251 x_set_frame_parameters (f
, Fcons (Fcons (prop
, tem
), Qnil
));
2255 DEFUN ("x-parse-geometry", Fx_parse_geometry
, Sx_parse_geometry
, 1, 1, 0,
2256 "Parse an X-style geometry string STRING.\n\
2257 Returns an alist of the form ((top . TOP), (left . LEFT) ... ).\n\
2258 The properties returned may include `top', `left', `height', and `width'.\n\
2259 The value of `left' or `top' may be an integer,\n\
2260 or a list (+ N) meaning N pixels relative to top/left corner,\n\
2261 or a list (- N) meaning -N pixels relative to bottom/right corner.")
2266 unsigned int width
, height
;
2269 CHECK_STRING (string
, 0);
2271 geometry
= XParseGeometry ((char *) XSTRING (string
)->data
,
2272 &x
, &y
, &width
, &height
);
2275 if (!!(geometry
& XValue
) != !!(geometry
& YValue
))
2276 error ("Must specify both x and y position, or neither");
2280 if (geometry
& XValue
)
2282 Lisp_Object element
;
2284 if (x
>= 0 && (geometry
& XNegative
))
2285 element
= Fcons (Qleft
, Fcons (Qminus
, Fcons (make_number (-x
), Qnil
)));
2286 else if (x
< 0 && ! (geometry
& XNegative
))
2287 element
= Fcons (Qleft
, Fcons (Qplus
, Fcons (make_number (x
), Qnil
)));
2289 element
= Fcons (Qleft
, make_number (x
));
2290 result
= Fcons (element
, result
);
2293 if (geometry
& YValue
)
2295 Lisp_Object element
;
2297 if (y
>= 0 && (geometry
& YNegative
))
2298 element
= Fcons (Qtop
, Fcons (Qminus
, Fcons (make_number (-y
), Qnil
)));
2299 else if (y
< 0 && ! (geometry
& YNegative
))
2300 element
= Fcons (Qtop
, Fcons (Qplus
, Fcons (make_number (y
), Qnil
)));
2302 element
= Fcons (Qtop
, make_number (y
));
2303 result
= Fcons (element
, result
);
2306 if (geometry
& WidthValue
)
2307 result
= Fcons (Fcons (Qwidth
, make_number (width
)), result
);
2308 if (geometry
& HeightValue
)
2309 result
= Fcons (Fcons (Qheight
, make_number (height
)), result
);
2314 /* Calculate the desired size and position of this window,
2315 and return the flags saying which aspects were specified.
2317 This function does not make the coordinates positive. */
2319 #define DEFAULT_ROWS 40
2320 #define DEFAULT_COLS 80
2323 x_figure_window_size (f
, parms
)
2327 register Lisp_Object tem0
, tem1
, tem2
;
2328 int height
, width
, left
, top
;
2329 register int geometry
;
2330 long window_prompting
= 0;
2332 /* Default values if we fall through.
2333 Actually, if that happens we should get
2334 window manager prompting. */
2335 f
->width
= DEFAULT_COLS
;
2336 f
->height
= DEFAULT_ROWS
;
2337 /* Window managers expect that if program-specified
2338 positions are not (0,0), they're intentional, not defaults. */
2339 f
->output_data
.x
->top_pos
= 0;
2340 f
->output_data
.x
->left_pos
= 0;
2342 tem0
= x_get_arg (parms
, Qheight
, 0, 0, number
);
2343 tem1
= x_get_arg (parms
, Qwidth
, 0, 0, number
);
2344 tem2
= x_get_arg (parms
, Quser_size
, 0, 0, number
);
2345 if (! EQ (tem0
, Qunbound
) || ! EQ (tem1
, Qunbound
))
2347 if (!EQ (tem0
, Qunbound
))
2349 CHECK_NUMBER (tem0
, 0);
2350 f
->height
= XINT (tem0
);
2352 if (!EQ (tem1
, Qunbound
))
2354 CHECK_NUMBER (tem1
, 0);
2355 f
->width
= XINT (tem1
);
2357 if (!NILP (tem2
) && !EQ (tem2
, Qunbound
))
2358 window_prompting
|= USSize
;
2360 window_prompting
|= PSize
;
2363 f
->output_data
.x
->vertical_scroll_bar_extra
2364 = (!FRAME_HAS_VERTICAL_SCROLL_BARS (f
)
2366 : FRAME_SCROLL_BAR_PIXEL_WIDTH (f
) > 0
2367 ? FRAME_SCROLL_BAR_PIXEL_WIDTH (f
)
2368 : (FRAME_SCROLL_BAR_COLS (f
) * FONT_WIDTH (f
->output_data
.x
->font
)));
2369 f
->output_data
.x
->pixel_width
= CHAR_TO_PIXEL_WIDTH (f
, f
->width
);
2370 f
->output_data
.x
->pixel_height
= CHAR_TO_PIXEL_HEIGHT (f
, f
->height
);
2372 tem0
= x_get_arg (parms
, Qtop
, 0, 0, number
);
2373 tem1
= x_get_arg (parms
, Qleft
, 0, 0, number
);
2374 tem2
= x_get_arg (parms
, Quser_position
, 0, 0, number
);
2375 if (! EQ (tem0
, Qunbound
) || ! EQ (tem1
, Qunbound
))
2377 if (EQ (tem0
, Qminus
))
2379 f
->output_data
.x
->top_pos
= 0;
2380 window_prompting
|= YNegative
;
2382 else if (CONSP (tem0
) && EQ (XCONS (tem0
)->car
, Qminus
)
2383 && CONSP (XCONS (tem0
)->cdr
)
2384 && INTEGERP (XCONS (XCONS (tem0
)->cdr
)->car
))
2386 f
->output_data
.x
->top_pos
= - XINT (XCONS (XCONS (tem0
)->cdr
)->car
);
2387 window_prompting
|= YNegative
;
2389 else if (CONSP (tem0
) && EQ (XCONS (tem0
)->car
, Qplus
)
2390 && CONSP (XCONS (tem0
)->cdr
)
2391 && INTEGERP (XCONS (XCONS (tem0
)->cdr
)->car
))
2393 f
->output_data
.x
->top_pos
= XINT (XCONS (XCONS (tem0
)->cdr
)->car
);
2395 else if (EQ (tem0
, Qunbound
))
2396 f
->output_data
.x
->top_pos
= 0;
2399 CHECK_NUMBER (tem0
, 0);
2400 f
->output_data
.x
->top_pos
= XINT (tem0
);
2401 if (f
->output_data
.x
->top_pos
< 0)
2402 window_prompting
|= YNegative
;
2405 if (EQ (tem1
, Qminus
))
2407 f
->output_data
.x
->left_pos
= 0;
2408 window_prompting
|= XNegative
;
2410 else if (CONSP (tem1
) && EQ (XCONS (tem1
)->car
, Qminus
)
2411 && CONSP (XCONS (tem1
)->cdr
)
2412 && INTEGERP (XCONS (XCONS (tem1
)->cdr
)->car
))
2414 f
->output_data
.x
->left_pos
= - XINT (XCONS (XCONS (tem1
)->cdr
)->car
);
2415 window_prompting
|= XNegative
;
2417 else if (CONSP (tem1
) && EQ (XCONS (tem1
)->car
, Qplus
)
2418 && CONSP (XCONS (tem1
)->cdr
)
2419 && INTEGERP (XCONS (XCONS (tem1
)->cdr
)->car
))
2421 f
->output_data
.x
->left_pos
= XINT (XCONS (XCONS (tem1
)->cdr
)->car
);
2423 else if (EQ (tem1
, Qunbound
))
2424 f
->output_data
.x
->left_pos
= 0;
2427 CHECK_NUMBER (tem1
, 0);
2428 f
->output_data
.x
->left_pos
= XINT (tem1
);
2429 if (f
->output_data
.x
->left_pos
< 0)
2430 window_prompting
|= XNegative
;
2433 if (!NILP (tem2
) && ! EQ (tem2
, Qunbound
))
2434 window_prompting
|= USPosition
;
2436 window_prompting
|= PPosition
;
2439 return window_prompting
;
2442 #if !defined (HAVE_X11R4) && !defined (HAVE_XSETWMPROTOCOLS)
2445 XSetWMProtocols (dpy
, w
, protocols
, count
)
2452 prop
= XInternAtom (dpy
, "WM_PROTOCOLS", False
);
2453 if (prop
== None
) return False
;
2454 XChangeProperty (dpy
, w
, prop
, XA_ATOM
, 32, PropModeReplace
,
2455 (unsigned char *) protocols
, count
);
2458 #endif /* not HAVE_X11R4 && not HAVE_XSETWMPROTOCOLS */
2460 #ifdef USE_X_TOOLKIT
2462 /* If the WM_PROTOCOLS property does not already contain WM_TAKE_FOCUS,
2463 WM_DELETE_WINDOW, and WM_SAVE_YOURSELF, then add them. (They may
2464 already be present because of the toolkit (Motif adds some of them,
2465 for example, but Xt doesn't). */
2468 hack_wm_protocols (f
, widget
)
2472 Display
*dpy
= XtDisplay (widget
);
2473 Window w
= XtWindow (widget
);
2474 int need_delete
= 1;
2480 Atom type
, *atoms
= 0;
2482 unsigned long nitems
= 0;
2483 unsigned long bytes_after
;
2485 if ((XGetWindowProperty (dpy
, w
,
2486 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
2487 (long)0, (long)100, False
, XA_ATOM
,
2488 &type
, &format
, &nitems
, &bytes_after
,
2489 (unsigned char **) &atoms
)
2491 && format
== 32 && type
== XA_ATOM
)
2495 if (atoms
[nitems
] == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
)
2497 else if (atoms
[nitems
] == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
)
2499 else if (atoms
[nitems
] == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
)
2502 if (atoms
) XFree ((char *) atoms
);
2508 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
2510 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
;
2512 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
2514 XChangeProperty (dpy
, w
, FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
2515 XA_ATOM
, 32, PropModeAppend
,
2516 (unsigned char *) props
, count
);
2522 #ifdef USE_X_TOOLKIT
2524 /* Create and set up the X widget for frame F. */
2527 x_window (f
, window_prompting
, minibuffer_only
)
2529 long window_prompting
;
2530 int minibuffer_only
;
2532 XClassHint class_hints
;
2533 XSetWindowAttributes attributes
;
2534 unsigned long attribute_mask
;
2536 Widget shell_widget
;
2538 Widget frame_widget
;
2544 /* Use the resource name as the top-level widget name
2545 for looking up resources. Make a non-Lisp copy
2546 for the window manager, so GC relocation won't bother it.
2548 Elsewhere we specify the window name for the window manager. */
2551 char *str
= (char *) XSTRING (Vx_resource_name
)->data
;
2552 f
->namebuf
= (char *) xmalloc (strlen (str
) + 1);
2553 strcpy (f
->namebuf
, str
);
2557 XtSetArg (al
[ac
], XtNallowShellResize
, 1); ac
++;
2558 XtSetArg (al
[ac
], XtNinput
, 1); ac
++;
2559 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2560 XtSetArg (al
[ac
], XtNborderWidth
, f
->output_data
.x
->border_width
); ac
++;
2561 shell_widget
= XtAppCreateShell (f
->namebuf
, EMACS_CLASS
,
2562 applicationShellWidgetClass
,
2563 FRAME_X_DISPLAY (f
), al
, ac
);
2565 f
->output_data
.x
->widget
= shell_widget
;
2566 /* maybe_set_screen_title_format (shell_widget); */
2568 pane_widget
= lw_create_widget ("main", "pane", widget_id_tick
++,
2569 (widget_value
*) NULL
,
2570 shell_widget
, False
,
2573 (lw_callback
) NULL
);
2575 f
->output_data
.x
->column_widget
= pane_widget
;
2577 /* mappedWhenManaged to false tells to the paned window to not map/unmap
2578 the emacs screen when changing menubar. This reduces flickering. */
2581 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2582 XtSetArg (al
[ac
], XtNshowGrip
, 0); ac
++;
2583 XtSetArg (al
[ac
], XtNallowResize
, 1); ac
++;
2584 XtSetArg (al
[ac
], XtNresizeToPreferred
, 1); ac
++;
2585 XtSetArg (al
[ac
], XtNemacsFrame
, f
); ac
++;
2586 frame_widget
= XtCreateWidget (f
->namebuf
,
2588 pane_widget
, al
, ac
);
2590 f
->output_data
.x
->edit_widget
= frame_widget
;
2592 XtManageChild (frame_widget
);
2594 /* Do some needed geometry management. */
2597 char *tem
, shell_position
[32];
2600 int extra_borders
= 0;
2602 = (f
->output_data
.x
->menubar_widget
2603 ? (f
->output_data
.x
->menubar_widget
->core
.height
2604 + f
->output_data
.x
->menubar_widget
->core
.border_width
)
2606 extern char *lwlib_toolkit_type
;
2608 if (FRAME_EXTERNAL_MENU_BAR (f
))
2611 XtVaGetValues (pane_widget
, XtNinternalBorderWidth
, &ibw
, NULL
);
2612 menubar_size
+= ibw
;
2615 f
->output_data
.x
->menubar_height
= menubar_size
;
2617 /* Motif seems to need this amount added to the sizes
2618 specified for the shell widget. The Athena/Lucid widgets don't.
2619 Both conclusions reached experimentally. -- rms. */
2620 if (!strcmp (lwlib_toolkit_type
, "motif"))
2621 XtVaGetValues (f
->output_data
.x
->edit_widget
, XtNinternalBorderWidth
,
2622 &extra_borders
, NULL
);
2624 /* Convert our geometry parameters into a geometry string
2626 Note that we do not specify here whether the position
2627 is a user-specified or program-specified one.
2628 We pass that information later, in x_wm_set_size_hints. */
2630 int left
= f
->output_data
.x
->left_pos
;
2631 int xneg
= window_prompting
& XNegative
;
2632 int top
= f
->output_data
.x
->top_pos
;
2633 int yneg
= window_prompting
& YNegative
;
2639 if (window_prompting
& USPosition
)
2640 sprintf (shell_position
, "=%dx%d%c%d%c%d",
2641 PIXEL_WIDTH (f
) + extra_borders
,
2642 PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
,
2643 (xneg
? '-' : '+'), left
,
2644 (yneg
? '-' : '+'), top
);
2646 sprintf (shell_position
, "=%dx%d",
2647 PIXEL_WIDTH (f
) + extra_borders
,
2648 PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
);
2651 len
= strlen (shell_position
) + 1;
2652 tem
= (char *) xmalloc (len
);
2653 strncpy (tem
, shell_position
, len
);
2654 XtSetArg (al
[ac
], XtNgeometry
, tem
); ac
++;
2655 XtSetValues (shell_widget
, al
, ac
);
2658 XtManageChild (pane_widget
);
2659 XtRealizeWidget (shell_widget
);
2661 FRAME_X_WINDOW (f
) = XtWindow (frame_widget
);
2663 validate_x_resource_name ();
2665 class_hints
.res_name
= (char *) XSTRING (Vx_resource_name
)->data
;
2666 class_hints
.res_class
= EMACS_CLASS
;
2667 XSetClassHint (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
), &class_hints
);
2670 #ifndef X_I18N_INHIBITED
2675 xim
= XOpenIM (FRAME_X_DISPLAY (f
), NULL
, NULL
, NULL
);
2679 xic
= XCreateIC (xim
,
2680 XNInputStyle
, XIMPreeditNothing
| XIMStatusNothing
,
2681 XNClientWindow
, FRAME_X_WINDOW(f
),
2682 XNFocusWindow
, FRAME_X_WINDOW(f
),
2691 FRAME_XIM (f
) = xim
;
2692 FRAME_XIC (f
) = xic
;
2694 #else /* X_I18N_INHIBITED */
2697 #endif /* X_I18N_INHIBITED */
2698 #endif /* HAVE_X_I18N */
2700 f
->output_data
.x
->wm_hints
.input
= True
;
2701 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2702 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2703 &f
->output_data
.x
->wm_hints
);
2705 hack_wm_protocols (f
, shell_widget
);
2708 XtAddEventHandler (shell_widget
, 0, True
, _XEditResCheckMessages
, 0);
2711 /* Do a stupid property change to force the server to generate a
2712 propertyNotify event so that the event_stream server timestamp will
2713 be initialized to something relevant to the time we created the window.
2715 XChangeProperty (XtDisplay (frame_widget
), XtWindow (frame_widget
),
2716 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
2717 XA_ATOM
, 32, PropModeAppend
,
2718 (unsigned char*) NULL
, 0);
2720 /* Make all the standard events reach the Emacs frame. */
2721 attributes
.event_mask
= STANDARD_EVENT_SET
;
2722 attribute_mask
= CWEventMask
;
2723 XChangeWindowAttributes (XtDisplay (shell_widget
), XtWindow (shell_widget
),
2724 attribute_mask
, &attributes
);
2726 XtMapWidget (frame_widget
);
2728 /* x_set_name normally ignores requests to set the name if the
2729 requested name is the same as the current name. This is the one
2730 place where that assumption isn't correct; f->name is set, but
2731 the X server hasn't been told. */
2734 int explicit = f
->explicit_name
;
2736 f
->explicit_name
= 0;
2739 x_set_name (f
, name
, explicit);
2742 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2743 f
->output_data
.x
->text_cursor
);
2747 if (!minibuffer_only
&& FRAME_EXTERNAL_MENU_BAR (f
))
2748 initialize_frame_menubar (f
);
2749 lw_set_main_areas (pane_widget
, f
->output_data
.x
->menubar_widget
, frame_widget
);
2751 if (FRAME_X_WINDOW (f
) == 0)
2752 error ("Unable to create window");
2755 #else /* not USE_X_TOOLKIT */
2757 /* Create and set up the X window for frame F. */
2763 XClassHint class_hints
;
2764 XSetWindowAttributes attributes
;
2765 unsigned long attribute_mask
;
2767 attributes
.background_pixel
= f
->output_data
.x
->background_pixel
;
2768 attributes
.border_pixel
= f
->output_data
.x
->border_pixel
;
2769 attributes
.bit_gravity
= StaticGravity
;
2770 attributes
.backing_store
= NotUseful
;
2771 attributes
.save_under
= True
;
2772 attributes
.event_mask
= STANDARD_EVENT_SET
;
2773 attribute_mask
= (CWBackPixel
| CWBorderPixel
| CWBitGravity
2775 | CWBackingStore
| CWSaveUnder
2781 = XCreateWindow (FRAME_X_DISPLAY (f
),
2782 f
->output_data
.x
->parent_desc
,
2783 f
->output_data
.x
->left_pos
,
2784 f
->output_data
.x
->top_pos
,
2785 PIXEL_WIDTH (f
), PIXEL_HEIGHT (f
),
2786 f
->output_data
.x
->border_width
,
2787 CopyFromParent
, /* depth */
2788 InputOutput
, /* class */
2789 FRAME_X_DISPLAY_INFO (f
)->visual
,
2790 attribute_mask
, &attributes
);
2792 #ifndef X_I18N_INHIBITED
2797 xim
= XOpenIM (FRAME_X_DISPLAY(f
), NULL
, NULL
, NULL
);
2801 xic
= XCreateIC (xim
,
2802 XNInputStyle
, XIMPreeditNothing
| XIMStatusNothing
,
2803 XNClientWindow
, FRAME_X_WINDOW(f
),
2804 XNFocusWindow
, FRAME_X_WINDOW(f
),
2814 FRAME_XIM (f
) = xim
;
2815 FRAME_XIC (f
) = xic
;
2817 #else /* X_I18N_INHIBITED */
2820 #endif /* X_I18N_INHIBITED */
2821 #endif /* HAVE_X_I18N */
2823 validate_x_resource_name ();
2825 class_hints
.res_name
= (char *) XSTRING (Vx_resource_name
)->data
;
2826 class_hints
.res_class
= EMACS_CLASS
;
2827 XSetClassHint (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), &class_hints
);
2829 /* The menubar is part of the ordinary display;
2830 it does not count in addition to the height of the window. */
2831 f
->output_data
.x
->menubar_height
= 0;
2833 /* This indicates that we use the "Passive Input" input model.
2834 Unless we do this, we don't get the Focus{In,Out} events that we
2835 need to draw the cursor correctly. Accursed bureaucrats.
2836 XWhipsAndChains (FRAME_X_DISPLAY (f), IronMaiden, &TheRack); */
2838 f
->output_data
.x
->wm_hints
.input
= True
;
2839 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2840 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2841 &f
->output_data
.x
->wm_hints
);
2843 /* Request "save yourself" and "delete window" commands from wm. */
2846 protocols
[0] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
2847 protocols
[1] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
2848 XSetWMProtocols (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), protocols
, 2);
2851 /* x_set_name normally ignores requests to set the name if the
2852 requested name is the same as the current name. This is the one
2853 place where that assumption isn't correct; f->name is set, but
2854 the X server hasn't been told. */
2857 int explicit = f
->explicit_name
;
2859 f
->explicit_name
= 0;
2862 x_set_name (f
, name
, explicit);
2865 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2866 f
->output_data
.x
->text_cursor
);
2870 if (FRAME_X_WINDOW (f
) == 0)
2871 error ("Unable to create window");
2874 #endif /* not USE_X_TOOLKIT */
2876 /* Handle the icon stuff for this window. Perhaps later we might
2877 want an x_set_icon_position which can be called interactively as
2885 Lisp_Object icon_x
, icon_y
;
2887 /* Set the position of the icon. Note that twm groups all
2888 icons in an icon window. */
2889 icon_x
= x_get_arg (parms
, Qicon_left
, 0, 0, number
);
2890 icon_y
= x_get_arg (parms
, Qicon_top
, 0, 0, number
);
2891 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2893 CHECK_NUMBER (icon_x
, 0);
2894 CHECK_NUMBER (icon_y
, 0);
2896 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2897 error ("Both left and top icon corners of icon must be specified");
2901 if (! EQ (icon_x
, Qunbound
))
2902 x_wm_set_icon_position (f
, XINT (icon_x
), XINT (icon_y
));
2904 /* Start up iconic or window? */
2905 x_wm_set_window_state
2906 (f
, (EQ (x_get_arg (parms
, Qvisibility
, 0, 0, symbol
), Qicon
)
2910 x_text_icon (f
, (char *) XSTRING ((!NILP (f
->icon_name
)
2917 /* Make the GC's needed for this window, setting the
2918 background, border and mouse colors; also create the
2919 mouse cursor and the gray border tile. */
2921 static char cursor_bits
[] =
2923 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2924 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2925 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2926 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00
2933 XGCValues gc_values
;
2939 /* Create the GC's of this frame.
2940 Note that many default values are used. */
2943 gc_values
.font
= f
->output_data
.x
->font
->fid
;
2944 gc_values
.foreground
= f
->output_data
.x
->foreground_pixel
;
2945 gc_values
.background
= f
->output_data
.x
->background_pixel
;
2946 gc_values
.line_width
= 0; /* Means 1 using fast algorithm. */
2947 f
->output_data
.x
->normal_gc
= XCreateGC (FRAME_X_DISPLAY (f
),
2949 GCLineWidth
| GCFont
2950 | GCForeground
| GCBackground
,
2953 /* Reverse video style. */
2954 gc_values
.foreground
= f
->output_data
.x
->background_pixel
;
2955 gc_values
.background
= f
->output_data
.x
->foreground_pixel
;
2956 f
->output_data
.x
->reverse_gc
= XCreateGC (FRAME_X_DISPLAY (f
),
2958 GCFont
| GCForeground
| GCBackground
2962 /* Cursor has cursor-color background, background-color foreground. */
2963 gc_values
.foreground
= f
->output_data
.x
->background_pixel
;
2964 gc_values
.background
= f
->output_data
.x
->cursor_pixel
;
2965 gc_values
.fill_style
= FillOpaqueStippled
;
2967 = XCreateBitmapFromData (FRAME_X_DISPLAY (f
),
2968 FRAME_X_DISPLAY_INFO (f
)->root_window
,
2969 cursor_bits
, 16, 16);
2970 f
->output_data
.x
->cursor_gc
2971 = XCreateGC (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2972 (GCFont
| GCForeground
| GCBackground
2973 | GCFillStyle
| GCStipple
| GCLineWidth
),
2976 /* Create the gray border tile used when the pointer is not in
2977 the frame. Since this depends on the frame's pixel values,
2978 this must be done on a per-frame basis. */
2979 f
->output_data
.x
->border_tile
2980 = (XCreatePixmapFromBitmapData
2981 (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
2982 gray_bits
, gray_width
, gray_height
,
2983 f
->output_data
.x
->foreground_pixel
,
2984 f
->output_data
.x
->background_pixel
,
2985 DefaultDepth (FRAME_X_DISPLAY (f
),
2986 XScreenNumberOfScreen (FRAME_X_SCREEN (f
)))));
2991 DEFUN ("x-create-frame", Fx_create_frame
, Sx_create_frame
,
2993 "Make a new X window, which is called a \"frame\" in Emacs terms.\n\
2994 Returns an Emacs frame object.\n\
2995 ALIST is an alist of frame parameters.\n\
2996 If the parameters specify that the frame should not have a minibuffer,\n\
2997 and do not specify a specific minibuffer window to use,\n\
2998 then `default-minibuffer-frame' must be a frame whose minibuffer can\n\
2999 be shared by the new frame.\n\
3001 This function is an internal primitive--use `make-frame' instead.")
3006 Lisp_Object frame
, tem
;
3008 int minibuffer_only
= 0;
3009 long window_prompting
= 0;
3011 int count
= specpdl_ptr
- specpdl
;
3012 struct gcpro gcpro1
;
3013 Lisp_Object display
;
3014 struct x_display_info
*dpyinfo
;
3020 /* Use this general default value to start with
3021 until we know if this frame has a specified name. */
3022 Vx_resource_name
= Vinvocation_name
;
3024 display
= x_get_arg (parms
, Qdisplay
, 0, 0, string
);
3025 if (EQ (display
, Qunbound
))
3027 dpyinfo
= check_x_display_info (display
);
3029 kb
= dpyinfo
->kboard
;
3031 kb
= &the_only_kboard
;
3034 name
= x_get_arg (parms
, Qname
, "name", "Name", string
);
3036 && ! EQ (name
, Qunbound
)
3038 error ("Invalid frame name--not a string or nil");
3041 Vx_resource_name
= name
;
3043 /* See if parent window is specified. */
3044 parent
= x_get_arg (parms
, Qparent_id
, NULL
, NULL
, number
);
3045 if (EQ (parent
, Qunbound
))
3047 if (! NILP (parent
))
3048 CHECK_NUMBER (parent
, 0);
3050 tem
= x_get_arg (parms
, Qminibuffer
, 0, 0, symbol
);
3051 if (EQ (tem
, Qnone
) || NILP (tem
))
3052 f
= make_frame_without_minibuffer (Qnil
, kb
, display
);
3053 else if (EQ (tem
, Qonly
))
3055 f
= make_minibuffer_frame ();
3056 minibuffer_only
= 1;
3058 else if (WINDOWP (tem
))
3059 f
= make_frame_without_minibuffer (tem
, kb
, display
);
3063 /* Note that X Windows does support scroll bars. */
3064 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 1;
3066 XSETFRAME (frame
, f
);
3069 f
->output_method
= output_x_window
;
3070 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
3071 bzero (f
->output_data
.x
, sizeof (struct x_output
));
3072 f
->output_data
.x
->icon_bitmap
= -1;
3075 = x_get_arg (parms
, Qicon_name
, "iconName", "Title", string
);
3076 if (! STRINGP (f
->icon_name
))
3077 f
->icon_name
= Qnil
;
3079 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
3081 FRAME_KBOARD (f
) = kb
;
3084 /* Specify the parent under which to make this X window. */
3088 f
->output_data
.x
->parent_desc
= parent
;
3089 f
->output_data
.x
->explicit_parent
= 1;
3093 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
3094 f
->output_data
.x
->explicit_parent
= 0;
3097 /* Note that the frame has no physical cursor right now. */
3098 f
->phys_cursor_x
= -1;
3100 /* Set the name; the functions to which we pass f expect the name to
3102 if (EQ (name
, Qunbound
) || NILP (name
))
3104 f
->name
= build_string (dpyinfo
->x_id_name
);
3105 f
->explicit_name
= 0;
3110 f
->explicit_name
= 1;
3111 /* use the frame's title when getting resources for this frame. */
3112 specbind (Qx_resource_name
, name
);
3115 /* Extract the window parameters from the supplied values
3116 that are needed to determine window geometry. */
3120 font
= x_get_arg (parms
, Qfont
, "font", "Font", string
);
3122 /* First, try whatever font the caller has specified. */
3124 font
= x_new_font (f
, XSTRING (font
)->data
);
3125 /* Try out a font which we hope has bold and italic variations. */
3126 if (!STRINGP (font
))
3127 font
= x_new_font (f
, "-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-1");
3128 if (! STRINGP (font
))
3129 font
= x_new_font (f
, "-*-*-medium-r-normal-*-*-140-*-*-c-*-iso8859-1");
3130 if (! STRINGP (font
))
3131 /* This was formerly the first thing tried, but it finds too many fonts
3132 and takes too long. */
3133 font
= x_new_font (f
, "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1");
3134 /* If those didn't work, look for something which will at least work. */
3135 if (! STRINGP (font
))
3136 font
= x_new_font (f
, "-*-fixed-*-*-*-*-*-140-*-*-c-*-iso8859-1");
3138 if (! STRINGP (font
))
3139 font
= build_string ("fixed");
3141 x_default_parameter (f
, parms
, Qfont
, font
,
3142 "font", "Font", string
);
3145 #ifdef USE_X_TOOLKIT
3146 /* Prevent lwlib/xlwmenu.c from crashing because of a bug
3147 whereby it fails to get any font. */
3148 xlwmenu_default_font
= f
->output_data
.x
->font
;
3151 x_default_parameter (f
, parms
, Qborder_width
, make_number (2),
3152 "borderwidth", "BorderWidth", number
);
3153 /* This defaults to 2 in order to match xterm. We recognize either
3154 internalBorderWidth or internalBorder (which is what xterm calls
3156 if (NILP (Fassq (Qinternal_border_width
, parms
)))
3160 value
= x_get_arg (parms
, Qinternal_border_width
,
3161 "internalBorder", "BorderWidth", number
);
3162 if (! EQ (value
, Qunbound
))
3163 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
3166 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (2),
3167 "internalBorderWidth", "BorderWidth", number
);
3168 x_default_parameter (f
, parms
, Qvertical_scroll_bars
, Qt
,
3169 "verticalScrollBars", "ScrollBars", boolean
);
3171 /* Also do the stuff which must be set before the window exists. */
3172 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
3173 "foreground", "Foreground", string
);
3174 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
3175 "background", "Background", string
);
3176 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
3177 "pointerColor", "Foreground", string
);
3178 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
3179 "cursorColor", "Foreground", string
);
3180 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
3181 "borderColor", "BorderColor", string
);
3183 x_default_parameter (f
, parms
, Qmenu_bar_lines
, make_number (1),
3184 "menuBar", "MenuBar", number
);
3185 x_default_parameter (f
, parms
, Qscroll_bar_width
, Qnil
,
3186 "scrollBarWidth", "ScrollBarWidth", number
);
3187 x_default_parameter (f
, parms
, Qbuffer_predicate
, Qnil
,
3188 "bufferPredicate", "BufferPredicate", symbol
);
3189 x_default_parameter (f
, parms
, Qtitle
, Qnil
,
3190 "title", "Title", string
);
3192 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
3193 window_prompting
= x_figure_window_size (f
, parms
);
3195 if (window_prompting
& XNegative
)
3197 if (window_prompting
& YNegative
)
3198 f
->output_data
.x
->win_gravity
= SouthEastGravity
;
3200 f
->output_data
.x
->win_gravity
= NorthEastGravity
;
3204 if (window_prompting
& YNegative
)
3205 f
->output_data
.x
->win_gravity
= SouthWestGravity
;
3207 f
->output_data
.x
->win_gravity
= NorthWestGravity
;
3210 f
->output_data
.x
->size_hint_flags
= window_prompting
;
3212 #ifdef USE_X_TOOLKIT
3213 x_window (f
, window_prompting
, minibuffer_only
);
3219 init_frame_faces (f
);
3221 /* We need to do this after creating the X window, so that the
3222 icon-creation functions can say whose icon they're describing. */
3223 x_default_parameter (f
, parms
, Qicon_type
, Qnil
,
3224 "bitmapIcon", "BitmapIcon", symbol
);
3226 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
3227 "autoRaise", "AutoRaiseLower", boolean
);
3228 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
3229 "autoLower", "AutoRaiseLower", boolean
);
3230 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
3231 "cursorType", "CursorType", symbol
);
3233 /* Dimensions, especially f->height, must be done via change_frame_size.
3234 Change will not be effected unless different from the current
3238 f
->height
= f
->width
= 0;
3239 change_frame_size (f
, height
, width
, 1, 0);
3241 /* Tell the server what size and position, etc, we want,
3242 and how badly we want them. */
3244 x_wm_set_size_hint (f
, window_prompting
, 0);
3247 tem
= x_get_arg (parms
, Qunsplittable
, 0, 0, boolean
);
3248 f
->no_split
= minibuffer_only
|| EQ (tem
, Qt
);
3252 /* It is now ok to make the frame official
3253 even if we get an error below.
3254 And the frame needs to be on Vframe_list
3255 or making it visible won't work. */
3256 Vframe_list
= Fcons (frame
, Vframe_list
);
3258 /* Now that the frame is official, it counts as a reference to
3260 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
3262 /* Make the window appear on the frame and enable display,
3263 unless the caller says not to. However, with explicit parent,
3264 Emacs cannot control visibility, so don't try. */
3265 if (! f
->output_data
.x
->explicit_parent
)
3267 Lisp_Object visibility
;
3269 visibility
= x_get_arg (parms
, Qvisibility
, 0, 0, symbol
);
3270 if (EQ (visibility
, Qunbound
))
3273 if (EQ (visibility
, Qicon
))
3274 x_iconify_frame (f
);
3275 else if (! NILP (visibility
))
3276 x_make_frame_visible (f
);
3278 /* Must have been Qnil. */
3282 return unbind_to (count
, frame
);
3285 /* FRAME is used only to get a handle on the X display. We don't pass the
3286 display info directly because we're called from frame.c, which doesn't
3287 know about that structure. */
3289 x_get_focus_frame (frame
)
3290 struct frame
*frame
;
3292 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (frame
);
3294 if (! dpyinfo
->x_focus_frame
)
3297 XSETFRAME (xfocus
, dpyinfo
->x_focus_frame
);
3301 DEFUN ("focus-frame", Ffocus_frame
, Sfocus_frame
, 1, 1, 0,
3302 "This function is obsolete, and does nothing.")
3309 DEFUN ("unfocus-frame", Funfocus_frame
, Sunfocus_frame
, 0, 0, 0,
3310 "This function is obsolete, and does nothing.")
3316 DEFUN ("x-list-fonts", Fx_list_fonts
, Sx_list_fonts
, 1, 3, 0,
3317 "Return a list of the names of available fonts matching PATTERN.\n\
3318 If optional arguments FACE and FRAME are specified, return only fonts\n\
3319 the same size as FACE on FRAME.\n\
3321 PATTERN is a string, perhaps with wildcard characters;\n\
3322 the * character matches any substring, and\n\
3323 the ? character matches any single character.\n\
3324 PATTERN is case-insensitive.\n\
3325 FACE is a face name--a symbol.\n\
3327 The return value is a list of strings, suitable as arguments to\n\
3330 Fonts Emacs can't use (i.e. proportional fonts) may or may not be excluded\n\
3331 even if they match PATTERN and FACE.")
3332 (pattern
, face
, frame
)
3333 Lisp_Object pattern
, face
, frame
;
3337 #ifndef BROKEN_XLISTFONTSWITHINFO
3340 XFontStruct
*size_ref
;
3345 CHECK_STRING (pattern
, 0);
3347 CHECK_SYMBOL (face
, 1);
3349 f
= check_x_frame (frame
);
3351 /* Determine the width standard for comparison with the fonts we find. */
3359 /* Don't die if we get called with a terminal frame. */
3360 if (! FRAME_X_P (f
))
3361 error ("Non-X frame used in `x-list-fonts'");
3363 face_id
= face_name_id_number (f
, face
);
3365 if (face_id
< 0 || face_id
>= FRAME_N_PARAM_FACES (f
)
3366 || FRAME_PARAM_FACES (f
) [face_id
] == 0)
3367 size_ref
= f
->output_data
.x
->font
;
3370 size_ref
= FRAME_PARAM_FACES (f
) [face_id
]->font
;
3371 if (size_ref
== (XFontStruct
*) (~0))
3372 size_ref
= f
->output_data
.x
->font
;
3376 /* See if we cached the result for this particular query. */
3377 list
= Fassoc (pattern
,
3378 XCONS (FRAME_X_DISPLAY_INFO (f
)->name_list_element
)->cdr
);
3380 /* We have info in the cache for this PATTERN. */
3383 Lisp_Object tem
, newlist
;
3385 /* We have info about this pattern. */
3386 list
= XCONS (list
)->cdr
;
3393 /* Filter the cached info and return just the fonts that match FACE. */
3395 for (tem
= list
; CONSP (tem
); tem
= XCONS (tem
)->cdr
)
3397 XFontStruct
*thisinfo
;
3399 x_catch_errors (FRAME_X_DISPLAY (f
));
3401 thisinfo
= XLoadQueryFont (FRAME_X_DISPLAY (f
),
3402 XSTRING (XCONS (tem
)->car
)->data
);
3404 x_check_errors (FRAME_X_DISPLAY (f
), "XLoadQueryFont failure: %s");
3405 x_uncatch_errors (FRAME_X_DISPLAY (f
));
3407 if (thisinfo
&& same_size_fonts (thisinfo
, size_ref
))
3408 newlist
= Fcons (XCONS (tem
)->car
, newlist
);
3411 XFreeFont (FRAME_X_DISPLAY (f
), thisinfo
);
3421 x_catch_errors (FRAME_X_DISPLAY (f
));
3423 /* Solaris 2.3 has a bug in XListFontsWithInfo. */
3424 #ifndef BROKEN_XLISTFONTSWITHINFO
3426 names
= XListFontsWithInfo (FRAME_X_DISPLAY (f
),
3427 XSTRING (pattern
)->data
,
3428 2000, /* maxnames */
3429 &num_fonts
, /* count_return */
3430 &info
); /* info_return */
3433 names
= XListFonts (FRAME_X_DISPLAY (f
),
3434 XSTRING (pattern
)->data
,
3435 2000, /* maxnames */
3436 &num_fonts
); /* count_return */
3438 x_check_errors (FRAME_X_DISPLAY (f
), "XListFonts failure: %s");
3439 x_uncatch_errors (FRAME_X_DISPLAY (f
));
3448 Lisp_Object full_list
;
3450 /* Make a list of all the fonts we got back.
3451 Store that in the font cache for the display. */
3453 for (i
= 0; i
< num_fonts
; i
++)
3454 full_list
= Fcons (build_string (names
[i
]), full_list
);
3455 XCONS (FRAME_X_DISPLAY_INFO (f
)->name_list_element
)->cdr
3456 = Fcons (Fcons (pattern
, full_list
),
3457 XCONS (FRAME_X_DISPLAY_INFO (f
)->name_list_element
)->cdr
);
3459 /* Make a list of the fonts that have the right width. */
3461 for (i
= 0; i
< num_fonts
; i
++)
3469 #ifdef BROKEN_XLISTFONTSWITHINFO
3470 XFontStruct
*thisinfo
;
3474 x_catch_errors (FRAME_X_DISPLAY (f
));
3475 thisinfo
= XLoadQueryFont (FRAME_X_DISPLAY (f
), names
[i
]);
3476 x_check_errors (FRAME_X_DISPLAY (f
),
3477 "XLoadQueryFont failure: %s");
3478 x_uncatch_errors (FRAME_X_DISPLAY (f
));
3482 keeper
= thisinfo
&& same_size_fonts (thisinfo
, size_ref
);
3484 if (thisinfo
&& ! keeper
)
3485 XFreeFont (FRAME_X_DISPLAY (f
), thisinfo
);
3487 XFreeFontInfo (NULL
, thisinfo
, 1);
3490 keeper
= same_size_fonts (&info
[i
], size_ref
);
3494 list
= Fcons (build_string (names
[i
]), list
);
3496 list
= Fnreverse (list
);
3499 #ifndef BROKEN_XLISTFONTSWITHINFO
3501 XFreeFontInfo (names
, info
, num_fonts
);
3504 XFreeFontNames (names
);
3512 DEFUN ("x-color-defined-p", Fx_color_defined_p
, Sx_color_defined_p
, 1, 2, 0,
3513 "Return non-nil if color COLOR is supported on frame FRAME.\n\
3514 If FRAME is omitted or nil, use the selected frame.")
3516 Lisp_Object color
, frame
;
3519 FRAME_PTR f
= check_x_frame (frame
);
3521 CHECK_STRING (color
, 1);
3523 if (defined_color (f
, XSTRING (color
)->data
, &foo
, 0))
3529 DEFUN ("x-color-values", Fx_color_values
, Sx_color_values
, 1, 2, 0,
3530 "Return a description of the color named COLOR on frame FRAME.\n\
3531 The value is a list of integer RGB values--(RED GREEN BLUE).\n\
3532 These values appear to range from 0 to 65280 or 65535, depending\n\
3533 on the system; white is (65280 65280 65280) or (65535 65535 65535).\n\
3534 If FRAME is omitted or nil, use the selected frame.")
3536 Lisp_Object color
, frame
;
3539 FRAME_PTR f
= check_x_frame (frame
);
3541 CHECK_STRING (color
, 1);
3543 if (defined_color (f
, XSTRING (color
)->data
, &foo
, 0))
3547 rgb
[0] = make_number (foo
.red
);
3548 rgb
[1] = make_number (foo
.green
);
3549 rgb
[2] = make_number (foo
.blue
);
3550 return Flist (3, rgb
);
3556 DEFUN ("x-display-color-p", Fx_display_color_p
, Sx_display_color_p
, 0, 1, 0,
3557 "Return t if the X display supports color.\n\
3558 The optional argument DISPLAY specifies which display to ask about.\n\
3559 DISPLAY should be either a frame or a display name (a string).\n\
3560 If omitted or nil, that stands for the selected frame's display.")
3562 Lisp_Object display
;
3564 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3566 if (dpyinfo
->n_planes
<= 2)
3569 switch (dpyinfo
->visual
->class)
3582 DEFUN ("x-display-grayscale-p", Fx_display_grayscale_p
, Sx_display_grayscale_p
,
3584 "Return t if the X display supports shades of gray.\n\
3585 Note that color displays do support shades of gray.\n\
3586 The optional argument DISPLAY specifies which display to ask about.\n\
3587 DISPLAY should be either a frame or a display name (a string).\n\
3588 If omitted or nil, that stands for the selected frame's display.")
3590 Lisp_Object display
;
3592 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3594 if (dpyinfo
->n_planes
<= 1)
3597 switch (dpyinfo
->visual
->class)
3612 DEFUN ("x-display-pixel-width", Fx_display_pixel_width
, Sx_display_pixel_width
,
3614 "Returns the width in pixels of the X display DISPLAY.\n\
3615 The optional argument DISPLAY specifies which display to ask about.\n\
3616 DISPLAY should be either a frame or a display name (a string).\n\
3617 If omitted or nil, that stands for the selected frame's display.")
3619 Lisp_Object display
;
3621 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3623 return make_number (dpyinfo
->width
);
3626 DEFUN ("x-display-pixel-height", Fx_display_pixel_height
,
3627 Sx_display_pixel_height
, 0, 1, 0,
3628 "Returns the height in pixels of the X display DISPLAY.\n\
3629 The optional argument DISPLAY specifies which display to ask about.\n\
3630 DISPLAY should be either a frame or a display name (a string).\n\
3631 If omitted or nil, that stands for the selected frame's display.")
3633 Lisp_Object display
;
3635 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3637 return make_number (dpyinfo
->height
);
3640 DEFUN ("x-display-planes", Fx_display_planes
, Sx_display_planes
,
3642 "Returns the number of bitplanes of the X display DISPLAY.\n\
3643 The optional argument DISPLAY specifies which display to ask about.\n\
3644 DISPLAY should be either a frame or a display name (a string).\n\
3645 If omitted or nil, that stands for the selected frame's display.")
3647 Lisp_Object display
;
3649 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3651 return make_number (dpyinfo
->n_planes
);
3654 DEFUN ("x-display-color-cells", Fx_display_color_cells
, Sx_display_color_cells
,
3656 "Returns the number of color cells of the X display DISPLAY.\n\
3657 The optional argument DISPLAY specifies which display to ask about.\n\
3658 DISPLAY should be either a frame or a display name (a string).\n\
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 (DisplayCells (dpyinfo
->display
,
3666 XScreenNumberOfScreen (dpyinfo
->screen
)));
3669 DEFUN ("x-server-max-request-size", Fx_server_max_request_size
,
3670 Sx_server_max_request_size
,
3672 "Returns the maximum request size of the X server of display DISPLAY.\n\
3673 The optional argument DISPLAY specifies which display to ask about.\n\
3674 DISPLAY should be either a frame or a display name (a string).\n\
3675 If omitted or nil, that stands for the selected frame's display.")
3677 Lisp_Object display
;
3679 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3681 return make_number (MAXREQUEST (dpyinfo
->display
));
3684 DEFUN ("x-server-vendor", Fx_server_vendor
, Sx_server_vendor
, 0, 1, 0,
3685 "Returns the vendor ID string of the X server of display DISPLAY.\n\
3686 The optional argument DISPLAY specifies which display to ask about.\n\
3687 DISPLAY should be either a frame or a display name (a string).\n\
3688 If omitted or nil, that stands for the selected frame's display.")
3690 Lisp_Object display
;
3692 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3693 char *vendor
= ServerVendor (dpyinfo
->display
);
3695 if (! vendor
) vendor
= "";
3696 return build_string (vendor
);
3699 DEFUN ("x-server-version", Fx_server_version
, Sx_server_version
, 0, 1, 0,
3700 "Returns the version numbers of the X server of display DISPLAY.\n\
3701 The value is a list of three integers: the major and minor\n\
3702 version numbers of the X Protocol in use, and the vendor-specific release\n\
3703 number. See also the function `x-server-vendor'.\n\n\
3704 The optional argument DISPLAY specifies which display to ask about.\n\
3705 DISPLAY should be either a frame or a display name (a string).\n\
3706 If omitted or nil, that stands for the selected frame's display.")
3708 Lisp_Object display
;
3710 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3711 Display
*dpy
= dpyinfo
->display
;
3713 return Fcons (make_number (ProtocolVersion (dpy
)),
3714 Fcons (make_number (ProtocolRevision (dpy
)),
3715 Fcons (make_number (VendorRelease (dpy
)), Qnil
)));
3718 DEFUN ("x-display-screens", Fx_display_screens
, Sx_display_screens
, 0, 1, 0,
3719 "Returns the number of screens on the X server of display DISPLAY.\n\
3720 The optional argument DISPLAY specifies which display to ask about.\n\
3721 DISPLAY should be either a frame or a display name (a string).\n\
3722 If omitted or nil, that stands for the selected frame's display.")
3724 Lisp_Object display
;
3726 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3728 return make_number (ScreenCount (dpyinfo
->display
));
3731 DEFUN ("x-display-mm-height", Fx_display_mm_height
, Sx_display_mm_height
, 0, 1, 0,
3732 "Returns the height in millimeters of the X display DISPLAY.\n\
3733 The optional argument DISPLAY specifies which display to ask about.\n\
3734 DISPLAY should be either a frame or a display name (a string).\n\
3735 If omitted or nil, that stands for the selected frame's display.")
3737 Lisp_Object display
;
3739 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3741 return make_number (HeightMMOfScreen (dpyinfo
->screen
));
3744 DEFUN ("x-display-mm-width", Fx_display_mm_width
, Sx_display_mm_width
, 0, 1, 0,
3745 "Returns the width in millimeters of the X display DISPLAY.\n\
3746 The optional argument DISPLAY specifies which display to ask about.\n\
3747 DISPLAY should be either a frame or a display name (a string).\n\
3748 If omitted or nil, that stands for the selected frame's display.")
3750 Lisp_Object display
;
3752 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3754 return make_number (WidthMMOfScreen (dpyinfo
->screen
));
3757 DEFUN ("x-display-backing-store", Fx_display_backing_store
,
3758 Sx_display_backing_store
, 0, 1, 0,
3759 "Returns an indication of whether X display DISPLAY does backing store.\n\
3760 The value may be `always', `when-mapped', or `not-useful'.\n\
3761 The optional argument DISPLAY specifies which display to ask about.\n\
3762 DISPLAY should be either a frame or a display name (a string).\n\
3763 If omitted or nil, that stands for the selected frame's display.")
3765 Lisp_Object display
;
3767 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3769 switch (DoesBackingStore (dpyinfo
->screen
))
3772 return intern ("always");
3775 return intern ("when-mapped");
3778 return intern ("not-useful");
3781 error ("Strange value for BackingStore parameter of screen");
3785 DEFUN ("x-display-visual-class", Fx_display_visual_class
,
3786 Sx_display_visual_class
, 0, 1, 0,
3787 "Returns the visual class of the X display DISPLAY.\n\
3788 The value is one of the symbols `static-gray', `gray-scale',\n\
3789 `static-color', `pseudo-color', `true-color', or `direct-color'.\n\n\
3790 The optional argument DISPLAY specifies which display to ask about.\n\
3791 DISPLAY should be either a frame or a display name (a string).\n\
3792 If omitted or nil, that stands for the selected frame's display.")
3794 Lisp_Object display
;
3796 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3798 switch (dpyinfo
->visual
->class)
3800 case StaticGray
: return (intern ("static-gray"));
3801 case GrayScale
: return (intern ("gray-scale"));
3802 case StaticColor
: return (intern ("static-color"));
3803 case PseudoColor
: return (intern ("pseudo-color"));
3804 case TrueColor
: return (intern ("true-color"));
3805 case DirectColor
: return (intern ("direct-color"));
3807 error ("Display has an unknown visual class");
3811 DEFUN ("x-display-save-under", Fx_display_save_under
,
3812 Sx_display_save_under
, 0, 1, 0,
3813 "Returns t if the X display DISPLAY supports the save-under feature.\n\
3814 The optional argument DISPLAY specifies which display to ask about.\n\
3815 DISPLAY should be either a frame or a display name (a string).\n\
3816 If omitted or nil, that stands for the selected frame's display.")
3818 Lisp_Object display
;
3820 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
3822 if (DoesSaveUnders (dpyinfo
->screen
) == True
)
3830 register struct frame
*f
;
3832 return PIXEL_WIDTH (f
);
3837 register struct frame
*f
;
3839 return PIXEL_HEIGHT (f
);
3844 register struct frame
*f
;
3846 return FONT_WIDTH (f
->output_data
.x
->font
);
3851 register struct frame
*f
;
3853 return f
->output_data
.x
->line_height
;
3857 x_screen_planes (frame
)
3860 return FRAME_X_DISPLAY_INFO (XFRAME (frame
))->n_planes
;
3863 #if 0 /* These no longer seem like the right way to do things. */
3865 /* Draw a rectangle on the frame with left top corner including
3866 the character specified by LEFT_CHAR and TOP_CHAR. The rectangle is
3867 CHARS by LINES wide and long and is the color of the cursor. */
3870 x_rectangle (f
, gc
, left_char
, top_char
, chars
, lines
)
3871 register struct frame
*f
;
3873 register int top_char
, left_char
, chars
, lines
;
3877 int left
= (left_char
* FONT_WIDTH (f
->output_data
.x
->font
)
3878 + f
->output_data
.x
->internal_border_width
);
3879 int top
= (top_char
* f
->output_data
.x
->line_height
3880 + f
->output_data
.x
->internal_border_width
);
3883 width
= FONT_WIDTH (f
->output_data
.x
->font
) / 2;
3885 width
= FONT_WIDTH (f
->output_data
.x
->font
) * chars
;
3887 height
= f
->output_data
.x
->line_height
/ 2;
3889 height
= f
->output_data
.x
->line_height
* lines
;
3891 XDrawRectangle (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
3892 gc
, left
, top
, width
, height
);
3895 DEFUN ("x-draw-rectangle", Fx_draw_rectangle
, Sx_draw_rectangle
, 5, 5, 0,
3896 "Draw a rectangle on FRAME between coordinates specified by\n\
3897 numbers X0, Y0, X1, Y1 in the cursor pixel.")
3898 (frame
, X0
, Y0
, X1
, Y1
)
3899 register Lisp_Object frame
, X0
, X1
, Y0
, Y1
;
3901 register int x0
, y0
, x1
, y1
, top
, left
, n_chars
, n_lines
;
3903 CHECK_LIVE_FRAME (frame
, 0);
3904 CHECK_NUMBER (X0
, 0);
3905 CHECK_NUMBER (Y0
, 1);
3906 CHECK_NUMBER (X1
, 2);
3907 CHECK_NUMBER (Y1
, 3);
3917 n_lines
= y1
- y0
+ 1;
3922 n_lines
= y0
- y1
+ 1;
3928 n_chars
= x1
- x0
+ 1;
3933 n_chars
= x0
- x1
+ 1;
3937 x_rectangle (XFRAME (frame
), XFRAME (frame
)->output_data
.x
->cursor_gc
,
3938 left
, top
, n_chars
, n_lines
);
3944 DEFUN ("x-erase-rectangle", Fx_erase_rectangle
, Sx_erase_rectangle
, 5, 5, 0,
3945 "Draw a rectangle drawn on FRAME between coordinates\n\
3946 X0, Y0, X1, Y1 in the regular background-pixel.")
3947 (frame
, X0
, Y0
, X1
, Y1
)
3948 register Lisp_Object frame
, X0
, Y0
, X1
, Y1
;
3950 register int x0
, y0
, x1
, y1
, top
, left
, n_chars
, n_lines
;
3952 CHECK_LIVE_FRAME (frame
, 0);
3953 CHECK_NUMBER (X0
, 0);
3954 CHECK_NUMBER (Y0
, 1);
3955 CHECK_NUMBER (X1
, 2);
3956 CHECK_NUMBER (Y1
, 3);
3966 n_lines
= y1
- y0
+ 1;
3971 n_lines
= y0
- y1
+ 1;
3977 n_chars
= x1
- x0
+ 1;
3982 n_chars
= x0
- x1
+ 1;
3986 x_rectangle (XFRAME (frame
), XFRAME (frame
)->output_data
.x
->reverse_gc
,
3987 left
, top
, n_chars
, n_lines
);
3993 /* Draw lines around the text region beginning at the character position
3994 TOP_X, TOP_Y and ending at BOTTOM_X and BOTTOM_Y. GC specifies the
3995 pixel and line characteristics. */
3997 #define line_len(line) (FRAME_CURRENT_GLYPHS (f)->used[(line)])
4000 outline_region (f
, gc
, top_x
, top_y
, bottom_x
, bottom_y
)
4001 register struct frame
*f
;
4003 int top_x
, top_y
, bottom_x
, bottom_y
;
4005 register int ibw
= f
->output_data
.x
->internal_border_width
;
4006 register int font_w
= FONT_WIDTH (f
->output_data
.x
->font
);
4007 register int font_h
= f
->output_data
.x
->line_height
;
4009 int x
= line_len (y
);
4010 XPoint
*pixel_points
4011 = (XPoint
*) alloca (((bottom_y
- top_y
+ 2) * 4) * sizeof (XPoint
));
4012 register XPoint
*this_point
= pixel_points
;
4014 /* Do the horizontal top line/lines */
4017 this_point
->x
= ibw
;
4018 this_point
->y
= ibw
+ (font_h
* top_y
);
4021 this_point
->x
= ibw
+ (font_w
/ 2); /* Half-size for newline chars. */
4023 this_point
->x
= ibw
+ (font_w
* x
);
4024 this_point
->y
= (this_point
- 1)->y
;
4028 this_point
->x
= ibw
;
4029 this_point
->y
= ibw
+ (font_h
* (top_y
+ 1));
4031 this_point
->x
= ibw
+ (font_w
* top_x
);
4032 this_point
->y
= (this_point
- 1)->y
;
4034 this_point
->x
= (this_point
- 1)->x
;
4035 this_point
->y
= ibw
+ (font_h
* top_y
);
4037 this_point
->x
= ibw
+ (font_w
* x
);
4038 this_point
->y
= (this_point
- 1)->y
;
4041 /* Now do the right side. */
4042 while (y
< bottom_y
)
4043 { /* Right vertical edge */
4045 this_point
->x
= (this_point
- 1)->x
;
4046 this_point
->y
= ibw
+ (font_h
* (y
+ 1));
4049 y
++; /* Horizontal connection to next line */
4052 this_point
->x
= ibw
+ (font_w
/ 2);
4054 this_point
->x
= ibw
+ (font_w
* x
);
4056 this_point
->y
= (this_point
- 1)->y
;
4059 /* Now do the bottom and connect to the top left point. */
4060 this_point
->x
= ibw
+ (font_w
* (bottom_x
+ 1));
4063 this_point
->x
= (this_point
- 1)->x
;
4064 this_point
->y
= ibw
+ (font_h
* (bottom_y
+ 1));
4066 this_point
->x
= ibw
;
4067 this_point
->y
= (this_point
- 1)->y
;
4069 this_point
->x
= pixel_points
->x
;
4070 this_point
->y
= pixel_points
->y
;
4072 XDrawLines (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
4074 (this_point
- pixel_points
+ 1), CoordModeOrigin
);
4077 DEFUN ("x-contour-region", Fx_contour_region
, Sx_contour_region
, 1, 1, 0,
4078 "Highlight the region between point and the character under the mouse\n\
4081 register Lisp_Object event
;
4083 register int x0
, y0
, x1
, y1
;
4084 register struct frame
*f
= selected_frame
;
4085 register int p1
, p2
;
4087 CHECK_CONS (event
, 0);
4090 x0
= XINT (Fcar (Fcar (event
)));
4091 y0
= XINT (Fcar (Fcdr (Fcar (event
))));
4093 /* If the mouse is past the end of the line, don't that area. */
4094 /* ReWrite this... */
4099 if (y1
> y0
) /* point below mouse */
4100 outline_region (f
, f
->output_data
.x
->cursor_gc
,
4102 else if (y1
< y0
) /* point above mouse */
4103 outline_region (f
, f
->output_data
.x
->cursor_gc
,
4105 else /* same line: draw horizontal rectangle */
4108 x_rectangle (f
, f
->output_data
.x
->cursor_gc
,
4109 x0
, y0
, (x1
- x0
+ 1), 1);
4111 x_rectangle (f
, f
->output_data
.x
->cursor_gc
,
4112 x1
, y1
, (x0
- x1
+ 1), 1);
4115 XFlush (FRAME_X_DISPLAY (f
));
4121 DEFUN ("x-uncontour-region", Fx_uncontour_region
, Sx_uncontour_region
, 1, 1, 0,
4122 "Erase any highlighting of the region between point and the character\n\
4123 at X, Y on the selected frame.")
4125 register Lisp_Object event
;
4127 register int x0
, y0
, x1
, y1
;
4128 register struct frame
*f
= selected_frame
;
4131 x0
= XINT (Fcar (Fcar (event
)));
4132 y0
= XINT (Fcar (Fcdr (Fcar (event
))));
4136 if (y1
> y0
) /* point below mouse */
4137 outline_region (f
, f
->output_data
.x
->reverse_gc
,
4139 else if (y1
< y0
) /* point above mouse */
4140 outline_region (f
, f
->output_data
.x
->reverse_gc
,
4142 else /* same line: draw horizontal rectangle */
4145 x_rectangle (f
, f
->output_data
.x
->reverse_gc
,
4146 x0
, y0
, (x1
- x0
+ 1), 1);
4148 x_rectangle (f
, f
->output_data
.x
->reverse_gc
,
4149 x1
, y1
, (x0
- x1
+ 1), 1);
4157 int contour_begin_x
, contour_begin_y
;
4158 int contour_end_x
, contour_end_y
;
4159 int contour_npoints
;
4161 /* Clip the top part of the contour lines down (and including) line Y_POS.
4162 If X_POS is in the middle (rather than at the end) of the line, drop
4163 down a line at that character. */
4166 clip_contour_top (y_pos
, x_pos
)
4168 register XPoint
*begin
= contour_lines
[y_pos
].top_left
;
4169 register XPoint
*end
;
4170 register int npoints
;
4171 register struct display_line
*line
= selected_frame
->phys_lines
[y_pos
+ 1];
4173 if (x_pos
>= line
->len
- 1) /* Draw one, straight horizontal line. */
4175 end
= contour_lines
[y_pos
].top_right
;
4176 npoints
= (end
- begin
+ 1);
4177 XDrawLines (x_current_display
, contour_window
,
4178 contour_erase_gc
, begin_erase
, npoints
, CoordModeOrigin
);
4180 bcopy (end
, begin
+ 1, contour_last_point
- end
+ 1);
4181 contour_last_point
-= (npoints
- 2);
4182 XDrawLines (x_current_display
, contour_window
,
4183 contour_erase_gc
, begin
, 2, CoordModeOrigin
);
4184 XFlush (x_current_display
);
4186 /* Now, update contour_lines structure. */
4191 register XPoint
*p
= begin
+ 1;
4192 end
= contour_lines
[y_pos
].bottom_right
;
4193 npoints
= (end
- begin
+ 1);
4194 XDrawLines (x_current_display
, contour_window
,
4195 contour_erase_gc
, begin_erase
, npoints
, CoordModeOrigin
);
4198 p
->x
= ibw
+ (font_w
* (x_pos
+ 1));
4200 p
->y
= begin
->y
+ font_h
;
4202 bcopy (end
, begin
+ 3, contour_last_point
- end
+ 1);
4203 contour_last_point
-= (npoints
- 5);
4204 XDrawLines (x_current_display
, contour_window
,
4205 contour_erase_gc
, begin
, 4, CoordModeOrigin
);
4206 XFlush (x_current_display
);
4208 /* Now, update contour_lines structure. */
4212 /* Erase the top horizontal lines of the contour, and then extend
4213 the contour upwards. */
4216 extend_contour_top (line
)
4221 clip_contour_bottom (x_pos
, y_pos
)
4227 extend_contour_bottom (x_pos
, y_pos
)
4231 DEFUN ("x-select-region", Fx_select_region
, Sx_select_region
, 1, 1, "e",
4236 register struct frame
*f
= selected_frame
;
4237 register int point_x
= f
->cursor_x
;
4238 register int point_y
= f
->cursor_y
;
4239 register int mouse_below_point
;
4240 register Lisp_Object obj
;
4241 register int x_contour_x
, x_contour_y
;
4243 x_contour_x
= x_mouse_x
;
4244 x_contour_y
= x_mouse_y
;
4245 if (x_contour_y
> point_y
|| (x_contour_y
== point_y
4246 && x_contour_x
> point_x
))
4248 mouse_below_point
= 1;
4249 outline_region (f
, f
->output_data
.x
->cursor_gc
, point_x
, point_y
,
4250 x_contour_x
, x_contour_y
);
4254 mouse_below_point
= 0;
4255 outline_region (f
, f
->output_data
.x
->cursor_gc
, x_contour_x
, x_contour_y
,
4261 obj
= read_char (-1, 0, 0, Qnil
, 0);
4265 if (mouse_below_point
)
4267 if (x_mouse_y
<= point_y
) /* Flipped. */
4269 mouse_below_point
= 0;
4271 outline_region (f
, f
->output_data
.x
->reverse_gc
, point_x
, point_y
,
4272 x_contour_x
, x_contour_y
);
4273 outline_region (f
, f
->output_data
.x
->cursor_gc
, x_mouse_x
, x_mouse_y
,
4276 else if (x_mouse_y
< x_contour_y
) /* Bottom clipped. */
4278 clip_contour_bottom (x_mouse_y
);
4280 else if (x_mouse_y
> x_contour_y
) /* Bottom extended. */
4282 extend_bottom_contour (x_mouse_y
);
4285 x_contour_x
= x_mouse_x
;
4286 x_contour_y
= x_mouse_y
;
4288 else /* mouse above or same line as point */
4290 if (x_mouse_y
>= point_y
) /* Flipped. */
4292 mouse_below_point
= 1;
4294 outline_region (f
, f
->output_data
.x
->reverse_gc
,
4295 x_contour_x
, x_contour_y
, point_x
, point_y
);
4296 outline_region (f
, f
->output_data
.x
->cursor_gc
, point_x
, point_y
,
4297 x_mouse_x
, x_mouse_y
);
4299 else if (x_mouse_y
> x_contour_y
) /* Top clipped. */
4301 clip_contour_top (x_mouse_y
);
4303 else if (x_mouse_y
< x_contour_y
) /* Top extended. */
4305 extend_contour_top (x_mouse_y
);
4310 unread_command_event
= obj
;
4311 if (mouse_below_point
)
4313 contour_begin_x
= point_x
;
4314 contour_begin_y
= point_y
;
4315 contour_end_x
= x_contour_x
;
4316 contour_end_y
= x_contour_y
;
4320 contour_begin_x
= x_contour_x
;
4321 contour_begin_y
= x_contour_y
;
4322 contour_end_x
= point_x
;
4323 contour_end_y
= point_y
;
4328 DEFUN ("x-horizontal-line", Fx_horizontal_line
, Sx_horizontal_line
, 1, 1, "e",
4333 register Lisp_Object obj
;
4334 struct frame
*f
= selected_frame
;
4335 register struct window
*w
= XWINDOW (selected_window
);
4336 register GC line_gc
= f
->output_data
.x
->cursor_gc
;
4337 register GC erase_gc
= f
->output_data
.x
->reverse_gc
;
4339 char dash_list
[] = {6, 4, 6, 4};
4341 XGCValues gc_values
;
4343 register int previous_y
;
4344 register int line
= (x_mouse_y
+ 1) * f
->output_data
.x
->line_height
4345 + f
->output_data
.x
->internal_border_width
;
4346 register int left
= f
->output_data
.x
->internal_border_width
4348 * FONT_WIDTH (f
->output_data
.x
->font
));
4349 register int right
= left
+ (w
->width
4350 * FONT_WIDTH (f
->output_data
.x
->font
))
4351 - f
->output_data
.x
->internal_border_width
;
4355 gc_values
.foreground
= f
->output_data
.x
->cursor_pixel
;
4356 gc_values
.background
= f
->output_data
.x
->background_pixel
;
4357 gc_values
.line_width
= 1;
4358 gc_values
.line_style
= LineOnOffDash
;
4359 gc_values
.cap_style
= CapRound
;
4360 gc_values
.join_style
= JoinRound
;
4362 line_gc
= XCreateGC (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
4363 GCLineStyle
| GCJoinStyle
| GCCapStyle
4364 | GCLineWidth
| GCForeground
| GCBackground
,
4366 XSetDashes (FRAME_X_DISPLAY (f
), line_gc
, 0, dash_list
, dashes
);
4367 gc_values
.foreground
= f
->output_data
.x
->background_pixel
;
4368 gc_values
.background
= f
->output_data
.x
->foreground_pixel
;
4369 erase_gc
= XCreateGC (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
4370 GCLineStyle
| GCJoinStyle
| GCCapStyle
4371 | GCLineWidth
| GCForeground
| GCBackground
,
4373 XSetDashes (FRAME_X_DISPLAY (f
), erase_gc
, 0, dash_list
, dashes
);
4380 if (x_mouse_y
>= XINT (w
->top
)
4381 && x_mouse_y
< XINT (w
->top
) + XINT (w
->height
) - 1)
4383 previous_y
= x_mouse_y
;
4384 line
= (x_mouse_y
+ 1) * f
->output_data
.x
->line_height
4385 + f
->output_data
.x
->internal_border_width
;
4386 XDrawLine (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
4387 line_gc
, left
, line
, right
, line
);
4389 XFlush (FRAME_X_DISPLAY (f
));
4394 obj
= read_char (-1, 0, 0, Qnil
, 0);
4396 || (! EQ (Fcar (Fcdr (Fcdr (obj
))),
4397 Qvertical_scroll_bar
))
4401 XDrawLine (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
4402 erase_gc
, left
, line
, right
, line
);
4403 unread_command_event
= obj
;
4405 XFreeGC (FRAME_X_DISPLAY (f
), line_gc
);
4406 XFreeGC (FRAME_X_DISPLAY (f
), erase_gc
);
4412 while (x_mouse_y
== previous_y
);
4415 XDrawLine (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
4416 erase_gc
, left
, line
, right
, line
);
4423 /* These keep track of the rectangle following the pointer. */
4424 int mouse_track_top
, mouse_track_left
, mouse_track_width
;
4426 /* Offset in buffer of character under the pointer, or 0. */
4427 int mouse_buffer_offset
;
4429 DEFUN ("x-track-pointer", Fx_track_pointer
, Sx_track_pointer
, 0, 0, 0,
4430 "Track the pointer.")
4433 static Cursor current_pointer_shape
;
4434 FRAME_PTR f
= x_mouse_frame
;
4437 if (EQ (Vmouse_frame_part
, Qtext_part
)
4438 && (current_pointer_shape
!= f
->output_data
.x
->nontext_cursor
))
4443 current_pointer_shape
= f
->output_data
.x
->nontext_cursor
;
4444 XDefineCursor (FRAME_X_DISPLAY (f
),
4446 current_pointer_shape
);
4448 buf
= XBUFFER (XWINDOW (Vmouse_window
)->buffer
);
4449 c
= *(BUF_CHAR_ADDRESS (buf
, mouse_buffer_offset
));
4451 else if (EQ (Vmouse_frame_part
, Qmodeline_part
)
4452 && (current_pointer_shape
!= f
->output_data
.x
->modeline_cursor
))
4454 current_pointer_shape
= f
->output_data
.x
->modeline_cursor
;
4455 XDefineCursor (FRAME_X_DISPLAY (f
),
4457 current_pointer_shape
);
4460 XFlush (FRAME_X_DISPLAY (f
));
4466 DEFUN ("x-track-pointer", Fx_track_pointer
, Sx_track_pointer
, 1, 1, "e",
4467 "Draw rectangle around character under mouse pointer, if there is one.")
4471 struct window
*w
= XWINDOW (Vmouse_window
);
4472 struct frame
*f
= XFRAME (WINDOW_FRAME (w
));
4473 struct buffer
*b
= XBUFFER (w
->buffer
);
4476 if (! EQ (Vmouse_window
, selected_window
))
4479 if (EQ (event
, Qnil
))
4483 x_read_mouse_position (selected_frame
, &x
, &y
);
4487 mouse_track_width
= 0;
4488 mouse_track_left
= mouse_track_top
= -1;
4492 if ((x_mouse_x
!= mouse_track_left
4493 && (x_mouse_x
< mouse_track_left
4494 || x_mouse_x
> (mouse_track_left
+ mouse_track_width
)))
4495 || x_mouse_y
!= mouse_track_top
)
4497 int hp
= 0; /* Horizontal position */
4498 int len
= FRAME_CURRENT_GLYPHS (f
)->used
[x_mouse_y
];
4499 int p
= FRAME_CURRENT_GLYPHS (f
)->bufp
[x_mouse_y
];
4500 int tab_width
= XINT (b
->tab_width
);
4501 int ctl_arrow_p
= !NILP (b
->ctl_arrow
);
4503 int mode_line_vpos
= XFASTINT (w
->height
) + XFASTINT (w
->top
) - 1;
4504 int in_mode_line
= 0;
4506 if (! FRAME_CURRENT_GLYPHS (f
)->enable
[x_mouse_y
])
4509 /* Erase previous rectangle. */
4510 if (mouse_track_width
)
4512 x_rectangle (f
, f
->output_data
.x
->reverse_gc
,
4513 mouse_track_left
, mouse_track_top
,
4514 mouse_track_width
, 1);
4516 if ((mouse_track_left
== f
->phys_cursor_x
4517 || mouse_track_left
== f
->phys_cursor_x
- 1)
4518 && mouse_track_top
== f
->phys_cursor_y
)
4520 x_display_cursor (f
, 1);
4524 mouse_track_left
= x_mouse_x
;
4525 mouse_track_top
= x_mouse_y
;
4526 mouse_track_width
= 0;
4528 if (mouse_track_left
> len
) /* Past the end of line. */
4531 if (mouse_track_top
== mode_line_vpos
)
4537 if (tab_width
<= 0 || tab_width
> 20) tab_width
= 8;
4541 if (len
== f
->width
&& hp
== len
- 1 && c
!= '\n')
4547 mouse_track_width
= tab_width
- (hp
% tab_width
);
4549 hp
+= mouse_track_width
;
4552 mouse_track_left
= hp
- mouse_track_width
;
4558 mouse_track_width
= -1;
4562 if (ctl_arrow_p
&& (c
< 040 || c
== 0177))
4567 mouse_track_width
= 2;
4572 mouse_track_left
= hp
- mouse_track_width
;
4578 mouse_track_width
= 1;
4585 while (hp
<= x_mouse_x
);
4588 if (mouse_track_width
) /* Over text; use text pointer shape. */
4590 XDefineCursor (FRAME_X_DISPLAY (f
),
4592 f
->output_data
.x
->text_cursor
);
4593 x_rectangle (f
, f
->output_data
.x
->cursor_gc
,
4594 mouse_track_left
, mouse_track_top
,
4595 mouse_track_width
, 1);
4597 else if (in_mode_line
)
4598 XDefineCursor (FRAME_X_DISPLAY (f
),
4600 f
->output_data
.x
->modeline_cursor
);
4602 XDefineCursor (FRAME_X_DISPLAY (f
),
4604 f
->output_data
.x
->nontext_cursor
);
4607 XFlush (FRAME_X_DISPLAY (f
));
4610 obj
= read_char (-1, 0, 0, Qnil
, 0);
4613 while (CONSP (obj
) /* Mouse event */
4614 && EQ (Fcar (Fcdr (Fcdr (obj
))), Qnil
) /* Not scroll bar */
4615 && EQ (Vmouse_depressed
, Qnil
) /* Only motion events */
4616 && EQ (Vmouse_window
, selected_window
) /* In this window */
4619 unread_command_event
= obj
;
4621 if (mouse_track_width
)
4623 x_rectangle (f
, f
->output_data
.x
->reverse_gc
,
4624 mouse_track_left
, mouse_track_top
,
4625 mouse_track_width
, 1);
4626 mouse_track_width
= 0;
4627 if ((mouse_track_left
== f
->phys_cursor_x
4628 || mouse_track_left
- 1 == f
->phys_cursor_x
)
4629 && mouse_track_top
== f
->phys_cursor_y
)
4631 x_display_cursor (f
, 1);
4634 XDefineCursor (FRAME_X_DISPLAY (f
),
4636 f
->output_data
.x
->nontext_cursor
);
4637 XFlush (FRAME_X_DISPLAY (f
));
4647 /* Draw a pixmap specified by IMAGE_DATA of dimensions WIDTH and HEIGHT
4648 on the frame F at position X, Y. */
4650 x_draw_pixmap (f
, x
, y
, image_data
, width
, height
)
4652 int x
, y
, width
, height
;
4657 image
= XCreateBitmapFromData (FRAME_X_DISPLAY (f
),
4658 FRAME_X_WINDOW (f
), image_data
,
4660 XCopyPlane (FRAME_X_DISPLAY (f
), image
, FRAME_X_WINDOW (f
),
4661 f
->output_data
.x
->normal_gc
, 0, 0, width
, height
, x
, y
);
4665 #if 0 /* I'm told these functions are superfluous
4666 given the ability to bind function keys. */
4669 DEFUN ("x-rebind-key", Fx_rebind_key
, Sx_rebind_key
, 3, 3, 0,
4670 "Rebind X keysym KEYSYM, with MODIFIERS, to generate NEWSTRING.\n\
4671 KEYSYM is a string which conforms to the X keysym definitions found\n\
4672 in X11/keysymdef.h, sans the initial XK_. MODIFIERS is nil or a\n\
4673 list of strings specifying modifier keys such as Control_L, which must\n\
4674 also be depressed for NEWSTRING to appear.")
4675 (x_keysym
, modifiers
, newstring
)
4676 register Lisp_Object x_keysym
;
4677 register Lisp_Object modifiers
;
4678 register Lisp_Object newstring
;
4681 register KeySym keysym
;
4682 KeySym modifier_list
[16];
4685 CHECK_STRING (x_keysym
, 1);
4686 CHECK_STRING (newstring
, 3);
4688 keysym
= XStringToKeysym ((char *) XSTRING (x_keysym
)->data
);
4689 if (keysym
== NoSymbol
)
4690 error ("Keysym does not exist");
4692 if (NILP (modifiers
))
4693 XRebindKeysym (x_current_display
, keysym
, modifier_list
, 0,
4694 XSTRING (newstring
)->data
, XSTRING (newstring
)->size
);
4697 register Lisp_Object rest
, mod
;
4700 for (rest
= modifiers
; !NILP (rest
); rest
= Fcdr (rest
))
4703 error ("Can't have more than 16 modifiers");
4706 CHECK_STRING (mod
, 3);
4707 modifier_list
[i
] = XStringToKeysym ((char *) XSTRING (mod
)->data
);
4709 if (modifier_list
[i
] == NoSymbol
4710 || !(IsModifierKey (modifier_list
[i
])
4711 || ((unsigned)(modifier_list
[i
]) == XK_Mode_switch
)
4712 || ((unsigned)(modifier_list
[i
]) == XK_Num_Lock
)))
4714 if (modifier_list
[i
] == NoSymbol
4715 || !IsModifierKey (modifier_list
[i
]))
4717 error ("Element is not a modifier keysym");
4721 XRebindKeysym (x_current_display
, keysym
, modifier_list
, i
,
4722 XSTRING (newstring
)->data
, XSTRING (newstring
)->size
);
4728 DEFUN ("x-rebind-keys", Fx_rebind_keys
, Sx_rebind_keys
, 2, 2, 0,
4729 "Rebind KEYCODE to list of strings STRINGS.\n\
4730 STRINGS should be a list of 16 elements, one for each shift combination.\n\
4731 nil as element means don't change.\n\
4732 See the documentation of `x-rebind-key' for more information.")
4734 register Lisp_Object keycode
;
4735 register Lisp_Object strings
;
4737 register Lisp_Object item
;
4738 register unsigned char *rawstring
;
4739 KeySym rawkey
, modifier
[1];
4741 register unsigned i
;
4744 CHECK_NUMBER (keycode
, 1);
4745 CHECK_CONS (strings
, 2);
4746 rawkey
= (KeySym
) ((unsigned) (XINT (keycode
))) & 255;
4747 for (i
= 0; i
<= 15; strings
= Fcdr (strings
), i
++)
4749 item
= Fcar (strings
);
4752 CHECK_STRING (item
, 2);
4753 strsize
= XSTRING (item
)->size
;
4754 rawstring
= (unsigned char *) xmalloc (strsize
);
4755 bcopy (XSTRING (item
)->data
, rawstring
, strsize
);
4756 modifier
[1] = 1 << i
;
4757 XRebindKeysym (x_current_display
, rawkey
, modifier
, 1,
4758 rawstring
, strsize
);
4763 #endif /* HAVE_X11 */
4766 #ifndef HAVE_XSCREENNUMBEROFSCREEN
4768 XScreenNumberOfScreen (scr
)
4769 register Screen
*scr
;
4771 register Display
*dpy
;
4772 register Screen
*dpyscr
;
4776 dpyscr
= dpy
->screens
;
4778 for (i
= 0; i
< dpy
->nscreens
; i
++, dpyscr
++)
4784 #endif /* not HAVE_XSCREENNUMBEROFSCREEN */
4787 select_visual (dpy
, screen
, depth
)
4790 unsigned int *depth
;
4793 XVisualInfo
*vinfo
, vinfo_template
;
4796 v
= DefaultVisualOfScreen (screen
);
4799 vinfo_template
.visualid
= XVisualIDFromVisual (v
);
4801 vinfo_template
.visualid
= v
->visualid
;
4804 vinfo_template
.screen
= XScreenNumberOfScreen (screen
);
4806 vinfo
= XGetVisualInfo (dpy
,
4807 VisualIDMask
| VisualScreenMask
, &vinfo_template
,
4810 fatal ("Can't get proper X visual info");
4812 if ((1 << vinfo
->depth
) == vinfo
->colormap_size
)
4813 *depth
= vinfo
->depth
;
4817 int n
= vinfo
->colormap_size
- 1;
4826 XFree ((char *) vinfo
);
4830 /* Return the X display structure for the display named NAME.
4831 Open a new connection if necessary. */
4833 struct x_display_info
*
4834 x_display_info_for_name (name
)
4838 struct x_display_info
*dpyinfo
;
4840 CHECK_STRING (name
, 0);
4842 if (! EQ (Vwindow_system
, intern ("x")))
4843 error ("Not using X Windows");
4845 for (dpyinfo
= x_display_list
, names
= x_display_name_list
;
4847 dpyinfo
= dpyinfo
->next
, names
= XCONS (names
)->cdr
)
4850 tem
= Fstring_equal (XCONS (XCONS (names
)->car
)->car
, name
);
4855 /* Use this general default value to start with. */
4856 Vx_resource_name
= Vinvocation_name
;
4858 validate_x_resource_name ();
4860 dpyinfo
= x_term_init (name
, (unsigned char *)0,
4861 (char *) XSTRING (Vx_resource_name
)->data
);
4864 error ("Cannot connect to X server %s", XSTRING (name
)->data
);
4867 XSETFASTINT (Vwindow_system_version
, 11);
4872 DEFUN ("x-open-connection", Fx_open_connection
, Sx_open_connection
,
4873 1, 3, 0, "Open a connection to an X server.\n\
4874 DISPLAY is the name of the display to connect to.\n\
4875 Optional second arg XRM-STRING is a string of resources in xrdb format.\n\
4876 If the optional third arg MUST-SUCCEED is non-nil,\n\
4877 terminate Emacs if we can't open the connection.")
4878 (display
, xrm_string
, must_succeed
)
4879 Lisp_Object display
, xrm_string
, must_succeed
;
4881 unsigned int n_planes
;
4882 unsigned char *xrm_option
;
4883 struct x_display_info
*dpyinfo
;
4885 CHECK_STRING (display
, 0);
4886 if (! NILP (xrm_string
))
4887 CHECK_STRING (xrm_string
, 1);
4889 if (! EQ (Vwindow_system
, intern ("x")))
4890 error ("Not using X Windows");
4892 if (! NILP (xrm_string
))
4893 xrm_option
= (unsigned char *) XSTRING (xrm_string
)->data
;
4895 xrm_option
= (unsigned char *) 0;
4897 /* Use this general default value to start with. */
4898 Vx_resource_name
= Vinvocation_name
;
4900 validate_x_resource_name ();
4902 /* This is what opens the connection and sets x_current_display.
4903 This also initializes many symbols, such as those used for input. */
4904 dpyinfo
= x_term_init (display
, xrm_option
,
4905 (char *) XSTRING (Vx_resource_name
)->data
);
4909 if (!NILP (must_succeed
))
4910 fatal ("Cannot connect to X server %s.\n\
4911 Check the DISPLAY environment variable or use `-d'.\n\
4912 Also use the `xhost' program to verify that it is set to permit\n\
4913 connections from your machine.\n",
4914 XSTRING (display
)->data
);
4916 error ("Cannot connect to X server %s", XSTRING (display
)->data
);
4921 XSETFASTINT (Vwindow_system_version
, 11);
4925 DEFUN ("x-close-connection", Fx_close_connection
,
4926 Sx_close_connection
, 1, 1, 0,
4927 "Close the connection to DISPLAY's X server.\n\
4928 For DISPLAY, specify either a frame or a display name (a string).\n\
4929 If DISPLAY is nil, that stands for the selected frame's display.")
4931 Lisp_Object display
;
4933 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
4934 struct x_display_info
*tail
;
4937 if (dpyinfo
->reference_count
> 0)
4938 error ("Display still has frames on it");
4941 /* Free the fonts in the font table. */
4942 for (i
= 0; i
< dpyinfo
->n_fonts
; i
++)
4944 if (dpyinfo
->font_table
[i
].name
)
4945 free (dpyinfo
->font_table
[i
].name
);
4946 /* Don't free the full_name string;
4947 it is always shared with something else. */
4948 XFreeFont (dpyinfo
->display
, dpyinfo
->font_table
[i
].font
);
4950 x_destroy_all_bitmaps (dpyinfo
);
4951 XSetCloseDownMode (dpyinfo
->display
, DestroyAll
);
4953 #ifdef USE_X_TOOLKIT
4954 XtCloseDisplay (dpyinfo
->display
);
4956 XCloseDisplay (dpyinfo
->display
);
4959 x_delete_display (dpyinfo
);
4965 DEFUN ("x-display-list", Fx_display_list
, Sx_display_list
, 0, 0, 0,
4966 "Return the list of display names that Emacs has connections to.")
4969 Lisp_Object tail
, result
;
4972 for (tail
= x_display_name_list
; ! NILP (tail
); tail
= XCONS (tail
)->cdr
)
4973 result
= Fcons (XCONS (XCONS (tail
)->car
)->car
, result
);
4978 DEFUN ("x-synchronize", Fx_synchronize
, Sx_synchronize
, 1, 2, 0,
4979 "If ON is non-nil, report X errors as soon as the erring request is made.\n\
4980 If ON is nil, allow buffering of requests.\n\
4981 Turning on synchronization prohibits the Xlib routines from buffering\n\
4982 requests and seriously degrades performance, but makes debugging much\n\
4984 The optional second argument DISPLAY specifies which display to act on.\n\
4985 DISPLAY should be either a frame or a display name (a string).\n\
4986 If DISPLAY is omitted or nil, that stands for the selected frame's display.")
4988 Lisp_Object display
, on
;
4990 struct x_display_info
*dpyinfo
= check_x_display_info (display
);
4992 XSynchronize (dpyinfo
->display
, !EQ (on
, Qnil
));
4997 /* Wait for responses to all X commands issued so far for frame F. */
5004 XSync (FRAME_X_DISPLAY (f
), False
);
5010 /* This is zero if not using X windows. */
5013 /* The section below is built by the lisp expression at the top of the file,
5014 just above where these variables are declared. */
5015 /*&&& init symbols here &&&*/
5016 Qauto_raise
= intern ("auto-raise");
5017 staticpro (&Qauto_raise
);
5018 Qauto_lower
= intern ("auto-lower");
5019 staticpro (&Qauto_lower
);
5020 Qbackground_color
= intern ("background-color");
5021 staticpro (&Qbackground_color
);
5022 Qbar
= intern ("bar");
5024 Qborder_color
= intern ("border-color");
5025 staticpro (&Qborder_color
);
5026 Qborder_width
= intern ("border-width");
5027 staticpro (&Qborder_width
);
5028 Qbox
= intern ("box");
5030 Qcursor_color
= intern ("cursor-color");
5031 staticpro (&Qcursor_color
);
5032 Qcursor_type
= intern ("cursor-type");
5033 staticpro (&Qcursor_type
);
5034 Qfont
= intern ("font");
5036 Qforeground_color
= intern ("foreground-color");
5037 staticpro (&Qforeground_color
);
5038 Qgeometry
= intern ("geometry");
5039 staticpro (&Qgeometry
);
5040 Qicon_left
= intern ("icon-left");
5041 staticpro (&Qicon_left
);
5042 Qicon_top
= intern ("icon-top");
5043 staticpro (&Qicon_top
);
5044 Qicon_type
= intern ("icon-type");
5045 staticpro (&Qicon_type
);
5046 Qicon_name
= intern ("icon-name");
5047 staticpro (&Qicon_name
);
5048 Qinternal_border_width
= intern ("internal-border-width");
5049 staticpro (&Qinternal_border_width
);
5050 Qleft
= intern ("left");
5052 Qmouse_color
= intern ("mouse-color");
5053 staticpro (&Qmouse_color
);
5054 Qnone
= intern ("none");
5056 Qparent_id
= intern ("parent-id");
5057 staticpro (&Qparent_id
);
5058 Qscroll_bar_width
= intern ("scroll-bar-width");
5059 staticpro (&Qscroll_bar_width
);
5060 Qsuppress_icon
= intern ("suppress-icon");
5061 staticpro (&Qsuppress_icon
);
5062 Qtop
= intern ("top");
5064 Qundefined_color
= intern ("undefined-color");
5065 staticpro (&Qundefined_color
);
5066 Qvertical_scroll_bars
= intern ("vertical-scroll-bars");
5067 staticpro (&Qvertical_scroll_bars
);
5068 Qvisibility
= intern ("visibility");
5069 staticpro (&Qvisibility
);
5070 Qwindow_id
= intern ("window-id");
5071 staticpro (&Qwindow_id
);
5072 Qx_frame_parameter
= intern ("x-frame-parameter");
5073 staticpro (&Qx_frame_parameter
);
5074 Qx_resource_name
= intern ("x-resource-name");
5075 staticpro (&Qx_resource_name
);
5076 Quser_position
= intern ("user-position");
5077 staticpro (&Quser_position
);
5078 Quser_size
= intern ("user-size");
5079 staticpro (&Quser_size
);
5080 Qdisplay
= intern ("display");
5081 staticpro (&Qdisplay
);
5082 /* This is the end of symbol initialization. */
5084 Fput (Qundefined_color
, Qerror_conditions
,
5085 Fcons (Qundefined_color
, Fcons (Qerror
, Qnil
)));
5086 Fput (Qundefined_color
, Qerror_message
,
5087 build_string ("Undefined color"));
5089 init_x_parm_symbols ();
5091 DEFVAR_LISP ("x-bitmap-file-path", &Vx_bitmap_file_path
,
5092 "List of directories to search for bitmap files for X.");
5093 Vx_bitmap_file_path
= decode_env_path ((char *) 0, PATH_BITMAPS
);
5095 DEFVAR_LISP ("x-pointer-shape", &Vx_pointer_shape
,
5096 "The shape of the pointer when over text.\n\
5097 Changing the value does not affect existing frames\n\
5098 unless you set the mouse color.");
5099 Vx_pointer_shape
= Qnil
;
5101 DEFVAR_LISP ("x-resource-name", &Vx_resource_name
,
5102 "The name Emacs uses to look up X resources; for internal use only.\n\
5103 `x-get-resource' uses this as the first component of the instance name\n\
5104 when requesting resource values.\n\
5105 Emacs initially sets `x-resource-name' to the name under which Emacs\n\
5106 was invoked, or to the value specified with the `-name' or `-rn'\n\
5107 switches, if present.");
5108 Vx_resource_name
= Qnil
;
5110 #if 0 /* This doesn't really do anything. */
5111 DEFVAR_INT ("x-nontext-pointer-shape", &Vx_nontext_pointer_shape
,
5112 "The shape of the pointer when not over text.\n\
5113 This variable takes effect when you create a new frame\n\
5114 or when you set the mouse color.");
5116 Vx_nontext_pointer_shape
= Qnil
;
5118 #if 0 /* This doesn't really do anything. */
5119 DEFVAR_INT ("x-mode-pointer-shape", &Vx_mode_pointer_shape
,
5120 "The shape of the pointer when over the mode line.\n\
5121 This variable takes effect when you create a new frame\n\
5122 or when you set the mouse color.");
5124 Vx_mode_pointer_shape
= Qnil
;
5126 DEFVAR_INT ("x-sensitive-text-pointer-shape",
5127 &Vx_sensitive_text_pointer_shape
,
5128 "The shape of the pointer when over mouse-sensitive text.\n\
5129 This variable takes effect when you create a new frame\n\
5130 or when you set the mouse color.");
5131 Vx_sensitive_text_pointer_shape
= Qnil
;
5133 DEFVAR_LISP ("x-cursor-fore-pixel", &Vx_cursor_fore_pixel
,
5134 "A string indicating the foreground color of the cursor box.");
5135 Vx_cursor_fore_pixel
= Qnil
;
5137 DEFVAR_LISP ("x-no-window-manager", &Vx_no_window_manager
,
5138 "Non-nil if no X window manager is in use.\n\
5139 Emacs doesn't try to figure this out; this is always nil\n\
5140 unless you set it to something else.");
5141 /* We don't have any way to find this out, so set it to nil
5142 and maybe the user would like to set it to t. */
5143 Vx_no_window_manager
= Qnil
;
5145 #ifdef USE_X_TOOLKIT
5146 Fprovide (intern ("x-toolkit"));
5149 Fprovide (intern ("motif"));
5152 defsubr (&Sx_get_resource
);
5154 defsubr (&Sx_draw_rectangle
);
5155 defsubr (&Sx_erase_rectangle
);
5156 defsubr (&Sx_contour_region
);
5157 defsubr (&Sx_uncontour_region
);
5159 defsubr (&Sx_list_fonts
);
5160 defsubr (&Sx_display_color_p
);
5161 defsubr (&Sx_display_grayscale_p
);
5162 defsubr (&Sx_color_defined_p
);
5163 defsubr (&Sx_color_values
);
5164 defsubr (&Sx_server_max_request_size
);
5165 defsubr (&Sx_server_vendor
);
5166 defsubr (&Sx_server_version
);
5167 defsubr (&Sx_display_pixel_width
);
5168 defsubr (&Sx_display_pixel_height
);
5169 defsubr (&Sx_display_mm_width
);
5170 defsubr (&Sx_display_mm_height
);
5171 defsubr (&Sx_display_screens
);
5172 defsubr (&Sx_display_planes
);
5173 defsubr (&Sx_display_color_cells
);
5174 defsubr (&Sx_display_visual_class
);
5175 defsubr (&Sx_display_backing_store
);
5176 defsubr (&Sx_display_save_under
);
5178 defsubr (&Sx_rebind_key
);
5179 defsubr (&Sx_rebind_keys
);
5180 defsubr (&Sx_track_pointer
);
5181 defsubr (&Sx_grab_pointer
);
5182 defsubr (&Sx_ungrab_pointer
);
5184 defsubr (&Sx_parse_geometry
);
5185 defsubr (&Sx_create_frame
);
5186 defsubr (&Sfocus_frame
);
5187 defsubr (&Sunfocus_frame
);
5189 defsubr (&Sx_horizontal_line
);
5191 defsubr (&Sx_open_connection
);
5192 defsubr (&Sx_close_connection
);
5193 defsubr (&Sx_display_list
);
5194 defsubr (&Sx_synchronize
);
5197 #endif /* HAVE_X_WINDOWS */