command.c

来自「开放源码的编译器open watcom 1.6.0版的源代码」· C语言 代码 · 共 154 行

/****************************************************************************
*
*                            Open Watcom Project
*
*    Portions Copyright (c) 1983-2002 Sybase, Inc. All Rights Reserved.
*
*  ========================================================================
*
*    This file contains Original Code and/or Modifications of Original
*    Code as defined in and that are subject to the Sybase Open Watcom
*    Public License version 1.0 (the 'License'). You may not use this file
*    except in compliance with the License. BY USING THIS FILE YOU AGREE TO
*    ALL TERMS AND CONDITIONS OF THE LICENSE. A copy of the License is
*    provided with the Original Code and Modifications, and is also
*    available at www.sybase.com/developer/opensource.
*
*    The Original Code and all software distributed under the License are
*    distributed on an 'AS IS' basis, WITHOUT WARRANTY OF ANY KIND, EITHER
*    EXPRESS OR IMPLIED, AND SYBASE AND ALL CONTRIBUTORS HEREBY DISCLAIM
*    ALL SUCH WARRANTIES, INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF
*    MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, QUIET ENJOYMENT OR
*    NON-INFRINGEMENT. Please see the License for the specific language
*    governing rights and limitations under the License.
*
*  ========================================================================
*
* Description:  WHEN YOU FIGURE OUT WHAT THIS FILE DOES, PLEASE
*               DESCRIBE IT HERE!
*
****************************************************************************/


#include <assert.h>
#include "winvi.h"
#include "color.h"
#include "font.h"
#include "keys.h"
#include "utils.h"
#include "win.h"

#define LIST_BOX        1000

extern bool ReadingAString;

static BOOL Init( window *, void * );
static BOOL Fini( window *, void * );

window CommandWindow = {
    &cmdlinew_info,
    { 0, 0, 0, 0 },
    Init,
    Fini
};

window_id CommandId = NO_WINDOW;

LONG WINEXP CommandWindowProc( HWND, UINT, WPARAM, LPARAM );

static char *className = "CommandWindow";

static BOOL Init( window *w, void *parm )
{
    WNDCLASS        wc;

    w = w;
    parm = parm;
    wc.style = 0;
    wc.lpfnWndProc = (WNDPROC)CommandWindowProc;
    wc.cbClsExtra = 0;
    wc.cbWndExtra = sizeof( LPVOID );
    wc.hInstance = InstanceHandle;
    wc.hIcon = LoadIcon( (HINSTANCE)NULL, IDI_APPLICATION );
    wc.hCursor = LoadCursor( (HINSTANCE)NULL, IDC_ARROW );
    wc.hbrBackground = (HBRUSH) COLOR_APPWORKSPACE;
    wc.lpszMenuName = NULL;
    wc.lpszClassName = className;
    return( RegisterClass( &wc ) );
}

static BOOL Fini( window *w, void *parm )
{
    w = w;
    parm = parm;
    return( TRUE );
}

LONG WINEXP CommandWindowProc( HWND hwnd, UINT msg, WPARAM w, LPARAM l )
{
    PAINTSTRUCT ps;
    HDC         hdc;

    switch( msg ) {
    case WM_CREATE:
        CommandId = hwnd;
        SetWindowLong( hwnd, 0, (LONG)(LPVOID) &CommandWindow );
        break;
    case WM_SETFOCUS:
        /* turn on caret */
        NewCursor( hwnd, NormalCursorType );
        break;
    case WM_KILLFOCUS:
        /* turn off the caret */
        MyHideCaret( hwnd );
        DestroyCaret();
        if( w && ( (HWND) w == Root || GetWindow( (HWND) w, GW_OWNER ) == EditContainer ) ) {
            /* hmmm... losing focus to one of our own windows - suicide */
            if( ReadingAString ) {
                KeyAdd( VI_KEY( ESC ) );
            }
        }
        break;
    case WM_KEYDOWN:
        if( WindowsKeyPush( w, HIWORD( l ) ) ) {
            return( FALSE );
        }
        return( DefWindowProc( hwnd, msg, w, l ) );
    case WM_PAINT:
        hdc = BeginPaint( hwnd, &ps );
        FillRect( hdc, &ps.rcPaint, ColorBrush( WIN_BACKCOLOR( &CommandWindow ) ) );
        /* this will cause the command window to redraw itself in readstr.c */
        KeyAdd( VI_KEY( ALT_END ) );
        EndPaint( hwnd, &ps );
        break;
    case WM_DESTROY:
        CommandId = NO_WINDOW;
        break;
    }
    return( DefWindowProc( hwnd, msg, w, l ) );
}


window_id NewCommandWindow( void )
{
    RECT        *size;
    HWND        cmd;
    POINT       p;
    int         bottom;

    size = &CommandWindow.area;
    bottom = size->bottom;

    p.x = size->left;
    p.y = size->top;
    ClientToScreen( Root, &p );
    cmd = CreateWindow( className, "Prompt",
        WS_POPUPWINDOW | WS_CLIPSIBLINGS,
        p.x, p.y,
        size->right - size->left, bottom - size->top, Root,
        (HMENU)NULL, InstanceHandle, NULL );
    ShowWindow( cmd, SW_SHOWNORMAL );
    UpdateWindow( cmd );
    return( cmd );
}