Synchronised line endinge with release branch

1 files changed, 2255 insertions, 2255 deletions

diff --git a/libXaw/src/DisplayList.c b/libXaw/src/DisplayList.c
index 1bef9945f..6549650e7 100644
--- a/libXaw/src/DisplayList.c
+++ b/libXaw/src/DisplayList.c
@@ -1,2255 +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

- */

-

-#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 */