Mercurial > hg > xemacs-beta
annotate src/ExternalClient-Xlib.c @ 613:023b83f4e54b
[xemacs-hg @ 2001-06-10 10:42:16 by ben]
------ signal-code changes ------
data.c, device-tty.c, emacs.c, floatfns.c, linuxplay.c, nas.c,
process-unix.c, signal.c, sunplay.c, sysdep.c, syssignal.h:
use EMACS_SIGNAL everywhere instead of playing preprocessing
games with signal().
s\windowsnt.h, s\mingw32.h, syssignal.h:
Remove mswindows signal code from s+m headers and move to
syssignal.h as one of the five ways of signal handling,
instead of playing preprocessing games.
fileio.c, sysdep.c:
Rename sys_do_signal to qxe_reliable_signal.
signal.c, process-unix.c, profile.c:
Create set_timeout_signal(); use instead of just EMACS_SIGNAL
to establish a signal handler on a timeout signal; this does
special things under Cygwin.
nt.c:
Eliminate term_ntproc(), which is blank; used as a SIGABRT
handler, which was wrong anyway.
nt.c, win32.c:
Move signal code from nt.c to win32.c, since Cygwin needs it
too when dealing with timeout signals.
s\cygwin32.h:
Define CYGWIN_BROKEN_SIGNALS.
------ other changes ------
s\mingw32.h:
Fix problems with NOT_C_CODE being in the wrong place and
excluding defines needed when building Makefile.in.in.
filelock.c, mule-canna.c, mule-ccl.c, mule-ccl.h, ralloc.c,
unexalpha.c, unexapollo.c, unexcw.c, unexelfsgi.c, unexnt.c,
unexsni.c, s\aix3-1.h, s\bsd4-1.h, s\bsd4-2.h, s\bsd4-3.h, s\cxux.h,
s\cygwin32.h, s\dgux.h, s\dgux5-4r2.h, s\dgux5-4r3.h, s\dgux5-4r4.h,
s\ewsux5r4.h, s\gnu.h, s\hpux.h, s\iris3-5.h, s\iris3-6.h,
s\irix3-3.h, s\linux.h, s\mingw32.h, s\newsos5.h, s\nextstep.h,
s\ptx.h, s\riscix1-1.h, s\riscix1-2.h, s\rtu.h, s\sco4.h, s\sco5.h,
s\template.h, s\ultrix.h, s\umax.h, s\umips.h, s\unipl5-0.h,
s\unipl5-2.h, s\usg5-0.h, s\usg5-2-2.h, s\usg5-2.h, s\usg5-3.h,
s\usg5-4.h, s\windowsnt.h, s\xenix.h:
Rename 'GNU Emacs' to XEmacs in the copyright and comments.
nas.c:
Stylistic cleanup. Avoid preprocessing games with names such
as play_sound_file.
------ signal-code changes ------
data.c, device-tty.c, emacs.c, floatfns.c, linuxplay.c, nas.c,
process-unix.c, signal.c, sunplay.c, sysdep.c, syssignal.h:
use EMACS_SIGNAL everywhere instead of playing preprocessing
games with signal().
s\windowsnt.h, s\mingw32.h, syssignal.h:
Remove mswindows signal code from s+m headers and move to
syssignal.h as one of the five ways of signal handling,
instead of playing preprocessing games.
fileio.c, sysdep.c:
Rename sys_do_signal to qxe_reliable_signal.
signal.c, process-unix.c, profile.c:
Create set_timeout_signal(); use instead of just EMACS_SIGNAL
to establish a signal handler on a timeout signal; this does
special things under Cygwin.
nt.c:
Eliminate term_ntproc(), which is blank; used as a SIGABRT
handler, which was wrong anyway.
nt.c, win32.c:
Move signal code from nt.c to win32.c, since Cygwin needs it
too when dealing with timeout signals.
s\cygwin32.h:
Define CYGWIN_BROKEN_SIGNALS.
------ other changes ------
s\mingw32.h:
Fix problems with NOT_C_CODE being in the wrong place and
excluding defines needed when building Makefile.in.in.
filelock.c, mule-canna.c, mule-ccl.c, mule-ccl.h, ralloc.c,
unexalpha.c, unexapollo.c, unexcw.c, unexelfsgi.c, unexnt.c,
unexsni.c, s\aix3-1.h, s\bsd4-1.h, s\bsd4-2.h, s\bsd4-3.h, s\cxux.h,
s\cygwin32.h, s\dgux.h, s\dgux5-4r2.h, s\dgux5-4r3.h, s\dgux5-4r4.h,
s\ewsux5r4.h, s\gnu.h, s\hpux.h, s\iris3-5.h, s\iris3-6.h,
s\irix3-3.h, s\linux.h, s\mingw32.h, s\newsos5.h, s\nextstep.h,
s\ptx.h, s\riscix1-1.h, s\riscix1-2.h, s\rtu.h, s\sco4.h, s\sco5.h,
s\template.h, s\ultrix.h, s\umax.h, s\umips.h, s\unipl5-0.h,
s\unipl5-2.h, s\usg5-0.h, s\usg5-2-2.h, s\usg5-2.h, s\usg5-3.h,
s\usg5-4.h, s\windowsnt.h, s\xenix.h:
Rename 'GNU Emacs' to XEmacs in the copyright and comments.
nas.c:
Stylistic cleanup. Avoid preprocessing games with names such
as play_sound_file.
xemacs-faq.texi:
Update sections on Windows and MacOS availability.
alist.el, apropos.el, autoload.el, bytecomp.el, cl-compat.el, cl-extra.el, cl-macs.el, cl-seq.el, cl.el, cmdloop.el, cus-edit.el, derived.el, gpm.el, itimer.el, lisp-mode.el, shadow.el, version.el, wid-browse.el:
Rename 'GNU Emacs' to XEmacs in the copyright. Fix other
references to GNU Emacs that should be XEmacs or just Emacs.
files.el:
Fix warning.
simple.el:
transpose-line-up/down will now move the region up or down by
a line if active.
cvtmail.c, fakemail.c, gnuserv.c, gnuserv.h, gnuslib.c, make-msgfile.c, make-path.c, pop.c, pop.h, profile.c, tcp.c:
Rename 'GNU Emacs' to XEmacs in the copyright.
Fix comments in similar ways.
digest-doc.c, sorted-doc.c:
Fix program and author name to reflect XEmacs.
| author | ben |
|---|---|
| date | Sun, 10 Jun 2001 10:42:39 +0000 |
| parents | 376386a54a3c |
| children | 8de911beca70 |
| rev | line source |
|---|---|
| 0 | 1 /* External client, raw Xlib version. |
| 2 Copyright (C) 1993, 1994 Sun Microsystems, Inc. | |
| 3 | |
| 4 This library is free software; you can redistribute it and/or | |
| 5 modify it under the terms of the GNU Library General Public | |
| 6 License as published by the Free Software Foundation; either | |
| 7 version 2 of the License, or (at your option) any later version. | |
| 8 | |
| 9 This library is distributed in the hope that it will be useful, | |
| 10 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
| 11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
| 12 Library General Public License for more details. | |
| 13 | |
| 14 You should have received a copy of the GNU Library General Public | |
| 15 License along with this library; if not, write to | |
| 16 the Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
| 17 Boston, MA 02111-1307, USA. */ | |
| 18 | |
| 19 /* Synched up with: Not in FSF. */ | |
| 20 | |
| 21 /* Written by Ben Wing, February 1994. */ | |
| 22 | |
| 23 #include <X11/Xlib.h> | |
| 24 #include <X11/Xresource.h> | |
| 25 #include <X11/Xutil.h> | |
| 26 #include "extw-Xlib.h" | |
| 27 | |
| 28 /* this is not a perfect solution, but otherwise we have to include all | |
| 29 of the Xt junk */ | |
| 30 | |
| 31 #define XtGeometryNo 1 | |
| 32 | |
| 33 #if (XlibSpecificationRelease < 5) | |
| 34 # define XPointer char * | |
| 35 #endif | |
| 36 | |
| 37 static int context_inited; | |
| 38 static XContext focus_context; | |
| 39 | |
| 40 /* does the specified window have the focus, given that the pointer just | |
| 41 entered (or left) the window (according to enter_p)? This question | |
| 42 does not have an obvious answer in X. (Basically, X sucks.) */ | |
| 43 | |
| 44 static int | |
| 45 window_has_focus_p (Display *display, Window win, int enter_p) | |
| 46 { | |
| 47 Window focuswin; | |
| 48 int dummy; | |
| 49 | |
| 50 XGetInputFocus(display, &focuswin, &dummy); | |
| 51 if (focuswin == PointerRoot) | |
| 52 return enter_p; | |
| 53 if (focuswin == win) | |
| 54 return True; | |
| 55 if (!enter_p) | |
| 56 return False; | |
| 57 do | |
| 58 { | |
| 59 Status st; | |
| 60 Window root_win, parent_win; | |
| 61 Window *child_win; | |
| 62 int nchild; | |
| 63 | |
| 64 st = XQueryTree(display, win, &root_win, &parent_win, &child_win, | |
| 65 &nchild); | |
| 66 if (!st) | |
| 67 return False; | |
| 68 XFree((XPointer)child_win); | |
| 69 if (parent_win == focuswin) | |
| 70 return True; | |
| 71 if (parent_win == root_win) | |
| 72 return False; | |
| 73 win = parent_win; | |
| 74 } | |
| 75 while (1); | |
| 76 } | |
| 77 | |
| 78 | |
| 79 /* External entry points when using XLib directly */ | |
| 80 | |
| 81 void ExternalClientInitialize (Display *display, Window win); | |
| 82 void | |
| 83 ExternalClientInitialize (Display *display, Window win) | |
| 84 { | |
| 85 extw_initialize_atoms(display); | |
| 86 extw_which_side = extw_client_send; | |
| 87 if (!context_inited) | |
| 88 { | |
| 89 focus_context = XUniqueContext(); | |
| 90 context_inited = 1; | |
| 91 } | |
| 92 XSaveContext(display, win, focus_context, 0); | |
| 93 XSelectInput(display, win, EnterWindowMask | LeaveWindowMask | | |
| 94 FocusChangeMask); | |
| 95 } | |
| 96 | |
| 97 void ExternalClientEventHandler (Display *display, Window win, XEvent *event); | |
| 98 void | |
| 99 ExternalClientEventHandler (Display *display, Window win, XEvent *event) | |
| 100 { | |
| 101 if (win != event->xany.window) | |
| 102 return; | |
| 103 | |
| 104 if (event->type == ClientMessage && | |
| 105 event->xclient.message_type == a_EXTW_NOTIFY && | |
| 106 event->xclient.data.l[0] == extw_shell_send) | |
| 107 switch (event->xclient.data.l[1]) { | |
| 108 case extw_notify_gm: | |
| 109 /* for the moment, just refuse geometry requests. */ | |
| 110 extw_send_notify_3(display, win, extw_notify_gm, XtGeometryNo, 0, 0); | |
| 111 break; | |
| 112 | |
| 113 case extw_notify_init: | |
| 114 extw_send_notify_3(display, win, extw_notify_init, EXTW_TYPE_XLIB, 0, 0); | |
| 115 break; | |
| 116 | |
| 117 case extw_notify_end: | |
| 118 XClearArea(display, win, 0, 0, 0, 0, True); | |
| 119 break; | |
| 120 } | |
| 121 else | |
| 122 { | |
| 123 int focus_status; | |
| 124 XPointer current_focus; | |
| 125 | |
| 126 if (event->type == FocusIn) | |
| 127 focus_status = 1; | |
| 128 else if (event->type == FocusOut) | |
| 129 focus_status = 0; | |
| 130 else if (event->type == EnterNotify && | |
| 131 event->xcrossing.detail != NotifyInferior) | |
| 132 focus_status = window_has_focus_p(display, win, 1); | |
| 133 else if (event->type == LeaveNotify && | |
| 134 event->xcrossing.detail != NotifyInferior) | |
| 135 focus_status = window_has_focus_p(display, win, 0); | |
| 136 else | |
| 137 return; | |
| 138 XFindContext(display, win, focus_context, ¤t_focus); | |
| 139 if (focus_status != (int) current_focus) | |
| 140 { | |
| 141 XSaveContext(display, win, focus_context, (XPointer) focus_status); | |
| 142 extw_send_notify_3(display, win, focus_status ? | |
| 143 extw_notify_focus_in : extw_notify_focus_out, | |
| 144 0, 0, 0); | |
| 145 } | |
| 146 } | |
| 147 } |
