git.chise.org Git - chise/xemacs-chise.git.1/blob - src/ExternalClient-Xlib.c

   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, &current_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 }