"

COPYRIGHT (c) 1996 by Claus Gittinger

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

'From Smalltalk/X, Version:3.4.8 on 23-jul-1998 at 12:28:43'                    !

DeviceWorkstation subclass:#WinWorkstation

	instanceVariableNames:'blackpixel whitepixel listOfFonts rootWin rootDC buttonsPressed

		eventTrace eventBuffer usingSystemPalette inRecursiveDispatch

		dispatchingExpose'

	classVariableNames:'BeepFrequency BeepDuration NativeWindows NativeWindowClassTable

		StandardColorValues'

	poolDictionaries:''

	category:'Interface-Graphics'

!

!WinWorkstation primitiveDefinitions!

%{

#define COUNT_RESOURCES 

#define COUNT_BMP_RESOURCES

#define ADJUSTWINDOW

#define ALWAYSTRUECOLOR

#define WIN32THREADS

/*#define DEBUGMASK*/

# undef INT

# define INT WIN_INT

# undef Array

# define Array WIN_Array

# undef Number

# define Number WIN_Number

# undef Method

# define Method WIN_Method

# undef Point

# define Point WIN_Point

# undef Rectangle

/*# define Rectangle WIN_Rectangle*/

# undef True

# define True WIN_True

# undef False

# define False WIN_False

# undef Block

# define Block WIN_Block

# undef Context

# define Context WIN_Context

# undef xxCONTEXT

# define xxCONTEXT        WIN_CONTEXT

# undef _xxCONTEXT

# define _xxCONTEXT       _WIN_CONTEXT

/* #include <stdio.h> */

/* #include <malloc.h> */

/* #include <math.h> */

/* #include <string.h> */

/*#include <stdarg.h>   */

#ifdef __BORLANDC__

#define NOATOM

#define NOGDICAPMASKS

#define NOMETAFILE

#define NOMINMAX

#define NOOPENFILE

#define NOSOUND

#define NOWH

#define NOCOMM

#define NOKANJI

#define NOCRYPT

#define NOMCX

#define WIN32_LEAN_AND_MEAN

#include <windows.h>

#include <sys\timeb.h>

#else

#define _USERENTRY /**/

#define NOATOM

#define NOGDICAPMASKS

#define NOMETAFILE

#define NOMINMAX

#define NOOPENFILE

#define NOSOUND

#define NOWH

#define NOCOMM

#define NOKANJI

#define NOCRYPT

#define NOMCX

#define WIN32_LEAN_AND_MEAN

#include <windows.h>

#include <sys\timeb.h>

#endif

#include <process.h>

#   ifdef __DEF_Array

#    undef Array

#    define Array __DEF_Array

#   endif

#   ifdef __DEF_Number

#    undef Number

#    define Number __DEF_Number

#   endif

#   ifdef __DEF_Method

#    undef Method

#    define Method __DEF_Method

#   endif

#   ifdef __DEF_Point

#    undef Point

#    define Point __DEF_Point

#   endif

#   ifdef __DEF_Block

#    undef Block

#    define Block __DEF_Block

#   endif

#   ifdef __DEF_Context

#    undef Context

#    define Context __DEF_Context

#   endif

#   undef INT

#   define INT int

/*

 * some defines - tired of typing ...

 */

#define _HANDLEVal(o)        (HANDLE)(__MKCP(o))

#define _HBITMAPVAL(o)       (HBITMAP)(__MKCP(o))

#define _HWNDVal(o)          (HWND)(__MKCP(o))

#define _HPALETTEVal(o)      (HPALETTE)(__MKCP(o))

#define _HCURSORVal(o)       (HCURSOR)(__MKCP(o))

#define _HGDIOBJVal(o)       (HGDIOBJ)(__MKCP(o))

#define _LOGPALETTEVal(o)    (LOGPALETTE *)(__MKCP(o))

#define _COLORREFVal(o)      (COLORREF)(__MKCP(o))

#define _GCDATA(o)           ((struct gcData *)(__MKCP(o)))

#define __rootDC             (HDC)(__MKCP(__INST(rootDC)))

#define ISCONNECTED          (__INST(rootDC) != nil)

struct gcData {

    HWND        hWnd;

    HBITMAP     hBitmap;

    HBITMAP     savehBitmap;

    int         clipping;

    int         clipX;

    int         clipY;

    int         clipW;

    int         clipH;

    int         clipByChild;

    HDC         _hDC;

    HBITMAP     hMask;

    int         bitmapColorBitCount;

    int         lineWidth;

    int         lineStyle;

    int         joinStyle;

    int         capStyle;

    int         fontAscent;

    int         rop2;

    int         bitbltrop2;

    COLORREF    fgColor;

    COLORREF    bgColor;

    HFONT       hFont;

};

/*

 * some synthetic values

 */

/*****************************************************************

 * EVENT DEFINITIONS

 *****************************************************************/

/* Input Event Masks. Used as event-mask window attribute and as arguments

   to Grab requests.  Not to be confused with event names.  */

#define NoEventMask                     0L

#define KeyPressMask                    (1L<<0)

#define KeyReleaseMask                  (1L<<1)

#define ButtonPressMask                 (1L<<2)

#define ButtonReleaseMask               (1L<<3)

#define EnterWindowMask                 (1L<<4)

#define LeaveWindowMask                 (1L<<5)

#define PointerMotionMask               (1L<<6)

#define PointerMotionHintMask           (1L<<7)

#define Button1MotionMask               (1L<<8)

#define Button2MotionMask               (1L<<9)

#define Button3MotionMask               (1L<<10)

#define Button4MotionMask               (1L<<11)

#define Button5MotionMask               (1L<<12)

#define ButtonMotionMask                (1L<<13)

#define KeymapStateMask                 (1L<<14)

#define ExposureMask                    (1L<<15)

#define VisibilityChangeMask            (1L<<16)

#define StructureNotifyMask             (1L<<17)

#define ResizeRedirectMask              (1L<<18)

#define SubstructureNotifyMask          (1L<<19)

#define SubstructureRedirectMask        (1L<<20)

#define FocusChangeMask                 (1L<<21)

#define PropertyChangeMask              (1L<<22)

#define ColormapChangeMask              (1L<<23)

#define OwnerGrabButtonMask             (1L<<24)

/* Event names.  Used in "type" field in XEvent structures.  Not to be

confused with event masks above.  They start from 2 because 0 and 1

are reserved in the protocol for errors and replies. */

#define KeyPress                2

#define KeyRelease              3

#define ButtonPress             4

#define ButtonRelease           5

#define MotionNotify            6

#define EnterNotify             7

#define LeaveNotify             8

#define FocusIn                 9

#define FocusOut                10

#define KeymapNotify            11

#define Expose                  12

#define GraphicsExpose          13

#define NoExpose                14

#define VisibilityNotify        15

#define CreateNotify            16

#define DestroyNotify           17

#define UnmapNotify             18

#define MapNotify               19

#define MapRequest              20

#define ReparentNotify          21

#define ConfigureNotify         22

#define ConfigureRequest        23

#define GravityNotify           24

#define ResizeRequest           25

#define CirculateNotify         26

#define CirculateRequest        27

#define PropertyNotify          28

#define SelectionClear          29

#define SelectionRequest        30

#define SelectionNotify         31

#define ColormapNotify          32

#define ClientMessage           33

#define MappingNotify           34

#define LASTEvent               35      /* must be bigger than any event # */

/*# define Button1MotionMask      1

# define Button2MotionMask      2

# define Button3MotionMask      4

# define Button1Mask            Button1MotionMask

# define Button2Mask            Button2MotionMask

# define Button3Mask            Button3MotionMask*/

/* Key masks. Used as modifiers to GrabButton and GrabKey, results of QueryPointer,

   state in various key-, mouse-, and button-related events. */

#define ShiftMask               (1<<0)

#define LockMask                (1<<1)

#define ControlMask             (1<<2)

#define Mod1Mask                (1<<3)

#define Mod2Mask                (1<<4)

#define Mod3Mask                (1<<5)

#define Mod4Mask                (1<<6)

#define Mod5Mask                (1<<7)

/* modifier names.  Used to build a SetModifierMapping request or

   to read a GetModifierMapping request.  These correspond to the

   masks defined above. */

#define ShiftMapIndex           0

#define LockMapIndex            1

#define ControlMapIndex         2

#define Mod1MapIndex            3

#define Mod2MapIndex            4

#define Mod3MapIndex            5

#define Mod4MapIndex            6

#define Mod5MapIndex            7

/* button masks.  Used in same manner as Key masks above. Not to be confused

   with button names below. */

# define Button1Mask            Button1MotionMask

# define Button2Mask            Button2MotionMask

# define Button3Mask            Button3MotionMask

# define Button4Mask            Button4MotionMask

# define Button5Mask            Button5MotionMask

#define AnyModifier             (1<<15)  /* used in GrabButton, GrabKey */

/* button names. Used as arguments to GrabButton and as detail in ButtonPress

   and ButtonRelease events.  Not to be confused with button masks above.

   Note that 0 is already defined above as "AnyButton".  */

#define Button1                 1

#define Button2                 2

#define Button3                 3

#define Button4                 4

#define Button5                 5

/*# define ControlMask            8

# define ShiftMask              16*/

# define LeftAltMask            Mod1Mask

# define RightAltMask           Mod2Mask

# define TRANSLATED_KEY         Mod5Mask

#define WIN32PADDING 32

/*

 * synthetic events

 */

#define __WM_MOUSEENTER        0x10001

#define __WM_MOUSELEAVE        0x10002

#define __WM_GEXPOSE           0x10003

#define __WM_NOGEXPOSE         0x10004

static int AltMask = RightAltMask;

static int MetaMask = LeftAltMask;

# define WhitePixel     RGB(0xFF, 0xFF, 0xFF)

# define BlackPixel     RGB(0, 0, 0)

/*#undef DEBUG*/

#ifdef DEBUG

# define PRINTF(x)              { printf x;}

# define CPRINTF(x)              { if (__debug__) printf x;}

# define TH_DPRINTF(x)          /*{ if (__debug__) printf x;}*/

# define POSTPRINTF(x)          { if (__debug__) printf x;}

# define DPRINTF(x)             { if (__debug__) printf x;}

# define DDPRINTF(x)            /*{ if (__debug__) printf x;}*/

# define EVENT_PRINTF(x)        /*{ if (__debug__) printf x;}*/

# define EVENT_PRINTF2(x)       /*{ if (__debug__) printf x;}*/

# define EVENT_PRINTF3(x)       /* */

#else

# define PRINTF(x)             /* */

# define CPRINTF(x)             /* */

# define RES_BMP_PRINTF(x)     /**/

# define RESPRINTF(x)             /* */

# define RES1PRINTF(x)             /* */

# define TH_DPRINTF(x)          /* */

# define POSTDPRINTF(x)          /* */

# define DPRINTF(x)             /* */

# define DDPRINTF(x)            /* */

# define EVENT_PRINTF(x)        /* */

# define EVENT_PRINTF2(x)       /* */

# define EVENT_PRINTF3(x)       /* */

#endif

# define BR_SOLID       0

# define BR_PATTERN     1

# define LINE_SOLID     0

# define LINE_DASH      1

# define LINE_DDASH     2

#ifdef KEEP_STD_CURSORS

# define _C_ARROW       1

# define _C_CROSS       2

# define _C_IBEAM       3

# define _C_ICON        4

# define _C_NO          5

# define _C_SIZE        6

# define _C_SIZEALL     7

# define _C_SIZENESW    8

# define _C_SIZENS      9

# define _C_SIZENWSE    10

# define _C_UPARROW     11

# define _C_WAIT        12

 static HCURSOR H_C_ARROW = (HCURSOR)0;

 static HCURSOR H_C_CROSS = (HCURSOR)0;

 static HCURSOR H_C_IBEAM = (HCURSOR)0;

 static HCURSOR H_C_ICON = (HCURSOR)0;

 static HCURSOR H_C_NO = (HCURSOR)0;

 static HCURSOR H_C_SIZE = (HCURSOR)0;

 static HCURSOR H_C_SIZEALL = (HCURSOR)0;

 static HCURSOR H_C_SIZENESW = (HCURSOR)0;

 static HCURSOR H_C_SIZENS = (HCURSOR)0;

 static HCURSOR H_C_SIZENWSE = (HCURSOR)0;

 static HCURSOR H_C_UPARROW = (HCURSOR)0;

 static HCURSOR H_C_WAIT = (HCURSOR)0;

#endif /* KEEP_STD_CURSORS */

static int c_count;

static int evRootX, evRootY;

static int multiClickState;

static UINT lastMSGTime;

static UINT multiClickTime;

static UINT nextMultiClickTime;

static int destroyWin;

static int __modifiers;

static HDC tmpDC;

static int __isWinNT;

static int __logPixelSY;

#define WM_THREADCREATEWINDOW   WM_USER + 0x101

#define WM_THREADDESTROYWINDOW  WM_USER + 0x102

#define WM_THREADSETFOCUS       WM_USER + 0x103

#define WM_THREADSETCAPTURE     WM_USER + 0x104

#define WM_THREADSETCURSOR      WM_USER + 0x105

#define THREADINPUTEVENTNAME "InputEvents"

#define THREADEVENTNAME "CreateEvents"

#define THREADMUTEXNAME "MutexToProtectEvents"

#define isInputEvent() ((int)eventQueueHead)

typedef int (*intf)(int);

/*

 * keep the windows cursor and others local in the HWND struct.

 */

#define LI_TOPWIN       0x0001

#define LI_INPUTWIN     0x0002

typedef struct

{

	HCURSOR hCursor;

	int  bgBrush;

	int flag;

	int minWidth;

	int maxWidth;

	int minHeight;

	int maxHeight;

	int eventMask;

} localWindowInfo;

typedef localWindowInfo *plocalWindowInfo;

#define N_WINDOW_PRIVATE (sizeof(plocalWindowInfo))

#define GETLOCALWINDOWINFOPTR(__hWnd__) \

	((localWindowInfo*)GetWindowLong(__hWnd__, 0))

#define SETLOCALWINDOWINFOPTR(__hWnd__,__ptr__) \

	SetWindowLong(__hWnd__, 0 , (DWORD)__ptr__)

#define SetWindow_Cursor(__hWnd__, __hCurs__) \

	(GETLOCALWINDOWINFOPTR(__hWnd__) ? (GETLOCALWINDOWINFOPTR(__hWnd__)->hCursor = __hCurs__) : 0)

#define GetWindow_Cursor(__hWnd__) \

	(GETLOCALWINDOWINFOPTR(__hWnd__) ? GETLOCALWINDOWINFOPTR(__hWnd__)->hCursor : 0)

#define SetWindow_bgBrush(__hWnd__, __bgBrush__) \

	(GETLOCALWINDOWINFOPTR(__hWnd__) ? (GETLOCALWINDOWINFOPTR(__hWnd__)->bgBrush = __bgBrush__) : 0)

#define GetWindow_bgBrush(__hWnd__) \

	(GETLOCALWINDOWINFOPTR(__hWnd__) ? GETLOCALWINDOWINFOPTR(__hWnd__)->bgBrush : 0)

#define GetWindow_paintInfoPtr(__hWnd__) \

	(GETLOCALWINDOWINFOPTR(__hWnd__) ? &(GETLOCALWINDOWINFOPTR(__hWnd__)->paintInfo) : 0)

#define GetWindow_sizeInfoPtr(__hWnd__) \

	(GETLOCALWINDOWINFOPTR(__hWnd__) ? &(GETLOCALWINDOWINFOPTR(__hWnd__)->sizeInfo) : 0)

#define SetWindow_Flag(__hWnd__, __flag__) \

	(GETLOCALWINDOWINFOPTR(__hWnd__) ? (GETLOCALWINDOWINFOPTR(__hWnd__)->flag = __flag__) : 0)

#define GetWindow_Flag(__hWnd__) \

	(GETLOCALWINDOWINFOPTR(__hWnd__) ? GETLOCALWINDOWINFOPTR(__hWnd__)->flag : 0)

#define GetWindow_eventMask(__hWnd__) \

	(GETLOCALWINDOWINFOPTR(__hWnd__) ? (GETLOCALWINDOWINFOPTR(__hWnd__)->eventMask) : 0)

struct queuedEvent {

	struct queuedEvent     *ev_next;

	int                     count;

	int                     ev_flag;

	HWND                    ev_hWnd;

	UINT                    ev_message;

	UINT                    ev_wParam;

	int                     ev_arg1;

	int                     ev_arg2;

	int                     ev_arg3;

	int                     ev_arg4;

};

#define ev_x    ev_arg1

#define ev_y    ev_arg2

#define ev_w    ev_arg3

#define ev_h    ev_arg4

#define ev_keyCode   ev_wParam

#define ev_scanCode  ev_arg3

#define ev_modifiers ev_arg4

#define EV_CHUNK_CNT    10000

#define EV_CHUNK_SZ     (EV_CHUNK_CNT*sizeof(struct queuedEvent))

#define BITBLT_COPY             SRCCOPY

#define BITBLT_COPYINVERTED     NOTSRCCOPY

#define BITBLT_XOR              SRCINVERT

#define BITBLT_AND              SRCAND

#define BITBLT_OR               SRCPAINT