lwlib/lwlib-utils.c

   1 /* Defines some widget utility functions.
   2    Copyright (C) 1992 Lucid, Inc.
   3
   4 This file is part of the Lucid Widget Library.
   5
   6 The Lucid Widget Library is free software; you can redistribute it and/or
   7 modify it under the terms of the GNU General Public License as published by
   8 the Free Software Foundation; either version 1, or (at your option)
   9 any later version.
  10
  11 The Lucid Widget Library 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.
  15
  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., 51 Franklin Street, Fifth Floor,
  19 Boston, MA 02110-1301, USA.  */
  20
  21 #ifdef HAVE_CONFIG_H
  22 #include <config.h>
  23 #endif
  24
  25 /* Definitions of these in config.h can cause
  26    declaration conflicts later on between declarations for index
  27    and declarations for strchr.  This file doesn't use
  28    index and rindex, so cancel them.  */
  29 #undef index
  30 #undef rindex
  31
  32 #include "../src/lisp.h"
  33
  34 #include <X11/Xatom.h>
  35 #include <X11/IntrinsicP.h>
  36 #include <X11/ObjectP.h>
  37 #include "lwlib-utils.h"
  38 #include "lwlib.h"
  39
  40 /* Redisplay the contents of the widget, without first clearing it. */
  41 void
  42 XtNoClearRefreshWidget (widget)
  43      Widget widget;
  44 {
  45   XEvent event;
  46
  47   event.type = Expose;
  48   event.xexpose.serial = 0;
  49   event.xexpose.send_event = 0;
  50   event.xexpose.display = XtDisplay (widget);
  51   event.xexpose.window = XtWindow (widget);
  52   event.xexpose.x = 0;
  53   event.xexpose.y = 0;
  54   event.xexpose.width = widget->core.width;
  55   event.xexpose.height = widget->core.height;
  56   event.xexpose.count = 0;
  57
  58   (*widget->core.widget_class->core_class.expose)
  59     (widget, &event, (Region)NULL);
  60 }
  61
  62
  63 /*
  64  * Apply a function to all the subwidgets of a given widget recursively.
  65 */
  66 void
  67 XtApplyToWidgets (w, proc, arg)
  68      Widget w;
  69      XtApplyToWidgetsProc proc;
  70      XtPointer arg;
  71 {
  72   if (XtIsComposite (w))
  73     {
  74       CompositeWidget cw = (CompositeWidget) w;
  75       /* We have to copy the children list before mapping over it, because
  76          the procedure might add/delete elements, which would lose badly.
  77          */
  78       int nkids = cw->composite.num_children;
  79       Widget *kids = (Widget *) malloc (sizeof (Widget) * nkids);
  80       int i;
  81       lwlib_bcopy ((char *) cw->composite.children, (char *) kids,
  82                    sizeof (Widget) * nkids);
  83       for (i = 0; i < nkids; i++)
  84 /* This prevent us from using gadgets, why is it here? */
  85 /*      if (XtIsWidget (kids [i])) */
  86           {
  87             /* do the kiddies first in case we're destroying */
  88             XtApplyToWidgets (kids [i], proc, arg);
  89             proc (kids [i], arg);
  90           }
  91       free (kids);
  92     }
  93 }
  94
  95
  96 /*
  97  * Apply a function to all the subwidgets of a given widget recursively.
  98  * Stop as soon as the function returns non NULL and returns this as a value.
  99  */
 100 void *
 101 XtApplyUntilToWidgets (w, proc, arg)
 102      Widget w;
 103      XtApplyUntilToWidgetsProc proc;
 104      XtPointer arg;
 105 {
 106   void* result;
 107   if (XtIsComposite (w))
 108     {
 109       CompositeWidget cw = (CompositeWidget)w;
 110       int i;
 111       for (i = 0; i < cw->composite.num_children; i++)
 112         if (XtIsWidget (cw->composite.children [i])){
 113           result = proc (cw->composite.children [i], arg);
 114           if (result)
 115             return result;
 116           result = XtApplyUntilToWidgets (cw->composite.children [i], proc,
 117                                           arg);
 118           if (result)
 119             return result;
 120         }
 121     }
 122   return NULL;
 123 }
 124
 125
 126 /*
 127  * Returns a copy of the list of all children of a composite widget
 128  */
 129 Widget *
 130 XtCompositeChildren (widget, number)
 131      Widget widget;
 132      unsigned int* number;
 133 {
 134   CompositeWidget cw = (CompositeWidget)widget;
 135   Widget* result;
 136   int n;
 137   int i;
 138
 139   if (!XtIsComposite (widget))
 140     {
 141       *number = 0;
 142       return NULL;
 143     }
 144   n = cw->composite.num_children;
 145   result = (Widget*)XtMalloc (n * sizeof (Widget));
 146   *number = n;
 147   for (i = 0; i < n; i++)
 148     result [i] = cw->composite.children [i];
 149   return result;
 150 }
 151
 152 Boolean
 153 XtWidgetBeingDestroyedP (widget)
 154      Widget widget;
 155 {
 156   return widget->core.being_destroyed;
 157 }
 158
 159 void
 160 XtSafelyDestroyWidget (widget)
 161      Widget widget;
 162 {
 163 #if 0
 164
 165   /* this requires IntrinsicI.h (actually, InitialI.h) */
 166
 167   XtAppContext app = XtWidgetToApplicationContext(widget);
 168
 169   if (app->dispatch_level == 0)
 170     {
 171       app->dispatch_level = 1;
 172       XtDestroyWidget (widget);
 173       /* generates an event so that the event loop will be called */
 174       XChangeProperty (XtDisplay (widget), XtWindow (widget),
 175                        XA_STRING, XA_STRING, 32, PropModeAppend, NULL, 0);
 176       app->dispatch_level = 0;
 177     }
 178   else
 179     XtDestroyWidget (widget);
 180
 181 #else
 182   abort ();
 183 #endif
 184 }
 185
 186 /* arch-tag: f21f0a1f-2a4e-44e1-8715-7f234fe2d159
 187    (do not change this comment) */