/*
 *%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 *%									   %
 *%	Copyright (C) 1991,1994 by WATCOM International Inc.		   %
 *%	All rights reserved.						   %
 *%									   %
 *%     Permission is granted to anyone to use this example program for	   %
 *%     any purpose on any computer system, subject to the following	   %
 *%	restrictions:							   %
 *%									   %
 *%     1. This example is provided on an "as is" basis, without warranty. %
 *%	   You indemnify, hold harmless and defend WATCOM from and against %
 *%	   any claims or lawsuits, including attorney's, that arise or	   %
 *%	   result from the use or distribution of this example, or any     %
 *%	   modification thereof.					   %
 *%									   %
 *%     2. You may not remove, alter or suppress this notice from this	   %
 *%        example program or any modification thereof.			   %
 *%									   %
 *%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 *
 * EDIT.C
 *
 * Windows edit program
 *
 */
#include <windows.h>
#include <stdio.h>
#include "edit.h"
#include "win1632.h"

char 		EditTitle[] = "WATCOM Edit Example";
psupp		PrinterSupport;
static char 	EditClass[32]="EditClass";

static BOOL FirstInstance( HANDLE );
static BOOL AnyInstance( HANDLE, int );
long _EXPORT FAR PASCAL WindowProc( HWND, unsigned, UINT, LONG );

/*
 * WinMain - initialization, message loop
 */
int PASCAL WinMain( HANDLE inst, HANDLE previnst, LPSTR cmdline,
		    int cmdshow )
{
    MSG		msg;

    previnst = previnst;	/* shut up warning */
    cmdline = cmdline;
#ifdef __WINDOWS_386__
    sprintf( EditClass,"EditClass%d", inst );
#else
    if( !previnst )
#endif
	if( !FirstInstance( inst ) ) return( FALSE );

    if( !AnyInstance( inst, cmdshow ) ) return( FALSE );

    while( GetMessage( &msg, NULL, NULL, NULL ) ) {

	TranslateMessage( &msg );
	DispatchMessage( &msg );

    }

    return( msg.wParam );

} /* WinMain */

/*
 * FirstInstance - register window class for the application,
 *		   and do any other application initialization
 */
static BOOL FirstInstance( HANDLE inst )
{
    WNDCLASS	wc;
    BOOL	rc;

    /*
     * set up and register window class
     */
    wc.style = CS_HREDRAW | CS_VREDRAW;
    wc.lpfnWndProc = (LPVOID) WindowProc;
    wc.cbClsExtra = 0;
    wc.cbWndExtra = sizeof( LPEDATA );
    wc.hInstance = inst;
    wc.hIcon = LoadIcon( inst, IDI_APPLICATION );
    wc.hCursor = LoadCursor( NULL, IDC_ARROW );
    wc.hbrBackground = GetStockObject( WHITE_BRUSH );
    wc.lpszMenuName = "EditMenu";
    wc.lpszClassName = EditClass;
    rc = RegisterClass( &wc );
    return( rc );

} /* FirstInstance */

/*
 * AnyInstance - do work required for every instance of the application:
 *		  create the window, initialize data
 */
static BOOL AnyInstance( HANDLE inst, int cmdshow )
{
    RECT	rect;
    HWND 	hwnd;
    HWND	editwnd;
    LPEDATA	edata_ptr;
    
    /*
     * create main window
     */
    hwnd = CreateWindow(
	EditClass,		/* class */
	EditTitle,		/* caption */
	WS_OVERLAPPEDWINDOW,	/* style */
	CW_USEDEFAULT,		/* init. x pos */
	CW_USEDEFAULT,		/* init. y pos */
	CW_USEDEFAULT,		/* init. x size */
	CW_USEDEFAULT,		/* init. y size */
	NULL,			/* parent window */
	NULL,			/* menu handle */
	inst,			/* program handle */
	NULL			/* create parms */
	);
		    
    if( !hwnd ) return( FALSE );
    GetClientRect( hwnd, &rect );

    editwnd = CreateWindow(
    	"EDIT",				/* class */
	NULL,				/* no caption */
	WS_CHILD | WS_VISIBLE | WS_HSCROLL | WS_VSCROLL |
	ES_MULTILINE | ES_AUTOHSCROLL | ES_AUTOVSCROLL, /* style */
	0,				/* init. x pos */
	0,				/* init. y pos */
	rect.right-rect.left,		/* init. x size (entire parent) */
	rect.bottom-rect.top,		/* init. y size  (entire parent) */
	hwnd,				/* parent window */
	EDIT_ID,			/* i.d. */
	inst,				/* program handle */
	NULL				/* create parms */
	);

    /*
     * if this failed, then kill original window
     */
    if( !editwnd ) {
	DestroyWindow( hwnd );
	return( FALSE );
    }

    /*
     * set up data associated with window (IMAGINE! not using
     * a pile of global variables!)
     */
    edata_ptr = MemAlloc( sizeof( extra_data ) );
    if( edata_ptr == NULL ) return( FALSE );
    edata_ptr->hwnd = hwnd;
    edata_ptr->editwnd = editwnd;
    edata_ptr->inst = inst;
    edata_ptr->filename = NULL;
    edata_ptr->needs_saving = FALSE;
    edata_ptr->font = NULL;
    SetWindowLong( hwnd, EXTRA_DATA_OFFSET, (DWORD) edata_ptr );

    /*
     * display window
     */
    ShowWindow( hwnd, cmdshow );
    UpdateWindow( hwnd );
    GetAllFonts( edata_ptr );
    
    return( TRUE );
			
} /* AnyInstance */

/*
 * AboutDlgProc - processes messages for the about dialog.
 */
BOOL _EXPORT FAR PASCAL AboutDlgProc( HWND hwnd, unsigned msg,
				UINT wparam, LONG lparam )
{
    lparam = lparam;			/* turn off warning */

    switch( msg ) {
    case WM_INITDIALOG:
	return( TRUE );

    case WM_COMMAND:
    	if( LOWORD( wparam ) == IDOK ) {
	    EndDialog( hwnd, TRUE );
	    return( TRUE );
	}
	break;
    }
    return( FALSE );

} /* AboutDlgProc */

/*
 * WindowProc - handle messages for the main application window
 */
LONG _EXPORT FAR PASCAL WindowProc( HWND hwnd, unsigned msg,
				     UINT wparam, LONG lparam )
{
    FARPROC 	proc;
    HANDLE	hinst;
    LPEDATA	ed;
    DWORD	sel;
    int		state;
    HDC		hdc;

    ed = (LPEDATA) GetWindowLong( hwnd, EXTRA_DATA_OFFSET );

    /*
     * all messages are in alphabetical order, except WM_COMMAND, at the end
     */
    switch( msg ) {
    case WM_CLOSE:
    	/*
	 * see if it is okay to close down
	 */
	if( CheckFileSave( ed ) ) {
	    DestroyWindow( hwnd );
	}
	break;

    case WM_CREATE:
    	/*
	 * try to get printer support.  If it works, delete the DC,
	 * since these are a system resource
	 */
    	hdc = PrinterDC();
	if( hdc ) {
	    DeleteDC( hdc );
	}
	break;

    case WM_DESTROY:
    	if( ed->font != NULL ) DeleteObject( ed->font );
	PostQuitMessage( 0 );
	break;

    case WM_DEVMODECHANGE:
    case WM_WININICHANGE:
    	/*
	 * handle user changing printer info
	 */
    	hdc = PrinterDC();
	if( hdc ) {
	    DeleteDC( hdc );
	}
	break;

    case WM_FONTCHANGE:
	GetAllFonts( ed );
	break;

    case WM_INITMENU:
    	/*
	 * initial menu state set here
	 */
	if( (HMENU)wparam == GetMenu( hwnd ) ) {

	    state = MF_GRAYED;
	    if( OpenClipboard( ed->hwnd ) ) {
		if( IsClipboardFormatAvailable( CF_TEXT ) ||
		    IsClipboardFormatAvailable( CF_OEMTEXT )) {
		    state = MF_ENABLED;
		}
		CloseClipboard();
	    }
	    EnableMenuItem( wparam, MENU_PASTE, state );
	
	    state = MF_GRAYED;
	    if( SendMessage( ed->editwnd, EM_CANUNDO, 0, 0L ) ) {
		state = MF_ENABLED;
	    }
	    EnableMenuItem( wparam, MENU_UNDO, state );
	    sel = SendMessage( ed->editwnd, EM_GETSEL, 0, 0L );
	
	    state = MF_GRAYED;
	    if( HIWORD( sel ) != LOWORD( sel ) ) state = MF_ENABLED;
	    EnableMenuItem( wparam, MENU_CLEAR, state );
	    EnableMenuItem( wparam, MENU_COPY, state );
	    EnableMenuItem( wparam, MENU_CUT, state );

	    state = MF_GRAYED;
	    if( PrinterSupport != PSUPP_NONE ) state = MF_ENABLED;
	    EnableMenuItem( wparam, MENU_PRINT, state );
	    state = MF_GRAYED;
	    if( PrinterSupport == PSUPP_CANPRINTANDSET ) state = MF_ENABLED;
	    EnableMenuItem( wparam, MENU_PRINT_SETUP, state );

	}
	return( NULL );

    case WM_QUERYENDSESSION:
    	/*
	 * check if it is okay to end the session
	 */
	return( CheckFileSave( ed ) );

    case WM_SETFOCUS:
    	/*
	 * move the focus to our editor, rather than to the frame
	 */
	SetFocus( ed->editwnd );
	break;

    case WM_SIZE:
    	/*
	 * resize edit window to match size of our client area
	 */
	MoveWindow( ed->editwnd, 0, 0, LOWORD( lparam ),
			HIWORD( lparam ), TRUE );
	break;

    case WM_COMMAND:
    	switch( LOWORD( wparam ) ) {
	case EDIT_ID:
	    switch( GET_WM_COMMAND_CMD( wparam, lparam ) ){
	    case EN_CHANGE:
	    	ed->needs_saving = TRUE;
		break;
	    case EN_ERRSPACE:
	    	MessageBox( hwnd, "Out of Space", EditTitle, MB_OK );
		break;
	    }
	    break;
	case MENU_ABOUT:
	    hinst = GET_HINST( hwnd );
	    proc = MakeProcInstance( AboutDlgProc, hinst );
	    DialogBox( hinst,"AboutBox", hwnd, proc );
	    FreeProcInstance( proc );
	    break;
	case MENU_CLEAR:
	    SendMessage( ed->editwnd, EM_REPLACESEL, 0, (LONG) (LPSTR)"" );
	    break;
	case MENU_COPY:
            SendMessage( ed->editwnd, WM_COPY, 0, 0L );
	    break;
	case MENU_CUT:
            SendMessage( ed->editwnd, WM_CUT, 0, 0L );
	    break;
	case MENU_EXIT:
	    if( CheckFileSave( ed ) ) {
		DestroyWindow( hwnd );
	    }
	    break;
	case MENU_FONT_SELECT:
	    FontSelect( ed );
	    break;
	case MENU_NEW:
	    FileEdit( ed, FALSE );
	    break;
	case MENU_OPEN:
	    FileEdit( ed, TRUE );
	    break;
	case MENU_PASTE:
            SendMessage( ed->editwnd, WM_PASTE, 0, 0L );
	    break;
	case MENU_PRINT:
	    Print( ed );
	    break;
	case MENU_PRINT_SETUP:
	    GetPrinterSetup( hwnd );
	    break;
	case MENU_SAVE:
	    FileSave( ed, FALSE );
	    break;
	case MENU_SAVE_AS:
	    FileSave( ed, TRUE );
	    break;
	case MENU_UNDO:
            SendMessage( ed->editwnd, EM_UNDO, 0, 0L );
	    break;
	}
	break;

    default:
	return( DefWindowProc( hwnd, msg, wparam, lparam ) );
    }
    return( 0L );

} /* WindowProc */
