/*
 * Copyright 1989 Massachusetts Institute of Technology
 *
 * 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, and that the name of M.I.T. not be used in advertising
 * or publicity pertaining to distribution of the software without specific,
 * written prior permission.  M.I.T. makes no representations about the
 * suitability of this software for any purpose.  It is provided "as is"
 * without express or implied warranty.
 *
 * M.I.T. DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING ALL
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL M.I.T.
 * BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
 * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION
 * OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN 
 * CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 */

/**********************************************************************
 *
 * $XConsortium: icons.c,v 1.22 91/07/12 09:58:38 dave Exp $
 *
 * Icon releated routines
 *
 * 10-Apr-89 Tom LaStrange        Initial Version.
 *
 **********************************************************************/

#include <stdio.h>
#include <string.h>
#include "twm.h"
#include "screen.h"
#include "regions.h"
#include "list.h"
#include "gram.h"
#include "parse.h"
#include "util.h"

extern void splitRegionEntry();
extern int roundEntryUp();
extern RegionEntry *prevRegionEntry();
extern void mergeRegionEntries();
extern void downRegionEntry();
extern RootRegion *AddRegion();

#define iconWidth(w)	(Scr->IconBorderWidth * 2 + w->icon_w_width)
#define iconHeight(w)	(Scr->IconBorderWidth * 2 + w->icon_w_height)

void PlaceIcon(tmp_win, def_x, def_y, final_x, final_y)
TwmWindow *tmp_win;
int def_x, def_y;
int *final_x, *final_y;
{
    RootRegion	*rr;
    RegionEntry	*re;
    int		w, h;

    re = 0;
    for (rr = Scr->FirstIconRegion; rr; rr = rr->next) {
	w = roundEntryUp (iconWidth (tmp_win), rr->stepx);
	h = roundEntryUp (iconHeight (tmp_win), rr->stepy);
	for (re = rr->entries; re; re=re->next) {
	    if (re->usedby)
		continue;
/* don't include grid spacing - djhjr - 5/22/99
	    if (re->w >= w && re->h >= h)
*/
	    if (re->w >= iconWidth(tmp_win) && re->h >= iconHeight(tmp_win))
		break;
	}
	if (re)
	    break;
    }
    if (re) {
	splitRegionEntry (re, rr->grav1, rr->grav2, w, h);
	re->usedby = USEDBY_TWIN;
	re->u.twm_win = tmp_win;

/* evenly spaced icon placement - djhjr - 4/24/99
	*final_x = re->x + (re->w - iconWidth (tmp_win)) / 2;
	*final_y = re->y + (re->h - iconHeight (tmp_win)) / 2;
*/
	*final_x = re->x;
	*final_y = re->y;

	/* adjust for region gravity - djhjr 4/26/99 */
	if (rr->grav2 == D_EAST)
		*final_x += re->w - iconWidth(tmp_win);
	if (rr->grav1 == D_SOUTH)
		*final_y += re->h - iconHeight(tmp_win);

    } else {
	*final_x = def_x;
	*final_y = def_y;
    }
    return;
}

static RegionEntry *
FindIconEntry (tmp_win, rrp)
    TwmWindow   *tmp_win;
    RootRegion	**rrp;
{
    RootRegion	*rr;
    RegionEntry	*re;

    for (rr = Scr->FirstIconRegion; rr; rr = rr->next) {
	for (re = rr->entries; re; re=re->next)
	    if (re->u.twm_win == tmp_win) {
		if (rrp)
		    *rrp = rr;
		return re;
	    }
    }
    return 0;
}

void IconUp (tmp_win)
    TwmWindow   *tmp_win;
{
    int		x, y;
    int		defx, defy;
    struct RootRegion *rr;

    /*
     * If the client specified a particular location, let's use it (this might
     * want to be an option at some point).  Otherwise, try to fit within the
     * icon region.
     */
    if (tmp_win->wmhints && (tmp_win->wmhints->flags & IconPositionHint))
      return;

    if (tmp_win->icon_moved) {
	if (!XGetGeometry (dpy, tmp_win->icon_w, &JunkRoot, &defx, &defy,
			   &JunkWidth, &JunkHeight, &JunkBW, &JunkDepth))
	  return;

/* evenly spaced icon placement - djhjr - 4/24/99
	x = defx + ((int) JunkWidth) / 2;
	y = defy + ((int) JunkHeight) / 2;
*/
	x = defx;
	y = defy;

	for (rr = Scr->FirstIconRegion; rr; rr = rr->next) {
	    if (x >= rr->x && x < (rr->x + rr->w) &&
		y >= rr->y && y < (rr->y + rr->h))
	      break;
	}
	if (!rr) return;		/* outside icon regions, leave alone */
    }

    defx = -100;
    defy = -100;
    PlaceIcon(tmp_win, defx, defy, &x, &y);
    if (x != defx || y != defy) {
	XMoveWindow (dpy, tmp_win->icon_w, x, y);
	tmp_win->icon_moved = FALSE;	/* since we've restored it */
    }
}

void
IconDown (tmp_win)
    TwmWindow   *tmp_win;
{
    RegionEntry	*re;
    RootRegion	*rr;

    re = FindIconEntry (tmp_win, &rr);
    if (re)
        downRegionEntry(rr, re);
}

void
AddIconRegion(geom, grav1, grav2, stepx, stepy)
char *geom;
int grav1, grav2, stepx, stepy;
{
    RootRegion *rr;

    rr = AddRegion(geom, grav1, grav2, stepx, stepy);

    if (Scr->LastIconRegion)
        Scr->LastIconRegion->next = rr;
    Scr->LastIconRegion = rr;
    if (!Scr->FirstIconRegion)
        Scr->FirstIconRegion = rr;
}

#ifdef ORIGINAL_PIXMAPS
void CreateIconWindow(tmp_win, def_x, def_y)
TwmWindow *tmp_win;
int def_x, def_y;
{
    unsigned long event_mask;
    unsigned long valuemask;		/* mask for create windows */
    XSetWindowAttributes attributes;	/* attributes for create windows */
    Pixmap pm = None;			/* tmp pixmap variable */
    int final_x, final_y;
    int x;

	/* djhjr - 4/27/96 */
    GetColorFromList(Scr->IconBorderColorL, tmp_win->full_name, &tmp_win->class,
	&tmp_win->icon_border);
    GetColorFromList(Scr->IconForegroundL, tmp_win->full_name, &tmp_win->class,
	&tmp_win->iconc.fore);
    GetColorFromList(Scr->IconBackgroundL, tmp_win->full_name, &tmp_win->class,
	&tmp_win->iconc.back);

/* djhjr - 5/5/98
    if (Scr->use3Diconmanagers && !Scr->BeNiceToColormap) GetShadeColors(&tmp_win->iconc);
*/
	/* was 'Scr->use3Dicons' - djhjr - 8/11/98 */
	if (Scr->IconBevelWidth > 0 && !Scr->BeNiceToColormap) GetShadeColors(&tmp_win->iconc);

    FB(tmp_win->iconc.fore, tmp_win->iconc.back);

    tmp_win->forced = FALSE;
    tmp_win->icon_not_ours = FALSE;

    /* now go through the steps to get an icon window,  if ForceIcon is 
     * set, then no matter what else is defined, the bitmap from the
     * .twmrc file is used
     */
    if (Scr->ForceIcon)
    {
	char *icon_name;
	Pixmap bm;

	icon_name = LookInNameList(Scr->IconNames, tmp_win->full_name);
        if (icon_name == NULL)
	    icon_name = LookInList(Scr->IconNames, tmp_win->full_name,
				   &tmp_win->class);

	bm = None;
	if (icon_name != NULL)
	{
	    if ((bm = (Pixmap)LookInNameList(Scr->Icons, icon_name)) == None)
	    {
		if ((bm = GetBitmap (icon_name)) != None)
		    /* added 'type' argument - djhjr - 10/20/01 */
		    AddToList(&Scr->Icons, icon_name, LTYPE_EXACT_NAME,
		    		(char *)bm);
	    }
	}

	if (bm != None)
	{
	    XGetGeometry(dpy, bm, &JunkRoot, &JunkX, &JunkY,
		(unsigned int *) &tmp_win->icon_width, (unsigned int *)&tmp_win->icon_height,
		&JunkBW, &JunkDepth);

	    pm = XCreatePixmap(dpy, Scr->Root, tmp_win->icon_width,
		tmp_win->icon_height, Scr->d_depth);

	    /* the copy plane works on color ! */
	    XCopyPlane(dpy, bm, pm, Scr->NormalGC,
		0,0, tmp_win->icon_width, tmp_win->icon_height, 0, 0, 1 );

	    tmp_win->forced = TRUE;
	}
    }

    /* if the pixmap is still NULL, we didn't get one from the above code,
     * that could mean that ForceIcon was not set, or that the window
     * was not in the Icons list, now check the WM hints for an icon
     */
    if (pm == None && tmp_win->wmhints &&
	tmp_win->wmhints->flags & IconPixmapHint)
    {
    
	XGetGeometry(dpy,   tmp_win->wmhints->icon_pixmap,
             &JunkRoot, &JunkX, &JunkY,
	     (unsigned int *)&tmp_win->icon_width, (unsigned int *)&tmp_win->icon_height, &JunkBW, &JunkDepth);

	pm = XCreatePixmap(dpy, Scr->Root,
			   tmp_win->icon_width, tmp_win->icon_height,
			   Scr->d_depth);

	XCopyPlane(dpy, tmp_win->wmhints->icon_pixmap, pm, Scr->NormalGC,
	    0,0, tmp_win->icon_width, tmp_win->icon_height, 0, 0, 1 );
    }

    /* if we still haven't got an icon, let's look in the Icon list 
     * if ForceIcon is not set
     */
    if (pm == None && !Scr->ForceIcon)
    {
	char *icon_name;
	Pixmap bm;

	icon_name = LookInNameList(Scr->IconNames, tmp_win->full_name);
        if (icon_name == NULL)
	    icon_name = LookInList(Scr->IconNames, tmp_win->full_name,
				   &tmp_win->class);

	bm = None;
	if (icon_name != NULL)
	{
	    if ((bm = (Pixmap)LookInNameList(Scr->Icons, icon_name)) == None)
	    {
		if ((bm = GetBitmap (icon_name)) != None)
		    /* added 'type' argument - djhjr - 10/20/01 */
		    AddToList(&Scr->Icons, icon_name, LTYPE_EXACT_NAME,
		    		(char *)bm);
	    }
	}

	if (bm != None)
	{
	    XGetGeometry(dpy, bm, &JunkRoot, &JunkX, &JunkY,
		(unsigned int *)&tmp_win->icon_width, (unsigned int *)&tmp_win->icon_height,
		&JunkBW, &JunkDepth);

	    pm = XCreatePixmap(dpy, Scr->Root, tmp_win->icon_width,
		tmp_win->icon_height, Scr->d_depth);

	    /* the copy plane works on color ! */
	    XCopyPlane(dpy, bm, pm, Scr->NormalGC,
		0,0, tmp_win->icon_width, tmp_win->icon_height, 0, 0, 1 );
	}
    }

    /* if we still don't have an icon, assign the UnknownIcon */

    if (pm == None && Scr->UnknownPm != None)
    {
	tmp_win->icon_width = Scr->UnknownWidth;
	tmp_win->icon_height = Scr->UnknownHeight;

	pm = XCreatePixmap(dpy, Scr->Root, tmp_win->icon_width,
	    tmp_win->icon_height, Scr->d_depth);

	/* the copy plane works on color ! */
	XCopyPlane(dpy, Scr->UnknownPm, pm, Scr->NormalGC,
	    0,0, tmp_win->icon_width, tmp_win->icon_height, 0, 0, 1 );
    }

    if (pm == None)
    {
	tmp_win->icon_height = 0;
	tmp_win->icon_width = 0;
	valuemask = 0;
    }
    else
    {
	/* added pixel specs - djhjr - 12/28/98 */
	valuemask = CWBackPixmap | CWBackPixel;
	attributes.background_pixmap = pm;
	attributes.background_pixel = tmp_win->iconc.fore;
    }

/* djhjr - 9/14/03 */
#ifndef NO_I18N_SUPPORT
    tmp_win->icon_w_width = MyFont_TextWidth(&Scr->IconFont,
#else
    tmp_win->icon_w_width = XTextWidth(Scr->IconFont.font,
#endif
	tmp_win->icon_name, strlen(tmp_win->icon_name));

/* djhjr - 6/11/96
    tmp_win->icon_w_width += 6;
    if (tmp_win->icon_w_width < tmp_win->icon_width)
    {
		tmp_win->icon_x = (tmp_win->icon_width - tmp_win->icon_w_width)/2;
		tmp_win->icon_x += 3;
		tmp_win->icon_w_width = tmp_win->icon_width;
    }
    else
	{
		tmp_win->icon_x = 3;
	}
*/
    tmp_win->icon_w_width += 8;
    if (tmp_win->icon_w_width < tmp_win->icon_width + 8)
    {
		tmp_win->icon_x = (((tmp_win->icon_width + 8) - tmp_win->icon_w_width)/2) + 4;
		tmp_win->icon_w_width = tmp_win->icon_width + 8;
    }
    else
		tmp_win->icon_x = 4;

/* djhjr - 6/11/96
    tmp_win->icon_y = tmp_win->icon_height + Scr->IconFont.height;
*/
    tmp_win->icon_y = tmp_win->icon_height + Scr->IconFont.height + 2;

/* djhjr - 4/27/96
    tmp_win->icon_w_height = tmp_win->icon_height + Scr->IconFont.height + 4;
*/
/* djhjr - 6/11/96
    tmp_win->icon_w_height = tmp_win->icon_height + Scr->IconFont.height + 6;
*/
    tmp_win->icon_w_height = tmp_win->icon_height + Scr->IconFont.height + 8;

    event_mask = 0;
    if (tmp_win->wmhints && tmp_win->wmhints->flags & IconWindowHint)
    {
	tmp_win->icon_w = tmp_win->wmhints->icon_window;
	if (tmp_win->forced ||
	    XGetGeometry(dpy, tmp_win->icon_w, &JunkRoot, &JunkX, &JunkY,
		     (unsigned int *)&tmp_win->icon_w_width, (unsigned int *)&tmp_win->icon_w_height,
		     &JunkBW, &JunkDepth) == 0)
	{
	    tmp_win->icon_w = None;
	    tmp_win->wmhints->flags &= ~IconWindowHint;
	}
	else
	{
	    tmp_win->icon_not_ours = TRUE;
	    event_mask = EnterWindowMask | LeaveWindowMask;
	}
    }
    else
    {
	tmp_win->icon_w = None;
    }

	/* djhjr - 5/5/98 */
	/* was 'Scr->use3Dicons' and 'Scr->BorderBevelWidth' - djhjr - 8/11/98 */
	if (Scr->IconBevelWidth > 0)
	{
		tmp_win->icon_w_width += 2 * Scr->IconBevelWidth;
		tmp_win->icon_w_height += 2 * Scr->IconBevelWidth;

		tmp_win->icon_x += Scr->IconBevelWidth;
		tmp_win->icon_y += Scr->IconBevelWidth;
	}

    if (tmp_win->icon_w == None)
    {
	tmp_win->icon_w = XCreateSimpleWindow(dpy, Scr->Root,
	    0,0,
	    tmp_win->icon_w_width, tmp_win->icon_w_height,
	    Scr->IconBorderWidth, tmp_win->icon_border, tmp_win->iconc.back);
	event_mask = ExposureMask;
    }

    XSelectInput (dpy, tmp_win->icon_w,
		  KeyPressMask | ButtonPressMask | ButtonReleaseMask |
		  event_mask);

    tmp_win->icon_bm_w = None;
    if (pm != None &&
	(! (tmp_win->wmhints && tmp_win->wmhints->flags & IconWindowHint)))
    {
	int y;

/* djhjr - 6/11/96
	y = 0;
*/
	y = 4;

	if (tmp_win->icon_w_width == tmp_win->icon_width)
	    x = 0;
	else
	    x = (tmp_win->icon_w_width - tmp_win->icon_width)/2;

	/* djhjr - 5/5/98 */
	/* was 'Scr->use3Dicons' and 'Scr->BorderBevelWidth' - djhjr - 8/11/98 */
	if (Scr->IconBevelWidth > 0)
		y += Scr->IconBevelWidth;

	tmp_win->icon_bm_w = XCreateWindow (dpy, tmp_win->icon_w, x, y,
					    (unsigned int)tmp_win->icon_width,
					    (unsigned int)tmp_win->icon_height,
					    (unsigned int) 0, Scr->d_depth,
					    (unsigned int) CopyFromParent,
					    Scr->d_visual, valuemask,
					    &attributes);
    }

    /* I need to figure out where to put the icon window now, because 
     * getting here means that I am going to make the icon visible
     */
    if (tmp_win->wmhints &&
	tmp_win->wmhints->flags & IconPositionHint)
    {
	final_x = tmp_win->wmhints->icon_x;
	final_y = tmp_win->wmhints->icon_y;
    }
    else
    {
	PlaceIcon(tmp_win, def_x, def_y, &final_x, &final_y);
    }

    if (final_x > Scr->MyDisplayWidth)
	final_x = Scr->MyDisplayWidth - tmp_win->icon_w_width -
	    (2 * Scr->IconBorderWidth);

    if (final_y > Scr->MyDisplayHeight)
	final_y = Scr->MyDisplayHeight - tmp_win->icon_height -
	    Scr->IconFont.height - 4 - (2 * Scr->IconBorderWidth);

    XMoveWindow(dpy, tmp_win->icon_w, final_x, final_y);
    tmp_win->iconified = TRUE;

    XMapSubwindows(dpy, tmp_win->icon_w);
    XSaveContext(dpy, tmp_win->icon_w, TwmContext, (caddr_t)tmp_win);
    XSaveContext(dpy, tmp_win->icon_w, ScreenContext, (caddr_t)Scr);
    XDefineCursor(dpy, tmp_win->icon_w, Scr->IconCursor);
    if (pm) XFreePixmap (dpy, pm);
    return;
}
#else /* ORIGINAL_PIXMAPS */
/*
 * to help clean up CreateIconWindow() below - djhjr - 8/13/98
 * added background color and XPM indicator - djhjr - 12/28/98
 */
Image *
GetIconImage(name, background, numcolors)
char *name;
Pixel background;
unsigned int *numcolors;
{
    Image *iconimage;
	GC gc;
    Pixmap bm;
    int bitmap_height, bitmap_width;

	iconimage = (Image *)LookInNameList(Scr->Icons, name);
	if (iconimage == NULL)
	{
		bm = FindBitmap(name, &bitmap_width, &bitmap_height);
		if (bm != None)
		{
			iconimage = (Image *)malloc(sizeof(Image));
			iconimage->mask = None;
			iconimage->height = bitmap_height;
			iconimage->width = bitmap_width;
			iconimage->pixmap = XCreatePixmap(dpy, Scr->Root, bitmap_width,
					bitmap_height, Scr->d_depth);
	    
			XGetGeometry(dpy, bm,
					&JunkRoot, &JunkX, &JunkY,
					&JunkWidth, &JunkHeight, &JunkBW, &JunkDepth);

			/*
			 * XCopyArea() seems to be necessary for some apps that change
			 * their icons - djhjr - rem'd 8/23/98, re-instated 11/15/98
			 */
			if (JunkDepth == Scr->d_depth) 
				XCopyArea(dpy, bm, iconimage->pixmap,
						Scr->NormalGC, 0, 0, iconimage->width, iconimage->height,
						0, 0);
			else
				XCopyPlane(dpy, bm, iconimage->pixmap,
						Scr->NormalGC, 0, 0, iconimage->width, iconimage->height,
						0, 0, 1);

			iconimage->mask = XCreatePixmap(dpy, Scr->Root,
					iconimage->width, iconimage->height, 1);
			if (iconimage->mask)
			{
				gc = XCreateGC(dpy, iconimage->mask, 0, NULL);
				if (gc)
				{
					XCopyArea(dpy, bm, iconimage->mask,
							gc, 0, 0, iconimage->width, iconimage->height, 0, 0);
					XFreeGC (dpy, gc);
				}
			}

			XFreePixmap(dpy, bm);
		}
#ifndef NO_XPM_SUPPORT
		else
		{
			/* added color argument - djhjr - 9/28/99 */
			iconimage = FindImage(name, background);
		}
#endif

		if (iconimage != NULL)
			/* added 'type' argument - djhjr - 10/20/01 */
			AddToList(&Scr->Icons, name, LTYPE_EXACT_NAME,
					(char *)iconimage);
	}

	/* djhjr - 12/28/98 */
	*numcolors = 0;
#ifndef NO_XPM_SUPPORT
	if (iconimage != NULL)
		*numcolors = SetPixmapsBackground(iconimage, Scr->Root, background);
#endif

	return (iconimage);
}

/*
 * Submitted by Jason Gloudon
 */
void
CreateIconWindow(tmp_win, def_x, def_y)
TwmWindow *tmp_win;
int def_x, def_y;
{
    unsigned long event_mask;
    unsigned long valuemask;		/* mask for create windows */
    XSetWindowAttributes attributes;	/* attributes for create windows */
    Pixmap pm;				/* tmp pixmap variable */
    Image *iconimage;
    char *icon_name;
    int x, final_x, final_y;
	unsigned int pm_numcolors = 0; /* djhjr - 12/28/98 */

	/* djhjr - 4/27/96 */
    GetColorFromList(Scr->IconBorderColorL, tmp_win->full_name, &tmp_win->class,
	&tmp_win->icon_border);
    GetColorFromList(Scr->IconForegroundL, tmp_win->full_name, &tmp_win->class,
	&tmp_win->iconc.fore);
    GetColorFromList(Scr->IconBackgroundL, tmp_win->full_name, &tmp_win->class,
	&tmp_win->iconc.back);

/* djhjr - 5/5/98
    if (Scr->use3Diconmanagers && !Scr->BeNiceToColormap) GetShadeColors(&tmp_win->iconc);
*/
	/* was 'Scr->use3Dicons' - djhjr - 8/11/98 */
	if (Scr->IconBevelWidth > 0 && !Scr->BeNiceToColormap) GetShadeColors(&tmp_win->iconc);

    FB(tmp_win->iconc.fore, tmp_win->iconc.back);

    tmp_win->forced = FALSE;
    tmp_win->icon_not_ours = FALSE;
    iconimage = NULL;
    pm = None;

    /*
     * now go through the steps to get an icon window,  if ForceIcon is 
     * set, then no matter what else is defined, the bitmap from the
     * .vtwmrc file is used
     */
	if (Scr->ForceIcon)
	{
		icon_name = LookInNameList(Scr->IconNames, tmp_win->full_name);
		if (icon_name == NULL)
			icon_name = LookInList(Scr->IconNames, tmp_win->full_name,
					&tmp_win->class);

		if (icon_name != NULL)
			/* added background and XPM indicator - djhjr - 12/28/98 */
			iconimage = GetIconImage(icon_name, tmp_win->iconc.back,
					&pm_numcolors);
      
		if (iconimage != NULL)
		{
			tmp_win->icon_width = iconimage->width;
			tmp_win->icon_height = iconimage->height;

			pm = iconimage->pixmap;
			tmp_win->forced = TRUE;
		}
	}

	/*
	 * if the pixmap is still NULL, we didn't get one from the above code,
	 * that could mean that ForceIcon was not set, or that the window
	 * was not in the Icons list, now check the WM hints for an icon
	 */
	if (pm == None && tmp_win->wmhints &&
			tmp_win->wmhints->flags & IconPixmapHint)
	{
/* djhjr - 8/14/98
		XGetGeometry(dpy, tmp_win->wmhints->icon_pixmap,
				&JunkRoot, &JunkX, &JunkY,
				(unsigned int *)&tmp_win->icon_width,
				(unsigned int *)&tmp_win->icon_height, &JunkBW, &JunkDepth);
      
		pm = XCreatePixmap(dpy, Scr->Root,
				tmp_win->icon_width, tmp_win->icon_height,
				Scr->d_depth);
      
		XCopyPlane(dpy, tmp_win->wmhints->icon_pixmap, pm, Scr->NormalGC,
				0,0, tmp_win->icon_width, tmp_win->icon_height, 0, 0, 1 );

		XFreePixmap(dpy, pm);
*/
		XGetGeometry(dpy, tmp_win->wmhints->icon_pixmap,
				&JunkRoot, &JunkX, &JunkY,
				&JunkWidth, &JunkHeight, &JunkBW, &JunkDepth);

		pm_numcolors = 3; /* Submitted by Caveh Frank Jalali */

		iconimage = (Image*)malloc(sizeof(Image));
		iconimage->mask = None;
		iconimage->width = JunkWidth;
		iconimage->height = JunkHeight;
		iconimage->pixmap = XCreatePixmap(dpy, Scr->Root, iconimage->width,
				iconimage->height, Scr->d_depth);

		if (JunkDepth == Scr->d_depth) 
			XCopyArea(dpy, tmp_win->wmhints->icon_pixmap, iconimage->pixmap,
					Scr->NormalGC, 0, 0, iconimage->width, iconimage->height,
					0, 0);
		else
			XCopyPlane(dpy, tmp_win->wmhints->icon_pixmap, iconimage->pixmap,
					Scr->NormalGC, 0, 0, iconimage->width, iconimage->height,
					0, 0, 1);

		if ((tmp_win->wmhints->flags & IconMaskHint) &&
				XGetGeometry(dpy, tmp_win->wmhints->icon_mask,
						&JunkRoot, &JunkX, &JunkY, &JunkWidth, &JunkHeight,
						&JunkBW, &JunkDepth) &&
				JunkDepth == 1)
		{
			GC gc;

			iconimage->mask = XCreatePixmap(dpy, Scr->Root,
					JunkWidth, JunkHeight, 1);
			if (iconimage->mask)
			{
				gc = XCreateGC(dpy, iconimage->mask, 0, NULL);
				if (gc)
				{
					XCopyArea(dpy, tmp_win->wmhints->icon_mask, iconimage->mask,
							gc, 0, 0, JunkWidth, JunkHeight, 0, 0);
					XFreeGC (dpy, gc);
				}
			}
		}

		if (iconimage != NULL)
		{
			tmp_win->icon_width = iconimage->width;
			tmp_win->icon_height = iconimage->height;

			pm = iconimage->pixmap;
		}
	}
	
	/*
	 * if we still haven't got an icon, let's look in the Icon list 
	 * if ForceIcon is not set
	 */
	if (pm == None && !Scr->ForceIcon)
	{
		icon_name = LookInNameList(Scr->IconNames, tmp_win->full_name);
		if (icon_name == NULL)
			icon_name = LookInList(Scr->IconNames, tmp_win->full_name,
					&tmp_win->class);

		if (icon_name != NULL)
			/* added background and XPM indicator - djhjr - 12/28/98 */
			iconimage = GetIconImage(icon_name, tmp_win->iconc.back,
					&pm_numcolors);

		if (iconimage != NULL)
		{
			tmp_win->icon_width = iconimage->width;
			tmp_win->icon_height = iconimage->height;

			pm = iconimage->pixmap;
		}
	}
    
	/*
	 * if we still don't have an icon, assign the UnknownIcon
	 */
/* djhjr - 8/13/98
	if (pm == None && Scr->UnknownPm != None)
	{
		tmp_win->icon_width = Scr->UnknownWidth;
		tmp_win->icon_height = Scr->UnknownHeight;

		pm = XCreatePixmap(dpy, Scr->Root, tmp_win->icon_width,
				tmp_win->icon_height, Scr->d_depth);

		* the copy plane works on color ! *
		XCopyPlane(dpy, Scr->UnknownPm, pm, Scr->NormalGC,
				0,0, tmp_win->icon_width, tmp_win->icon_height, 0, 0, 1 );

		XFreePixmap(dpy, pm);
	}
*/
	if (pm == None && Scr->unknownName != NULL)
	{
		/* added background and XPM indicator - djhjr - 12/28/98 */
		iconimage = GetIconImage(Scr->unknownName, tmp_win->iconc.back,
				&pm_numcolors);

		if (iconimage != NULL)
		{
			tmp_win->icon_width = iconimage->width;
			tmp_win->icon_height = iconimage->height;
	
			pm = iconimage->pixmap;
		}
	}

    if (pm == None)
    {
	tmp_win->icon_height = 0;
	tmp_win->icon_width = 0;
	valuemask = 0;
    }
    else
    {
	valuemask = CWBackPixmap;
	attributes.background_pixmap = pm;

		/* djhjr - 12/28/98 */
		if (pm_numcolors <= 2) /* not a pixmap */
		{
			valuemask |= CWBackPixel;
			attributes.background_pixel = tmp_win->iconc.fore;
		}
    }

/* djhjr - 9/14/03 */
#ifndef NO_I18N_SUPPORT
    tmp_win->icon_w_width = MyFont_TextWidth(&Scr->IconFont,
#else
    tmp_win->icon_w_width = XTextWidth(Scr->IconFont.font,
#endif
				       tmp_win->icon_name, strlen(tmp_win->icon_name));

/* djhjr - 6/11/96
    tmp_win->icon_w_width += 6;
    if (tmp_win->icon_w_width < tmp_win->icon_width)
    {
		tmp_win->icon_x = (tmp_win->icon_width - tmp_win->icon_w_width)/2;
		tmp_win->icon_x += 3;
		tmp_win->icon_w_width = tmp_win->icon_width;
    }
    else
    {
    tmp_win->icon_x = 3;
    }
*/
    tmp_win->icon_w_width += 8;
    if (tmp_win->icon_w_width < tmp_win->icon_width + 8)
    {
		tmp_win->icon_x = (((tmp_win->icon_width + 8) - tmp_win->icon_w_width)/2) + 4;
		tmp_win->icon_w_width = tmp_win->icon_width + 8;
    }
    else
		tmp_win->icon_x = 4;

/* djhjr - 6/11/96
    tmp_win->icon_y = tmp_win->icon_height + Scr->IconFont.height;
*/
    tmp_win->icon_y = tmp_win->icon_height + Scr->IconFont.height + 2;

/* djhjr - 4/27/96
    tmp_win->icon_w_height = tmp_win->icon_height + Scr->IconFont.height + 4;
*/
/* djhjr - 6/11/96
    tmp_win->icon_w_height = tmp_win->icon_height + Scr->IconFont.height + 6;
*/
    tmp_win->icon_w_height = tmp_win->icon_height + Scr->IconFont.height + 8;

    event_mask = 0;
    if (tmp_win->wmhints && tmp_win->wmhints->flags & IconWindowHint)
    {
	tmp_win->icon_w = tmp_win->wmhints->icon_window;
	if (tmp_win->forced ||
	    XGetGeometry(dpy, tmp_win->icon_w, &JunkRoot, &JunkX, &JunkY,
		     (unsigned int *)&tmp_win->icon_w_width, (unsigned int *)&tmp_win->icon_w_height,
		     &JunkBW, &JunkDepth) == 0)
	{
	    tmp_win->icon_w = None;
	    tmp_win->wmhints->flags &= ~IconWindowHint;
	}
	else
	{
	    tmp_win->icon_not_ours = TRUE;
	    event_mask = EnterWindowMask | LeaveWindowMask;
	}
    }
    else
    {
	tmp_win->icon_w = None;
    }

	/* djhjr - 5/5/98 */
	/* was 'Scr->use3Dicons' and 'Scr->BorderBevelWidth' - djhjr - 8/11/98 */
	if (Scr->IconBevelWidth > 0)
	{
		tmp_win->icon_w_width += 2 * Scr->IconBevelWidth;
		tmp_win->icon_w_height += 2 * Scr->IconBevelWidth;

		tmp_win->icon_x += Scr->IconBevelWidth;
		tmp_win->icon_y += Scr->IconBevelWidth;
	}

    if (tmp_win->icon_w == None)
    {
	tmp_win->icon_w = XCreateSimpleWindow(dpy, Scr->Root,
	    0,0,
	    tmp_win->icon_w_width, tmp_win->icon_w_height,
	    Scr->IconBorderWidth, tmp_win->icon_border, tmp_win->iconc.back);
	event_mask = ExposureMask;
    }

    XSelectInput (dpy, tmp_win->icon_w,
		  KeyPressMask | ButtonPressMask | ButtonReleaseMask |
		  event_mask);

    tmp_win->icon_bm_w = None;
    if (pm != None &&
	(! (tmp_win->wmhints && tmp_win->wmhints->flags & IconWindowHint)))
    {
	int y;

/* djhjr - 6/11/96
	y = 0;
*/
	y = 4;

	if (tmp_win->icon_w_width == tmp_win->icon_width)
	    x = 0;
	else
	    x = (tmp_win->icon_w_width - tmp_win->icon_width)/2;

	/* djhjr - 5/5/98 */
	/* was 'Scr->use3Dicons' and 'Scr->BorderBevelWidth' - djhjr - 8/11/98 */
	if (Scr->IconBevelWidth > 0)
		y += Scr->IconBevelWidth;

	tmp_win->icon_bm_w = XCreateWindow (dpy, tmp_win->icon_w, x, y,
					    (unsigned int)tmp_win->icon_width,
					    (unsigned int)tmp_win->icon_height,
					    (unsigned int) 0, Scr->d_depth,
					    (unsigned int) CopyFromParent,
					    Scr->d_visual, valuemask,
					    &attributes);

    if (HasShape)
		if (iconimage != NULL && iconimage->mask != None)
			XShapeCombineMask(dpy,tmp_win->icon_bm_w , ShapeBounding, 0, 0,
					iconimage->mask, ShapeSet);
    }

    /* I need to figure out where to put the icon window now, because 
     * getting here means that I am going to make the icon visible
     */
    if (tmp_win->wmhints &&
	tmp_win->wmhints->flags & IconPositionHint)
    {
	final_x = tmp_win->wmhints->icon_x;
	final_y = tmp_win->wmhints->icon_y;
    }
    else
    {
	PlaceIcon(tmp_win, def_x, def_y, &final_x, &final_y);
    }

    if (final_x > Scr->MyDisplayWidth)
	final_x = Scr->MyDisplayWidth - tmp_win->icon_w_width -
	    (2 * Scr->IconBorderWidth);

    if (final_y > Scr->MyDisplayHeight)
	final_y = Scr->MyDisplayHeight - tmp_win->icon_height -
	    Scr->IconFont.height - 4 - (2 * Scr->IconBorderWidth);

    XMoveWindow(dpy, tmp_win->icon_w, final_x, final_y);
    tmp_win->iconified = TRUE;

    XMapSubwindows(dpy, tmp_win->icon_w);
    XSaveContext(dpy, tmp_win->icon_w, TwmContext, (caddr_t)tmp_win);
    XSaveContext(dpy, tmp_win->icon_w, ScreenContext, (caddr_t)Scr);
    XDefineCursor(dpy, tmp_win->icon_w, Scr->IconCursor);

    return;
}
#endif /* ORIGINAL_PIXMAPS */