lwlib-utils.c 4.55 KB
Newer Older
Richard M. Stallman's avatar
Richard M. Stallman committed
1
/* Defines some widget utility functions.
Glenn Morris's avatar
Glenn Morris committed
2
Copyright (C) 1992 Lucid, Inc.
3
Copyright (C) 1994, 2001-2011 Free Software Foundation, Inc.
Richard M. Stallman's avatar
Richard M. Stallman committed
4 5 6

This file is part of the Lucid Widget Library.

7
The Lucid Widget Library is free software; you can redistribute it and/or
Richard M. Stallman's avatar
Richard M. Stallman committed
8 9 10 11 12
modify it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 1, or (at your option)
any later version.

The Lucid Widget Library is distributed in the hope that it will be useful,
13
but WITHOUT ANY WARRANTY; without even the implied warranty of
Richard M. Stallman's avatar
Richard M. Stallman committed
14 15 16 17 18
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with GNU Emacs; see the file COPYING.  If not, write to
Lute Kamstra's avatar
Lute Kamstra committed
19 20
the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301, USA.  */
Richard M. Stallman's avatar
Richard M. Stallman committed
21

22 23 24 25
#ifdef HAVE_CONFIG_H
#include <config.h>
#endif

Karl Heuer's avatar
Karl Heuer committed
26 27 28 29 30 31 32
/* Definitions of these in config.h can cause
   declaration conflicts later on between declarations for index
   and declarations for strchr.  This file doesn't use
   index and rindex, so cancel them.  */
#undef index
#undef rindex

33
#include <setjmp.h>
Richard M. Stallman's avatar
Richard M. Stallman committed
34 35
#include "../src/lisp.h"

Richard M. Stallman's avatar
Richard M. Stallman committed
36 37 38 39
#include <X11/Xatom.h>
#include <X11/IntrinsicP.h>
#include <X11/ObjectP.h>
#include "lwlib-utils.h"
Dave Love's avatar
Dave Love committed
40
#include "lwlib.h"
Richard M. Stallman's avatar
Richard M. Stallman committed
41 42 43

/* Redisplay the contents of the widget, without first clearing it. */
void
44
XtNoClearRefreshWidget (Widget widget)
Richard M. Stallman's avatar
Richard M. Stallman committed
45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63
{
  XEvent event;

  event.type = Expose;
  event.xexpose.serial = 0;
  event.xexpose.send_event = 0;
  event.xexpose.display = XtDisplay (widget);
  event.xexpose.window = XtWindow (widget);
  event.xexpose.x = 0;
  event.xexpose.y = 0;
  event.xexpose.width = widget->core.width;
  event.xexpose.height = widget->core.height;
  event.xexpose.count = 0;

  (*widget->core.widget_class->core_class.expose)
    (widget, &event, (Region)NULL);
}


64
/*
Richard M. Stallman's avatar
Richard M. Stallman committed
65 66 67
 * Apply a function to all the subwidgets of a given widget recursively.
*/
void
68
XtApplyToWidgets (Widget w, XtApplyToWidgetsProc proc, XtPointer arg)
Richard M. Stallman's avatar
Richard M. Stallman committed
69 70 71 72 73 74 75 76
{
  if (XtIsComposite (w))
    {
      CompositeWidget cw = (CompositeWidget) w;
      /* We have to copy the children list before mapping over it, because
	 the procedure might add/delete elements, which would lose badly.
	 */
      int nkids = cw->composite.num_children;
Jan D's avatar
Jan D committed
77
      Widget *kids = (Widget *) xmalloc (sizeof (Widget) * nkids);
Richard M. Stallman's avatar
Richard M. Stallman committed
78
      int i;
79 80
      memcpy ((char *) kids, (char *) cw->composite.children,
	      sizeof (Widget) * nkids);
Richard M. Stallman's avatar
Richard M. Stallman committed
81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98
      for (i = 0; i < nkids; i++)
/* This prevent us from using gadgets, why is it here? */
/*	if (XtIsWidget (kids [i])) */
	  {
	    /* do the kiddies first in case we're destroying */
	    XtApplyToWidgets (kids [i], proc, arg);
	    proc (kids [i], arg);
	  }
      free (kids);
    }
}


/*
 * Apply a function to all the subwidgets of a given widget recursively.
 * Stop as soon as the function returns non NULL and returns this as a value.
 */
void *
99
XtApplyUntilToWidgets (Widget w, XtApplyUntilToWidgetsProc proc, XtPointer arg)
Richard M. Stallman's avatar
Richard M. Stallman committed
100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124
{
  void* result;
  if (XtIsComposite (w))
    {
      CompositeWidget cw = (CompositeWidget)w;
      int i;
      for (i = 0; i < cw->composite.num_children; i++)
	if (XtIsWidget (cw->composite.children [i])){
	  result = proc (cw->composite.children [i], arg);
	  if (result)
	    return result;
	  result = XtApplyUntilToWidgets (cw->composite.children [i], proc,
					  arg);
	  if (result)
	    return result;
	}
    }
  return NULL;
}


/*
 * Returns a copy of the list of all children of a composite widget
 */
Widget *
125
XtCompositeChildren (Widget widget, unsigned int *number)
Richard M. Stallman's avatar
Richard M. Stallman committed
126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145
{
  CompositeWidget cw = (CompositeWidget)widget;
  Widget* result;
  int n;
  int i;

  if (!XtIsComposite (widget))
    {
      *number = 0;
      return NULL;
    }
  n = cw->composite.num_children;
  result = (Widget*)XtMalloc (n * sizeof (Widget));
  *number = n;
  for (i = 0; i < n; i++)
    result [i] = cw->composite.children [i];
  return result;
}

Boolean
146
XtWidgetBeingDestroyedP (Widget widget)
Richard M. Stallman's avatar
Richard M. Stallman committed
147 148 149 150 151
{
  return widget->core.being_destroyed;
}

void
152
XtSafelyDestroyWidget (Widget widget)
Richard M. Stallman's avatar
Richard M. Stallman committed
153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170
{
#if 0

  /* this requires IntrinsicI.h (actually, InitialI.h) */

  XtAppContext app = XtWidgetToApplicationContext(widget);

  if (app->dispatch_level == 0)
    {
      app->dispatch_level = 1;
      XtDestroyWidget (widget);
      /* generates an event so that the event loop will be called */
      XChangeProperty (XtDisplay (widget), XtWindow (widget),
		       XA_STRING, XA_STRING, 32, PropModeAppend, NULL, 0);
      app->dispatch_level = 0;
    }
  else
    XtDestroyWidget (widget);
171

Richard M. Stallman's avatar
Richard M. Stallman committed
172 173 174 175
#else
  abort ();
#endif
}
Miles Bader's avatar
Miles Bader committed
176