/*
 * Copyright 1994 Miguel de Icaza
 *
 * This library is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Lesser General Public
 * License as published by the Free Software Foundation; either
 * version 2.1 of the License, or (at your option) any later version.
 *
 * This library is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 * Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with this library; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 */

#include <windows.h>

char szAppName[] = "Hello";

long FAR PASCAL WndProc(HWND, UINT, WPARAM, LPARAM);

int PASCAL WinMain (HINSTANCE hInstance, HINSTANCE hPrevInst, LPSTR lpszCmdLine,
			 int nCmdShow)
{
	HWND hwnd;
	MSG msg;
	WNDCLASS wndclass;

	if(!hPrevInst) {

		wndclass.style =  CS_HREDRAW | CS_VREDRAW;
		wndclass.lpfnWndProc = WndProc;
		wndclass.cbClsExtra = 0;
		wndclass.cbWndExtra = 0;
		wndclass.hInstance = hInstance;
		wndclass.hIcon = LoadIcon(NULL, IDI_APPLICATION);
		wndclass.hCursor = LoadCursor(NULL, IDC_ARROW);
		wndclass.hbrBackground = GetStockObject(WHITE_BRUSH);
		wndclass.lpszMenuName = NULL;
		wndclass.lpszClassName = szAppName;

		RegisterClass(&wndclass);

					
	}

	hwnd = CreateWindow(szAppName, szAppName,
	 WS_HSCROLL | WS_VSCROLL | WS_OVERLAPPEDWINDOW,
	 CW_USEDEFAULT, CW_USEDEFAULT, 600,
	 400, NULL, NULL, hInstance, NULL);

	ShowWindow(hwnd, nCmdShow);
	UpdateWindow(hwnd);
															
									
	while(GetMessage(&msg, NULL, 0, 0)) {
		TranslateMessage(&msg);
		DispatchMessage(&msg);
	}					
	return msg.wParam;
}					


long FAR PASCAL WndProc(HWND hwnd, UINT message, WPARAM wParam,
				LPARAM lParam)
{
	HDC hdc;
	RECT rect;
	SIZE size;
	PAINTSTRUCT ps;

	switch(message) {
			
	case WM_PAINT:
	    	hdc = BeginPaint(hwnd, &ps);
		GetClientRect(hwnd, &rect);
		InflateRect(&rect, -10, -10);
		if( !IsRectEmpty( &rect ) )
		{
                    GetTextExtentPoint32(hdc, szAppName, strlen(szAppName), &size);
		    SelectObject(hdc, GetStockObject(LTGRAY_BRUSH));
		    Rectangle(hdc, rect.left, rect.top, rect.right, rect.bottom);
		    rect.left = (rect.right + rect.left - size.cx) / 2;
		    rect.top  = (rect.bottom + rect.top - size.cy) / 2;
		    SetBkMode(hdc, TRANSPARENT);
		    TextOut(hdc, rect.left, rect.top, szAppName, strlen(szAppName) );
		}
		EndPaint(hwnd, &ps);
		return 0;
							
	case WM_DESTROY:
		PostQuitMessage(0);
		return 0;
	}
	return DefWindowProc(hwnd, message, wParam, lParam);
}