svn merge ^/branches/released .

1 files changed, 2255 insertions, 2257 deletions

diff --git a/libXaw/src/DisplayList.c b/libXaw/src/DisplayList.c
index 1704286ca..1bef9945f 100644
--- a/libXaw/src/DisplayList.c
+++ b/libXaw/src/DisplayList.c
@@ -1,2257 +1,2255 @@
-/*
- * Copyright (c) 1998 by The XFree86 Project, Inc.
- *
- * Permission is hereby granted, free of charge, to any person obtaining a
- * copy of this software and associated documentation files (the "Software"),
- * to deal in the Software without restriction, including without limitation
- * the rights to use, copy, modify, merge, publish, distribute, sublicense,
- * and/or sell copies of the Software, and to permit persons to whom the
- * Software is furnished to do so, subject to the following conditions:
- *
- * The above copyright notice and this permission notice shall be included in
- * all copies or substantial portions of the Software.
- *  
- * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
- * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
- * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL
- * THE XFREE86 PROJECT BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
- * WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF
- * OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
- * SOFTWARE.
- *
- * Except as contained in this notice, the name of the XFree86 Project shall
- * not be used in advertising or otherwise to promote the sale, use or other
- * dealings in this Software without prior written authorization from the
- * XFree86 Project.
- *
- * Author: Paulo César Pereira de Andrade
- */
-
-/* $XFree86: xc/lib/Xaw/DisplayList.c,v 3.18 2003/05/23 14:51:15 tsi Exp $ */
-
-#ifdef HAVE_CONFIG_H
-#include <config.h>
-#endif
-#include <ctype.h>
-#include <string.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <X11/IntrinsicP.h>
-#include <X11/StringDefs.h>
-#include <X11/CoreP.h>
-#include <X11/Xfuncs.h>
-#include <X11/Xmu/CharSet.h>
-#include <X11/Xmu/SysUtil.h>
-#include "Private.h"
-
-#ifdef __UNIXOS2__
-static char dummy;
-#endif
-
-#ifndef OLDXAW
-
-/*
- * Types
- */
-typedef struct _XawDLProc XawDLProc;
-typedef struct _XawDLData XawDLData;
-typedef struct _XawDLInfo XawDLInfo;
-
-struct _XawDLProc {
-  XrmQuark qname;
-  String *params;
-  Cardinal num_params;
-  XawDisplayListProc proc;
-  XtPointer args;
-  XawDLData *data;
-};
-
-struct _XawDLData {
-  XawDLClass *dlclass;
-  XtPointer data;
-};
-
-struct _XawDLInfo {
-  String name;
-  XrmQuark qname;
-  XawDisplayListProc proc;
-};
-
-struct _XawDL {
-  XawDLProc **procs;
-  Cardinal num_procs;
-  XawDLData **data;
-  Cardinal num_data;
-  Screen *screen;
-  Colormap colormap;
-  int depth;
-  XrmQuark qrep;  /* for cache lookup */
-};
-
-struct _XawDLClass {
-  String name;
-  XawDLInfo **infos;
-  Cardinal num_infos;
-  XawDLArgsInitProc args_init;
-  XawDLArgsDestructor args_destructor;
-  XawDLDataInitProc data_init;
-  XawDLDataDestructor data_destructor;
-};
-
-/*
- * Private Methods
- */
-static XawDLClass *_XawFindDLClass(String);
-static int qcmp_dlist_class(_Xconst void*, _Xconst void*);
-static int bcmp_dlist_class(_Xconst void*, _Xconst void*);
-static XawDLInfo *_XawFindDLInfo(XawDLClass*, String);
-static int qcmp_dlist_info(_Xconst void*, _Xconst void*);
-static int bcmp_dlist_info(_Xconst void*, _Xconst void*);
-static void *_Xaw_Xlib_ArgsInitProc(String, String*, Cardinal*,
-				    Screen*, Colormap, int);
-static void _Xaw_Xlib_ArgsDestructor(Display*, String, XtPointer,
-				     String*, Cardinal*);
-static void *_Xaw_Xlib_DataInitProc(String, Screen*, Colormap, int);
-static void _Xaw_Xlib_DataDestructor(Display*, String, XtPointer);
-
-/*
- * Initialization
- */
-static XawDLClass **classes;
-static Cardinal num_classes;
-static String xlib = "xlib";
-
-/*
- * Implementation
- */
-void
-XawRunDisplayList(Widget w, _XawDisplayList *list,
-		       XEvent *event, Region region)
-{
-  XawDLProc *proc;
-  Cardinal i;
-
-  if (!XtIsRealized(w))
-    return;
-
-  for (i = 0; i < list->num_procs; i++)
-    {
-      proc = list->procs[i];
-      proc->proc(w, proc->args, proc->data->data, event, region);
-    }
-}
-
-#define DLERR  -2
-#define DLEOF  -1
-#define DLEND  1
-#define DLNAME 2
-#define DLARG  3
-static char *
-read_token(char *src, char *dst, Cardinal size, int *status)
-{
-  int ch;
-  Bool esc, quote;
-  Cardinal i;
-
-  i = 0;
-  esc = quote = False;
-
-  /*CONSTCOND*/
-  while (1)
-    {
-      ch = *src;
-      if (ch != '\n' && isspace(ch))
-	++src;
-      else
-	break;
-    }
-
-  for (; i < size - 1; src++)
-    {
-      ch = *src;
-      if (ch == '"')
-	{
-	  if (quote)
-	    {
-	      quote = False;
-	      continue;
-	    }
-	  quote = True;
-	  continue;
-	}
-      if (ch == '\\')
-	{
-	  if (esc)
-	    {
-	      dst[i++] = ch;
-	      esc = False;
-	      continue;
-	    }
-	  esc = True;
-	  continue;
-	}
-      if (ch == '\0')
-	{
-	  *status = DLEOF;
-	  dst[i] = '\0';
-	  return (src);
-	}
-      else if (!esc)
-	{
-	  if (!quote)
-	    {
-	      if (ch == ',')
-		{
-		  *status = DLARG;
-		  dst[i] = '\0';
-		  return (++src);
-		}
-	      else if (ch == ' ' || ch == '\t')
-		{
-		  *status = DLNAME;
-		  dst[i] = '\0';
-		  return (++src);
-		}
-	      else if (ch == ';' || ch == '\n')
-		{
-		  *status = DLEND;
-		  dst[i] = '\0';
-		  return (++src);
-		}
-	    }
-	}
-      else
-	esc = False;
-      dst[i++] = ch;
-    }
-
-  *status = DLERR;
-  dst[i] = '\0';
-
-  return (src);
-}
-
-_XawDisplayList *XawCreateDisplayList(String string, Screen *screen,
-				     Colormap colormap, int depth)
-{
-  _XawDisplayList *dlist;
-  XawDLClass *lc, *xlibc;
-  XawDLData *data;
-  XawDLInfo *info;
-  XawDLProc *proc;
-  char cname[64], fname[64], aname[1024];
-  Cardinal i;
-  char *cp, *fp, *lp;
-  int status;
-
-  xlibc = XawGetDisplayListClass(xlib);
-  if (!xlibc)
-    {
-      XawDisplayListInitialize();
-      xlibc = XawGetDisplayListClass(xlib);
-    }
-
-  dlist = (_XawDisplayList *)XtMalloc(sizeof(_XawDisplayList));
-  dlist->procs = NULL;
-  dlist->num_procs = 0;
-  dlist->data = NULL;
-  dlist->num_data = 0;
-  dlist->screen = screen;
-  dlist->colormap = colormap;
-  dlist->depth = depth;
-  dlist->qrep = NULLQUARK;
-  if (!string || !string[0])
-    return (dlist);
-
-  cp = string;
-
-  status = 0;
-  while (status != DLEOF)
-    {
-      lp = cp;
-      cp = read_token(cp, fname, sizeof(fname), &status);
-
-      if (status != DLNAME && status != DLEND && status != DLEOF)
-	{
-	  char msg[256];
-
-	  XmuSnprintf(msg, sizeof(msg),
-		      "Error parsing displayList at \"%s\"", lp);
-	  XtAppWarning(XtDisplayToApplicationContext(DisplayOfScreen(screen)),
-		       msg);
-	  XawDestroyDisplayList(dlist);
-	  return (NULL);
-	}
-      fp = fname;
-      /*CONSTCOND*/
-      while (1)
-	{
-	  fp = strchr(fp, ':');
-	  if (!fp || (fp == cp || fp[-1] != '\\'))
-	    break;
-	  ++fp;
-	}
-      if (fp)
-	{
-	  XmuSnprintf(cname, fp - fname + 1, fname);
-	  memmove(fname, fp + 1, strlen(fp));
-	  lc = cname[0] ? XawGetDisplayListClass(cname) : xlibc;
-	  if (!lc)
-	    {
-	      char msg[256];
-
-	      XmuSnprintf(msg, sizeof(msg),
-			  "Cannot find displayList class \"%s\"", cname);
-	      XtAppWarning(XtDisplayToApplicationContext
-			   (DisplayOfScreen(screen)), msg);
-	      XawDestroyDisplayList(dlist);
-	      return (NULL);
-	    }
-	}
-      else
-	lc = xlibc;
-
-      if (status == DLEOF && !fname[0])
-	break;
-
-      if ((info = _XawFindDLInfo(lc, fname)) == NULL)
-	{
-	  char msg[256];
-
-	  XmuSnprintf(msg, sizeof(msg),
-		      "Cannot find displayList procedure \"%s\"", fname);
-	  XtAppWarning(XtDisplayToApplicationContext(DisplayOfScreen(screen)),
-		       msg);
-	  XawDestroyDisplayList(dlist);
-	  return (NULL);
-	}
-
-      proc = (XawDLProc *)XtMalloc(sizeof(XawDLProc));
-      proc->qname = info->qname;
-      proc->params = NULL;
-      proc->num_params = 0;
-      proc->proc = info->proc;
-      proc->args = NULL;
-      proc->data = NULL;
-
-      if (!dlist->procs)
-	{
-	  dlist->num_procs = 1;
-	  dlist->procs = (XawDLProc**)XtMalloc(sizeof(XawDLProc*));
-	}
-      else
-	{
-	  ++dlist->num_procs;
-	  dlist->procs = (XawDLProc**)
-	    XtRealloc((char *)dlist->procs, sizeof(XawDLProc*) *
-		      dlist->num_procs);
-	}
-      dlist->procs[dlist->num_procs - 1] = proc;
-
-      while (status != DLEND && status != DLEOF)
-	{
-	  lp = cp;
-	  cp = read_token(cp, aname, sizeof(aname), &status);
-
-	  if (status != DLARG && status != DLEND && status != DLEOF)
-	    {
-	      char msg[256];
-
-	      XmuSnprintf(msg, sizeof(msg),
-			  "Error parsing displayList at \"%s\"", lp);
-	      XtAppWarning(XtDisplayToApplicationContext
-			   (DisplayOfScreen(screen)), msg);
-	      XawDestroyDisplayList(dlist);
-	      return (NULL);
-	    }
-
-	  if (!proc->num_params)
-	    {
-	      proc->num_params = 1;
-	      proc->params = (String *)XtMalloc(sizeof(String));
-	    }
-	  else
-	    {
-	      ++proc->num_params;
-	      proc->params = (String *)XtRealloc((char *)proc->params,
-						 sizeof(String) *
-						 proc->num_params);
-	    }
-	  proc->params[proc->num_params - 1] = XtNewString(aname);
-	}
-
-      /* verify if data is already created for lc */
-      data = NULL;
-      for (i = 0; i < dlist->num_data; i++)
-	if (dlist->data[i]->dlclass == lc)
-	  {
-	    data = dlist->data[i];
-	    break;
-	  }
-
-      if (!data)
-	{
-	  data = (XawDLData *)XtMalloc(sizeof(XawDLData));
-	  data->dlclass = lc;
-	  if (lc->data_init)
-	    data->data = lc->data_init(lc->name, screen, colormap, depth);
-	  else
-	    data->data = NULL;
-
-	  if (!dlist->data)
-	    {
-	      dlist->num_data = 1;
-	      dlist->data = (XawDLData **)XtMalloc(sizeof(XawDLData*));
-	    }
-	  else
-	    {
-	      ++dlist->num_data;
-	      dlist->data = (XawDLData **)
-		XtRealloc((char *)dlist->data, sizeof(XawDLData*) *
-			  dlist->num_data);
-	    }
-	  dlist->data[dlist->num_data - 1] = data;
-	}
-
-      if (lc->args_init)
-	{
-	  proc->args = lc->args_init(fname, proc->params, &proc->num_params,
-				    screen, colormap, depth);
-	  if (proc->args == XAWDL_CONVERT_ERROR)
-	    {
-	      char msg[256];
-
-	      proc->args = NULL;
-	      XmuSnprintf(msg, sizeof(msg),
-			  "Cannot convert arguments to displayList function \"%s\"", fname);
-	      XtAppWarning(XtDisplayToApplicationContext
-			   (DisplayOfScreen(screen)), msg);
-	      XawDestroyDisplayList(dlist);
-	      return (NULL);
-	    }
-	}
-      else
-	proc->args = NULL;
-
-      proc->data = data;
-    }
-
-  dlist->qrep = XrmStringToQuark(string);
-  return (dlist);
-}
-
-String
-XawDisplayListString(_XawDisplayList *dlist)
-{
-  if (!dlist || dlist->qrep == NULLQUARK)
-    return ("");
-  return (XrmQuarkToString(dlist->qrep));
-}
-
-void
-XawDestroyDisplayList(_XawDisplayList *dlist)
-{
-  Cardinal i, j;
-  XawDLProc *proc;
-  XawDLData *data;
-
-  if (!dlist)
-    return;
-
-  for (i = 0; i < dlist->num_procs; i++)
-    {
-      proc = dlist->procs[i];
-      data = proc->data;
-
-      if (data)
-	{
-	  if (data->dlclass->args_destructor)
-	    data->dlclass->args_destructor(DisplayOfScreen(dlist->screen),
-					   XrmQuarkToString(proc->qname),
-					   proc->args,
-					   proc->params, &proc->num_params);
-	  if (data->data)
-	    {
-	      if (data->dlclass->data_destructor)
-		{
-		  data->dlclass
-		    ->data_destructor(DisplayOfScreen(dlist->screen),
-				      data->dlclass->name,  data->data);
-		  data->data = NULL;
-		}
-	    }
-	}
-
-      for (j = 0; j < proc->num_params; j++)
-	XtFree(proc->params[j]);
-      if (proc->num_params)
-	XtFree((char *)proc->params);
-      XtFree((char *)proc);
-    }
-
-  if (dlist->num_procs)
-    XtFree((char *)dlist->procs);
-
-  XtFree((char *)dlist);
-}
-
-/**********************************************************************
- * If you want to implement your own class of procedures, look at
- * the code bellow.
- **********************************************************************/
-/* Start of Implementation of class "xlib" */
-typedef struct _XawXlibData {
-  GC gc;
-  unsigned long mask;
-  XGCValues values;
-  int shape;
-  int mode;
-  char *dashes;
-  /* these fields can be used for optimization, to
-   * avoid unnecessary coordinates recalculation.
-   */
-  Position x, y;
-  Dimension width, height;
-} XawXlibData;
-
-typedef struct _XawDLPosition {
-  Position pos;
-  short denom;
-  Boolean high;
-} XawDLPosition;
-
-typedef struct _XawDLPositionPtr {
-  XawDLPosition *pos;
-  Cardinal num_pos;
-} XawDLPositionPtr;
-
-typedef struct _XawDLArcArgs {
-  XawDLPosition pos[4];
-  int angle1;
-  int angle2;
-} XawDLArcArgs;
-
-typedef struct _XawDLStringArgs {
-  XawDLPosition pos[2];
-  char *string;
-  int length;
-} XawDLStringArgs;
-
-typedef struct _XawDLCopyArgs {
-  XawPixmap *pixmap;
-  XawDLPosition pos[6];
-  int plane;
-} XawDLCopyArgs;
-
-typedef struct _XawDLImageArgs {
-  XawPixmap *pixmap;
-  XawDLPosition pos[4];
-  int depth;
-} XawDLImageArgs;
-
-#define X_ARG(x) (Position)(((x).denom != 0) ?				      \
-		  ((float)XtWidth(w) * ((float)(x).pos / (float)(x).denom)) : \
-		  ((x).high ? XtWidth(w) - (x).pos : (x).pos))
-#define Y_ARG(x) (Position)(((x).denom != 0) ?				      \
-		  ((float)XtHeight(w) * ((float)(x).pos / (float)(x).denom)): \
-		  ((x).high ? XtHeight(w) - (x).pos : (x).pos))
-#define DRECT		0
-#define FRECT		1
-#define LINE		2
-#define GCFG		3
-#define GCBG		4
-#define FPOLY		5
-#define DARC		6
-#define FARC		7
-#define DLINES		8
-#define MASK		9
-#define UMASK		10
-#define LWIDTH		11
-#define POINT		12
-#define POINTS		13
-#define SEGMENTS	14
-#define ARCMODE		15
-#define COORDMODE	16
-#define SHAPEMODE	17
-#define LINESTYLE	18
-#define CAPSTYLE	19
-#define JOINSTYLE	20
-#define FILLSTYLE	21
-#define FILLRULE	22
-#define	TILE		23
-#define STIPPLE		24
-#define TSORIGIN	25
-#define FUNCTION	26
-#define PLANEMASK	27
-#define DSTRING		28
-#define PSTRING		29
-#define FONT		30
-#define DASHES		31
-#define SUBWMODE	32
-#define EXPOSURES	33
-#define CLIPORIGIN	34
-#define CLIPMASK	35
-#define CLIPRECTS	36
-#define COPYAREA	37
-#define COPYPLANE	38
-#define IMAGE		39
-
-static void
-Dl1Point(Widget w, XtPointer args, XtPointer data, int id)
-{
-  XawDLPosition *pos = (XawDLPosition *)args;
-  XawXlibData *xdata = (XawXlibData *)data;
-  Display *display;
-  Window window;
-  Position x, y;
-
-  x = X_ARG(pos[0]);
-  y = Y_ARG(pos[1]);
-
-  if (!XtIsWidget(w))
-    {
-      Position xpad, ypad;
-
-      xpad = XtX(w) + XtBorderWidth(w);
-      ypad = XtY(w) + XtBorderWidth(w);
-      x += xpad;
-      y += ypad;
-      display = XtDisplayOfObject(w);
-      window = XtWindowOfObject(w);
-    }
-  else
-    {
-      display = XtDisplay(w);
-      window = XtWindow(w);
-    }
-
-  if (id == POINT)
-    XDrawPoint(display, window, xdata->gc, x, y);
-  else if (id == TSORIGIN)
-    {
-      xdata->values.ts_x_origin = x;
-      xdata->values.ts_y_origin = y;
-      xdata->mask |= GCTileStipXOrigin | GCTileStipYOrigin;
-      XSetTSOrigin(display, xdata->gc, x, y);
-    }
-  else if (id == CLIPORIGIN)
-    {
-      xdata->values.clip_x_origin = x;
-      xdata->values.clip_y_origin = y;
-      xdata->mask |= GCClipXOrigin | GCClipYOrigin;
-      XSetClipOrigin(display, xdata->gc, x, y);
-    }
-}
-
-static void
-Dl2Points(Widget w, XtPointer args, XtPointer data, int id)
-{
-  XawDLPosition *pos = (XawDLPosition *)args;
-  XawXlibData *xdata = (XawXlibData *)data;
-  Display *display;
-  Window window;
-  Position x1, y1, x2, y2;
-
-  x1 = X_ARG(pos[0]);
-  y1 = Y_ARG(pos[1]);
-  x2 = X_ARG(pos[2]);
-  y2 = Y_ARG(pos[3]);
-
-  if (!XtIsWidget(w))
-    {
-      Position xpad, ypad;
-
-      xpad = XtX(w) + XtBorderWidth(w);
-      ypad = XtY(w) + XtBorderWidth(w);
-      x1 += xpad; y1 += ypad;
-      x2 += xpad; y2 += ypad;
-      display = XtDisplayOfObject(w);
-      window = XtWindowOfObject(w);
-    }
-  else
-    {
-      display = XtDisplay(w);
-      window = XtWindow(w);
-    }
-
-  if (id == DRECT)
-    XDrawRectangle(display, window, xdata->gc, x1, y1, x2 - x1, y2 - y1);
-  else if (id == FRECT)
-    XFillRectangle(display, window, xdata->gc, x1, y1, x2 - x1, y2 - y1);
-  else if (id == LINE)
-    XDrawLine(display, window, xdata->gc, x1, y1, x2, y2);
-}
-
-/* ARGSUSED */
-static void
-DlLine(Widget w, XtPointer args, XtPointer data, XEvent *event, Region region)
-{
-  Dl2Points(w, args, data, LINE);
-}
-
-/* ARGSUSED */
-static void
-DlDrawRectangle(Widget w, XtPointer args, XtPointer data,
-		XEvent *event, Region region)
-{
-  Dl2Points(w, args, data, DRECT);
-}
-
-/* ARGSUSED */
-static void
-DlFillRectangle(Widget w, XtPointer args, XtPointer data,
-		XEvent *event, Region region)
-{
-  Dl2Points(w, args, data, FRECT);
-}
-
-static void
-DlXPoints(Widget w, XtPointer args, XtPointer data, int id)
-{
-  XawDLPositionPtr *pos_ptr = (XawDLPositionPtr *)args;
-  XawXlibData *xdata = (XawXlibData *)data;
-  XawDLPosition *pos;
-  XPoint points_buf[16];
-  XPoint *points;
-  Display *display;
-  Window window;
-  Cardinal num_points, i, j;
-
-  num_points = pos_ptr->num_pos>>1;
-  points = (XPoint *)XawStackAlloc(sizeof(XPoint) * num_points, points_buf);
-
-  for (i = j = 0; i < num_points; i++, j = i << 1)
-    {
-      pos = &pos_ptr->pos[j];
-      points[i].x = X_ARG(pos[0]);
-      points[i].y = Y_ARG(pos[1]);
-    }
-
-  if (!XtIsWidget(w))
-    {
-      Position xpad, ypad;
-
-      xpad = XtX(w) + XtBorderWidth(w);
-      ypad = XtY(w) + XtBorderWidth(w);
-      if (xdata->mode != CoordModePrevious)
-	{
-	  for (i = 0; i < num_points; i++)
-	    {
-	      points[i].x += xpad;
-	      points[i].y += ypad;
-	    }
-	}
-      else
-	{
-	  points[0].x += xpad;
-	  points[0].y += ypad;
-	}
-      display = XtDisplayOfObject(w);
-      window = XtWindowOfObject(w);
-    }
-  else
-    {
-      display = XtDisplay(w);
-      window = XtWindow(w);
-    }
-
-  if (id == FPOLY)
-    XFillPolygon(display, window, xdata->gc, points, num_points,
-		 xdata->shape, xdata->mode);
-  else if (id == DLINES)
-    XDrawLines(display, window, xdata->gc, points, num_points, xdata->mode);
-  else if (id == POINTS)
-    XDrawPoints(display, window, xdata->gc, points, num_points, xdata->mode);
-
-  XawStackFree(points, points_buf);
-}
-
-/* ARGSUSED */
-static void
-DlFillPolygon(Widget w, XtPointer args, XtPointer data,
-	      XEvent *event, Region region)
-{
-  DlXPoints(w, args, data, FPOLY);
-}
-
-/* ARGSUSED */
-static void
-DlDrawLines(Widget w, XtPointer args, XtPointer data,
-	    XEvent *event, Region region)
-{
-  DlXPoints(w, args, data, DLINES);
-}
-
-/* ARGSUSED */
-static void
-DlDrawPoints(Widget w, XtPointer args, XtPointer data,
-	    XEvent *event, Region region)
-{
-  DlXPoints(w, args, data, POINTS);
-}
-
-/* ARGSUSED */
-static void
-DlForeground(Widget w, XtPointer args, XtPointer data,
-	     XEvent *event, Region region)
-{
-  XawXlibData *xdata = (XawXlibData *)data;
-  Pixel foreground = (Pixel)args;
-
-  if (xdata->values.foreground != foreground)
-    {
-      xdata->mask |= GCForeground;
-      xdata->values.foreground = foreground;
-      XSetForeground(XtDisplayOfObject(w), xdata->gc, foreground);
-    }
-}
-
-/* ARGSUSED */
-static void
-DlBackground(Widget w, XtPointer args, XtPointer data,
-	     XEvent *event, Region region)
-{
-  XawXlibData *xdata = (XawXlibData *)data;
-  Pixel background = (Pixel)args;
-
-  if (xdata->values.background != background)
-    {
-      xdata->mask |= GCBackground;
-      xdata->values.background = background;
-      XSetBackground(XtDisplayOfObject(w), xdata->gc, background);
-    }
-}
-
-static void
-DlArc(Widget w, XtPointer args, XtPointer data, Bool fill)
-{
-  XawXlibData *xdata = (XawXlibData *)data;
-  XawDLArcArgs *arc = (XawDLArcArgs *)args;
-  Position x1, y1, x2, y2;
-  Display *display;
-  Window window;
-
-  x1 = X_ARG(arc->pos[0]);
-  y1 = Y_ARG(arc->pos[1]);
-  x2 = X_ARG(arc->pos[2]);
-  y2 = Y_ARG(arc->pos[3]);
-
-  if (!XtIsWidget(w))
-    {
-      Position xpad, ypad;
-
-      xpad = XtX(w) + XtBorderWidth(w);
-      ypad = XtY(w) + XtBorderWidth(w);
-      x1 += xpad;
-      y1 += ypad;
-      x2 += xpad;
-      y2 += ypad;
-      display = XtDisplayOfObject(w);
-      window = XtWindowOfObject(w);
-    }
-  else
-    {
-      display = XtDisplay(w);
-      window = XtWindow(w);
-    }
-
-  if (fill)
-    XFillArc(display, window, xdata->gc, x1, y1, x2 - x1, y2 - y1,
-	     arc->angle1, arc->angle2);
-  else
-    XDrawArc(display, window, xdata->gc, x1, y1, x2 - x1, y2 - y1,
-	     arc->angle1, arc->angle2);
-}
-
-/* ARGSUSED */
-static void
-DlDrawArc(Widget w, XtPointer args, XtPointer data,
-	  XEvent *event, Region region)
-{
-  DlArc(w, args, data, False);
-}
-
-/* ARGSUSED */
-static void
-DlFillArc(Widget w, XtPointer args, XtPointer data,
-	  XEvent *event, Region region)
-{
-  DlArc(w, args, data, True);
-}
-
-/*ARGSUSED*/
-static void
-DlMask(Widget w, XtPointer args, XtPointer data,
-       XEvent *event, Region region)
-{
-  XawXlibData *xdata = (XawXlibData *)data;
-  Display *display = XtDisplayOfObject(w);
-
-  if (region)
-    XSetRegion(display, xdata->gc, region);
-  else if (event)
-    {
-      XRectangle rect;
-
-      rect.x = event->xexpose.x;
-      rect.y = event->xexpose.y;
-      rect.width = event->xexpose.width;
-      rect.height = event->xexpose.height;
-      XSetClipRectangles(display, xdata->gc, 0, 0, &rect, 1, Unsorted);
-    }
-}
-
-/* ARGSUSED */
-static void
-DlUmask(Widget w, XtPointer args, XtPointer data,
-	XEvent *event, Region region)
-{
-  XawXlibData *xdata = (XawXlibData *)data;
-
-  XSetClipMask(XtDisplayOfObject(w), xdata->gc, None);
-}
-
-/* ARGSUSED */
-static void
-DlLineWidth(Widget w, XtPointer args, XtPointer data,
-	    XEvent *event, Region region)
-{
-  XawXlibData *xdata = (XawXlibData *)data;
-  unsigned line_width = (unsigned long)args;
-
-  if (xdata->values.line_width != line_width)
-    {
-      xdata->mask |= GCLineWidth;
-      xdata->values.line_width = line_width;
-      XChangeGC(XtDisplayOfObject(w), xdata->gc, GCLineWidth, &xdata->values);
-    }
-}
-
-/* ARGSUSED */
-static void
-DlDrawPoint(Widget w, XtPointer args, XtPointer data, XEvent *event, Region region)
-{
-  Dl1Point(w, args, data, POINT);
-}
-
-/* ARGSUSED */
-static void
-DlDrawSegments(Widget w, XtPointer args, XtPointer data,
-	       XEvent *event, Region region)
-{
-  XawDLPositionPtr *pos_ptr = (XawDLPositionPtr *)args;
-  XawXlibData *xdata = (XawXlibData *)data;
-  XawDLPosition *pos;
-  XSegment *segments;
-  XSegment segments_buf[8];
-  Display *display;
-  Window window;
-  Cardinal num_segments, i, j;
-
-  num_segments = pos_ptr->num_pos>>2;
-  segments = (XSegment *)XawStackAlloc(sizeof(XSegment) * num_segments, segments_buf);
-
-  for (i = j = 0; i < num_segments; i++, j = i << 2)
-    {
-      pos = &pos_ptr->pos[j];
-      segments[i].x1 = X_ARG(pos[0]);
-      segments[i].y1 = Y_ARG(pos[1]);
-      segments[i].x2 = X_ARG(pos[2]);
-      segments[i].y2 = Y_ARG(pos[3]);
-    }
-
-  if (!XtIsWidget(w))
-    {
-      Position xpad, ypad;
-
-      xpad = XtX(w) + XtBorderWidth(w);
-      ypad = XtY(w) + XtBorderWidth(w);
-      for (i = 0; i < num_segments; i++)
-	{
-	  segments[i].x1 += xpad;
-	  segments[i].y1 += ypad;
-	  segments[i].x2 += xpad;
-	  segments[i].y2 += ypad;
-	}
-      display = XtDisplayOfObject(w);
-      window = XtWindowOfObject(w);
-    }
-  else
-    {
-      display = XtDisplay(w);
-      window = XtWindow(w);
-    }
-
-  XDrawSegments(display, window, xdata->gc, segments, num_segments);
-
-  XawStackFree(segments, segments_buf);
-}
-
-/* ARGSUSED */
-static void
-DlArcMode(Widget w, XtPointer args, XtPointer data,
-	  XEvent *event, Region region)
-{
-  XawXlibData *xdata = (XawXlibData *)data;
-  int arc_mode  = (long)args;
-
-  if (xdata->values.arc_mode != arc_mode)
-    {
-      xdata->mask |= GCArcMode;
-      xdata->values.arc_mode = arc_mode;
-      XSetArcMode(XtDisplayOfObject(w), xdata->gc, arc_mode);
-    }
-}
-
-/* ARGSUSED */
-static void
-DlCoordMode(Widget w, XtPointer args, XtPointer data,
-	    XEvent *event, Region region)
-{
-  XawXlibData *xdata = (XawXlibData *)data;
-  int mode  = (long)args;
-
-  xdata->mode = mode;
-}
-
-/* ARGSUSED */
-static void
-DlShapeMode(Widget w, XtPointer args, XtPointer data,
-	    XEvent *event, Region region)
-{
-  XawXlibData *xdata = (XawXlibData *)data;
-  int shape  = (long)args;
-
-  xdata->shape = shape;
-}
-
-/* ARGSUSED */
-static void
-DlLineStyle(Widget w, XtPointer args, XtPointer data,
-	    XEvent *event, Region region)
-{
-  XawXlibData *xdata = (XawXlibData *)data;
-  int line_style = (long)args;
-
-  if (xdata->values.line_style != line_style)
-    {
-      xdata->mask |= GCLineStyle;
-      xdata->values.line_style = line_style;
-      XChangeGC(XtDisplayOfObject(w), xdata->gc, GCLineStyle, &xdata->values);
-    }
-}
-
-/* ARGSUSED */
-static void
-DlCapStyle(Widget w, XtPointer args, XtPointer data,
-	   XEvent *event, Region region)
-{
-  XawXlibData *xdata = (XawXlibData *)data;
-  int cap_style = (long)args;
-
-  if (xdata->values.cap_style != cap_style)
-    {
-      xdata->mask |= GCCapStyle;
-      xdata->values.cap_style = cap_style;
-      XChangeGC(XtDisplayOfObject(w), xdata->gc, GCCapStyle, &xdata->values);
-    }
-}
-
-/* ARGSUSED */
-static void
-DlJoinStyle(Widget w, XtPointer args, XtPointer data,
-	    XEvent *event, Region region)
-{
-  XawXlibData *xdata = (XawXlibData *)data;
-  int join_style = (long)args;
-
-  if (xdata->values.join_style != join_style)
-    {
-      xdata->mask |= GCJoinStyle;
-      xdata->values.join_style = join_style;
-      XChangeGC(XtDisplayOfObject(w), xdata->gc, GCJoinStyle, &xdata->values);
-    }
-}
-
-/* ARGSUSED */
-static void
-DlFillStyle(Widget w, XtPointer args, XtPointer data,
-	    XEvent *event, Region region)
-{
-  XawXlibData *xdata = (XawXlibData *)data;
-  int fill_style = (long)args;
-
-  if (xdata->values.fill_style != fill_style)
-    {
-      xdata->mask |= GCFillStyle;
-      xdata->values.fill_style = fill_style;
-      XSetFillStyle(XtDisplayOfObject(w), xdata->gc, fill_style);
-    }
-}
-
-/* ARGSUSED */
-static void
-DlFillRule(Widget w, XtPointer args, XtPointer data,
-	   XEvent *event, Region region)
-{
-  XawXlibData *xdata = (XawXlibData *)data;
-  int fill_rule = (long)args;
-
-  if (xdata->values.fill_rule != fill_rule)
-    {
-      xdata->mask |= GCFillRule;
-      xdata->values.fill_rule = fill_rule;
-      XSetFillRule(XtDisplayOfObject(w), xdata->gc, fill_rule);
-    }
-}
-
-/* ARGSUSED */
-static void
-DlTile(Widget w, XtPointer args, XtPointer data,
-       XEvent *event, Region region)
-{
-  XawXlibData *xdata = (XawXlibData *)data;
-  XawPixmap *pixmap = (XawPixmap *)args;
-
-  if (pixmap && xdata->values.tile != pixmap->pixmap)
-    {
-      xdata->mask |= GCTile;
-      xdata->values.tile = pixmap->pixmap;
-      XSetTile(XtDisplayOfObject(w), xdata->gc, xdata->values.tile);
-    }
-}
-
-/* ARGSUSED */
-static void
-DlStipple(Widget w, XtPointer args, XtPointer data,
-	  XEvent *event, Region region)
-{
-  XawXlibData *xdata = (XawXlibData *)data;
-  XawPixmap *pixmap = (XawPixmap *)args;
-
-  if (pixmap && xdata->values.stipple != pixmap->pixmap)
-    {
-      xdata->mask |= GCStipple;
-      xdata->values.stipple = pixmap->pixmap;
-      XSetStipple(XtDisplayOfObject(w), xdata->gc, xdata->values.stipple);
-    }
-}
-
-/* ARGSUSED */
-static void
-DlTSOrigin(Widget w, XtPointer args, XtPointer data, XEvent *event, Region region)
-{
-  Dl1Point(w, args, data, TSORIGIN);
-}
-
-/* ARGSUSED */
-static void
-DlFunction(Widget w, XtPointer args, XtPointer data,
-	   XEvent *event, Region region)
-{
-  XawXlibData *xdata = (XawXlibData *)data;
-  int function = (long)args;
-
-  if (function != xdata->values.function)
-    {
-      xdata->mask |= GCFunction;
-      xdata->values.function = function;
-      XSetFunction(XtDisplayOfObject(w), xdata->gc, function);
-    }
-}
-
-/* ARGSUSED */
-static void
-DlPlaneMask(Widget w, XtPointer args, XtPointer data,
-	    XEvent *event, Region region)
-{
-  XawXlibData *xdata = (XawXlibData *)data;
-  unsigned long plane_mask = (unsigned long)args;
-
-  if (xdata->values.plane_mask != plane_mask)
-    {
-      xdata->mask |= GCPlaneMask;
-      xdata->values.plane_mask = plane_mask;
-      XSetPlaneMask(XtDisplayOfObject(w), xdata->gc, plane_mask);
-    }
-}
-
-static void
-DlString(Widget w, XtPointer args, XtPointer data, Bool image)
-{
-  XawDLStringArgs *string = (XawDLStringArgs *)args;
-  XawXlibData *xdata = (XawXlibData *)data;
-  Display *display;
-  Window window;
-  Position x, y;
-
-  x = X_ARG(string->pos[0]);
-  y = Y_ARG(string->pos[1]);
-
-  if (!XtIsWidget(w))
-    {
-      Position xpad, ypad;
-
-      xpad = XtX(w) + XtBorderWidth(w);
-      ypad = XtY(w) + XtBorderWidth(w);
-      x += xpad;
-      y += ypad;
-      display = XtDisplayOfObject(w);
-      window = XtWindowOfObject(w);
-    }
-  else
-    {
-      display = XtDisplay(w);
-      window = XtWindow(w);
-    }
-
-  if (image)
-    XDrawImageString(display, window, xdata->gc, x, y, string->string, string->length);
-  else
-    XDrawString(display, window, xdata->gc, x, y, string->string, string->length);
-}
-
-/* ARGSUSED */
-static void
-DlDrawString(Widget w, XtPointer args, XtPointer data,
-	     XEvent *event, Region region)
-{
-  DlString(w, args, data, False);
-}
-
-/* ARGSUSED */
-static void
-DlPaintString(Widget w, XtPointer args, XtPointer data,
-	      XEvent *event, Region region)
-{
-  DlString(w, args, data, True);
-}
-
-/* ARGSUSED */
-static void
-DlFont(Widget w, XtPointer args, XtPointer data,
-       XEvent *event, Region region)
-{
-  XawXlibData *xdata = (XawXlibData *)data;
-  Font font = (Font)args;
-
-  if (xdata->values.font != font)
-    {
-      xdata->mask |= GCFont;
-      xdata->values.font = font;
-      XSetFont(XtDisplayOfObject(w), xdata->gc, font);
-    }
-}
-
-/* ARGSUSED */
-static void
-DlDashes(Widget w, XtPointer args, XtPointer data,
-	 XEvent *event, Region region)
-{
-  XawXlibData *xdata = (XawXlibData *)data;
-  char *dashes = args;
-
-  if (xdata->dashes != dashes)
-    {
-      xdata->mask |= GCDashOffset | GCDashList;
-      xdata->dashes = dashes;
-      XSetDashes(XtDisplayOfObject(w), xdata->gc, 0, dashes + 1, *dashes);
-    }
-}
-
-/* ARGSUSED */
-static void
-DlSubwindowMode(Widget w, XtPointer args, XtPointer data,
-		XEvent *event, Region region)
-{
-  XawXlibData *xdata = (XawXlibData *)data;
-  int subwindow_mode = (long)args;
-
-  if (xdata->values.subwindow_mode != subwindow_mode)
-    {
-      xdata->mask |= GCSubwindowMode;
-      xdata->values.subwindow_mode = subwindow_mode;
-      XSetSubwindowMode(XtDisplayOfObject(w), xdata->gc, subwindow_mode);
-    }
-}
-
-/* ARGSUSED */
-static void
-DlExposures(Widget w, XtPointer args, XtPointer data,
-	    XEvent *event, Region region)
-{
-  XawXlibData *xdata = (XawXlibData *)data;
-  Bool graphics_exposures = (Bool)(long)args;
-
-  if (xdata->values.graphics_exposures != graphics_exposures)
-    {
-      xdata->mask |= GCGraphicsExposures;
-      xdata->values.graphics_exposures = graphics_exposures;
-      XSetGraphicsExposures(XtDisplayOfObject(w), xdata->gc, graphics_exposures);
-    }
-}
-
-/* ARGSUSED */
-static void
-DlClipOrigin(Widget w, XtPointer args, XtPointer data, XEvent *event, Region region)
-{
-  Dl1Point(w, args, data, CLIPORIGIN);
-}
-
-/* ARGSUSED */
-static void
-DlClipMask(Widget w, XtPointer args, XtPointer data,
-	   XEvent *event, Region region)
-{
-  XawXlibData *xdata = (XawXlibData *)data;
-  XawPixmap *pixmap = (XawPixmap *)args;
-  Pixmap clip_mask;
-
-  if (pixmap)
-    clip_mask = pixmap->mask ? pixmap->mask : pixmap->pixmap;
-  else
-    clip_mask = None;
-
-  if (xdata->values.clip_mask != clip_mask)
-    {
-      xdata->mask |= GCClipMask;
-      XSetClipMask(XtDisplayOfObject(w), xdata->gc, clip_mask);
-    }
-}
-
-/* ARGSUSED */
-static void
-DlClipRectangles(Widget w, XtPointer args, XtPointer data,
-		 XEvent *event, Region region)
-{
-  XawDLPositionPtr *pos_ptr = (XawDLPositionPtr *)args;
-  XawXlibData *xdata = (XawXlibData *)data;
-  XawDLPosition *pos;
-  XRectangle *rects;
-  XRectangle rects_buf[8];
-  Position x1, y1, x2, y2;
-  Cardinal num_rects, i, j;
-
-  num_rects = pos_ptr->num_pos>>2;
-  rects = (XRectangle *)XawStackAlloc(sizeof(XRectangle) * num_rects, rects_buf);
-
-  for (i = j = 0; i < num_rects; i++, j = i << 2)
-    {
-      pos = &pos_ptr->pos[j];
-      x1 = X_ARG(pos[0]);
-      y1 = Y_ARG(pos[1]);
-      x2 = X_ARG(pos[2]);
-      y2 = Y_ARG(pos[3]);
-      rects[i].x = XawMin(x1, x2);
-      rects[i].y = XawMin(y1, y2);
-      rects[i].width = XawMax(x1, x2) - rects[i].x;
-      rects[i].height = XawMax(y1, y2) - rects[i].y;
-    }
-
-  if (!XtIsWidget(w))
-    {
-      Position xpad, ypad;
-
-      xpad = XtX(w) + XtBorderWidth(w);
-      ypad = XtY(w) + XtBorderWidth(w);
-      for (i = 0; i < num_rects; i++)
-	{
-	  rects[i].x += xpad;
-	  rects[i].y += ypad;
-	}
-    }
-
-  XSetClipRectangles(XtDisplayOfObject(w), xdata->gc, 0, 0, rects, num_rects, Unsorted);
-
-  XawStackFree(rects, rects_buf);
-}
-
-static void
-DlCopy(Widget w, XtPointer args, XtPointer data, Bool plane)
-{
-  XawDLCopyArgs *copy = (XawDLCopyArgs *)args;
-  XawXlibData *xdata = (XawXlibData *)data;
-  int src_x, src_y, dst_x, dst_y, width, height, tmp1, tmp2;
-
-  tmp1 = X_ARG(copy->pos[0]);
-  tmp2 = X_ARG(copy->pos[2]);
-  dst_x = XawMin(tmp1, tmp2);
-  width = XawMax(tmp1, tmp2) - dst_x;
-
-  tmp1 = Y_ARG(copy->pos[1]);
-  tmp2 = Y_ARG(copy->pos[3]);
-  dst_y = XawMin(tmp1, tmp2);
-  height = XawMax(tmp1, tmp2) - dst_y;
-
-  src_x = X_ARG(copy->pos[4]);
-  src_y = Y_ARG(copy->pos[5]);
-
-  if (width <= 0)
-    {
-      if (copy->pixmap)
-	width = copy->pixmap->width;
-      else
-	{
-	  if ((width = XtWidth(w) - src_x) < 0)
-	    width = 0;
-	}
-    }
-  if (height <= 0)
-    {
-      if (copy->pixmap)
-	height = copy->pixmap->height;
-      else
-	{
-	  if ((height = XtHeight(w) - src_y) < 0)
-	    height = 0;
-	}
-    }
-
-  if (!XtIsWidget(w))
-    {
-      Position xpad, ypad;
-
-      xpad = XtX(w) + XtBorderWidth(w);
-      ypad = XtY(w) + XtBorderWidth(w);
-      src_x += xpad;
-      src_y += ypad;
-      dst_x += xpad;
-      dst_y += ypad;
-    }
-
-  if (plane)
-    XCopyPlane(XtDisplayOfObject(w), XtWindowOfObject(w),
-	       copy->pixmap ? copy->pixmap->pixmap : XtWindowOfObject(w),
-	       xdata->gc, src_x, src_y, width, height, dst_x, dst_y,
-	       copy->plane ? copy->plane : 1);
-  else
-    XCopyArea(XtDisplayOfObject(w),
-	      copy->pixmap ? copy->pixmap->pixmap : XtWindowOfObject(w),
-	      XtWindowOfObject(w), xdata->gc, src_x, src_y, width, height, dst_x, dst_y);
-}
-
-/* ARGSUSED */
-static void
-DlCopyArea(Widget w, XtPointer args, XtPointer data,
-	   XEvent *event, Region region)
-{
-  DlCopy(w, args, data, False);
-}
-
-/* ARGSUSED */
-static void
-DlCopyPlane(Widget w, XtPointer args, XtPointer data,
-	    XEvent *event, Region region)
-{
-  DlCopy(w, args, data, True);
-}
-
-/*ARGSUSED*/
-/* Note:
- *	  This function is destructive if you set the ts_x_origin, ts_y_origin,
- *	and/or clip-mask. It is meant to be the only function used in a display
- *	list. If you need to use other functions (and those values), be sure to
- *	set them after calling this function.
- */
-static void
-DlImage(Widget w, XtPointer args, XtPointer data, XEvent *event, Region region)
-{
-  XawDLImageArgs *image = (XawDLImageArgs *)args;
-  XawXlibData *xdata = (XawXlibData *)data;
-  int x, y, xs, ys, xe, ye, width, height;
-  Display *display;
-  Window window;
-
-  width = image->pixmap->width;
-  height = image->pixmap->height;
-  xs = X_ARG(image->pos[0]);
-  ys = Y_ARG(image->pos[1]);
-  xe = X_ARG(image->pos[2]);
-  ye = Y_ARG(image->pos[3]);
-
-  if (xe <= 0)
-    xe = xs + width;
-  if (ye <= 0)
-    ye = ys + height;
-
-  if (!XtIsWidget(w))
-    {
-      Position xpad, ypad;
-
-      xpad = XtX(w) + XtBorderWidth(w);
-      ypad = XtY(w) + XtBorderWidth(w);
-      xe += xpad;
-      ye += ypad;
-      xe += xpad;
-      ye += ypad;
-      display = XtDisplayOfObject(w);
-      window = XtWindowOfObject(w);
-    }
-  else
-    {
-      display = XtDisplay(w);
-      window = XtWindow(w);
-    }
-
-  for (y = ys; y < ye; y += height)
-    for (x = xs; x < xe; x += width)
-      {
-	XSetClipOrigin(display, xdata->gc, x, y);
-	if (image->pixmap->mask)
-	  XSetClipMask(display, xdata->gc, image->pixmap->mask);
-	if (image->depth == 1)
-	  XCopyPlane(display, image->pixmap->pixmap, window, xdata->gc,
-		     0, 0, XawMin(width, xe - x), XawMin(height, ye - y),
-		     x, y, 1L);
-	else
-	  XCopyArea(display, image->pixmap->pixmap, window, xdata->gc, 0, 0,
-		     XawMin(width, xe - x), XawMin(height, ye - y), x, y);
-      }
-
-  XSetClipMask(display, xdata->gc, None);
-}
-
-typedef struct _Dl_init Dl_init;
-struct _Dl_init {
-  String name;
-  XawDisplayListProc proc;
-  Cardinal id;
-};
-
-static Dl_init dl_init[] =
-{
-  {"arc-mode",		DlArcMode,		ARCMODE},
-  {"background",	DlBackground,		GCBG},
-  {"bg",		DlBackground,		GCBG},
-  {"cap-style",		DlCapStyle,		CAPSTYLE},
-  {"clip-mask",		DlClipMask,		CLIPMASK},
-  {"clip-origin",	DlClipOrigin,		CLIPORIGIN},
-  {"clip-rectangles",	DlClipRectangles,	CLIPRECTS},
-  {"clip-rects",	DlClipRectangles,	CLIPRECTS},
-  {"coord-mode",	DlCoordMode,		COORDMODE},
-  {"copy-area",		DlCopyArea,		COPYAREA},
-  {"copy-plane",	DlCopyPlane,		COPYPLANE},
-  {"dashes",		DlDashes,		DASHES},
-  {"draw-arc",		DlDrawArc,		DARC},
-  {"draw-line",		DlLine,			LINE},
-  {"draw-lines",	DlDrawLines,		DLINES},
-  {"draw-point",	DlDrawPoint,		POINT},
-  {"draw-points",	DlDrawPoints,		POINTS},
-  {"draw-rect",		DlDrawRectangle,	DRECT},
-  {"draw-rectangle",	DlDrawRectangle,	DRECT},
-  {"draw-segments",	DlDrawSegments,		SEGMENTS},
-  {"draw-string",	DlDrawString,		DSTRING},
-  {"exposures",		DlExposures,		EXPOSURES},
-  {"fg",		DlForeground,		GCFG},
-  {"fill-arc",		DlFillArc,		FARC},
-  {"fill-poly",		DlFillPolygon,		FPOLY},
-  {"fill-polygon",	DlFillPolygon,		FPOLY},
-  {"fill-rect",		DlFillRectangle,	FRECT},
-  {"fill-rectangle",	DlFillRectangle,	FRECT},
-  {"fill-rule",		DlFillRule,		FILLRULE},
-  {"fill-style",	DlFillStyle,		FILLSTYLE},
-  {"font",		DlFont,			FONT},
-  {"foreground",	DlForeground,		GCFG},
-  {"function",		DlFunction,		FUNCTION},
-  {"image",		DlImage,		IMAGE},
-  {"join-style",	DlJoinStyle,		JOINSTYLE},
-  {"line",		DlLine,			LINE},
-  {"line-style",	DlLineStyle,		LINESTYLE},
-  {"line-width",	DlLineWidth,		LWIDTH},
-  {"lines",		DlDrawLines,		DLINES},
-  {"mask",		DlMask,			MASK},
-  {"paint-string",	DlPaintString,		PSTRING},
-  {"plane-mask",	DlPlaneMask,		PLANEMASK},
-  {"point",		DlDrawPoint,		POINT},
-  {"points",		DlDrawPoints,		POINTS},
-  {"segments",		DlDrawSegments,		SEGMENTS},
-  {"shape-mode",	DlShapeMode,		SHAPEMODE},
-  {"stipple",		DlStipple,		STIPPLE},
-  {"subwindow-mode",	DlSubwindowMode,	SUBWMODE},
-  {"tile",		DlTile,			TILE},
-  {"ts-origin",		DlTSOrigin,		TSORIGIN},
-  {"umask",		DlUmask,		UMASK},
-};
-
-void
-XawDisplayListInitialize(void)
-{
-  static Bool first_time = True;
-  XawDLClass *lc;
-  Cardinal i;
-
-  if (first_time == False)
-    return;
-
-  first_time = False;
-
-  lc = XawCreateDisplayListClass(xlib,
-				 _Xaw_Xlib_ArgsInitProc,
-				 _Xaw_Xlib_ArgsDestructor,
-				 _Xaw_Xlib_DataInitProc,
-				 _Xaw_Xlib_DataDestructor);
-  for (i = 0; i < sizeof(dl_init) / sizeof(dl_init[0]); i++)
-    (void)XawDeclareDisplayListProc(lc, dl_init[i].name, dl_init[i].proc);
-}
-
-static int
-bcmp_cvt_proc(register _Xconst void *string,
-	      register _Xconst void *dlinfo)
-{
-  return (strcmp((String)string, ((Dl_init*)dlinfo)->name));
-}
-
-static long
-read_int(char *cp, char **cpp)
-{
-  long value = 0, sign = 1;
-
-  if (*cp == '-')
-    {
-      sign = -1;
-      ++cp;
-    }
-  else if (*cp == '+')
-    ++cp;
-  value = 0;
-  while (*cp >= '0' && *cp <= '9')
-    {
-      value = value * 10 + *cp - '0';
-      ++cp;
-    }
-  if (cpp)
-    *cpp = cp;
-  return (value * sign);
-}
-
-static void
-read_position(char *arg, XawDLPosition *pos)
-{
-  int ch;
-  char *str = arg;
-
-  ch = *str;
-  if (ch == '-' || ch == '+')
-    {
-      ++str;
-      if (ch == '-')
-	pos->high = True;
-      pos->pos = read_int(str, NULL);
-    }
-  else if (isdigit(ch))
-    {
-      pos->pos = read_int(str, &str);
-      ch = *str++;
-      if (ch == '/')
-	pos->denom = read_int(str, NULL);
-    }
-}
-
-/* ARGSUSED */
-static void *
-_Xaw_Xlib_ArgsInitProc(String proc_name, String *params, Cardinal *num_params,
-		       Screen *screen, Colormap colormap, int depth)
-{
-  Cardinal id, i;
-  Dl_init *init;
-  void *retval = XAWDL_CONVERT_ERROR;
-
-  init = (Dl_init *)bsearch(proc_name, dl_init,
-			    sizeof(dl_init) / sizeof(dl_init[0]),
-			    sizeof(dl_init[0]),
-			    bcmp_cvt_proc);
-
-  id = init->id;
-
-  switch (id)
-    {
-    case LINE:
-    case DRECT:
-    case FRECT:
-      if (*num_params == 4)
-	{
-	  XawDLPosition *pos = (XawDLPosition *)XtCalloc(1, sizeof(XawDLPosition) * 4);
-
-	  for (i = 0; i < 4; i++)
-	    read_position(params[i], &pos[i]);
-	  retval = (void *)pos;
-	}
-      break;
-    case POINT:
-    case TSORIGIN:
-    case CLIPORIGIN:
-      if (*num_params == 2)
-	{
-	  XawDLPosition *pos = (XawDLPosition *)XtCalloc(1, sizeof(XawDLPosition) * 2);
-
-	  read_position(params[0], &pos[0]);
-	  read_position(params[1], &pos[1]);
-	  retval = (void *)pos;
-	}
-      break;
-    case DLINES:
-    case FPOLY:
-    case POINTS:
-      if (*num_params >= 4 && !(*num_params & 1))
-	{
-	  XawDLPositionPtr *pos = XtNew(XawDLPositionPtr);
-
-	  pos->pos = (XawDLPosition *)XtCalloc(1, sizeof(XawDLPosition) *
-					       *num_params);
-	  pos->num_pos = *num_params;
-	  for (i = 0; i < *num_params; i++)
-	    read_position(params[i], &pos->pos[i]);
-	  retval = (void *)pos;
-	}
-      break;
-    case SEGMENTS:
-    case CLIPRECTS:
-      if (*num_params >= 4 && !(*num_params % 4))
-	{
-	  XawDLPositionPtr *pos = XtNew(XawDLPositionPtr);
-
-	  pos->pos = (XawDLPosition *)XtCalloc(1, sizeof(XawDLPosition) *
-					       *num_params);
-	  pos->num_pos = *num_params;
-	  for (i = 0; i < *num_params; i++)
-	    read_position(params[i], &pos->pos[i]);
-	  retval = (void *)pos;
-	}
-      break;
-    case DARC:
-    case FARC:
-      if (*num_params >= 4 && *num_params <= 6)
-	{
-	  XawDLArcArgs *args = (XawDLArcArgs *)XtCalloc(1, sizeof(XawDLArcArgs));
-
-	  args->angle1 = 0;
-	  args->angle2 = 360;
-	  for (i = 0; i < 4; i++)
-	    read_position(params[i], &args->pos[i]);
-	  if (*num_params > 4)
-	    args->angle1 = read_int(params[4], NULL);
-	  if (*num_params > 5)
-	    args->angle2 = read_int(params[5], NULL);
-	  args->angle1 *= 64;
-	  args->angle2 *= 64;
-	  retval = (void *)args;
-	}
-      break;
-    case GCFG:
-    case GCBG:
-      {
-	XColor xcolor;
-
-	if (*num_params == 1 &&
-	    XAllocNamedColor(DisplayOfScreen(screen), colormap,
-			     params[0], &xcolor, &xcolor))
-	  retval = (void *)xcolor.pixel;
-      } break;
-    case MASK:
-    case UMASK:
-      if (*num_params == 0)
-	retval = NULL;
-      break;
-    case LWIDTH:
-      if (*num_params == 1)
-	retval = (void *)read_int(params[0], NULL);
-      break;
-    case ARCMODE:
-      if (*num_params == 1)
-	{
-	  if (XmuCompareISOLatin1(params[0], "pieslice") == 0)
-	    retval = (void *)ArcPieSlice;
-	  else if (XmuCompareISOLatin1(params[0], "chord") == 0)
-	    retval = (void *)ArcChord;
-	}
-      break;
-    case COORDMODE:
-      if (*num_params == 1)
-	{
-	  if (XmuCompareISOLatin1(params[0], "origin") == 0)
-	    retval = (void *)CoordModeOrigin;
-	  else if (XmuCompareISOLatin1(params[0], "previous") == 0)
-	    retval = (void *)CoordModePrevious;
-	}
-      break;
-    case SHAPEMODE:
-      if (*num_params == 1)
-	{
-	  if (XmuCompareISOLatin1(params[0], "complex") == 0)
-	    retval = (void *)Complex;
-	  else if (XmuCompareISOLatin1(params[0], "convex") == 0)
-	    retval = (void *)Convex;
-	  else if (XmuCompareISOLatin1(params[0], "nonconvex") == 0)
-	    retval = (void *)Nonconvex;
-	}
-      break;
-    case LINESTYLE:
-      if (*num_params == 1)
-	{
-	  if (XmuCompareISOLatin1(params[0], "solid") == 0)
-	    retval = (void *)LineSolid;
-	  else if (XmuCompareISOLatin1(params[0], "onoffdash") == 0)
-	    retval = (void *)LineOnOffDash;
-	  else if (XmuCompareISOLatin1(params[0], "doubledash") == 0)
-	    retval = (void *)LineDoubleDash;
-	}
-      break;
-    case CAPSTYLE:
-      if (*num_params == 1)
-	{
-	  if (XmuCompareISOLatin1(params[0], "notlast") == 0)
-	    retval = (void *)CapNotLast;
-	  else if (XmuCompareISOLatin1(params[0], "butt") == 0)
-	    retval = (void *)CapButt;
-	  else if (XmuCompareISOLatin1(params[0], "round") == 0)
-	    retval = (void *)CapRound;
-	  else if (XmuCompareISOLatin1(params[0], "projecting") == 0)
-	    retval = (void *)CapProjecting;
-	}
-      break;
-    case JOINSTYLE:
-      if (*num_params == 1)
-	{
-	  if (XmuCompareISOLatin1(params[0], "miter") == 0)
-	    retval = (void *)JoinMiter;
-	  else if (XmuCompareISOLatin1(params[0], "round") == 0)
-	    retval = (void *)JoinRound;
-	  else if (XmuCompareISOLatin1(params[0], "bevel") == 0)
-	    retval = (void *)JoinBevel;
-	}
-      break;
-    case FILLSTYLE:
-      if (*num_params == 1)
-	{
-	  if (*num_params && XmuCompareISOLatin1(params[0], "solid") == 0)
-	    retval = (void *)FillSolid;
-	  else if (*num_params && XmuCompareISOLatin1(params[0], "tiled") == 0)
-	    retval = (void *)FillTiled;
-	  else if (*num_params && XmuCompareISOLatin1(params[0], "stippled") == 0)
-	    retval = (void *)FillStippled;
-	  else if (*num_params && XmuCompareISOLatin1(params[0], "opaquestippled") == 0)
-	    retval = (void *)FillOpaqueStippled;
-	}
-      break;
-    case FILLRULE:
-      if (*num_params == 1)
-	{
-	  if (XmuCompareISOLatin1(params[0], "evenodd") == 0)
-	    retval = (void *)EvenOddRule;
-	  else if (XmuCompareISOLatin1(params[0], "winding") == 0)
-	    retval = (void *)WindingRule;
-	}
-      break;
-    case TILE:
-      if (*num_params == 1)
-	retval = (void *)XawLoadPixmap(params[0], screen, colormap, depth);
-      if (retval == NULL)
-	{
-	  XtDisplayStringConversionWarning(DisplayOfScreen(screen), (String)params[0],
-					   XtRPixmap);
-	  retval = XAWDL_CONVERT_ERROR;
-	}
-      break;
-    case STIPPLE:
-      if (*num_params == 1)
-	retval = (void *)XawLoadPixmap(params[0], screen, colormap, 1);
-      if (retval == NULL)
-	{
-	  XtDisplayStringConversionWarning(DisplayOfScreen(screen), (String)params[0],
-					   XtRBitmap);
-	  retval = XAWDL_CONVERT_ERROR;
-	}
-      break;
-    case FUNCTION:
-      if (*num_params == 1)
-	{
-	  if (XmuCompareISOLatin1(params[0], "set") == 0)
-	    retval = (void *)GXset;
-	  else if (XmuCompareISOLatin1(params[0], "clear") == 0)
-	    retval = (void *)GXclear;
-	  else if (XmuCompareISOLatin1(params[0], "and") == 0)
-	    retval = (void *)GXand;
-	  else if (XmuCompareISOLatin1(params[0], "andreverse") == 0)
-	    retval = (void *)GXandReverse;
-	  else if (XmuCompareISOLatin1(params[0], "copy") == 0)
-	    retval = (void *)GXcopy;
-	  else if (XmuCompareISOLatin1(params[0], "andinverted") == 0)
-	    retval = (void *)GXandInverted;
-	  else if (XmuCompareISOLatin1(params[0], "noop") == 0)
-	    retval = (void *)GXnoop;
-	  else if (XmuCompareISOLatin1(params[0], "xor") == 0)
-	    retval = (void *)GXxor;
-	  else if (XmuCompareISOLatin1(params[0], "or") == 0)
-	    retval = (void *)GXor;
-	  else if (XmuCompareISOLatin1(params[0], "nor") == 0)
-	    retval = (void *)GXnor;
-	  else if (XmuCompareISOLatin1(params[0], "equiv") == 0)
-	    retval = (void *)GXequiv;
-	  else if (XmuCompareISOLatin1(params[0], "invert") == 0)
-	    retval = (void *)GXinvert;
-	  else if (XmuCompareISOLatin1(params[0], "orreverse") == 0)
-	    retval = (void *)GXorReverse;
-	  else if (XmuCompareISOLatin1(params[0], "copyinverted") == 0)
-	    retval = (void *)GXcopyInverted;
-	  else if (XmuCompareISOLatin1(params[0], "nand") == 0)
-	    retval = (void *)GXnand;
-	}
-      break;
-    case PLANEMASK:
-      if (*num_params == 1)
-	retval = (void *)read_int(params[0], NULL);
-      break;
-    case DSTRING:
-    case PSTRING:
-      if (*num_params == 3)
-	{
-	  XawDLStringArgs *string = (XawDLStringArgs *)
-		XtCalloc(1, sizeof(XawDLStringArgs));
-
-	  read_position(params[0], &string->pos[0]);
-	  read_position(params[1], &string->pos[1]);
-	  string->string = XtNewString(params[2]);
-	  string->length = strlen(string->string);
-	  retval = string;
-	}
-      break;
-    case FONT:
-      if (*num_params == 1)
-	retval = (void *)XLoadFont(DisplayOfScreen(screen), params[0]);
-      break;
-    case DASHES:
-      if (*num_params && *num_params < 127)
-	{
-	  char *dashes;
-
-	  dashes = XtMalloc(*num_params + 1);
-
-	  for (i = 0; i < *num_params; i++)
-	    dashes[i + 1] = read_int(params[i], NULL);
-	  *dashes = *num_params;
-	  retval = dashes;
-	}
-      break;
-    case SUBWMODE:
-      if (*num_params == 1)
-	{
-	  if (XmuCompareISOLatin1(params[0], "clipbychildren") == 0)
-	    retval = (void *)ClipByChildren;
-	  else if (XmuCompareISOLatin1(params[0], "includeinferiors") == 0)
-	    retval = (void *)IncludeInferiors;
-	}
-      break;
-    case EXPOSURES:
-      if (*num_params == 1)
-	{
-	  if (isdigit(params[0][0]) || params[0][0] == '+' || params[0][0] == '-')
-	    retval = (void *)read_int(params[0], NULL);
-	  else if (XmuCompareISOLatin1(params[0], "true") == 0 ||
-	    XmuCompareISOLatin1(params[0], "on") == 0)
-	    retval = (void *)True;
-	  else if (XmuCompareISOLatin1(params[0], "false") == 0 ||
-	    XmuCompareISOLatin1(params[0], "off") == 0)
-	    retval = (void *)False;
-	}
-      break;
-    case CLIPMASK:
-      if (*num_params == 1)
-	retval = (void *)XawLoadPixmap(params[0], screen, colormap, 1);
-      if (retval == NULL)
-	{
-	  retval = XAWDL_CONVERT_ERROR;
-	  XtDisplayStringConversionWarning(DisplayOfScreen(screen), (String)params[0],
-					   XtRPixmap);
-	}
-      break;
-    case COPYAREA:
-    case COPYPLANE:
-      if (*num_params > 2 && *num_params <= 7 + (id == COPYPLANE))
-	{
-	  XawDLCopyArgs *args = (XawDLCopyArgs *)
-		XtCalloc(1, sizeof(XawDLCopyArgs));
-
-	  retval = args;
-	  if (params[0][0] == '\0' || strcmp(params[0], ".") == 0)
-	    args->pixmap = NULL;
-	  else
-	   {
-	     args->pixmap = XawLoadPixmap(params[0], screen, colormap, id == COPYPLANE ? 1 : depth);
-	     if (args->pixmap == NULL)
-	      {
-		XtDisplayStringConversionWarning(DisplayOfScreen(screen), (String)params[0],
-						 XtRBitmap);
-		retval = XAWDL_CONVERT_ERROR;
-		XtFree((char *)args);
-	      }
-	  }
-	  if (retval != XAWDL_CONVERT_ERROR)
-	    {
-	      for (i = 1; i < *num_params && i < 7; i++)
-		read_position(params[i], &args->pos[i - 1]);
-	      if (*num_params > 7)
-		args->plane = read_int(params[7], NULL);
-	    }
-	}
-      break;
-    case IMAGE:
-      if (*num_params > 2 && *num_params <= 7)
-	{
-	  XawDLImageArgs *args = (XawDLImageArgs *)
-		XtCalloc(1, sizeof(XawDLImageArgs));
-
-	  retval = args;
-	  args->pixmap = XawLoadPixmap(params[0], screen, colormap, depth);
-	  if (args->pixmap == NULL)
-	    {
-	      XtDisplayStringConversionWarning(DisplayOfScreen(screen),
-					       (String)params[0], XtRPixmap);
-	      retval = XAWDL_CONVERT_ERROR;
-	      XtFree((char *)args);
-	    }
-	  else
-	    {
-	      args->depth = depth;
-	      for (i = 1; i < *num_params && i < 5; i++)
-		read_position(params[i], &args->pos[i - 1]);
-	    }
-	}
-      break;
-    }
-
-  return (retval);
-}
-
-/* ARGSUSED */
-static void *
-_Xaw_Xlib_DataInitProc(String class_name,
-		       Screen *screen, Colormap colormap, int depth)
-{
-  XawXlibData *data;
-  Window tmp_win;
-
-  data = (XawXlibData *)XtMalloc(sizeof(XawXlibData));
-
-  tmp_win = XCreateWindow(DisplayOfScreen(screen),
-			  RootWindowOfScreen(screen),
-			  0, 0, 1, 1, 1, depth,
-			  InputOutput, (Visual *)CopyFromParent, 0, NULL);
-  data->mask = 0;
-  data->gc = XCreateGC(DisplayOfScreen(screen), tmp_win, 0, &data->values);
-  XDestroyWindow(DisplayOfScreen(screen), tmp_win);
-  data->shape = Complex;
-  data->mode = CoordModeOrigin;
-  data->dashes = NULL;
-
-  return ((void *)data);
-}
-
-/* ARGSUSED */
-static void
-_Xaw_Xlib_ArgsDestructor(Display *display, String proc_name, XtPointer args,
-			 String *params, Cardinal *num_params)
-{
-  Cardinal id;
-  Dl_init *init;
-
-  init = (Dl_init *)bsearch(proc_name, dl_init,
-			    sizeof(dl_init) / sizeof(dl_init[0]),
-			    sizeof(dl_init[0]),
-			    bcmp_cvt_proc);
-
-  id = init->id;
-
-  switch (id)
-    {
-    case LINE:
-    case DRECT:
-    case FRECT:
-    case DARC:
-    case FARC:
-    case POINT:
-    case TSORIGIN:
-    case DASHES:
-    case CLIPORIGIN:
-    case COPYAREA:
-    case COPYPLANE:
-    case IMAGE:
-      XtFree(args);
-      break;
-    case DSTRING:
-    case PSTRING:
-      {
-	XawDLStringArgs *string = (XawDLStringArgs *)args;
-	XtFree(string->string);
-	XtFree(args);
-      } break;
-    case DLINES:
-    case FPOLY:
-    case POINTS:
-    case SEGMENTS:
-    case CLIPRECTS:
-      {
-	XawDLPositionPtr *ptr = (XawDLPositionPtr *)args;
-
-	XtFree((char *)ptr->pos);
-	XtFree(args);
-      } break;
-    }
-}
-
-/* ARGSUSED */
-static void
-_Xaw_Xlib_DataDestructor(Display *display, String class_name, XtPointer data)
-{
-  if (data)
-    {
-      XawXlibData *xdata = (XawXlibData *)data;
-
-      XFreeGC(display, xdata->gc);
-      if (xdata->dashes)
-	XtFree(xdata->dashes);
-      XtFree((char *)data);
-    }
-}
-
-/* Start of DLInfo Management Functions */
-static int
-qcmp_dlist_info(register _Xconst void *left, register _Xconst void *right)
-{
-  return (strcmp((*(XawDLInfo **)left)->name, (*(XawDLInfo **)right)->name));
-}
-
-Bool XawDeclareDisplayListProc(XawDLClass *lc, String name,
-				  XawDisplayListProc proc)
-{
-  XawDLInfo *info;
-
-  if (!lc || !proc || !name || name[0] == '\0')
-    return (False);
-
-  if ((info = _XawFindDLInfo(lc, name)) != NULL)
-    /* Since the data structures to the displayList classes are(should be)
-     * opaque, it is not a good idea to allow overriding a displayList
-     * procedure; it's better to choose another name or class name!
-     */
-    return (False);
-
-  info = (XawDLInfo *)XtMalloc(sizeof(XawDLInfo));
-  info->name = XtNewString(name);
-  info->qname = XrmStringToQuark(info->name);
-  info->proc = proc;
-
-  if (!lc->num_infos)
-    {
-      lc->num_infos = 1;
-      lc->infos = (XawDLInfo **)XtMalloc(sizeof(XawDLInfo*));
-    }
-  else
-    {
-      ++lc->num_infos;
-      lc->infos = (XawDLInfo **)
-	XtRealloc((char *)lc->infos, sizeof(XawDLInfo*) * lc->num_infos);
-    }
-  lc->infos[lc->num_infos - 1] = info;
-
-  if (lc->num_infos > 1)
-    qsort(lc->infos, lc->num_infos, sizeof(XawDLInfo*), qcmp_dlist_info);
-
-  return (True);
-}
-
-static int
-bcmp_dlist_info(register _Xconst void *string,
-		register _Xconst void *dlinfo)
-{
-  return (strcmp((String)string, (*(XawDLClass **)dlinfo)->name));
-}
-
-static XawDLInfo *
-_XawFindDLInfo(XawDLClass *lc, String name)
-{
-  XawDLInfo **info;
-
-  if (!lc->infos)
-    return (NULL);
-
-  info = (XawDLInfo **)bsearch(name, lc->infos, lc->num_infos,
-			       sizeof(XawDLInfo*), bcmp_dlist_info);
-
-  return (info ? *info : NULL);
-}
-
-/* Start of DLClass Management Functions */
-XawDLClass *
-XawGetDisplayListClass(String name)
-{
-  return (_XawFindDLClass(name));
-}
-
-static int
-qcmp_dlist_class(register _Xconst void *left, register _Xconst void *right)
-{
-  return (strcmp((*(XawDLClass **)left)->name, (*(XawDLClass **)right)->name));
-}
-
-XawDLClass *
-XawCreateDisplayListClass(String name,
-			  XawDLArgsInitProc args_init,
-			  XawDLArgsDestructor args_destructor,
-			  XawDLDataInitProc data_init,
-			  XawDLDataDestructor data_destructor)
-{
-  XawDLClass *lc;
-
-  if (!name || name[0] == '\0')
-    return (NULL);
-
-  lc = (XawDLClass *)XtMalloc(sizeof(XawDLClass));
-  lc->name = XtNewString(name);
-  lc->infos = NULL;
-  lc->num_infos = 0;
-  lc->args_init = args_init;
-  lc->args_destructor = args_destructor;
-  lc->data_init = data_init;
-  lc->data_destructor = data_destructor;
-
-  if (!classes)
-    {
-      num_classes = 1;
-      classes = (XawDLClass **)XtMalloc(sizeof(XawDLClass));
-    }
-  else
-    {
-      ++num_classes;
-      classes = (XawDLClass **)XtRealloc((char *)classes,
-					 sizeof(XawDLClass) * num_classes);
-    }
-  classes[num_classes - 1] = lc;
-
-  if (num_classes > 1)
-    qsort(&classes[0], num_classes, sizeof(XawDLClass*), qcmp_dlist_class);
-
-  return (lc);
-}
-
-static int
-bcmp_dlist_class(register _Xconst void *string,
-		 register _Xconst void *dlist)
-{
-  return (strcmp((String)string, (*(XawDLClass **)dlist)->name));
-}
-
-static XawDLClass *
-_XawFindDLClass(String name)
-{
-  XawDLClass **lc;
-
-  if (!classes)
-    return (NULL);
-
-  lc = (XawDLClass **)bsearch(name, &classes[0], num_classes,
-			      sizeof(XawDLClass*), bcmp_dlist_class);
-
-  return (lc ? *lc : NULL);
-}
-
-#endif /* OLDXAW */
+/*

+ * Copyright (c) 1998 by The XFree86 Project, Inc.

+ *

+ * Permission is hereby granted, free of charge, to any person obtaining a

+ * copy of this software and associated documentation files (the "Software"),

+ * to deal in the Software without restriction, including without limitation

+ * the rights to use, copy, modify, merge, publish, distribute, sublicense,

+ * and/or sell copies of the Software, and to permit persons to whom the

+ * Software is furnished to do so, subject to the following conditions:

+ *

+ * The above copyright notice and this permission notice shall be included in

+ * all copies or substantial portions of the Software.

+ *  

+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR

+ * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,

+ * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL

+ * THE XFREE86 PROJECT BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,

+ * WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF

+ * OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE

+ * SOFTWARE.

+ *

+ * Except as contained in this notice, the name of the XFree86 Project shall

+ * not be used in advertising or otherwise to promote the sale, use or other

+ * dealings in this Software without prior written authorization from the

+ * XFree86 Project.

+ *

+ * Author: Paulo César Pereira de Andrade

+ */

+

+#ifdef HAVE_CONFIG_H

+#include <config.h>

+#endif

+#include <ctype.h>

+#include <string.h>

+#include <stdio.h>

+#include <stdlib.h>

+#include <X11/IntrinsicP.h>

+#include <X11/StringDefs.h>

+#include <X11/CoreP.h>

+#include <X11/Xfuncs.h>

+#include <X11/Xmu/CharSet.h>

+#include <X11/Xmu/SysUtil.h>

+#include "Private.h"

+

+#ifdef __UNIXOS2__

+static char dummy;

+#endif

+

+#ifndef OLDXAW

+

+/*

+ * Types

+ */

+typedef struct _XawDLProc XawDLProc;

+typedef struct _XawDLData XawDLData;

+typedef struct _XawDLInfo XawDLInfo;

+

+struct _XawDLProc {

+  XrmQuark qname;

+  String *params;

+  Cardinal num_params;

+  XawDisplayListProc proc;

+  XtPointer args;

+  XawDLData *data;

+};

+

+struct _XawDLData {

+  XawDLClass *dlclass;

+  XtPointer data;

+};

+

+struct _XawDLInfo {

+  String name;

+  XrmQuark qname;

+  XawDisplayListProc proc;

+};

+

+struct _XawDL {

+  XawDLProc **procs;

+  Cardinal num_procs;

+  XawDLData **data;

+  Cardinal num_data;

+  Screen *screen;

+  Colormap colormap;

+  int depth;

+  XrmQuark qrep;  /* for cache lookup */

+};

+

+struct _XawDLClass {

+  String name;

+  XawDLInfo **infos;

+  Cardinal num_infos;

+  XawDLArgsInitProc args_init;

+  XawDLArgsDestructor args_destructor;

+  XawDLDataInitProc data_init;

+  XawDLDataDestructor data_destructor;

+};

+

+/*

+ * Private Methods

+ */

+static XawDLClass *_XawFindDLClass(String);

+static int qcmp_dlist_class(_Xconst void*, _Xconst void*);

+static int bcmp_dlist_class(_Xconst void*, _Xconst void*);

+static XawDLInfo *_XawFindDLInfo(XawDLClass*, String);

+static int qcmp_dlist_info(_Xconst void*, _Xconst void*);

+static int bcmp_dlist_info(_Xconst void*, _Xconst void*);

+static void *_Xaw_Xlib_ArgsInitProc(String, String*, Cardinal*,

+				    Screen*, Colormap, int);

+static void _Xaw_Xlib_ArgsDestructor(Display*, String, XtPointer,

+				     String*, Cardinal*);

+static void *_Xaw_Xlib_DataInitProc(String, Screen*, Colormap, int);

+static void _Xaw_Xlib_DataDestructor(Display*, String, XtPointer);

+

+/*

+ * Initialization

+ */

+static XawDLClass **classes;

+static Cardinal num_classes;

+static String xlib = "xlib";

+

+/*

+ * Implementation

+ */

+void

+XawRunDisplayList(Widget w, _XawDisplayList *list,

+		       XEvent *event, Region region)

+{

+  XawDLProc *proc;

+  Cardinal i;

+

+  if (!XtIsRealized(w))

+    return;

+

+  for (i = 0; i < list->num_procs; i++)

+    {

+      proc = list->procs[i];

+      proc->proc(w, proc->args, proc->data->data, event, region);

+    }

+}

+

+#define DLERR  -2

+#define DLEOF  -1

+#define DLEND  1

+#define DLNAME 2

+#define DLARG  3

+static char *

+read_token(char *src, char *dst, Cardinal size, int *status)

+{

+  int ch;

+  Bool esc, quote;

+  Cardinal i;

+

+  i = 0;

+  esc = quote = False;

+

+  /*CONSTCOND*/

+  while (1)

+    {

+      ch = *src;

+      if (ch != '\n' && isspace(ch))

+	++src;

+      else

+	break;

+    }

+

+  for (; i < size - 1; src++)

+    {

+      ch = *src;

+      if (ch == '"')

+	{

+	  if (quote)

+	    {

+	      quote = False;

+	      continue;

+	    }

+	  quote = True;

+	  continue;

+	}

+      if (ch == '\\')

+	{

+	  if (esc)

+	    {

+	      dst[i++] = ch;

+	      esc = False;

+	      continue;

+	    }

+	  esc = True;

+	  continue;

+	}

+      if (ch == '\0')

+	{

+	  *status = DLEOF;

+	  dst[i] = '\0';

+	  return (src);

+	}

+      else if (!esc)

+	{

+	  if (!quote)

+	    {

+	      if (ch == ',')

+		{

+		  *status = DLARG;

+		  dst[i] = '\0';

+		  return (++src);

+		}

+	      else if (ch == ' ' || ch == '\t')

+		{

+		  *status = DLNAME;

+		  dst[i] = '\0';

+		  return (++src);

+		}

+	      else if (ch == ';' || ch == '\n')

+		{

+		  *status = DLEND;

+		  dst[i] = '\0';

+		  return (++src);

+		}

+	    }

+	}

+      else

+	esc = False;

+      dst[i++] = ch;

+    }

+

+  *status = DLERR;

+  dst[i] = '\0';

+

+  return (src);

+}

+

+_XawDisplayList *XawCreateDisplayList(String string, Screen *screen,

+				     Colormap colormap, int depth)

+{

+  _XawDisplayList *dlist;

+  XawDLClass *lc, *xlibc;

+  XawDLData *data;

+  XawDLInfo *info;

+  XawDLProc *proc;

+  char cname[64], fname[64], aname[1024];

+  Cardinal i;

+  char *cp, *fp, *lp;

+  int status;

+

+  xlibc = XawGetDisplayListClass(xlib);

+  if (!xlibc)

+    {

+      XawDisplayListInitialize();

+      xlibc = XawGetDisplayListClass(xlib);

+    }

+

+  dlist = (_XawDisplayList *)XtMalloc(sizeof(_XawDisplayList));

+  dlist->procs = NULL;

+  dlist->num_procs = 0;

+  dlist->data = NULL;

+  dlist->num_data = 0;

+  dlist->screen = screen;

+  dlist->colormap = colormap;

+  dlist->depth = depth;

+  dlist->qrep = NULLQUARK;

+  if (!string || !string[0])

+    return (dlist);

+

+  cp = string;

+

+  status = 0;

+  while (status != DLEOF)

+    {

+      lp = cp;

+      cp = read_token(cp, fname, sizeof(fname), &status);

+

+      if (status != DLNAME && status != DLEND && status != DLEOF)

+	{

+	  char msg[256];

+

+	  XmuSnprintf(msg, sizeof(msg),

+		      "Error parsing displayList at \"%s\"", lp);

+	  XtAppWarning(XtDisplayToApplicationContext(DisplayOfScreen(screen)),

+		       msg);

+	  XawDestroyDisplayList(dlist);

+	  return (NULL);

+	}

+      fp = fname;

+      /*CONSTCOND*/

+      while (1)

+	{

+	  fp = strchr(fp, ':');

+	  if (!fp || (fp == cp || fp[-1] != '\\'))

+	    break;

+	  ++fp;

+	}

+      if (fp)

+	{

+	  XmuSnprintf(cname, fp - fname + 1, fname);

+	  memmove(fname, fp + 1, strlen(fp));

+	  lc = cname[0] ? XawGetDisplayListClass(cname) : xlibc;

+	  if (!lc)

+	    {

+	      char msg[256];

+

+	      XmuSnprintf(msg, sizeof(msg),

+			  "Cannot find displayList class \"%s\"", cname);

+	      XtAppWarning(XtDisplayToApplicationContext

+			   (DisplayOfScreen(screen)), msg);

+	      XawDestroyDisplayList(dlist);

+	      return (NULL);

+	    }

+	}

+      else

+	lc = xlibc;

+

+      if (status == DLEOF && !fname[0])

+	break;

+

+      if ((info = _XawFindDLInfo(lc, fname)) == NULL)

+	{

+	  char msg[256];

+

+	  XmuSnprintf(msg, sizeof(msg),

+		      "Cannot find displayList procedure \"%s\"", fname);

+	  XtAppWarning(XtDisplayToApplicationContext(DisplayOfScreen(screen)),

+		       msg);

+	  XawDestroyDisplayList(dlist);

+	  return (NULL);

+	}

+

+      proc = (XawDLProc *)XtMalloc(sizeof(XawDLProc));

+      proc->qname = info->qname;

+      proc->params = NULL;

+      proc->num_params = 0;

+      proc->proc = info->proc;

+      proc->args = NULL;

+      proc->data = NULL;

+

+      if (!dlist->procs)

+	{

+	  dlist->num_procs = 1;

+	  dlist->procs = (XawDLProc**)XtMalloc(sizeof(XawDLProc*));

+	}

+      else

+	{

+	  ++dlist->num_procs;

+	  dlist->procs = (XawDLProc**)

+	    XtRealloc((char *)dlist->procs, sizeof(XawDLProc*) *

+		      dlist->num_procs);

+	}

+      dlist->procs[dlist->num_procs - 1] = proc;

+

+      while (status != DLEND && status != DLEOF)

+	{

+	  lp = cp;

+	  cp = read_token(cp, aname, sizeof(aname), &status);

+

+	  if (status != DLARG && status != DLEND && status != DLEOF)

+	    {

+	      char msg[256];

+

+	      XmuSnprintf(msg, sizeof(msg),

+			  "Error parsing displayList at \"%s\"", lp);

+	      XtAppWarning(XtDisplayToApplicationContext

+			   (DisplayOfScreen(screen)), msg);

+	      XawDestroyDisplayList(dlist);

+	      return (NULL);

+	    }

+

+	  if (!proc->num_params)

+	    {

+	      proc->num_params = 1;

+	      proc->params = (String *)XtMalloc(sizeof(String));

+	    }

+	  else

+	    {

+	      ++proc->num_params;

+	      proc->params = (String *)XtRealloc((char *)proc->params,

+						 sizeof(String) *

+						 proc->num_params);

+	    }

+	  proc->params[proc->num_params - 1] = XtNewString(aname);

+	}

+

+      /* verify if data is already created for lc */

+      data = NULL;

+      for (i = 0; i < dlist->num_data; i++)

+	if (dlist->data[i]->dlclass == lc)

+	  {

+	    data = dlist->data[i];

+	    break;

+	  }

+

+      if (!data)

+	{

+	  data = (XawDLData *)XtMalloc(sizeof(XawDLData));

+	  data->dlclass = lc;

+	  if (lc->data_init)

+	    data->data = lc->data_init(lc->name, screen, colormap, depth);

+	  else

+	    data->data = NULL;

+

+	  if (!dlist->data)

+	    {

+	      dlist->num_data = 1;

+	      dlist->data = (XawDLData **)XtMalloc(sizeof(XawDLData*));

+	    }

+	  else

+	    {

+	      ++dlist->num_data;

+	      dlist->data = (XawDLData **)

+		XtRealloc((char *)dlist->data, sizeof(XawDLData*) *

+			  dlist->num_data);

+	    }

+	  dlist->data[dlist->num_data - 1] = data;

+	}

+

+      if (lc->args_init)

+	{

+	  proc->args = lc->args_init(fname, proc->params, &proc->num_params,

+				    screen, colormap, depth);

+	  if (proc->args == XAWDL_CONVERT_ERROR)

+	    {

+	      char msg[256];

+

+	      proc->args = NULL;

+	      XmuSnprintf(msg, sizeof(msg),

+			  "Cannot convert arguments to displayList function \"%s\"", fname);

+	      XtAppWarning(XtDisplayToApplicationContext

+			   (DisplayOfScreen(screen)), msg);

+	      XawDestroyDisplayList(dlist);

+	      return (NULL);

+	    }

+	}

+      else

+	proc->args = NULL;

+

+      proc->data = data;

+    }

+

+  dlist->qrep = XrmStringToQuark(string);

+  return (dlist);

+}

+

+String

+XawDisplayListString(_XawDisplayList *dlist)

+{

+  if (!dlist || dlist->qrep == NULLQUARK)

+    return ("");

+  return (XrmQuarkToString(dlist->qrep));

+}

+

+void

+XawDestroyDisplayList(_XawDisplayList *dlist)

+{

+  Cardinal i, j;

+  XawDLProc *proc;

+  XawDLData *data;

+

+  if (!dlist)

+    return;

+

+  for (i = 0; i < dlist->num_procs; i++)

+    {

+      proc = dlist->procs[i];

+      data = proc->data;

+

+      if (data)

+	{

+	  if (data->dlclass->args_destructor)

+	    data->dlclass->args_destructor(DisplayOfScreen(dlist->screen),

+					   XrmQuarkToString(proc->qname),

+					   proc->args,

+					   proc->params, &proc->num_params);

+	  if (data->data)

+	    {

+	      if (data->dlclass->data_destructor)

+		{

+		  data->dlclass

+		    ->data_destructor(DisplayOfScreen(dlist->screen),

+				      data->dlclass->name,  data->data);

+		  data->data = NULL;

+		}

+	    }

+	}

+

+      for (j = 0; j < proc->num_params; j++)

+	XtFree(proc->params[j]);

+      if (proc->num_params)

+	XtFree((char *)proc->params);

+      XtFree((char *)proc);

+    }

+

+  if (dlist->num_procs)

+    XtFree((char *)dlist->procs);

+

+  XtFree((char *)dlist);

+}

+

+/**********************************************************************

+ * If you want to implement your own class of procedures, look at

+ * the code bellow.

+ **********************************************************************/

+/* Start of Implementation of class "xlib" */

+typedef struct _XawXlibData {

+  GC gc;

+  unsigned long mask;

+  XGCValues values;

+  int shape;

+  int mode;

+  char *dashes;

+  /* these fields can be used for optimization, to

+   * avoid unnecessary coordinates recalculation.

+   */

+  Position x, y;

+  Dimension width, height;

+} XawXlibData;

+

+typedef struct _XawDLPosition {

+  Position pos;

+  short denom;

+  Boolean high;

+} XawDLPosition;

+

+typedef struct _XawDLPositionPtr {

+  XawDLPosition *pos;

+  Cardinal num_pos;

+} XawDLPositionPtr;

+

+typedef struct _XawDLArcArgs {

+  XawDLPosition pos[4];

+  int angle1;

+  int angle2;

+} XawDLArcArgs;

+

+typedef struct _XawDLStringArgs {

+  XawDLPosition pos[2];

+  char *string;

+  int length;

+} XawDLStringArgs;

+

+typedef struct _XawDLCopyArgs {

+  XawPixmap *pixmap;

+  XawDLPosition pos[6];

+  int plane;

+} XawDLCopyArgs;

+

+typedef struct _XawDLImageArgs {

+  XawPixmap *pixmap;

+  XawDLPosition pos[4];

+  int depth;

+} XawDLImageArgs;

+

+#define X_ARG(x) (Position)(((x).denom != 0) ?				      \

+		  ((float)XtWidth(w) * ((float)(x).pos / (float)(x).denom)) : \

+		  ((x).high ? XtWidth(w) - (x).pos : (x).pos))

+#define Y_ARG(x) (Position)(((x).denom != 0) ?				      \

+		  ((float)XtHeight(w) * ((float)(x).pos / (float)(x).denom)): \

+		  ((x).high ? XtHeight(w) - (x).pos : (x).pos))

+#define DRECT		0

+#define FRECT		1

+#define LINE		2

+#define GCFG		3

+#define GCBG		4

+#define FPOLY		5

+#define DARC		6

+#define FARC		7

+#define DLINES		8

+#define MASK		9

+#define UMASK		10

+#define LWIDTH		11

+#define POINT		12

+#define POINTS		13

+#define SEGMENTS	14

+#define ARCMODE		15

+#define COORDMODE	16

+#define SHAPEMODE	17

+#define LINESTYLE	18

+#define CAPSTYLE	19

+#define JOINSTYLE	20

+#define FILLSTYLE	21

+#define FILLRULE	22

+#define	TILE		23

+#define STIPPLE		24

+#define TSORIGIN	25

+#define FUNCTION	26

+#define PLANEMASK	27

+#define DSTRING		28

+#define PSTRING		29

+#define FONT		30

+#define DASHES		31

+#define SUBWMODE	32

+#define EXPOSURES	33

+#define CLIPORIGIN	34

+#define CLIPMASK	35

+#define CLIPRECTS	36

+#define COPYAREA	37

+#define COPYPLANE	38

+#define IMAGE		39

+

+static void

+Dl1Point(Widget w, XtPointer args, XtPointer data, int id)

+{

+  XawDLPosition *pos = (XawDLPosition *)args;

+  XawXlibData *xdata = (XawXlibData *)data;

+  Display *display;

+  Window window;

+  Position x, y;

+

+  x = X_ARG(pos[0]);

+  y = Y_ARG(pos[1]);

+

+  if (!XtIsWidget(w))

+    {

+      Position xpad, ypad;

+

+      xpad = XtX(w) + XtBorderWidth(w);

+      ypad = XtY(w) + XtBorderWidth(w);

+      x += xpad;

+      y += ypad;

+      display = XtDisplayOfObject(w);

+      window = XtWindowOfObject(w);

+    }

+  else

+    {

+      display = XtDisplay(w);

+      window = XtWindow(w);

+    }

+

+  if (id == POINT)

+    XDrawPoint(display, window, xdata->gc, x, y);

+  else if (id == TSORIGIN)

+    {

+      xdata->values.ts_x_origin = x;

+      xdata->values.ts_y_origin = y;

+      xdata->mask |= GCTileStipXOrigin | GCTileStipYOrigin;

+      XSetTSOrigin(display, xdata->gc, x, y);

+    }

+  else if (id == CLIPORIGIN)

+    {

+      xdata->values.clip_x_origin = x;

+      xdata->values.clip_y_origin = y;

+      xdata->mask |= GCClipXOrigin | GCClipYOrigin;

+      XSetClipOrigin(display, xdata->gc, x, y);

+    }

+}

+

+static void

+Dl2Points(Widget w, XtPointer args, XtPointer data, int id)

+{

+  XawDLPosition *pos = (XawDLPosition *)args;

+  XawXlibData *xdata = (XawXlibData *)data;

+  Display *display;

+  Window window;

+  Position x1, y1, x2, y2;

+

+  x1 = X_ARG(pos[0]);

+  y1 = Y_ARG(pos[1]);

+  x2 = X_ARG(pos[2]);

+  y2 = Y_ARG(pos[3]);

+

+  if (!XtIsWidget(w))

+    {

+      Position xpad, ypad;

+

+      xpad = XtX(w) + XtBorderWidth(w);

+      ypad = XtY(w) + XtBorderWidth(w);

+      x1 += xpad; y1 += ypad;

+      x2 += xpad; y2 += ypad;

+      display = XtDisplayOfObject(w);

+      window = XtWindowOfObject(w);

+    }

+  else

+    {

+      display = XtDisplay(w);

+      window = XtWindow(w);

+    }

+

+  if (id == DRECT)

+    XDrawRectangle(display, window, xdata->gc, x1, y1, x2 - x1, y2 - y1);

+  else if (id == FRECT)

+    XFillRectangle(display, window, xdata->gc, x1, y1, x2 - x1, y2 - y1);

+  else if (id == LINE)

+    XDrawLine(display, window, xdata->gc, x1, y1, x2, y2);

+}

+

+/* ARGSUSED */

+static void

+DlLine(Widget w, XtPointer args, XtPointer data, XEvent *event, Region region)

+{

+  Dl2Points(w, args, data, LINE);

+}

+

+/* ARGSUSED */

+static void

+DlDrawRectangle(Widget w, XtPointer args, XtPointer data,

+		XEvent *event, Region region)

+{

+  Dl2Points(w, args, data, DRECT);

+}

+

+/* ARGSUSED */

+static void

+DlFillRectangle(Widget w, XtPointer args, XtPointer data,

+		XEvent *event, Region region)

+{

+  Dl2Points(w, args, data, FRECT);

+}

+

+static void

+DlXPoints(Widget w, XtPointer args, XtPointer data, int id)

+{

+  XawDLPositionPtr *pos_ptr = (XawDLPositionPtr *)args;

+  XawXlibData *xdata = (XawXlibData *)data;

+  XawDLPosition *pos;

+  XPoint points_buf[16];

+  XPoint *points;

+  Display *display;

+  Window window;

+  Cardinal num_points, i, j;

+

+  num_points = pos_ptr->num_pos>>1;

+  points = (XPoint *)XawStackAlloc(sizeof(XPoint) * num_points, points_buf);

+

+  for (i = j = 0; i < num_points; i++, j = i << 1)

+    {

+      pos = &pos_ptr->pos[j];

+      points[i].x = X_ARG(pos[0]);

+      points[i].y = Y_ARG(pos[1]);

+    }

+

+  if (!XtIsWidget(w))

+    {

+      Position xpad, ypad;

+

+      xpad = XtX(w) + XtBorderWidth(w);

+      ypad = XtY(w) + XtBorderWidth(w);

+      if (xdata->mode != CoordModePrevious)

+	{

+	  for (i = 0; i < num_points; i++)

+	    {

+	      points[i].x += xpad;

+	      points[i].y += ypad;

+	    }

+	}

+      else

+	{

+	  points[0].x += xpad;

+	  points[0].y += ypad;

+	}

+      display = XtDisplayOfObject(w);

+      window = XtWindowOfObject(w);

+    }

+  else

+    {

+      display = XtDisplay(w);

+      window = XtWindow(w);

+    }

+

+  if (id == FPOLY)

+    XFillPolygon(display, window, xdata->gc, points, num_points,

+		 xdata->shape, xdata->mode);

+  else if (id == DLINES)

+    XDrawLines(display, window, xdata->gc, points, num_points, xdata->mode);

+  else if (id == POINTS)

+    XDrawPoints(display, window, xdata->gc, points, num_points, xdata->mode);

+

+  XawStackFree(points, points_buf);

+}

+

+/* ARGSUSED */

+static void

+DlFillPolygon(Widget w, XtPointer args, XtPointer data,

+	      XEvent *event, Region region)

+{

+  DlXPoints(w, args, data, FPOLY);

+}

+

+/* ARGSUSED */

+static void

+DlDrawLines(Widget w, XtPointer args, XtPointer data,

+	    XEvent *event, Region region)

+{

+  DlXPoints(w, args, data, DLINES);

+}

+

+/* ARGSUSED */

+static void

+DlDrawPoints(Widget w, XtPointer args, XtPointer data,

+	    XEvent *event, Region region)

+{

+  DlXPoints(w, args, data, POINTS);

+}

+

+/* ARGSUSED */

+static void

+DlForeground(Widget w, XtPointer args, XtPointer data,

+	     XEvent *event, Region region)

+{

+  XawXlibData *xdata = (XawXlibData *)data;

+  Pixel foreground = (Pixel)args;

+

+  if (xdata->values.foreground != foreground)

+    {

+      xdata->mask |= GCForeground;

+      xdata->values.foreground = foreground;

+      XSetForeground(XtDisplayOfObject(w), xdata->gc, foreground);

+    }

+}

+

+/* ARGSUSED */

+static void

+DlBackground(Widget w, XtPointer args, XtPointer data,

+	     XEvent *event, Region region)

+{

+  XawXlibData *xdata = (XawXlibData *)data;

+  Pixel background = (Pixel)args;

+

+  if (xdata->values.background != background)

+    {

+      xdata->mask |= GCBackground;

+      xdata->values.background = background;

+      XSetBackground(XtDisplayOfObject(w), xdata->gc, background);

+    }

+}

+

+static void

+DlArc(Widget w, XtPointer args, XtPointer data, Bool fill)

+{

+  XawXlibData *xdata = (XawXlibData *)data;

+  XawDLArcArgs *arc = (XawDLArcArgs *)args;

+  Position x1, y1, x2, y2;

+  Display *display;

+  Window window;

+

+  x1 = X_ARG(arc->pos[0]);

+  y1 = Y_ARG(arc->pos[1]);

+  x2 = X_ARG(arc->pos[2]);

+  y2 = Y_ARG(arc->pos[3]);

+

+  if (!XtIsWidget(w))

+    {

+      Position xpad, ypad;

+

+      xpad = XtX(w) + XtBorderWidth(w);

+      ypad = XtY(w) + XtBorderWidth(w);

+      x1 += xpad;

+      y1 += ypad;

+      x2 += xpad;

+      y2 += ypad;

+      display = XtDisplayOfObject(w);

+      window = XtWindowOfObject(w);

+    }

+  else

+    {

+      display = XtDisplay(w);

+      window = XtWindow(w);

+    }

+

+  if (fill)

+    XFillArc(display, window, xdata->gc, x1, y1, x2 - x1, y2 - y1,

+	     arc->angle1, arc->angle2);

+  else

+    XDrawArc(display, window, xdata->gc, x1, y1, x2 - x1, y2 - y1,

+	     arc->angle1, arc->angle2);

+}

+

+/* ARGSUSED */

+static void

+DlDrawArc(Widget w, XtPointer args, XtPointer data,

+	  XEvent *event, Region region)

+{

+  DlArc(w, args, data, False);

+}

+

+/* ARGSUSED */

+static void

+DlFillArc(Widget w, XtPointer args, XtPointer data,

+	  XEvent *event, Region region)

+{

+  DlArc(w, args, data, True);

+}

+

+/*ARGSUSED*/

+static void

+DlMask(Widget w, XtPointer args, XtPointer data,

+       XEvent *event, Region region)

+{

+  XawXlibData *xdata = (XawXlibData *)data;

+  Display *display = XtDisplayOfObject(w);

+

+  if (region)

+    XSetRegion(display, xdata->gc, region);

+  else if (event)

+    {

+      XRectangle rect;

+

+      rect.x = event->xexpose.x;

+      rect.y = event->xexpose.y;

+      rect.width = event->xexpose.width;

+      rect.height = event->xexpose.height;

+      XSetClipRectangles(display, xdata->gc, 0, 0, &rect, 1, Unsorted);

+    }

+}

+

+/* ARGSUSED */

+static void

+DlUmask(Widget w, XtPointer args, XtPointer data,

+	XEvent *event, Region region)

+{

+  XawXlibData *xdata = (XawXlibData *)data;

+

+  XSetClipMask(XtDisplayOfObject(w), xdata->gc, None);

+}

+

+/* ARGSUSED */

+static void

+DlLineWidth(Widget w, XtPointer args, XtPointer data,

+	    XEvent *event, Region region)

+{

+  XawXlibData *xdata = (XawXlibData *)data;

+  unsigned line_width = (unsigned long)args;

+

+  if (xdata->values.line_width != line_width)

+    {

+      xdata->mask |= GCLineWidth;

+      xdata->values.line_width = line_width;

+      XChangeGC(XtDisplayOfObject(w), xdata->gc, GCLineWidth, &xdata->values);

+    }

+}

+

+/* ARGSUSED */

+static void

+DlDrawPoint(Widget w, XtPointer args, XtPointer data, XEvent *event, Region region)

+{

+  Dl1Point(w, args, data, POINT);

+}

+

+/* ARGSUSED */

+static void

+DlDrawSegments(Widget w, XtPointer args, XtPointer data,

+	       XEvent *event, Region region)

+{

+  XawDLPositionPtr *pos_ptr = (XawDLPositionPtr *)args;

+  XawXlibData *xdata = (XawXlibData *)data;

+  XawDLPosition *pos;

+  XSegment *segments;

+  XSegment segments_buf[8];

+  Display *display;

+  Window window;

+  Cardinal num_segments, i, j;

+

+  num_segments = pos_ptr->num_pos>>2;

+  segments = (XSegment *)XawStackAlloc(sizeof(XSegment) * num_segments, segments_buf);

+

+  for (i = j = 0; i < num_segments; i++, j = i << 2)

+    {

+      pos = &pos_ptr->pos[j];

+      segments[i].x1 = X_ARG(pos[0]);

+      segments[i].y1 = Y_ARG(pos[1]);

+      segments[i].x2 = X_ARG(pos[2]);

+      segments[i].y2 = Y_ARG(pos[3]);

+    }

+

+  if (!XtIsWidget(w))

+    {

+      Position xpad, ypad;

+

+      xpad = XtX(w) + XtBorderWidth(w);

+      ypad = XtY(w) + XtBorderWidth(w);

+      for (i = 0; i < num_segments; i++)

+	{

+	  segments[i].x1 += xpad;

+	  segments[i].y1 += ypad;

+	  segments[i].x2 += xpad;

+	  segments[i].y2 += ypad;

+	}

+      display = XtDisplayOfObject(w);

+      window = XtWindowOfObject(w);

+    }

+  else

+    {

+      display = XtDisplay(w);

+      window = XtWindow(w);

+    }

+

+  XDrawSegments(display, window, xdata->gc, segments, num_segments);

+

+  XawStackFree(segments, segments_buf);

+}

+

+/* ARGSUSED */

+static void

+DlArcMode(Widget w, XtPointer args, XtPointer data,

+	  XEvent *event, Region region)

+{

+  XawXlibData *xdata = (XawXlibData *)data;

+  int arc_mode  = (long)args;

+

+  if (xdata->values.arc_mode != arc_mode)

+    {

+      xdata->mask |= GCArcMode;

+      xdata->values.arc_mode = arc_mode;

+      XSetArcMode(XtDisplayOfObject(w), xdata->gc, arc_mode);

+    }

+}

+

+/* ARGSUSED */

+static void

+DlCoordMode(Widget w, XtPointer args, XtPointer data,

+	    XEvent *event, Region region)

+{

+  XawXlibData *xdata = (XawXlibData *)data;

+  int mode  = (long)args;

+

+  xdata->mode = mode;

+}

+

+/* ARGSUSED */

+static void

+DlShapeMode(Widget w, XtPointer args, XtPointer data,

+	    XEvent *event, Region region)

+{

+  XawXlibData *xdata = (XawXlibData *)data;

+  int shape  = (long)args;

+

+  xdata->shape = shape;

+}

+

+/* ARGSUSED */

+static void

+DlLineStyle(Widget w, XtPointer args, XtPointer data,

+	    XEvent *event, Region region)

+{

+  XawXlibData *xdata = (XawXlibData *)data;

+  int line_style = (long)args;

+

+  if (xdata->values.line_style != line_style)

+    {

+      xdata->mask |= GCLineStyle;

+      xdata->values.line_style = line_style;

+      XChangeGC(XtDisplayOfObject(w), xdata->gc, GCLineStyle, &xdata->values);

+    }

+}

+

+/* ARGSUSED */

+static void

+DlCapStyle(Widget w, XtPointer args, XtPointer data,

+	   XEvent *event, Region region)

+{

+  XawXlibData *xdata = (XawXlibData *)data;

+  int cap_style = (long)args;

+

+  if (xdata->values.cap_style != cap_style)

+    {

+      xdata->mask |= GCCapStyle;

+      xdata->values.cap_style = cap_style;

+      XChangeGC(XtDisplayOfObject(w), xdata->gc, GCCapStyle, &xdata->values);

+    }

+}

+

+/* ARGSUSED */

+static void

+DlJoinStyle(Widget w, XtPointer args, XtPointer data,

+	    XEvent *event, Region region)

+{

+  XawXlibData *xdata = (XawXlibData *)data;

+  int join_style = (long)args;

+

+  if (xdata->values.join_style != join_style)

+    {

+      xdata->mask |= GCJoinStyle;

+      xdata->values.join_style = join_style;

+      XChangeGC(XtDisplayOfObject(w), xdata->gc, GCJoinStyle, &xdata->values);

+    }

+}

+

+/* ARGSUSED */

+static void

+DlFillStyle(Widget w, XtPointer args, XtPointer data,

+	    XEvent *event, Region region)

+{

+  XawXlibData *xdata = (XawXlibData *)data;

+  int fill_style = (long)args;

+

+  if (xdata->values.fill_style != fill_style)

+    {

+      xdata->mask |= GCFillStyle;

+      xdata->values.fill_style = fill_style;

+      XSetFillStyle(XtDisplayOfObject(w), xdata->gc, fill_style);

+    }

+}

+

+/* ARGSUSED */

+static void

+DlFillRule(Widget w, XtPointer args, XtPointer data,

+	   XEvent *event, Region region)

+{

+  XawXlibData *xdata = (XawXlibData *)data;

+  int fill_rule = (long)args;

+

+  if (xdata->values.fill_rule != fill_rule)

+    {

+      xdata->mask |= GCFillRule;

+      xdata->values.fill_rule = fill_rule;

+      XSetFillRule(XtDisplayOfObject(w), xdata->gc, fill_rule);

+    }

+}

+

+/* ARGSUSED */

+static void

+DlTile(Widget w, XtPointer args, XtPointer data,

+       XEvent *event, Region region)

+{

+  XawXlibData *xdata = (XawXlibData *)data;

+  XawPixmap *pixmap = (XawPixmap *)args;

+

+  if (pixmap && xdata->values.tile != pixmap->pixmap)

+    {

+      xdata->mask |= GCTile;

+      xdata->values.tile = pixmap->pixmap;

+      XSetTile(XtDisplayOfObject(w), xdata->gc, xdata->values.tile);

+    }

+}

+

+/* ARGSUSED */

+static void

+DlStipple(Widget w, XtPointer args, XtPointer data,

+	  XEvent *event, Region region)

+{

+  XawXlibData *xdata = (XawXlibData *)data;

+  XawPixmap *pixmap = (XawPixmap *)args;

+

+  if (pixmap && xdata->values.stipple != pixmap->pixmap)

+    {

+      xdata->mask |= GCStipple;

+      xdata->values.stipple = pixmap->pixmap;

+      XSetStipple(XtDisplayOfObject(w), xdata->gc, xdata->values.stipple);

+    }

+}

+

+/* ARGSUSED */

+static void

+DlTSOrigin(Widget w, XtPointer args, XtPointer data, XEvent *event, Region region)

+{

+  Dl1Point(w, args, data, TSORIGIN);

+}

+

+/* ARGSUSED */

+static void

+DlFunction(Widget w, XtPointer args, XtPointer data,

+	   XEvent *event, Region region)

+{

+  XawXlibData *xdata = (XawXlibData *)data;

+  int function = (long)args;

+

+  if (function != xdata->values.function)

+    {

+      xdata->mask |= GCFunction;

+      xdata->values.function = function;

+      XSetFunction(XtDisplayOfObject(w), xdata->gc, function);

+    }

+}

+

+/* ARGSUSED */

+static void

+DlPlaneMask(Widget w, XtPointer args, XtPointer data,

+	    XEvent *event, Region region)

+{

+  XawXlibData *xdata = (XawXlibData *)data;

+  unsigned long plane_mask = (unsigned long)args;

+

+  if (xdata->values.plane_mask != plane_mask)

+    {

+      xdata->mask |= GCPlaneMask;

+      xdata->values.plane_mask = plane_mask;

+      XSetPlaneMask(XtDisplayOfObject(w), xdata->gc, plane_mask);

+    }

+}

+

+static void

+DlString(Widget w, XtPointer args, XtPointer data, Bool image)

+{

+  XawDLStringArgs *string = (XawDLStringArgs *)args;

+  XawXlibData *xdata = (XawXlibData *)data;

+  Display *display;

+  Window window;

+  Position x, y;

+

+  x = X_ARG(string->pos[0]);

+  y = Y_ARG(string->pos[1]);

+

+  if (!XtIsWidget(w))

+    {

+      Position xpad, ypad;

+

+      xpad = XtX(w) + XtBorderWidth(w);

+      ypad = XtY(w) + XtBorderWidth(w);

+      x += xpad;

+      y += ypad;

+      display = XtDisplayOfObject(w);

+      window = XtWindowOfObject(w);

+    }

+  else

+    {

+      display = XtDisplay(w);

+      window = XtWindow(w);

+    }

+

+  if (image)

+    XDrawImageString(display, window, xdata->gc, x, y, string->string, string->length);

+  else

+    XDrawString(display, window, xdata->gc, x, y, string->string, string->length);

+}

+

+/* ARGSUSED */

+static void

+DlDrawString(Widget w, XtPointer args, XtPointer data,

+	     XEvent *event, Region region)

+{

+  DlString(w, args, data, False);

+}

+

+/* ARGSUSED */

+static void

+DlPaintString(Widget w, XtPointer args, XtPointer data,

+	      XEvent *event, Region region)

+{

+  DlString(w, args, data, True);

+}

+

+/* ARGSUSED */

+static void

+DlFont(Widget w, XtPointer args, XtPointer data,

+       XEvent *event, Region region)

+{

+  XawXlibData *xdata = (XawXlibData *)data;

+  Font font = (Font)args;

+

+  if (xdata->values.font != font)

+    {

+      xdata->mask |= GCFont;

+      xdata->values.font = font;

+      XSetFont(XtDisplayOfObject(w), xdata->gc, font);

+    }

+}

+

+/* ARGSUSED */

+static void

+DlDashes(Widget w, XtPointer args, XtPointer data,

+	 XEvent *event, Region region)

+{

+  XawXlibData *xdata = (XawXlibData *)data;

+  char *dashes = args;

+

+  if (xdata->dashes != dashes)

+    {

+      xdata->mask |= GCDashOffset | GCDashList;

+      xdata->dashes = dashes;

+      XSetDashes(XtDisplayOfObject(w), xdata->gc, 0, dashes + 1, *dashes);

+    }

+}

+

+/* ARGSUSED */

+static void

+DlSubwindowMode(Widget w, XtPointer args, XtPointer data,

+		XEvent *event, Region region)

+{

+  XawXlibData *xdata = (XawXlibData *)data;

+  int subwindow_mode = (long)args;

+

+  if (xdata->values.subwindow_mode != subwindow_mode)

+    {

+      xdata->mask |= GCSubwindowMode;

+      xdata->values.subwindow_mode = subwindow_mode;

+      XSetSubwindowMode(XtDisplayOfObject(w), xdata->gc, subwindow_mode);

+    }

+}

+

+/* ARGSUSED */

+static void

+DlExposures(Widget w, XtPointer args, XtPointer data,

+	    XEvent *event, Region region)

+{

+  XawXlibData *xdata = (XawXlibData *)data;

+  Bool graphics_exposures = (Bool)(long)args;

+

+  if (xdata->values.graphics_exposures != graphics_exposures)

+    {

+      xdata->mask |= GCGraphicsExposures;

+      xdata->values.graphics_exposures = graphics_exposures;

+      XSetGraphicsExposures(XtDisplayOfObject(w), xdata->gc, graphics_exposures);

+    }

+}

+

+/* ARGSUSED */

+static void

+DlClipOrigin(Widget w, XtPointer args, XtPointer data, XEvent *event, Region region)

+{

+  Dl1Point(w, args, data, CLIPORIGIN);

+}

+

+/* ARGSUSED */

+static void

+DlClipMask(Widget w, XtPointer args, XtPointer data,

+	   XEvent *event, Region region)

+{

+  XawXlibData *xdata = (XawXlibData *)data;

+  XawPixmap *pixmap = (XawPixmap *)args;

+  Pixmap clip_mask;

+

+  if (pixmap)

+    clip_mask = pixmap->mask ? pixmap->mask : pixmap->pixmap;

+  else

+    clip_mask = None;

+

+  if (xdata->values.clip_mask != clip_mask)

+    {

+      xdata->mask |= GCClipMask;

+      XSetClipMask(XtDisplayOfObject(w), xdata->gc, clip_mask);

+    }

+}

+

+/* ARGSUSED */

+static void

+DlClipRectangles(Widget w, XtPointer args, XtPointer data,

+		 XEvent *event, Region region)

+{

+  XawDLPositionPtr *pos_ptr = (XawDLPositionPtr *)args;

+  XawXlibData *xdata = (XawXlibData *)data;

+  XawDLPosition *pos;

+  XRectangle *rects;

+  XRectangle rects_buf[8];

+  Position x1, y1, x2, y2;

+  Cardinal num_rects, i, j;

+

+  num_rects = pos_ptr->num_pos>>2;

+  rects = (XRectangle *)XawStackAlloc(sizeof(XRectangle) * num_rects, rects_buf);

+

+  for (i = j = 0; i < num_rects; i++, j = i << 2)

+    {

+      pos = &pos_ptr->pos[j];

+      x1 = X_ARG(pos[0]);

+      y1 = Y_ARG(pos[1]);

+      x2 = X_ARG(pos[2]);

+      y2 = Y_ARG(pos[3]);

+      rects[i].x = XawMin(x1, x2);

+      rects[i].y = XawMin(y1, y2);

+      rects[i].width = XawMax(x1, x2) - rects[i].x;

+      rects[i].height = XawMax(y1, y2) - rects[i].y;

+    }

+

+  if (!XtIsWidget(w))

+    {

+      Position xpad, ypad;

+

+      xpad = XtX(w) + XtBorderWidth(w);

+      ypad = XtY(w) + XtBorderWidth(w);

+      for (i = 0; i < num_rects; i++)

+	{

+	  rects[i].x += xpad;

+	  rects[i].y += ypad;

+	}

+    }

+

+  XSetClipRectangles(XtDisplayOfObject(w), xdata->gc, 0, 0, rects, num_rects, Unsorted);

+

+  XawStackFree(rects, rects_buf);

+}

+

+static void

+DlCopy(Widget w, XtPointer args, XtPointer data, Bool plane)

+{

+  XawDLCopyArgs *copy = (XawDLCopyArgs *)args;

+  XawXlibData *xdata = (XawXlibData *)data;

+  int src_x, src_y, dst_x, dst_y, width, height, tmp1, tmp2;

+

+  tmp1 = X_ARG(copy->pos[0]);

+  tmp2 = X_ARG(copy->pos[2]);

+  dst_x = XawMin(tmp1, tmp2);

+  width = XawMax(tmp1, tmp2) - dst_x;

+

+  tmp1 = Y_ARG(copy->pos[1]);

+  tmp2 = Y_ARG(copy->pos[3]);

+  dst_y = XawMin(tmp1, tmp2);

+  height = XawMax(tmp1, tmp2) - dst_y;

+

+  src_x = X_ARG(copy->pos[4]);

+  src_y = Y_ARG(copy->pos[5]);

+

+  if (width <= 0)

+    {

+      if (copy->pixmap)

+	width = copy->pixmap->width;

+      else

+	{

+	  if ((width = XtWidth(w) - src_x) < 0)

+	    width = 0;

+	}

+    }

+  if (height <= 0)

+    {

+      if (copy->pixmap)

+	height = copy->pixmap->height;

+      else

+	{

+	  if ((height = XtHeight(w) - src_y) < 0)

+	    height = 0;

+	}

+    }

+

+  if (!XtIsWidget(w))

+    {

+      Position xpad, ypad;

+

+      xpad = XtX(w) + XtBorderWidth(w);

+      ypad = XtY(w) + XtBorderWidth(w);

+      src_x += xpad;

+      src_y += ypad;

+      dst_x += xpad;

+      dst_y += ypad;

+    }

+

+  if (plane)

+    XCopyPlane(XtDisplayOfObject(w), XtWindowOfObject(w),

+	       copy->pixmap ? copy->pixmap->pixmap : XtWindowOfObject(w),

+	       xdata->gc, src_x, src_y, width, height, dst_x, dst_y,

+	       copy->plane ? copy->plane : 1);

+  else

+    XCopyArea(XtDisplayOfObject(w),

+	      copy->pixmap ? copy->pixmap->pixmap : XtWindowOfObject(w),

+	      XtWindowOfObject(w), xdata->gc, src_x, src_y, width, height, dst_x, dst_y);

+}

+

+/* ARGSUSED */

+static void

+DlCopyArea(Widget w, XtPointer args, XtPointer data,

+	   XEvent *event, Region region)

+{

+  DlCopy(w, args, data, False);

+}

+

+/* ARGSUSED */

+static void

+DlCopyPlane(Widget w, XtPointer args, XtPointer data,

+	    XEvent *event, Region region)

+{

+  DlCopy(w, args, data, True);

+}

+

+/*ARGSUSED*/

+/* Note:

+ *	  This function is destructive if you set the ts_x_origin, ts_y_origin,

+ *	and/or clip-mask. It is meant to be the only function used in a display

+ *	list. If you need to use other functions (and those values), be sure to

+ *	set them after calling this function.

+ */

+static void

+DlImage(Widget w, XtPointer args, XtPointer data, XEvent *event, Region region)

+{

+  XawDLImageArgs *image = (XawDLImageArgs *)args;

+  XawXlibData *xdata = (XawXlibData *)data;

+  int x, y, xs, ys, xe, ye, width, height;

+  Display *display;

+  Window window;

+

+  width = image->pixmap->width;

+  height = image->pixmap->height;

+  xs = X_ARG(image->pos[0]);

+  ys = Y_ARG(image->pos[1]);

+  xe = X_ARG(image->pos[2]);

+  ye = Y_ARG(image->pos[3]);

+

+  if (xe <= 0)

+    xe = xs + width;

+  if (ye <= 0)

+    ye = ys + height;

+

+  if (!XtIsWidget(w))

+    {

+      Position xpad, ypad;

+

+      xpad = XtX(w) + XtBorderWidth(w);

+      ypad = XtY(w) + XtBorderWidth(w);

+      xe += xpad;

+      ye += ypad;

+      xe += xpad;

+      ye += ypad;

+      display = XtDisplayOfObject(w);

+      window = XtWindowOfObject(w);

+    }

+  else

+    {

+      display = XtDisplay(w);

+      window = XtWindow(w);

+    }

+

+  for (y = ys; y < ye; y += height)

+    for (x = xs; x < xe; x += width)

+      {

+	XSetClipOrigin(display, xdata->gc, x, y);

+	if (image->pixmap->mask)

+	  XSetClipMask(display, xdata->gc, image->pixmap->mask);

+	if (image->depth == 1)

+	  XCopyPlane(display, image->pixmap->pixmap, window, xdata->gc,

+		     0, 0, XawMin(width, xe - x), XawMin(height, ye - y),

+		     x, y, 1L);

+	else

+	  XCopyArea(display, image->pixmap->pixmap, window, xdata->gc, 0, 0,

+		     XawMin(width, xe - x), XawMin(height, ye - y), x, y);

+      }

+

+  XSetClipMask(display, xdata->gc, None);

+}

+

+typedef struct _Dl_init Dl_init;

+struct _Dl_init {

+  String name;

+  XawDisplayListProc proc;

+  Cardinal id;

+};

+

+static Dl_init dl_init[] =

+{

+  {"arc-mode",		DlArcMode,		ARCMODE},

+  {"background",	DlBackground,		GCBG},

+  {"bg",		DlBackground,		GCBG},

+  {"cap-style",		DlCapStyle,		CAPSTYLE},

+  {"clip-mask",		DlClipMask,		CLIPMASK},

+  {"clip-origin",	DlClipOrigin,		CLIPORIGIN},

+  {"clip-rectangles",	DlClipRectangles,	CLIPRECTS},

+  {"clip-rects",	DlClipRectangles,	CLIPRECTS},

+  {"coord-mode",	DlCoordMode,		COORDMODE},

+  {"copy-area",		DlCopyArea,		COPYAREA},

+  {"copy-plane",	DlCopyPlane,		COPYPLANE},

+  {"dashes",		DlDashes,		DASHES},

+  {"draw-arc",		DlDrawArc,		DARC},

+  {"draw-line",		DlLine,			LINE},

+  {"draw-lines",	DlDrawLines,		DLINES},

+  {"draw-point",	DlDrawPoint,		POINT},

+  {"draw-points",	DlDrawPoints,		POINTS},

+  {"draw-rect",		DlDrawRectangle,	DRECT},

+  {"draw-rectangle",	DlDrawRectangle,	DRECT},

+  {"draw-segments",	DlDrawSegments,		SEGMENTS},

+  {"draw-string",	DlDrawString,		DSTRING},

+  {"exposures",		DlExposures,		EXPOSURES},

+  {"fg",		DlForeground,		GCFG},

+  {"fill-arc",		DlFillArc,		FARC},

+  {"fill-poly",		DlFillPolygon,		FPOLY},

+  {"fill-polygon",	DlFillPolygon,		FPOLY},

+  {"fill-rect",		DlFillRectangle,	FRECT},

+  {"fill-rectangle",	DlFillRectangle,	FRECT},

+  {"fill-rule",		DlFillRule,		FILLRULE},

+  {"fill-style",	DlFillStyle,		FILLSTYLE},

+  {"font",		DlFont,			FONT},

+  {"foreground",	DlForeground,		GCFG},

+  {"function",		DlFunction,		FUNCTION},

+  {"image",		DlImage,		IMAGE},

+  {"join-style",	DlJoinStyle,		JOINSTYLE},

+  {"line",		DlLine,			LINE},

+  {"line-style",	DlLineStyle,		LINESTYLE},

+  {"line-width",	DlLineWidth,		LWIDTH},

+  {"lines",		DlDrawLines,		DLINES},

+  {"mask",		DlMask,			MASK},

+  {"paint-string",	DlPaintString,		PSTRING},

+  {"plane-mask",	DlPlaneMask,		PLANEMASK},

+  {"point",		DlDrawPoint,		POINT},

+  {"points",		DlDrawPoints,		POINTS},

+  {"segments",		DlDrawSegments,		SEGMENTS},

+  {"shape-mode",	DlShapeMode,		SHAPEMODE},

+  {"stipple",		DlStipple,		STIPPLE},

+  {"subwindow-mode",	DlSubwindowMode,	SUBWMODE},

+  {"tile",		DlTile,			TILE},

+  {"ts-origin",		DlTSOrigin,		TSORIGIN},

+  {"umask",		DlUmask,		UMASK},

+};

+

+void

+XawDisplayListInitialize(void)

+{

+  static Bool first_time = True;

+  XawDLClass *lc;

+  Cardinal i;

+

+  if (first_time == False)

+    return;

+

+  first_time = False;

+

+  lc = XawCreateDisplayListClass(xlib,

+				 _Xaw_Xlib_ArgsInitProc,

+				 _Xaw_Xlib_ArgsDestructor,

+				 _Xaw_Xlib_DataInitProc,

+				 _Xaw_Xlib_DataDestructor);

+  for (i = 0; i < sizeof(dl_init) / sizeof(dl_init[0]); i++)

+    (void)XawDeclareDisplayListProc(lc, dl_init[i].name, dl_init[i].proc);

+}

+

+static int

+bcmp_cvt_proc(register _Xconst void *string,

+	      register _Xconst void *dlinfo)

+{

+  return (strcmp((String)string, ((Dl_init*)dlinfo)->name));

+}

+

+static long

+read_int(char *cp, char **cpp)

+{

+  long value = 0, sign = 1;

+

+  if (*cp == '-')

+    {

+      sign = -1;

+      ++cp;

+    }

+  else if (*cp == '+')

+    ++cp;

+  value = 0;

+  while (*cp >= '0' && *cp <= '9')

+    {

+      value = value * 10 + *cp - '0';

+      ++cp;

+    }

+  if (cpp)

+    *cpp = cp;

+  return (value * sign);

+}

+

+static void

+read_position(char *arg, XawDLPosition *pos)

+{

+  int ch;

+  char *str = arg;

+

+  ch = *str;

+  if (ch == '-' || ch == '+')

+    {

+      ++str;

+      if (ch == '-')

+	pos->high = True;

+      pos->pos = read_int(str, NULL);

+    }

+  else if (isdigit(ch))

+    {

+      pos->pos = read_int(str, &str);

+      ch = *str++;

+      if (ch == '/')

+	pos->denom = read_int(str, NULL);

+    }

+}

+

+/* ARGSUSED */

+static void *

+_Xaw_Xlib_ArgsInitProc(String proc_name, String *params, Cardinal *num_params,

+		       Screen *screen, Colormap colormap, int depth)

+{

+  Cardinal id, i;

+  Dl_init *init;

+  void *retval = XAWDL_CONVERT_ERROR;

+

+  init = (Dl_init *)bsearch(proc_name, dl_init,

+			    sizeof(dl_init) / sizeof(dl_init[0]),

+			    sizeof(dl_init[0]),

+			    bcmp_cvt_proc);

+

+  id = init->id;

+

+  switch (id)

+    {

+    case LINE:

+    case DRECT:

+    case FRECT:

+      if (*num_params == 4)

+	{

+	  XawDLPosition *pos = (XawDLPosition *)XtCalloc(1, sizeof(XawDLPosition) * 4);

+

+	  for (i = 0; i < 4; i++)

+	    read_position(params[i], &pos[i]);

+	  retval = (void *)pos;

+	}

+      break;

+    case POINT:

+    case TSORIGIN:

+    case CLIPORIGIN:

+      if (*num_params == 2)

+	{

+	  XawDLPosition *pos = (XawDLPosition *)XtCalloc(1, sizeof(XawDLPosition) * 2);

+

+	  read_position(params[0], &pos[0]);

+	  read_position(params[1], &pos[1]);

+	  retval = (void *)pos;

+	}

+      break;

+    case DLINES:

+    case FPOLY:

+    case POINTS:

+      if (*num_params >= 4 && !(*num_params & 1))

+	{

+	  XawDLPositionPtr *pos = XtNew(XawDLPositionPtr);

+

+	  pos->pos = (XawDLPosition *)XtCalloc(1, sizeof(XawDLPosition) *

+					       *num_params);

+	  pos->num_pos = *num_params;

+	  for (i = 0; i < *num_params; i++)

+	    read_position(params[i], &pos->pos[i]);

+	  retval = (void *)pos;

+	}

+      break;

+    case SEGMENTS:

+    case CLIPRECTS:

+      if (*num_params >= 4 && !(*num_params % 4))

+	{

+	  XawDLPositionPtr *pos = XtNew(XawDLPositionPtr);

+

+	  pos->pos = (XawDLPosition *)XtCalloc(1, sizeof(XawDLPosition) *

+					       *num_params);

+	  pos->num_pos = *num_params;

+	  for (i = 0; i < *num_params; i++)

+	    read_position(params[i], &pos->pos[i]);

+	  retval = (void *)pos;

+	}

+      break;

+    case DARC:

+    case FARC:

+      if (*num_params >= 4 && *num_params <= 6)

+	{

+	  XawDLArcArgs *args = (XawDLArcArgs *)XtCalloc(1, sizeof(XawDLArcArgs));

+

+	  args->angle1 = 0;

+	  args->angle2 = 360;

+	  for (i = 0; i < 4; i++)

+	    read_position(params[i], &args->pos[i]);

+	  if (*num_params > 4)

+	    args->angle1 = read_int(params[4], NULL);

+	  if (*num_params > 5)

+	    args->angle2 = read_int(params[5], NULL);

+	  args->angle1 *= 64;

+	  args->angle2 *= 64;

+	  retval = (void *)args;

+	}

+      break;

+    case GCFG:

+    case GCBG:

+      {

+	XColor xcolor;

+

+	if (*num_params == 1 &&

+	    XAllocNamedColor(DisplayOfScreen(screen), colormap,

+			     params[0], &xcolor, &xcolor))

+	  retval = (void *)xcolor.pixel;

+      } break;

+    case MASK:

+    case UMASK:

+      if (*num_params == 0)

+	retval = NULL;

+      break;

+    case LWIDTH:

+      if (*num_params == 1)

+	retval = (void *)read_int(params[0], NULL);

+      break;

+    case ARCMODE:

+      if (*num_params == 1)

+	{

+	  if (XmuCompareISOLatin1(params[0], "pieslice") == 0)

+	    retval = (void *)ArcPieSlice;

+	  else if (XmuCompareISOLatin1(params[0], "chord") == 0)

+	    retval = (void *)ArcChord;

+	}

+      break;

+    case COORDMODE:

+      if (*num_params == 1)

+	{

+	  if (XmuCompareISOLatin1(params[0], "origin") == 0)

+	    retval = (void *)CoordModeOrigin;

+	  else if (XmuCompareISOLatin1(params[0], "previous") == 0)

+	    retval = (void *)CoordModePrevious;

+	}

+      break;

+    case SHAPEMODE:

+      if (*num_params == 1)

+	{

+	  if (XmuCompareISOLatin1(params[0], "complex") == 0)

+	    retval = (void *)Complex;

+	  else if (XmuCompareISOLatin1(params[0], "convex") == 0)

+	    retval = (void *)Convex;

+	  else if (XmuCompareISOLatin1(params[0], "nonconvex") == 0)

+	    retval = (void *)Nonconvex;

+	}

+      break;

+    case LINESTYLE:

+      if (*num_params == 1)

+	{

+	  if (XmuCompareISOLatin1(params[0], "solid") == 0)

+	    retval = (void *)LineSolid;

+	  else if (XmuCompareISOLatin1(params[0], "onoffdash") == 0)

+	    retval = (void *)LineOnOffDash;

+	  else if (XmuCompareISOLatin1(params[0], "doubledash") == 0)

+	    retval = (void *)LineDoubleDash;

+	}

+      break;

+    case CAPSTYLE:

+      if (*num_params == 1)

+	{

+	  if (XmuCompareISOLatin1(params[0], "notlast") == 0)

+	    retval = (void *)CapNotLast;

+	  else if (XmuCompareISOLatin1(params[0], "butt") == 0)

+	    retval = (void *)CapButt;

+	  else if (XmuCompareISOLatin1(params[0], "round") == 0)

+	    retval = (void *)CapRound;

+	  else if (XmuCompareISOLatin1(params[0], "projecting") == 0)

+	    retval = (void *)CapProjecting;

+	}

+      break;

+    case JOINSTYLE:

+      if (*num_params == 1)

+	{

+	  if (XmuCompareISOLatin1(params[0], "miter") == 0)

+	    retval = (void *)JoinMiter;

+	  else if (XmuCompareISOLatin1(params[0], "round") == 0)

+	    retval = (void *)JoinRound;

+	  else if (XmuCompareISOLatin1(params[0], "bevel") == 0)

+	    retval = (void *)JoinBevel;

+	}

+      break;

+    case FILLSTYLE:

+      if (*num_params == 1)

+	{

+	  if (*num_params && XmuCompareISOLatin1(params[0], "solid") == 0)

+	    retval = (void *)FillSolid;

+	  else if (*num_params && XmuCompareISOLatin1(params[0], "tiled") == 0)

+	    retval = (void *)FillTiled;

+	  else if (*num_params && XmuCompareISOLatin1(params[0], "stippled") == 0)

+	    retval = (void *)FillStippled;

+	  else if (*num_params && XmuCompareISOLatin1(params[0], "opaquestippled") == 0)

+	    retval = (void *)FillOpaqueStippled;

+	}

+      break;

+    case FILLRULE:

+      if (*num_params == 1)

+	{

+	  if (XmuCompareISOLatin1(params[0], "evenodd") == 0)

+	    retval = (void *)EvenOddRule;

+	  else if (XmuCompareISOLatin1(params[0], "winding") == 0)

+	    retval = (void *)WindingRule;

+	}

+      break;

+    case TILE:

+      if (*num_params == 1)

+	retval = (void *)XawLoadPixmap(params[0], screen, colormap, depth);

+      if (retval == NULL)

+	{

+	  XtDisplayStringConversionWarning(DisplayOfScreen(screen), (String)params[0],

+					   XtRPixmap);

+	  retval = XAWDL_CONVERT_ERROR;

+	}

+      break;

+    case STIPPLE:

+      if (*num_params == 1)

+	retval = (void *)XawLoadPixmap(params[0], screen, colormap, 1);

+      if (retval == NULL)

+	{

+	  XtDisplayStringConversionWarning(DisplayOfScreen(screen), (String)params[0],

+					   XtRBitmap);

+	  retval = XAWDL_CONVERT_ERROR;

+	}

+      break;

+    case FUNCTION:

+      if (*num_params == 1)

+	{

+	  if (XmuCompareISOLatin1(params[0], "set") == 0)

+	    retval = (void *)GXset;

+	  else if (XmuCompareISOLatin1(params[0], "clear") == 0)

+	    retval = (void *)GXclear;

+	  else if (XmuCompareISOLatin1(params[0], "and") == 0)

+	    retval = (void *)GXand;

+	  else if (XmuCompareISOLatin1(params[0], "andreverse") == 0)

+	    retval = (void *)GXandReverse;

+	  else if (XmuCompareISOLatin1(params[0], "copy") == 0)

+	    retval = (void *)GXcopy;

+	  else if (XmuCompareISOLatin1(params[0], "andinverted") == 0)

+	    retval = (void *)GXandInverted;

+	  else if (XmuCompareISOLatin1(params[0], "noop") == 0)

+	    retval = (void *)GXnoop;

+	  else if (XmuCompareISOLatin1(params[0], "xor") == 0)

+	    retval = (void *)GXxor;

+	  else if (XmuCompareISOLatin1(params[0], "or") == 0)

+	    retval = (void *)GXor;

+	  else if (XmuCompareISOLatin1(params[0], "nor") == 0)

+	    retval = (void *)GXnor;

+	  else if (XmuCompareISOLatin1(params[0], "equiv") == 0)

+	    retval = (void *)GXequiv;

+	  else if (XmuCompareISOLatin1(params[0], "invert") == 0)

+	    retval = (void *)GXinvert;

+	  else if (XmuCompareISOLatin1(params[0], "orreverse") == 0)

+	    retval = (void *)GXorReverse;

+	  else if (XmuCompareISOLatin1(params[0], "copyinverted") == 0)

+	    retval = (void *)GXcopyInverted;

+	  else if (XmuCompareISOLatin1(params[0], "nand") == 0)

+	    retval = (void *)GXnand;

+	}

+      break;

+    case PLANEMASK:

+      if (*num_params == 1)

+	retval = (void *)read_int(params[0], NULL);

+      break;

+    case DSTRING:

+    case PSTRING:

+      if (*num_params == 3)

+	{

+	  XawDLStringArgs *string = (XawDLStringArgs *)

+		XtCalloc(1, sizeof(XawDLStringArgs));

+

+	  read_position(params[0], &string->pos[0]);

+	  read_position(params[1], &string->pos[1]);

+	  string->string = XtNewString(params[2]);

+	  string->length = strlen(string->string);

+	  retval = string;

+	}

+      break;

+    case FONT:

+      if (*num_params == 1)

+	retval = (void *)XLoadFont(DisplayOfScreen(screen), params[0]);

+      break;

+    case DASHES:

+      if (*num_params && *num_params < 127)

+	{

+	  char *dashes;

+

+	  dashes = XtMalloc(*num_params + 1);

+

+	  for (i = 0; i < *num_params; i++)

+	    dashes[i + 1] = read_int(params[i], NULL);

+	  *dashes = *num_params;

+	  retval = dashes;

+	}

+      break;

+    case SUBWMODE:

+      if (*num_params == 1)

+	{

+	  if (XmuCompareISOLatin1(params[0], "clipbychildren") == 0)

+	    retval = (void *)ClipByChildren;

+	  else if (XmuCompareISOLatin1(params[0], "includeinferiors") == 0)

+	    retval = (void *)IncludeInferiors;

+	}

+      break;

+    case EXPOSURES:

+      if (*num_params == 1)

+	{

+	  if (isdigit(params[0][0]) || params[0][0] == '+' || params[0][0] == '-')

+	    retval = (void *)read_int(params[0], NULL);

+	  else if (XmuCompareISOLatin1(params[0], "true") == 0 ||

+	    XmuCompareISOLatin1(params[0], "on") == 0)

+	    retval = (void *)True;

+	  else if (XmuCompareISOLatin1(params[0], "false") == 0 ||

+	    XmuCompareISOLatin1(params[0], "off") == 0)

+	    retval = (void *)False;

+	}

+      break;

+    case CLIPMASK:

+      if (*num_params == 1)

+	retval = (void *)XawLoadPixmap(params[0], screen, colormap, 1);

+      if (retval == NULL)

+	{

+	  retval = XAWDL_CONVERT_ERROR;

+	  XtDisplayStringConversionWarning(DisplayOfScreen(screen), (String)params[0],

+					   XtRPixmap);

+	}

+      break;

+    case COPYAREA:

+    case COPYPLANE:

+      if (*num_params > 2 && *num_params <= 7 + (id == COPYPLANE))

+	{

+	  XawDLCopyArgs *args = (XawDLCopyArgs *)

+		XtCalloc(1, sizeof(XawDLCopyArgs));

+

+	  retval = args;

+	  if (params[0][0] == '\0' || strcmp(params[0], ".") == 0)

+	    args->pixmap = NULL;

+	  else

+	   {

+	     args->pixmap = XawLoadPixmap(params[0], screen, colormap, id == COPYPLANE ? 1 : depth);

+	     if (args->pixmap == NULL)

+	      {

+		XtDisplayStringConversionWarning(DisplayOfScreen(screen), (String)params[0],

+						 XtRBitmap);

+		retval = XAWDL_CONVERT_ERROR;

+		XtFree((char *)args);

+	      }

+	  }

+	  if (retval != XAWDL_CONVERT_ERROR)

+	    {

+	      for (i = 1; i < *num_params && i < 7; i++)

+		read_position(params[i], &args->pos[i - 1]);

+	      if (*num_params > 7)

+		args->plane = read_int(params[7], NULL);

+	    }

+	}

+      break;

+    case IMAGE:

+      if (*num_params > 2 && *num_params <= 7)

+	{

+	  XawDLImageArgs *args = (XawDLImageArgs *)

+		XtCalloc(1, sizeof(XawDLImageArgs));

+

+	  retval = args;

+	  args->pixmap = XawLoadPixmap(params[0], screen, colormap, depth);

+	  if (args->pixmap == NULL)

+	    {

+	      XtDisplayStringConversionWarning(DisplayOfScreen(screen),

+					       (String)params[0], XtRPixmap);

+	      retval = XAWDL_CONVERT_ERROR;

+	      XtFree((char *)args);

+	    }

+	  else

+	    {

+	      args->depth = depth;

+	      for (i = 1; i < *num_params && i < 5; i++)

+		read_position(params[i], &args->pos[i - 1]);

+	    }

+	}

+      break;

+    }

+

+  return (retval);

+}

+

+/* ARGSUSED */

+static void *

+_Xaw_Xlib_DataInitProc(String class_name,

+		       Screen *screen, Colormap colormap, int depth)

+{

+  XawXlibData *data;

+  Window tmp_win;

+

+  data = (XawXlibData *)XtMalloc(sizeof(XawXlibData));

+

+  tmp_win = XCreateWindow(DisplayOfScreen(screen),

+			  RootWindowOfScreen(screen),

+			  0, 0, 1, 1, 1, depth,

+			  InputOutput, (Visual *)CopyFromParent, 0, NULL);

+  data->mask = 0;

+  data->gc = XCreateGC(DisplayOfScreen(screen), tmp_win, 0, &data->values);

+  XDestroyWindow(DisplayOfScreen(screen), tmp_win);

+  data->shape = Complex;

+  data->mode = CoordModeOrigin;

+  data->dashes = NULL;

+

+  return ((void *)data);

+}

+

+/* ARGSUSED */

+static void

+_Xaw_Xlib_ArgsDestructor(Display *display, String proc_name, XtPointer args,

+			 String *params, Cardinal *num_params)

+{

+  Cardinal id;

+  Dl_init *init;

+

+  init = (Dl_init *)bsearch(proc_name, dl_init,

+			    sizeof(dl_init) / sizeof(dl_init[0]),

+			    sizeof(dl_init[0]),

+			    bcmp_cvt_proc);

+

+  id = init->id;

+

+  switch (id)

+    {

+    case LINE:

+    case DRECT:

+    case FRECT:

+    case DARC:

+    case FARC:

+    case POINT:

+    case TSORIGIN:

+    case DASHES:

+    case CLIPORIGIN:

+    case COPYAREA:

+    case COPYPLANE:

+    case IMAGE:

+      XtFree(args);

+      break;

+    case DSTRING:

+    case PSTRING:

+      {

+	XawDLStringArgs *string = (XawDLStringArgs *)args;

+	XtFree(string->string);

+	XtFree(args);

+      } break;

+    case DLINES:

+    case FPOLY:

+    case POINTS:

+    case SEGMENTS:

+    case CLIPRECTS:

+      {

+	XawDLPositionPtr *ptr = (XawDLPositionPtr *)args;

+

+	XtFree((char *)ptr->pos);

+	XtFree(args);

+      } break;

+    }

+}

+

+/* ARGSUSED */

+static void

+_Xaw_Xlib_DataDestructor(Display *display, String class_name, XtPointer data)

+{

+  if (data)

+    {

+      XawXlibData *xdata = (XawXlibData *)data;

+

+      XFreeGC(display, xdata->gc);

+      if (xdata->dashes)

+	XtFree(xdata->dashes);

+      XtFree((char *)data);

+    }

+}

+

+/* Start of DLInfo Management Functions */

+static int

+qcmp_dlist_info(register _Xconst void *left, register _Xconst void *right)

+{

+  return (strcmp((*(XawDLInfo **)left)->name, (*(XawDLInfo **)right)->name));

+}

+

+Bool XawDeclareDisplayListProc(XawDLClass *lc, String name,

+				  XawDisplayListProc proc)

+{

+  XawDLInfo *info;

+

+  if (!lc || !proc || !name || name[0] == '\0')

+    return (False);

+

+  if ((info = _XawFindDLInfo(lc, name)) != NULL)

+    /* Since the data structures to the displayList classes are(should be)

+     * opaque, it is not a good idea to allow overriding a displayList

+     * procedure; it's better to choose another name or class name!

+     */

+    return (False);

+

+  info = (XawDLInfo *)XtMalloc(sizeof(XawDLInfo));

+  info->name = XtNewString(name);

+  info->qname = XrmStringToQuark(info->name);

+  info->proc = proc;

+

+  if (!lc->num_infos)

+    {

+      lc->num_infos = 1;

+      lc->infos = (XawDLInfo **)XtMalloc(sizeof(XawDLInfo*));

+    }

+  else

+    {

+      ++lc->num_infos;

+      lc->infos = (XawDLInfo **)

+	XtRealloc((char *)lc->infos, sizeof(XawDLInfo*) * lc->num_infos);

+    }

+  lc->infos[lc->num_infos - 1] = info;

+

+  if (lc->num_infos > 1)

+    qsort(lc->infos, lc->num_infos, sizeof(XawDLInfo*), qcmp_dlist_info);

+

+  return (True);

+}

+

+static int

+bcmp_dlist_info(register _Xconst void *string,

+		register _Xconst void *dlinfo)

+{

+  return (strcmp((String)string, (*(XawDLClass **)dlinfo)->name));

+}

+

+static XawDLInfo *

+_XawFindDLInfo(XawDLClass *lc, String name)

+{

+  XawDLInfo **info;

+

+  if (!lc->infos)

+    return (NULL);

+

+  info = (XawDLInfo **)bsearch(name, lc->infos, lc->num_infos,

+			       sizeof(XawDLInfo*), bcmp_dlist_info);

+

+  return (info ? *info : NULL);

+}

+

+/* Start of DLClass Management Functions */

+XawDLClass *

+XawGetDisplayListClass(String name)

+{

+  return (_XawFindDLClass(name));

+}

+

+static int

+qcmp_dlist_class(register _Xconst void *left, register _Xconst void *right)

+{

+  return (strcmp((*(XawDLClass **)left)->name, (*(XawDLClass **)right)->name));

+}

+

+XawDLClass *

+XawCreateDisplayListClass(String name,

+			  XawDLArgsInitProc args_init,

+			  XawDLArgsDestructor args_destructor,

+			  XawDLDataInitProc data_init,

+			  XawDLDataDestructor data_destructor)

+{

+  XawDLClass *lc;

+

+  if (!name || name[0] == '\0')

+    return (NULL);

+

+  lc = (XawDLClass *)XtMalloc(sizeof(XawDLClass));

+  lc->name = XtNewString(name);

+  lc->infos = NULL;

+  lc->num_infos = 0;

+  lc->args_init = args_init;

+  lc->args_destructor = args_destructor;

+  lc->data_init = data_init;

+  lc->data_destructor = data_destructor;

+

+  if (!classes)

+    {

+      num_classes = 1;

+      classes = (XawDLClass **)XtMalloc(sizeof(XawDLClass));

+    }

+  else

+    {

+      ++num_classes;

+      classes = (XawDLClass **)XtRealloc((char *)classes,

+					 sizeof(XawDLClass) * num_classes);

+    }

+  classes[num_classes - 1] = lc;

+

+  if (num_classes > 1)

+    qsort(&classes[0], num_classes, sizeof(XawDLClass*), qcmp_dlist_class);

+

+  return (lc);

+}

+

+static int

+bcmp_dlist_class(register _Xconst void *string,

+		 register _Xconst void *dlist)

+{

+  return (strcmp((String)string, (*(XawDLClass **)dlist)->name));

+}

+

+static XawDLClass *

+_XawFindDLClass(String name)

+{

+  XawDLClass **lc;

+

+  if (!classes)

+    return (NULL);

+

+  lc = (XawDLClass **)bsearch(name, &classes[0], num_classes,

+			      sizeof(XawDLClass*), bcmp_dlist_class);

+

+  return (lc ? *lc : NULL);

+}

+

+#endif /* OLDXAW */