/* 
 * Motif Tools Library, Version 2.0
 * $Id: Icon.c,v 1.3 1994/07/04 03:03:50 david Exp $
 * 
 * Written by David Flanagan.
 * Copyright (c) 1992, 1993, 1994 by Dovetail Systems.
 * All Rights Reserved.  See the file COPYRIGHT for details.
 * This is not free software.  See the file SHAREWARE for details.
 * There is no warranty for this software.  See NO_WARRANTY for details.
 */

#include <Xmt/Xmt.h>
#include <Xmt/Icon.h>
#include <X11/extensions/shape.h>

#if NeedFunctionPrototypes
static void DestroyIconWindow(Widget w, XtPointer tag, XtPointer data)
#else
static void DestroyIconWindow(w, tag, data)
Widget w;
XtPointer tag;
XtPointer data;
#endif
{
    XDestroyWindow(XtDisplay(w), (Window)tag);
}

static Boolean shape_supported, shape_queried;

#if NeedFunctionPrototypes
void XmtCreatePixmapIcon(Widget w, Pixmap icon, Pixmap shape)
#else
void XmtCreatePixmapIcon(w, icon, shape)
Widget w;
Pixmap icon;
Pixmap shape;
#endif
{
    Widget shell;
    Display *dpy;
    Window win, root;
    int x, y;
    unsigned width, height, border, depth;
    
    if (!icon) return;
    
    shell = XmtGetShell(w);
    dpy = XtDisplay(shell);
    
    if (!shape_queried) {
	int dummy;
	shape_supported = XShapeQueryExtension(dpy, &dummy, &dummy); 
    }

    XGetGeometry(dpy, icon, &root, &x, &y, &width, &height, &border, &depth);
    win = XCreateSimpleWindow(dpy, root, 0, 0, width, height,
			      (unsigned) 0, CopyFromParent, CopyFromParent);
    XSetWindowBackgroundPixmap(dpy, win, icon);

    if (shape && shape_supported) {
	XShapeCombineMask(dpy, win, ShapeBounding, 0, 0, shape, ShapeSet);
	XShapeCombineMask(dpy, win, ShapeClip, 0, 0, shape, ShapeSet);
    }

    XtVaSetValues(shell, XtNiconWindow, win, NULL);
    XtAddCallback(shell, XtNdestroyCallback, DestroyIconWindow,(XtPointer)win);
}

#if NeedFunctionPrototypes
void XmtDestroyPixmapIcon(Widget w)
#else
void XmtDestroyPixmapIcon(w)
Widget w;
#endif
{
    Widget shell = XmtGetShell(w);
    Display *dpy = XtDisplay(shell);
    Window win;

    XtVaGetValues(shell, XtNiconWindow, &win, NULL);
    if (win == None) return;

    XtVaSetValues(shell, XtNiconWindow, None, NULL);
    XtRemoveCallback(shell, XtNdestroyCallback,
		     DestroyIconWindow, (XtPointer)win);
    XDestroyWindow(dpy, win);
}

#if NeedFunctionPrototypes
void XmtChangePixmapIcon(Widget w, Pixmap icon, Pixmap shape)
#else
void XmtChangePixmapIcon(w, icon, shape)
Widget w;
Pixmap icon;
Pixmap shape;
#endif
{
    Widget shell = XmtGetShell(w);
    Display *dpy = XtDisplay(shell);
    Window win;

    XtVaGetValues(shell, XtNiconWindow, &win, NULL);
    if (win == None) return;

    if (icon) XSetWindowBackgroundPixmap(dpy, win, icon);
    if (shape && shape_supported) {
	XShapeCombineMask(dpy, win, ShapeBounding, 0, 0, shape, ShapeSet);
	XShapeCombineMask(dpy, win, ShapeClip, 0, 0, shape, ShapeSet);
    }
    XClearWindow(dpy, win);
}