"

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.

"

"{ Package: 'stx:libview' }"

DeviceWorkstation subclass:#WinWorkstation

	instanceVariableNames:'blackpixel whitepixel listOfFonts rootWin rootDC buttonsPressed

		eventTrace eventBuffer isWin95 isWinXP

		lastClipboardSequenceNumber'

	classVariableNames:'BeepDuration NativeDialogs NativeWidgets NativeWidgetClassTable

		StandardColorValues IgnoreSysColorChanges IgnoreFontChanges

		SystemColorValues CanEndSession VerboseNativeDialogs'

	poolDictionaries:''

	category:'Interface-Graphics'

!

ByteArray variableByteSubclass:#CopyDataStructStructure

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:WinWorkstation

!

DeviceHandle subclass:#PrinterDeviceContextHandle

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:WinWorkstation

!

!WinWorkstation primitiveDefinitions!

%{

#define TRACE_ALL_EVENTS      /* */

#define COUNT_RESOURCES       /* */

#define COUNT_BMP_RESOURCES   /* */

#define DEBUG_DELETEOBJECT    /* */

#define DEBUG_DC_REUSE        /* */

#define xxDEBUG_COLORIZE_WM_PAINT_RECTS1

#define xxDEBUG_COLORIZE_WM_PAINT_RECTS2

#define LOCK_DEBUG

#define xxSTARTUP_DISPATCHTHREAD_DEBUG

#define ADJUSTWINDOW

#define ALWAYSTRUECOLOR

#define WIN32THREADS

/* #define DEBUGMASK            /* */

#define SET_FOCUS_IN_WINTHREAD

#define SET_CURSOR_IN_WINTHREAD

#define DELAY_ENTER_LEAVE_WHILE_IN_SIZE_MOVE /* */

#define xxBEEP_IN_WINTHREAD    /* */

#define xxKEEP_STD_CURSORS     /* not useful - those are allocated only once, in any case */

#define xxHANDLE_VIEWGRAVITY   /* not yet working */

#define COMPRESS_WINDOWPOSCHANGED

#define USE_DRAW_MUTEX

#define GDIFLUSH_WHEN_CHANGING_CLIP       /* workaround a redraw problem (with dell?) */

#define LATE_GENERATE_EXPOSE              /* get update region from stx thread */

#define xxNO_CLEAR_FOR_WM_PAINT           /* do not fill exposed areas with bgColor */

#define xxLATE_CLEAR_FOR_WM_PAINT         /* fill exposed areas with bgColor in ST/X thread (instead of in event-thread) */

					/* seems to be needed to avoid DC conflicts */

#if 0 /* DOES NOT WORK */

#define CACHE_LAST_DC                   /* remember last DC in gcData */

#define CACHE_LAST_PEN                  /* remember last pen in gcData */

#define CACHE_LAST_BRUSH                /* remember last brush in gcData */

#define CACHE_LAST_WM_PAINT_BRUSH       /* remember last viewBackground brush */

#define CACHE_LAST_WM_PAINT_DC          /* remember last viewBackground paints dc */

#define CACHE_LAST_TMP_FONT             /* */

#endif

#define CACHE_PEN

#define CACHE_BRUSH

#ifndef PRE_07_APR_04

# define CACHE_LAST_DC

#endif

#ifdef CACHE_PEN

# define NUM_PEN_CACHED_W95   8          /* that many solid pens are globally remembered */

# define NUM_PEN_CACHED_NT    16         /* that many solid pens are globally remembered */

# define MAX_NUM_PEN_CACHED   32         /* upper limit */

#else

# define NUM_PEN_CACHED_W95   0

# define NUM_PEN_CACHED_NT    0

# define MAX_NUM_PEN_CACHED   0

#endif

#ifdef CACHE_BRUSH

# define NUM_BRUSH_CACHED_W95 8          /* that many brushes are globally remembered */

# define NUM_BRUSH_CACHED_NT  16         /* that many brushes are globally remembered */

# define MAX_NUM_BRUSH_CACHED 32         /* upper limit */

#else

# define NUM_BRUSH_CACHED_W95 0

# define NUM_BRUSH_CACHED_NT  0

# define MAX_NUM_BRUSH_CACHED 0

#endif

#if defined(NO_CLEAR_FOR_WM_PAINT)

# define WM_PAINT_CLEAR_EARLY       0

# define WM_PAINT_CLEAR_LATE        0

#else

# if defined(LATE_CLEAR_FOR_WM_PAINT)

#  define WM_PAINT_CLEAR_EARLY       0

#  define WM_PAINT_CLEAR_LATE        1

# else

#  define WM_PAINT_CLEAR_EARLY       1

#  define WM_PAINT_CLEAR_LATE        0

# endif

#endif

#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 Date

#define Date WIN_Date

#undef Time

#define Time WIN_Time

#undef Delay

#define Delay WIN_Delay

#undef Signal

#define Signal WIN_Signal

#undef Set

#define Set WIN_Set

#undef Process

#define Process WIN_Process

#undef Processor

#define Processor WIN_Processor

#undef Message

#define Message WIN_Message

#include <stdio.h>

#include <errno.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 <shellapi.h>

# include <sys\timeb.h>

# include <dir.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

# define _WIN32_WINNT 0x0500    /* need this to get certain defines from winuser.h (WM_NCXBUTTONDOWN) */

# include <windows.h>

# include <shellapi.h>

# include <sys\timeb.h>

#endif

#ifndef MAXPATH

# define MAXPATH 2048   // not define in MS Visual C 8

#endif

#include <commdlg.h>

#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_Rectangle

# undef Rectangle

# define Rectangle __DEF_Rectangle

#else

# undef Rectangle

#endif

#ifdef __DEF_Block

# undef Block

# define Block __DEF_Block

#endif

#ifdef __DEF_Context

# undef Context

# define Context __DEF_Context

#endif

#ifdef __DEF_Date

# undef Date

# define Date __DEF_Date

#endif

#ifdef __DEF_Time

# undef Time

# define Time __DEF_Time

#endif

# ifdef __DEF_Set

#  undef Set

#  define Set __DEF_Set

# endif

# ifdef __DEF_Signal

#  undef Signal

#  define Signal __DEF_Signal

# endif

# ifdef __DEF_Delay

#  undef Delay

#  define Delay __DEF_Delay

# endif

# ifdef __DEF_Process

#  undef Process

#  define Process __DEF_Process

# endif

# ifdef __DEF_Processor

#  undef Processor

#  define Processor __DEF_Processor

# endif

# ifdef __DEF_Message

#  undef Message

#  define Message __DEF_Message

# endif

#if 0 /* does not work, anyway */

#ifndef WM_UNICHAR

# define WM_UNICHAR                              0x0109

#endif

#ifndef UNICODE_NOCHAR

# define UNICODE_NOCHAR                          0xFFFF

#endif

#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 _HDCVal(o)           (HDC)(__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 WIDECHAR unsigned short

#ifdef LATER

  /* for multi-WIN display support, we need this as an instance var (as below)

   * however, there are many more places, where a single static datum is

   * used currently - therefore dont care for this - at least now.

   */

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

#endif

#define ISCONNECTED         1

struct gcData {

    union {

	HDC         __hDC;

	struct gcData *__nextFree;

    } u;

    HWND        hWnd;

    HBITMAP     hBitmap;

    HBITMAP     save_hBitmap;

    HBITMAP     hMask;

    short       clipX;

    short       clipY;

    short       clipW;

    short       clipH;

    char        clipping;

    char        clipByChildren;

    char        bkMode;

    char        bitmapColorBitCount;

    short       maskOrgX;

    short       maskOrgY;

    short       lineWidth;

    short       fontAscent;

    int         lStyle;   /* is lineStyle | joinStyle | capStyle */

    int         rop2;

    int         bitbltrop2;

    COLORREF    fgColor;

    COLORREF    bgColor;

    HFONT       hFont;

    HFONT       save_hFont;

    HPEN        hPen;

    HPEN        save_hPen;

    HBRUSH      hBrush;

    HBRUSH      save_hBrush;

    char        doNotCacheOrRelease;

    char        reserve1;

    char        reserve2;

    char        reserve3;

    char        reserve4;

    int         reserve5;

};

#define _hDC u.__hDC

/*

 * 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)

#if 0

# define Button4MotionMask               (1L<<11)

# define Button5MotionMask               (1L<<12)

#endif

#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 # */

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

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

/* 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

#define ShiftMask               (1<<ShiftMapIndex)

#define LockMask                (1<<LockMapIndex)

#define ControlMask             (1<<ControlMapIndex)

#define Mod1Mask                (1<<Mod1MapIndex)

#define Mod2Mask                (1<<Mod2MapIndex)

#define Mod3Mask                (1<<Mod3MapIndex)

#define Mod4Mask                (1<<Mod4MapIndex)

#define Mod5Mask                (1<<Mod5MapIndex)

/* 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

#if 0

# define Button4Mask            Button4MotionMask

# define Button5Mask            Button5MotionMask

#endif

#define AnyButtonMask           (Button1Mask|Button2Mask|Button3Mask)

#if 0

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