annotate src/ExternalClient-Xlib.c @ 844:047d37eb70d7

[xemacs-hg @ 2002-05-16 13:30:23 by ben] ui fixes for things that were bothering me bytecode.c, editfns.c, lisp.h, lread.c: Fix save-restriction to use markers rather than pseudo-markers (integers representing the amount of text on either side of the region). That way, all inserts are handled correctly, not just those inside old restriction. Add buffer argument to save_restriction_save(). process.c: Clean up very dirty and kludgy code that outputs into a buffer -- use proper unwind protects, etc. font-lock.c: Do save-restriction/widen around the function -- otherwise, incorrect results will ensue when a buffer has been narrowed before a call to e.g. `buffer-syntactic-context' -- something that happens quite often. fileio.c: Look for a handler for make-temp-name. window.c, winslots.h: Try to solve this annoying problem: have two frames displaying the buffer, in different places; in one, temporarily switch away to another buffer and then back -- and you've lost your position; it's reset to the other one in the other frame. My current solution involves window-level caches of buffers and points (also a cache for window-start); when set-window-buffer is called, it looks to see if the buffer was previously visited in the window, and if so, uses the most recent point at that time. (It's a marker, so it handles changes.) #### Note: It could be argued that doing it on the frame level would be better -- e.g. if you visit a buffer temporarily through a grep, and then go back to that buffer, you presumably want the grep's position rather than some previous position provided everything was in the same frame, even though the grep was in another window in the frame. However, doing it on the frame level fails when you have two windows on the same frame. Perhaps we keep both a window and a frame cache, and use the frame cache if there are no other windows on the frame showing the buffer, else the window's cache? This is probably something to be configurable using a specifier. Suggestions please please please? window.c: Clean up a bit code that deals with the annoyance of window-point vs. point. dialog.el: Function to ask a multiple-choice question, automatically choosing a dialog box or minibuffer representation as necessary. Generalized version of yes-or-no-p, y-or-n-p. files.el: Use get-user-response to ask "yes/no/diff" question when recovering. "diff" means that a diff is displayed between the current file and the autosave. (Converts/deconverts escape-quoted as necessary. No more complaints from you, Mr. Turnbull!) One known problem: when a dialog is used, it's modal, so you can't scroll the diff. Will fix soon. lisp-mode.el: If we're filling a string, don't treat semicolon as a comment, which would give very unfriendly results. Uses `buffer-syntactic-context'. simple.el: all changes back to the beginning. (Useful if you've saved the file in the middle of the changes.) simple.el: Add option kill-word-into-kill-ring, which controls whether words deleted with kill-word, backward-kill-word, etc. are "cut" into the kill ring, or "cleared" into nothingness. (My preference is the latter, by far. I'd almost go so far as suggesting we make it the default, as you can always select a word and then cut it if you want it cut.) menubar-items.el: Add option corresponding to kill-word-into-kill-ring.
author ben
date Thu, 16 May 2002 13:30:58 +0000
parents 376386a54a3c
children 8de911beca70
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1 /* External client, raw Xlib version.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2 Copyright (C) 1993, 1994 Sun Microsystems, Inc.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
4 This library is free software; you can redistribute it and/or
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
5 modify it under the terms of the GNU Library General Public
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
6 License as published by the Free Software Foundation; either
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
7 version 2 of the License, or (at your option) any later version.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
8
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
9 This library is distributed in the hope that it will be useful,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
12 Library General Public License for more details.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
13
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
14 You should have received a copy of the GNU Library General Public
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
15 License along with this library; if not, write to
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
16 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
17 Boston, MA 02111-1307, USA. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
18
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
19 /* Synched up with: Not in FSF. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
20
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
21 /* Written by Ben Wing, February 1994. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
22
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
23 #include <X11/Xlib.h>
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
24 #include <X11/Xresource.h>
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
25 #include <X11/Xutil.h>
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
26 #include "extw-Xlib.h"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
27
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
28 /* this is not a perfect solution, but otherwise we have to include all
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
29 of the Xt junk */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
30
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
31 #define XtGeometryNo 1
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
32
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
33 #if (XlibSpecificationRelease < 5)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
34 # define XPointer char *
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
35 #endif
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
36
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
37 static int context_inited;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
38 static XContext focus_context;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
39
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
40 /* does the specified window have the focus, given that the pointer just
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
41 entered (or left) the window (according to enter_p)? This question
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
42 does not have an obvious answer in X. (Basically, X sucks.) */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
43
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
44 static int
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
45 window_has_focus_p (Display *display, Window win, int enter_p)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
46 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
47 Window focuswin;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
48 int dummy;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
49
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
50 XGetInputFocus(display, &focuswin, &dummy);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
51 if (focuswin == PointerRoot)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
52 return enter_p;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
53 if (focuswin == win)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
54 return True;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
55 if (!enter_p)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
56 return False;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
57 do
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
58 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
59 Status st;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
60 Window root_win, parent_win;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
61 Window *child_win;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
62 int nchild;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
63
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
64 st = XQueryTree(display, win, &root_win, &parent_win, &child_win,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
65 &nchild);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
66 if (!st)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
67 return False;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
68 XFree((XPointer)child_win);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
69 if (parent_win == focuswin)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
70 return True;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
71 if (parent_win == root_win)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
72 return False;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
73 win = parent_win;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
74 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
75 while (1);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
76 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
77
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
78
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
79 /* External entry points when using XLib directly */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
80
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
81 void ExternalClientInitialize (Display *display, Window win);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
82 void
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
83 ExternalClientInitialize (Display *display, Window win)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
84 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
85 extw_initialize_atoms(display);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
86 extw_which_side = extw_client_send;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
87 if (!context_inited)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
88 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
89 focus_context = XUniqueContext();
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
90 context_inited = 1;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
91 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
92 XSaveContext(display, win, focus_context, 0);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
93 XSelectInput(display, win, EnterWindowMask | LeaveWindowMask |
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
94 FocusChangeMask);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
95 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
96
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
97 void ExternalClientEventHandler (Display *display, Window win, XEvent *event);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
98 void
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
99 ExternalClientEventHandler (Display *display, Window win, XEvent *event)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
100 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
101 if (win != event->xany.window)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
102 return;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
103
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
104 if (event->type == ClientMessage &&
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
105 event->xclient.message_type == a_EXTW_NOTIFY &&
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
106 event->xclient.data.l[0] == extw_shell_send)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
107 switch (event->xclient.data.l[1]) {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
108 case extw_notify_gm:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
109 /* for the moment, just refuse geometry requests. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
110 extw_send_notify_3(display, win, extw_notify_gm, XtGeometryNo, 0, 0);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
111 break;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
112
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
113 case extw_notify_init:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
114 extw_send_notify_3(display, win, extw_notify_init, EXTW_TYPE_XLIB, 0, 0);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
115 break;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
116
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
117 case extw_notify_end:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
118 XClearArea(display, win, 0, 0, 0, 0, True);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
119 break;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
120 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
121 else
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
122 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
123 int focus_status;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
124 XPointer current_focus;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
125
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
126 if (event->type == FocusIn)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
127 focus_status = 1;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
128 else if (event->type == FocusOut)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
129 focus_status = 0;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
130 else if (event->type == EnterNotify &&
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
131 event->xcrossing.detail != NotifyInferior)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
132 focus_status = window_has_focus_p(display, win, 1);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
133 else if (event->type == LeaveNotify &&
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
134 event->xcrossing.detail != NotifyInferior)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
135 focus_status = window_has_focus_p(display, win, 0);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
136 else
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
137 return;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
138 XFindContext(display, win, focus_context, &current_focus);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
139 if (focus_status != (int) current_focus)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
140 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
141 XSaveContext(display, win, focus_context, (XPointer) focus_status);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
142 extw_send_notify_3(display, win, focus_status ?
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
143 extw_notify_focus_in : extw_notify_focus_out,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
144 0, 0, 0);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
145 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
146 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
147 }