/*
/*
 * Dynamic Windows:
 *          A GTK like implementation of the Win32 GUI
 *
 * (C) 2000-2003 Brian Smith <dbsoft@technologist.com>
 * (C) 2003 Mark Hessling <m.hessling@qut.edu.au>
 *
 */
#define _WIN32_IE 0x0500
#define WINVER 0x400
#include <windows.h>
#include <windowsx.h>
#include <commctrl.h>
#include <shlwapi.h>
#include <shlobj.h>
#include <stdlib.h>
#include <string.h>
#include <stdio.h>
#include <process.h>
#include <time.h>
#include "dw.h"

HWND popup = (HWND)NULL, hwndBubble = (HWND)NULL, hwndBubbleLast, DW_HWND_OBJECT = (HWND)NULL;

HINSTANCE DWInstance = NULL;

DWORD dwVersion = 0, dwComctlVer = 0;
DWTID _dwtid = -1;

#define PACKVERSION(major,minor) MAKELONG(minor,major)

#define IS_IE5PLUS (dwComctlVer >= PACKVERSION(5,80))

#ifndef MIN
#define MIN(a, b) (((a) < (b)) ? (a) : (b))
#endif

int main(int argc, char *argv[]);

#define ICON_INDEX_LIMIT 200
HICON lookup[200];
HIMAGELIST hSmall  = 0, hLarge = 0;

/* Special flag used for internal tracking */
#define DW_CFA_RESERVED (1 << 30)

#define THREAD_LIMIT 128
COLORREF _foreground[THREAD_LIMIT];
COLORREF _background[THREAD_LIMIT];
HPEN _hPen[THREAD_LIMIT];
HBRUSH _hBrush[THREAD_LIMIT];

BYTE _red[] = { 	0x00, 0xbb, 0x00, 0xaa, 0x00, 0xbb, 0x00, 0xaa, 0x77,
			  0xff, 0x00, 0xee, 0x00, 0xff, 0x00, 0xff, 0xaa, 0x00 };
BYTE _green[] = {	0x00, 0x00, 0xbb, 0xaa, 0x00, 0x00, 0xbb, 0xaa, 0x77,
			  0x00, 0xff, 0xee, 0x00, 0x00, 0xee, 0xff, 0xaa, 0x00 };
BYTE _blue[] = { 	0x00, 0x00, 0x00, 0x00, 0xcc, 0xbb, 0xbb, 0xaa, 0x77,
		      0x00, 0x00, 0x00, 0xff, 0xff, 0xee, 0xff, 0xaa, 0x00};

HBRUSH _colors[18];


void _resize_notebook_page(HWND handle, int pageid);
void _handle_splitbar_resize(HWND hwnd, float percent, int type, int x, int y);
int _lookup_icon(HWND handle, HICON hicon, int type);
HFONT _acquire_font(HWND handle, char *fontname);

typedef struct _sighandler
{
	struct _sighandler	*next;
	ULONG message;
	HWND window;
	int id;
	void *signalfunction;
	void *data;

} SignalHandler;

SignalHandler *Root = NULL;
int _index;

typedef struct
{
	ULONG message;
	char name[30];

} SignalList;

static int in_checkbox_handler = 0;

/* List of signals and their equivilent Win32 message */
#define SIGNALMAX 15

SignalList SignalTranslate[SIGNALMAX] = {
	{ WM_SIZE,        DW_SIGNAL_CONFIGURE },
	{ WM_CHAR,        DW_SIGNAL_KEY_PRESS },
	{ WM_LBUTTONDOWN, DW_SIGNAL_BUTTON_PRESS },
	{ WM_LBUTTONUP,   DW_SIGNAL_BUTTON_PRESS },
	{ WM_MOUSEMOVE,   DW_SIGNAL_MOTION_NOTIFY },
	{ WM_CLOSE,       DW_SIGNAL_DELETE },
	{ WM_PAINT,       DW_SIGNAL_EXPOSE },
	{ WM_COMMAND,     DW_SIGNAL_CLICKED },
	{ NM_DBLCLK,      DW_SIGNAL_ITEM_ENTER },
	{ NM_RCLICK,      DW_SIGNAL_ITEM_CONTEXT },
	{ LBN_SELCHANGE,  DW_SIGNAL_LIST_SELECT },
	{ TVN_SELCHANGED, DW_SIGNAL_ITEM_SELECT },
	{ WM_SETFOCUS,    DW_SIGNAL_SET_FOCUS },
	{ WM_VSCROLL,     DW_SIGNAL_VALUE_CHANGED },
	{ TCN_SELCHANGE,  DW_SIGNAL_SWITCH_PAGE }
};

#ifdef BUILD_DLL
void Win32_Set_Instance(HINSTANCE hInstance)
{
	DWInstance = hInstance;
}
#else
char **_convertargs(int *count, char *start)
{
	char *tmp, *argstart, **argv;
	int loc = 0, inquotes = 0;

	(*count) = 1;

	tmp = start;

	/* Count the number of entries */
	if(*start)
	{
		(*count)++;

		while(*tmp)
		{
			if(*tmp == '"' && inquotes)
				inquotes = 0;
			else if(*tmp == '"' && !inquotes)
				inquotes = 1;
			else if(*tmp == ' ' && !inquotes)
			{
				/* Push past any white space */
				while(*(tmp+1) == ' ')
					tmp++;
				/* If we aren't at the end of the command
				 * line increment the count.
				 */
				if(*(tmp+1))
					(*count)++;
			}
			tmp++;
		}
	}

	argv = (char **)malloc(sizeof(char *) * ((*count)+1));
	argv[0] = malloc(260);
	GetModuleFileName(DWInstance, argv[0], 260);

	argstart = tmp = start;

	if(*start)
	{
		loc = 1;

		while(*tmp)
		{
			if(*tmp == '"' && inquotes)
			{
				*tmp = 0;
				inquotes = 0;
			}
			else if(*tmp == '"' && !inquotes)
			{
				argstart = tmp+1;
				inquotes = 1;
			}
			else if(*tmp == ' ' && !inquotes)
			{
				*tmp = 0;
				argv[loc] = strdup(argstart);

				/* Push past any white space */
				while(*(tmp+1) == ' ')
					tmp++;

				/* Move the start pointer */
				argstart = tmp+1;

				/* If we aren't at the end of the command
				 * line increment the count.
				 */
				if(*(tmp+1))
					loc++;
			}
			tmp++;
		}
		if(*argstart)
			argv[loc] = strdup(argstart);
	}
	argv[loc+1] = NULL;
	return argv;
}

/* Ok this is a really big hack but what the hell ;) */
int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, LPSTR lpCmdLine, int nCmdShow)
{
	char **argv;
    int argc;

	DWInstance = hInstance;

	argv = _convertargs(&argc, lpCmdLine);

	return main(argc, argv);
}
#endif

/* This should return true for WinNT/2K/XP and false on Win9x */
int IsWinNT(void)
{
	static int isnt = -1;

	if(isnt == -1)
	{
		if (GetVersion() < 0x80000000)
			isnt = 1;
		else
			isnt = 0;
	}
	return isnt;
}

DWORD GetDllVersion(LPCTSTR lpszDllName)
{

	HINSTANCE hinstDll;
	DWORD dwVersion = 0;

	hinstDll = LoadLibrary(lpszDllName);

	if(hinstDll)
	{
		DLLGETVERSIONPROC pDllGetVersion;

		pDllGetVersion = (DLLGETVERSIONPROC) GetProcAddress(hinstDll, "DllGetVersion");

		/* Because some DLLs might not implement this function, you
		 * must test for it explicitly. Depending on the particular
		 * DLL, the lack of a DllGetVersion function can be a useful
		 * indicator of the version.
		 */
		if(pDllGetVersion)
		{
			DLLVERSIONINFO dvi;
			HRESULT hr;

			ZeroMemory(&dvi, sizeof(dvi));
			dvi.cbSize = sizeof(dvi);

            hr = (*pDllGetVersion)(&dvi);

			if(SUCCEEDED(hr))
			{
				dwVersion = PACKVERSION(dvi.dwMajorVersion, dvi.dwMinorVersion);
			}
		}

		FreeLibrary(hinstDll);
	}
    return dwVersion;
}

/* This function adds a signal handler callback into the linked list.
 */
void _new_signal(ULONG message, HWND window, int id, void *signalfunction, void *data)
{
	SignalHandler *new = malloc(sizeof(SignalHandler));

	if(message == WM_COMMAND)
		dw_signal_disconnect_by_window(window);

	new->message = message;
	new->window = window;
	new->id = id;
	new->signalfunction = signalfunction;
	new->data = data;
	new->next = NULL;

	if (!Root)
		Root = new;
	else
	{
		SignalHandler *prev = NULL, *tmp = Root;
		while(tmp)
		{
			if(tmp->message == message &&
			   tmp->window == window &&
			   tmp->signalfunction == signalfunction)
			{
				tmp->data = data;
				free(new);
				return;
			}
			prev = tmp;
			tmp = tmp->next;
		}
		if(prev)
			prev->next = new;
		else
			Root = new;
	}
}

/* Finds the message number for a given signal name */
ULONG _findsigmessage(char *signame)
{
	int z;

	for(z=0;z<SIGNALMAX;z++)
	{
		if(stricmp(signame, SignalTranslate[z].name) == 0)
			return SignalTranslate[z].message;
	}
	return 0L;
}

/* This function removes and handlers on windows and frees
 * the user memory allocated to it.
 */
BOOL CALLBACK _free_window_memory(HWND handle, LPARAM lParam)
{
	ColorInfo *thiscinfo = (ColorInfo *)GetWindowLongPtr(handle, GWLP_USERDATA);
	HFONT oldfont = (HFONT)SendMessage(handle, WM_GETFONT, 0, 0);
	HICON oldicon = (HICON)SendMessage(handle, WM_GETICON, 0, 0);
	char tmpbuf[100];

	/* Delete font, icon and bitmap GDI objects in use */
	if(oldfont)
		DeleteObject(oldfont);
	if(oldicon)
		DeleteObject(oldicon);

	GetClassName(handle, tmpbuf, 99);

	if(strnicmp(tmpbuf, STATICCLASSNAME, strlen(STATICCLASSNAME)+1)==0)
	{
		HBITMAP oldbitmap = (HBITMAP)SendMessage(handle, STM_GETIMAGE, IMAGE_BITMAP, 0);

		if(oldbitmap)
			DeleteObject(oldbitmap);
	}
	if(strnicmp(tmpbuf, BUTTONCLASSNAME, strlen(BUTTONCLASSNAME)+1)==0)
	{
		HBITMAP oldbitmap = (HBITMAP)SendMessage(handle, BM_GETIMAGE, IMAGE_BITMAP, 0);

		if(oldbitmap)
			DeleteObject(oldbitmap);
	}
	else if(strnicmp(tmpbuf, FRAMECLASSNAME, strlen(FRAMECLASSNAME)+1)==0)
	{
		Box *box = (Box *)thiscinfo;

		if(box->count && box->items)
			free(box->items);
	}
	else if(strnicmp(tmpbuf, SplitbarClassName, strlen(SplitbarClassName)+1)==0)
	{
		void *data = dw_window_get_data(handle, "_dw_percent");

		if(data)
			free(data);
	}
	else if(strnicmp(tmpbuf, WC_TREEVIEW, strlen(WC_TREEVIEW)+1)==0)
	{
		dw_tree_clear(handle);
	}
	else if(strnicmp(tmpbuf, WC_TABCONTROL, strlen(WC_TABCONTROL)+1)==0) /* Notebook */
	{
		NotebookPage **array = (NotebookPage **)dw_window_get_data(handle, "_dw_array");

		if(array)
		{
			int z, refid = -1;

			for(z=0;z<256;z++)
			{
				if(array[z])
				{
					_free_window_memory(array[z]->hwnd, 0);
					EnumChildWindows(array[z]->hwnd, _free_window_memory, 0);
					DestroyWindow(array[z]->hwnd);
					free(array[z]);
				}
			}
			free(array);
		}
	}

	dw_signal_disconnect_by_window(handle);

	if(thiscinfo)
	{
		SubclassWindow(handle, thiscinfo->pOldProc);

		/* Delete the brush so as not to leak GDI objects */
		if(thiscinfo->hbrush)
			DeleteObject(thiscinfo->hbrush);

		/* Free user data linked list memory */
		if(thiscinfo->root)
			dw_window_set_data(handle, NULL, NULL);

		SetWindowLongPtr(handle, GWLP_USERDATA, 0);
		free(thiscinfo);
	}
	return TRUE;
}

/* Convert to our internal color scheme */
ULONG _internal_color(ULONG color)
{
	if(color == DW_CLR_DEFAULT)
		return DW_RGB_TRANSPARENT;
	if(color < 18)
		return DW_RGB(_red[color], _green[color], _blue[color]);
	return color;
}

/* This function returns 1 if the window (widget) handle
 * passed to it is a valid window that can gain input focus.
 */
int _validate_focus(HWND handle)
{
	char tmpbuf[100];

	if(!handle)
		return 0;

	if(!IsWindowEnabled(handle))
		return 0;

	GetClassName(handle, tmpbuf, 99);

	/* These are the window classes which can
	 * obtain input focus.
	 */
	if(strnicmp(tmpbuf, EDITCLASSNAME, strlen(EDITCLASSNAME)+1)==0 ||          /* Entryfield */
	   strnicmp(tmpbuf, BUTTONCLASSNAME, strlen(BUTTONCLASSNAME)+1)==0 ||      /* Button */
	   strnicmp(tmpbuf, COMBOBOXCLASSNAME, strlen(COMBOBOXCLASSNAME)+1)==0 ||  /* Combobox */
	   strnicmp(tmpbuf, LISTBOXCLASSNAME, strlen(LISTBOXCLASSNAME)+1)==0 ||    /* List box */
	   strnicmp(tmpbuf, UPDOWN_CLASS, strlen(UPDOWN_CLASS)+1)==0 ||            /* Spinbutton */
	   strnicmp(tmpbuf, TRACKBAR_CLASS, strlen(TRACKBAR_CLASS)+1)==0 ||        /* Slider */
	   strnicmp(tmpbuf, WC_LISTVIEW, strlen(WC_LISTVIEW)+1)== 0 ||             /* Container */
	   strnicmp(tmpbuf, WC_TREEVIEW, strlen(WC_TREEVIEW)+1)== 0)               /* Tree */
		return 1;
	return 0;
}

HWND _normalize_handle(HWND handle)
{
	char tmpbuf[100] = "";

	GetClassName(handle, tmpbuf, 99);
	if(strnicmp(tmpbuf, UPDOWN_CLASS, strlen(UPDOWN_CLASS))==0) /* Spinner */
	{
		ColorInfo *cinfo = (ColorInfo *)GetWindowLongPtr(handle, GWLP_USERDATA);

		if(cinfo && cinfo->buddy)
			return cinfo->buddy;
	}
	if(strnicmp(tmpbuf, COMBOBOXCLASSNAME, strlen(COMBOBOXCLASSNAME))==0) /* Combobox */
	{
		ColorInfo *cinfo = (ColorInfo *)GetWindowLongPtr(handle, GWLP_USERDATA);

		if(cinfo && cinfo->buddy)
			return cinfo->buddy;
	}
	return handle;
}

int _focus_check_box(Box *box, HWND handle, int start, HWND defaultitem)
{
	int z;
	static HWND lasthwnd, firsthwnd;
    static int finish_searching;

	/* Start is 2 when we have cycled completely and
	 * need to set the focus to the last widget we found
	 * that was valid.
	 */
	if(start == 2)
	{
		if(lasthwnd)
			SetFocus(lasthwnd);
		return 0;
	}

	/* Start is 1 when we are entering the function
	 * for the first time, it is zero when entering
	 * the function recursively.
	 */
	if(start == 1)
	{
		lasthwnd = handle;
		finish_searching = 0;
		firsthwnd = 0;
	}

	for(z=box->count-1;z>-1;z--)
	{
		if(box->items[z].type == TYPEBOX)
		{
			Box *thisbox = (Box *)GetWindowLongPtr(box->items[z].hwnd, GWLP_USERDATA);

			if(thisbox && _focus_check_box(thisbox, handle, start == 3 ? 3 : 0, defaultitem))
				return 1;
		}
		else
		{
			if(box->items[z].hwnd == handle)
			{
				if(lasthwnd == handle && firsthwnd)
					SetFocus(firsthwnd);
				else if(lasthwnd == handle && !firsthwnd)
					finish_searching = 1;
				else
					SetFocus(lasthwnd);

				/* If we aren't looking for the last handle,
				 * return immediately.
				 */
				if(!finish_searching)
					return 1;
			}
			if(_validate_focus(box->items[z].hwnd))
			{
				/* Start is 3 when we are looking for the
				 * first valid item in the layout.
				 */
				if(start == 3)
				{
					if(!defaultitem || (defaultitem && box->items[z].hwnd == defaultitem))
					{
						SetFocus(_normalize_handle(box->items[z].hwnd));
						return 1;
					}
				}

				if(!firsthwnd)
					firsthwnd = _normalize_handle(box->items[z].hwnd);

				lasthwnd = _normalize_handle(box->items[z].hwnd);
			}
			else
			{
				char tmpbuf[100] = "";

				GetClassName(box->items[z].hwnd, tmpbuf, 99);

				if(strncmp(tmpbuf, SplitbarClassName, strlen(SplitbarClassName)+1)==0)
				{
					/* Then try the bottom or right box */
					HWND mybox = (HWND)dw_window_get_data(box->items[z].hwnd, "_dw_bottomright");

					if(mybox)
					{
						Box *splitbox = (Box *)GetWindowLongPtr(mybox, GWLP_USERDATA);

						if(splitbox && _focus_check_box(splitbox, handle, start == 3 ? 3 : 0, defaultitem))
							return 1;
					}

					/* Try the top or left box */
					mybox = (HWND)dw_window_get_data(box->items[z].hwnd, "_dw_topleft");

					if(mybox)
					{
						Box *splitbox = (Box *)GetWindowLongPtr(mybox, GWLP_USERDATA);

						if(splitbox && _focus_check_box(splitbox, handle, start == 3 ? 3 : 0, defaultitem))
							return 1;
					}
				}
				else if(strnicmp(tmpbuf, WC_TABCONTROL, strlen(WC_TABCONTROL))==0) /* Notebook */
				{
					NotebookPage **array = (NotebookPage **)dw_window_get_data(box->items[z].hwnd, "_dw_array");
					int pageid = TabCtrl_GetCurSel(box->items[z].hwnd);

					if(pageid > -1 && array && array[pageid])
					{
						Box *notebox;

						if(array[pageid]->hwnd)
						{
							notebox = (Box *)GetWindowLongPtr(array[pageid]->hwnd, GWLP_USERDATA);

							if(notebox && _focus_check_box(notebox, handle, start == 3 ? 3 : 0, defaultitem))
								return 1;
						}
					}
				}
			}
		}
	}
	return 0;
}

int _focus_check_box_back(Box *box, HWND handle, int start, HWND defaultitem)
{
	int z;
	static HWND lasthwnd, firsthwnd;
    static int finish_searching;

	/* Start is 2 when we have cycled completely and
	 * need to set the focus to the last widget we found
	 * that was valid.
	 */
	if(start == 2)
	{
		if(lasthwnd)
			SetFocus(lasthwnd);
		return 0;
	}

	/* Start is 1 when we are entering the function
	 * for the first time, it is zero when entering
	 * the function recursively.
	 */
	if(start == 1)
	{
		lasthwnd = handle;
		finish_searching = 0;
		firsthwnd = 0;
	}

	for(z=0;z<box->count;z++)
	{
		if(box->items[z].type == TYPEBOX)
		{
			Box *thisbox = (Box *)GetWindowLongPtr(box->items[z].hwnd, GWLP_USERDATA);

			if(thisbox && _focus_check_box_back(thisbox, handle, start == 3 ? 3 : 0, defaultitem))
				return 1;
		}
		else
		{
			if(box->items[z].hwnd == handle)
			{
				if(lasthwnd == handle && firsthwnd)
					SetFocus(firsthwnd);
				else if(lasthwnd == handle && !firsthwnd)
					finish_searching = 1;
				else
					SetFocus(lasthwnd);

				/* If we aren't looking for the last handle,
				 * return immediately.
				 */
				if(!finish_searching)
					return 1;
			}
			if(_validate_focus(box->items[z].hwnd))
			{
				/* Start is 3 when we are looking for the
				 * first valid item in the layout.
				 */
				if(start == 3)
				{
					if(!defaultitem || (defaultitem && box->items[z].hwnd == defaultitem))
					{
						SetFocus(_normalize_handle(box->items[z].hwnd));
						return 1;
					}
				}

				if(!firsthwnd)
					firsthwnd = _normalize_handle(box->items[z].hwnd);

				lasthwnd = _normalize_handle(box->items[z].hwnd);
			}
			else
			{
				char tmpbuf[100] = "";

				GetClassName(box->items[z].hwnd, tmpbuf, 99);

				if(strncmp(tmpbuf, SplitbarClassName, strlen(SplitbarClassName)+1)==0)
				{
					/* Try the top or left box */
					HWND mybox = (HWND)dw_window_get_data(box->items[z].hwnd, "_dw_topleft");

					if(mybox)
					{
						Box *splitbox = (Box *)GetWindowLongPtr(mybox, GWLP_USERDATA);

						if(splitbox && _focus_check_box_back(splitbox, handle, start == 3 ? 3 : 0, defaultitem))
							return 1;
					}

					/* Then try the bottom or right box */
					mybox = (HWND)dw_window_get_data(box->items[z].hwnd, "_dw_bottomright");

					if(mybox)
					{
						Box *splitbox = (Box *)GetWindowLongPtr(mybox, GWLP_USERDATA);

						if(splitbox && _focus_check_box_back(splitbox, handle, start == 3 ? 3 : 0, defaultitem))
							return 1;
					}
				}
				else if(strnicmp(tmpbuf, WC_TABCONTROL, strlen(WC_TABCONTROL))==0) /* Notebook */
				{
					NotebookPage **array = (NotebookPage **)dw_window_get_data(box->items[z].hwnd, "_dw_array");
					int pageid = TabCtrl_GetCurSel(box->items[z].hwnd);

					if(pageid > -1 && array && array[pageid])
					{
						Box *notebox;

						if(array[pageid]->hwnd)
						{
							notebox = (Box *)GetWindowLongPtr(array[pageid]->hwnd, GWLP_USERDATA);

							if(notebox && _focus_check_box_back(notebox, handle, start == 3 ? 3 : 0, defaultitem))
								return 1;
						}
					}
				}
			}
		}
	}
	return 0;
}

/* This function finds the first widget in the
 * layout and moves the current focus to it.
 */
void _initial_focus(HWND handle)
{
	Box *thisbox;
	char tmpbuf[100];

	if(!handle)
		return;

	GetClassName(handle, tmpbuf, 99);

	if(strnicmp(tmpbuf, ClassName, strlen(ClassName))!=0)
		return;


	if(handle)
		thisbox = (Box *)GetWindowLongPtr(handle, GWLP_USERDATA);

	if(thisbox)
	{
		_focus_check_box(thisbox, handle, 3, thisbox->defaultitem);
	}
}

HWND _toplevel_window(HWND handle)
{
	HWND box, lastbox = GetParent(handle);

	/* Find the toplevel window */
	while((box = GetParent(lastbox)))
	{
		lastbox = box;
	}
	if(lastbox)
		return lastbox;
	return handle;
}

/* This function finds the current widget in the
 * layout and moves the current focus to the next item.
 */
void _shift_focus(HWND handle)
{
	Box *thisbox;

	HWND box, lastbox = GetParent(handle);

	/* Find the toplevel window */
	while((box = GetParent(lastbox)))
	{
		lastbox = box;
	}

	thisbox = (Box *)GetWindowLongPtr(lastbox, GWLP_USERDATA);
	if(thisbox)
	{
		if(_focus_check_box(thisbox, handle, 1, 0)  == 0)
			_focus_check_box(thisbox, handle, 2, 0);
	}
}

/* This function finds the current widget in the
 * layout and moves the current focus to the next item.
 */
void _shift_focus_back(HWND handle)
{
	Box *thisbox;

	HWND box, lastbox = GetParent(handle);

	/* Find the toplevel window */
	while((box = GetParent(lastbox)))
	{
		lastbox = box;
	}

	thisbox = (Box *)GetWindowLongPtr(lastbox, GWLP_USERDATA);
	if(thisbox)
	{
		if(_focus_check_box_back(thisbox, handle, 1, 0)  == 0)
			_focus_check_box_back(thisbox, handle, 2, 0);
	}
}

/* ResetWindow:
 *         Resizes window to the exact same size to trigger
 *         recalculation of frame.
 */
void _ResetWindow(HWND hwndFrame)
{
	RECT rcl;

	GetWindowRect(hwndFrame, &rcl);
	SetWindowPos(hwndFrame, HWND_TOP, 0, 0, rcl.right - rcl.left,
				 rcl.bottom - rcl.top - 1, SWP_NOMOVE | SWP_NOZORDER);
	SetWindowPos(hwndFrame, HWND_TOP, 0, 0, rcl.right - rcl.left,
				 rcl.bottom - rcl.top, SWP_NOMOVE | SWP_NOZORDER);
}

/* This function calculates how much space the widgets and boxes require
 * and does expansion as necessary.
 */
int _resize_box(Box *thisbox, int *depth, int x, int y, int *usedx, int *usedy,
				int pass, int *usedpadx, int *usedpady)
{
	int z, currentx = 0, currenty = 0;
	int uymax = 0, uxmax = 0;
	int upymax = 0, upxmax = 0;
	/* Used for the SIZEEXPAND */
	int nux = *usedx, nuy = *usedy;
	int nupx = *usedpadx, nupy = *usedpady;

	(*usedx) += (thisbox->pad * 2);
	(*usedy) += (thisbox->pad * 2);

	if(thisbox->grouphwnd)
	{
		char *text = dw_window_get_text(thisbox->grouphwnd);

		thisbox->grouppady = 0;

		if(text)
		{
			dw_font_text_extents(thisbox->grouphwnd, 0, text, NULL, &thisbox->grouppady);
			dw_free(text);
		}

		if(thisbox->grouppady)
			thisbox->grouppady += 3;
		else
			thisbox->grouppady = 6;

		thisbox->grouppadx = 6;

		(*usedx) += thisbox->grouppadx;
		(*usedpadx) += thisbox->grouppadx;
		(*usedy) += thisbox->grouppady;
		(*usedpady) += thisbox->grouppady;
	}

	for(z=0;z<thisbox->count;z++)
	{
		if(thisbox->items[z].type == TYPEBOX)
		{
			int initialx, initialy;
			Box *tmp = (Box *)GetWindowLongPtr(thisbox->items[z].hwnd, GWLP_USERDATA);

			initialx = x - (*usedx);
			initialy = y - (*usedy);

			if(tmp)
			{
				int newx, newy;
				int nux = *usedx, nuy = *usedy;
				int upx = *usedpadx + (tmp->pad*2), upy = *usedpady + (tmp->pad*2);

				/* On the second pass we know how big the box needs to be and how
				 * much space we have, so we can calculate a ratio for the new box.
				 */
				if(pass == 2)
				{
					int deep = *depth + 1;

					_resize_box(tmp, &deep, x, y, &nux, &nuy, 1, &upx, &upy);

					tmp->upx = upx - *usedpadx;
					tmp->upy = upy - *usedpady;

					newx = x - nux;
					newy = y - nuy;

					tmp->width = thisbox->items[z].width = initialx - newx;
					tmp->height = thisbox->items[z].height = initialy - newy;

					tmp->parentxratio = thisbox->xratio;
					tmp->parentyratio = thisbox->yratio;

					tmp->parentpad = tmp->pad;

					/* Just in case */
					tmp->xratio = thisbox->xratio;
					tmp->yratio = thisbox->yratio;

					if(thisbox->type == DW_VERT)
					{
						int tmppad = (thisbox->items[z].pad*2)+(tmp->pad*2)+tmp->grouppady;

						if((thisbox->items[z].width - tmppad)!=0)
							tmp->xratio = ((float)((thisbox->items[z].width * thisbox->xratio)-tmppad))/((float)(thisbox->items[z].width-tmppad));
					}
					else
					{
						if((thisbox->items[z].width-tmp->upx)!=0)
							tmp->xratio = ((float)((thisbox->items[z].width * thisbox->xratio)-tmp->upx))/((float)(thisbox->items[z].width-tmp->upx));
					}
					if(thisbox->type == DW_HORZ)
					{
						int tmppad = (thisbox->items[z].pad*2)+(tmp->pad*2)+tmp->grouppadx;

						if((thisbox->items[z].height-tmppad)!=0)
							tmp->yratio = ((float)((thisbox->items[z].height * thisbox->yratio)-tmppad))/((float)(thisbox->items[z].height-tmppad));
					}
					else
					{
						if((thisbox->items[z].height-tmp->upy)!=0)
							tmp->yratio = ((float)((thisbox->items[z].height * thisbox->yratio)-tmp->upy))/((float)(thisbox->items[z].height-tmp->upy));
					}

					nux = *usedx; nuy = *usedy;
					upx = *usedpadx + (tmp->pad*2); upy = *usedpady + (tmp->pad*2);
				}

				(*depth)++;

				_resize_box(tmp, depth, x, y, &nux, &nuy, pass, &upx, &upy);

				(*depth)--;

				newx = x - nux;
				newy = y - nuy;

				tmp->minwidth = thisbox->items[z].width = initialx - newx;
				tmp->minheight = thisbox->items[z].height = initialy - newy;
			}
		}

		if(pass > 1 && *depth > 0)
		{
			if(thisbox->type == DW_VERT)
			{
				int tmppad = (thisbox->items[z].pad*2)+(thisbox->parentpad*2)+thisbox->grouppadx;

				if((thisbox->minwidth-tmppad) == 0)
					thisbox->items[z].xratio = 1.0;
				else
					thisbox->items[z].xratio = ((float)((thisbox->width * thisbox->parentxratio)-tmppad))/((float)(thisbox->minwidth-tmppad));
			}
			else
			{
				if(thisbox->minwidth-thisbox->upx == 0)
					thisbox->items[z].xratio = 1.0;
				else
					thisbox->items[z].xratio = ((float)((thisbox->width * thisbox->parentxratio)-thisbox->upx))/((float)(thisbox->minwidth-thisbox->upx));
			}

			if(thisbox->type == DW_HORZ)
			{
				int tmppad = (thisbox->items[z].pad*2)+(thisbox->parentpad*2)+thisbox->grouppady;

				if((thisbox->minheight-tmppad) == 0)
					thisbox->items[z].yratio = 1.0;
				else
					thisbox->items[z].yratio = ((float)((thisbox->height * thisbox->parentyratio)-tmppad))/((float)(thisbox->minheight-tmppad));
			}
			else
			{
				if(thisbox->minheight-thisbox->upy == 0)
					thisbox->items[z].yratio = 1.0;
				else
					thisbox->items[z].yratio = ((float)((thisbox->height * thisbox->parentyratio)-thisbox->upy))/((float)(thisbox->minheight-thisbox->upy));
			}

			if(thisbox->items[z].type == TYPEBOX)
			{
				Box *tmp = (Box *)GetWindowLongPtr(thisbox->items[z].hwnd, GWLP_USERDATA);

				if(tmp)
				{
					tmp->parentxratio = thisbox->items[z].xratio;
					tmp->parentyratio = thisbox->items[z].yratio;
				}
			}
		}
		else
		{
			thisbox->items[z].xratio = thisbox->xratio;
			thisbox->items[z].yratio = thisbox->yratio;
		}

		if(thisbox->type == DW_VERT)
		{
			int itemwidth = (thisbox->items[z].pad*2) + thisbox->items[z].width;

			if(itemwidth > uxmax)
				uxmax = itemwidth;
			if(thisbox->items[z].hsize != SIZEEXPAND)
			{
				if(itemwidth > upxmax)
					upxmax = itemwidth;
			}
			else
			{
				if(thisbox->items[z].pad*2 > upxmax)
					upxmax = thisbox->items[z].pad*2;
			}
		}
		else
		{
			if(thisbox->items[z].width == -1)
			{
				/* figure out how much space this item requires */
				/* thisbox->items[z].width = */
			}
			else
			{
				(*usedx) += thisbox->items[z].width + (thisbox->items[z].pad*2);
				if(thisbox->items[z].hsize != SIZEEXPAND)
					(*usedpadx) += (thisbox->items[z].pad*2) + thisbox->items[z].width;
				else
					(*usedpadx) += thisbox->items[z].pad*2;
			}
		}
		if(thisbox->type == DW_HORZ)
		{
			int itemheight = (thisbox->items[z].pad*2) + thisbox->items[z].height;

			if(itemheight > uymax)
				uymax = itemheight;
			if(thisbox->items[z].vsize != SIZEEXPAND)
			{
				if(itemheight > upymax)
					upymax = itemheight;
			}
			else
			{
				if(thisbox->items[z].pad*2 > upymax)
					upymax = thisbox->items[z].pad*2;
			}
		}
		else
		{
			if(thisbox->items[z].height == -1)
			{
				/* figure out how much space this item requires */
				/* thisbox->items[z].height = */
			}
			else
			{
				(*usedy) += thisbox->items[z].height + (thisbox->items[z].pad*2);
				if(thisbox->items[z].vsize != SIZEEXPAND)
					(*usedpady) += (thisbox->items[z].pad*2) + thisbox->items[z].height;
				else
					(*usedpady) += thisbox->items[z].pad*2;
			}
		}
	}

	(*usedx) += uxmax;
	(*usedy) += uymax;
	(*usedpadx) += upxmax;
	(*usedpady) += upymax;

	currentx += thisbox->pad;
	currenty += thisbox->pad;

	if(thisbox->grouphwnd)
	{
		currentx += 3;
		currenty += thisbox->grouppady - 3;
	}

	/* The second pass is for expansion and actual placement. */
	if(pass > 1)
	{
		/* Any SIZEEXPAND items should be set to uxmax/uymax */
		for(z=0;z<thisbox->count;z++)
		{
			if(thisbox->items[z].hsize == SIZEEXPAND && thisbox->type == DW_VERT)
				thisbox->items[z].width = uxmax-(thisbox->items[z].pad*2);
			if(thisbox->items[z].vsize == SIZEEXPAND && thisbox->type == DW_HORZ)
				thisbox->items[z].height = uymax-(thisbox->items[z].pad*2);
			/* Run this code segment again to finalize the sized after setting uxmax/uymax values. */
			if(thisbox->items[z].type == TYPEBOX)
			{
				Box *tmp = (Box *)GetWindowLongPtr(thisbox->items[z].hwnd, GWLP_USERDATA);

				if(tmp)
				{
					if(*depth > 0)
					{
						float calcval;

						if(thisbox->type == DW_VERT)
						{
							calcval = (float)(tmp->minwidth-((thisbox->items[z].pad*2)+(thisbox->pad*2)));
							if(calcval == 0.0)
								tmp->xratio = thisbox->xratio;
							else
								tmp->xratio = ((float)((thisbox->items[z].width * thisbox->xratio)-((thisbox->items[z].pad*2)+(thisbox->pad*2))))/calcval;
							tmp->width = thisbox->items[z].width;
						}
						if(thisbox->type == DW_HORZ)
						{
							calcval = (float)(tmp->minheight-((thisbox->items[z].pad*2)+(thisbox->pad*2)));
							if(calcval == 0.0)
								tmp->yratio = thisbox->yratio;
							else
								tmp->yratio = ((float)((thisbox->items[z].height * thisbox->yratio)-((thisbox->items[z].pad*2)+(thisbox->pad*2))))/calcval;
							tmp->height = thisbox->items[z].height;
						}
					}

					(*depth)++;

					_resize_box(tmp, depth, x, y, &nux, &nuy, 3, &nupx, &nupy);

					(*depth)--;

				}
			}
		}

		for(z=0;z<(thisbox->count);z++)
		{
			int height = thisbox->items[z].height;
			int width = thisbox->items[z].width;
			int pad = thisbox->items[z].pad;
			HWND handle = thisbox->items[z].hwnd;
			int vectorx, vectory;

			/* When upxmax != pad*2 then ratios are incorrect. */
			vectorx = (int)((width*thisbox->items[z].xratio)-width);
			vectory = (int)((height*thisbox->items[z].yratio)-height);

			if(width > 0 && height > 0)
			{
				char tmpbuf[100];
				/* This is a hack to fix rounding of the sizing */
				if(*depth == 0)
				{
					vectorx++;
					vectory++;
				}

				/* If this item isn't going to expand... reset the vectors to 0 */
				if(thisbox->items[z].vsize != SIZEEXPAND)
					vectory = 0;
				if(thisbox->items[z].hsize != SIZEEXPAND)
					vectorx = 0;

				GetClassName(handle, tmpbuf, 99);

				if(strnicmp(tmpbuf, COMBOBOXCLASSNAME, strlen(COMBOBOXCLASSNAME)+1)==0)
				{
					/* Handle special case Combobox */
					MoveWindow(handle, currentx + pad, currenty + pad,
							   width + vectorx, (height + vectory) + 400, FALSE);
				}
				else if(strnicmp(tmpbuf, UPDOWN_CLASS, strlen(UPDOWN_CLASS)+1)==0)
				{
					/* Handle special case Spinbutton */
					ColorInfo *cinfo = (ColorInfo *)GetWindowLongPtr(handle, GWLP_USERDATA);

					MoveWindow(handle, currentx + pad + ((width + vectorx) - 20), currenty + pad,
							   20, height + vectory, FALSE);

					if(cinfo)
					{
						MoveWindow(cinfo->buddy, currentx + pad, currenty + pad,
								   (width + vectorx) - 20, height + vectory, FALSE);
					}
				}
				else if(strncmp(tmpbuf, SplitbarClassName, strlen(SplitbarClassName)+1)==0)
				{
					/* Then try the bottom or right box */
					float *percent = (float *)dw_window_get_data(handle, "_dw_percent");
					int type = (int)dw_window_get_data(handle, "_dw_type");
					int cx = width + vectorx;
					int cy = height + vectory;

					MoveWindow(handle, currentx + pad, currenty + pad,
							   cx, cy, FALSE);

					if(cx > 0 && cy > 0 && percent)
						_handle_splitbar_resize(handle, *percent, type, cx, cy);
				}
				else if(strnicmp(tmpbuf, STATICCLASSNAME, strlen(STATICCLASSNAME)+1)==0)
				{
					/* Handle special case Vertically Center static text */
					ColorInfo *cinfo = (ColorInfo *)GetWindowLongPtr(handle, GWLP_USERDATA);

					if(cinfo && cinfo->vcenter)
					{
						/* We are centered so calculate a new position */
						char tmpbuf[1024];
						int textheight, diff, total = height + vectory;

						GetWindowText(handle, tmpbuf, 1023);

						/* Figure out how big the text is */
						dw_font_text_extents(handle, 0, tmpbuf, 0, &textheight);

						diff = (total - textheight) / 2;

						MoveWindow(handle, currentx + pad, currenty + pad + diff,
								   width + vectorx, height + vectory - diff, FALSE);
					}
					else
					{
						MoveWindow(handle, currentx + pad, currenty + pad,
								   width + vectorx, height + vectory, FALSE);
					}
				}
				else
				{
					/* Everything else */
					MoveWindow(handle, currentx + pad, currenty + pad,
							   width + vectorx, height + vectory, FALSE);
					if(thisbox->items[z].type == TYPEBOX)
					{
						Box *boxinfo = (Box *)GetWindowLongPtr(handle, GWLP_USERDATA);

						if(boxinfo && boxinfo->grouphwnd)
							MoveWindow(boxinfo->grouphwnd, 0, 0,
									   width + vectorx, height + vectory, FALSE);

					}
				}

				/* Notebook dialog requires additional processing */
				if(strncmp(tmpbuf, WC_TABCONTROL, strlen(WC_TABCONTROL))==0)
				{
					RECT rect;
					NotebookPage **array = (NotebookPage **)dw_window_get_data(handle, "_dw_array");
					int pageid = TabCtrl_GetCurSel(handle);

					if(pageid > -1 && array && array[pageid])
					{
						GetClientRect(handle,&rect);
						TabCtrl_AdjustRect(handle,FALSE,&rect);
						MoveWindow(array[pageid]->hwnd, rect.left, rect.top,
								   rect.right - rect.left, rect.bottom-rect.top, FALSE);
					}
				}

				if(thisbox->type == DW_HORZ)
					currentx += width + vectorx + (pad * 2);
				if(thisbox->type == DW_VERT)
					currenty += height + vectory + (pad * 2);
			}
		}
	}
	return 0;
}

void _do_resize(Box *thisbox, int x, int y)
{
	if(x != 0 && y != 0)
	{
		if(thisbox)
		{
			int usedx = 0, usedy = 0, depth = 0, usedpadx = 0, usedpady = 0;

			_resize_box(thisbox, &depth, x, y, &usedx, &usedy, 1, &usedpadx, &usedpady);

			if(usedx-usedpadx == 0 || usedy-usedpady == 0)
				return;

			thisbox->xratio = ((float)(x-usedpadx))/((float)(usedx-usedpadx));
			thisbox->yratio = ((float)(y-usedpady))/((float)(usedy-usedpady));

			usedpadx = usedpady = usedx = usedy = depth = 0;

			_resize_box(thisbox, &depth, x, y, &usedx, &usedy, 2, &usedpadx, &usedpady);
		}
	}
}

int _HandleScroller(HWND handle, int pos, int which)
{
	SCROLLINFO si;

	si.cbSize = sizeof(SCROLLINFO);
	si.fMask = SIF_ALL;

	SendMessage(handle, SBM_GETSCROLLINFO, 0, (LPARAM)&si);

	switch(which)
	{
	case SB_THUMBTRACK:
		return pos;
	/*case SB_PAGEDOWN:*/
	case SB_PAGELEFT:
		pos = si.nPos - si.nPage;
		if(pos < si.nMin)
			pos = si.nMin;
		return pos;
	/*case SB_PAGEUP:*/
	case SB_PAGERIGHT:
		pos = si.nPos + si.nPage;
		if(pos > (si.nMax - si.nPage) + 1)
			pos = (si.nMax - si.nPage) + 1;
		return pos;
	/*case SB_LINEDOWN:*/
	case SB_LINELEFT:
		pos = si.nPos - 1;
		if(pos < si.nMin)
			pos = si.nMin;
		return pos;
	/*case SB_LINEUP:*/
	case SB_LINERIGHT:
		pos = si.nPos + 1;
		if(pos > (si.nMax - si.nPage) + 1)
			pos = (si.nMax - si.nPage) + 1;
		return pos;
	}
	return -1;
}

/* The main window procedure for Dynamic Windows, all the resizing code is done here. */
BOOL CALLBACK _wndproc(HWND hWnd, UINT msg, WPARAM mp1, LPARAM mp2)
{
	int result = -1;
	static int command_active = 0;
	SignalHandler *tmp = Root;
	void (*windowfunc)(PVOID);
	ULONG origmsg = msg;

	/* Deal with translating some messages */
	if(msg == WM_RBUTTONDOWN || msg == WM_MBUTTONDOWN)
		msg = WM_LBUTTONDOWN;
	else if(msg == WM_RBUTTONUP || msg == WM_MBUTTONUP)
		msg = WM_LBUTTONUP;
	else if(msg == WM_HSCROLL)
		msg = WM_VSCROLL;
	else if(msg == WM_KEYDOWN) /* && mp1 >= VK_F1 && mp1 <= VK_F24) allow ALL special keys */
		msg = WM_CHAR;

	if(result == -1)
	{
		/* Avoid infinite recursion */
		command_active = 1;

		/* Find any callbacks for this function */
		while(tmp)
		{
			if(tmp->message == msg || msg == WM_COMMAND || msg == WM_NOTIFY || tmp->message == WM_USER+1)
			{
				switch(msg)
				{
				case WM_TIMER:
				{
					int (*timerfunc)(void *) = tmp->signalfunction;
					if(tmp->id == (int)mp1)
					{
						if(!timerfunc(tmp->data))
							dw_timer_disconnect(tmp->id);
						tmp = NULL;
					}
					result = 0;
				}
				break;
				case WM_SETFOCUS:
					{
						int (*setfocusfunc)(HWND, void *) = (int (*)(HWND, void *))tmp->signalfunction;

						if(hWnd == tmp->window)
						{
							result = setfocusfunc(tmp->window, tmp->data);
							tmp = NULL;
						}
					}
					break;
				case WM_SIZE:
					{
						int (*sizefunc)(HWND, int, int, void *) = tmp->signalfunction;

						if(hWnd == tmp->window)
						{
							result = sizefunc(tmp->window, LOWORD(mp2), HIWORD(mp2), tmp->data);
							tmp = NULL;
						}
					}
					break;
				case WM_LBUTTONDOWN:
					{
						POINTS pts = MAKEPOINTS(mp2);
						int (*buttonfunc)(HWND, int, int, int, void *) = (int (*)(HWND, int, int, int, void *))tmp->signalfunction;

						if(hWnd == tmp->window)
						{
							int button;

							switch(origmsg)
							{
							case WM_LBUTTONDOWN:
								button = 1;
								break;
							case WM_RBUTTONDOWN:
								button = 2;
								break;
							case WM_MBUTTONDOWN:
								button = 3;
								break;
							}
							result = buttonfunc(tmp->window, pts.x, pts.y, button, tmp->data);
							tmp = NULL;
						}
					}
					break;
				case WM_LBUTTONUP:
					{
						POINTS pts = MAKEPOINTS(mp2);
						int (*buttonfunc)(HWND, int, int, int, void *) = (int (*)(HWND, int, int, int, void *))tmp->signalfunction;

						if(hWnd == tmp->window)
						{
							int button;

							switch(origmsg)
							{
							case WM_LBUTTONUP:
								button = 1;
								break;
							case WM_RBUTTONUP:
								button = 2;
								break;
							case WM_MBUTTONUP:
								button = 3;
								break;
							}
							result = buttonfunc(tmp->window, pts.x, pts.y, button, tmp->data);
							tmp = NULL;
						}
					}
					break;
				case WM_MOUSEMOVE:
					{
						POINTS pts = MAKEPOINTS(mp2);
						int (*motionfunc)(HWND, int, int, int, void *) = (int (*)(HWND, int, int, int, void *))tmp->signalfunction;

						if(hWnd == tmp->window)
						{
							int keys = 0;

							if (mp1 & MK_LBUTTON)
								keys = DW_BUTTON1_MASK;
							if (mp1 & MK_RBUTTON)
								keys |= DW_BUTTON2_MASK;
							if (mp1 & MK_MBUTTON)
								keys |= DW_BUTTON3_MASK;

							result = motionfunc(tmp->window, pts.x, pts.y, keys, tmp->data);
							tmp = NULL;
						}
					}
					break;
				case WM_CHAR:
					{
						int (*keypressfunc)(HWND, char, int, int, void *) = tmp->signalfunction;

						if(hWnd == tmp->window || _toplevel_window(hWnd) == tmp->window)
						{
							int special = 0;
							char ch = 0;

							if(GetAsyncKeyState(VK_SHIFT) & 0x8000)
								special |= KC_SHIFT;
							if(GetAsyncKeyState(VK_CONTROL) & 0x8000)
								special |= KC_CTRL;
                            if(mp2 & (1 << 29))
								special |= KC_ALT;

							if(origmsg == WM_CHAR && mp1 < 128)
								ch = (char)mp1;

							result = keypressfunc(tmp->window, ch, mp1, special, tmp->data);
							tmp = NULL;
						}
					}
					break;
				case WM_CLOSE:
					{
						int (*closefunc)(HWND, void *) = tmp->signalfunction;

						if(hWnd == tmp->window)
						{
							result = closefunc(tmp->window, tmp->data);
							tmp = NULL;
						}
					}
					break;
				case WM_PAINT:
					{
						PAINTSTRUCT ps;
						DWExpose exp;
						int (*exposefunc)(HWND, DWExpose *, void *) = tmp->signalfunction;

						if(hWnd == tmp->window)
						{
							BeginPaint(hWnd, &ps);
							exp.x = ps.rcPaint.left;
							exp.y = ps.rcPaint.top;
							exp.width = ps.rcPaint.right - ps.rcPaint.left;
							exp.height = ps.rcPaint.bottom - ps.rcPaint.top;
							result = exposefunc(hWnd, &exp, tmp->data);
							EndPaint(hWnd, &ps);
						}
					}
					break;
				case WM_NOTIFY:
					{
						if(tmp->message == TVN_SELCHANGED || tmp->message == NM_RCLICK)
						{
							NMTREEVIEW FAR *tem=(NMTREEVIEW FAR *)mp2;
							char tmpbuf[100];

							GetClassName(tem->hdr.hwndFrom, tmpbuf, 99);

							if(strnicmp(tmpbuf, WC_TREEVIEW, strlen(WC_TREEVIEW))==0)
							{
								if(tem->hdr.code == TVN_SELCHANGED && tmp->message == TVN_SELCHANGED)
								{
									if(tmp->window == tem->hdr.hwndFrom && !dw_window_get_data(tmp->window, "_dw_select_item"))
									{
										int (*treeselectfunc)(HWND, HWND, char *, void *, void *) = tmp->signalfunction;
										TVITEM tvi;
										void **ptrs;

										tvi.mask = TVIF_HANDLE;
										tvi.hItem = tem->itemNew.hItem;

										TreeView_GetItem(tmp->window, &tvi);

										ptrs = (void **)tvi.lParam;
										if(ptrs)
											result = treeselectfunc(tmp->window, (HWND)tem->itemNew.hItem, (char *)ptrs[0], tmp->data, (void *)ptrs[1]);

										tmp = NULL;
									}
								}
								else if(tem->hdr.code == NM_RCLICK && tmp->message == NM_RCLICK)
								{
									if(tmp->window == tem->hdr.hwndFrom)
									{
										int (*containercontextfunc)(HWND, char *, int, int, void *, void *) = tmp->signalfunction;
										HTREEITEM hti, last;
										TVITEM tvi;
										TVHITTESTINFO thi;
										void **ptrs = NULL;
										LONG x, y;

										dw_pointer_query_pos(&x, &y);

										thi.pt.x = x;
										thi.pt.y = y;

										MapWindowPoints(HWND_DESKTOP, tmp->window, &thi.pt, 1);

										last = TreeView_GetSelection(tmp->window);
										hti = TreeView_HitTest(tmp->window, &thi);

										if(hti)
										{
											tvi.mask = TVIF_HANDLE;
											tvi.hItem = hti;

											TreeView_GetItem(tmp->window, &tvi);
											TreeView_SelectItem(tmp->window, hti);

											ptrs = (void **)tvi.lParam;
										}
										containercontextfunc(tmp->window, ptrs ? (char *)ptrs[0] : NULL, x, y, tmp->data, ptrs ? ptrs[1] : NULL);
										tmp = NULL;
									}
								}
							}
							else if(strnicmp(tmpbuf, WC_LISTVIEW, strlen(WC_LISTVIEW)+1)==0)
							{
								if(tem->hdr.code == LVN_ITEMCHANGED && tmp->message == TVN_SELCHANGED)
								{
									if(tmp->window == tem->hdr.hwndFrom)
									{
										LV_ITEM lvi;
										int iItem;

										iItem = ListView_GetNextItem(tmp->window, -1, LVNI_SELECTED);

										memset(&lvi, 0, sizeof(LV_ITEM));

										if(iItem > -1)
										{
											int (*treeselectfunc)(HWND, HWND, char *, void *, void *) = tmp->signalfunction;

											lvi.iItem = iItem;
											lvi.mask = LVIF_PARAM;

											ListView_GetItem(tmp->window, &lvi);

											/* Seems to be having lParam as 1 which really sucks */
											if(lvi.lParam < 100)
												lvi.lParam = 0;

											treeselectfunc(tmp->window, 0, (char *)lvi.lParam, tmp->data, 0);
											tmp = NULL;
										}
									}
								}
							}
						}
						else if(tmp->message == TCN_SELCHANGE)
						{
							NMHDR FAR *tem=(NMHDR FAR *)mp2;
							if(tmp->window == tem->hwndFrom && tem->code == tmp->message)
							{
								int (*switchpagefunc)(HWND, unsigned long, void *) = tmp->signalfunction;
								unsigned long num=dw_notebook_page_query(tem->hwndFrom);
								result = switchpagefunc(tem->hwndFrom, num, tmp->data);
								tmp = NULL;
							}
						}
					}
					break;
				case WM_COMMAND:
					{
						int (*clickfunc)(HWND, void *) = tmp->signalfunction;
						HWND command;
						ULONG passthru = (ULONG)LOWORD(mp1);
						ULONG message = HIWORD(mp1);

						command = (HWND)passthru;

						if(message == LBN_SELCHANGE || message == CBN_SELCHANGE)
						{
							int (*listboxselectfunc)(HWND, int, void *) = tmp->signalfunction;

							if(tmp->message == LBN_SELCHANGE && tmp->window == (HWND)mp2)
							{
								result = listboxselectfunc(tmp->window, dw_listbox_selected(tmp->window), tmp->data);
								tmp = NULL;
							}
						} /* Make sure it's the right window, and the right ID */
						else if(tmp->window < (HWND)65536 && command == tmp->window)
						{
							result = clickfunc(popup ? popup : tmp->window, tmp->data);
							tmp = NULL;
						}
					}
					break;
				case WM_HSCROLL:
				case WM_VSCROLL:
					{
						char tmpbuf[100];
                        HWND handle = (HWND)mp2;
						int (*valuechangefunc)(HWND, int, void *) = tmp->signalfunction;

						GetClassName(handle, tmpbuf, 99);

						if(strnicmp(tmpbuf, TRACKBAR_CLASS, strlen(TRACKBAR_CLASS)+1)==0)
						{

							if(handle == tmp->window)
							{
								int value = (int)SendMessage(handle, TBM_GETPOS, 0, 0);
								int max = (int)SendMessage(handle, TBM_GETRANGEMAX, 0, 0);
								ULONG currentstyle = GetWindowLong(handle, GWL_STYLE);

								if(currentstyle & TBS_VERT)
									result = valuechangefunc(tmp->window, max - value, tmp->data);
								else
									result = valuechangefunc(tmp->window, value, tmp->data);
								tmp = NULL;
							}
						}
						else if(strnicmp(tmpbuf, SCROLLBARCLASSNAME, strlen(SCROLLBARCLASSNAME)+1)==0)
						{
							if(handle == tmp->window)
							{
								int value = _HandleScroller(handle, (int)HIWORD(mp1), (int)LOWORD(mp1));

								if(value > -1)
								{
									dw_scrollbar_set_pos(tmp->window, value);
									result = valuechangefunc(tmp->window, value, tmp->data);
								}
								tmp = NULL;
								msg = 0;
							}
						}
					}
					break;
				}
			}
			if(tmp)
				tmp = tmp->next;
		}
		command_active = 0;
	}

	/* Now that any handlers are done... do normal processing */
	switch( msg )
	{
	case WM_PAINT:
		{
			PAINTSTRUCT ps;

			BeginPaint(hWnd, &ps);
			EndPaint(hWnd, &ps);
		}
		break;
	case WM_SIZE:
		{
			static int lastx = -1, lasty = -1;
			static HWND lasthwnd = 0;

			if(lastx != LOWORD(mp2) || lasty != HIWORD(mp2) || lasthwnd != hWnd)
			{
				Box *mybox = (Box *)GetWindowLongPtr(hWnd, GWLP_USERDATA);

				if(mybox && mybox->count)
				{
					lastx = LOWORD(mp2);
					lasty = HIWORD(mp2);
					lasthwnd = hWnd;

					ShowWindow(mybox->items[0].hwnd, SW_HIDE);
					_do_resize(mybox,LOWORD(mp2),HIWORD(mp2));
					ShowWindow(mybox->items[0].hwnd, SW_SHOW);
					return 0;
				}
			}
		}
		break;
	case WM_CHAR:
		if(LOWORD(mp1) == '\t')
		{
			if(GetAsyncKeyState(VK_SHIFT) & 0x8000)
				_shift_focus_back(hWnd);
			else
				_shift_focus(hWnd);
			return TRUE;
		}
		break;
	case WM_USER:
		windowfunc = (void *)mp1;

		if(windowfunc)
			windowfunc((void *)mp2);
		break;
	case WM_NOTIFY:
		{
			NMHDR FAR *tem=(NMHDR FAR *)mp2;

			if(tem->code == TCN_SELCHANGING)
			{
				int num=TabCtrl_GetCurSel(tem->hwndFrom);
				NotebookPage **array = (NotebookPage **)dw_window_get_data(tem->hwndFrom, "_dw_array");

				if(num > -1 && array && array[num])
					SetParent(array[num]->hwnd, DW_HWND_OBJECT);

			}
			else if(tem->code == TCN_SELCHANGE)
			{
				int num=TabCtrl_GetCurSel(tem->hwndFrom);
				NotebookPage **array = (NotebookPage **)dw_window_get_data(tem->hwndFrom, "_dw_array");

				if(num > -1 && array && array[num])
					SetParent(array[num]->hwnd, tem->hwndFrom);

				_resize_notebook_page(tem->hwndFrom, num);
			}
		}
		break;
	case WM_HSCROLL:
	case WM_VSCROLL:
		{
			HWND handle = (HWND)mp2;

			if(dw_window_get_data(handle, "_dw_scrollbar"))
			{
				int value = _HandleScroller(handle, (int)HIWORD(mp1), (int)LOWORD(mp1));

				if(value > -1)
					dw_scrollbar_set_pos(handle, value);
			}
		}
		break;
	case WM_GETMINMAXINFO:
		{
			MINMAXINFO *info = (MINMAXINFO *)mp2;
			info->ptMinTrackSize.x = 8;
			info->ptMinTrackSize.y = 8;
			return 0;
		}
		break;
	case WM_DESTROY:
		/* Free memory before destroying */
		_free_window_memory(hWnd, 0);
		EnumChildWindows(hWnd, _free_window_memory, 0);
		break;
	case WM_CTLCOLORSTATIC:
	case WM_CTLCOLORLISTBOX:
	case WM_CTLCOLORBTN:
	case WM_CTLCOLOREDIT:
	case WM_CTLCOLORMSGBOX:
	case WM_CTLCOLORSCROLLBAR:
	case WM_CTLCOLORDLG:
		{
			ColorInfo *thiscinfo = (ColorInfo *)GetWindowLongPtr((HWND)mp2, GWLP_USERDATA);
			if(thiscinfo && thiscinfo->fore != -1 && thiscinfo->back != -1)
			{
				/* Handle foreground */
				if(thiscinfo->fore > -1 && thiscinfo->fore < 18)
				{
					if(thiscinfo->fore != DW_CLR_DEFAULT)
					{
						SetTextColor((HDC)mp1, RGB(_red[thiscinfo->fore],
												   _green[thiscinfo->fore],
												   _blue[thiscinfo->fore]));
					}
				}
				else if((thiscinfo->fore & DW_RGB_COLOR) == DW_RGB_COLOR)
				{
					SetTextColor((HDC)mp1, RGB(DW_RED_VALUE(thiscinfo->fore),
											   DW_GREEN_VALUE(thiscinfo->fore),
											   DW_BLUE_VALUE(thiscinfo->fore)));
				}
				/* Handle background */
				if(thiscinfo->back > -1 && thiscinfo->back < 18)
				{
					if(thiscinfo->back == DW_CLR_DEFAULT)
					{
						HBRUSH hbr = GetSysColorBrush(COLOR_3DFACE);

						SelectObject((HDC)mp1, hbr);
						return (LONG)hbr;
					}
					else
					{
						SetBkColor((HDC)mp1, RGB(_red[thiscinfo->back],
												 _green[thiscinfo->back],
												 _blue[thiscinfo->back]));
						if(thiscinfo->hbrush)
							DeleteObject(thiscinfo->hbrush);
						thiscinfo->hbrush = CreateSolidBrush(RGB(_red[thiscinfo->back],
																 _green[thiscinfo->back],
																 _blue[thiscinfo->back]));
						SelectObject((HDC)mp1, thiscinfo->hbrush);
					}
					return (LONG)thiscinfo->hbrush;
				}
				else if((thiscinfo->back & DW_RGB_COLOR) == DW_RGB_COLOR)
				{
					SetBkColor((HDC)mp1, RGB(DW_RED_VALUE(thiscinfo->back),
												 DW_GREEN_VALUE(thiscinfo->back),
												 DW_BLUE_VALUE(thiscinfo->back)));
					if(thiscinfo->hbrush)
						DeleteObject(thiscinfo->hbrush);
					thiscinfo->hbrush = CreateSolidBrush(RGB(DW_RED_VALUE(thiscinfo->back),
															 DW_GREEN_VALUE(thiscinfo->back),
															 DW_BLUE_VALUE(thiscinfo->back)));
					SelectObject((HDC)mp1, thiscinfo->hbrush);
					return (LONG)thiscinfo->hbrush;
				}
			}

		}
		break;
	}
	if(result != -1)
		return result;
	else
		return DefWindowProc(hWnd, msg, mp1, mp2);
}

BOOL CALLBACK _framewndproc(HWND hWnd, UINT msg, WPARAM mp1, LPARAM mp2)
{
	switch( msg )
	{
	case WM_LBUTTONDOWN:
	case WM_MBUTTONDOWN:
	case WM_RBUTTONDOWN:
		SetActiveWindow(hWnd);
		SetFocus(hWnd);
		break;
	case WM_COMMAND:
	case WM_NOTIFY:
		_wndproc(hWnd, msg, mp1, mp2);
		break;
#if 0
	case WM_ERASEBKGND:
		{
			ColorInfo *thiscinfo = (ColorInfo *)GetWindowLongPtr(hWnd, GWLP_USERDATA);

			if(thiscinfo && thiscinfo->fore != -1 && thiscinfo->back != -1)
				return FALSE;
		}
		break;
#endif
	case WM_PAINT:
		{
			ColorInfo *thiscinfo = (ColorInfo *)GetWindowLongPtr(hWnd, GWLP_USERDATA);

			if(thiscinfo && thiscinfo->fore != -1 && thiscinfo->back != -1)
			{
				PAINTSTRUCT ps;
				HDC hdcPaint = BeginPaint(hWnd, &ps);
				int success = FALSE;

				if(thiscinfo && thiscinfo->fore != -1 && thiscinfo->back != -1)
				{
					/* Handle foreground */
					if(thiscinfo->fore > -1 && thiscinfo->fore < 18)
					{
						if(thiscinfo->fore != DW_CLR_DEFAULT)
						{
							SetTextColor((HDC)mp1, RGB(_red[thiscinfo->fore],
													   _green[thiscinfo->fore],
													   _blue[thiscinfo->fore]));
						}
					}
					else if((thiscinfo->fore & DW_RGB_COLOR) == DW_RGB_COLOR)
					{
						SetTextColor((HDC)mp1, RGB(DW_RED_VALUE(thiscinfo->fore),
												   DW_GREEN_VALUE(thiscinfo->fore),
												   DW_BLUE_VALUE(thiscinfo->fore)));
					}
					/* Handle background */
					if(thiscinfo->back > -1 && thiscinfo->back < 18)
					{
						if(thiscinfo->back != DW_CLR_DEFAULT)
						{
							SetBkColor((HDC)mp1, RGB(_red[thiscinfo->back],
													 _green[thiscinfo->back],
													 _blue[thiscinfo->back]));
							if(thiscinfo->hbrush)
								DeleteObject(thiscinfo->hbrush);
							thiscinfo->hbrush = CreateSolidBrush(RGB(_red[thiscinfo->back],
																	 _green[thiscinfo->back],
																	 _blue[thiscinfo->back]));
							SelectObject(hdcPaint, thiscinfo->hbrush);
							Rectangle(hdcPaint, ps.rcPaint.left - 1, ps.rcPaint.top - 1, ps.rcPaint.right + 1, ps.rcPaint.bottom + 1);
							success = TRUE;
						}
					}
					else if((thiscinfo->back & DW_RGB_COLOR) == DW_RGB_COLOR)
					{
						SetBkColor((HDC)mp1, RGB(DW_RED_VALUE(thiscinfo->back),
												 DW_GREEN_VALUE(thiscinfo->back),
												 DW_BLUE_VALUE(thiscinfo->back)));
						if(thiscinfo->hbrush)
							DeleteObject(thiscinfo->hbrush);
						thiscinfo->hbrush = CreateSolidBrush(RGB(DW_RED_VALUE(thiscinfo->back),
																 DW_GREEN_VALUE(thiscinfo->back),
																 DW_BLUE_VALUE(thiscinfo->back)));
						SelectObject(hdcPaint, thiscinfo->hbrush);
						Rectangle(hdcPaint, ps.rcPaint.left - 1, ps.rcPaint.top - 1, ps.rcPaint.right + 1, ps.rcPaint.bottom + 1);
						success = TRUE;
					}
				}

				EndPaint(hWnd, &ps);
				if(success)
					return FALSE;
			}

		}
		break;
	}
	return DefWindowProc(hWnd, msg, mp1, mp2);
}

BOOL CALLBACK _rendwndproc(HWND hWnd, UINT msg, WPARAM mp1, LPARAM mp2)
{
	switch( msg )
	{
	case WM_LBUTTONDOWN:
	case WM_MBUTTONDOWN:
	case WM_RBUTTONDOWN:
		SetFocus(hWnd);
		_wndproc(hWnd, msg, mp1, mp2);
		break;
	case WM_LBUTTONUP:
	case WM_MBUTTONUP:
	case WM_RBUTTONUP:
	case WM_MOUSEMOVE:
	case WM_PAINT:
	case WM_SIZE:
	case WM_COMMAND:
	case WM_CHAR:
	case WM_KEYDOWN:
		_wndproc(hWnd, msg, mp1, mp2);
		break;
	}
	return DefWindowProc(hWnd, msg, mp1, mp2);
}

BOOL CALLBACK _spinnerwndproc(HWND hWnd, UINT msg, WPARAM mp1, LPARAM mp2)
{
	ColorInfo *cinfo;

	cinfo = (ColorInfo *)GetWindowLongPtr(hWnd, GWLP_USERDATA);

	if(cinfo)
	{
		switch( msg )
		{
		case WM_LBUTTONDOWN:
		case WM_MBUTTONDOWN:
		case WM_RBUTTONDOWN:
		case WM_KEYDOWN:
			{
				BOOL ret;

				if(!cinfo || !cinfo->pOldProc)
					ret = DefWindowProc(hWnd, msg, mp1, mp2);
				ret = CallWindowProc(cinfo->pOldProc, hWnd, msg, mp1, mp2);

				/* Tell the edit control that a buttonpress has
				 * occured and to update it's window title.
				 */
				if(cinfo && cinfo->buddy)
					SendMessage(cinfo->buddy, WM_USER+10, 0, 0);

				SetTimer(hWnd, 100, 100, (TIMERPROC)NULL);

				return ret;
			}
			break;
		case WM_LBUTTONUP:
		case WM_MBUTTONUP:
		case WM_RBUTTONUP:
		case WM_KEYUP:
			{
				BOOL ret;

				if(!cinfo || !cinfo->pOldProc)
					ret = DefWindowProc(hWnd, msg, mp1, mp2);
				ret = CallWindowProc(cinfo->pOldProc, hWnd, msg, mp1, mp2);

				/* Tell the edit control that a buttonpress has
				 * occured and to update it's window title.
				 */
				if(cinfo && cinfo->buddy)
					SendMessage(cinfo->buddy, WM_USER+10, 0, 0);

				KillTimer(hWnd, 100);

				return ret;
			}
			break;
		case WM_TIMER:
			{
				if(mp1 == 100)
				{
					BOOL ret;

					if(cinfo && cinfo->buddy)
						SendMessage(cinfo->buddy, WM_USER+10, 0, 0);

					if(!cinfo || !cinfo->pOldProc)
						ret = DefWindowProc(hWnd, msg, mp1, mp2);
					ret = CallWindowProc(cinfo->pOldProc, hWnd, msg, mp1, mp2);

					/* Tell the edit control that a buttonpress has
					 * occured and to update it's window title.
					 */
					if(cinfo && cinfo->buddy)
						SendMessage(cinfo->buddy, WM_USER+10, 0, 0);

					return ret;
				}
			}
			break;
		case WM_USER+10:
			{
				if(cinfo->buddy)
				{
					char tempbuf[100] = "";
					long position;

					GetWindowText(cinfo->buddy, tempbuf, 99);

					position = atol(tempbuf);

					if(IS_IE5PLUS)
						SendMessage(hWnd, UDM_SETPOS32, 0, (LPARAM)position);
					else
						SendMessage(hWnd, UDM_SETPOS, 0, (LPARAM)MAKELONG((short)position, 0));
				}
			}
			break;
		}
	}

	if(!cinfo || !cinfo->pOldProc)
		return DefWindowProc(hWnd, msg, mp1, mp2);
	return CallWindowProc(cinfo->pOldProc, hWnd, msg, mp1, mp2);
}

void _click_default(HWND handle)
{
	char tmpbuf[100];

	GetClassName(handle, tmpbuf, 99);

	/* These are the window classes which can
	 * obtain input focus.
	 */
	if(strnicmp(tmpbuf, BUTTONCLASSNAME, strlen(BUTTONCLASSNAME))==0)
	{
		/* Generate click on default item */
		SignalHandler *tmp = Root;

		/* Find any callbacks for this function */
		while(tmp)
		{
			if(tmp->message == WM_COMMAND)
			{
				int (*clickfunc)(HWND, void *) = tmp->signalfunction;

				/* Make sure it's the right window, and the right ID */
				if(tmp->window == handle)
				{
					clickfunc(tmp->window, tmp->data);
					tmp = NULL;
				}
			}
			if(tmp)
				tmp= tmp->next;
		}
	}
	else
		SetFocus(handle);
}

BOOL CALLBACK _colorwndproc(HWND hWnd, UINT msg, WPARAM mp1, LPARAM mp2)
{
	ColorInfo *cinfo;
	char tmpbuf[100];
	WNDPROC pOldProc = 0;

	cinfo = (ColorInfo *)GetWindowLongPtr(hWnd, GWLP_USERDATA);

	GetClassName(hWnd, tmpbuf, 99);
	if(strcmp(tmpbuf, FRAMECLASSNAME) == 0)
		cinfo = &(((Box *)cinfo)->cinfo);

	if(cinfo)
	{
		pOldProc = cinfo->pOldProc;

		switch( msg )
		{
		case WM_SETFOCUS:
            if(cinfo->combo)
				_wndproc(cinfo->combo, msg, mp1, mp2);
			else
				_wndproc(hWnd, msg, mp1, mp2);
			break;
		case WM_VSCROLL:
		case WM_HSCROLL:
			_wndproc(hWnd, msg, mp1, mp2);
			break;
		case WM_KEYDOWN:
		case WM_KEYUP:
			{
				if(mp1 == VK_UP || mp1 == VK_DOWN)
				{
					BOOL ret;

					if(!cinfo || !cinfo->pOldProc)
						ret = DefWindowProc(hWnd, msg, mp1, mp2);
					ret = CallWindowProc(cinfo->pOldProc, hWnd, msg, mp1, mp2);

					/* Tell the spinner control that a keypress has
					 * occured and to update it's internal value.
					 */
					if(cinfo && cinfo->buddy && !cinfo->combo)
						PostMessage(hWnd, WM_USER+10, 0, 0);

                    if(msg == WM_KEYDOWN)
						SetTimer(hWnd, 101, 100, (TIMERPROC)NULL);
                    else
						KillTimer(hWnd, 101);

					return ret;
				}
			}
			break;
		case WM_TIMER:
			{
				if(mp1 == 101)
				{
					BOOL ret;

					if(!cinfo || !cinfo->pOldProc)
						ret = DefWindowProc(hWnd, msg, mp1, mp2);
					ret = CallWindowProc(cinfo->pOldProc, hWnd, msg, mp1, mp2);

					/* Tell the spinner control that a keypress has
					 * occured and to update it's internal value.
					 */
					if(cinfo && cinfo->buddy && !cinfo->combo)
						PostMessage(hWnd, WM_USER+10, 0, 0);

					return ret;
				}
			}
			break;
		case WM_CHAR:
			_wndproc(hWnd, msg, mp1, mp2);
			if(LOWORD(mp1) == '\t')
			{
				if(GetAsyncKeyState(VK_SHIFT) & 0x8000)
				{
					if(cinfo->combo)
						_shift_focus_back(cinfo->combo);
					else if(cinfo->buddy)
						_shift_focus_back(cinfo->buddy);
					else
						_shift_focus_back(hWnd);
				}
				else
				{
					if(cinfo->combo)
						_shift_focus(cinfo->combo);
					else if(cinfo->buddy)
						_shift_focus(cinfo->buddy);
					else
						_shift_focus(hWnd);
				}
				return FALSE;
			}
			else if(LOWORD(mp1) == '\r')
			{
				if(cinfo->clickdefault)
					_click_default(cinfo->clickdefault);

			}

			/* Tell the spinner control that a keypress has
			 * occured and to update it's internal value.
			 */
			if(cinfo->buddy && !cinfo->combo)
			{
				if(IsWinNT())
					PostMessage(cinfo->buddy, WM_USER+10, 0, 0);
				else
					SendMessage(cinfo->buddy, WM_USER+10, 0, 0);
			}
			break;
		case WM_USER+10:
			{
				if(cinfo->buddy)
				{
					long val;

					if(IS_IE5PLUS)
						val = (long)SendMessage(cinfo->buddy, UDM_GETPOS32, 0, 0);
					else
						val = (long)SendMessage(cinfo->buddy, UDM_GETPOS, 0, 0);

					sprintf(tmpbuf, "%d", val);
					SetWindowText(hWnd, tmpbuf);
				}
			}
			break;
		case WM_CTLCOLORSTATIC:
		case WM_CTLCOLORLISTBOX:
		case WM_CTLCOLORBTN:
		case WM_CTLCOLOREDIT:
		case WM_CTLCOLORMSGBOX:
		case WM_CTLCOLORSCROLLBAR:
		case WM_CTLCOLORDLG:
			{
				ColorInfo *thiscinfo = (ColorInfo *)GetWindowLongPtr((HWND)mp2, GWLP_USERDATA);
				if(thiscinfo && thiscinfo->fore != -1 && thiscinfo->back != -1)
				{
					/* Handle foreground */
					if(thiscinfo->fore > -1 && thiscinfo->fore < 18)
					{
						if(thiscinfo->fore != DW_CLR_DEFAULT)
						{
							SetTextColor((HDC)mp1, RGB(_red[thiscinfo->fore],
													   _green[thiscinfo->fore],
													   _blue[thiscinfo->fore]));
						}
					}
					else if((thiscinfo->fore & DW_RGB_COLOR) == DW_RGB_COLOR)
					{
						SetTextColor((HDC)mp1, RGB(DW_RED_VALUE(thiscinfo->fore),
												   DW_GREEN_VALUE(thiscinfo->fore),
												   DW_BLUE_VALUE(thiscinfo->fore)));
					}
					/* Handle background */
					if(thiscinfo->back > -1 && thiscinfo->back < 18)
					{
						if(thiscinfo->back == DW_CLR_DEFAULT)
						{
							HBRUSH hbr = GetSysColorBrush(COLOR_3DFACE);

							SetBkColor((HDC)mp1, GetSysColor(COLOR_3DFACE));


							SelectObject((HDC)mp1, hbr);
							return (LONG)hbr;
						}
						else
						{
							SetBkColor((HDC)mp1, RGB(_red[thiscinfo->back],
													 _green[thiscinfo->back],
													 _blue[thiscinfo->back]));
							if(thiscinfo->hbrush)
								DeleteObject(thiscinfo->hbrush);
							thiscinfo->hbrush = CreateSolidBrush(RGB(_red[thiscinfo->back],
																	 _green[thiscinfo->back],
																	 _blue[thiscinfo->back]));
							SelectObject((HDC)mp1, thiscinfo->hbrush);
						}
						return (LONG)thiscinfo->hbrush;
					}
					else if((thiscinfo->back & DW_RGB_COLOR) == DW_RGB_COLOR)
					{
						SetBkColor((HDC)mp1, RGB(DW_RED_VALUE(thiscinfo->back),
												 DW_GREEN_VALUE(thiscinfo->back),
												 DW_BLUE_VALUE(thiscinfo->back)));
						if(thiscinfo->hbrush)
							DeleteObject(thiscinfo->hbrush);
						thiscinfo->hbrush = CreateSolidBrush(RGB(DW_RED_VALUE(thiscinfo->back),
																 DW_GREEN_VALUE(thiscinfo->back),
																 DW_BLUE_VALUE(thiscinfo->back)));
						SelectObject((HDC)mp1, thiscinfo->hbrush);
						return (LONG)thiscinfo->hbrush;
					}
				}

			}
			break;
		}
	}

	if(!pOldProc)
		return DefWindowProc(hWnd, msg, mp1, mp2);
	return CallWindowProc(pOldProc, hWnd, msg, mp1, mp2);
}

BOOL CALLBACK _containerwndproc(HWND hWnd, UINT msg, WPARAM mp1, LPARAM mp2)
{
	ContainerInfo *cinfo;

	cinfo = (ContainerInfo *)GetWindowLongPtr(hWnd, GWLP_USERDATA);

	switch( msg )
	{
	case WM_COMMAND:
	case WM_NOTIFY:
		_wndproc(hWnd, msg, mp1, mp2);
		break;
	case WM_LBUTTONDBLCLK:
	case WM_CHAR:
		{
			LV_ITEM lvi;
			int iItem;

			if(LOWORD(mp1) == '\t')
			{
				if(GetAsyncKeyState(VK_SHIFT) & 0x8000)
					_shift_focus_back(hWnd);
				else
					_shift_focus(hWnd);
				return FALSE;
			}

			if(msg == WM_CHAR && (char)mp1 != '\r')
				break;

			iItem = ListView_GetNextItem(hWnd, -1, LVNI_FOCUSED);

			memset(&lvi, 0, sizeof(LV_ITEM));

			if(iItem > -1)
			{
				lvi.iItem = iItem;
				lvi.mask = LVIF_PARAM;

				ListView_GetItem(hWnd, &lvi);
			}

			{
				SignalHandler *tmp = Root;

				while(tmp)
				{
					if(tmp->message == NM_DBLCLK && tmp->window == hWnd)
					{
						int (*containerselectfunc)(HWND, char *, void *) = tmp->signalfunction;

						/* Seems to be having lParam as 1 which really sucks */
						if(lvi.lParam < 100)
							lvi.lParam = 0;

						containerselectfunc(tmp->window, (char *)lvi.lParam, tmp->data);
						tmp = NULL;
					}
					if(tmp)
						tmp = tmp->next;
				}
			}
		}
		break;
	case WM_CONTEXTMENU:
		{
			SignalHandler *tmp = Root;

			while(tmp)
			{
				if(tmp->message == NM_RCLICK && tmp->window == hWnd)
				{
					int (*containercontextfunc)(HWND, char *, int, int, void *, void *) = tmp->signalfunction;
					LONG x,y;
					LV_ITEM lvi;
					int iItem;
					LVHITTESTINFO lhi;

					dw_pointer_query_pos(&x, &y);

					lhi.pt.x = x;
					lhi.pt.y = y;

					MapWindowPoints(HWND_DESKTOP, tmp->window, &lhi.pt, 1);

					iItem = ListView_HitTest(tmp->window, &lhi);

					memset(&lvi, 0, sizeof(LV_ITEM));

					if(iItem > -1)
					{
						lvi.iItem = iItem;
						lvi.mask = LVIF_PARAM;

						ListView_GetItem(tmp->window, &lvi);
						ListView_SetSelectionMark(tmp->window, iItem);
					}

					/* Seems to be having lParam as 1 which really sucks */
					if(lvi.lParam < 100)
						lvi.lParam = 0;

					containercontextfunc(tmp->window, (char *)lvi.lParam, x, y, tmp->data, NULL);
					tmp = NULL;
				}
				if(tmp)
					tmp = tmp->next;
			}
		}
		break;
	}

	if(!cinfo || !cinfo->pOldProc)
		return DefWindowProc(hWnd, msg, mp1, mp2);
	return CallWindowProc(cinfo->pOldProc, hWnd, msg, mp1, mp2);
}

BOOL CALLBACK _treewndproc(HWND hWnd, UINT msg, WPARAM mp1, LPARAM mp2)
{
	ContainerInfo *cinfo;

	cinfo = (ContainerInfo *)GetWindowLongPtr(hWnd, GWLP_USERDATA);

	switch( msg )
	{
	case WM_CHAR:
		if(LOWORD(mp1) == '\t')
		{
			if(GetAsyncKeyState(VK_SHIFT) & 0x8000)
				_shift_focus_back(hWnd);
			else
				_shift_focus(hWnd);
			return FALSE;
		}
		break;
	}

	if(!cinfo || !cinfo->pOldProc)
		return DefWindowProc(hWnd, msg, mp1, mp2);
	return CallWindowProc(cinfo->pOldProc, hWnd, msg, mp1, mp2);
}

void _changebox(Box *thisbox, int percent, int type)
{
	int z;

	for(z=0;z<thisbox->count;z++)
	{
		if(thisbox->items[z].type == TYPEBOX)
		{
			Box *tmp = (Box*)GetWindowLongPtr(thisbox->items[z].hwnd, GWLP_USERDATA);
			_changebox(tmp, percent, type);
		}
		else
		{
			if(type == DW_HORZ)
			{
				if(thisbox->items[z].hsize == SIZEEXPAND)
					thisbox->items[z].width = (int)(((float)thisbox->items[z].origwidth) * (((float)percent)/((float)100.0)));
			}
			else
			{
				if(thisbox->items[z].vsize == SIZEEXPAND)
					thisbox->items[z].height = (int)(((float)thisbox->items[z].origheight) * (((float)percent)/((float)100.0)));
			}
		}
	}
}

void _handle_splitbar_resize(HWND hwnd, float percent, int type, int x, int y)
{
	if(type == DW_HORZ)
	{
		int newx = x;
		float ratio = (float)percent/(float)100.0;
		HWND handle1 = (HWND)dw_window_get_data(hwnd, "_dw_topleft");
		HWND handle2 = (HWND)dw_window_get_data(hwnd, "_dw_bottomright");
		Box *tmp = (Box *)GetWindowLongPtr(handle1, GWLP_USERDATA);

		newx = (int)((float)newx * ratio) - (SPLITBAR_WIDTH/2);

		ShowWindow(handle1, SW_HIDE);
		ShowWindow(handle2, SW_HIDE);

		MoveWindow(handle1, 0, 0, newx, y, FALSE);
		_do_resize(tmp, newx - 1, y - 1);

		tmp = (Box *)GetWindowLongPtr(handle2, GWLP_USERDATA);

		newx = x - newx - SPLITBAR_WIDTH;

		MoveWindow(handle2, x - newx, 0, newx, y, FALSE);
		_do_resize(tmp, newx - 1, y - 1);

		ShowWindow(handle1, SW_SHOW);
		ShowWindow(handle2, SW_SHOW);

		dw_window_set_data(hwnd, "_dw_start", (void *)newx);
	}
	else
	{
		int newy = y;
		float ratio = (float)(100.0-percent)/(float)100.0;
		HWND handle1 = (HWND)dw_window_get_data(hwnd, "_dw_bottomright");
		HWND handle2 = (HWND)dw_window_get_data(hwnd, "_dw_topleft");
		Box *tmp = (Box *)GetWindowLongPtr(handle1, GWLP_USERDATA);

		newy = (int)((float)newy * ratio) - (SPLITBAR_WIDTH/2);

		ShowWindow(handle1, SW_HIDE);
		ShowWindow(handle2, SW_HIDE);

		MoveWindow(handle1, 0, y - newy, x, newy, FALSE);
		_do_resize(tmp, x - 1, newy - 1);

		tmp = (Box *)GetWindowLongPtr(handle2, GWLP_USERDATA);

		newy = y - newy - SPLITBAR_WIDTH;

		MoveWindow(handle2, 0, 0, x, newy, FALSE);
		_do_resize(tmp, x - 1, newy - 1);

		ShowWindow(handle1, SW_SHOW);
		ShowWindow(handle2, SW_SHOW);

		dw_window_set_data(hwnd, "_dw_start", (void *)newy);
	}
}

/* This handles any activity on the splitbars (sizers) */
BOOL CALLBACK _splitwndproc(HWND hwnd, UINT msg, WPARAM mp1, LPARAM mp2)
{
	float *percent = (float *)dw_window_get_data(hwnd, "_dw_percent");
	int type = (int)dw_window_get_data(hwnd, "_dw_type");
	int start = (int)dw_window_get_data(hwnd, "_dw_start");

	switch (msg)
	{
	case WM_ACTIVATE:
	case WM_SETFOCUS:
		return FALSE;

	case WM_PAINT:
		{
			PAINTSTRUCT ps;
			HDC hdcPaint;

			BeginPaint(hwnd, &ps);

			if((hdcPaint = GetDC(hwnd)) != NULL)
			{
				int cx, cy;
				HBRUSH oldBrush = SelectObject(hdcPaint, GetSysColorBrush(COLOR_3DFACE));
				HPEN oldPen = SelectObject(hdcPaint, CreatePen(PS_SOLID, 1, GetSysColor(COLOR_3DFACE)));

				dw_window_get_pos_size(hwnd, NULL, NULL, &cx, &cy);

				if(type == DW_HORZ)
					Rectangle(hdcPaint, cx - start - SPLITBAR_WIDTH, 0, cx - start, cy);
				else
					Rectangle(hdcPaint, 0, start, cx, start + SPLITBAR_WIDTH);

				SelectObject(hdcPaint, oldBrush);
				DeleteObject(SelectObject(hdcPaint, oldPen));
				ReleaseDC(hwnd, hdcPaint);
			}
			EndPaint(hwnd, &ps);
		}
		break;
	case WM_LBUTTONDOWN:
		{
			SetCapture(hwnd);
			break;
		}
	case WM_LBUTTONUP:
		{
            if(GetCapture() == hwnd)
				ReleaseCapture();
		}
		break;
	case WM_MOUSEMOVE:
		{
			if(type == DW_HORZ)
				SetCursor(LoadCursor(NULL, IDC_SIZEWE));
			else
				SetCursor(LoadCursor(NULL, IDC_SIZENS));

			if(GetCapture() == hwnd && percent)
			{
				POINT point;
				RECT rect;
				static POINT lastpoint;

				GetCursorPos(&point);
				GetWindowRect(hwnd, &rect);

				if(memcmp(&point, &lastpoint, sizeof(POINT)))
				{
					if(PtInRect(&rect, point))
					{
						int width = (rect.right - rect.left);
						int height = (rect.bottom - rect.top);

						if(type == DW_HORZ)
						{
							start = point.x - rect.left;
							if(width - SPLITBAR_WIDTH > 1 && start < width - SPLITBAR_WIDTH)
								*percent = ((float)start / (float)(width - SPLITBAR_WIDTH)) * 100.0;
						}
						else
						{
							start = point.y - rect.top;
							if(height - SPLITBAR_WIDTH > 1 && start < height - SPLITBAR_WIDTH)
								*percent = ((float)start / (float)(height - SPLITBAR_WIDTH)) * 100.0;
						}
						_handle_splitbar_resize(hwnd, *percent, type, width, height);
					}
					memcpy(&lastpoint, &point, sizeof(POINT));
				}
			}
			break;
		}
	}
	return DefWindowProc(hwnd, msg, mp1, mp2);
}

/* This handles drawing the status text areas */
BOOL CALLBACK _statuswndproc(HWND hwnd, UINT msg, WPARAM mp1, LPARAM mp2)
{
	switch (msg)
	{
	case WM_SETTEXT:
		{
			/* Make sure the control redraws when there is a text change */
			int ret = (int)DefWindowProc(hwnd, msg, mp1, mp2);

			InvalidateRgn(hwnd, NULL, TRUE);
			return ret;
		}
	case WM_PAINT:
		{
			HDC hdcPaint;
			PAINTSTRUCT ps;
			RECT rc;
			unsigned long cx, cy;
			int threadid = dw_thread_id();
			char tempbuf[1024] = "";
			ColorInfo *cinfo = (ColorInfo *)GetWindowLongPtr(hwnd, GWLP_USERDATA);
			HFONT hfont = _acquire_font(hwnd, cinfo ? cinfo->fontname : NULL);
			HFONT oldfont = (HFONT)SendMessage(hwnd, WM_GETFONT, 0, 0);

			dw_window_get_pos_size(hwnd, NULL, NULL, &cx, &cy);
			GetWindowText(hwnd, tempbuf, 1024);

			hdcPaint = BeginPaint(hwnd, &ps);
			if(hfont)
				oldfont = (HFONT)SelectObject(hdcPaint, hfont);
			rc.top = rc.left = 0;
			rc.right = cx;
			rc.bottom = cy;
			DrawStatusText(hdcPaint, &rc, tempbuf, 0);
			if(hfont && oldfont)
				SelectObject(hdcPaint, oldfont);
			if(hfont)
				DeleteObject(hfont);
			EndPaint(hwnd, &ps);
		}
		return FALSE;
	}
	return DefWindowProc(hwnd, msg, mp1, mp2);
}

/* Function: _BtProc
 * Abstract: Subclass procedure for buttons
 */

BOOL CALLBACK _BtProc(HWND hwnd, ULONG msg, WPARAM mp1, LPARAM mp2)
{
	BubbleButton *bubble;
	static int bMouseOver = 0;
	POINT point;
	RECT rect;
	WNDPROC pOldProc;

	bubble = (BubbleButton *)GetWindowLongPtr(hwnd, GWLP_USERDATA);

	if(!bubble)
		return DefWindowProc(hwnd, msg, mp1, mp2);

	/* We must save a pointer to the old
	 * window procedure because if a signal
	 * handler attached here destroys this
	 * window it will then be invalid.
	 */
	pOldProc = bubble->pOldProc;

	switch(msg)
	{
	case WM_CTLCOLORSTATIC:
	case WM_CTLCOLORLISTBOX:
	case WM_CTLCOLORBTN:
	case WM_CTLCOLOREDIT:
	case WM_CTLCOLORMSGBOX:
	case WM_CTLCOLORSCROLLBAR:
	case WM_CTLCOLORDLG:
		_wndproc(hwnd, msg, mp1, mp2);
		break;
	case WM_SETFOCUS:
		_wndproc(hwnd, msg, mp1, mp2);
		break;
	case WM_LBUTTONUP:
		{
			SignalHandler *tmp = Root;

			/* Find any callbacks for this function */
			while(tmp)
			{
				if(tmp->message == WM_COMMAND)
				{
					int (*clickfunc)(HWND, void *) = tmp->signalfunction;

					/* Make sure it's the right window, and the right ID */
					if(tmp->window == hwnd)
					{
						if(bubble->checkbox)
							in_checkbox_handler = 1;

						clickfunc(tmp->window, tmp->data);

						if(bubble->checkbox)
							in_checkbox_handler = 0;
						tmp = NULL;
					}
				}
				if(tmp)
					tmp= tmp->next;
			}
		}
		break;
	case WM_CHAR:
		{
			/* A button press should also occur for an ENTER or SPACE press
			 * while the button has the active input focus.
			 */
			if(LOWORD(mp1) == '\r' || LOWORD(mp1) == ' ')
			{
				SignalHandler *tmp = Root;

				/* Find any callbacks for this function */
				while(tmp)
				{
					if(tmp->message == WM_COMMAND)
					{
						int (*clickfunc)(HWND, void *) = tmp->signalfunction;

						/* Make sure it's the right window, and the right ID */
						if(tmp->window == hwnd)
						{
							clickfunc(tmp->window, tmp->data);
							tmp = NULL;
						}
					}
					if(tmp)
						tmp= tmp->next;
				}
			}
			if(LOWORD(mp1) == '\t')
			{
				if(GetAsyncKeyState(VK_SHIFT) & 0x8000)
					_shift_focus_back(hwnd);
				else
					_shift_focus(hwnd);
				return FALSE;
			}
		}
		break;
	case WM_KEYDOWN:
		if(mp1 == VK_LEFT || mp1 == VK_UP)
			_shift_focus_back(hwnd);
		if(mp1 == VK_RIGHT || mp1 == VK_DOWN)
			_shift_focus(hwnd);
		break;
	case WM_TIMER:
		if (hwndBubble)
		{
			_free_window_memory(hwndBubble, 0);
			DestroyWindow(hwndBubble);
			hwndBubble = 0;
			KillTimer(hwnd, 1);
		}
		break;

	case WM_MOUSEMOVE:
		GetCursorPos(&point);
		GetWindowRect(hwnd, &rect);

		if(PtInRect(&rect, point))
		{
			if(hwnd != GetCapture())
			{
				SetCapture(hwnd);
			}
			if(!bMouseOver)
			{
				bMouseOver = 1;
				if(!*bubble->bubbletext)
					break;

				if(hwndBubble)
				{
					_free_window_memory(hwndBubble, 0);
					DestroyWindow(hwndBubble);
					hwndBubble = 0;
					KillTimer(hwndBubbleLast, 1);
				}

				if(!hwndBubble)
				{
					POINTL ptlWork = {0,0};
					ULONG ulColor = DW_CLR_YELLOW;
					SIZE size;
					HFONT hFont, oldFont = (HFONT)0;
					HDC hdc;
					RECT rect;
					void *oldproc;

					/* Use the WS_EX_TOOLWINDOW extended style
					 * so the window doesn't get listed in the
					 * taskbar.
					 */
					hwndBubble = CreateWindowEx(WS_EX_TOOLWINDOW,
												STATICCLASSNAME,
												bubble->bubbletext,
												BS_TEXT | WS_POPUP |
												WS_BORDER |
												SS_CENTER,
												0,0,50,20,
												HWND_DESKTOP,
												NULL,
												DWInstance,
												NULL);

					dw_window_set_font(hwndBubble, DefaultFont);
					dw_window_set_color(hwndBubble, DW_CLR_BLACK, DW_CLR_YELLOW);

					hwndBubbleLast = hwnd;

					SetTimer(hwnd, 1, 3000, NULL);

					hFont = (HFONT)SendMessage(hwndBubble, WM_GETFONT, 0, 0);

					hdc = GetDC(hwndBubble);

					if(hFont)
						oldFont = (HFONT)SelectObject(hdc, hFont);

					GetTextExtentPoint32(hdc, bubble->bubbletext, strlen(bubble->bubbletext), &size);

					if(hFont)
						SelectObject(hdc, oldFont);

					MapWindowPoints(hwnd, HWND_DESKTOP, (LPPOINT)&ptlWork, 1);

					GetWindowRect(hwnd, &rect);

					SetWindowPos(hwndBubble,
								 HWND_TOP,
								 ptlWork.x,
								 ptlWork.y + (rect.bottom-rect.top) + 1,
								 size.cx + 8,
								 size.cy + 2,
								 SWP_NOACTIVATE | SWP_SHOWWINDOW);

					ReleaseDC(hwndBubble, hdc);
				}
			}
		}
		else{
			/* Calling ReleaseCapture in Win95 also causes WM_CAPTURECHANGED
			 * to be sent.  Be sure to account for that.
			 */
			ReleaseCapture();

			if(bMouseOver)
			{
				bMouseOver = 0;
				_free_window_memory(hwndBubble, 0);
				DestroyWindow(hwndBubble);
				hwndBubble = 0;
				KillTimer(hwndBubbleLast, 1);
			}
		}
		break;
	case WM_CAPTURECHANGED:
		/* This message means we are losing the capture for some reason
		 * Either because we intentionally lost it or another window
		 * stole it
		 */
		if(bMouseOver)
		{
			bMouseOver = 0;
			_free_window_memory(hwndBubble, 0);
			DestroyWindow(hwndBubble);
			hwndBubble = 0;
			KillTimer(hwndBubbleLast, 1);
		}
		break;
	}

	if(!pOldProc)
		return DefWindowProc(hwnd, msg, mp1, mp2);
	return CallWindowProc(pOldProc, hwnd, msg, mp1, mp2);
}

/* This function recalculates a notebook page for example
 * during switching of notebook pages.
 */
void _resize_notebook_page(HWND handle, int pageid)
{
	RECT rect;
	NotebookPage **array = (NotebookPage **)dw_window_get_data(handle, "_dw_array");

	if(array && array[pageid])
	{
		Box *box = (Box *)GetWindowLongPtr(array[pageid]->hwnd, GWLP_USERDATA);

		GetClientRect(handle,&rect);
		TabCtrl_AdjustRect(handle,FALSE,&rect);
		MoveWindow(array[pageid]->hwnd, rect.left, rect.top,
				   rect.right - rect.left, rect.bottom-rect.top, TRUE);
		if(box && box->count)
		{
			ShowWindow(box->items[0].hwnd, SW_HIDE);
			_do_resize(box, rect.right - rect.left, rect.bottom - rect.top);
			ShowWindow(box->items[0].hwnd, SW_SHOW);
		}

		ShowWindow(array[pageid]->hwnd, SW_SHOWNORMAL);
	}
}

/*
 * Initializes the Dynamic Windows engine.
 * Parameters:
 *           newthread: True if this is the only thread.
 *                      False if there is already a message loop running.
 */
int API dw_init(int newthread, int argc, char *argv[])
{
	WNDCLASS wc;
	int z;
	INITCOMMONCONTROLSEX icc;

	icc.dwSize = sizeof(INITCOMMONCONTROLSEX);
	icc.dwICC = ICC_WIN95_CLASSES;

	InitCommonControlsEx(&icc);

	memset(lookup, 0, sizeof(HICON) * ICON_INDEX_LIMIT);

	/* Register the generic Dynamic Windows class */
	memset(&wc, 0, sizeof(WNDCLASS));
	wc.style = CS_DBLCLKS;
	wc.lpfnWndProc = (WNDPROC)_wndproc;
	wc.cbClsExtra = 0;
	wc.cbWndExtra = 32;
	wc.hbrBackground = NULL;
	wc.lpszMenuName = NULL;
	wc.lpszClassName = ClassName;

	RegisterClass(&wc);

	/* Register the splitbar control */
	memset(&wc, 0, sizeof(WNDCLASS));
	wc.style = CS_DBLCLKS | CS_HREDRAW | CS_VREDRAW;
	wc.lpfnWndProc = (WNDPROC)_splitwndproc;
	wc.cbClsExtra = 0;
	wc.cbWndExtra = 0;
	wc.hbrBackground = NULL;
	wc.lpszMenuName = NULL;
	wc.lpszClassName = SplitbarClassName;

	RegisterClass(&wc);

	/* Register a frame control like on OS/2 */
	memset(&wc, 0, sizeof(WNDCLASS));
	wc.style = CS_DBLCLKS;
	wc.lpfnWndProc = (WNDPROC)_framewndproc;
	wc.cbClsExtra = 0;
	wc.cbWndExtra = 32;
	wc.hbrBackground = (HBRUSH)GetSysColorBrush(COLOR_3DFACE);
	wc.hCursor = LoadCursor(NULL, IDC_ARROW);
	wc.lpszMenuName = NULL;
	wc.lpszClassName = FRAMECLASSNAME;

	RegisterClass(&wc);

	/* Create a set of brushes using the default OS/2 and DOS colors */
	for(z=0;z<18;z++)
		_colors[z] = CreateSolidBrush(RGB(_red[z],_green[z],_blue[z]));

	/* Register an Object Windows class like OS/2 and Win2k+
	 * so similar functionality can be used on earlier releases
	 * of Windows.
	 */
	memset(&wc, 0, sizeof(WNDCLASS));
	wc.style = 0;
	wc.lpfnWndProc = (WNDPROC)_wndproc;
	wc.cbClsExtra = 0;
	wc.cbWndExtra = 0;
	wc.hbrBackground = NULL;
	wc.hCursor = LoadCursor(NULL, IDC_ARROW);
	wc.lpszMenuName = NULL;
	wc.lpszClassName = ObjectClassName;

	RegisterClass(&wc);

	/* Since Windows 95/98/NT don't have a HWND_OBJECT class
	 * also known as a input only window, I will create a
	 * temporary window that isn't visible and really does nothing
	 * except temporarily hold the child windows before they are
	 * packed into their correct parent.
	 */

	DW_HWND_OBJECT = CreateWindow(ObjectClassName, "", 0, 0, 0,
								  0, 0, HWND_DESKTOP, NULL, DWInstance, NULL);

	if(!DW_HWND_OBJECT)
	{
		dw_messagebox("Dynamic Windows", DW_MB_OK|DW_MB_ERROR, "Could not initialize the object window. error code %d", GetLastError());
		exit(1);
	}

	/* We need the version to check capability like up-down controls */
	dwVersion = GetVersion();
	dwComctlVer = GetDllVersion(TEXT("comctl32.dll"));

	for(z=0;z<THREAD_LIMIT;z++)
	{
		_foreground[z] = RGB(128,128,128);
		_background[z] = DW_RGB_TRANSPARENT;
		_hPen[z] = CreatePen(PS_SOLID, 1, _foreground[z]);
		_hBrush[z] = CreateSolidBrush(_foreground[z]);
	}

	return 0;
}

/*
 * Runs a message loop for Dynamic Windows.
 */
void API dw_main(void)
{
	MSG msg;

	_dwtid = dw_thread_id();

	while(GetMessage(&msg, NULL, 0, 0))
	{
		if(msg.hwnd == NULL && msg.message == WM_TIMER)
			_wndproc(msg.hwnd, msg.message, msg.wParam, msg.lParam);
		TranslateMessage(&msg);
		DispatchMessage(&msg);
	}
}

/*
 * Runs a message loop for Dynamic Windows, for a period of milliseconds.
 * Parameters:
 *           milliseconds: Number of milliseconds to run the loop for.
 */
void API dw_main_sleep(int milliseconds)
{
	MSG msg;
	double start = (double)clock();

	while(((clock() - start) / (CLOCKS_PER_SEC/1000)) <= milliseconds)
	{
		if(PeekMessage(&msg, NULL, 0, 0, PM_NOREMOVE))
		{
			GetMessage(&msg, NULL, 0, 0);
			if(msg.hwnd == NULL && msg.message == WM_TIMER)
				_wndproc(msg.hwnd, msg.message, msg.wParam, msg.lParam);
			TranslateMessage(&msg);
			DispatchMessage(&msg);
		}
		else
			Sleep(1);
	}
}

/*
 * Processes a single message iteration and returns.
 */
void API dw_main_iteration(void)
{
	MSG msg;

	_dwtid = dw_thread_id();

	if(GetMessage(&msg, NULL, 0, 0))
	{
		if(msg.hwnd == NULL && msg.message == WM_TIMER)
			_wndproc(msg.hwnd, msg.message, msg.wParam, msg.lParam);
		TranslateMessage(&msg);
		DispatchMessage(&msg);
	}
}

/*
 * Free's memory allocated by dynamic windows.
 * Parameters:
 *           ptr: Pointer to dynamic windows allocated
 *                memory to be free()'d.
 */
void API dw_free(void *ptr)
{
	free(ptr);
}

/*
 * Allocates and initializes a dialog struct.
 * Parameters:
 *           data: User defined data to be passed to functions.
 */
DWDialog * API dw_dialog_new(void *data)
{
	DWDialog *tmp = malloc(sizeof(DWDialog));

	tmp->eve = dw_event_new();
	dw_event_reset(tmp->eve);
	tmp->data = data;
	tmp->done = FALSE;
	tmp->result = NULL;

    return tmp;
}

/*
 * Accepts a dialog struct and returns the given data to the
 * initial called of dw_dialog_wait().
 * Parameters:
 *           dialog: Pointer to a dialog struct aquired by dw_dialog_new).
 *           result: Data to be returned by dw_dialog_wait().
 */
int API dw_dialog_dismiss(DWDialog *dialog, void *result)
{
	dialog->result = result;
	dw_event_post(dialog->eve);
	dialog->done = TRUE;
	return 0;
}

/*
 * Accepts a dialog struct waits for dw_dialog_dismiss() to be
 * called by a signal handler with the given dialog struct.
 * Parameters:
 *           dialog: Pointer to a dialog struct aquired by dw_dialog_new).
 */
void * API dw_dialog_wait(DWDialog *dialog)
{
	MSG msg;
	void *tmp;

	while (GetMessage(&msg,NULL,0,0))
	{
		if(msg.hwnd == NULL && msg.message == WM_TIMER)
			_wndproc(msg.hwnd, msg.message, msg.wParam, msg.lParam);
		TranslateMessage(&msg);
		DispatchMessage(&msg);
		if(dialog->done)
			break;
	}
	dw_event_close(&dialog->eve);
	tmp = dialog->result;
	free(dialog);
	return tmp;
}

/*
 * Displays a Message Box with given text and title..
 * Parameters:
 *           title: The title of the message box.
 *           format: printf style format string.
 *           ...: Additional variables for use in the format.
 */
int API dw_messagebox(char *title, int flags, char *format, ...)
{
	va_list args;
	char outbuf[256];
	int rc;

	va_start(args, format);
	vsprintf(outbuf, format, args);
	va_end(args);

	rc = MessageBox(HWND_DESKTOP, outbuf, title, flags);
	if(rc == IDOK)
		return DW_MB_RETURN_OK;
	else if(rc == IDYES)
		return DW_MB_RETURN_YES;
	else if(rc == IDNO)
		return DW_MB_RETURN_NO;
	else if(rc == IDCANCEL)
		return DW_MB_RETURN_CANCEL;
	else return 0;
}

/*
 * Minimizes or Iconifies a top-level window.
 * Parameters:
 *           handle: The window handle to minimize.
 */
int API dw_window_minimize(HWND handle)
{
	return ShowWindow(handle, SW_MINIMIZE);
}

/*
 * Makes the window topmost.
 * Parameters:
 *           handle: The window handle to make topmost.
 */
int API dw_window_raise(HWND handle)
{
	return SetWindowPos(handle, HWND_TOP, 0, 0, 0, 0, SWP_NOACTIVATE | SWP_NOMOVE | SWP_NOSIZE);
}

/*
 * Makes the window bottommost.
 * Parameters:
 *           handle: The window handle to make bottommost.
 */
int API dw_window_lower(HWND handle)
{
	return SetWindowPos(handle, HWND_BOTTOM, 0, 0, 0, 0, SWP_NOACTIVATE | SWP_NOMOVE | SWP_NOSIZE);
}

/*
 * Makes the window visible.
 * Parameters:
 *           handle: The window handle to make visible.
 */
int API dw_window_show(HWND handle)
{
	int rc = ShowWindow(handle, SW_SHOW);
	SetFocus(handle);
	_initial_focus(handle);
	return rc;
}

/*
 * Makes the window invisible.
 * Parameters:
 *           handle: The window handle to make visible.
 */
int API dw_window_hide(HWND handle)
{
	return ShowWindow(handle, SW_HIDE);
}

/*
 * Destroys a window and all of it's children.
 * Parameters:
 *           handle: The window handle to destroy.
 */
int API dw_window_destroy(HWND handle)
{
	HWND parent = GetParent(handle);
	Box *thisbox = (Box *)GetWindowLongPtr(parent, GWLP_USERDATA);

	if(parent != HWND_DESKTOP && thisbox && thisbox->count)
	{
		int z, index = -1;
		Item *tmpitem, *thisitem = thisbox->items;

		for(z=0;z<thisbox->count;z++)
		{
			if(thisitem[z].hwnd == handle)
				index = z;
		}

		if(index == -1)
			return 0;

		tmpitem = malloc(sizeof(Item)*(thisbox->count-1));

		/* Copy all but the current entry to the new list */
		for(z=0;z<index;z++)
		{
			tmpitem[z] = thisitem[z];
		}
		for(z=index+1;z<thisbox->count;z++)
		{
			tmpitem[z-1] = thisitem[z];
		}

		thisbox->items = tmpitem;
		free(thisitem);
		thisbox->count--;
		_free_window_memory(handle, 0);
		EnumChildWindows(handle, _free_window_memory, 0);
	}
	return DestroyWindow(handle);
}

/* Causes entire window to be invalidated and redrawn.
 * Parameters:
 *           handle: Toplevel window handle to be redrawn.
 */
void API dw_window_redraw(HWND handle)
{
	Box *mybox = (Box *)GetWindowLongPtr(handle, GWLP_USERDATA);

	if(mybox)
	{
		RECT rect;
		int istoplevel = (GetParent(handle) == HWND_DESKTOP);

		GetClientRect(handle, &rect);

		ShowWindow(istoplevel ? mybox->items[0].hwnd : handle, SW_HIDE);
		_do_resize(mybox, rect.right - rect.left, rect.bottom - rect.top);
		ShowWindow(istoplevel ? mybox->items[0].hwnd : handle, SW_SHOW);
	}
}

int instring(char *text, char *buffer)
{
	int z, len = strlen(text), buflen = strlen(buffer);

	if(buflen > len)
	{
		for(z=0;z<=(buflen-len);z++)
		{
			if(memcmp(text, &buffer[z], len) == 0)
				return z;
		}
	}
	return 0;
}

/*
 * Changes a window's parent to newparent.
 * Parameters:
 *           handle: The window handle to destroy.
 *           newparent: The window's new parent window.
 */
void API dw_window_reparent(HWND handle, HWND newparent)
{
	SetParent(handle, newparent);
}

HFONT _acquire_font(HWND handle, char *fontname)
{
	HFONT hfont = 0;

	if(fontname != DefaultFont && fontname[0])
	{
        int Italic, Bold;
		char *myFontName;
		int z, size = 9;
		LOGFONT lf;
#if 0
		HDC hDC = GetDC(handle);
#endif
		for(z=0;z<strlen(fontname);z++)
		{
			if(fontname[z]=='.')
				break;
		}
		size = atoi(fontname) + 5;
		Italic = instring(" Italic", &fontname[z+1]);
		Bold = instring(" Bold", &fontname[z+1]);
#if 0
		lf.lfHeight = -MulDiv(size, GetDeviceCaps(hDC, LOGPIXELSY), 72);
#endif
		lf.lfHeight = size;
		lf.lfWidth = 0;
		lf.lfEscapement = 0;
		lf.lfOrientation = 0;
		lf.lfItalic = Italic ? TRUE : FALSE;
		lf.lfUnderline = 0;
		lf.lfStrikeOut = 0;
		lf.lfWeight = Bold ? FW_BOLD : FW_NORMAL;
		lf.lfCharSet = DEFAULT_CHARSET;
		lf.lfOutPrecision = 0;
		lf.lfClipPrecision = 0;
		lf.lfQuality = DEFAULT_QUALITY;
		lf.lfPitchAndFamily = DEFAULT_PITCH | FW_DONTCARE;
		/* 
		 * remove any font modifiers
		 */
		myFontName = strdup(&fontname[z+1]);
		if(Italic)
			myFontName[Italic] = 0;
		if(Bold)
			myFontName[Bold] = 0;
		strcpy(lf.lfFaceName, myFontName);
		free(myFontName);

		hfont = CreateFontIndirect(&lf);
#if 0
		ReleaseDC(handle, hDC);
#endif
	}
	if(!hfont)
		hfont = GetStockObject(DEFAULT_GUI_FONT);
	return hfont;
}

/*
 * Sets the font used by a specified window (widget) handle.
 * Parameters:
 *          handle: The window (widget) handle.
 *          fontname: Name and size of the font in the form "size.fontname"
 */
int API dw_window_set_font(HWND handle, char *fontname)
{
	HFONT oldfont = (HFONT)SendMessage(handle, WM_GETFONT, 0, 0);
	HFONT hfont = _acquire_font(handle, fontname);
	ColorInfo *cinfo;

	cinfo = (ColorInfo *)GetWindowLongPtr(handle, GWLP_USERDATA);

	if(fontname)
	{
		if(cinfo)
		{
			strcpy(cinfo->fontname, fontname);
			if(!oldfont)
				oldfont = cinfo->hfont;
			cinfo->hfont = hfont;
		}
		else
		{
			cinfo = calloc(1, sizeof(ColorInfo));
			cinfo->fore = cinfo->back = -1;

			strcpy(cinfo->fontname, fontname);

			cinfo->pOldProc = SubclassWindow(handle, _colorwndproc);
			SetWindowLongPtr(handle, GWLP_USERDATA, (LONG_PTR)cinfo);
		}
	}
	SendMessage(handle, WM_SETFONT, (WPARAM)hfont, (LPARAM)TRUE);
	if(oldfont)
		DeleteObject(oldfont);
	return 0;
}

/*
 * Sets the colors used by a specified window (widget) handle.
 * Parameters:
 *          handle: The window (widget) handle.
 *          fore: Foreground color in RGB format.
 *          back: Background color in RGB format.
 */
int API dw_window_set_color(HWND handle, ULONG fore, ULONG back)
{
	ColorInfo *cinfo;
	char tmpbuf[100];

	cinfo = (ColorInfo *)GetWindowLongPtr(handle, GWLP_USERDATA);

	GetClassName(handle, tmpbuf, 99);

	if(strnicmp(tmpbuf, WC_LISTVIEW, strlen(WC_LISTVIEW))==0)
	{
		fore = _internal_color(fore);
		back = _internal_color(back);

		ListView_SetTextColor(handle, RGB(DW_RED_VALUE(fore),
										  DW_GREEN_VALUE(fore),
										  DW_BLUE_VALUE(fore)));
		ListView_SetTextBkColor(handle, RGB(DW_RED_VALUE(back),
											DW_GREEN_VALUE(back),
											DW_BLUE_VALUE(back)));
		ListView_SetBkColor(handle, RGB(DW_RED_VALUE(back),
										DW_GREEN_VALUE(back),
										DW_BLUE_VALUE(back)));
		InvalidateRgn(handle, NULL, TRUE);
		return TRUE;
	}

	if(cinfo)
	{
		cinfo->fore = fore;
		cinfo->back = back;
	}
	else
	{
		cinfo = calloc(1, sizeof(ColorInfo));

		cinfo->fore = fore;
		cinfo->back = back;

		cinfo->pOldProc = SubclassWindow(handle, _colorwndproc);
		SetWindowLongPtr(handle, GWLP_USERDATA, (LONG_PTR)cinfo);
	}
	InvalidateRgn(handle, NULL, TRUE);
	return TRUE;
}

/*
 * Sets the font used by a specified window (widget) handle.
 * Parameters:
 *          handle: The window (widget) handle.
 *          border: Size of the window border in pixels.
 */
int API dw_window_set_border(HWND handle, int border)
{
	return 0;
}

/*
 * Captures the mouse input to this window.
 * Parameters:
 *       handle: Handle to receive mouse input.
 */
void API dw_window_capture(HWND handle)
{
	SetCapture(handle);
}

/*
 * Releases previous mouse capture.
 */
void API dw_window_release(void)
{
	ReleaseCapture();
}

/*
 * Changes the appearance of the mouse pointer.
 * Parameters:
 *       handle: Handle to widget for which to change.
 *       cursortype: ID of the pointer you want.
 */
void API dw_window_pointer(HWND handle, int pointertype)
{
/*
	if(pointertype == DW_POINTER_ARROW)
		SetClassLong( handle, GCL_HCURSOR, LoadCursor( NULL, IDC_ARROW));
	else if(pointertype == DW_POINTER_CLOCK)
		SetClassLong( handle, GCL_HCURSOR, LoadCursor( NULL, IDC_WAIT));
	else
*/
	SetCursor(pointertype < 65536 ? LoadCursor(NULL, MAKEINTRESOURCE(pointertype)) : (HCURSOR)pointertype);
}

/*
 * Create a new Window Frame.
 * Parameters:
 *       owner: The Owner's window handle or HWND_DESKTOP.
 *       title: The Window title.
 *       flStyle: Style flags, see the DW reference.
 */
HWND API dw_window_new(HWND hwndOwner, char *title, ULONG flStyle)
{
	HWND hwndframe;
	Box *newbox = calloc(sizeof(Box), 1);
	ULONG flStyleEx = 0;

	newbox->pad = 0;
	newbox->type = DW_VERT;
	newbox->count = 0;
	newbox->cinfo.fore = newbox->cinfo.back = -1;

	if(hwndOwner)
		flStyleEx |= WS_EX_MDICHILD;

	if(!(flStyle & WS_CAPTION))
		flStyle |= WS_POPUPWINDOW;

	if(flStyle & DW_FCF_TASKLIST)
	{
		ULONG newflags = (flStyle | WS_CLIPCHILDREN) & ~DW_FCF_TASKLIST;

		hwndframe = CreateWindowEx(flStyleEx, ClassName, title, newflags, CW_USEDEFAULT, CW_USEDEFAULT,
								   CW_USEDEFAULT, CW_USEDEFAULT, hwndOwner, NULL, DWInstance, NULL);
	}
	else
	{
		flStyleEx |= WS_EX_TOOLWINDOW;

		hwndframe = CreateWindowEx(flStyleEx, ClassName, title, flStyle | WS_CLIPCHILDREN, CW_USEDEFAULT, CW_USEDEFAULT,
								   CW_USEDEFAULT, CW_USEDEFAULT, hwndOwner, NULL, DWInstance, NULL);
	}
	SetWindowLongPtr(hwndframe, GWLP_USERDATA, (LONG_PTR)newbox);

#if 0
	if(hwndOwner)
		SetParent(hwndframe, hwndOwner);
#endif

	return hwndframe;
}

/*
 * Create a new Box to be packed.
 * Parameters:
 *       type: Either DW_VERT (vertical) or DW_HORZ (horizontal).
 *       pad: Number of pixels to pad around the box.
 */
HWND API dw_box_new(int type, int pad)
{
	Box *newbox = calloc(sizeof(Box), 1);
	HWND hwndframe;

	newbox->pad = pad;
	newbox->type = type;
	newbox->count = 0;
	newbox->grouphwnd = (HWND)NULL;
	newbox->cinfo.fore = newbox->cinfo.back = -1;

	hwndframe = CreateWindow(FRAMECLASSNAME,
							 "",
							 WS_VISIBLE | WS_CHILD | WS_CLIPCHILDREN,
							 0,0,2000,1000,
							 DW_HWND_OBJECT,
							 NULL,
							 DWInstance,
							 NULL);

	newbox->cinfo.pOldProc = SubclassWindow(hwndframe, _colorwndproc);
	newbox->cinfo.fore = newbox->cinfo.back = -1;

	SetWindowLongPtr(hwndframe, GWLP_USERDATA, (LONG_PTR)newbox);
	return hwndframe;
}

/*
 * Create a new Group Box to be packed.
 * Parameters:
 *       type: Either DW_VERT (vertical) or DW_HORZ (horizontal).
 *       pad: Number of pixels to pad around the box.
 *       title: Text to be displayined in the group outline.
 */
HWND API dw_groupbox_new(int type, int pad, char *title)
{
	Box *newbox = calloc(sizeof(Box), 1);
	HWND hwndframe;

	newbox->pad = pad;
	newbox->type = type;
	newbox->count = 0;
	newbox->cinfo.fore = newbox->cinfo.back = -1;

	hwndframe = CreateWindow(FRAMECLASSNAME,
							 "",
							 WS_VISIBLE | WS_CHILD,
							 0,0,2000,1000,
							 DW_HWND_OBJECT,
							 NULL,
							 DWInstance,
							 NULL);

	newbox->grouphwnd = CreateWindow(BUTTONCLASSNAME,
									 title,
									 WS_CHILD | BS_GROUPBOX |
									 WS_VISIBLE | WS_CLIPCHILDREN,
									 0,0,2000,1000,
									 hwndframe,
									 NULL,
									 DWInstance,
									 NULL);

	SetWindowLongPtr(hwndframe, GWLP_USERDATA, (LONG_PTR)newbox);
	dw_window_set_font(newbox->grouphwnd, DefaultFont);
	return hwndframe;
}

/*
 * Create a new MDI Frame to be packed.
 * Parameters:
 *       id: An ID to be used with dw_window_from_id or 0L.
 */
HWND API dw_mdi_new(unsigned long id)
{
	CLIENTCREATESTRUCT ccs;
	HWND hwndframe;

	ccs.hWindowMenu = NULL;
	ccs.idFirstChild = 0;

	hwndframe = CreateWindow("MDICLIENT",
							 "",
							 WS_VISIBLE | WS_CHILD | WS_CLIPSIBLINGS,
							 0,0,2000,1000,
							 DW_HWND_OBJECT,
							 (HMENU)id,
							 DWInstance,
							 &ccs);
	return hwndframe;
}

/*
 * Create a bitmap object to be packed.
 * Parameters:
 *       id: An ID to be used with dw_window_from_id or 0L.
 */
HWND API dw_bitmap_new(ULONG id)
{
	return CreateWindow(STATICCLASSNAME,
						"",
						SS_BITMAP | WS_VISIBLE |
						WS_CHILD | WS_CLIPCHILDREN,
						0,0,2000,1000,
						DW_HWND_OBJECT,
						(HMENU)id,
						DWInstance,
						NULL);
}

/*
 * Create a notebook object to be packed.
 * Parameters:
 *       id: An ID to be used for getting the resource from the
 *           resource file.
 */
HWND API dw_notebook_new(ULONG id, int top)
{
	ULONG flags = 0;
	HWND tmp;
	NotebookPage **array = calloc(256, sizeof(NotebookPage *));

	if(!top)
		flags = TCS_BOTTOM;

	tmp = CreateWindow(WC_TABCONTROL,
					   "",
					   WS_VISIBLE | WS_CHILD | WS_CLIPCHILDREN,
					   0,0,2000,1000,
					   DW_HWND_OBJECT,
					   (HMENU)id,
					   DWInstance,
					   NULL);
	dw_window_set_data(tmp, "_dw_array", (void *)array);
	dw_window_set_font(tmp, DefaultFont);
	return tmp;
}

/*
 * Create a menu object to be popped up.
 * Parameters:
 *       id: An ID to be used for getting the resource from the
 *           resource file.
 */
HMENUI API dw_menu_new(ULONG id)
{
	return (HMENUI)CreatePopupMenu();
}

/*
 * Create a menubar on a window.
 * Parameters:
 *       location: Handle of a window frame to be attached to.
 */
HMENUI API dw_menubar_new(HWND location)
{
	HMENUI tmp;

	tmp = (HMENUI)CreateMenu();

	dw_window_set_data(location, "_dw_menu", (void *)tmp);

	SetMenu(location, (HMENU)tmp);
	return location;
}

/*
 * Destroys a menu created with dw_menubar_new or dw_menu_new.
 * Parameters:
 *       menu: Handle of a menu.
 */
void API dw_menu_destroy(HMENUI *menu)
{
	if(menu)
	{
		HMENU mymenu = (HMENU)*menu;

		if(IsWindow((HWND)mymenu) && !IsMenu(mymenu))
			mymenu = (HMENU)dw_window_get_data((HWND)mymenu, "_dw_menu");
        if(IsMenu(mymenu))
			DestroyMenu(mymenu);
	}
}

/*
 * Adds a menuitem or submenu to an existing menu.
 * Parameters:
 *       menu: The handle the the existing menu.
 *       title: The title text on the menu item to be added.
 *       id: An ID to be used for message passing.
 *       end: If TRUE memu is positioned at the end of the menu.
 *       check: If TRUE menu is "check"able.
 *       flags: Extended attributes to set on the menu.
 *       submenu: Handle to an existing menu to be a submenu or NULL.
 */
HWND API dw_menu_append_item(HMENUI menux, char *title, ULONG id, ULONG flags, int end, int check, HMENUI submenu)
{
	MENUITEMINFO mii;
	HMENU mymenu = (HMENU)menux;

	if(IsWindow(menux) && !IsMenu(mymenu))
		mymenu = (HMENU)dw_window_get_data(menux, "_dw_menu");

	mii.cbSize = sizeof(MENUITEMINFO);
	mii.fMask = MIIM_ID | MIIM_SUBMENU | MIIM_TYPE;

	/* Convert from OS/2 style accellerators to Win32 style */
	if(title)
	{
		char *tmp = title;

		while(*tmp)
		{
			if(*tmp == '~')
				*tmp = '&';
			tmp++;
		}
	}

	if(title && *title)
		mii.fType = MFT_STRING;
	else
		mii.fType = MFT_SEPARATOR;

	mii.wID = id;
    if(IsMenu((HMENU)submenu))
		mii.hSubMenu = (HMENU)submenu;
	else
		mii.hSubMenu = 0;
	mii.dwTypeData = title;
	mii.cch = strlen(title);

	InsertMenuItem(mymenu, 65535, TRUE, &mii);
	if(IsWindow(menux) && !IsMenu((HMENU)menux))
		DrawMenuBar(menux);
	return (HWND)id;
}

/*
 * Sets the state of a menu item check.
 * Parameters:
 *       menu: The handle the the existing menu.
 *       id: Menuitem id.
 *       check: TRUE for checked FALSE for not checked.
 */
void API dw_menu_item_set_check(HMENUI menux, unsigned long id, int check)
{
	MENUITEMINFO mii;
	HMENU mymenu = (HMENU)menux;

	if(IsWindow(menux) && !IsMenu(mymenu))
		mymenu = (HMENU)dw_window_get_data(menux, "_dw_menu");

	mii.cbSize = sizeof(MENUITEMINFO);
	mii.fMask = MIIM_STATE;
	if(check)
		mii.fState = MFS_CHECKED;
	else
		mii.fState = MFS_UNCHECKED;
	SetMenuItemInfo(mymenu, id, FALSE, &mii);
}

/*
 * Pops up a context menu at given x and y coordinates.
 * Parameters:
 *       menu: The handle the the existing menu.
 *       parent: Handle to the window initiating the popup.
 *       x: X coordinate.
 *       y: Y coordinate.
 */
void API dw_menu_popup(HMENUI *menu, HWND parent, int x, int y)
{
	if(menu)
	{
		HMENU mymenu = (HMENU)*menu;

		if(IsWindow(*menu) && !IsMenu(mymenu))
			mymenu = (HMENU)dw_window_get_data(*menu, "_dw_menu");

		popup = parent;
		TrackPopupMenu(mymenu, 0, x, y, 0, parent, NULL);
		DestroyMenu(mymenu);
	}
}


/*
 * Create a container object to be packed.
 * Parameters:
 *       id: An ID to be used for getting the resource from the
 *           resource file.
 */
HWND API dw_container_new(ULONG id, int multi)
{
	HWND tmp = CreateWindow(WC_LISTVIEW,
							"",
							WS_VISIBLE | WS_CHILD |
							(multi ? 0 : LVS_SINGLESEL) |
							LVS_REPORT | LVS_SHOWSELALWAYS |
							LVS_SHAREIMAGELISTS | WS_BORDER |
							WS_CLIPCHILDREN,
							0,0,2000,1000,
							DW_HWND_OBJECT,
							(HMENU)id,
							DWInstance,
							NULL);
	ContainerInfo *cinfo = (ContainerInfo *)calloc(1, sizeof(ContainerInfo));

	if(!cinfo)
	{
		DestroyWindow(tmp);
		return NULL;
	}

	cinfo->pOldProc = (WNDPROC)SubclassWindow(tmp, _containerwndproc);
	cinfo->cinfo.fore = cinfo->cinfo.back = -1;

	SetWindowLongPtr(tmp, GWLP_USERDATA, (LONG_PTR)cinfo);
	dw_window_set_font(tmp, DefaultFont);
	return tmp;
}

/*
 * Create a tree object to be packed.
 * Parameters:
 *       id: An ID to be used for getting the resource from the
 *           resource file.
 */
HWND API dw_tree_new(ULONG id)
{
	HWND tmp = CreateWindow(WC_TREEVIEW,
							"",
							WS_VISIBLE | WS_CHILD |
							TVS_HASLINES | TVS_SHOWSELALWAYS |
							TVS_HASBUTTONS | TVS_LINESATROOT |
							WS_BORDER | WS_CLIPCHILDREN,
							0,0,2000,1000,
							DW_HWND_OBJECT,
							(HMENU)id,
							DWInstance,
							NULL);
	ContainerInfo *cinfo = (ContainerInfo *)calloc(1, sizeof(ContainerInfo));
	TreeView_SetItemHeight(tmp, 16);

	if(!cinfo)
	{
		DestroyWindow(tmp);
		return NULL;
	}

	cinfo->pOldProc = (WNDPROC)SubclassWindow(tmp, _treewndproc);
	cinfo->cinfo.fore = cinfo->cinfo.back = -1;

	SetWindowLongPtr(tmp, GWLP_USERDATA, (LONG_PTR)cinfo);
	dw_window_set_font(tmp, DefaultFont);
	return tmp;
}

/*
 * Returns the current X and Y coordinates of the mouse pointer.
 * Parameters:
 *       x: Pointer to variable to store X coordinate.
 *       y: Pointer to variable to store Y coordinate.
 */
void API dw_pointer_query_pos(long *x, long *y)
{
	POINT ptl;

	GetCursorPos(&ptl);
	if(x && y)
	{
		*x = ptl.x;
		*y = ptl.y;
	}
}

/*
 * Sets the X and Y coordinates of the mouse pointer.
 * Parameters:
 *       x: X coordinate.
 *       y: Y coordinate.
 */
void API dw_pointer_set_pos(long x, long y)
{
	SetCursorPos(x, y);
}

/*
 * Create a new static text window (widget) to be packed.
 * Parameters:
 *       text: The text to be display by the static text widget.
 *       id: An ID to be used with dw_window_from_id() or 0L.
 */
HWND API dw_text_new(char *text, ULONG id)
{
	HWND tmp = CreateWindow(STATICCLASSNAME,
							text,
							BS_TEXT | WS_VISIBLE |
							WS_CHILD | WS_CLIPCHILDREN,
							0,0,2000,1000,
							DW_HWND_OBJECT,
							(HMENU)id,
							DWInstance,
							NULL);
	dw_window_set_font(tmp, DefaultFont);
	return tmp;
}

/*
 * Create a new status text window (widget) to be packed.
 * Parameters:
 *       text: The text to be display by the static text widget.
 *       id: An ID to be used with dw_window_from_id() or 0L.
 */
HWND API dw_status_text_new(char *text, ULONG id)
{
	HWND tmp = CreateWindow(ObjectClassName,
							text,
							BS_TEXT | WS_VISIBLE |
							WS_CHILD | WS_CLIPCHILDREN,
							0,0,2000,1000,
							DW_HWND_OBJECT,
							(HMENU)id,
							DWInstance,
							NULL);
	dw_window_set_font(tmp, DefaultFont);
	SubclassWindow(tmp, _statuswndproc);
	return tmp;
}

/*
 * Create a new Multiline Editbox window (widget) to be packed.
 * Parameters:
 *       id: An ID to be used with dw_window_from_id() or 0L.
 */
HWND API dw_mle_new(ULONG id)
{
    
	HWND tmp = CreateWindowEx(WS_EX_CLIENTEDGE,
							  EDITCLASSNAME,
							  "",
							  WS_VISIBLE | WS_BORDER |
							  WS_VSCROLL | ES_MULTILINE |
							  ES_WANTRETURN | WS_CHILD |
							  WS_CLIPCHILDREN,
							  0,0,2000,1000,
							  DW_HWND_OBJECT,
							  (HMENU)id,
							  DWInstance,
							  NULL);
	ContainerInfo *cinfo = (ContainerInfo *)calloc(1, sizeof(ContainerInfo));

	if(!cinfo)
	{
		DestroyWindow(tmp);
		return NULL;
	}

	cinfo->pOldProc = (WNDPROC)SubclassWindow(tmp, _treewndproc);
	cinfo->cinfo.fore = cinfo->cinfo.back = -1;

	SetWindowLongPtr(tmp, GWLP_USERDATA, (LONG_PTR)cinfo);
	dw_window_set_font(tmp, DefaultFont);
	return tmp;
}

/*
 * Create a new Entryfield window (widget) to be packed.
 * Parameters:
 *       text: The default text to be in the entryfield widget.
 *       id: An ID to be used with dw_window_from_id() or 0L.
 */
HWND API dw_entryfield_new(char *text, ULONG id)
{
	HWND tmp = CreateWindowEx(WS_EX_CLIENTEDGE,
							  EDITCLASSNAME,
							  text,
							  ES_WANTRETURN | WS_CHILD |
							  WS_BORDER | ES_AUTOHSCROLL |
							  WS_VISIBLE | WS_CLIPCHILDREN,
							  0,0,2000,1000,
							  DW_HWND_OBJECT,
							  (HMENU)id,
							  DWInstance,
							  NULL);
	ColorInfo *cinfo = calloc(1, sizeof(ColorInfo));

	cinfo->back = cinfo->fore = -1;

	cinfo->pOldProc = SubclassWindow(tmp, _colorwndproc);
	SetWindowLongPtr(tmp, GWLP_USERDATA, (LONG_PTR)cinfo);
	dw_window_set_font(tmp, DefaultFont);
	return tmp;
}

/*
 * Create a new Entryfield passwird window (widget) to be packed.
 * Parameters:
 *       text: The default text to be in the entryfield widget.
 *       id: An ID to be used with dw_window_from_id() or 0L.
 */
HWND API dw_entryfield_password_new(char *text, ULONG id)
{
	HWND tmp = CreateWindowEx(WS_EX_CLIENTEDGE,
							  EDITCLASSNAME,
							  text,
							  ES_WANTRETURN | WS_CHILD |
							  ES_PASSWORD | WS_BORDER | WS_VISIBLE |
							  ES_AUTOHSCROLL | WS_CLIPCHILDREN,
							  0,0,2000,1000,
							  DW_HWND_OBJECT,
							  (HMENU)id,
							  DWInstance,
							  NULL);
	ColorInfo *cinfo = calloc(1, sizeof(ColorInfo));

	cinfo->back = cinfo->fore = -1;

	cinfo->pOldProc = SubclassWindow(tmp, _colorwndproc);
	SetWindowLongPtr(tmp, GWLP_USERDATA, (LONG_PTR)cinfo);
	dw_window_set_font(tmp, DefaultFont);
	return tmp;
}

BOOL CALLBACK _subclass_child(HWND handle, LPARAM lp)
{
	ColorInfo *cinfo = (ColorInfo *)lp;

	if(cinfo)
	{
		cinfo->buddy = handle;
		cinfo->pOldProc = (WNDPROC)SubclassWindow(handle, _colorwndproc);
		SetWindowLongPtr(handle, GWLP_USERDATA, (LONG_PTR)cinfo);
	}
	return FALSE;
}

/*
 * Create a new Combobox window (widget) to be packed.
 * Parameters:
 *       text: The default text to be in the combpbox widget.
 *       id: An ID to be used with dw_window_from_id() or 0L.
 */
HWND API dw_combobox_new(char *text, ULONG id)
{
	HWND tmp = CreateWindow(COMBOBOXCLASSNAME,
							text,
							WS_CHILD | CBS_DROPDOWN | WS_VSCROLL |
							WS_CLIPCHILDREN | CBS_AUTOHSCROLL | WS_VISIBLE,
							0,0,2000,1000,
							DW_HWND_OBJECT,
							(HMENU)id,
							DWInstance,
							NULL);
	ColorInfo *cinfo = (ColorInfo *)calloc(1, sizeof(ColorInfo));
	ColorInfo *cinfo2 = (ColorInfo *)calloc(1, sizeof(ColorInfo));

	if(!cinfo || !cinfo2)
	{
		if(cinfo)
			free(cinfo);
		if(cinfo2)
			free(cinfo2);
		DestroyWindow(tmp);
		return NULL;
	}

	cinfo2->fore = cinfo->fore = -1;
	cinfo2->back = cinfo->back = -1;
	cinfo2->combo = cinfo->combo = tmp;
	EnumChildWindows(tmp, _subclass_child, (LPARAM)cinfo2);

	SetWindowLongPtr(tmp, GWLP_USERDATA, (LONG_PTR)cinfo);
	dw_window_set_font(tmp, DefaultFont);
	SetWindowText(tmp, text);
	return tmp;
}

/*
 * Create a new button window (widget) to be packed.
 * Parameters:
 *       text: The text to be display by the static text widget.
 *       id: An ID to be used with dw_window_from_id() or 0L.
 */
HWND API dw_button_new(char *text, ULONG id)
{
	BubbleButton *bubble = calloc(1, sizeof(BubbleButton));

	HWND tmp = CreateWindow(BUTTONCLASSNAME,
							text,
							WS_CHILD | BS_PUSHBUTTON |
							WS_VISIBLE | WS_CLIPCHILDREN,
							0,0,2000,1000,
							DW_HWND_OBJECT,
							(HMENU)id,
							DWInstance,
							NULL);

	bubble->id = id;
	bubble->bubbletext[0] = '\0';
	bubble->pOldProc = (WNDPROC)SubclassWindow(tmp, _BtProc);

	SetWindowLongPtr(tmp, GWLP_USERDATA, (LONG_PTR)bubble);
	dw_window_set_font(tmp, DefaultFont);
	return tmp;
}

/*
 * Create a new bitmap button window (widget) to be packed.
 * Parameters:
 *       text: Bubble help text to be displayed.
 *       id: An ID of a bitmap in the resource file.
 */
HWND API dw_bitmapbutton_new(char *text, ULONG id)
{
	HWND tmp;
	BubbleButton *bubble = calloc(1, sizeof(BubbleButton));
	HBITMAP hbitmap = LoadBitmap(DWInstance, MAKEINTRESOURCE(id));

	tmp = CreateWindow(BUTTONCLASSNAME,
					   "",
					   WS_CHILD | BS_PUSHBUTTON |
					   BS_BITMAP | WS_CLIPCHILDREN |
					   WS_VISIBLE,
					   0,0,2000,1000,
					   DW_HWND_OBJECT,
					   (HMENU)id,
					   DWInstance,
					   NULL);

	bubble->id = id;
	strncpy(bubble->bubbletext, text, BUBBLE_HELP_MAX - 1);
	bubble->bubbletext[BUBBLE_HELP_MAX - 1] = '\0';
	bubble->pOldProc = (WNDPROC)SubclassWindow(tmp, _BtProc);

	SetWindowLongPtr(tmp, GWLP_USERDATA, (LONG_PTR)bubble);

	SendMessage(tmp, BM_SETIMAGE,
				(WPARAM) IMAGE_BITMAP,
				(LPARAM) hbitmap);
	return tmp;
}

/*
 * Create a new bitmap button window (widget) to be packed from a file.
 * Parameters:
 *       text: Bubble help text to be displayed.
 *       id: An ID to be used with dw_window_from_id() or 0L.
 *       filename: Name of the file, omit extention to have
 *                 DW pick the appropriate file extension.
 *                 (BMP on OS/2 or Windows, XPM on Unix)
 */
HWND dw_bitmapbutton_new_from_file(char *text, unsigned long id, char *filename)
{
	HWND tmp;
	BubbleButton *bubble;
	HBITMAP hbitmap = 0;
	char *file = malloc(strlen(filename) + 5);

	if(!file || !(bubble = calloc(1, sizeof(BubbleButton))))
	{
		if(file)
			free(file);
		return 0;
	}

	tmp = CreateWindow(BUTTONCLASSNAME,
					   "",
					   WS_CHILD | BS_PUSHBUTTON |
					   BS_BITMAP | WS_CLIPCHILDREN |
					   WS_VISIBLE,
					   0,0,2000,1000,
					   DW_HWND_OBJECT,
					   (HMENU)id,
					   DWInstance,
					   NULL);

	bubble->id = id;
	strncpy(bubble->bubbletext, text, BUBBLE_HELP_MAX - 1);
	bubble->bubbletext[BUBBLE_HELP_MAX - 1] = '\0';
	bubble->pOldProc = (WNDPROC)SubclassWindow(tmp, _BtProc);

	SetWindowLongPtr(tmp, GWLP_USERDATA, (LONG_PTR)bubble);

	strcpy(file, filename);

	/* check if we can read from this file (it exists and read permission) */
	if(access(file, 04) == 0)
		hbitmap = (HBITMAP)LoadImage(NULL, file, IMAGE_BITMAP, 0, 0, LR_LOADFROMFILE);
	else
	{
		/* Try with .bmp extention */
		strcat(file, ".bmp");
		if(access(file, 04) == 0)
			hbitmap = (HBITMAP)LoadImage(NULL, file, IMAGE_BITMAP, 0, 0, LR_LOADFROMFILE);
	}


	if(hbitmap)
		SendMessage(tmp, BM_SETIMAGE,
					(WPARAM) IMAGE_BITMAP,
					(LPARAM) hbitmap);
	free(file);
	return tmp;
}

/*
 * Create a new spinbutton window (widget) to be packed.
 * Parameters:
 *       text: The text to be display by the static text widget.
 *       id: An ID to be used with dw_window_from_id() or 0L.
 */
HWND API dw_spinbutton_new(char *text, ULONG id)
{
	ULONG *data = malloc(sizeof(ULONG));
	HWND buddy = CreateWindowEx(WS_EX_CLIENTEDGE,
								EDITCLASSNAME,
								text,
								WS_CHILD | WS_BORDER | WS_VISIBLE |
								ES_NUMBER | WS_CLIPCHILDREN,
								0,0,2000,1000,
								DW_HWND_OBJECT,
								NULL,
								DWInstance,
								NULL);
	HWND tmp = CreateWindowEx(WS_EX_CLIENTEDGE,
							  UPDOWN_CLASS,
							  NULL,
							  WS_CHILD | UDS_ALIGNRIGHT | WS_BORDER |
							  UDS_ARROWKEYS | UDS_SETBUDDYINT |
							  UDS_WRAP | UDS_NOTHOUSANDS | WS_VISIBLE,
							  0,0,2000,1000,
							  DW_HWND_OBJECT,
							  (HMENU)id,
							  DWInstance,
							  NULL);
	ColorInfo *cinfo = calloc(1, sizeof(ColorInfo));

	SendMessage(tmp, UDM_SETBUDDY, (WPARAM)buddy, 0);
	cinfo->back = cinfo->fore = -1;
	cinfo->buddy = tmp;

	cinfo->pOldProc = SubclassWindow(buddy, _colorwndproc);
	SetWindowLongPtr(buddy, GWLP_USERDATA, (LONG_PTR)cinfo);

	cinfo = calloc(1, sizeof(ColorInfo));
	cinfo->buddy = buddy;
	cinfo->pOldProc = SubclassWindow(tmp, _spinnerwndproc);

	SetWindowLongPtr(tmp, GWLP_USERDATA, (LONG_PTR)cinfo);
	dw_window_set_font(buddy, DefaultFont);
	return tmp;
}

/*
 * Create a new radiobutton window (widget) to be packed.
 * Parameters:
 *       text: The text to be display by the static text widget.
 *       id: An ID to be used with dw_window_from_id() or 0L.
 */
HWND API dw_radiobutton_new(char *text, ULONG id)
{
	HWND tmp = CreateWindow(BUTTONCLASSNAME,
							text,
							WS_CHILD | BS_AUTORADIOBUTTON |
							WS_CLIPCHILDREN | WS_VISIBLE,
							0,0,2000,1000,
							DW_HWND_OBJECT,
							(HMENU)id,
							DWInstance,
							NULL);
	BubbleButton *bubble = calloc(1, sizeof(BubbleButton));
	bubble->id = id;
	bubble->pOldProc = (WNDPROC)SubclassWindow(tmp, _BtProc);
	bubble->cinfo.fore = -1;
	bubble->cinfo.back = -1;
	SetWindowLongPtr(tmp, GWLP_USERDATA, (LONG_PTR)bubble);
	dw_window_set_font(tmp, DefaultFont);
	return tmp;
}


/*
 * Create a new slider window (widget) to be packed.
 * Parameters:
 *       vertical: TRUE or FALSE if slider is vertical.
 *       increments: Number of increments available.
 *       id: An ID to be used with dw_window_from_id() or 0L.
 */
HWND API dw_slider_new(int vertical, int increments, ULONG id)
{
	HWND tmp = CreateWindow(TRACKBAR_CLASS,
							"",
							WS_CHILD | WS_CLIPCHILDREN | WS_VISIBLE |
							(vertical ? TBS_VERT : TBS_HORZ),
							0,0,2000,1000,
							DW_HWND_OBJECT,
							(HMENU)id,
							DWInstance,
							NULL);
	ColorInfo *cinfo = calloc(1, sizeof(ColorInfo));

	cinfo->back = cinfo->fore = -1;

	cinfo->pOldProc = SubclassWindow(tmp, _colorwndproc);
	SetWindowLongPtr(tmp, GWLP_USERDATA, (LONG_PTR)cinfo);
	SendMessage(tmp, TBM_SETRANGE, (WPARAM)FALSE, (LPARAM)MAKELONG(0, increments-1));
	return tmp;
}

/*
 * Create a new scrollbar window (widget) to be packed.
 * Parameters:
 *       vertical: TRUE or FALSE if scrollbar is vertical.
 *       increments: Number of increments available.
 *       id: An ID to be used with dw_window_from_id() or 0L.
 */
HWND API dw_scrollbar_new(int vertical, int increments, ULONG id)
{
	HWND tmp = CreateWindow(SCROLLBARCLASSNAME,
							"",
							WS_CHILD | WS_CLIPCHILDREN | WS_VISIBLE |
							(vertical ? SBS_VERT : SBS_HORZ),
							0,0,2000,1000,
							DW_HWND_OBJECT,
							(HMENU)id,
							DWInstance,
							NULL);
	ColorInfo *cinfo = calloc(1, sizeof(ColorInfo));

	cinfo->back = cinfo->fore = -1;

	cinfo->pOldProc = SubclassWindow(tmp, _colorwndproc);
	SetWindowLongPtr(tmp, GWLP_USERDATA, (LONG_PTR)cinfo);
	dw_window_set_data(tmp, "_dw_scrollbar", (void *)1);
	return tmp;
}

/*
 * Create a new percent bar window (widget) to be packed.
 * Parameters:
 *       id: An ID to be used with dw_window_from_id() or 0L.
 */
HWND API dw_percent_new(ULONG id)
{
	return CreateWindow(PROGRESS_CLASS,
						"",
						WS_VISIBLE | WS_CHILD | WS_CLIPCHILDREN,
						0,0,2000,1000,
						DW_HWND_OBJECT,
						(HMENU)id,
						DWInstance,
						NULL);
}

/*
 * Create a new checkbox window (widget) to be packed.
 * Parameters:
 *       text: The text to be display by the static text widget.
 *       id: An ID to be used with dw_window_from_id() or 0L.
 */
HWND API dw_checkbox_new(char *text, ULONG id)
{
	BubbleButton *bubble = calloc(1, sizeof(BubbleButton));
	HWND tmp = CreateWindow(BUTTONCLASSNAME,
							text,
							WS_CHILD | BS_AUTOCHECKBOX |
							BS_TEXT | WS_CLIPCHILDREN | WS_VISIBLE,
							0,0,2000,1000,
							DW_HWND_OBJECT,
							(HMENU)id,
							DWInstance,
							NULL);
	bubble->id = id;
	bubble->checkbox = 1;
	bubble->pOldProc = (WNDPROC)SubclassWindow(tmp, _BtProc);
	bubble->cinfo.fore = -1;
	bubble->cinfo.back = -1;
	SetWindowLongPtr(tmp, GWLP_USERDATA, (LONG_PTR)bubble);
	dw_window_set_font(tmp, DefaultFont);
	return tmp;
}

/*
 * Create a new listbox window (widget) to be packed.
 * Parameters:
 *       id: An ID to be used with dw_window_from_id() or 0L.
 *       multi: Multiple select TRUE or FALSE.
 */
HWND API dw_listbox_new(ULONG id, int multi)
{
	HWND tmp = CreateWindowEx(WS_EX_CLIENTEDGE,
							  LISTBOXCLASSNAME,
							  "",
							  WS_VISIBLE | LBS_NOINTEGRALHEIGHT |
							  WS_CHILD | LBS_HASSTRINGS |
							  LBS_NOTIFY | WS_BORDER  | WS_CLIPCHILDREN |
							  WS_VSCROLL | (multi ? LBS_MULTIPLESEL : 0) ,
							  0,0,2000,1000,
							  DW_HWND_OBJECT,
							  (HMENU)id,
							  DWInstance,
							  NULL);
	ContainerInfo *cinfo = (ContainerInfo *)calloc(1, sizeof(ContainerInfo));

	if(!cinfo)
	{
		DestroyWindow(tmp);
		return NULL;
	}

	cinfo->cinfo.fore = -1;
	cinfo->cinfo.back = -1;
	cinfo->pOldProc = (WNDPROC)SubclassWindow(tmp, _containerwndproc);

	SetWindowLongPtr(tmp, GWLP_USERDATA, (LONG_PTR)cinfo);
	dw_window_set_font(tmp, DefaultFont);
	return tmp;
}

/*
 * Sets the icon used for a given window.
 * Parameters:
 *       handle: Handle to the window.
 *       id: An ID to be used to specify the icon.
 */
void API dw_window_set_icon(HWND handle, ULONG id)
{
	HICON hicon = id < 65536 ? LoadIcon(DWInstance, MAKEINTRESOURCE(id)) : (HICON)id;

	SendMessage(handle, WM_SETICON,
				(WPARAM) IMAGE_ICON,
				(LPARAM) hicon);
}

/*
 * Sets the bitmap used for a given static window.
 * Parameters:
 *       handle: Handle to the window.
 *       id: An ID to be used to specify the icon,
 *           (pass 0 if you use the filename param)
 *       filename: a path to a file (Bitmap on OS/2 or
 *                 Windows and a pixmap on Unix, pass
 *                 NULL if you use the id param)
 */
void API dw_window_set_bitmap(HWND handle, unsigned long id, char *filename)
{
	HBITMAP hbitmap;
	HBITMAP oldbitmap = (HBITMAP)SendMessage(handle, STM_GETIMAGE, IMAGE_BITMAP, 0);

	if(id)
		hbitmap = LoadBitmap(DWInstance, MAKEINTRESOURCE(id));
	else if(filename)
	{
		char *file = malloc(strlen(filename) + 5);

		if (!file)
			return;

		strcpy(file, filename);

		/* check if we can read from this file (it exists and read permission) */
		if(access(file, 04) != 0)
		{
			/* Try with .bmp extention */
			strcat(file, ".bmp");
			if(access(file, 04) != 0)
			{
				free(file);
				return;
			}
		}

		hbitmap = (HBITMAP)LoadImage(NULL, file, IMAGE_BITMAP, 0, 0, LR_LOADFROMFILE);
		free(file);
	}
	else
		return;

	SendMessage(handle, STM_SETIMAGE,
				(WPARAM) IMAGE_BITMAP,
				(LPARAM) hbitmap);

	if(oldbitmap)
		DeleteObject(oldbitmap);
}

/*
 * Sets the text used for a given window.
 * Parameters:
 *       handle: Handle to the window.
 *       text: The text associsated with a given window.
 */
void API dw_window_set_text(HWND handle, char *text)
{
	char tmpbuf[100];

	GetClassName(handle, tmpbuf, 99);

	SetWindowText(handle, text);

	/* Combobox */
	if(strnicmp(tmpbuf, COMBOBOXCLASSNAME, strlen(COMBOBOXCLASSNAME)+1)==0)
		SendMessage(handle, CB_SETEDITSEL, 0, MAKELPARAM(-1, 0));
}

/*
 * Gets the text used for a given window.
 * Parameters:
 *       handle: Handle to the window.
 * Returns:
 *       text: The text associsated with a given window.
 */
char * API dw_window_get_text(HWND handle)
{
	int len = GetWindowTextLength(handle);
	char *tempbuf = calloc(1, len + 2);

	GetWindowText(handle, tempbuf, len + 1);

	return tempbuf;
}

/*
 * Disables given window (widget).
 * Parameters:
 *       handle: Handle to the window.
 */
void API dw_window_disable(HWND handle)
{
	EnableWindow(handle, FALSE);
}

/*
 * Enables given window (widget).
 * Parameters:
 *       handle: Handle to the window.
 */
void API dw_window_enable(HWND handle)
{
	EnableWindow(handle, TRUE);
}

static HWND _dw_wfid_hwnd = NULL;

BOOL CALLBACK _wfid(HWND handle, LPARAM lParam)
{
	if(GetWindowLong(handle, GWL_ID) == lParam)
	{
		_dw_wfid_hwnd = handle;
		return FALSE;
	}
	return TRUE;
}

/*
 * Gets the child window handle with specified ID.
 * Parameters:
 *       handle: Handle to the parent window.
 *       id: Integer ID of the child.
 */
HWND API dw_window_from_id(HWND handle, int id)
{
	_dw_wfid_hwnd = NULL;
	EnumChildWindows(handle, _wfid, (LPARAM)id);
    return _dw_wfid_hwnd;
}

/*
 * Pack windows (widgets) into a box from the start (or top).
 * Parameters:
 *       box: Window handle of the box to be packed into.
 *       item: Window handle of the item to be back.
 *       width: Width in pixels of the item or -1 to be self determined.
 *       height: Height in pixels of the item or -1 to be self determined.
 *       hsize: TRUE if the window (widget) should expand horizontally to fill space given.
 *       vsize: TRUE if the window (widget) should expand vertically to fill space given.
 *       pad: Number of pixels of padding around the item.
 */
void API dw_box_pack_start(HWND box, HWND item, int width, int height, int hsize, int vsize, int pad)
{
	Box *thisbox;

		/*
		 * If you try and pack an item into itself VERY bad things can happen; like at least an
		 * infinite loop on GTK! Lets be safe!
		 */
	if(box == item)
	{
		dw_messagebox("dw_box_pack_start()", DW_MB_OK|DW_MB_ERROR, "Danger! Danger! Will Robinson; box and item are the same!",box,item);
		return;
	}

	thisbox = (Box *)GetWindowLongPtr(box, GWLP_USERDATA);
	if(thisbox)
	{
		int z;
		Item *tmpitem, *thisitem = thisbox->items;
		char tmpbuf[100];

		tmpitem = malloc(sizeof(Item)*(thisbox->count+1));

		for(z=0;z<thisbox->count;z++)
		{
			tmpitem[z] = thisitem[z];
		}

		GetClassName(item, tmpbuf, 99);

		if(vsize && !height)
			height = 1;
		if(hsize && !width)
			width = 1;

		if(strnicmp(tmpbuf, FRAMECLASSNAME, strlen(FRAMECLASSNAME)+1)==0)
			tmpitem[thisbox->count].type = TYPEBOX;
		else
		{
			if ( width == 0 && hsize == FALSE )
				dw_messagebox("dw_box_pack_start()", DW_MB_OK|DW_MB_ERROR, "Width and expand Horizonal both unset for box: %x item: %x",box,item);
			if ( height == 0 && vsize == FALSE )
				dw_messagebox("dw_box_pack_start()", DW_MB_OK|DW_MB_ERROR, "Height and expand Vertical both unset for box: %x item: %x",box,item);

			tmpitem[thisbox->count].type = TYPEITEM;
		}

		tmpitem[thisbox->count].hwnd = item;
		tmpitem[thisbox->count].origwidth = tmpitem[thisbox->count].width = width;
		tmpitem[thisbox->count].origheight = tmpitem[thisbox->count].height = height;
		tmpitem[thisbox->count].pad = pad;
		if(hsize)
			tmpitem[thisbox->count].hsize = SIZEEXPAND;
		else
			tmpitem[thisbox->count].hsize = SIZESTATIC;

		if(vsize)
			tmpitem[thisbox->count].vsize = SIZEEXPAND;
		else
			tmpitem[thisbox->count].vsize = SIZESTATIC;

		thisbox->items = tmpitem;

		if(thisbox->count)
			free(thisitem);

		thisbox->count++;

		SetParent(item, box);
		if(strncmp(tmpbuf, UPDOWN_CLASS, strlen(UPDOWN_CLASS)+1)==0)
		{
			ColorInfo *cinfo = (ColorInfo *)GetWindowLongPtr(item, GWLP_USERDATA);

			if(cinfo)
			{
				SetParent(cinfo->buddy, box);
				ShowWindow(cinfo->buddy, SW_SHOW);
				SendMessage(item, UDM_SETBUDDY, (WPARAM)cinfo->buddy, 0);
			}
		}
	}
}

/*
 * Sets the size of a given window (widget).
 * Parameters:
 *          handle: Window (widget) handle.
 *          width: New width in pixels.
 *          height: New height in pixels.
 */
void API dw_window_set_usize(HWND handle, ULONG width, ULONG height)
{
	SetWindowPos(handle, (HWND)NULL, 0, 0, width, height, SWP_SHOWWINDOW | SWP_NOZORDER | SWP_NOMOVE);
}

/*
 * Returns the width of the screen.
 */
int API dw_screen_width(void)
{
	return GetSystemMetrics(SM_CXSCREEN);
}

/*
 * Returns the height of the screen.
 */
int API dw_screen_height(void)
{
	return GetSystemMetrics(SM_CYSCREEN);
}

/* This should return the current color depth */
unsigned long API dw_color_depth(void)
{
	int bpp;
	HDC hdc = GetDC(HWND_DESKTOP);
    
	bpp = GetDeviceCaps(hdc, BITSPIXEL);

	ReleaseDC(HWND_DESKTOP, hdc);

	return bpp;
}


/*
 * Sets the position of a given window (widget).
 * Parameters:
 *          handle: Window (widget) handle.
 *          x: X location from the bottom left.
 *          y: Y location from the bottom left.
 */
void API dw_window_set_pos(HWND handle, ULONG x, ULONG y)
{
	SetWindowPos(handle, (HWND)NULL, x, y, 0, 0, SWP_NOSIZE | SWP_NOZORDER | SWP_NOACTIVATE);
}

/*
 * Sets the position and size of a given window (widget).
 * Parameters:
 *          handle: Window (widget) handle.
 *          x: X location from the bottom left.
 *          y: Y location from the bottom left.
 *          width: Width of the widget.
 *          height: Height of the widget.
 */
void API dw_window_set_pos_size(HWND handle, ULONG x, ULONG y, ULONG width, ULONG height)
{
	SetWindowPos(handle, (HWND)NULL, x, y, width, height, SWP_NOZORDER | SWP_SHOWWINDOW | SWP_NOACTIVATE);
}

/*
 * Gets the position and size of a given window (widget).
 * Parameters:
 *          handle: Window (widget) handle.
 *          x: X location from the bottom left.
 *          y: Y location from the bottom left.
 *          width: Width of the widget.
 *          height: Height of the widget.
 */
void API dw_window_get_pos_size(HWND handle, ULONG *x, ULONG *y, ULONG *width, ULONG *height)
{
	WINDOWPLACEMENT wp;

	wp.length = sizeof(WINDOWPLACEMENT);

	GetWindowPlacement(handle, &wp);
	if(x)
		*x = wp.rcNormalPosition.left;
	if(y)
		*y = wp.rcNormalPosition.top;
	if(width)
		*width = wp.rcNormalPosition.right - wp.rcNormalPosition.left;
	if(height)
		*height = wp.rcNormalPosition.bottom - wp.rcNormalPosition.top;

}

/*
 * Sets the style of a given window (widget).
 * Parameters:
 *          handle: Window (widget) handle.
 *          width: New width in pixels.
 *          height: New height in pixels.
 */
void API dw_window_set_style(HWND handle, ULONG style, ULONG mask)
{
	ULONG tmp, currentstyle = GetWindowLong(handle, GWL_STYLE);
	ColorInfo *cinfo = (ColorInfo *)GetWindowLongPtr(handle, GWLP_USERDATA);

	tmp = currentstyle | mask;
	tmp ^= mask;
	tmp |= style;


	/* We are using SS_NOPREFIX as a VCENTER flag */
	if(tmp & SS_NOPREFIX)
	{

		if(cinfo)
			cinfo->vcenter = 1;
		else
		{
			cinfo = calloc(1, sizeof(ColorInfo));
			cinfo->fore = cinfo->back = -1;
			cinfo->vcenter = 1;

			cinfo->pOldProc = SubclassWindow(handle, _colorwndproc);
			SetWindowLongPtr(handle, GWLP_USERDATA, (LONG_PTR)cinfo);
		}
	}
	else if(cinfo)
		cinfo->vcenter = 0;

	SetWindowLong(handle, GWL_STYLE, tmp);
}

/* Finds the physical ID from the reference ID */
int _findnotebookid(NotebookPage **array, int pageid)
{
	int z;

	for(z=0;z<256;z++)
	{
		if(array[z] && array[z]->realid == pageid)
			return z;
	}
	return -1;
}

/*
 * Adds a new page to specified notebook.
 * Parameters:
 *          handle: Window (widget) handle.
 *          flags: Any additional page creation flags.
 *          front: If TRUE page is added at the beginning.
 */
unsigned long API dw_notebook_page_new(HWND handle, ULONG flags, int front)
{
	NotebookPage **array = (NotebookPage **)dw_window_get_data(handle, "_dw_array");

	if(array)
	{
		int z, refid = -1;

		for(z=0;z<256;z++)
		{
			if(_findnotebookid(array, z) == -1)
			{
				refid = z;
				break;
			}
		}

		if(refid == -1)
			return -1;

		for(z=0;z<256;z++)
		{
			if(!array[z])
			{
				int oldpage = TabCtrl_GetCurSel(handle);

				array[z] = calloc(1, sizeof(NotebookPage));
				array[z]->realid = refid;
				array[z]->item.mask = TCIF_TEXT;
				array[z]->item.iImage = -1;
				array[z]->item.pszText = "";
				TabCtrl_InsertItem(handle, z, &(array[z]->item));

				if(oldpage > -1 && array[oldpage])
					SetParent(array[oldpage]->hwnd, DW_HWND_OBJECT);

				TabCtrl_SetCurSel(handle, z);
				return refid;
			}
		}
	}
	return -1;
}

/*
 * Sets the text on the specified notebook tab.
 * Parameters:
 *          handle: Notebook handle.
 *          pageid: Page ID of the tab to set.
 *          text: Pointer to the text to set.
 */
void API dw_notebook_page_set_text(HWND handle, ULONG pageidx, char *text)
{

	NotebookPage **array = (NotebookPage **)dw_window_get_data(handle, "_dw_array");
	int pageid;

	if(!array)
		return;

	pageid = _findnotebookid(array, pageidx);

	if(pageid > -1 && array[pageid])
	{
		array[pageid]->item.mask = TCIF_TEXT;
		array[pageid]->item.pszText = text;
		TabCtrl_SetItem(handle, pageid, &(array[pageid]->item));
		_resize_notebook_page(handle, pageid);
	}
}

/*
 * Sets the text on the specified notebook tab status area.
 * Parameters:
 *          handle: Notebook handle.
 *          pageid: Page ID of the tab to set.
 *          text: Pointer to the text to set.
 */
void API dw_notebook_page_set_status_text(HWND handle, ULONG pageid, char *text)
{
}

/*
 * Packs the specified box into the notebook page.
 * Parameters:
 *          handle: Handle to the notebook to be packed.
 *          pageid: Page ID in the notebook which is being packed.
 *          page: Box handle to be packed.
 */
void API dw_notebook_pack(HWND handle, ULONG pageidx, HWND page)
{
	NotebookPage **array = (NotebookPage **)dw_window_get_data(handle, "_dw_array");
	int pageid;

	if(!array)
		return;

	pageid = _findnotebookid(array, pageidx);

	if(pageid > -1 && array[pageid])
	{
		HWND tmpbox = dw_box_new(DW_VERT, 0);

		dw_box_pack_start(tmpbox, page, 0, 0, TRUE, TRUE, 0);
		SubclassWindow(tmpbox, _wndproc);
		if(array[pageid]->hwnd)
			dw_window_destroy(array[pageid]->hwnd);
		array[pageid]->hwnd = tmpbox;
		if(pageidx == dw_notebook_page_query(handle))
		{
			SetParent(tmpbox, handle);
			_resize_notebook_page(handle, pageid);
		}
	}
}

/*
 * Remove a page from a notebook.
 * Parameters:
 *          handle: Handle to the notebook widget.
 *          pageid: ID of the page to be destroyed.
 */
void API dw_notebook_page_destroy(HWND handle, unsigned int pageidx)
{
	NotebookPage **array = (NotebookPage **)dw_window_get_data(handle, "_dw_array");
	int newid = -1, z, pageid;

	if(!array)
		return;

	pageid = _findnotebookid(array, pageidx);

	if(pageid < 0)
		return;

	if(array[pageid])
	{
		SetParent(array[pageid]->hwnd, DW_HWND_OBJECT);
		free(array[pageid]);
		array[pageid] = NULL;
	}

	TabCtrl_DeleteItem(handle, pageid);

	/* Shift the pages over 1 */
	for(z=pageid;z<255;z++)
		array[z] = array[z+1];
	array[255] = NULL;

	for(z=0;z<256;z++)
	{
		if(array[z])
		{
			newid = z;
			break;
		}
	}
	if(newid > -1)
	{
		SetParent(array[newid]->hwnd, handle);
		_resize_notebook_page(handle, newid);
		dw_notebook_page_set(handle, array[newid]->realid);
	}
}

/*
 * Queries the currently visible page ID.
 * Parameters:
 *          handle: Handle to the notebook widget.
 */
unsigned long API dw_notebook_page_query(HWND handle)
{
	NotebookPage **array = (NotebookPage **)dw_window_get_data(handle, "_dw_array");
	int physid = TabCtrl_GetCurSel(handle);

	if(physid > -1 && physid < 256 && array && array[physid])
		return array[physid]->realid;
	return -1;
}

/*
 * Sets the currently visible page ID.
 * Parameters:
 *          handle: Handle to the notebook widget.
 *          pageid: ID of the page to be made visible.
 */
void API dw_notebook_page_set(HWND handle, unsigned int pageidx)
{
	NotebookPage **array = (NotebookPage **)dw_window_get_data(handle, "_dw_array");
	int pageid;

	if(!array)
		return;

	pageid = _findnotebookid(array, pageidx);

	if(pageid > -1 && pageid < 256)
	{
		int oldpage = TabCtrl_GetCurSel(handle);

		if(oldpage > -1 && array && array[oldpage])
			SetParent(array[oldpage]->hwnd, DW_HWND_OBJECT);

		TabCtrl_SetCurSel(handle, pageid);

		SetParent(array[pageid]->hwnd, handle);
		_resize_notebook_page(handle, pageid);
	}
}

/*
 * Appends the specified text to the listbox's (or combobox) entry list.
 * Parameters:
 *          handle: Handle to the listbox to be appended to.
 *          text: Text to append into listbox.
 */
void API dw_listbox_append(HWND handle, char *text)
{
	char tmpbuf[100];

	GetClassName(handle, tmpbuf, 99);

	if(strnicmp(tmpbuf, COMBOBOXCLASSNAME, strlen(COMBOBOXCLASSNAME)+1)==0)
		SendMessage(handle,
					CB_ADDSTRING,
					0, (LPARAM)text);
	else
		SendMessage(handle,
					LB_ADDSTRING,
					0, (LPARAM)text);
}

/*
 * Clears the listbox's (or combobox) list of all entries.
 * Parameters:
 *          handle: Handle to the listbox to be cleared.
 */
void API dw_listbox_clear(HWND handle)
{
	char tmpbuf[100];

	GetClassName(handle, tmpbuf, 99);

	if(strnicmp(tmpbuf, COMBOBOXCLASSNAME, strlen(COMBOBOXCLASSNAME)+1)==0)
	{
		char *buf = dw_window_get_text(handle);

		SendMessage(handle,
					CB_RESETCONTENT, 0L, 0L);

		if(buf)
		{
			dw_window_set_text(handle, buf);
			free(buf);
		}
	}
	else
		SendMessage(handle,
					LB_RESETCONTENT, 0L, 0L);
}

/*
 * Sets the text of a given listbox entry.
 * Parameters:
 *          handle: Handle to the listbox to be queried.
 *          index: Index into the list to be queried.
 *          buffer: Buffer where text will be copied.
 */
void API dw_listbox_set_text(HWND handle, unsigned int index, char *buffer)
{
	char tmpbuf[100];

	GetClassName(handle, tmpbuf, 99);

	if(strnicmp(tmpbuf, COMBOBOXCLASSNAME, strlen(COMBOBOXCLASSNAME)+1)==0)
	{
		SendMessage(handle,	CB_DELETESTRING, (WPARAM)index, 0);
		SendMessage(handle, CB_INSERTSTRING, (WPARAM)index, (LPARAM)buffer);
	}
	else
	{
		unsigned int sel = (unsigned int)SendMessage(handle, LB_GETCURSEL, 0, 0);
		SendMessage(handle,	LB_DELETESTRING, (WPARAM)index, 0);
		SendMessage(handle, LB_INSERTSTRING, (WPARAM)index, (LPARAM)buffer);
		SendMessage(handle, LB_SETCURSEL, (WPARAM)sel, 0);
		SendMessage(handle, LB_SETSEL, (WPARAM)TRUE, (LPARAM)sel);
	}
}

/*
 * Copies the given index item's text into buffer.
 * Parameters:
 *          handle: Handle to the listbox to be queried.
 *          index: Index into the list to be queried.
 *          buffer: Buffer where text will be copied.
 *          length: Length of the buffer (including NULL).
 */
void API dw_listbox_query_text(HWND handle, unsigned int index, char *buffer, unsigned int length)
{
	char tmpbuf[100];
	int len;

	if(!buffer || !length)
		return;

	buffer[0] = 0;

	GetClassName(handle, tmpbuf, 99);

	if(strnicmp(tmpbuf, COMBOBOXCLASSNAME, strlen(COMBOBOXCLASSNAME)+1)==0)
	{
		len = (int)SendMessage(handle, CB_GETLBTEXTLEN, (WPARAM)index, 0);

		if(len < length && len != CB_ERR)
			SendMessage(handle,
						CB_GETLBTEXT, (WPARAM)index, (LPARAM)buffer);
	}
	else
	{
		len = (int)SendMessage(handle, LB_GETTEXTLEN, (WPARAM)index, 0);

		if(len < length && len != LB_ERR)
			SendMessage(handle,
						LB_GETTEXT, (WPARAM)index, (LPARAM)buffer);
	}
}

/*
 * Returns the index to the item in the list currently selected.
 * Parameters:
 *          handle: Handle to the listbox to be queried.
 */
unsigned int API dw_listbox_selected(HWND handle)
{
	char tmpbuf[100];

	GetClassName(handle, tmpbuf, 99);

	if(strnicmp(tmpbuf, COMBOBOXCLASSNAME, strlen(COMBOBOXCLASSNAME)+1)==0)
		return (unsigned int)SendMessage(handle,
										 CB_GETCURSEL,
										 0, 0);

	return (unsigned int)SendMessage(handle,
									 LB_GETCURSEL,
									 0, 0);
}

/*
 * Returns the index to the current selected item or -1 when done.
 * Parameters:
 *          handle: Handle to the listbox to be queried.
 *          where: Either the previous return or -1 to restart.
 */
int API dw_listbox_selected_multi(HWND handle, int where)
{
	int *array, count, z;
	char tmpbuf[100];

	GetClassName(handle, tmpbuf, 99);

	/* This doesn't work on comboboxes */
	if(strnicmp(tmpbuf, COMBOBOXCLASSNAME, strlen(COMBOBOXCLASSNAME)+1)==0)
		return -1;

	count = (int)SendMessage(handle, LB_GETSELCOUNT, 0, 0);
	if(count > 0)
	{
		array = malloc(sizeof(int)*count);
		SendMessage(handle, LB_GETSELITEMS, (WPARAM)count, (LPARAM)array);

		if(where == -1)
		{
			int ret = array[0];
			free(array);
			return ret;
		}
		for(z=0;z<count;z++)
		{
			if(array[z] == where && (z+1) < count)
			{
				int ret = array[z+1];
				free(array);
				return ret;
			}
		}
		free(array);
	}
	return -1;
}

/*
 * Sets the selection state of a given index.
 * Parameters:
 *          handle: Handle to the listbox to be set.
 *          index: Item index.
 *          state: TRUE if selected FALSE if unselected.
 */
void API dw_listbox_select(HWND handle, int index, int state)
{
	char tmpbuf[100];

	GetClassName(handle, tmpbuf, 99);

	if(strnicmp(tmpbuf, COMBOBOXCLASSNAME, strlen(COMBOBOXCLASSNAME)+1)==0)
		SendMessage(handle, CB_SETCURSEL, (WPARAM)index, 0);
	else
	{
		SendMessage(handle, LB_SETCURSEL, (WPARAM)index, 0);
		SendMessage(handle, LB_SETSEL, (WPARAM)state, (LPARAM)index);
	}
	_wndproc(handle, WM_COMMAND, (WPARAM)(LBN_SELCHANGE << 16), (LPARAM)handle);
}

/*
 * Deletes the item with given index from the list.
 * Parameters:
 *          handle: Handle to the listbox to be set.
 *          index: Item index.
 */
void API dw_listbox_delete(HWND handle, int index)
{
	char tmpbuf[100];

	GetClassName(handle, tmpbuf, 99);

	if(strnicmp(tmpbuf, COMBOBOXCLASSNAME, strlen(COMBOBOXCLASSNAME)+1)==0)
		SendMessage(handle, CB_DELETESTRING, (WPARAM)index, 0);
	else
		SendMessage(handle, LB_DELETESTRING, (WPARAM)index, 0);
}

/*
 * Returns the listbox's item count.
 * Parameters:
 *          handle: Handle to the listbox to be cleared.
 */
int API dw_listbox_count(HWND handle)
{
	char tmpbuf[100];

	GetClassName(handle, tmpbuf, 99);

	if(strnicmp(tmpbuf, COMBOBOXCLASSNAME, strlen(COMBOBOXCLASSNAME)+1)==0)
		return (int)SendMessage(handle,
								CB_GETCOUNT,0L, 0L);

	return (int)SendMessage(handle,
							LB_GETCOUNT,0L, 0L);
}

/*
 * Sets the topmost item in the viewport.
 * Parameters:
 *          handle: Handle to the listbox to be cleared.
 *          top: Index to the top item.
 */
void API dw_listbox_set_top(HWND handle, int top)
{
	char tmpbuf[100];

	GetClassName(handle, tmpbuf, 99);

	/* This doesn't work on comboboxes */
	if(strnicmp(tmpbuf, COMBOBOXCLASSNAME, strlen(COMBOBOXCLASSNAME)+1)==0)
		return;

	SendMessage(handle, LB_SETTOPINDEX, (WPARAM)top, 0);
}

/*
 * Adds text to an MLE box and returns the current point.
 * Parameters:
 *          handle: Handle to the MLE to be queried.
 *          buffer: Text buffer to be imported.
 *          startpoint: Point to start entering text.
 */
unsigned int API dw_mle_import(HWND handle, char *buffer, int startpoint)
{
	int textlen, len = GetWindowTextLength(handle);
	char *tmpbuf;

	if((textlen = strlen(buffer)) < 1)
		return startpoint;

	startpoint++;
	tmpbuf = calloc(1, len + textlen + startpoint + 2);

	if(startpoint < 0)
		startpoint = 0;

	if(len)
	{
		char *dest, *start;
		int copylen = len - startpoint;

		GetWindowText(handle, tmpbuf, len+1);

		dest = &tmpbuf[startpoint+textlen-1];
		start = &tmpbuf[startpoint];

		if(copylen > 0)
			memcpy(dest, start, copylen);
	}
	memcpy(&tmpbuf[startpoint], buffer, textlen);

	SetWindowText(handle, tmpbuf);

	free(tmpbuf);
	return (startpoint + textlen - 1);
}

/*
 * Grabs text from an MLE box.
 * Parameters:
 *          handle: Handle to the MLE to be queried.
 *          buffer: Text buffer to be exported.
 *          startpoint: Point to start grabbing text.
 *          length: Amount of text to be grabbed.
 */
void API dw_mle_export(HWND handle, char *buffer, int startpoint, int length)
{
	int max, len = GetWindowTextLength(handle);
	char *tmpbuf = calloc(1, len+2);

	if(len)
		GetWindowText(handle, tmpbuf, len+1);

	buffer[0] = 0;

	if(startpoint < len)
	{
		max = MIN(length, len - startpoint);

		memcpy(buffer, &tmpbuf[startpoint], max);
	}

	free(tmpbuf);
}

/*
 * Obtains information about an MLE box.
 * Parameters:
 *          handle: Handle to the MLE to be queried.
 *          bytes: A pointer to a variable to return the total bytes.
 *          lines: A pointer to a variable to return the number of lines.
 */
void API dw_mle_query(HWND handle, unsigned long *bytes, unsigned long *lines)
{
	if(bytes)
		*bytes = GetWindowTextLength(handle);
	if(lines)
		*lines = (unsigned long)SendMessage(handle, EM_GETLINECOUNT, 0, 0);
}

/*
 * Deletes text from an MLE box.
 * Parameters:
 *          handle: Handle to the MLE to be deleted from.
 *          startpoint: Point to start deleting text.
 *          length: Amount of text to be deleted.
 */
void API dw_mle_delete(HWND handle, int startpoint, int length)
{
	int len = GetWindowTextLength(handle);
	char *tmpbuf = calloc(1, len+2);

	GetWindowText(handle, tmpbuf, len+1);

	if(startpoint + length < len)
	{
		strcpy(&tmpbuf[startpoint], &tmpbuf[startpoint+length]);

		SetWindowText(handle, tmpbuf);
	}

	free(tmpbuf);
}

/*
 * Clears all text from an MLE box.
 * Parameters:
 *          handle: Handle to the MLE to be cleared.
 */
void API dw_mle_clear(HWND handle)
{
	SetWindowText(handle, "");
}

/*
 * Sets the visible line of an MLE box.
 * Parameters:
 *          handle: Handle to the MLE.
 *          line: Line to be visible.
 */
void API dw_mle_set_visible(HWND handle, int line)
{
	int point = (int)SendMessage(handle, EM_LINEINDEX, (WPARAM)line, 0);
	dw_mle_set(handle, point);
}

/*
 * Sets the editablity of an MLE box.
 * Parameters:
 *          handle: Handle to the MLE.
 *          state: TRUE if it can be edited, FALSE for readonly.
 */
void API dw_mle_set_editable(HWND handle, int state)
{
	SendMessage(handle, EM_SETREADONLY, (WPARAM)(state ? FALSE : TRUE), 0);
}

/*
 * Sets the word wrap state of an MLE box.
 * Parameters:
 *          handle: Handle to the MLE.
 *          state: TRUE if it wraps, FALSE if it doesn't.
 */
void API dw_mle_set_word_wrap(HWND handle, int state)
{
	/* If ES_AUTOHSCROLL is not set and there is not
	 * horizontal scrollbar it word wraps.
	 */
	if(state)
		dw_window_set_style(handle, 0, ES_AUTOHSCROLL);
	else
		dw_window_set_style(handle, ES_AUTOHSCROLL, ES_AUTOHSCROLL);
}

/*
 * Sets the current cursor position of an MLE box.
 * Parameters:
 *          handle: Handle to the MLE to be positioned.
 *          point: Point to position cursor.
 */
void API dw_mle_set(HWND handle, int point)
{
	SendMessage(handle, EM_SETSEL, 0, MAKELONG(point,point));
	SendMessage(handle, EM_SCROLLCARET, 0, 0);
}

/*
 * Finds text in an MLE box.
 * Parameters:
 *          handle: Handle to the MLE to be cleared.
 *          text: Text to search for.
 *          point: Start point of search.
 *          flags: Search specific flags.
 */
int API dw_mle_search(HWND handle, char *text, int point, unsigned long flags)
{
	int len = GetWindowTextLength(handle);
	char *tmpbuf = calloc(1, len+2);
	int z, textlen, retval = 0;

	GetWindowText(handle, tmpbuf, len+1);

	textlen = strlen(text);

	if(flags & DW_MLE_CASESENSITIVE)
	{
		for(z=point;z<(len-textlen) && !retval;z++)
		{
			if(strncmp(&tmpbuf[z], text, textlen) == 0)
				retval = z + textlen;
		}
	}
	else
	{
		for(z=point;z<(len-textlen) && !retval;z++)
		{
			if(strnicmp(&tmpbuf[z], text, textlen) == 0)
				retval = z + textlen;
		}
	}

	if(retval)
	{
		SendMessage(handle, EM_SETSEL, (WPARAM)retval - textlen, (LPARAM)retval);
		SendMessage(handle, EM_SCROLLCARET, 0, 0);
	}

	free(tmpbuf);

	return retval;
}

/*
 * Stops redrawing of an MLE box.
 * Parameters:
 *          handle: Handle to the MLE to freeze.
 */
void API dw_mle_freeze(HWND handle)
{
}

/*
 * Resumes redrawing of an MLE box.
 * Parameters:
 *          handle: Handle to the MLE to thaw.
 */
void API dw_mle_thaw(HWND handle)
{
}

/*
 * Returns the range of the percent bar.
 * Parameters:
 *          handle: Handle to the percent bar to be queried.
 */
unsigned int API dw_percent_query_range(HWND handle)
{
	return (unsigned int)SendMessage(handle, PBM_GETRANGE, (WPARAM)FALSE, 0);
}

/*
 * Sets the percent bar position.
 * Parameters:
 *          handle: Handle to the percent bar to be set.
 *          position: Position of the percent bar withing the range.
 */
void API dw_percent_set_pos(HWND handle, unsigned int position)
{
	SendMessage(handle, PBM_SETPOS, (WPARAM)position, 0);
}

/*
 * Returns the position of the slider.
 * Parameters:
 *          handle: Handle to the slider to be queried.
 */
unsigned int API dw_slider_query_pos(HWND handle)
{
	int max = (int)SendMessage(handle, TBM_GETRANGEMAX, 0, 0);
	ULONG currentstyle = GetWindowLong(handle, GWL_STYLE);

	if(currentstyle & TBS_VERT)
		return max - (unsigned int)SendMessage(handle, TBM_GETPOS, 0, 0);
	return (unsigned int)SendMessage(handle, TBM_GETPOS, 0, 0);
}

/*
 * Sets the slider position.
 * Parameters:
 *          handle: Handle to the slider to be set.
 *          position: Position of the slider withing the range.
 */
void API dw_slider_set_pos(HWND handle, unsigned int position)
{
	int max = (int)SendMessage(handle, TBM_GETRANGEMAX, 0, 0);
	ULONG currentstyle = GetWindowLong(handle, GWL_STYLE);

	if(currentstyle & TBS_VERT)
		SendMessage(handle, TBM_SETPOS, (WPARAM)TRUE, (LPARAM)max - position);
	else
		SendMessage(handle, TBM_SETPOS, (WPARAM)TRUE, (LPARAM)position);
}

/*
 * Returns the position of the scrollbar.
 * Parameters:
 *          handle: Handle to the scrollbar to be queried.
 */
unsigned int API dw_scrollbar_query_pos(HWND handle)
{
	return (unsigned int)SendMessage(handle, SBM_GETPOS, 0, 0);
}

/*
 * Sets the scrollbar position.
 * Parameters:
 *          handle: Handle to the scrollbar to be set.
 *          position: Position of the scrollbar withing the range.
 */
void API dw_scrollbar_set_pos(HWND handle, unsigned int position)
{
	dw_window_set_data(handle, "_dw_scrollbar_value", (void *)position);
	SendMessage(handle, SBM_SETPOS, (WPARAM)position, (LPARAM)TRUE);
}

/*
 * Sets the scrollbar range.
 * Parameters:
 *          handle: Handle to the scrollbar to be set.
 *          range: Maximum range value.
 *          visible: Visible area relative to the range.
 */
void API dw_scrollbar_set_range(HWND handle, unsigned int range, unsigned int visible)
{
	SCROLLINFO si;

	si.cbSize = sizeof(SCROLLINFO);
	si.fMask = SIF_RANGE | SIF_PAGE;
	si.nMin = 0;
	si.nMax = range - 1;
	si.nPage = visible;
	SendMessage(handle, SBM_SETSCROLLINFO, (WPARAM)TRUE, (LPARAM)&si);
}

/*
 * Sets the spinbutton value.
 * Parameters:
 *          handle: Handle to the spinbutton to be set.
 *          position: Current value of the spinbutton.
 */
void API dw_spinbutton_set_pos(HWND handle, long position)
{
	char tmpbuf[100];
	ColorInfo *cinfo = (ColorInfo *)GetWindowLongPtr(handle, GWLP_USERDATA);

	sprintf(tmpbuf, "%d", position);

	if(cinfo && cinfo->buddy)
		SetWindowText(cinfo->buddy, tmpbuf);

	if(IS_IE5PLUS)
		SendMessage(handle, UDM_SETPOS32, 0, (LPARAM)position);
	else
		SendMessage(handle, UDM_SETPOS, 0, (LPARAM)MAKELONG((short)position, 0));
}

/*
 * Sets the spinbutton limits.
 * Parameters:
 *          handle: Handle to the spinbutton to be set.
 *          position: Current value of the spinbutton.
 *          position: Current value of the spinbutton.
 */
void API dw_spinbutton_set_limits(HWND handle, long upper, long lower)
{
	if(IS_IE5PLUS)
		SendMessage(handle, UDM_SETRANGE32, (WPARAM)lower,(LPARAM)upper);
	else
		SendMessage(handle, UDM_SETRANGE32, (WPARAM)((short)lower),
					(LPARAM)((short)upper));
}

/*
 * Sets the entryfield character limit.
 * Parameters:
 *          handle: Handle to the spinbutton to be set.
 *          limit: Number of characters the entryfield will take.
 */
void API dw_entryfield_set_limit(HWND handle, ULONG limit)
{
	SendMessage(handle, EM_SETLIMITTEXT, (WPARAM)limit, 0);
}

/*
 * Returns the current value of the spinbutton.
 * Parameters:
 *          handle: Handle to the spinbutton to be queried.
 */
long API dw_spinbutton_query(HWND handle)
{
	if(IS_IE5PLUS)
		return (long)SendMessage(handle, UDM_GETPOS32, 0, 0);
	else
		return (long)SendMessage(handle, UDM_GETPOS, 0, 0);
}

/*
 * Returns the state of the checkbox.
 * Parameters:
 *          handle: Handle to the checkbox to be queried.
 */
int API dw_checkbox_query(HWND handle)
{
	if(SendMessage(handle, BM_GETCHECK, 0, 0) == BST_CHECKED)
		return (in_checkbox_handler ? FALSE : TRUE);
	return (in_checkbox_handler ? TRUE : FALSE);
}

/* This function unchecks all radiobuttons on a box */
BOOL CALLBACK _uncheck_radios(HWND handle, LPARAM lParam)
{
	char tmpbuf[100];

	GetClassName(handle, tmpbuf, 99);

	if(strnicmp(tmpbuf, BUTTONCLASSNAME, strlen(BUTTONCLASSNAME)+1)==0)
	{
		BubbleButton *bubble= (BubbleButton *)GetWindowLongPtr(handle, GWLP_USERDATA);

		if(bubble && !bubble->checkbox)
			SendMessage(handle, BM_SETCHECK, 0, 0);
	}
	return TRUE;
}
/*
 * Sets the state of the checkbox.
 * Parameters:
 *          handle: Handle to the checkbox to be queried.
 *          value: TRUE for checked, FALSE for unchecked.
 */
void API dw_checkbox_set(HWND handle, int value)
{
	BubbleButton *bubble= (BubbleButton *)GetWindowLongPtr(handle, GWLP_USERDATA);

	if(bubble && !bubble->checkbox)
	{
		HWND parent = GetParent(handle);

		if(parent)
			EnumChildWindows(parent, _uncheck_radios, 0);
	}
	SendMessage(handle, BM_SETCHECK, (WPARAM)value, 0);
}

/*
 * Inserts an item into a tree window (widget) after another item.
 * Parameters:
 *          handle: Handle to the tree to be inserted.
 *          item: Handle to the item to be positioned after.
 *          title: The text title of the entry.
 *          icon: Handle to coresponding icon.
 *          parent: Parent handle or 0 if root.
 *          itemdata: Item specific data.
 */
HTREEITEM API dw_tree_insert_after(HWND handle, HTREEITEM item, char *title, unsigned long icon, HTREEITEM parent, void *itemdata)
{
	TVITEM tvi;
	TVINSERTSTRUCT tvins;
	HTREEITEM hti;
	void **ptrs= malloc(sizeof(void *) * 2);

	ptrs[0] = title;
	ptrs[1] = itemdata;

	tvi.mask = TVIF_TEXT | TVIF_IMAGE | TVIF_SELECTEDIMAGE | TVIF_PARAM;
	tvi.pszText = title;
	tvi.lParam = (LONG)ptrs;
	tvi.cchTextMax = strlen(title);
	tvi.iSelectedImage = tvi.iImage = _lookup_icon(handle, (HICON)icon, 1);

	tvins.item = tvi;
	tvins.hParent = parent;
	tvins.hInsertAfter = item ? item : TVI_FIRST;

	hti = TreeView_InsertItem(handle, &tvins);

	return hti;
}

/*
 * Inserts an item into a tree window (widget).
 * Parameters:
 *          handle: Handle to the tree to be inserted.
 *          title: The text title of the entry.
 *          icon: Handle to coresponding icon.
 *          parent: Parent handle or 0 if root.
 *          itemdata: Item specific data.
 */
HTREEITEM API dw_tree_insert(HWND handle, char *title, unsigned long icon, HTREEITEM parent, void *itemdata)
{
	TVITEM tvi;
	TVINSERTSTRUCT tvins;
	HTREEITEM hti;
	void **ptrs= malloc(sizeof(void *) * 2);

	ptrs[0] = title;
	ptrs[1] = itemdata;

	tvi.mask = TVIF_TEXT | TVIF_IMAGE | TVIF_SELECTEDIMAGE | TVIF_PARAM;
	tvi.pszText = title;
	tvi.lParam = (LONG)ptrs;
	tvi.cchTextMax = strlen(title);
	tvi.iSelectedImage = tvi.iImage = _lookup_icon(handle, (HICON)icon, 1);

	tvins.item = tvi;
	tvins.hParent = parent;
	tvins.hInsertAfter = TVI_LAST;

	hti = TreeView_InsertItem(handle, &tvins);

	return hti;
}

/*
 * Sets the text and icon of an item in a tree window (widget).
 * Parameters:
 *          handle: Handle to the tree containing the item.
 *          item: Handle of the item to be modified.
 *          title: The text title of the entry.
 *          icon: Handle to coresponding icon.
 */
void API dw_tree_set(HWND handle, HTREEITEM item, char *title, unsigned long icon)
{
	TVITEM tvi;
	void **ptrs;

	tvi.mask = TVIF_HANDLE;
	tvi.hItem = item;

	if(TreeView_GetItem(handle, &tvi))
	{

		ptrs = (void **)tvi.lParam;
		ptrs[0] = title;

		tvi.mask = TVIF_TEXT | TVIF_IMAGE | TVIF_SELECTEDIMAGE;
		tvi.pszText = title;
		tvi.cchTextMax = strlen(title);
		tvi.iSelectedImage = tvi.iImage = _lookup_icon(handle, (HICON)icon, 1);
		tvi.hItem = (HTREEITEM)item;

		TreeView_SetItem(handle, &tvi);
	}
}

/*
 * Sets the item data of a tree item.
 * Parameters:
 *          handle: Handle to the tree containing the item.
 *          item: Handle of the item to be modified.
 *          itemdata: User defined data to be associated with item.
 */
void API dw_tree_set_data(HWND handle, HTREEITEM item, void *itemdata)
{
	TVITEM tvi;
	void **ptrs;

	tvi.mask = TVIF_HANDLE;
	tvi.hItem = item;

	if(TreeView_GetItem(handle, &tvi))
	{
		ptrs = (void **)tvi.lParam;
		ptrs[1] = itemdata;
	}
}

/*
 * Gets the item data of a tree item.
 * Parameters:
 *          handle: Handle to the tree containing the item.
 *          item: Handle of the item to be modified.
 */
void * API dw_tree_get_data(HWND handle, HTREEITEM item)
{
	TVITEM tvi;
	void **ptrs;

	tvi.mask = TVIF_HANDLE;
	tvi.hItem = item;

	if(TreeView_GetItem(handle, &tvi))
	{
		ptrs = (void **)tvi.lParam;
		return ptrs[1];
	}
	return NULL;
}

/*
 * Sets this item as the active selection.
 * Parameters:
 *       handle: Handle to the tree window (widget) to be selected.
 *       item: Handle to the item to be selected.
 */
void API dw_tree_item_select(HWND handle, HTREEITEM item)
{
	dw_window_set_data(handle, "_dw_select_item", (void *)1);
	TreeView_SelectItem(handle, item);
	dw_window_set_data(handle, "_dw_select_item", (void *)0);
}

/* Delete all tree subitems */
void _dw_tree_delete_recursive(HWND handle, HTREEITEM node)
{
	HTREEITEM hti;

	hti = TreeView_GetChild(handle, node);

	while(hti)
	{
		HTREEITEM lastitem = hti;

		hti = TreeView_GetNextSibling(handle, hti);
		dw_tree_delete(handle, lastitem);
	}
}

/*
 * Removes all nodes from a tree.
 * Parameters:
 *       handle: Handle to the window (widget) to be cleared.
 */
void API dw_tree_clear(HWND handle)
{
	HTREEITEM hti = TreeView_GetRoot(handle);

	dw_window_set_data(handle, "_dw_select_item", (void *)1);
	while(hti)
	{
		HTREEITEM lastitem = hti;

		_dw_tree_delete_recursive(handle, hti);
		hti = TreeView_GetNextSibling(handle, hti);
		dw_tree_delete(handle, lastitem);
	}
	dw_window_set_data(handle, "_dw_select_item", (void *)0);
}

/*
 * Expands a node on a tree.
 * Parameters:
 *       handle: Handle to the tree window (widget).
 *       item: Handle to node to be expanded.
 */
void API dw_tree_expand(HWND handle, HTREEITEM item)
{
	TreeView_Expand(handle, item, TVE_EXPAND);
}

/*
 * Collapses a node on a tree.
 * Parameters:
 *       handle: Handle to the tree window (widget).
 *       item: Handle to node to be collapsed.
 */
void API dw_tree_collapse(HWND handle, HTREEITEM item)
{
	TreeView_Expand(handle, item, TVE_COLLAPSE);
}

/*
 * Removes a node from a tree.
 * Parameters:
 *       handle: Handle to the window (widget) to be cleared.
 *       item: Handle to node to be deleted.
 */
void API dw_tree_delete(HWND handle, HTREEITEM item)
{
	TVITEM tvi;
	void **ptrs;

	if(item == TVI_ROOT || !item)
		return;

	tvi.mask = TVIF_HANDLE;
	tvi.hItem = item;

	if(TreeView_GetItem(handle, &tvi))
		ptrs = (void **)tvi.lParam;

	_dw_tree_delete_recursive(handle, item);
	TreeView_DeleteItem(handle, item);
	if(ptrs)
		free(ptrs);
}

/*
 * Sets up the container columns.
 * Parameters:
 *          handle: Handle to the container to be configured.
 *          flags: An array of unsigned longs with column flags.
 *          titles: An array of strings with column text titles.
 *          count: The number of columns (this should match the arrays).
 *          separator: The column number that contains the main separator.
 *                     (only used on OS/2 but must be >= 0 on all)
 */
int API dw_container_setup(HWND handle, unsigned long *flags, char **titles, int count, int separator)
{
	ContainerInfo *cinfo = (ContainerInfo *)GetWindowLongPtr(handle, GWLP_USERDATA);
	int z, l = 0;
	unsigned long *tempflags = calloc(sizeof(unsigned long), count + 2);
	LVCOLUMN lvc;

	if(separator == -1)
	{
		tempflags[0] = DW_CFA_RESERVED;
		l = 1;
	}

	memcpy(&tempflags[l], flags, sizeof(unsigned long) * count);
	tempflags[count + l] = 0;
	cinfo->flags = tempflags;
	cinfo->columns = count + l;


	for(z=0;z<count;z++)
	{
		if(titles[z])
		{
			lvc.mask = LVCF_TEXT | LVCF_WIDTH | LVCF_SUBITEM | LVCF_FMT;
			lvc.pszText = titles[z];
			lvc.cchTextMax = strlen(titles[z]);
			if(flags[z] & DW_CFA_RIGHT)
				lvc.fmt = LVCFMT_RIGHT;
			else if(flags[z] & DW_CFA_CENTER)
				lvc.fmt = LVCFMT_CENTER;
			else
				lvc.fmt = LVCFMT_LEFT;
			lvc.cx = 75;
			lvc.iSubItem = count;
			SendMessage(handle, LVM_INSERTCOLUMN, (WPARAM)z + l, (LPARAM)&lvc);
		}
	}
	ListView_SetExtendedListViewStyle(handle, LVS_EX_FULLROWSELECT | LVS_EX_SUBITEMIMAGES);
	return TRUE;
}

/*
 * Sets up the filesystem columns, note: filesystem always has an icon/filename field.
 * Parameters:
 *          handle: Handle to the container to be configured.
 *          flags: An array of unsigned longs with column flags.
 *          titles: An array of strings with column text titles.
 *          count: The number of columns (this should match the arrays).
 */
int API dw_filesystem_setup(HWND handle, unsigned long *flags, char **titles, int count)
{
	LV_COLUMN lvc;

	lvc.mask = LVCF_TEXT | LVCF_WIDTH | LVCF_SUBITEM;
	lvc.pszText = "Filename";
	lvc.cchTextMax = 8;
	lvc.fmt = 0;
	if(!count)
		lvc.cx = 300;
	else
		lvc.cx = 150;
	lvc.iSubItem = count;
	SendMessage(handle, LVM_INSERTCOLUMN, (WPARAM)0, (LPARAM)&lvc);
	dw_container_setup(handle, flags, titles, count, -1);
	return TRUE;
}

/*
 * Obtains an icon from a module (or header in GTK).
 * Parameters:
 *          module: Handle to module (DLL) in OS/2 and Windows.
 *          id: A unsigned long id int the resources on OS/2 and
 *              Windows, on GTK this is converted to a pointer
 *              to an embedded XPM.
 */
unsigned long API dw_icon_load(unsigned long module, unsigned long id)
{
	return (unsigned long)LoadIcon(DWInstance, MAKEINTRESOURCE(id));
}

/*
 * Obtains an icon from a file.
 * Parameters:
 *       filename: Name of the file, omit extention to have
 *                 DW pick the appropriate file extension.
 *                 (ICO on OS/2 or Windows, XPM on Unix)
 */
unsigned long API dw_icon_load_from_file(char *filename)
{
	char *file = malloc(strlen(filename) + 5);
	HANDLE icon;

	if(!file)
		return 0;

	strcpy(file, filename);

	/* check if we can read from this file (it exists and read permission) */
	if(access(file, 04) != 0)
	{
		/* Try with .bmp extention */
		strcat(file, ".ico");
		if(access(file, 04) != 0)
		{
			free(file);
			return 0;
		}
	}
	icon = LoadImage(NULL, file, IMAGE_ICON, 0, 0, LR_LOADFROMFILE);
	free(file);
	return (unsigned long)icon;
}

/*
 * Frees a loaded resource in OS/2 and Windows.
 * Parameters:
 *          handle: Handle to icon returned by dw_icon_load().
 */
void API dw_icon_free(unsigned long handle)
{
	DestroyIcon((HICON)handle);
}

/*
 * Allocates memory used to populate a container.
 * Parameters:
 *          handle: Handle to the container window (widget).
 *          rowcount: The number of items to be populated.
 */
void * API dw_container_alloc(HWND handle, int rowcount)
{
	LV_ITEM lvi;
	int z;

	lvi.mask = LVIF_DI_SETITEM | LVIF_TEXT | LVIF_IMAGE;
	lvi.iSubItem = 0;
	/* Insert at the end */
	lvi.iItem = 1000000;
	lvi.pszText = "";
	lvi.cchTextMax = 1;
	lvi.iImage = -1;

	ShowWindow(handle, SW_HIDE);
	for(z=0;z<rowcount;z++)
		ListView_InsertItem(handle, &lvi);
	return (void *)handle;
}

/* Finds a icon in the table, otherwise it adds it to the table
 * and returns the index in the table.
 */
int _lookup_icon(HWND handle, HICON hicon, int type)
{
	int z;
	static HWND lasthwnd = NULL;

	if(!hSmall || !hLarge)
	{
		hSmall = ImageList_Create(16, 16, ILC_COLOR16 | ILC_MASK, ICON_INDEX_LIMIT, 0);
		hLarge = ImageList_Create(32, 32, ILC_COLOR16 | ILC_MASK, ICON_INDEX_LIMIT, 0);
	}
	for(z=0;z<ICON_INDEX_LIMIT;z++)
	{
		if(!lookup[z])
		{
			lookup[z] = hicon;
			ImageList_AddIcon(hSmall, hicon);
			ImageList_AddIcon(hLarge, hicon);
			if(type)
			{
				TreeView_SetImageList(handle, hSmall, TVSIL_NORMAL);
			}
			else
			{
				ListView_SetImageList(handle, hSmall, LVSIL_SMALL);
				ListView_SetImageList(handle, hLarge, LVSIL_NORMAL);
			}
			lasthwnd = handle;
			return z;
		}

		if(hicon == lookup[z])
		{
			if(lasthwnd != handle)
			{
				if(type)
				{
					TreeView_SetImageList(handle, hSmall, TVSIL_NORMAL);
				}
				else
				{
					ListView_SetImageList(handle, hSmall, LVSIL_SMALL);
					ListView_SetImageList(handle, hLarge, LVSIL_NORMAL);
				}
                lasthwnd = handle;
			}
			return z;
		}
	}
	return -1;
}

/*
 * Sets an item in specified row and column to the given data.
 * Parameters:
 *          handle: Handle to the container window (widget).
 *          pointer: Pointer to the allocated memory in dw_container_alloc().
 *          column: Zero based column of data being set.
 *          row: Zero based row of data being set.
 *          data: Pointer to the data to be added.
 */
void API dw_filesystem_set_file(HWND handle, void *pointer, int row, char *filename, unsigned long icon)
{
	LV_ITEM lvi;

	lvi.iItem = row;
	lvi.iSubItem = 0;
	lvi.mask = LVIF_DI_SETITEM | LVIF_IMAGE | LVIF_TEXT;
	lvi.pszText = filename;
	lvi.cchTextMax = strlen(filename);
	lvi.iImage = _lookup_icon(handle, (HICON)icon, 0);

	ListView_SetItem(handle, &lvi);
}

/*
 * Sets an item in specified row and column to the given data.
 * Parameters:
 *          handle: Handle to the container window (widget).
 *          pointer: Pointer to the allocated memory in dw_container_alloc().
 *          column: Zero based column of data being set.
 *          row: Zero based row of data being set.
 *          data: Pointer to the data to be added.
 */
void API dw_filesystem_set_item(HWND handle, void *pointer, int column, int row, void *data)
{
	dw_container_set_item(handle, pointer, column + 1, row, data);
}

/*
 * Sets an item in specified row and column to the given data.
 * Parameters:
 *          handle: Handle to the container window (widget).
 *          pointer: Pointer to the allocated memory in dw_container_alloc().
 *          column: Zero based column of data being set.
 *          row: Zero based row of data being set.
 *          data: Pointer to the data to be added.
 */
void API dw_container_set_item(HWND handle, void *pointer, int column, int row, void *data)
{
	ContainerInfo *cinfo = (ContainerInfo *)GetWindowLongPtr(handle, GWLP_USERDATA);
	ULONG *flags;
	LV_ITEM lvi;
	char textbuffer[100], *destptr = textbuffer;

	if(!cinfo || !cinfo->flags || !data)
		return;

	flags = cinfo->flags;

	lvi.mask = LVIF_DI_SETITEM | LVIF_TEXT;
	lvi.iItem = row;
	lvi.iSubItem = column;

	if(flags[column] & DW_CFA_BITMAPORICON)
	{
		HICON hicon = *((HICON *)data);

		lvi.mask = LVIF_DI_SETITEM | LVIF_IMAGE;
		lvi.pszText = NULL;
		lvi.cchTextMax = 0;

		lvi.iImage = _lookup_icon(handle, hicon, 0);
	}
	else if(flags[column] & DW_CFA_STRING)
	{
		char *tmp = *((char **)data);

		if(!tmp)
			tmp = "";

		lvi.pszText = tmp;
		lvi.cchTextMax = strlen(tmp);
		destptr = tmp;
	}
	else if(flags[column] & DW_CFA_ULONG)
	{
		ULONG tmp = *((ULONG *)data);

		sprintf(textbuffer, "%lu", tmp);

		lvi.pszText = textbuffer;
		lvi.cchTextMax = strlen(textbuffer);
	}
	else if(flags[column] & DW_CFA_DATE)
	{
		struct tm curtm;
		CDATE cdate = *((CDATE *)data);

		curtm.tm_mday = cdate.day;
		curtm.tm_mon = cdate.month - 1;
		curtm.tm_year = cdate.year - 1900;

		strftime(textbuffer, 100, "%x", &curtm);

		lvi.pszText = textbuffer;
		lvi.cchTextMax = strlen(textbuffer);
	}
	else if(flags[column] & DW_CFA_TIME)
	{
		struct tm curtm;
		CTIME ctime = *((CTIME *)data);

		curtm.tm_hour = ctime.hours;
		curtm.tm_min = ctime.minutes;
		curtm.tm_sec = ctime.seconds;

		strftime(textbuffer, 100, "%X", &curtm);

		lvi.pszText = textbuffer;
		lvi.cchTextMax = strlen(textbuffer);
	}

	ListView_SetItem(handle, &lvi);
}

/*
 * Changes an existing item in specified row and column to the given data.
 * Parameters:
 *          handle: Handle to the container window (widget).
 *          column: Zero based column of data being set.
 *          row: Zero based row of data being set.
 *          data: Pointer to the data to be added.
 */
void API dw_container_change_item(HWND handle, int column, int row, void *data)
{
	dw_container_set_item(handle, NULL, column, row, data);
}

/*
 * Sets the width of a column in the container.
 * Parameters:
 *          handle: Handle to window (widget) of container.
 *          column: Zero based column of width being set.
 *          width: Width of column in pixels.
 */
void API dw_container_set_column_width(HWND handle, int column, int width)
{
	ListView_SetColumnWidth(handle, column, width);
}

/*
 * Sets the title of a row in the container.
 * Parameters:
 *          pointer: Pointer to the allocated memory in dw_container_alloc().
 *          row: Zero based row of data being set.
 *          title: String title of the item.
 */
void API dw_container_set_row_title(void *pointer, int row, char *title)
{
	LV_ITEM lvi;
	HWND container = (HWND)pointer;

	lvi.iItem = row;
	lvi.iSubItem = 0;
	lvi.mask = LVIF_PARAM;
	lvi.lParam = (LPARAM)title;

	if(!ListView_SetItem(container, &lvi) && lvi.lParam)
		lvi.lParam = 0;

}

/*
 * Sets the title of a row in the container.
 * Parameters:
 *          handle: Handle to the container window (widget).
 *          pointer: Pointer to the allocated memory in dw_container_alloc().
 *          rowcount: The number of rows to be inserted.
 */
void API dw_container_insert(HWND handle, void *pointer, int rowcount)
{
	ShowWindow(handle, SW_SHOW);
}

/*
 * Removes all rows from a container.
 * Parameters:
 *       handle: Handle to the window (widget) to be cleared.
 *       redraw: TRUE to cause the container to redraw immediately.
 */
void API dw_container_clear(HWND handle, int redraw)
{
	ListView_DeleteAllItems(handle);
}

/*
 * Removes the first x rows from a container.
 * Parameters:
 *       handle: Handle to the window (widget) to be deleted from.
 *       rowcount: The number of rows to be deleted.
 */
void API dw_container_delete(HWND handle, int rowcount)
{
	int z;

	for(z=0;z<rowcount;z++)
	{
		ListView_DeleteItem(handle, 0);
	}
}

/*
 * Scrolls container up or down.
 * Parameters:
 *       handle: Handle to the window (widget) to be scrolled.
 *       direction: DW_SCROLL_UP, DW_SCROLL_DOWN, DW_SCROLL_TOP or
 *                  DW_SCROLL_BOTTOM. (rows is ignored for last two)
 *       rows: The number of rows to be scrolled.
 */
void API dw_container_scroll(HWND handle, int direction, long rows)
{
	switch(direction)
	{
	case DW_SCROLL_TOP:
		ListView_Scroll(handle, 0, -10000000);
        break;
	case DW_SCROLL_BOTTOM:
		ListView_Scroll(handle, 0, 10000000);
		break;
	}
}

/*
 * Starts a new query of a container.
 * Parameters:
 *       handle: Handle to the window (widget) to be queried.
 *       flags: If this parameter is DW_CRA_SELECTED it will only
 *              return items that are currently selected.  Otherwise
 *              it will return all records in the container.
 */
char * API dw_container_query_start(HWND handle, unsigned long flags)
{
	LV_ITEM lvi;

	_index = ListView_GetNextItem(handle, -1, flags);

	if(_index == -1)
		return NULL;

	memset(&lvi, 0, sizeof(LV_ITEM));

	lvi.iItem = _index;
	lvi.mask = LVIF_PARAM;

	ListView_GetItem(handle, &lvi);

	return (char *)lvi.lParam;
}

/*
 * Continues an existing query of a container.
 * Parameters:
 *       handle: Handle to the window (widget) to be queried.
 *       flags: If this parameter is DW_CRA_SELECTED it will only
 *              return items that are currently selected.  Otherwise
 *              it will return all records in the container.
 */
char * API dw_container_query_next(HWND handle, unsigned long flags)
{
	LV_ITEM lvi;

	_index = ListView_GetNextItem(handle, _index, flags);

	if(_index == -1)
		return NULL;

	memset(&lvi, 0, sizeof(LV_ITEM));

	lvi.iItem = _index;
	lvi.mask = LVIF_PARAM;

	ListView_GetItem(handle, &lvi);

	return (char *)lvi.lParam;
}

/*
 * Cursors the item with the text speficied, and scrolls to that item.
 * Parameters:
 *       handle: Handle to the window (widget) to be queried.
 *       text:  Text usually returned by dw_container_query().
 */
void API dw_container_cursor(HWND handle, char *text)
{
	int index = ListView_GetNextItem(handle, -1, LVNI_ALL);

	while(index != -1)
	{
		LV_ITEM lvi;

		memset(&lvi, 0, sizeof(LV_ITEM));

		lvi.iItem = index;
		lvi.mask = LVIF_PARAM;

		ListView_GetItem(handle, &lvi);

		if((char *)lvi.lParam == text)
		{
			RECT viewport, item;

			ListView_SetItemState(handle, index, LVIS_FOCUSED | LVIS_SELECTED, LVIS_FOCUSED | LVIS_SELECTED);
			ListView_EnsureVisible(handle, index, TRUE);
			return;
		}

        index = ListView_GetNextItem(handle, index, LVNI_ALL);
	}
}

/*
 * Deletes the item with the text speficied.
 * Parameters:
 *       handle: Handle to the window (widget).
 *       text:  Text usually returned by dw_container_query().
 */
void API dw_container_delete_row(HWND handle, char *text)
{
	int index = ListView_GetNextItem(handle, -1, LVNI_ALL);

	while(index != -1)
	{
		LV_ITEM lvi;

		memset(&lvi, 0, sizeof(LV_ITEM));

		lvi.iItem = index;
		lvi.mask = LVIF_PARAM;

		ListView_GetItem(handle, &lvi);

		if((char *)lvi.lParam == text)
		{
			ListView_DeleteItem(handle, index);
			return;
		}

        index = ListView_GetNextItem(handle, index, LVNI_ALL);
	}
}

/*
 * Optimizes the column widths so that all data is visible.
 * Parameters:
 *       handle: Handle to the window (widget) to be optimized.
 */
void API dw_container_optimize(HWND handle)
{
	ContainerInfo *cinfo = (ContainerInfo *)GetWindowLongPtr(handle, GWLP_USERDATA);
	ULONG *flags;
	LV_ITEM lvi;

	if(cinfo && cinfo->columns == 1)
	{
		ListView_SetColumnWidth(handle, 0, LVSCW_AUTOSIZE);
	}
	else if(cinfo && cinfo->columns > 1)
	{
		int z, index;
		ULONG *flags = cinfo->flags, *columns = calloc(sizeof(ULONG), cinfo->columns);
		char *text = malloc(1024);

		/* Initialize with sizes of column labels */
		for(z=0;z<cinfo->columns;z++)
		{
			if(flags[z] & DW_CFA_BITMAPORICON)
				columns[z] = 5;
			else
			{
				LVCOLUMN lvc;

				lvc.mask = LVCF_TEXT;
				lvc.cchTextMax = 1023;
				lvc.pszText = text;

				if(ListView_GetColumn(handle, z, &lvc))
					columns[z] = ListView_GetStringWidth(handle, lvc.pszText);

				if(flags[z] & DW_CFA_RESERVED)
					columns[z] += 20;
			}
		}

		index = ListView_GetNextItem(handle, -1, LVNI_ALL);

		/* Query all the item texts */
		while(index != -1)
		{
			for(z=0;z<cinfo->columns;z++)
			{
				LV_ITEM lvi;

				memset(&lvi, 0, sizeof(LV_ITEM));

				lvi.iItem = index;
				lvi.iSubItem = z;
				lvi.mask = LVIF_TEXT;
				lvi.cchTextMax = 1023;
				lvi.pszText = text;

				if(ListView_GetItem(handle, &lvi))
				{
					int width = ListView_GetStringWidth(handle, lvi.pszText);
					if(width > columns[z])
					{
						if(z == 0)
							columns[z] = width + 20;
						else
							columns[z] = width;
					}
				}
			}

			index = ListView_GetNextItem(handle, index, LVNI_ALL);
		}

		/* Set the new sizes */
		for(z=0;z<cinfo->columns;z++)
			ListView_SetColumnWidth(handle, z, columns[z] + 16);

		free(columns);
		free(text);
	}
}

/*
 * Creates a rendering context widget (window) to be packed.
 * Parameters:
 *       id: An id to be used with dw_window_from_id.
 * Returns:
 *       A handle to the widget or NULL on failure.
 */
HWND API dw_render_new(unsigned long id)
{
	Box *newbox = calloc(sizeof(Box), 1);
	HWND tmp = CreateWindow(ObjectClassName,
							"",
							WS_VISIBLE | WS_CHILD | WS_CLIPCHILDREN,
							0,0,2000,1000,
							DW_HWND_OBJECT,
							(HMENU)id,
							DWInstance,
							NULL);
	newbox->pad = 0;
	newbox->type = 0;
	newbox->count = 0;
	newbox->grouphwnd = (HWND)NULL;
	newbox->cinfo.pOldProc = SubclassWindow(tmp, _rendwndproc);
	newbox->cinfo.fore = newbox->cinfo.back = -1;

	SetWindowLongPtr(tmp, GWLP_USERDATA, (LONG_PTR)newbox);
	return tmp;
}

/* Sets the current foreground drawing color.
 * Parameters:
 *       red: red value.
 *       green: green value.
 *       blue: blue value.
 */
void API dw_color_foreground_set(unsigned long value)
{
	int threadid = dw_thread_id();

	if(threadid < 0 || threadid >= THREAD_LIMIT)
		threadid = 0;

	value = _internal_color(value);

	DeleteObject(_hPen[threadid]);
	DeleteObject(_hBrush[threadid]);
	_foreground[threadid] = RGB(DW_RED_VALUE(value), DW_GREEN_VALUE(value), DW_BLUE_VALUE(value));
	_hPen[threadid] = CreatePen(PS_SOLID, 1, _foreground[threadid]);
	_hBrush[threadid] = CreateSolidBrush(_foreground[threadid]);
}

/* Sets the current background drawing color.
 * Parameters:
 *       red: red value.
 *       green: green value.
 *       blue: blue value.
 */
void API dw_color_background_set(unsigned long value)
{
	int threadid = dw_thread_id();

	if(threadid < 0 || threadid >= THREAD_LIMIT)
		threadid = 0;

	value = _internal_color(value);

	if(value == DW_RGB_TRANSPARENT)
		_background[threadid] = DW_RGB_TRANSPARENT;
	else
		_background[threadid] = RGB(DW_RED_VALUE(value), DW_GREEN_VALUE(value), DW_BLUE_VALUE(value));
}

/* Draw a point on a window (preferably a render window).
 * Parameters:
 *       handle: Handle to the window.
 *       pixmap: Handle to the pixmap. (choose only one of these)
 *       x: X coordinate.
 *       y: Y coordinate.
 */
void API dw_draw_point(HWND handle, HPIXMAP pixmap, int x, int y)
{
	HDC hdcPaint;
	int threadid = dw_thread_id();

	if(threadid < 0 || threadid >= THREAD_LIMIT)
		threadid = 0;

	if(handle)
		hdcPaint = GetDC(handle);
	else if(pixmap)
		hdcPaint = pixmap->hdc;
	else
		return;

	SetPixel(hdcPaint, x, y, _foreground[threadid]);
	if(!pixmap)
		ReleaseDC(handle, hdcPaint);
}

/* Draw a line on a window (preferably a render window).
 * Parameters:
 *       handle: Handle to the window.
 *       pixmap: Handle to the pixmap. (choose only one of these)
 *       x1: First X coordinate.
 *       y1: First Y coordinate.
 *       x2: Second X coordinate.
 *       y2: Second Y coordinate.
 */
void API dw_draw_line(HWND handle, HPIXMAP pixmap, int x1, int y1, int x2, int y2)
{
	HDC hdcPaint;
	HPEN oldPen;
	int threadid = dw_thread_id();

	if(threadid < 0 || threadid >= THREAD_LIMIT)
		threadid = 0;

	if(handle)
		hdcPaint = GetDC(handle);
	else if(pixmap)
		hdcPaint = pixmap->hdc;
	else
		return;

	oldPen = SelectObject(hdcPaint, _hPen[threadid]);
	MoveToEx(hdcPaint, x1, y1, NULL);
	LineTo(hdcPaint, x2, y2);
	SelectObject(hdcPaint, oldPen);
	/* For some reason Win98 (at least) fails
	 * to draw the last pixel.  So I do it myself.
	 */
	SetPixel(hdcPaint, x2, y2, _foreground[threadid]);
	if(!pixmap)
		ReleaseDC(handle, hdcPaint);
}

/* Draw a rectangle on a window (preferably a render window).
 * Parameters:
 *       handle: Handle to the window.
 *       pixmap: Handle to the pixmap. (choose only one of these)
 *       x: X coordinate.
 *       y: Y coordinate.
 *       width: Width of rectangle.
 *       height: Height of rectangle.
 */
void API dw_draw_rect(HWND handle, HPIXMAP pixmap, int fill, int x, int y, int width, int height)
{
	HDC hdcPaint;
	HPEN oldPen;
	HBRUSH oldBrush;
	RECT Rect;
	int threadid = dw_thread_id();

	if(threadid < 0 || threadid >= THREAD_LIMIT)
		threadid = 0;

	if(handle)
		hdcPaint = GetDC(handle);
	else if(pixmap)
		hdcPaint = pixmap->hdc;
	else
		return;

	SetRect(&Rect, x, y, x + width , y + height );
	if(fill)
		FillRect(hdcPaint, &Rect, _hBrush[threadid]);
	else
		FrameRect(hdcPaint, &Rect, _hBrush[threadid]);
	if(!pixmap)
		ReleaseDC(handle, hdcPaint);
}

/* Draw text on a window (preferably a render window).
 * Parameters:
 *       handle: Handle to the window.
 *       pixmap: Handle to the pixmap. (choose only one of these)
 *       x: X coordinate.
 *       y: Y coordinate.
 *       text: Text to be displayed.
 */
void API dw_draw_text(HWND handle, HPIXMAP pixmap, int x, int y, char *text)
{
	HDC hdc;
	int size = 9, z, mustdelete = 0;
	HFONT hFont = 0, oldFont = 0;
	int threadid = dw_thread_id();
	ColorInfo *cinfo;

	if(threadid < 0 || threadid >= THREAD_LIMIT)
		threadid = 0;

	if(handle)
		hdc = GetDC(handle);
	else if(pixmap)
		hdc = pixmap->hdc;
	else
		return;

	if(handle)
		cinfo = (ColorInfo *)GetWindowLongPtr(handle, GWLP_USERDATA);
	else
		cinfo = (ColorInfo *)GetWindowLongPtr(pixmap->handle, GWLP_USERDATA);

	if(cinfo)
	{
		hFont = _acquire_font(handle, cinfo->fontname);
		mustdelete = 1;
	}

	if(hFont)
		oldFont = SelectObject(hdc, hFont);
	SetTextColor(hdc, _foreground[threadid]);
	if(_background[threadid] == DW_RGB_TRANSPARENT)
		SetBkMode(hdc, TRANSPARENT);
	else
	{
		SetBkMode(hdc, OPAQUE);
		SetBkColor(hdc, _background[threadid]);
	}
	TextOut(hdc, x, y, text, strlen(text));
	if(oldFont)
		SelectObject(hdc, oldFont);
	if(mustdelete)
		DeleteObject(hFont);
	if(!pixmap)
		ReleaseDC(handle, hdc);
}

/* Query the width and height of a text string.
 * Parameters:
 *       handle: Handle to the window.
 *       pixmap: Handle to the pixmap. (choose only one of these)
 *       text: Text to be queried.
 *       width: Pointer to a variable to be filled in with the width.
 *       height Pointer to a variable to be filled in with the height.
 */
void API dw_font_text_extents(HWND handle, HPIXMAP pixmap, char *text, int *width, int *height)
{
	HDC hdc;
	int mustdelete = 0;
	HFONT hFont = NULL, oldFont;
	SIZE sz;

	if(handle)
		hdc = GetDC(handle);
	else if(pixmap)
		hdc = pixmap->hdc;
	else
		return;

	{
		ColorInfo *cinfo;

		if(handle)
			cinfo = (ColorInfo *)GetWindowLongPtr(handle, GWLP_USERDATA);
		else
			cinfo = (ColorInfo *)GetWindowLongPtr(pixmap->handle, GWLP_USERDATA);

		if(cinfo)
		{
			hFont = _acquire_font(handle, cinfo->fontname);
			mustdelete = 1;
		}
	}
	oldFont = SelectObject(hdc, hFont);

	GetTextExtentPoint32(hdc, text, strlen(text), &sz);

	if(width)
		*width = sz.cx;

	if(height)
		*height = sz.cy;

	SelectObject(hdc, oldFont);
	if(mustdelete)
		DeleteObject(hFont);
	if(!pixmap)
		ReleaseDC(handle, hdc);
}

/* Call this after drawing to the screen to make sure
 * anything you have drawn is visible.
 */
void API dw_flush(void)
{
}

/*
 * Creates a pixmap with given parameters.
 * Parameters:
 *       handle: Window handle the pixmap is associated with.
 *       width: Width of the pixmap in pixels.
 *       height: Height of the pixmap in pixels.
 *       depth: Color depth of the pixmap.
 * Returns:
 *       A handle to a pixmap or NULL on failure.
 */
HPIXMAP API dw_pixmap_new(HWND handle, unsigned long width, unsigned long height, int depth)
{
	HPIXMAP pixmap;
	BITMAP bm;
	HDC hdc;

	if (!(pixmap = calloc(1,sizeof(struct _hpixmap))))
		return NULL;

	hdc = GetDC(handle);

	pixmap->width = width; pixmap->height = height;

	pixmap->handle = handle;
	pixmap->hbm = CreateCompatibleBitmap(hdc, width, height);
	pixmap->hdc = CreateCompatibleDC(hdc);

	SelectObject(pixmap->hdc, pixmap->hbm);

	ReleaseDC(handle, hdc);

	return pixmap;
}

/*
 * Creates a pixmap from a file.
 * Parameters:
 *       handle: Window handle the pixmap is associated with.
 *       filename: Name of the file, omit extention to have
 *                 DW pick the appropriate file extension.
 *                 (BMP on OS/2 or Windows, XPM on Unix)
 * Returns:
 *       A handle to a pixmap or NULL on failure.
 */
HPIXMAP API dw_pixmap_new_from_file(HWND handle, char *filename)
{
	HPIXMAP pixmap;
	BITMAP bm;
	HDC hdc;
	char *file = malloc(strlen(filename) + 5);

	if (!file || !(pixmap = calloc(1,sizeof(struct _hpixmap))))
	{
		if(file)
			free(file);
		return NULL;
	}

	strcpy(file, filename);

	/* check if we can read from this file (it exists and read permission) */
	if(access(file, 04) != 0)
	{
		/* Try with .bmp extention */
		strcat(file, ".bmp");
		if(access(file, 04) != 0)
		{
			free(pixmap);
			free(file);
			return NULL;
		}
	}

	hdc = GetDC(handle);

	pixmap->handle = handle;
	pixmap->hbm = (HBITMAP)LoadImage(NULL, file, IMAGE_BITMAP, 0, 0, LR_LOADFROMFILE);

	if(!pixmap->hbm)
	{
		free(file);
		free(pixmap);
		ReleaseDC(handle, hdc);
		return NULL;
	}

	pixmap->hdc = CreateCompatibleDC(hdc);

    GetObject(pixmap->hbm, sizeof(bm), &bm);

	pixmap->width = bm.bmWidth; pixmap->height = bm.bmHeight;

	SelectObject(pixmap->hdc, pixmap->hbm);

	ReleaseDC(handle, hdc);

	free(file);

	return pixmap;
}

/*
 * Creates a pixmap from internal resource graphic specified by id.
 * Parameters:
 *       handle: Window handle the pixmap is associated with.
 *       id: Resource ID associated with requested pixmap.
 * Returns:
 *       A handle to a pixmap or NULL on failure.
 */
HPIXMAP API dw_pixmap_grab(HWND handle, ULONG id)
{
	HPIXMAP pixmap;
	BITMAP bm;
	HDC hdc;

	if (!(pixmap = calloc(1,sizeof(struct _hpixmap))))
		return NULL;

	hdc = GetDC(handle);


	pixmap->hbm = LoadBitmap(DWInstance, MAKEINTRESOURCE(id));
	pixmap->hdc = CreateCompatibleDC(hdc);

	GetObject(pixmap->hbm, sizeof(BITMAP), (void *)&bm);

	pixmap->width = bm.bmWidth; pixmap->height = bm.bmHeight;

	SelectObject(pixmap->hdc, pixmap->hbm);

	ReleaseDC(handle, hdc);

	return pixmap;
}

/*
 * Destroys an allocated pixmap.
 * Parameters:
 *       pixmap: Handle to a pixmap returned by
 *               dw_pixmap_new..
 */
void API dw_pixmap_destroy(HPIXMAP pixmap)
{
	if(pixmap)
	{
		DeleteDC(pixmap->hdc);
		DeleteObject(pixmap->hbm);
		free(pixmap);
	}
}

/*
 * Copies from one item to another.
 * Parameters:
 *       dest: Destination window handle.
 *       destp: Destination pixmap. (choose only one).
 *       xdest: X coordinate of destination.
 *       ydest: Y coordinate of destination.
 *       width: Width of area to copy.
 *       height: Height of area to copy.
 *       src: Source window handle.
 *       srcp: Source pixmap. (choose only one).
 *       xsrc: X coordinate of source.
 *       ysrc: Y coordinate of source.
 */
void API dw_pixmap_bitblt(HWND dest, HPIXMAP destp, int xdest, int ydest, int width, int height, HWND src, HPIXMAP srcp, int xsrc, int ysrc)
{
	HDC hdcdest;
	HDC hdcsrc;

	if(dest)
		hdcdest = GetDC(dest);
	else if(destp)
		hdcdest = destp->hdc;
	else
		return;

	if(src)
		hdcsrc = GetDC(src);
	else if(srcp)
		hdcsrc = srcp->hdc;
	else
		return;

	BitBlt(hdcdest, xdest, ydest, width, height, hdcsrc, xsrc, ysrc, SRCCOPY);

	if(!destp)
		ReleaseDC(dest, hdcdest);
	if(!srcp)
		ReleaseDC(src, hdcsrc);
}

/*
 * Emits a beep.
 * Parameters:
 *       freq: Frequency.
 *       dur: Duration.
 */
void API dw_beep(int freq, int dur)
{
	Beep(freq, dur);
}

/* Open a shared library and return a handle.
 * Parameters:
 *         name: Base name of the shared library.
 *         handle: Pointer to a module handle,
 *                 will be filled in with the handle.
 */
int API dw_module_load(char *name, HMOD *handle)
{
	if(!handle)
		return	-1;

	*handle = LoadLibrary(name);
	return (NULL == *handle);
}

/* Queries the address of a symbol within open handle.
 * Parameters:
 *         handle: Module handle returned by dw_module_load()
 *         name: Name of the symbol you want the address of.
 *         func: A pointer to a function pointer, to obtain
 *               the address.
 */
int API dw_module_symbol(HMOD handle, char *name, void**func)
{
	if(!func || !name)
		return	-1;

	if(0 == strlen(name))
		return	-1;

	*func = (void*)GetProcAddress(handle, name);
	return	(NULL == *func);
}

/* Frees the shared library previously opened.
 * Parameters:
 *         handle: Module handle returned by dw_module_load()
 */
int API dw_module_close(HMOD handle)
{
	return FreeLibrary(handle);
}

/*
 * Returns the handle to an unnamed mutex semaphore.
 */
HMTX API dw_mutex_new(void)
{
	return (HMTX)CreateMutex(NULL, FALSE, NULL);
}

/*
 * Closes a semaphore created by dw_mutex_new().
 * Parameters:
 *       mutex: The handle to the mutex returned by dw_mutex_new().
 */
void API dw_mutex_close(HMTX mutex)
{
	CloseHandle((HANDLE)mutex);
}

/*
 * Tries to gain access to the semaphore, if it can't it blocks.
 * Parameters:
 *       mutex: The handle to the mutex returned by dw_mutex_new().
 */
void API dw_mutex_lock(HMTX mutex)
{
	if(_dwtid == dw_thread_id())
	{
		int rc = WaitForSingleObject((HANDLE)mutex, 0);

		while(rc == WAIT_TIMEOUT)
		{
			dw_main_sleep(1);
			rc = WaitForSingleObject((HANDLE)mutex, 0);
		}
	}
    else
		WaitForSingleObject((HANDLE)mutex, INFINITE);
}

/*
 * Reliquishes the access to the semaphore.
 * Parameters:
 *       mutex: The handle to the mutex returned by dw_mutex_new().
 */
void API dw_mutex_unlock(HMTX mutex)
{
	ReleaseMutex((HANDLE)mutex);
}

/*
 * Returns the handle to an unnamed event semaphore.
 */
HEV API dw_event_new(void)
{
    return CreateEvent(NULL, TRUE, FALSE, NULL);
}

/*
 * Resets a semaphore created by dw_event_new().
 * Parameters:
 *       eve: The handle to the event returned by dw_event_new().
 */
int API dw_event_reset(HEV eve)
{
	return ResetEvent(eve);
}

/*
 * Posts a semaphore created by dw_event_new(). Causing all threads
 * waiting on this event in dw_event_wait to continue.
 * Parameters:
 *       eve: The handle to the event returned by dw_event_new().
 */
int API dw_event_post(HEV eve)
{
	return SetEvent(eve);
}

/*
 * Waits on a semaphore created by dw_event_new(), until the
 * event gets posted or until the timeout expires.
 * Parameters:
 *       eve: The handle to the event returned by dw_event_new().
 */
int API dw_event_wait(HEV eve, unsigned long timeout)
{
	int rc;

	rc = WaitForSingleObject(eve, timeout);
	if(rc == WAIT_OBJECT_0)
		return 1;
	if(rc == WAIT_ABANDONED)
		return -1;
	return 0;
}

/*
 * Closes a semaphore created by dw_event_new().
 * Parameters:
 *       eve: The handle to the event returned by dw_event_new().
 */
int API dw_event_close(HEV *eve)
{
	if(eve)
		return CloseHandle(*eve);
	return FALSE;
}

/*
 * Creates a new thread with a starting point of func.
 * Parameters:
 *       func: Function which will be run in the new thread.
 *       data: Parameter(s) passed to the function.
 *       stack: Stack size of new thread (OS/2 and Windows only).
 */
DWTID API dw_thread_new(void *func, void *data, int stack)
{
#if defined(__CYGWIN__)
	return 0;
#else
	return (DWTID)_beginthread((void(*)(void *))func, stack, data);
#endif
}

/*
 * Ends execution of current thread immediately.
 */
void API dw_thread_end(void)
{
#if !defined(__CYGWIN__)
	_endthread();
#endif
}

/*
 * Returns the current thread's ID.
 */
DWTID API dw_thread_id(void)
{
#if defined(__CYGWIN__)
	return 0;
#else
	return (DWTID)GetCurrentThreadId();
#endif
}

/*
 * Cleanly terminates a DW session, should be signal handler safe.
 * Parameters:
 *       exitcode: Exit code reported to the operating system.
 */
void API dw_exit(int exitcode)
{
	exit(exitcode);
}

/*
 * Creates a splitbar window (widget) with given parameters.
 * Parameters:
 *       type: Value can be DW_VERT or DW_HORZ.
 *       topleft: Handle to the window to be top or left.
 *       bottomright:  Handle to the window to be bottom or right.
 * Returns:
 *       A handle to a splitbar window or NULL on failure.
 */
HWND API dw_splitbar_new(int type, HWND topleft, HWND bottomright, unsigned long id)
{
	HWND tmp = CreateWindow(SplitbarClassName,
							"",
							WS_VISIBLE | WS_CHILD | WS_CLIPCHILDREN,
							0,0,2000,1000,
							DW_HWND_OBJECT,
							(HMENU)id,
							DWInstance,
							NULL);

	if(tmp)
	{
		HWND tmpbox = dw_box_new(DW_VERT, 0);
        float *percent = (float *)malloc(sizeof(float));

		dw_box_pack_start(tmpbox, topleft, 1, 1, TRUE, TRUE, 0);
		SetParent(tmpbox, tmp);
		dw_window_set_data(tmp, "_dw_topleft", (void *)tmpbox);

		tmpbox = dw_box_new(DW_VERT, 0);
		dw_box_pack_start(tmpbox, bottomright, 1, 1, TRUE, TRUE, 0);
		SetParent(tmpbox, tmp);
		dw_window_set_data(tmp, "_dw_bottomright", (void *)tmpbox);
		*percent = 50.0;
		dw_window_set_data(tmp, "_dw_percent", (void *)percent);
		dw_window_set_data(tmp, "_dw_type", (void *)type);
	}
	return tmp;
}

/*
 * Sets the position of a splitbar (pecentage).
 * Parameters:
 *       handle: The handle to the splitbar returned by dw_splitbar_new().
 */
void API dw_splitbar_set(HWND handle, float percent)
{
	float *mypercent = (float *)dw_window_get_data(handle, "_dw_percent");
	int type = (int)dw_window_get_data(handle, "_dw_type");
    unsigned long width, height;

	if(mypercent)
		*mypercent = percent;

	dw_window_get_pos_size(handle, NULL, NULL, &width, &height);

	_handle_splitbar_resize(handle, percent, type, width, height);
}

/*
 * Gets the position of a splitbar (pecentage).
 * Parameters:
 *       handle: The handle to the splitbar returned by dw_splitbar_new().
 */
float API dw_splitbar_get(HWND handle)
{
	float *percent = (float *)dw_window_get_data(handle, "_dw_percent");

	if(percent)
		return *percent;
	return 0.0;
}

/*
 * Pack windows (widgets) into a box from the end (or bottom).
 * Parameters:
 *       box: Window handle of the box to be packed into.
 *       item: Window handle of the item to be back.
 *       width: Width in pixels of the item or -1 to be self determined.
 *       height: Height in pixels of the item or -1 to be self determined.
 *       hsize: TRUE if the window (widget) should expand horizontally to fill space given.
 *       vsize: TRUE if the window (widget) should expand vertically to fill space given.
 *       pad: Number of pixels of padding around the item.
 */
void API dw_box_pack_end(HWND box, HWND item, int width, int height, int hsize, int vsize, int pad)
{
	Box *thisbox;

		/*
		 * If you try and pack an item into itself VERY bad things can happen; like at least an
		 * infinite loop on GTK! Lets be safe!
		 */
	if(box == item)
	{
		dw_messagebox("dw_box_pack_end()", DW_MB_OK|DW_MB_ERROR, "Danger! Danger! Will Robinson; box and item are the same!",box,item);
		return;
	}

	thisbox = (Box *)GetWindowLongPtr(box, GWLP_USERDATA);
	if(thisbox)
	{
		int z;
		Item *tmpitem, *thisitem = thisbox->items;
		char tmpbuf[100];

		tmpitem = malloc(sizeof(Item)*(thisbox->count+1));

		for(z=0;z<thisbox->count;z++)
		{
			tmpitem[z+1] = thisitem[z];
		}

		GetClassName(item, tmpbuf, 99);

		if(vsize && !height)
			height = 1;
		if(hsize && !width)
			width = 1;

		if(strnicmp(tmpbuf, FRAMECLASSNAME, strlen(FRAMECLASSNAME)+1)==0)
			tmpitem[0].type = TYPEBOX;
		else
		{
			if ( width == 0 && hsize == FALSE )
				dw_messagebox("dw_box_pack_end()", DW_MB_OK|DW_MB_ERROR, "Width and expand Horizonal both unset for box: %x item: %x",box,item);
			if ( height == 0 && vsize == FALSE )
				dw_messagebox("dw_box_pack_end()", DW_MB_OK|DW_MB_ERROR, "Height and expand Vertical both unset for box: %x item: %x",box,item);

			tmpitem[0].type = TYPEITEM;
		}

		tmpitem[0].hwnd = item;
		tmpitem[0].origwidth = tmpitem[0].width = width;
		tmpitem[0].origheight = tmpitem[0].height = height;
		tmpitem[0].pad = pad;
		if(hsize)
			tmpitem[0].hsize = SIZEEXPAND;
		else
			tmpitem[0].hsize = SIZESTATIC;

		if(vsize)
			tmpitem[0].vsize = SIZEEXPAND;
		else
			tmpitem[0].vsize = SIZESTATIC;

		thisbox->items = tmpitem;

		if(thisbox->count)
			free(thisitem);

		thisbox->count++;

		SetParent(item, box);
		if(strncmp(tmpbuf, UPDOWN_CLASS, strlen(UPDOWN_CLASS)+1)==0)
		{
			ColorInfo *cinfo = (ColorInfo *)GetWindowLongPtr(item, GWLP_USERDATA);

			if(cinfo)
			{
				SetParent(cinfo->buddy, box);
				ShowWindow(cinfo->buddy, SW_SHOW);
				SendMessage(item, UDM_SETBUDDY, (WPARAM)cinfo->buddy, 0);
			}
		}
	}
}

/*
 * Sets the default focus item for a window/dialog.
 * Parameters:
 *         window: Toplevel window or dialog.
 *         defaultitem: Handle to the dialog item to be default.
 */
void API dw_window_default(HWND window, HWND defaultitem)
{
	Box *thisbox = (Box *)GetWindowLongPtr(window, GWLP_USERDATA);

	if(thisbox)
		thisbox->defaultitem = defaultitem;
}

/*
 * Sets window to click the default dialog item when an ENTER is pressed.
 * Parameters:
 *         window: Window (widget) to look for the ENTER press.
 *         next: Window (widget) to move to next (or click)
 */
void API dw_window_click_default(HWND window, HWND next)
{
	ColorInfo *cinfo = (ColorInfo *)GetWindowLongPtr(window, GWLP_USERDATA);

	if(cinfo)
		cinfo->clickdefault = next;
}

/*
 * Returns some information about the current operating environment.
 * Parameters:
 *       env: Pointer to a DWEnv struct.
 */
void API dw_environment_query(DWEnv *env)
{
	if(!env)
		return;

	/* Get the Windows version. */

	env->MajorVersion =  (DWORD)(LOBYTE(LOWORD(dwVersion)));
	env->MinorVersion =  (DWORD)(HIBYTE(LOWORD(dwVersion)));

	/* Get the build number for Windows NT/Windows 2000. */

	env->MinorBuild =  0;

	if (dwVersion < 0x80000000)
	{
		if(env->MajorVersion == 5 && env->MinorVersion == 1)
			strcpy(env->osName, "Windows XP");
		else if(env->MajorVersion == 5 && env->MinorVersion == 0)
			strcpy(env->osName, "Windows 2000");
		else
			strcpy(env->osName, "Windows NT");

		env->MajorBuild = (DWORD)(HIWORD(dwVersion));
	}
	else
	{
		strcpy(env->osName, "Windows 95/98/ME");
		env->MajorBuild =  0;
	}

	strcpy(env->buildDate, __DATE__);
	strcpy(env->buildTime, __TIME__);
	env->DWMajorVersion = DW_MAJOR_VERSION;
	env->DWMinorVersion = DW_MINOR_VERSION;
	env->DWSubVersion = DW_SUB_VERSION;
}

/*
 * Opens a file dialog and queries user selection.
 * Parameters:
 *       title: Title bar text for dialog.
 *       defpath: The default path of the open dialog.
 *       ext: Default file extention.
 *       flags: DW_FILE_OPEN or DW_FILE_SAVE or DW_DIRECTORY_OPEN.
 * Returns:
 *       NULL on error. A malloced buffer containing
 *       the file path on success.
 *       
 */
char * API dw_file_browse(char *title, char *defpath, char *ext, int flags)
{
	OPENFILENAME of;
	char filenamebuf[1001] = "";
	int rc;

	BROWSEINFO bi;
	TCHAR szDir[MAX_PATH];
	LPITEMIDLIST pidl;
	LPMALLOC pMalloc;

	if(flags==DW_DIRECTORY_OPEN)
	{
		if (SUCCEEDED(SHGetMalloc(&pMalloc)))
		{
			ZeroMemory(&bi,sizeof(bi));
			bi.hwndOwner = NULL;
			bi.pszDisplayName = 0;
			bi.pidlRoot = 0;
			bi.lpszTitle = title;
			bi.ulFlags = BIF_RETURNONLYFSDIRS | BIF_STATUSTEXT;
			bi.lpfn = NULL; /*BrowseCallbackProc*/

			pidl = SHBrowseForFolder(&bi);
			if (pidl)
			{
				if (SHGetPathFromIDList(pidl,szDir))
				{
					strcpy(filenamebuf,szDir);
				}

				// In C++: pMalloc->Free(pidl); pMalloc->Release();
				pMalloc->lpVtbl->Free(pMalloc,pidl);
				pMalloc->lpVtbl->Release(pMalloc);
				return strdup(filenamebuf);
			}
		}
	}
	else
	{
		if(ext)
		{
			strcpy(filenamebuf, "*.");
			strcat(filenamebuf, ext);
		}

		memset(&of, 0, sizeof(OPENFILENAME));

		of.lStructSize = sizeof(OPENFILENAME);
		of.hwndOwner = HWND_DESKTOP;
		of.hInstance = DWInstance;
		of.lpstrInitialDir = defpath;
		of.lpstrTitle = title;
		of.lpstrFile = filenamebuf;
		of.nMaxFile = 1000;
		of.lpstrDefExt = ext;
		of.Flags = 0;

		if(flags & DW_FILE_SAVE)
			rc = GetSaveFileName(&of);
		else
			rc = GetOpenFileName(&of);

		if(rc)
			return strdup(of.lpstrFile);
	}
	return NULL;
}

/*
 * Execute and external program in a seperate session.
 * Parameters:
 *       program: Program name with optional path.
 *       type: Either DW_EXEC_CON or DW_EXEC_GUI.
 *       params: An array of pointers to string arguements.
 * Returns:
 *       -1 on error.
 */
int API dw_exec(char *program, int type, char **params)
{
	char **newparams;
	int retcode, count = 0, z;

	while(params[count])
	{
		count++;
	}

	newparams = (char **)malloc(sizeof(char *) * (count+1));

	for(z=0;z<count;z++)
	{
		newparams[z] = malloc(strlen(params[z])+3);
		strcpy(newparams[z], "\"");
		strcat(newparams[z], params[z]);
		strcat(newparams[z], "\"");
	}
	newparams[count] = NULL;

	retcode = spawnvp(P_NOWAIT, program, newparams);

	for(z=0;z<count;z++)
	{
		free(newparams[z]);
	}
	free(newparams);

	return retcode;
}

/*
 * Loads a web browser pointed at the given URL.
 * Parameters:
 *       url: Uniform resource locator.
 */
int API dw_browse(char *url)
{
	char *browseurl = url;
	int retcode;

	if(strlen(url) > 7 && strncmp(url, "file://", 7) == 0)
	{
		int len, z;

		browseurl = &url[7];
		len = strlen(browseurl);

		for(z=0;z<len;z++)
		{
			if(browseurl[z] == '|')
				browseurl[z] = ':';
			if(browseurl[z] == '/')
				browseurl[z] = '\\';
		}
	}

	retcode = (int)ShellExecute(NULL, "open", browseurl, NULL, NULL, SW_SHOWNORMAL);
	if(retcode<33 && retcode != 2)
		return -1;
	return 1;
}

/*
 * Returns a pointer to a static buffer which containes the
 * current user directory.  Or the root directory (C:\ on
 * OS/2 and Windows).
 */
char * API dw_user_dir(void)
{
	static char _user_dir[1024] = "";

	if(!_user_dir[0])
	{
		/* Figure out how to do this the "Windows way" */
		char *home = getenv("HOME");

		if(home)
			strcpy(_user_dir, home);
		else
			strcpy(_user_dir, "C:\\");
	}
	return _user_dir;
}

/*
 * Call a function from the window (widget)'s context.
 * Parameters:
 *       handle: Window handle of the widget.
 *       function: Function pointer to be called.
 *       data: Pointer to the data to be passed to the function.
 */
void API dw_window_function(HWND handle, void *function, void *data)
{
	SendMessage(handle, WM_USER, (WPARAM)function, (LPARAM)data);
}

/* Functions for managing the user data lists that are associated with
 * a given window handle.  Used in dw_window_set_data() and
 * dw_window_get_data().
 */
UserData *_find_userdata(UserData **root, char *varname)
{
	UserData *tmp = *root;

	while(tmp)
	{
		if(stricmp(tmp->varname, varname) == 0)
			return tmp;
		tmp = tmp->next;
	}
	return NULL;
}

int _new_userdata(UserData **root, char *varname, void *data)
{
	UserData *new = _find_userdata(root, varname);

	if(new)
	{
		new->data = data;
		return TRUE;
	}
	else
	{
		new = malloc(sizeof(UserData));
		if(new)
		{
			new->varname = strdup(varname);
			new->data = data;

			new->next = NULL;

			if (!*root)
				*root = new;
			else
			{
				UserData *prev = NULL, *tmp = *root;
				while(tmp)
				{
					prev = tmp;
					tmp = tmp->next;
				}
				if(prev)
					prev->next = new;
				else
					*root = new;
			}
			return TRUE;
		}
	}
	return FALSE;
}

int _remove_userdata(UserData **root, char *varname, int all)
{
	UserData *prev = NULL, *tmp = *root;

	while(tmp)
	{
		if(all || stricmp(tmp->varname, varname) == 0)
		{
			if(!prev)
			{
				*root = tmp->next;
				free(tmp->varname);
				free(tmp);
				if(!all)
					return 0;
				tmp = *root;
			}
			else
			{
				/* If all is true we should
				 * never get here.
				 */
				prev->next = tmp->next;
				free(tmp->varname);
				free(tmp);
				return 0;
			}
		}
		else
		{
			prev = tmp;
			tmp = tmp->next;
		}
	}
	return 0;
}

/*
 * Add a named user data item to a window handle.
 * Parameters:
 *       window: Window handle of signal to be called back.
 *       dataname: A string pointer identifying which signal to be hooked.
 *       data: User data to be passed to the handler function.
 */
void API dw_window_set_data(HWND window, char *dataname, void *data)
{
	ColorInfo *cinfo = (ColorInfo *)GetWindowLongPtr(window, GWLP_USERDATA);

	if(!cinfo)
	{
		if(!dataname)
			return;

		cinfo = calloc(1, sizeof(ColorInfo));
		cinfo->fore = cinfo->back = -1;
		SetWindowLongPtr(window, GWLP_USERDATA, (LONG_PTR)cinfo);
	}

	if(cinfo)
	{
		if(data)
			_new_userdata(&(cinfo->root), dataname, data);
		else
		{
			if(dataname)
				_remove_userdata(&(cinfo->root), dataname, FALSE);
			else
				_remove_userdata(&(cinfo->root), NULL, TRUE);
		}
	}
}

/*
 * Gets a named user data item to a window handle.
 * Parameters:
 *       window: Window handle of signal to be called back.
 *       dataname: A string pointer identifying which signal to be hooked.
 *       data: User data to be passed to the handler function.
 */
void * API dw_window_get_data(HWND window, char *dataname)
{
	ColorInfo *cinfo = (ColorInfo *)GetWindowLongPtr(window, GWLP_USERDATA);

	if(cinfo && cinfo->root && dataname)
	{
		UserData *ud = _find_userdata(&(cinfo->root), dataname);
		if(ud)
			return ud->data;
	}
	return NULL;
}

/*
 * Add a callback to a timer event.
 * Parameters:
 *       interval: Milliseconds to delay between calls.
 *       sigfunc: The pointer to the function to be used as the callback.
 *       data: User data to be passed to the handler function.
 * Returns:
 *       Timer ID for use with dw_timer_disconnect(), 0 on error.
 */
int API dw_timer_connect(int interval, void *sigfunc, void *data)
{
	if(sigfunc)
	{
		int timerid = SetTimer(NULL, 0, interval, NULL);

		if(timerid)
		{
			_new_signal(WM_TIMER, NULL, timerid, sigfunc, data);
			return timerid;
		}
	}
	return 0;
}

/*
 * Removes timer callback.
 * Parameters:
 *       id: Timer ID returned by dw_timer_connect().
 */
void API dw_timer_disconnect(int id)
{
	SignalHandler *prev = NULL, *tmp = Root;

	/* 0 is an invalid timer ID */
	if(!id)
		return;

	KillTimer(NULL, id);

	while(tmp)
	{
		if(tmp->id == id)
		{
			if(prev)
			{
				prev->next = tmp->next;
				free(tmp);
				tmp = prev->next;
			}
			else
			{
				Root = tmp->next;
				free(tmp);
				tmp = Root;
			}
		}
		else
		{
			prev = tmp;
			tmp = tmp->next;
		}
	}
}

/*
 * Add a callback to a window event.
 * Parameters:
 *       window: Window handle of signal to be called back.
 *       signame: A string pointer identifying which signal to be hooked.
 *       sigfunc: The pointer to the function to be used as the callback.
 *       data: User data to be passed to the handler function.
 */
void API dw_signal_connect(HWND window, char *signame, void *sigfunc, void *data)
{
	ULONG message = 0L;

	if(window && signame && sigfunc)
	{
		if(stricmp(signame, DW_SIGNAL_SET_FOCUS) == 0)
			window = _normalize_handle(window);

		if((message = _findsigmessage(signame)) != 0)
			_new_signal(message, window, 0, sigfunc, data);
	}
}

/*
 * Removes callbacks for a given window with given name.
 * Parameters:
 *       window: Window handle of callback to be removed.
 */
void API dw_signal_disconnect_by_name(HWND window, char *signame)
{
	SignalHandler *prev = NULL, *tmp = Root;
	ULONG message;

	if(!window || !signame || (message = _findsigmessage(signame)) == 0)
		return;

	while(tmp)
	{
		if(tmp->window == window && tmp->message == message)
		{
			if(prev)
			{
				prev->next = tmp->next;
				free(tmp);
				tmp = prev->next;
			}
			else
			{
				Root = tmp->next;
				free(tmp);
				tmp = Root;
			}
		}
		else
		{
			prev = tmp;
			tmp = tmp->next;
		}
	}
}

/*
 * Removes all callbacks for a given window.
 * Parameters:
 *       window: Window handle of callback to be removed.
 */
void API dw_signal_disconnect_by_window(HWND window)
{
	SignalHandler *prev = NULL, *tmp = Root;

	while(tmp)
	{
		if(tmp->window == window)
		{
			if(prev)
			{
				prev->next = tmp->next;
				free(tmp);
				tmp = prev->next;
			}
			else
			{
				Root = tmp->next;
				free(tmp);
				tmp = Root;
			}
		}
		else
		{
			prev = tmp;
			tmp = tmp->next;
		}
	}
}

/*
 * Removes all callbacks for a given window with specified data.
 * Parameters:
 *       window: Window handle of callback to be removed.
 *       data: Pointer to the data to be compared against.
 */
void API dw_signal_disconnect_by_data(HWND window, void *data)
{
	SignalHandler *prev = NULL, *tmp = Root;

	while(tmp)
	{
		if(tmp->window == window && tmp->data == data)
		{
			if(prev)
			{
				prev->next = tmp->next;
				free(tmp);
				tmp = prev->next;
			}
			else
			{
				Root = tmp->next;
				free(tmp);
				tmp = Root;
			}
		}
		else
		{
			prev = tmp;
			tmp = tmp->next;
		}
	}
}