/* +-------------------------------------------------------------------+ */
/* | Copyright 1992, 1993, David Koblas (koblas@netcom.com)            | */
/* | Copyright 1995, 1996 Torsten Martinsen (bullestock@dk-online.dk)  | */
/* |                                                                   | */
/* | Permission to use, copy, modify, and to distribute this software  | */
/* | and its documentation for any purpose is hereby granted without   | */
/* | fee, provided that the above copyright notice appear in all       | */
/* | copies and that both that copyright notice and this permission    | */
/* | notice appear in supporting documentation.  There is no           | */
/* | representations about the suitability of this software for        | */
/* | any purpose.  this software is provided "as is" without express   | */
/* | or implied warranty.                                              | */
/* |                                                                   | */
/* +-------------------------------------------------------------------+ */

/* $Id: misc.c,v 1.17 2005/03/20 20:15:32 demailly Exp $ */

#include <ctype.h>
#include <stdio.h>
#include <stdlib.h>
#include <math.h>

#include <X11/Intrinsic.h>
#include <X11/StringDefs.h>
#include <X11/cursorfont.h>
#include <X11/Shell.h>
#include <X11/IntrinsicP.h>

#include "xaw_incdir/AsciiText.h"
#include "xaw_incdir/AsciiTextP.h"
#include "xaw_incdir/Command.h"
#include "xaw_incdir/Form.h"
#include "xaw_incdir/Label.h"
#include "xaw_incdir/Scrollbar.h"
#include "xaw_incdir/ScrollbarP.h"
#include "xaw_incdir/Text.h"
#include "xaw_incdir/TextP.h"
#include "xaw_incdir/Viewport.h"
#include "xaw_incdir/ViewportP.h"

#include "bitmaps/xbm/background.xbm"

#ifndef XtNcursor
#define XtNcursor	 "cursor"
#endif

#include "xpaint.h"
#include "messages.h"
#include "misc.h"
#include "PaintP.h"
#include "palette.h"
#include "protocol.h"

/* 
 *  Set min size for WM hints
 */

char *
ZoomToStr(int zoom)
{
    static char buffer[20]; 
    if (zoom == -1) zoom = 1;
    if (zoom>0)
        sprintf(buffer, "%d",  zoom);
    else
        sprintf(buffer, ":%d", -zoom);
    return buffer;
}

int
StrToZoom(char *str)
{
    int zoom;
    char *ptr;
    if ((ptr=strchr(str,'/')))
	zoom = -atoi(ptr+1);
    else
    if ((ptr=strchr(str,':')))
	zoom = -atoi(ptr+1);
    else
	zoom = atoi(str);
    if (zoom == -1) zoom = 1;
    return zoom;
}

void
FakeButtonClick(Widget w, int x, int y, unsigned int button)
{
    Display *dpy;
    XEvent xev;

    if (!w) return;
    dpy = XtDisplay(w);
    
    xev.xany.window = XtWindow(w);
    xev.xbutton.button = button;
    xev.xbutton.x = x;
    xev.xbutton.y = y;

    xev.type = ButtonPress;    
    XSendEvent(dpy, xev.xany.window, False, ButtonPressMask, &xev);
    xev.type = ButtonRelease;      
    XSendEvent(dpy, xev.xany.window, False, ButtonReleaseMask, &xev);
    XFlush(dpy);
}

void
XtSetMinSizeHints(Widget w, int u, int v)
{
    XSizeHints xsh;
    xsh.min_width = u;
    xsh.min_height = v;
    xsh.flags = PMinSize;
    XSetNormalHints(XtDisplay(w), XtWindow(w), &xsh);
}

/* 
 *  X error handler for,  mainly for future use
 */

int 
privateXErrorHandler(Display *dpy, XErrorEvent *myerr)
{
    char msg[82];  

    /* if we get a BadAlloc error, it's probably 'cuz we couldn't allocate
     * the pixmap.  Tell the user this.
     */
    if (myerr->error_code == None) return 0;
    if (!strcmp(routine, "snapshot")) return 0;
    fprintf(stderr,"%s:\n", routine); 
    if (myerr->error_code == BadAlloc) {
        fprintf(stderr, "%s", msgText[INSUFFICIENT_RESOURCES_FOR_OPERATION]);
	fprintf(stderr, "%s", msgText[PROBABLY_NOT_ENOUGH_MEMORY_TO_ALLOCATE_PIXMAP]);
    }

    /* Now print out the error string that X generates */
    
    XGetErrorText(dpy, myerr->error_code, msg, 80);
    fprintf(stderr, "%s %s\n", msgText[ERROR_CODE], msg);
    return 0;
}

Widget
GetToplevel(Widget w)
{
    Widget p = w;

    while (w != None) {
	p = w;
	w = XtParent(w);
    }
    return p;
}

Widget
GetShell(Widget w)
{
    while (w && !XtIsShell(w))
	w = XtParent(w);
    return w;
}

void
SetWMInputHint(Display *dpy, Window win)
{   
    XWMHints wmhints;
    wmhints.flags = InputHint;
    wmhints.input = True;
    XSetWMHints(dpy, win, &wmhints);
}

void
RaiseWindow(Display *dpy, Window win)
{
    XEvent event;
    int j;
    long mask = SubstructureRedirectMask | SubstructureNotifyMask;
    char *msg = "_NET_ACTIVE_WINDOW";

    event.xclient.type = ClientMessage;
    event.xclient.serial = 0;
    event.xclient.send_event = True;
    event.xclient.message_type = XInternAtom(dpy, msg, False);
    event.xclient.window = win;
    event.xclient.format = 32;
    for (j=0; j<=4; j++) event.xclient.data.l[j] = 0;
    XSendEvent(dpy, DefaultRootWindow(dpy), False, mask, &event);
    XMapRaised(dpy, win);
    SetWMInputHint(dpy, win);
}

void 
SetIBeamCursor(Widget w)
{
    XtVaSetValues(w, XtVaTypedArg,
		  XtNcursor, XtRString, "xterm", sizeof(Cursor), NULL);
}

void 
SetCrossHairCursor(Widget w)
{
    XtVaSetValues(w, XtVaTypedArg,
		XtNcursor, XtRString, "crosshair", sizeof(Cursor), NULL);
}
void 
SetPencilCursor(Widget w)
{
    XtVaSetValues(w, XtVaTypedArg,
		  XtNcursor, XtRString, "pencil", sizeof(Cursor), NULL);
}

void
SetCapAndJoin(Widget w, GC gc, int cap, int join)
{
    int lw;
    XtVaGetValues(w, XtNlineWidth, &lw, NULL);
    if (Global.dashnumber == 0) {
        XSetLineAttributes(XtDisplay(w), gc, lw, LineSolid, cap, join);
    } else {
        XSetDashes(XtDisplay(w), gc, Global.dashoffset, 
                           Global.dashlist, Global.dashnumber);
        XSetLineAttributes(XtDisplay(w), gc, lw, LineOnOffDash, cap, join);
    }
}

/*
**  Some useful XRectangle computation code.
 */
XRectangle *
RectUnion(XRectangle * a, XRectangle * b)
{
    static XRectangle out;
    int sx, ex, sy, ey;

    sx = MIN(a->x, b->x);
    sy = MIN(a->y, b->y);
    ex = MAX(a->x + a->width, b->x + b->width);
    ey = MAX(a->y + a->height, b->y + b->height);

    XYtoRECT(sx, sy, ex, ey, &out);

    return &out;
}

XRectangle *
RectIntersect(XRectangle * a, XRectangle * b)
{
    static XRectangle out;
    int w, h;

    if (a == NULL || b == NULL)
	return NULL;

    out.x = MAX(a->x, b->x);
    out.y = MAX(a->y, b->y);
    w = MIN(a->x + a->width, b->x + b->width) - out.x;
    h = MIN(a->y + a->height, b->y + b->height) - out.y;

    if (w <= 0 || h <= 0)
	return NULL;

    out.width = w;
    out.height = h;

    return &out;
}

/*
**
 */
void 
GetPixmapWHD(Display * dpy, Drawable d, int *wth, int *hth, int *dth)
{
    Window root;
    int x, y;
    unsigned int width, height, bw, depth;

    XGetGeometry(dpy, d, &root, &x, &y, &width, &height, &bw, &depth);

    if (wth != NULL)
	*wth = width;
    if (hth != NULL)
	*hth = height;
    if (dth != NULL)
	*dth = depth;
}

Pixmap
dupPixmap(Display * dpy, Pixmap pix)
{
    Window root;
    Pixmap npix;
    GC gc;
    int x, y;
    unsigned int width, height, bw, depth;

    if (!pix) return pix;
    XGetGeometry(dpy, pix, &root, &x, &y, &width, &height, &bw, &depth);
    npix = XCreatePixmap(dpy, root, width, height, depth);
    gc = XCreateGC(dpy, npix, 0, 0);
    XCopyArea(dpy, pix, npix, gc, 0, 0, width, height, 0, 0);
    XFreeGC(dpy, gc);
    return npix;
}

/*
**  Two useful functions to "cache" both a tiled background
**    and a Xor gc
 */
typedef struct bgList_s {
    int depth;
    Pixmap pixmap;
    struct bgList_s *next;
} BackgroundList;

static BackgroundList *bgList = NULL;

Pixmap
GetBackgroundPixmap(Widget w)
{
    Widget p, n = None;
    Display *dpy = XtDisplay(w);
    int depth;
    Pixmap pix;
    Pixel fg, bg;
    BackgroundList *cur;
    Widget tw;

    if (!w) return None;
    for (n = XtParent(p = w); !XtIsShell(n); n = XtParent(p = n));

    XtVaGetValues(p, XtNdepth, &depth, NULL);

    for (cur = bgList; bgList != NULL; bgList = bgList->next)
	if (cur->depth == depth)
	    return cur->pixmap;

    tw = XtVaCreateWidget("junkWidget", labelWidgetClass, w,
			  XtNwidth, 1,
			  XtNheight, 1,
			  NULL);
    XtVaGetValues(tw, XtNforeground, &fg,
		  XtNbackground, &bg,
		  NULL);

    XtDestroyWidget(tw);

    pix = XCreatePixmapFromBitmapData(dpy, DefaultRootWindow(dpy),
				      (char *) background_bits,
				      background_width, background_height,
				      bg, fg, depth);

    cur = XtNew(BackgroundList);
    cur->next = bgList;
    bgList = cur;
    cur->depth = depth;
    cur->pixmap = pix;
    return pix;
}

typedef struct gcList_s {
    Widget widget;
    int depth;
    GC gc;
    struct gcList_s *next;
} GCXList;

static GCXList *gcList = NULL;

GC
GetGCX(Widget w)
{
    Widget n = GetShell(w);
    int depth;
    GCXList *cur;
    XGCValues values;

    XtVaGetValues(n, XtNdepth, &depth, NULL);

    for (cur = gcList; gcList != NULL; gcList = gcList->next)
	if (cur->depth == depth)
	    return cur->gc;

    values.function = GXxor;
    values.foreground = ~0;

    cur = XtNew(GCXList);
    cur->next = gcList;
    gcList = cur;
    cur->depth = depth;
    cur->gc = XtGetGC(n, GCFunction | GCForeground, &values);
    return cur->gc;
}

/*
**  Argv parsing routines
 */

static char *
nextArg(char *str, char **start)
{
    char *cp;
    int flg;

    while (isspace(*str))
	str++;
    if (start != NULL)
	*start = str;
    if (*str == '\0')
	return NULL;
    if (*str == '\'' || *str == '"') {
	char delim = *str;
	if (start != NULL)
	    (*start)++;
	cp = ++str;
	while (*str != '\0' && *str != delim) {
	    if (*str == '\\') {
		if (*++str == '\0')
		    continue;
	    }
	    *cp++ = *str++;
	}
	*cp = '\0';
    } else {
	while (!isspace(*str) && *str != '\0')
	    str++;
    }

    flg = (*str != '\0');
    *str = '\0';
    return str + (flg ? 1 : 0);
}

void 
StrToArgv(char *str, int *argc, char **argv)
{
    int t;
    char *cp;

    if (argc == NULL)
	argc = &t;

    *argc = 0;
    for (cp = str; cp != NULL; (*argc)++)
	cp = nextArg(cp, argv == NULL ? NULL : &argv[*argc]);

    if (argv != NULL)
	argv[--(*argc)] = NULL;
}

/*
**  Create a XImage
 */
XImage *
NewXImage(Display * dpy, Visual * visual, int depth, int width, int height)
{
    XImage *xim;
    int pad;

    if (depth > 16)
	pad = 32;
    else if (depth > 8)
	pad = 16;
    else
	pad = 8;

    xim = XCreateImage(dpy, visual, depth, ZPixmap, 0, NULL,
		       width, height, pad, 0);

    if (xim == NULL)
	return NULL;

    xim->data = (char *) XtMalloc(xim->bytes_per_line * height);

    if (xim->data == NULL) {
	XDestroyImage(xim);
	xim = NULL;
    }
    return xim;
}

/*
 * Return a Gaussian (aka normal) random variable.
 *
 * Adapted from ppmforge.c, which is part of PBMPLUS.
 * The algorithm comes from:
 * 'The Science Of Fractal Images'. Peitgen, H.-O., and Saupe, D. eds.
 * Springer Verlag, New York, 1988.
 */
double 
gauss(void)
{
    int i;
    double sum = 0.0;

    for (i = 0; i < 4; i++)
	sum += RANDOMI() & 0x7FFF;

    return sum * 5.28596089837e-5 - 3.46410161514;
}

/*
 * Return a Gaussian (aka normal) random variable, multiplied by 'range'
 * and clamped to [-range, range]. Note: integer return.
 */
int 
gaussclamp(int range)
{
    /* The '2.5' is a fudge factor; this value IMHO gives the best result */
    int g = gauss() * range / 2.5;

    if (g < -range)
	g = -range;
    else if (g > range)
	g = range;
    return g;
}

void *
xmalloc(size_t n)
{
    void *p;

    if ((p = malloc(n)) != NULL)
	return p;
    if (msgText)
        fprintf(stderr, "%s", msgText[OUT_OF_MEMORY]);
    else
        fprintf(stderr, "Out of memory !\n");
    exit(1);
}

/*
 * Remove same-coloured borders from image.
 * Portions of this code taken from pnmcrop.c, which is part of the PBMPLUS
 * package, and carries the following copyright:
 */
/*
** Copyright (C) 1988 by Jef Poskanzer.
**
** Permission to use, copy, modify, and distribute this software and its
** documentation for any purpose and without fee is hereby granted, provided
** that the above copyright notice appear in all copies and that both that
** copyright notice and this permission notice appear in supporting
** documentation.  This software is provided "as is" without express or
** implied warranty.
 */
void 
AutoCrop(Widget paint)
{
    PaintWidget pw = (PaintWidget) paint;
    int i;
    int x, y, width, height, top, bottom, left, right;
    Pixmap pix;
    Pixel corner[4], bg;
    unsigned char *alpha;
    XImage *xim;
    Colormap cmap;
    Palette *palette;
    Display *dpy = XtDisplay(pw);
    XRectangle rect;


    StateSetBusy(True);
    PwRegionFinish(paint, True);
    width = pw->paint.drawWidth;
    height = pw->paint.drawHeight;

    /*
     * First try to guess the border colour.
     */
    XtVaGetValues(paint, XtNcolormap, &cmap, NULL);
    palette = PaletteFind(paint, cmap);

    /* Find the RGB values for the four corners. */
    pix = XCreatePixmap(dpy, XtWindow(pw), width, height, pw->core.depth);
    xim = NewXImage(dpy, NULL, pw->core.depth, width, height);
    XGetSubImage(dpy, GET_PIXMAP(pw), 0, 0, width, height,
		 AllPlanes, ZPixmap, xim, 0, 0);
    for (y = 0, i = 0; y < height; y += height - 1)
	for (x = 0; x < width; x += width - 1)
	    corner[i++] = XGetPixel(xim, x, y);

    if ((corner[0] == corner[1]) || (corner[0] == corner[2]) ||
	(corner[0] == corner[3]))
	bg = corner[0];
    else if ((corner[1] == corner[2]) || (corner[1] == corner[3]))
	bg = corner[1];
    else if (corner[2] == corner[3])
	bg = corner[2];
    else {
	XDestroyImage(xim);
	StateSetBusy(False);
	return;			/* No two corners have the same colour */
    }

    /* Find first non-background line. */
    for (top = 0; top < height; top++)
	for (x = 0; x < width; x++)
	    if (XGetPixel(xim, x, top) != bg)
		goto gottop;
  gottop:

    /* Find last non-background line. */
    for (bottom = height - 1; bottom >= top; bottom--)
	for (x = 0; x < width; x++)
	    if (XGetPixel(xim, x, bottom) != bg)
		goto gotbottom;
  gotbottom:

    /* Find first non-background column. */
    left = width - 1;
    for (y = top; y <= bottom; y++)
	for (x = 0; x < left; x++)
	    if (XGetPixel(xim, x, y) != bg) {
		left = x;
		break;
	    }
    /* Find last non-background column. */
    right = left + 1;
    for (y = top; y <= bottom; y++)
	for (x = width - 1; x > right; x--)
	    if (XGetPixel(xim, x, y) != bg) {
		right = x;
		break;
	    }
    XDestroyImage(xim);

    rect.x = left;
    rect.y = top;
    rect.width = right - left + 1;
    rect.height = bottom - top + 1;

    if (((left == 0) && (right == width - 1) &&
	 (top == 0) && (bottom == height - 1))
	|| (rect.width < 1) || (rect.height < 1)) {
	StateSetBusy(False);
	return;
    }


    if (pw->paint.current.alpha) {
        i = rect.width * rect.height;
        alpha = (unsigned char *)XtMalloc(i);
        for (y=0; y<rect.height; y++)
	    memcpy(alpha+y*rect.width,
                   pw->paint.current.alpha+(rect.x+(y+rect.y)*width), 
                   rect.width);
    } else
        alpha = NULL;

    PwRegionSet(paint, &rect, None, None);
    PwRegionGet(paint, &pix, None);
    PwRegionFinish(paint, True);

    XtVaSetValues((Widget) paint, XtNpixmap, pix,
	     XtNdrawWidth, rect.width, XtNdrawHeight, rect.height, NULL);

    pw->paint.dirty = True;
    PwUpdateDrawable((Widget) paint, XtWindow(paint), NULL);
    pw->paint.current.alpha = alpha;

    StateSetBusy(False);
}


/*
 * In all cases, when calling XtVisCreatePopupShell, make sure that
 * args is 2 larger.  For simplicity here, we put the burden on the user.
 * Remember to set nargs!
 */
Widget
XtVisCreatePopupShell(String name, WidgetClass widget_class,
		      Widget parent, ArgList args, Cardinal nargs)
{
    Widget grandparent;
    Visual *visual;
   
    grandparent = GetShell(parent);
 
    XtVaGetValues(grandparent, XtNvisual, &visual, NULL);
    
    if ((visual != NULL) &&
	(XVisualIDFromVisual(visual) ==
	 XVisualIDFromVisual(Global.vis.visual))) {
        XtSetArg(args[nargs], XtNvisual, Global.vis.visual); nargs++;
	XtSetArg(args[nargs], XtNdepth,  Global.vis.depth);  nargs++;
    }

    return XtCreatePopupShell(name, widget_class, parent, args, nargs);    
}


static Boolean CompareEvents (oldEvent, newEvent)
    XEvent *oldEvent, *newEvent;
{
#define Check(field) if (newEvent->field != oldEvent->field) return False;

    Check(xany.display);
    Check(xany.type);
    Check(xany.window);

    switch (newEvent->type) {
    case MotionNotify:
        Check(xmotion.state);
        break;
    case ButtonPress:
    case ButtonRelease:
        Check(xbutton.state);
        Check(xbutton.button);
        break;
    case KeyPress:
    case KeyRelease:
        Check(xkey.state);
        Check(xkey.keycode);
        break;
    case EnterNotify:
    case LeaveNotify:
        Check(xcrossing.mode);
        Check(xcrossing.detail);
        Check(xcrossing.state);
        break;
    }
#undef Check

    return True;
}

struct EventData {
    XEvent *oldEvent;
    int count;
};

static Bool PeekNotifyEvent (dpy, event, args)
    Display *dpy;
    XEvent *event;
    char *args;
{
    struct EventData *eventData = (struct EventData*)args;
    
    return ((++eventData->count == QLength(dpy)) /* since PeekIf blocks */
            || CompareEvents(event, eventData->oldEvent));
}

static Boolean LookAhead (w, event)
    Widget w;
    XEvent *event;
{
    XEvent newEvent;
    struct EventData eventData;

    if (QLength (XtDisplay (w)) == 0) return False;
    
    eventData.count = 0;
    eventData.oldEvent = event;
                        
    XPeekIfEvent (XtDisplay (w), &newEvent, PeekNotifyEvent, 
                  (char*)&eventData);
                        
    return CompareEvents (event, &newEvent);
}

void
mousewheelScroll(Widget w, void * l, XEvent * event, Boolean * flg)
{
    Widget sb = None;
    long call_data;
    if (event->xbutton.button == 4 || event->xbutton.button == 5) {
        if (l==NULL) {
	    sb = ((AsciiWidget)w)->text.vbar;
        } else
        if (l==(void *)1) {
	    w = XtParent(w);
            if (!w) return;
	    sb = XtNameToWidget(w, "vertical");	   
        } 
        else
        if (l==(void *)2) {
	    w = XtParent(w);
            if (!w) return;
	    w = XtParent(w);
            if (!w) return;
	    sb = XtNameToWidget(w, "vertical");	   
	}
        else return;
        if (sb == None) return;
#ifdef XAW_ARROW_SCROLLBARS
        if (((ScrollbarWidget)sb)->scrollbar.scroll_mode == 2 /* if scroll continuous */
            || LookAhead (sb, event))
            return;
#else
        if (LookAhead (sb, event))
	    return;
#endif
        if (((ScrollbarWidget)sb)->scrollbar.shown >= 1.0)
            return; 
#ifdef XAW95       
        call_data = 4 * ((ScrollbarWidget)sb)->scrollbar.length / 2000;
#else
        call_data = 6 * ((ScrollbarWidget)sb)->scrollbar.length / 20;
	if (call_data < 5) call_data = 5;       
#endif       
        if (event->xbutton.button == 4) call_data = -call_data;
        XtCallCallbacks (sb, XtNscrollProc, (XtPointer)(call_data));
    }
}

void 
clickFocusCallback(Widget w, XtPointer arg, XEvent * event, Boolean * flg)
{
    Widget shell = (Widget) arg;
    if (event->type == ButtonPress)
        XtSetKeyboardFocus(((shell)?shell : GetShell(w)), w);
}

void
DataXYClear(Widget w, XtPointer dummy, XtPointer junk)
{
    Widget wid;
    wid = XtNameToWidget(Global.data_xy, "*list");
    if (wid) XtVaSetValues(wid, XtNstring, "", NULL);
}

void DataXYResized(Widget w, XtPointer l, XConfigureEvent * event, Boolean * flg)
{
    Widget wid;
    int width, height, width1, height1;
    if (event->type != ConfigureNotify) return;
    XtVaGetValues(Global.data_xy, XtNwidth, &width, XtNheight, &height, NULL);
    wid = XtNameToWidget(Global.data_xy, "*clear");
    if (!wid) return;
    XtVaGetValues(wid, XtNwidth, &width1, XtNheight, &height1, NULL);
    height -= height1 + 4;
    wid = XtNameToWidget(Global.data_xy, "*clear");
    XtMoveWidget(wid, 4, height);
    wid = XtNameToWidget(Global.data_xy, "*close");
    XtMoveWidget(wid, width1+8, height);
    height -= 9;
    if (height<20) height = 20;
    wid = XtNameToWidget(Global.data_xy, "*list");
    if (!wid) return;
    XtResizeWidget(wid, width-8, height, 0);    
}

void
DataXYClose(Widget w, XtPointer dummy, XtPointer junk)
{
    XtUnmapWidget(Global.data_xy);
}
  
void
DataXYPopup()
{
   Widget shell, form, list, clearButton, closeButton;

   if (Global.data_xy) {
       XtMapWidget(Global.data_xy);
       return;
   }
   
   shell = XtVisCreatePopupShell("coordinates",
				 topLevelShellWidgetClass,
                                 Global.toplevel,
				 NULL, 0);
   
   form = XtVaCreateManagedWidget("form",
				   formWidgetClass, shell,
				   XtNborderWidth, 0,
				   NULL);

   list = XtVaCreateManagedWidget("list",
				   asciiTextWidgetClass, form,
				   XtNeditType, XawtextEdit,
				   XtNwrap, XawtextWrapNever,
				   XtNscrollVertical, XawtextScrollAlways,
                                   XtNheight, 120,
                                   XtNminHeight, 120,
				   XtNwidth, 400,
				   NULL);
    clearButton = XtVaCreateManagedWidget("clear",
				       commandWidgetClass, form,
				       XtNfromVert, list,
				       NULL);
    closeButton = XtVaCreateManagedWidget("close",
					   commandWidgetClass, form,
				           XtNfromVert, list,    
					   XtNfromHoriz, clearButton,
					   NULL);

    XtAddEventHandler(form, StructureNotifyMask, False,
		      (XtEventHandler) DataXYResized, (XtPointer) list);

    XtAddCallback(clearButton, XtNcallback, DataXYClear, NULL);    
    XtAddCallback(closeButton, XtNcallback, DataXYClose, NULL);
    XtRealizeWidget(shell);
    XtMapWidget(shell);
    XtUnmanageChild(list);
    XtUnmanageChild(clearButton);
    XtUnmanageChild(closeButton);
    XMapWindow(XtDisplay(list),XtWindow(list));    
    XMapWindow(XtDisplay(clearButton),XtWindow(clearButton));
    XMapWindow(XtDisplay(closeButton),XtWindow(closeButton));
    AddDestroyCallback(shell,
		       (DestroyCallbackFunc) DataXYClose, NULL);
    Global.data_xy = shell;
}

Boolean
CheckVxp(Widget w)
{
    PaintWidget pw;
    if (!w) return False;    
    pw = GET_PW(w);
    if (!pw) return False;
    return pw->paint.dovxp;
}

Boolean
DoVxp(Widget w)
{
    PaintWidget pw;
    int l, lp;
    if (!w) return False;
    pw = GET_PW(w);
    if (!pw) return False;
    if (pw->paint.dovxp) {
      if (!pw->paint.vxp) {
	pw->paint.vxp = malloc(64);
	sprintf(pw->paint.vxp, "#VXP\n*canvas %d,%d",
		pw->paint.drawWidth, pw->paint.drawHeight);
        pw->paint.vxpl = strlen(pw->paint.vxp);	
      }
      if (Global.vxpinput[0]) {
        l = strlen(Global.vxpinput);
        lp = pw->paint.vxpl;
        pw->paint.vxpl = lp + l;
        pw->paint.vxp = realloc(pw->paint.vxp,  pw->paint.vxpl + 2);
        strcpy(&pw->paint.vxp[lp], Global.vxpinput);
        Global.vxpinput[0] = '\0';
      }
    }
    return pw->paint.dovxp;
}

void
SetVxp(Widget w, Boolean flag)
{
    PaintWidget pw;
    pw = GET_PW(w);
    if (!pw) return;
    pw->paint.vxpl = 0;
    Global.vxpinput[0] = '\0';
    pw->paint.dovxp = flag;
}

void
RecordVxp(Widget w)
{
    if (DoVxp(w));
}
