hg/stx-libview: comparison WinWorkstation.st

equal deleted inserted replaced

-:8bd2123b96c6
+:23138b66fe48
 "{ Encoding: utf8 }"
 "
 COPYRIGHT (c) 1996 by Claus Gittinger
-All Rights Reserved
+	      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
 "{ Package: 'stx:libview' }"
 "{ NameSpace: Smalltalk }"
 DeviceWorkstation subclass:#WinWorkstation
-instanceVariableNames:'blackpixel whitepixel listOfFonts rootWin rootDC buttonsPressed
+	instanceVariableNames:'blackpixel whitepixel listOfFonts rootWin rootDC buttonsPressed
-eventTrace eventBuffer lastClipboardSequenceNumber'
+		eventTrace eventBuffer lastClipboardSequenceNumber'
-classVariableNames:'BeepDuration NativeDialogs NativeFileDialogs NativeWidgets
+	classVariableNames:'BeepDuration NativeDialogs NativeFileDialogs NativeWidgets
-NativeWidgetClassTable StandardColorValues IgnoreSysColorChanges
+		NativeWidgetClassTable StandardColorValues IgnoreSysColorChanges
-IgnoreFontChanges SystemColorValues CanEndSession
+		IgnoreFontChanges SystemColorValues CanEndSession
-VerboseNativeDialogs'
+		VerboseNativeDialogs'
-poolDictionaries:''
+	poolDictionaries:''
-category:'Interface-Graphics'
+	category:'Interface-Graphics'
 !
 Object subclass:#AlphaBlendParameters
-instanceVariableNames:'sourceAlpha padding redMask greenMask blueMask'
+	instanceVariableNames:'sourceAlpha padding redMask greenMask blueMask'
-classVariableNames:''
+	classVariableNames:''
-poolDictionaries:''
+	poolDictionaries:''
-privateIn:WinWorkstation
+	privateIn:WinWorkstation
 !
 ByteArray variableByteSubclass:#CopyDataStructStructure
-instanceVariableNames:''
+	instanceVariableNames:''
-classVariableNames:''
+	classVariableNames:''
-poolDictionaries:''
+	poolDictionaries:''
-privateIn:WinWorkstation
+	privateIn:WinWorkstation
 !
 Object subclass:#MonitorInfo
-instanceVariableNames:'screenX screenY screenW screenH workX workY workW workH isPrimary
+	instanceVariableNames:'screenX screenY screenW screenH workX workY workW workH isPrimary
-name'
+		name'
-classVariableNames:''
+	classVariableNames:''
-poolDictionaries:''
+	poolDictionaries:''
-privateIn:WinWorkstation
+	privateIn:WinWorkstation
 !
 DeviceHandle subclass:#PrinterDeviceContextHandle
-instanceVariableNames:''
+	instanceVariableNames:''
-classVariableNames:''
+	classVariableNames:''
-poolDictionaries:''
+	poolDictionaries:''
-privateIn:WinWorkstation
+	privateIn:WinWorkstation
 !
 !WinWorkstation primitiveDefinitions!
 %{
 #define TRACE_ALL_EVENTS      /* */
 #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 */
+					  /* seems to be needed to avoid DC conflicts */
 #if 0 /* DOES NOT WORK */
 # 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 ISCONNECTED         1
 struct gcData {
 union {
-HDC         __hDC;
+	HDC         __hDC;
-struct gcData *__nextFree;
+	struct gcData *__nextFree;
 } u;
 HWND        hWnd;
 HBITMAP     hBitmap;
 HBITMAP     save_hBitmap;
 HBITMAP     hMask;
 /* # define EVENT_PRINTF(x)        { printf x;} */
 #define INFOFPRINTF(__x__)                 \
 if (@global(InfoPrinting) == true) { \
-console_fprintf __x__;           \
+	console_fprintf __x__;           \
 }
 #define DEBUGFPRINTF(__x__)                 \
 if (@global(InfoPrinting) == true) { \
-console_fprintf __x__;           \
+	console_fprintf __x__;           \
 }
 #define BR_SOLID       0
 #define BR_PATTERN     1
 #define LI_TOPWIN       0x0001
 #define LI_INPUTWIN     0x0002
 #define LI_NATIVEWIN    0x0004
 typedef struct {
-HCURSOR         hCursor;
+	HCURSOR         hCursor;
-HBRUSH          viewBgBrush;  /* if that is nil, it has a solid bg color */
+	HBRUSH          viewBgBrush;  /* if that is nil, it has a solid bg color */
-COLORREF        viewBgColor;
+	COLORREF        viewBgColor;
-int             eventMask;
+	int             eventMask;
-short           flag;         /* LI_ - flags bits */
+	short           flag;         /* LI_ - flags bits */
-short           minWidth;
+	short           minWidth;
-short           maxWidth;
+	short           maxWidth;
-short           minHeight;
+	short           minHeight;
-short           maxHeight;
+	short           maxHeight;
-short           currentMonitorWidth;
+	short           currentMonitorWidth;
-short           currentMonitorHeight;
+	short           currentMonitorHeight;
-short           bw;
+	short           bw;
-unsigned char   iconified;
+	unsigned char   iconified;
-unsigned char   viewGravity;
+	unsigned char   viewGravity;
-unsigned char   unmapping;
+	unsigned char   unmapping;
 #if 0
-short           bgOffsX;      /* bg-pattern offset */
+	short           bgOffsX;      /* bg-pattern offset */
-short           bgOffsY;      /* bg-pattern offset */
+	short           bgOffsY;      /* bg-pattern offset */
 #endif
-short           mouseX;       /* last mouseX */
+	short           mouseX;       /* last mouseX */
-short           mouseY;       /* last mouseY */
+	short           mouseY;       /* last mouseY */
-COLORREF        bdColor;
+	COLORREF        bdColor;
 } localWindowInfo;
 typedef localWindowInfo *plocalWindowInfo;
 typedef struct createWindowInfo {
-localWindowInfo *localWindowInfo;  /* in param */
+	localWindowInfo *localWindowInfo;  /* in param */
-HANDLE          newWinHandle;      /* out param */
+	HANDLE          newWinHandle;      /* out param */
-wchar_t         *windowName;       /* in params */
+	wchar_t         *windowName;       /* in params */
-wchar_t         *className;
+	wchar_t         *className;
-int             winStyleBits;
+	int             winStyleBits;
-int             winStyleBitsEx;
+	int             winStyleBitsEx;
-HANDLE          parentHandle;
+	HANDLE          parentHandle;
-int             x;
+	int             x;
-int             y;
+	int             y;
-int             dx;
+	int             dx;
-int             dy;
+	int             dy;
-HANDLE          hCreateEvent;
+	HANDLE          hCreateEvent;
-short           infoWasRead;
+	short           infoWasRead;
-unsigned short  sequenceNr;
+	unsigned short  sequenceNr;
-unsigned        errCode;
+	unsigned        errCode;
 } createWindowInfo;
 #define INVALIDATED_CWI 0xFFFF             /* seqNr for invalidated CWI */
 static createWindowInfo *pendingCREATEWINDOWInfo = 0;
 #ifdef _WIN64
 # define GWL_LOCALINFO  GWLP_USERDATA
 # define SETLOCALWINDOWINFOPTR(__hWnd__,__ptr__) \
-SetWindowLongPtr(__hWnd__, GWL_LOCALINFO , (LONG_PTR)__ptr__)
+	SetWindowLongPtr(__hWnd__, GWL_LOCALINFO , (LONG_PTR)__ptr__)
 # define GETLOCALWINDOWINFOPTR(__hWnd__) \
-((localWindowInfo *)GetWindowLongPtr(__hWnd__, GWL_LOCALINFO))
+	((localWindowInfo *)GetWindowLongPtr(__hWnd__, GWL_LOCALINFO))
 #else
 # define GWL_LOCALINFO  GWL_USERDATA
 # define SETLOCALWINDOWINFOPTR(__hWnd__,__ptr__) \
-SetWindowLong(__hWnd__, GWL_LOCALINFO , (DWORD)__ptr__)
+	SetWindowLong(__hWnd__, GWL_LOCALINFO , (DWORD)__ptr__)
 # define GETLOCALWINDOWINFOPTR(__hWnd__) \
-((localWindowInfo *)GetWindowLong(__hWnd__, GWL_LOCALINFO))
+	((localWindowInfo *)GetWindowLong(__hWnd__, GWL_LOCALINFO))
 #endif
 #define SetWindow_Cursor(__hWnd__, __hCurs__) \
-(GETLOCALWINDOWINFOPTR(__hWnd__) ? (GETLOCALWINDOWINFOPTR(__hWnd__)->hCursor = __hCurs__) : 0)
+	(GETLOCALWINDOWINFOPTR(__hWnd__) ? (GETLOCALWINDOWINFOPTR(__hWnd__)->hCursor = __hCurs__) : 0)
 #define GetWindow_Cursor(__hWnd__) \
-(GETLOCALWINDOWINFOPTR(__hWnd__) ? GETLOCALWINDOWINFOPTR(__hWnd__)->hCursor : 0)
+	(GETLOCALWINDOWINFOPTR(__hWnd__) ? GETLOCALWINDOWINFOPTR(__hWnd__)->hCursor : 0)
 #define SetWindow_viewBgColor(__hWnd__, __viewBgColor__) \
-(GETLOCALWINDOWINFOPTR(__hWnd__) ? (GETLOCALWINDOWINFOPTR(__hWnd__)->viewBgColor = __viewBgColor__) : 0)
+	(GETLOCALWINDOWINFOPTR(__hWnd__) ? (GETLOCALWINDOWINFOPTR(__hWnd__)->viewBgColor = __viewBgColor__) : 0)
 #define GetWindow_viewBgColor(__hWnd__) \
-(GETLOCALWINDOWINFOPTR(__hWnd__) ? GETLOCALWINDOWINFOPTR(__hWnd__)->viewBgColor : 0)
+	(GETLOCALWINDOWINFOPTR(__hWnd__) ? GETLOCALWINDOWINFOPTR(__hWnd__)->viewBgColor : 0)
 #define SetWindow_bdColor(__hWnd__, __bdColor__) \
-(GETLOCALWINDOWINFOPTR(__hWnd__) ? (GETLOCALWINDOWINFOPTR(__hWnd__)->bdColor = __bdColor__) : 0)
+	(GETLOCALWINDOWINFOPTR(__hWnd__) ? (GETLOCALWINDOWINFOPTR(__hWnd__)->bdColor = __bdColor__) : 0)
 #define GetWindow_bdColor(__hWnd__) \
-(GETLOCALWINDOWINFOPTR(__hWnd__) ? GETLOCALWINDOWINFOPTR(__hWnd__)->bdColor : 0)
+	(GETLOCALWINDOWINFOPTR(__hWnd__) ? GETLOCALWINDOWINFOPTR(__hWnd__)->bdColor : 0)
 #define SetWindow_iconified(__hWnd__, __iconified__) \
-(GETLOCALWINDOWINFOPTR(__hWnd__) ? (GETLOCALWINDOWINFOPTR(__hWnd__)->iconified = __iconified__) : 0)
+	(GETLOCALWINDOWINFOPTR(__hWnd__) ? (GETLOCALWINDOWINFOPTR(__hWnd__)->iconified = __iconified__) : 0)
 #define GetWindow_iconified(__hWnd__) \
-(GETLOCALWINDOWINFOPTR(__hWnd__) ? GETLOCALWINDOWINFOPTR(__hWnd__)->iconified : 0)
+	(GETLOCALWINDOWINFOPTR(__hWnd__) ? GETLOCALWINDOWINFOPTR(__hWnd__)->iconified : 0)
 #define SetWindow_unmapping(__hWnd__, __unmapping__) \
-(GETLOCALWINDOWINFOPTR(__hWnd__) ? (GETLOCALWINDOWINFOPTR(__hWnd__)->unmapping = __unmapping__) : 0)
+	(GETLOCALWINDOWINFOPTR(__hWnd__) ? (GETLOCALWINDOWINFOPTR(__hWnd__)->unmapping = __unmapping__) : 0)
 #define GetWindow_unmapping(__hWnd__) \
-(GETLOCALWINDOWINFOPTR(__hWnd__) ? GETLOCALWINDOWINFOPTR(__hWnd__)->unmapping : 0)
+	(GETLOCALWINDOWINFOPTR(__hWnd__) ? GETLOCALWINDOWINFOPTR(__hWnd__)->unmapping : 0)
 #define SetWindow_mouseX(__hWnd__, __mouseX__) \
-(GETLOCALWINDOWINFOPTR(__hWnd__) ? (GETLOCALWINDOWINFOPTR(__hWnd__)->mouseX = __mouseX__) : 0)
+	(GETLOCALWINDOWINFOPTR(__hWnd__) ? (GETLOCALWINDOWINFOPTR(__hWnd__)->mouseX = __mouseX__) : 0)
 #define GetWindow_mouseX(__hWnd__) \
-(GETLOCALWINDOWINFOPTR(__hWnd__) ? GETLOCALWINDOWINFOPTR(__hWnd__)->mouseX : 0)
+	(GETLOCALWINDOWINFOPTR(__hWnd__) ? GETLOCALWINDOWINFOPTR(__hWnd__)->mouseX : 0)
 #define SetWindow_mouseY(__hWnd__, __mouseY__) \
-(GETLOCALWINDOWINFOPTR(__hWnd__) ? (GETLOCALWINDOWINFOPTR(__hWnd__)->mouseY = __mouseY__) : 0)
+	(GETLOCALWINDOWINFOPTR(__hWnd__) ? (GETLOCALWINDOWINFOPTR(__hWnd__)->mouseY = __mouseY__) : 0)
 #define GetWindow_mouseY(__hWnd__) \
-(GETLOCALWINDOWINFOPTR(__hWnd__) ? GETLOCALWINDOWINFOPTR(__hWnd__)->mouseY : 0)
+	(GETLOCALWINDOWINFOPTR(__hWnd__) ? GETLOCALWINDOWINFOPTR(__hWnd__)->mouseY : 0)
 #define SetWindow_mouseXY(__hWnd__, __mouseX__, __mouseY__) \
-{ SetWindow_mouseX(__hWnd__, __mouseX__); SetWindow_mouseY(__hWnd__, __mouseY__); }
+	{ SetWindow_mouseX(__hWnd__, __mouseX__); SetWindow_mouseY(__hWnd__, __mouseY__); }
 #define SetWindow_viewBgBrush(__hWnd__, __viewBgBrush__) \
-(GETLOCALWINDOWINFOPTR(__hWnd__) ? (GETLOCALWINDOWINFOPTR(__hWnd__)->viewBgBrush = __viewBgBrush__) : (HBRUSH)0)
+	(GETLOCALWINDOWINFOPTR(__hWnd__) ? (GETLOCALWINDOWINFOPTR(__hWnd__)->viewBgBrush = __viewBgBrush__) : (HBRUSH)0)
 #define GetWindow_viewBgBrush(__hWnd__) \
-(GETLOCALWINDOWINFOPTR(__hWnd__) ? GETLOCALWINDOWINFOPTR(__hWnd__)->viewBgBrush : (HBRUSH)0)
+	(GETLOCALWINDOWINFOPTR(__hWnd__) ? GETLOCALWINDOWINFOPTR(__hWnd__)->viewBgBrush : (HBRUSH)0)
 #define SetWindow_bw(__hWnd__, __bw__) \
-(GETLOCALWINDOWINFOPTR(__hWnd__) ? (GETLOCALWINDOWINFOPTR(__hWnd__)->bw = __bw__) : 0)
+	(GETLOCALWINDOWINFOPTR(__hWnd__) ? (GETLOCALWINDOWINFOPTR(__hWnd__)->bw = __bw__) : 0)
 #define GetWindow_bw(__hWnd__) \
-(GETLOCALWINDOWINFOPTR(__hWnd__) ? GETLOCALWINDOWINFOPTR(__hWnd__)->bw : 0)
+	(GETLOCALWINDOWINFOPTR(__hWnd__) ? GETLOCALWINDOWINFOPTR(__hWnd__)->bw : 0)
 #define GetWindow_paintInfoPtr(__hWnd__) \
-(GETLOCALWINDOWINFOPTR(__hWnd__) ? &(GETLOCALWINDOWINFOPTR(__hWnd__)->paintInfo) : 0)
+	(GETLOCALWINDOWINFOPTR(__hWnd__) ? &(GETLOCALWINDOWINFOPTR(__hWnd__)->paintInfo) : 0)
 #define SetWindow_flag(__hWnd__, __flag__) \
-(GETLOCALWINDOWINFOPTR(__hWnd__) ? (GETLOCALWINDOWINFOPTR(__hWnd__)->flag = __flag__) : 0)
+	(GETLOCALWINDOWINFOPTR(__hWnd__) ? (GETLOCALWINDOWINFOPTR(__hWnd__)->flag = __flag__) : 0)
 #define GetWindow_flag(__hWnd__) \
-(GETLOCALWINDOWINFOPTR(__hWnd__) ? GETLOCALWINDOWINFOPTR(__hWnd__)->flag : 0)
+	(GETLOCALWINDOWINFOPTR(__hWnd__) ? GETLOCALWINDOWINFOPTR(__hWnd__)->flag : 0)
 #define GetWindow_eventMask(__hWnd__) \
-(GETLOCALWINDOWINFOPTR(__hWnd__) ? (GETLOCALWINDOWINFOPTR(__hWnd__)->eventMask) : 0)
+	(GETLOCALWINDOWINFOPTR(__hWnd__) ? (GETLOCALWINDOWINFOPTR(__hWnd__)->eventMask) : 0)
 #define SetWindow_currentMonitorWidth(__hWnd__, __width__) \
-(GETLOCALWINDOWINFOPTR(__hWnd__) ? (GETLOCALWINDOWINFOPTR(__hWnd__)->currentMonitorWidth = __width__) : 0)
+	(GETLOCALWINDOWINFOPTR(__hWnd__) ? (GETLOCALWINDOWINFOPTR(__hWnd__)->currentMonitorWidth = __width__) : 0)
 #define SetWindow_currentMonitorHeight(__hWnd__, __height__) \
-(GETLOCALWINDOWINFOPTR(__hWnd__) ? (GETLOCALWINDOWINFOPTR(__hWnd__)->currentMonitorHeight = __height__) : 0)
+	(GETLOCALWINDOWINFOPTR(__hWnd__) ? (GETLOCALWINDOWINFOPTR(__hWnd__)->currentMonitorHeight = __height__) : 0)
 struct queuedEvent {
-struct queuedEvent     *ev_next;
+	struct queuedEvent     *ev_next;
-int                     count;
+	int                     count;
-int                     ev_flag;
+	int                     ev_flag;
-HWND                    ev_hWnd;
+	HWND                    ev_hWnd;
-UINT                    ev_message;
+	UINT                    ev_message;
-UINT                    ev_wParam;
+	UINT                    ev_wParam;
-INT                     ev_arg1;
+	INT                     ev_arg1;
-INT                     ev_arg2;
+	INT                     ev_arg2;
-INT                     ev_arg3;
+	INT                     ev_arg3;
-INT                     ev_arg4;
+	INT                     ev_arg4;
-UINT                    ev_time;
+	UINT                    ev_time;
 };
 #define ev_x    ev_arg1
 #define ev_y    ev_arg2
 #define ev_w    ev_arg3
 #define BITBLT_XOR              SRCINVERT
 #define BITBLT_AND              SRCAND
 #define BITBLT_OR               SRCPAINT
 typedef struct registerHotKeyInfo {
-HANDLE       hwnd;          /* in param */
+	HANDLE       hwnd;          /* in param */
-int          hotKeyId;      /* in param */
+	int          hotKeyId;      /* in param */
-unsigned int modifier;      /* in param */
+	unsigned int modifier;      /* in param */
-unsigned int virtualKey;    /* in params */
+	unsigned int virtualKey;    /* in params */
-int          finished;      /* out param */
+	int          finished;      /* out param */
-int          errorCode;     /* out param */
+	int          errorCode;     /* out param */
 } registerHotKeyInfo;
 typedef struct fileDialogDataStruct {
 wchar_t filename[1000 * MAX_PATH]; // big buffer to support multiselect
 wchar_t directory[MAX_PATH];
 wchar_t filter[MAX_PATH];
 int filterIndex;
 BOOL trueForSave;
 BOOL trueForMultiSelect;
-DWORD fileDialogThreadId;
+	DWORD fileDialogThreadId;
 BOOL fileDialogDidReturn;
 } fileDialogData;
 DWORD WINAPI OpenFileDialog(void *arg) {
 BOOL hasResult;
 OPENFILENAMEW ofn;
-fileDialogData *pFdd = (fileDialogData*)arg;
+	fileDialogData *pFdd = (fileDialogData*)arg;
-pFdd->fileDialogThreadId = GetCurrentThreadId();
+	pFdd->fileDialogThreadId = GetCurrentThreadId();
 ZeroMemory(&ofn, sizeof(ofn));
 ofn.lStructSize = sizeof(OPENFILENAMEW);
 ofn.lpstrFile = pFdd->filename;
 ofn.lpstrInitialDir = pFdd->directory;
 ofn.lpstrFilter = pFdd->filter;
 ofn.nFilterIndex = pFdd->filterIndex;
 ofn.hwndOwner = pFdd->owningWindow;
 if (pFdd->trueForSave) {
-ofn.Flags = OFN_OVERWRITEPROMPT | OFN_PATHMUSTEXIST;
+	    ofn.Flags = OFN_OVERWRITEPROMPT | OFN_PATHMUSTEXIST;
-hasResult = GetSaveFileNameW(&ofn);
+	    hasResult = GetSaveFileNameW(&ofn);
 } else {
-if (pFdd->trueForMultiSelect) {
+		if (pFdd->trueForMultiSelect) {
-ofn.Flags = OFN_EXPLORER | OFN_ALLOWMULTISELECT;
+			ofn.Flags = OFN_EXPLORER | OFN_ALLOWMULTISELECT;
-} else {
+		} else {
-ofn.Flags = OFN_FILEMUSTEXIST;
+			ofn.Flags = OFN_FILEMUSTEXIST;
-}
+		}
-hasResult = GetOpenFileNameW(&ofn);
+	    hasResult = GetOpenFileNameW(&ofn);
 }
 if (!hasResult) {
-ZeroMemory(&pFdd->filename, sizeof(pFdd->filename));
+	    ZeroMemory(&pFdd->filename, sizeof(pFdd->filename));
 }
 pFdd->fileDialogDidReturn = TRUE;
 return 0;
 }
 HANDLE openFileDialogInNewThread(fileDialogData *pFdd) {
 HANDLE fileDialogThread = CreateThread(NULL, 0, OpenFileDialog, pFdd, 0, NULL);
 if (fileDialogThread == INVALID_HANDLE_VALUE) {
-printf("error: could not create thread for native file dialog: %d\n", GetLastError());
+	    printf("error: could not create thread for native file dialog: %d\n", GetLastError());
 }
 return fileDialogThread;
 }
 BOOL CALLBACK enumWindowsToFindAndDestroyFileDialogProc(HWND hwnd, LPARAM fileDialogThreadId) {
 if (GetWindowThreadProcessId(hwnd, NULL) == (DWORD)fileDialogThreadId) {
-EndDialog(hwnd, 0);
+	EndDialog(hwnd, 0);
-DestroyWindow(hwnd);
+	DestroyWindow(hwnd);
 }
 return TRUE;
 };
 %}
 ! !
 !WinWorkstation primitiveVariables!
 static void __debugEvent__() {}
 #ifdef DEBUGMASK
 static void
 printMask(int mask) {
-if (mask & KeyPressMask)        console_printf("KeyPressMask\n");
+	if (mask & KeyPressMask)        console_printf("KeyPressMask\n");
-if (mask & KeyReleaseMask)      console_printf("KeyReleaseMask\n");
+	if (mask & KeyReleaseMask)      console_printf("KeyReleaseMask\n");
-if (mask & ButtonPressMask)     console_printf("ButtonPressMask\n");
+	if (mask & ButtonPressMask)     console_printf("ButtonPressMask\n");
-if (mask & ButtonReleaseMask)   console_printf("ButtonReleaseMask\n");
+	if (mask & ButtonReleaseMask)   console_printf("ButtonReleaseMask\n");
-if (mask & ButtonMotionMask)    console_printf("ButtonMotionMask\n");
+	if (mask & ButtonMotionMask)    console_printf("ButtonMotionMask\n");
-if (mask & PointerMotionMask)   console_printf("PointerMotionMask\n");
+	if (mask & PointerMotionMask)   console_printf("PointerMotionMask\n");
-if (mask & ExposureMask)        console_printf("ExposureMask\n");
+	if (mask & ExposureMask)        console_printf("ExposureMask\n");
-if (mask & FocusChangeMask)     console_printf("FocusChangeMask\n");
+	if (mask & FocusChangeMask)     console_printf("FocusChangeMask\n");
-if (mask & EnterWindowMask)     console_printf("EnterWindowMask\n");
+	if (mask & EnterWindowMask)     console_printf("EnterWindowMask\n");
-if (mask & LeaveWindowMask)     console_printf("LeaveWindowMask\n");
+	if (mask & LeaveWindowMask)     console_printf("LeaveWindowMask\n");
-if (mask & KeymapStateMask)     console_printf("KeymapStateMask\n");
+	if (mask & KeymapStateMask)     console_printf("KeymapStateMask\n");
-if (mask & VisibilityChangeMask)console_printf("VisibilityChangeMask\n");
+	if (mask & VisibilityChangeMask)console_printf("VisibilityChangeMask\n");
-if (mask & StructureNotifyMask) console_printf("StructureNotifyMask\n");
+	if (mask & StructureNotifyMask) console_printf("StructureNotifyMask\n");
-if (mask & ResizeRedirectMask)  console_printf("ResizeRedirectMask\n");
+	if (mask & ResizeRedirectMask)  console_printf("ResizeRedirectMask\n");
-if (mask & PropertyChangeMask)  console_printf("PropertyChangeMask\n");
+	if (mask & PropertyChangeMask)  console_printf("PropertyChangeMask\n");
-if (mask & ColormapChangeMask)  console_printf("ColormapChangeMask\n");
+	if (mask & ColormapChangeMask)  console_printf("ColormapChangeMask\n");
 }
 #endif
 static int
 st2RGB(int color, struct gcData *gcData)
 {
-if (gcData && gcData->bitmapColorBitCount == 1) {
+	if (gcData && gcData->bitmapColorBitCount == 1) {
-return (color ? WhitePixel : BlackPixel);
+	    return (color ? WhitePixel : BlackPixel);
-}
+	}
 #ifdef ALWAYSTRUECOLOR
-return (color & 0xffffff);
+	return (color & 0xffffff);
 #else
-if (__depth < 15) {
+	if (__depth < 15) {
-return 0;
+	    return 0;
-} else {
+	} else {
-if ((__depth == 16) || (__depth == 15)) {
+	    if ((__depth == 16) || (__depth == 15)) {
-int ib = (color & 0x1f) << 3;
+		int ib = (color & 0x1f) << 3;
-int ig = ((color >> 5) & 0x3f) << 2;
+		int ig = ((color >> 5) & 0x3f) << 2;
-int ir = ((color >> 11) & 0x1f) << 3;
+		int ir = ((color >> 11) & 0x1f) << 3;
-ir |= 7;
+		ir |= 7;
-ig |= 3;
+		ig |= 3;
-ib |= 7;
+		ib |= 7;
-return RGB(ir,ig,ib);
+		return RGB(ir,ig,ib);
-}
+	    }
-return (color & 0xffffff);
+	    return (color & 0xffffff);
-}
+	}
 #endif
 }
 static int
 RGB2st(int r, int g, int b)
 {
-int ir,ig,ib,id;
+	int ir,ig,ib,id;
 #ifdef ALWAYSTRUECOLOR
-ir = (r >> 8) & 0xff;
+	ir = (r >> 8) & 0xff;
-ig = (g >> 8) & 0xff;
+	ig = (g >> 8) & 0xff;
-ib = (b >> 8) & 0xff;
+	ib = (b >> 8) & 0xff;
-id = RGB( ir, ig, ib);
+	id = RGB( ir, ig, ib);
 #else
-if (__depth < 15) {
+	if (__depth < 15) {
-id = 0;
+	    id = 0;
-} else {
+	} else {
-if ((__depth == 16) || (__depth == 15)) {
+	    if ((__depth == 16) || (__depth == 15)) {
-ir = (r >> 11) & 0x1f;
+		ir = (r >> 11) & 0x1f;
-ig = (g >> 10) & 0x3f;
+		ig = (g >> 10) & 0x3f;
-ib = (b >> 11) & 0x1f;
+		ib = (b >> 11) & 0x1f;
-id = ( ir << 11 ) | ( ig << 5 ) | ib;
+		id = ( ir << 11 ) | ( ig << 5 ) | ib;
-} else {
+	    } else {
-ir = (r >> 8) & 0xff;
+		ir = (r >> 8) & 0xff;
-ig = (g >> 8) & 0xff;
+		ig = (g >> 8) & 0xff;
-ib = (b >> 8) & 0xff;
+		ib = (b >> 8) & 0xff;
-id = RGB( ir, ig, ib);
+		id = RGB( ir, ig, ib);
-}
+	    }
-}
+	}
 #endif
-return id;
+	return id;
 }
 #if 0
 /*
 * return a windows top-window
 */
 static HWND
 GetTopParent(HWND hwnd)
 {
-HWND lastParent = hWnd;
+	HWND lastParent = hWnd;
-HWND nextParent;
+	HWND nextParent;
-while (nextParent = GetParent(lastParent)) {
+	while (nextParent = GetParent(lastParent)) {
-lastParent = nextParent;
+	    lastParent = nextParent;
-}
+	}
-return lastParent;
+	return lastParent;
 }
 #endif
 #ifdef DEBUG_DELETEOBJECT
 _DeleteObject(HANDLE o, int lineNr)
 {
 int r = DeleteObject(o);
 if (r == 0)
-console_fprintf(stderr, "WinWorkstation [warning]: ERROR in DeleteObject %x [%d]\n", o, lineNr);
+	console_fprintf(stderr, "WinWorkstation [warning]: ERROR in DeleteObject %x [%d]\n", o, lineNr);
 return r;
 }
 #else
 # define _DeleteObject(o,lnr)  DeleteObject(o)
 static void
 _DeleteFont(HFONT f, int lineNr)
 {
 #ifdef CACHE_LAST_TMP_FONT
 if (f == __tmpDC_hfont) {
-SelectObject(__tmpDC, __tmpDC_prev_hfont);
+	SelectObject(__tmpDC, __tmpDC_prev_hfont);
-__tmpDC_hfont = NULL;
+	__tmpDC_hfont = NULL;
 }
 #endif
 _DeleteObject(f, lineNr);
 }
 static int
 _DeleteBrush(HBRUSH br, int lineNr)
 {
 if ((br != __whiteBrush) && (br != __blackBrush)) {
-int r = DeleteObject(br);
+	int r = DeleteObject(br);
-if (r == 0)
+	if (r == 0)
-console_fprintf(stderr, "WinWorkstation [warning]: ERROR in DeleteBrush %x [%d]\n", br, lineNr);
+	    console_fprintf(stderr, "WinWorkstation [warning]: ERROR in DeleteBrush %x [%d]\n", br, lineNr);
-return r;
+	return r;
 }
 return 1;
 }
 static int
 _DeletePen(HPEN p, int lineNr)
 {
 if ((p != __whitePen) && (p != __blackPen)) {
-int r = DeleteObject(p);
+	int r = DeleteObject(p);
-if (r == 0)
+	if (r == 0)
-console_fprintf(stderr, "WinWorkstation [warning]: ERROR in DeletePen %x [%d]\n", p, lineNr);
+	    console_fprintf(stderr, "WinWorkstation [warning]: ERROR in DeletePen %x [%d]\n", p, lineNr);
-return r;
+	return r;
 }
 return 1;
 }
 #ifdef CACHE_PEN
 _DeletePenIfNotInCache(HPEN p, int lineNr)
 {
 int i, r;
 if ((p == __whitePen) || (p == __blackPen)) {
-return 1; /* not deleted, but OK */
+	return 1; /* not deleted, but OK */
 }
 for (i=0; i<NUM_PEN_CACHED;i++) {
-if (__penCache[i].pen == p) {
+	if (__penCache[i].pen == p) {
-return 1; /* not deleted, but OK */
+	    return 1; /* not deleted, but OK */
-}
+	}
 }
 r = DeleteObject(p);
 if (r == 0)
-console_fprintf(stderr, "WinWorkstation [warning]: ERROR in DeletePen2 %x [%d]\n", p, lineNr);
+	console_fprintf(stderr, "WinWorkstation [warning]: ERROR in DeletePen2 %x [%d]\n", p, lineNr);
 return r;
 }
 #else
 # define _DeletePenIfNotInCache(p, lineNr)   _DeletePen(p, lineNr)
 _DeleteBrushIfNotInCache(HBRUSH br, int lineNr)
 {
 int i, r;
 for (i=0; i<NUM_BRUSH_CACHED;i++) {
-if (__brushCache[i].brush == br) {
+	if (__brushCache[i].brush == br) {
-return 1; /* not deleted, but OK */
+	    return 1; /* not deleted, but OK */
-}
+	}
 }
 if ((br == __whiteBrush) || (br == __blackBrush)) {
-return 1; /* not deleted, but OK */
+	return 1; /* not deleted, but OK */
 }
 r = DeleteObject(br);
 if (r == 0)
-console_fprintf(stderr, "WinWorkstation [warning]: ERROR in DeleteBrush2 %x [%d]\n", br, lineNr);
+	console_fprintf(stderr, "WinWorkstation [warning]: ERROR in DeleteBrush2 %x [%d]\n", br, lineNr);
 return r;
 }
 #else
 # define _DeleteBrushIfNotInCache(br, lineNr)   _DeleteBrush(br, lineNr)
 newGcData(void)
 {
 struct gcData *gcData;
 if (gcDataFreeList) {
-gcData = gcDataFreeList;
+	gcData = gcDataFreeList;
-gcDataFreeList = gcData->u.__nextFree;
+	gcDataFreeList = gcData->u.__nextFree;
-gcDataNumFree--;
+	gcDataNumFree--;
 } else {
-gcData = (struct gcData *) malloc(sizeof(struct gcData));
+	gcData = (struct gcData *) malloc(sizeof(struct gcData));
-if (! gcData) {
+	if (! gcData) {
-console_fprintf(stderr, "WinWorkstat [warning]: failed to allocate gcData\n");
+	    console_fprintf(stderr, "WinWorkstat [warning]: failed to allocate gcData\n");
-return 0;
+	    return 0;
-}
+	}
 }
 memset(gcData, 0, sizeof(struct gcData));
 gcData->fgColor = 0xffffff;
 /* gcData->bgColor = 0; - not needed - memset does it */
 static void
 freeGcData(struct gcData *gcData)
 {
 if (gcDataNumFree < NUM_FREE_GC) {
-gcData->u.__nextFree = gcDataFreeList;
+	gcData->u.__nextFree = gcDataFreeList;
-gcDataFreeList = gcData;
+	gcDataFreeList = gcData;
-gcDataNumFree++;
+	gcDataNumFree++;
 } else {
-free(gcData);
+	free(gcData);
 }
 }
 #ifdef CACHE_LAST_DC
 # define FLUSH_CACHED_DC(__gcData__) \
 if (lastGcData == __gcData__) {  \
-_releaseDC(lastGcData);      \
+	_releaseDC(lastGcData);      \
 }
 #else
 # define FLUSH_CACHED_DC(x)     /* */
 #endif
 #ifdef CACHE_LAST_PEN
 # define FLUSH_CACHED_PEN(__gcData__) \
 if (__gcData__->hPen) {           \
-if (__gcData__->save_hPen) {  \
+	if (__gcData__->save_hPen) {  \
-SelectObject(__gcData__->_hDC, __gcData__->save_hPen); \
+	    SelectObject(__gcData__->_hDC, __gcData__->save_hPen); \
-__gcData__->save_hPen = 0;   \
+	    __gcData__->save_hPen = 0;   \
-} \
+	} \
-_DeletePenIfNotInCache(__gcData__->hPen, __LINE__); \
+	_DeletePenIfNotInCache(__gcData__->hPen, __LINE__); \
-__gcData__->hPen = 0; \
+	__gcData__->hPen = 0; \
 }
 #else
 # define FLUSH_CACHED_PEN(x)    /* */
 #endif
 #ifdef CACHE_LAST_BRUSH
 # define FLUSH_CACHED_BRUSH(__gcData__) \
 if (__gcData__->hBrush) {           \
-if (__gcData__->save_hBrush) {  \
+	if (__gcData__->save_hBrush) {  \
-SelectObject(__gcData__->_hDC, __gcData__->save_hBrush); \
+	    SelectObject(__gcData__->_hDC, __gcData__->save_hBrush); \
-__gcData__->save_hBrush = 0;   \
+	    __gcData__->save_hBrush = 0;   \
-} \
+	} \
-_DeleteBrushIfNotInCache(__gcData__->hBrush, __LINE__); \
+	_DeleteBrushIfNotInCache(__gcData__->hBrush, __LINE__); \
-__gcData__->hBrush = 0; \
+	__gcData__->hBrush = 0; \
 }
 #else
 # define FLUSH_CACHED_BRUSH(x)    /* */
 #endif
 _releaseDC(struct gcData *gcData)
 {
 HDC hDC = gcData->_hDC;
 if (gcData->doNotCacheOrRelease ) {
-return;
+	return;
 }
 if (gcData->save_hPen) {
-SelectObject(hDC, gcData->save_hPen);
+	SelectObject(hDC, gcData->save_hPen);
-gcData->save_hPen = 0;
+	gcData->save_hPen = 0;
 }
 if (gcData->save_hBrush) {
-SelectObject(hDC, gcData->save_hBrush);
+	SelectObject(hDC, gcData->save_hBrush);
-gcData->save_hBrush = 0;
+	gcData->save_hBrush = 0;
 }
 if (gcData->save_hFont) {
-SelectObject(hDC, gcData->save_hFont);
+	SelectObject(hDC, gcData->save_hFont);
-gcData->save_hFont = 0;
+	gcData->save_hFont = 0;
 }
 if (gcData->hWnd) {
-if (hDC) {
+	if (hDC) {
-ReleaseDC(gcData->hWnd, hDC);
+	    ReleaseDC(gcData->hWnd, hDC);
 #ifdef CACHE_LAST_WM_PAINT_DC
-if (hDC == last_wm_paint_dc) {
+	    if (hDC == last_wm_paint_dc) {
-last_wm_paint_dc = last_wm_paint_win = 0;
+		last_wm_paint_dc = last_wm_paint_win = 0;
 # ifdef DEBUG_DC_REUSE
-console_fprintf(stderr, "WinWorkstation [info]: Oops - releasing bg_paint-dc\n");
+		console_fprintf(stderr, "WinWorkstation [info]: Oops - releasing bg_paint-dc\n");
 # endif
-}
+	    }
 #endif
-}
+	}
 } else if (gcData->hBitmap) {
-SelectObject(hDC, gcData->save_hBitmap);
+	SelectObject(hDC, gcData->save_hBitmap);
-DeleteDC(hDC);
+	DeleteDC(hDC);
 }
 gcData->_hDC = 0;
 #ifdef CACHE_LAST_DC
 if (lastGcData == gcData) {
-lastGcData = 0;
+	lastGcData = 0;
 }
 #endif
 #ifdef CACHE_LAST_PEN
 if (gcData->hPen) {
-_DeletePenIfNotInCache(gcData->hPen, __LINE__);
+	_DeletePenIfNotInCache(gcData->hPen, __LINE__);
-gcData->hPen = 0;
+	gcData->hPen = 0;
 }
 #endif
 #ifdef CACHE_LAST_BRUSH
 if (gcData->hBrush) {
-_DeleteBrushIfNotInCache(gcData->hBrush, __LINE__);
+	_DeleteBrushIfNotInCache(gcData->hBrush, __LINE__);
-gcData->hBrush = 0;
+	gcData->hBrush = 0;
 }
 #endif
 }
 static HDC
 {
 HDC hDC;
 int currThreadId;
 if (gcData->doNotCacheOrRelease ) {
-return gcData->_hDC;
+	return gcData->_hDC;
 }
 #ifdef CACHE_LAST_DC
 currThreadId = GetCurrentThreadId();
 if (lastGcData) {
-if ((lastGcData == gcData)
+	if ((lastGcData == gcData)
-&& (lastGcHWIN == gcData->hWnd)
+	 && (lastGcHWIN == gcData->hWnd)
-&& (lastGcHBITMAP == gcData->hBitmap)
+	 && (lastGcHBITMAP == gcData->hBitmap)
-&& (lastGcOwnerThreadID == currThreadId)
+	 && (lastGcOwnerThreadID == currThreadId)
-&& gcData->_hDC
+	 && gcData->_hDC
-) {
+	) {
 # ifdef CACHE_LAST_WM_PAINT_DC /* DDD */
-if (last_wm_paint_dc == gcData->_hDC) {
+	    if (last_wm_paint_dc == gcData->_hDC) {
 #  ifdef DEBUG_DC_REUSE
-console_fprintf(stderr, "WinWorkstation [info]: Oops wm_paint_dc reuse [%d]\n", __LINE__);
+		console_fprintf(stderr, "WinWorkstation [info]: Oops wm_paint_dc reuse [%d]\n", __LINE__);
 #  endif
-last_wm_paint_dc = last_wm_paint_win = 0;
+		last_wm_paint_dc = last_wm_paint_win = 0;
-}
+	    }
 # endif
-return gcData->_hDC;
+	    return gcData->_hDC;
-}
+	}
-_releaseDC(lastGcData);
+	_releaseDC(lastGcData);
-lastGcData = 0;
+	lastGcData = 0;
 }
 #endif
 hDC = 0;
 if (gcData->hWnd != 0) {
-if (gcData->hWnd == __rootWin) {
+	if (gcData->hWnd == __rootWin) {
-hDC = gcData->_hDC = GetDCEx(gcData->hWnd, 0, DCX_WINDOW);
+	    hDC = gcData->_hDC = GetDCEx(gcData->hWnd, 0, DCX_WINDOW);
-} else if (gcData->clipByChildren) {
+	} else if (gcData->clipByChildren) {
-//gcData->_hDC = GetDCEx(gcData->hWnd, 0, DCX_CLIPCHILDREN);
+	    //gcData->_hDC = GetDCEx(gcData->hWnd, 0, DCX_CLIPCHILDREN);
-hDC = gcData->_hDC = GetDC(gcData->hWnd);
+	    hDC = gcData->_hDC = GetDC(gcData->hWnd);
-} else  {
+	} else  {
-hDC = gcData->_hDC = GetDCEx(gcData->hWnd, 0, DCX_PARENTCLIP);
+	    hDC = gcData->_hDC = GetDCEx(gcData->hWnd, 0, DCX_PARENTCLIP);
-}
+	}
 } else if (gcData->hBitmap) {
-hDC = gcData->_hDC = CreateCompatibleDC(__tmpDC);
+	hDC = gcData->_hDC = CreateCompatibleDC(__tmpDC);
-gcData->save_hBitmap = SelectObject(gcData->_hDC,gcData->hBitmap);
+	gcData->save_hBitmap = SelectObject(gcData->_hDC,gcData->hBitmap);
 }
 gcData->bkMode = BK_UNDEF;
 if (hDC) {
-SetTextColor(hDC, gcData->fgColor);
+	SetTextColor(hDC, gcData->fgColor);
-SetBkColor(hDC, gcData->bgColor);
+	SetBkColor(hDC, gcData->bgColor);
-if (gcData->rop2)
+	if (gcData->rop2)
-SetROP2(hDC, gcData->rop2);
+	    SetROP2(hDC, gcData->rop2);
-if (gcData->clipping) {
+	if (gcData->clipping) {
-HRGN region = CreateRectRgn( gcData->clipX, gcData->clipY,
+	    HRGN region = CreateRectRgn( gcData->clipX, gcData->clipY,
-gcData->clipX + gcData->clipW,
+					 gcData->clipX + gcData->clipW,
-gcData->clipY + gcData->clipH);
+					 gcData->clipY + gcData->clipH);
-if (region == NULL ) {
+	    if (region == NULL ) {
-console_fprintf(stderr, "WinWorkstat [warning]: clipping region creation failed\n");
+		console_fprintf(stderr, "WinWorkstat [warning]: clipping region creation failed\n");
-} else {
+	    } else {
-if (SelectClipRgn(hDC, region) == ERROR ) {
+		if (SelectClipRgn(hDC, region) == ERROR ) {
-DPRINTF(("WinWorkstat [warning]: select clipping region failed\n" ));
+		    DPRINTF(("WinWorkstat [warning]: select clipping region failed\n" ));
-}
+		}
-_DeleteObject(region, __LINE__);
+		_DeleteObject(region, __LINE__);
-}
+	    }
-} else {
+	} else {
-SelectClipRgn(hDC, NULL);
+	    SelectClipRgn(hDC, NULL);
-}
+	}
-if (gcData->hFont) {
+	if (gcData->hFont) {
-HFONT prevFont;
+	    HFONT prevFont;
-prevFont = SelectObject(hDC, gcData->hFont);
+	    prevFont = SelectObject(hDC, gcData->hFont);
-if (! gcData->save_hFont) {
+	    if (! gcData->save_hFont) {
-gcData->save_hFont = prevFont;
+		gcData->save_hFont = prevFont;
-}
+	    }
-}
+	}
 }
 #ifdef CACHE_LAST_DC
 lastGcData = gcData;
 lastGcOwnerThreadID = currThreadId;
 gcData->_hDC = hDC;
 # ifdef CACHE_LAST_WM_PAINT_DC /* DDD */
 if (last_wm_paint_dc == hDC) {
 #  ifdef DEBUG_DC_REUSE
-console_fprintf(stderr, "WinWorkstation [info]: Oops wm_paint_dc reuse [%d]\n", __LINE__);
+	console_fprintf(stderr, "WinWorkstation [info]: Oops wm_paint_dc reuse [%d]\n", __LINE__);
 #  endif
-last_wm_paint_dc = last_wm_paint_win = 0;
+	last_wm_paint_dc = last_wm_paint_win = 0;
 }
 # endif
 #endif
 return hDC;
 HBRUSH hBrush = 0;
 HBRUSH prevBrush;
 #ifdef CACHE_LAST_BRUSH
 if (hBrush = gcData->hBrush) {
-if (! gcData->save_hBrush) {
+	if (! gcData->save_hBrush) {
-gcData->save_hBrush = SelectObject(gcData->_hDC, hBrush);
+	    gcData->save_hBrush = SelectObject(gcData->_hDC, hBrush);
-}
+	}
-return hBrush;
+	return hBrush;
 }
 #endif
 if (gcData->hMask) {
-hBrush = CreatePatternBrush(gcData->hMask);
+	hBrush = CreatePatternBrush(gcData->hMask);
-SetBrushOrgEx(hDC, gcData->maskOrgX, gcData->maskOrgY, 0);
+	SetBrushOrgEx(hDC, gcData->maskOrgX, gcData->maskOrgY, 0);
-RESPRINTF(("CreatePatternBrush %x\n",gcData->hMask));
+	RESPRINTF(("CreatePatternBrush %x\n",gcData->hMask));
 } else {
-if (gcData->fgColor == BlackPixel) {
+	if (gcData->fgColor == BlackPixel) {
-hBrush = __blackBrush;
+	    hBrush = __blackBrush;
-} else if (gcData->fgColor == WhitePixel) {
+	} else if (gcData->fgColor == WhitePixel) {
-hBrush = __whiteBrush;
+	    hBrush = __whiteBrush;
-} else {
+	} else {
 #ifdef CACHE_BRUSH
-{
+	    {
-int i;
+		int i;
-for (i=0; i<NUM_BRUSH_CACHED; i++) {
+		for (i=0; i<NUM_BRUSH_CACHED; i++) {
-if (__brushCache[i].clr == gcData->fgColor) {
+		    if (__brushCache[i].clr == gcData->fgColor) {
-hBrush = __brushCache[i].brush;
+			hBrush = __brushCache[i].brush;
-/*
+			/*
-* move it up in the cache
+			 * move it up in the cache
-*/
+			 */
-if (i > 0) {
+			if (i > 0) {
-HBRUSH t = __brushCache[i-1].brush;
+			    HBRUSH t = __brushCache[i-1].brush;
-int c = __brushCache[i-1].clr;
+			    int c = __brushCache[i-1].clr;
-__brushCache[i-1].brush = hBrush;
+			    __brushCache[i-1].brush = hBrush;
-__brushCache[i-1].clr = gcData->fgColor;
+			    __brushCache[i-1].clr = gcData->fgColor;
-__brushCache[i].brush = t;
+			    __brushCache[i].brush = t;
-__brushCache[i].clr = c;
+			    __brushCache[i].clr = c;
-}
+			}
 # ifdef CACHE_LAST_BRUSH
-prevBrush = SelectObject(gcData->_hDC, hBrush);
+			prevBrush = SelectObject(gcData->_hDC, hBrush);
-if (! gcData->save_hBrush) {
+			if (! gcData->save_hBrush) {
-gcData->save_hBrush = prevBrush;
+			    gcData->save_hBrush = prevBrush;
-}
+			}
-gcData->hBrush = hBrush;
+			gcData->hBrush = hBrush;
 # endif
-return hBrush;
+			return hBrush;
-}
+		    }
-}
+		}
-}
+	    }
 #endif /* BRUSH_CACHE */
-hBrush = CreateSolidBrush(gcData->fgColor);
+	    hBrush = CreateSolidBrush(gcData->fgColor);
-RESPRINTF(("CreateSolidBrush %x\n",gcData->fgColor));
+	    RESPRINTF(("CreateSolidBrush %x\n",gcData->fgColor));
-}
+	}
 }
 gcData->hBrush = hBrush;
 prevBrush = SelectObject(gcData->_hDC, hBrush);
 if (! gcData->save_hBrush) {
-gcData->save_hBrush = prevBrush;
+	gcData->save_hBrush = prevBrush;
 }
 return hBrush;
 }
 #ifdef CACHE_LAST_BRUSH
 GcDataReleaseBrush(HDC hDC, struct gcData *gcData)
 {
 HBRUSH hBrush = gcData->hBrush;
 if (gcData->save_hBrush) {
-SelectObject(hDC, gcData->save_hBrush);
+	SelectObject(hDC, gcData->save_hBrush);
-gcData->save_hBrush = NULL;
+	gcData->save_hBrush = NULL;
 }
 _DeleteBrushIfNotInCache(hBrush, __LINE__);
 gcData->hBrush = 0;
 }
 #endif
 LOGBRUSH Brush;
 int lw;
 #ifdef CACHE_LAST_PEN
 if (hPen = gcData->hPen) {
-if (! gcData->save_hPen) {
+	if (! gcData->save_hPen) {
-gcData->save_hPen = SelectObject(gcData->_hDC, hPen);
+	    gcData->save_hPen = SelectObject(gcData->_hDC, hPen);
-}
+	}
-return hPen;
+	return hPen;
 }
 #endif
 if (((gcData->lStyle & PS_STYLE_MASK) == PS_SOLID)
 && (gcData->hMask == 0)
 && (gcData->lineWidth <= 1)) {
-if (gcData->fgColor == BlackPixel) {
+	if (gcData->fgColor == BlackPixel) {
-gcData->hPen = hPen = __blackPen;
+	    gcData->hPen = hPen = __blackPen;
-prevPen = SelectObject(hDC, hPen);
+	    prevPen = SelectObject(hDC, hPen);
-if (! gcData->save_hPen) {
+	    if (! gcData->save_hPen) {
-gcData->save_hPen = prevPen;
+		gcData->save_hPen = prevPen;
-}
+	    }
-return hPen;
+	    return hPen;
-}
+	}
-if (gcData->fgColor == WhitePixel) {
+	if (gcData->fgColor == WhitePixel) {
-gcData->hPen = hPen = __whitePen;
+	    gcData->hPen = hPen = __whitePen;
-prevPen = SelectObject(hDC, hPen);
+	    prevPen = SelectObject(hDC, hPen);
-if (! gcData->save_hPen) {
+	    if (! gcData->save_hPen) {
-gcData->save_hPen = prevPen;
+		gcData->save_hPen = prevPen;
-}
+	    }
-return hPen;
+	    return hPen;
-}
+	}
 #ifdef CACHE_PEN
-{
+	{
-int i;
+	    int i;
-for (i=0; i<NUM_PEN_CACHED; i++) {
+	    for (i=0; i<NUM_PEN_CACHED; i++) {
-if (__penCache[i].clr == gcData->fgColor) {
+		if (__penCache[i].clr == gcData->fgColor) {
-hPen = __penCache[i].pen;
+		    hPen = __penCache[i].pen;
-/*
+		    /*
-* move it up in the cache
+		     * move it up in the cache
-*/
+		     */
-if (i > 0) {
+		    if (i > 0) {
-HPEN t = __penCache[i-1].pen;
+			HPEN t = __penCache[i-1].pen;
-int c = __penCache[i-1].clr;
+			int c = __penCache[i-1].clr;
-__penCache[i-1].pen = hPen;
+			__penCache[i-1].pen = hPen;
-__penCache[i-1].clr = gcData->fgColor;
+			__penCache[i-1].clr = gcData->fgColor;
-__penCache[i].pen = t;
+			__penCache[i].pen = t;
-__penCache[i].clr = c;
+			__penCache[i].clr = c;
-}
+		    }
-gcData->hPen = hPen;
+		    gcData->hPen = hPen;
-prevPen = SelectObject(hDC, hPen);
+		    prevPen = SelectObject(hDC, hPen);
-if (! gcData->save_hPen) {
+		    if (! gcData->save_hPen) {
-gcData->save_hPen = prevPen;
+			gcData->save_hPen = prevPen;
-}
+		    }
-return hPen;
+		    return hPen;
-}
+		}
-}
+	    }
-}
+	}
 #endif /* PEN_CACHE */
 }
 hPen = (HPEN) 0;
 lw = gcData->lineWidth;
 if (lw == 0) {
-lw = 1;
+	lw = 1;
 }
 /*
 * NT supports masked drawing with any lineStyle,
 * and also non-solid lines with any lineWidth.
 */
 if (gcData->hMask) {
-Brush.lbStyle = BS_PATTERN;
+	Brush.lbStyle = BS_PATTERN;
-Brush.lbHatch = (ULONG_PTR)(gcData->hMask);
+	Brush.lbHatch = (ULONG_PTR)(gcData->hMask);
-Brush.lbColor = gcData->fgColor;
+	Brush.lbColor = gcData->fgColor;
 } else {
-Brush.lbStyle = BS_SOLID;
+	Brush.lbStyle = BS_SOLID;
-Brush.lbHatch = (ULONG_PTR)0;
+	Brush.lbHatch = (ULONG_PTR)0;
-Brush.lbColor = gcData->fgColor;
+	Brush.lbColor = gcData->fgColor;
-hPen = (HPEN) 0;
+	hPen = (HPEN) 0;
 #if USE_OLD_CREATE_PEN
-hPen = CreatePen((gcData->lStyle & PS_STYLE_MASK), lw, gcData->fgColor);
+	hPen = CreatePen((gcData->lStyle & PS_STYLE_MASK), lw, gcData->fgColor);
-RESPRINTF(("CreatePen %x %d(%d) %x %x\n",
+	RESPRINTF(("CreatePen %x %d(%d) %x %x\n",
-gcData->lStyle,
+		    gcData->lStyle,
-lw, gcData->lineWidth,
+		    lw, gcData->lineWidth,
-gcData->fgColor, gcData->hMask));
+		    gcData->fgColor, gcData->hMask));
 #endif
-SetBkMode(hDC, TRANSPARENT);
+	SetBkMode(hDC, TRANSPARENT);
-gcData->bkMode = BK_TRANSPARENT;
+	gcData->bkMode = BK_TRANSPARENT;
-if (! hPen) {
+	if (! hPen) {
-hPen = ExtCreatePen(PS_GEOMETRIC | gcData->lStyle,
+	    hPen = ExtCreatePen(PS_GEOMETRIC | gcData->lStyle,
-lw, /* gcData->lineWidth, */
+			    lw, /* gcData->lineWidth, */
-&Brush,
+			    &Brush,
-0, 0);
+			    0, 0);
-RESPRINTF(("ExtCreatePen1 %x %d(%d) %x %x\n",
+	    RESPRINTF(("ExtCreatePen1 %x %d(%d) %x %x\n",
-gcData->lStyle,
+			gcData->lStyle,
-lw, gcData->lineWidth,
+			lw, gcData->lineWidth,
-gcData->fgColor, gcData->hMask));
+			gcData->fgColor, gcData->hMask));
-if (gcData->hMask) {
+	    if (gcData->hMask) {
-SetBrushOrgEx(hDC, gcData->maskOrgX, gcData->maskOrgY, 0);
+		SetBrushOrgEx(hDC, gcData->maskOrgX, gcData->maskOrgY, 0);
-}
+	    }
-}
+	}
 }
 gcData->hPen = hPen;
 prevPen = SelectObject(hDC, hPen);
 if (! gcData->save_hPen) {
-gcData->save_hPen = prevPen;
+	gcData->save_hPen = prevPen;
 }
 #ifdef CACHE_PEN
 /*
 * remember in penCache
 */
 if (((gcData->lStyle & PS_STYLE_MASK) == PS_SOLID)
 && (gcData->hMask == 0)
 && (gcData->lineWidth <= 1)) {
-int i;
+	int i;
-/*
+	/*
-* search for an empty slot
+	 * search for an empty slot
-*/
+	 */
-for (i=0; i<NUM_PEN_CACHED; i++) {
+	for (i=0; i<NUM_PEN_CACHED; i++) {
-if (__penCache[i].pen == 0) {
+	    if (__penCache[i].pen == 0) {
-__penCache[i].clr = gcData->fgColor;
+		__penCache[i].clr = gcData->fgColor;
-__penCache[i].pen = hPen;
+		__penCache[i].pen = hPen;
-break;
+		break;
-}
+	    }
-}
+	}
-if (i == NUM_PEN_CACHED) {
+	if (i == NUM_PEN_CACHED) {
-/*
+	    /*
-* replace last in penCache
+	     * replace last in penCache
-*/
+	     */
-HPEN t = __penCache[NUM_PEN_CACHED - 1].pen;
+	    HPEN t = __penCache[NUM_PEN_CACHED - 1].pen;
-__penCache[NUM_PEN_CACHED - 1].pen = hPen;
+	    __penCache[NUM_PEN_CACHED - 1].pen = hPen;
-__penCache[NUM_PEN_CACHED - 1].clr = gcData->fgColor;
+	    __penCache[NUM_PEN_CACHED - 1].clr = gcData->fgColor;
-_DeletePen(t, __LINE__);
+	    _DeletePen(t, __LINE__);
-}
+	}
 }
 #endif
 return hPen;
 }
 GcDataReleasePen(HDC hDC, struct gcData *gcData)
 {
 HPEN hPen;
 if (gcData->save_hPen) {
-SelectObject(hDC, gcData->save_hPen);
+	SelectObject(hDC, gcData->save_hPen);
-gcData->save_hPen = NULL;
+	gcData->save_hPen = NULL;
 }
 hPen = gcData->hPen;
 _DeletePenIfNotInCache(hPen, __LINE__);
 gcData->hPen = 0;
 }
 DWORD dwWaitResult = WaitForSingleObject(hEventsMutex, 5000L);
 #ifdef LOCK_DEBUG
 lockCountEvents++;
 if (lockCountEvents != 1) {
-console_fprintf(stderr, "WinWorkstation [warning]: lockCountEvents (%d) != 1 in lock\n", lockCountEvents);
+	console_fprintf(stderr, "WinWorkstation [warning]: lockCountEvents (%d) != 1 in lock\n", lockCountEvents);
-lockCountEvents = 1;
+	lockCountEvents = 1;
 }
 #endif
 switch (dwWaitResult) {
-case WAIT_OBJECT_0:
+	case WAIT_OBJECT_0:
-hEventsMutexOwner = whoIsLocking;
+	    hEventsMutexOwner = whoIsLocking;
-return (TRUE);
+	    return (TRUE);
-case WAIT_ABANDONED:
+	case WAIT_ABANDONED:
-console_fprintf(stderr, "WinWorkstation [warning]: lockEvent abandoned (was owned by %s)\n",
+	    console_fprintf(stderr, "WinWorkstation [warning]: lockEvent abandoned (was owned by %s)\n",
-(hEventsMutexOwner ? hEventsMutexOwner : "NONE"));
+			(hEventsMutexOwner ? hEventsMutexOwner : "NONE"));
-hEventsMutexOwner = whoIsLocking;
+	    hEventsMutexOwner = whoIsLocking;
-return (TRUE);
+	    return (TRUE);
-case WAIT_TIMEOUT:
+	case WAIT_TIMEOUT:
-console_fprintf(stderr, "WinWorkstation [warning]: lockEvent timeout (owned by %s)\n",
+	    console_fprintf(stderr, "WinWorkstation [warning]: lockEvent timeout (owned by %s)\n",
-(hEventsMutexOwner ? hEventsMutexOwner : "NONE") );
+			(hEventsMutexOwner ? hEventsMutexOwner : "NONE") );
-break;
+	    break;
-default:
+	default:
-{
+	    {
-unsigned errCode = GetLastError();
+		unsigned errCode = GetLastError();
-console_fprintf(stderr, "WinWorkstation [error]: lockEvent error (owned by %s) rslt=0x%x err=0x%x\n",
+		console_fprintf(stderr, "WinWorkstation [error]: lockEvent error (owned by %s) rslt=0x%x err=0x%x\n",
-(hEventsMutexOwner ? hEventsMutexOwner : "NONE"),
+			    (hEventsMutexOwner ? hEventsMutexOwner : "NONE"),
-dwWaitResult, errCode );
+			    dwWaitResult, errCode );
-}
+	    }
-break;
+	    break;
 }
 return (FALSE);
 }
 static int
 unlockEvents(void) {
 #ifdef LOCK_DEBUG
 lockCountEvents--;
 if (lockCountEvents != 0) {
-console_fprintf(stderr, "WinWorkstation [warning]: lockCountEvents (%d) != 0 in unlock\n", lockCountEvents);
+	console_fprintf(stderr, "WinWorkstation [warning]: lockCountEvents (%d) != 0 in unlock\n", lockCountEvents);
-lockCountEvents = 0;
+	lockCountEvents = 0;
 }
 #endif
 if (! ReleaseMutex(hEventsMutex)) {
 console_fprintf(stderr, "WinWorkstation [error]: unlockEvent error\n");
 return (FALSE);
 struct queuedEvent *bulk;
 int i;
 bulk = (struct queuedEvent *) malloc(EV_CHUNK_SZ);
 if (bulk == 0) {
-console_fprintf(stderr, "WinWorkstation [warning]: no memory for dispatchqueue\n");
+	console_fprintf(stderr, "WinWorkstation [warning]: no memory for dispatchqueue\n");
-return 0;
+	return 0;
 }
 for (i=1; i<EV_CHUNK_CNT; i++) {
-bulk[i-1].ev_next = &(bulk[i]);
+	bulk[i-1].ev_next = &(bulk[i]);
 }
 bulk[EV_CHUNK_CNT-1].ev_next = (struct queuedEvent *)0;
 eventFreeList = bulk;
 return 1;
 int repeatCount = 0;
 /* get an event struct
 */
 while (! eventFreeList) {
-if (repeatCount++ >= 5) {
+	if (repeatCount++ >= 5) {
-/* throw away sorry */
+	    /* throw away sorry */
-console_fprintf(stderr, "WinWorkstation [error]: event throw away (memory problem)\n");
+	    console_fprintf(stderr, "WinWorkstation [error]: event throw away (memory problem)\n");
-return;
+	    return;
-}
+	}
-console_fprintf(stderr, "WinWorkstation [warning]: wait for event memory (%d)\n", repeatCount);
+	console_fprintf(stderr, "WinWorkstation [warning]: wait for event memory (%d)\n", repeatCount);
-WaitForSingleObject( hNeverTriggered, 100L );
+	WaitForSingleObject( hNeverTriggered, 100L );
 }
 if (! lockEvents("enqEvent")) {
-console_fprintf(stderr, "WinWorkstation [error]: event throw away (lock problem)\n");
+	console_fprintf(stderr, "WinWorkstation [error]: event throw away (lock problem)\n");
-return;
+	return;
 }
 ev = eventFreeList;
 if (! ev) {
-console_fprintf(stderr, "WinWorkstation [error]: event throw away (memory problem)\n");
+	console_fprintf(stderr, "WinWorkstation [error]: event throw away (memory problem)\n");
-unlockEvents();
+	unlockEvents();
-return;
+	return;
 }
 eventFreeList  = ev->ev_next;
 ev->ev_flag    = flag;
 ev->ev_hWnd    = hWnd;
 ev->ev_message = message;
 ev->ev_time    = evTime /* lastMSGTime */;
 ev->count      = eventsendcount++;
 ev->ev_next    = (struct queuedEvent *) 0;
 if (eventQueueTail) {
-eventQueueTail->ev_next = ev;
+	eventQueueTail->ev_next = ev;
 } else {
-eventQueueHead = ev;
+	eventQueueHead = ev;
 }
 eventQueueTail = ev;
 unlockEvents();
 if (eventQueueHead == ev) {
-SetEvent(hInputEvent);
+	SetEvent(hInputEvent);
 }
 #if 0
 SetThreadPriority(_masterThread, THREAD_PRIORITY_HIGHEST);
 #endif
 {
 struct queuedEvent * ev = NULL;
 char * freeArg2 = NULL;
 if (mask != ~0) {
-PRINTF(("deqEvent mask:%x\n",mask));
+	PRINTF(("deqEvent mask:%x\n",mask));
 }
 if (hWnd) {
-PRINTF(("deqEvent hWnd:%x\n",hWnd));
+	PRINTF(("deqEvent hWnd:%x\n",hWnd));
 }
 again:
 if (! eventQueueHead)
-return (0);
+	return (0);
 if (! lockEvents("deqEvent")) {
-return (0);
+	return (0);
 }
 TH_DPRINTF(("TDEQ\n"));
 ev = eventQueueHead;
 if (! ev) {
-unlockEvents();
+	unlockEvents();
-return (0);
+	return (0);
 }
 eventQueueHead = ev->ev_next;
 if (! eventQueueHead) {
-eventQueueTail = (struct queuedEvent *) 0;
+	eventQueueTail = (struct queuedEvent *) 0;
 }
 if (ev->count != -1) {
-static int anyGoodEventReceived = 1;
+	static int anyGoodEventReceived = 1;
-if (eventempfcount != ev->count) {
+	if (eventempfcount != ev->count) {
-if (anyGoodEventReceived) {
+	    if (anyGoodEventReceived) {
-console_fprintf(stderr, "WinWorkstation [warning]: lost event (eventcount error %d <-> %d)\n",
+		console_fprintf(stderr, "WinWorkstation [warning]: lost event (eventcount error %d <-> %d)\n",
-eventempfcount, ev->count);
+				 eventempfcount, ev->count);
-}
+	    }
-eventempfcount = ev->count;
+	    eventempfcount = ev->count;
-anyGoodEventReceived = 0;
+	    anyGoodEventReceived = 0;
-} else {
+	} else {
-anyGoodEventReceived = 1;
+	    anyGoodEventReceived = 1;
-}
+	}
-eventempfcount++;
+	eventempfcount++;
 }
 if (ev->ev_message == WM_DESTROY) {
-/*
+	/*
-* arg2 is the localInfoPtr
+	 * arg2 is the localInfoPtr
-* (which is already cleared in the wind-structure)
+	 * (which is already cleared in the wind-structure)
-* it must be freed by the stx-process ('cause it was malloc'd by it)
+	 * it must be freed by the stx-process ('cause it was malloc'd by it)
-*/
+	 */
-if (ev->ev_arg2) {
+	if (ev->ev_arg2) {
-freeArg2 = (char *) ev->ev_arg2;
+	    freeArg2 = (char *) ev->ev_arg2;
-ev->ev_arg2 = 0;
+	    ev->ev_arg2 = 0;
-}
+	}
 #ifdef TOPWINDOWCLASS
 FALSCH: nochmals in QUEUE -> (ev_arg2 != 0) arg2 freed !!!
-if (ev->ev_arg1) {
+	if (ev->ev_arg1) {
-if (UnregisterClass((char*)ev->ev_arg1,(HANDLE) __getHInstance())) {
+	    if (UnregisterClass((char*)ev->ev_arg1,(HANDLE) __getHInstance())) {
-/*console_printf("UnregisterClass %s ok.\n",(char*)ev->ev_arg1);*/
+		/*console_printf("UnregisterClass %s ok.\n",(char*)ev->ev_arg1);*/
-} else {
+	    } else {
-/* noch einmal in die queue
+		/* noch einmal in die queue
-*/
+		*/
-if (ev->ev_arg2++ < 100) {
+		if (ev->ev_arg2++ < 100) {
-ev->ev_next = (struct queuedEvent *)0;
+		    ev->ev_next = (struct queuedEvent *)0;
-ev->count   = eventsendcount++;
+		    ev->count   = eventsendcount++;
-if (eventQueueTail) {
+		    if (eventQueueTail) {
-eventQueueTail->ev_next = ev;
+			eventQueueTail->ev_next = ev;
-} else {
+		    } else {
-eventQueueHead = ev;
+			eventQueueHead = ev;
-}
+		    }
-eventQueueTail = ev;
+		    eventQueueTail = ev;
-unlockEvents();
+		    unlockEvents();
-if (freeArg2) {
+		    if (freeArg2) {
-free (freeArg2);
+			free (freeArg2);
-freeArg2 = NULL;
+			freeArg2 = NULL;
-}
+		    }
-if (ev->ev_arg2 > 98) {
+		    if (ev->ev_arg2 > 98) {
-console_fprintf(stderr, "WinWorkstation [info]: UnregisterClass %s failed. Wait 1 sec.\n",(char*)ev->ev_arg1);
+			console_fprintf(stderr, "WinWorkstation [info]: UnregisterClass %s failed. Wait 1 sec.\n",(char*)ev->ev_arg1);
-sleep(1);
+			sleep(1);
-} else {
+		    } else {
-sleep(0);
+			sleep(0);
-}
+		    }
-goto again;
+		    goto again;
-}
+		}
-/* fail evtl. später ändern und in st verzögert aufrufen
+		/* fail evtl. später ändern und in st verzögert aufrufen
-*/
+		*/
-console_fprintf(stderr, "WinWorkstation [info]: UnregisterClass %s failed.\n",(char*)ev->ev_arg1);
+		console_fprintf(stderr, "WinWorkstation [info]: UnregisterClass %s failed.\n",(char*)ev->ev_arg1);
-}
+	    }
-free((char*)ev->ev_arg1);
+	    free((char*)ev->ev_arg1);
-ev->ev_arg1 = 0;
+	    ev->ev_arg1 = 0;
-}
+	}
 #endif
 }
 *ret_ev = *ev;
 ev->ev_next   = eventFreeList;
 eventFreeList = ev;
 unlockEvents();
 if (freeArg2) {
-free (freeArg2);
+	free (freeArg2);
 }
 return (1);
 }
 static void
 __clearRectangles(HWND hWnd, int numRects, RECT *pRect)
 {
-HDC dc;
+	HDC dc;
-HBRUSH br;
+	HBRUSH br;
-int bgClr;
+	int bgClr;
-int isPrivateBrush = 0;
+	int isPrivateBrush = 0;
 # ifdef CACHE_LAST_WM_PAINT_DC
-AQUIRE_PAINT_MUTEX;
+	AQUIRE_PAINT_MUTEX;
-if (last_wm_paint_dc && (last_wm_paint_win == hWnd)) {
+	if (last_wm_paint_dc && (last_wm_paint_win == hWnd)) {
-dc = last_wm_paint_dc;
+	    dc = last_wm_paint_dc;
-} else {
+	} else {
-if (last_wm_paint_dc) {
+	    if (last_wm_paint_dc) {
 #  ifdef CACHE_LAST_DC
-if (lastGcData && (lastGcData->_hDC == last_wm_paint_dc)) {
+		if (lastGcData && (lastGcData->_hDC == last_wm_paint_dc)) {
 #   ifdef DEBUG_DC_REUSE
-console_fprintf(stderr, "WinWorkstation [info]: Oops - release lastGcData [%d]\n", __LINE__);
+		    console_fprintf(stderr, "WinWorkstation [info]: Oops - release lastGcData [%d]\n", __LINE__);
 #   endif
-_releaseDC(lastGcData);
+		    _releaseDC(lastGcData);
-} else {
+		} else {
-ReleaseDC(last_wm_paint_win, last_wm_paint_dc);
+		    ReleaseDC(last_wm_paint_win, last_wm_paint_dc);
-}
+		}
 #  else
-ReleaseDC(last_wm_paint_win, last_wm_paint_dc);
+		ReleaseDC(last_wm_paint_win, last_wm_paint_dc);
 #  endif /* CACHE_LAST_DC */
-}
+	    }
-dc = GetDC(hWnd);
+	    dc = GetDC(hWnd);
-last_wm_paint_dc = dc;
+	    last_wm_paint_dc = dc;
-last_wm_paint_win = hWnd;
+	    last_wm_paint_win = hWnd;
-}
+	}
 # else
-dc = (HDC)GetDC(hWnd);
+	dc = (HDC)GetDC(hWnd);
 # endif /* CACHE_LAST_WM_PAINT_DC */
 # ifdef CACHE_LAST_DC
-if (lastGcData && (lastGcData->_hDC == dc)) {
+	if (lastGcData && (lastGcData->_hDC == dc)) {
 #  ifdef DEBUG_DC_REUSE
-console_fprintf(stderr, "WinWorkstation [info]: Oops wm_paint_dc reuse [%d]\n", __LINE__);
+	    console_fprintf(stderr, "WinWorkstation [info]: Oops wm_paint_dc reuse [%d]\n", __LINE__);
 #  endif
-if ((lastGcData->rop2 != R2_COPYPEN)
+	    if ((lastGcData->rop2 != R2_COPYPEN)
-|| (lastGcData->bitbltrop2 != BITBLT_COPY)) {
+	     || (lastGcData->bitbltrop2 != BITBLT_COPY)) {
-console_fprintf(stderr, "WinWorkstation [info]: Oops wm_paint_dc not in Copy mode\n");
+		console_fprintf(stderr, "WinWorkstation [info]: Oops wm_paint_dc not in Copy mode\n");
-}
+	    }
-lastGcData = 0;
+	    lastGcData = 0;
-}
+	}
 # endif
-br = GetWindow_viewBgBrush(hWnd);
+	br = GetWindow_viewBgBrush(hWnd);
-if (! br) {
+	if (! br) {
-bgClr = GetWindow_viewBgColor(hWnd);
+	    bgClr = GetWindow_viewBgColor(hWnd);
 # ifdef CACHE_LAST_WM_PAINT_BRUSH
-if (last_wm_paint_brush
+	    if (last_wm_paint_brush
-&& (last_wm_paint_brush_clr == bgClr)) {
+	     && (last_wm_paint_brush_clr == bgClr)) {
-br = last_wm_paint_brush;
+		br = last_wm_paint_brush;
-} else {
+	    } else {
-if (bgClr == WhitePixel) {
+		if (bgClr == WhitePixel) {
-br = __whiteBrush;
+		    br = __whiteBrush;
-} else if (bgClr == BlackPixel) {
+		} else if (bgClr == BlackPixel) {
-br = __blackBrush;
+		    br = __blackBrush;
-} else {
+		} else {
-if (last_wm_paint_brush) {
+		    if (last_wm_paint_brush) {
-_DeleteBrush(last_wm_paint_brush, __LINE__);
+			_DeleteBrush(last_wm_paint_brush, __LINE__);
-}
+		    }
-last_wm_paint_brush = br = CreateSolidBrush(bgClr);
+		    last_wm_paint_brush = br = CreateSolidBrush(bgClr);
-last_wm_paint_brush_clr = bgClr;
+		    last_wm_paint_brush_clr = bgClr;
-isPrivateBrush = 1;
+		    isPrivateBrush = 1;
-}
+		}
-}
+	    }
 # else
-br = CreateSolidBrush(bgClr);
+	    br = CreateSolidBrush(bgClr);
-isPrivateBrush = 1;
+	    isPrivateBrush = 1;
 # endif
-}
+	}
-if (! br) {
+	if (! br) {
-console_fprintf(stderr, "WinWorkstation [info]: no brush\n");
+	    console_fprintf(stderr, "WinWorkstation [info]: no brush\n");
-}
+	}
-if (br) {
+	if (br) {
-int i;
+	    int i;
-SelectClipRgn(dc, NULL);
+	    SelectClipRgn(dc, NULL);
-for (i=0; i<numRects; i++) {
+	    for (i=0; i<numRects; i++) {
-/*
+		/*
-* always clear - even if not interested in exposes
+		 * always clear - even if not interested in exposes
-*/
+		 */
-FillRect(dc, &(pRect[i]), br);
+		FillRect(dc, &(pRect[i]), br);
-}
+	    }
-}
+	}
 # ifndef CACHE_LAST_WM_PAINT_BRUSH
-if (isPrivateBrush) {
+	if (isPrivateBrush) {
-_DeleteBrush(br, __LINE__);
+	    _DeleteBrush(br, __LINE__);
-}
+	}
 # endif
 # ifndef CACHE_LAST_WM_PAINT_DC
-ReleaseDC(hWnd, dc);
+	ReleaseDC(hWnd, dc);
 # endif
 # if defined(CACHE_LAST_WM_PAINT_DC)
-RELEASE_PAINT_MUTEX
+	RELEASE_PAINT_MUTEX
 # endif
 }
 static void
 __clearWindow(HWND hWnd, int x, int y, int w, int h)
 {
-RECT rect;
+	RECT rect;
-rect.left = x;
+	rect.left = x;
-rect.top = y;
+	rect.top = y;
-rect.right = x + w;
+	rect.right = x + w;
-rect.bottom = y + h;
+	rect.bottom = y + h;
-__clearRectangles(hWnd, 1, &rect);
+	__clearRectangles(hWnd, 1, &rect);
 }
 /*
 * generate expose events from hWnd's update region or the passedIn region.
 */
 static int
 __generateExposes(HWND hWnd, HRGN hRgnInOrNull, int msgType, int doClear)
 {
-RECT updRect;
+	RECT updRect;
-HRGN updRgn = 0;
+	HRGN updRgn = 0;
-int numRects, ret, n, i;
+	int numRects, ret, n, i;
-int wantExpose;
+	int wantExpose;
-RECT *pRect;
+	RECT *pRect;
-union {
+	union {
-RGNDATA rgnData;
+	    RGNDATA rgnData;
-char    bytes[512];
+	    char    bytes[512];
-} data;
+	} data;
-wantExpose = 0;
+	wantExpose = 0;
-if( msgType >= 0 )
+	if( msgType >= 0 )
-wantExpose = (GetWindow_eventMask(hWnd) & ExposureMask);
+	    wantExpose = (GetWindow_eventMask(hWnd) & ExposureMask);
-if (hRgnInOrNull) {
+	if (hRgnInOrNull) {
-updRgn = hRgnInOrNull;
+	    updRgn = hRgnInOrNull;
-} else {
+	} else {
-PAINTSTRUCT ps;
+	    PAINTSTRUCT ps;
-/*
+	    /*
-* fetch the update region, even if ExposureMask is empty.
+	     * fetch the update region, even if ExposureMask is empty.
-*/
+	     */
-updRgn = CreateRectRgn(0, 0, 0, 0);
+	    updRgn = CreateRectRgn(0, 0, 0, 0);
-ret = GetUpdateRgn(hWnd, updRgn, FALSE);
+	    ret = GetUpdateRgn(hWnd, updRgn, FALSE);
 #if 0
-BeginPaint(hWnd, &ps);
+	    BeginPaint(hWnd, &ps);
-/* store the rectangle required for image bit reversal */
+	    /* store the rectangle required for image bit reversal */
-/* updateRect = ps.rcPaint;   */
+	    /* updateRect = ps.rcPaint;   */
-EndPaint(hWnd, &ps);
+	    EndPaint(hWnd, &ps);
 #endif
-switch (ret) {
+	    switch (ret) {
-case ERROR:
+		case ERROR:
-console_fprintf(stderr, "WinWorkstation [info]: errregion\n");
+		    console_fprintf(stderr, "WinWorkstation [info]: errregion\n");
-return -1;
+		    return -1;
-case NULLREGION:
+		case NULLREGION:
-DDDDPRINTF(("nullregion\n"));
+		    DDDDPRINTF(("nullregion\n"));
-_DeleteObject(updRgn, __LINE__);
+		    _DeleteObject(updRgn, __LINE__);
-return 0;
+		    return 0;
-case SIMPLEREGION:
+		case SIMPLEREGION:
-case COMPLEXREGION:
+		case COMPLEXREGION:
-break;
+		    break;
-}
+	    }
-}
+	}
-n = GetRegionData(updRgn, sizeof(data), &(data.rgnData));
+	n = GetRegionData(updRgn, sizeof(data), &(data.rgnData));
-/*
+	/*
-* the MS-doc states: n==1
+	 * the MS-doc states: n==1
-* but this is not true
+	 * but this is not true
-*/
+	 */
-if ((n >= sizeof(RGNDATA))
+	if ((n >= sizeof(RGNDATA))
-&& (n <= sizeof(data))
+	 && (n <= sizeof(data))
-&& (data.rgnData.rdh.iType == RDH_RECTANGLES))  {
+	 && (data.rgnData.rdh.iType == RDH_RECTANGLES))  {
-/* ok, got the region */
+	    /* ok, got the region */
-numRects = data.rgnData.rdh.nCount;
+	    numRects = data.rgnData.rdh.nCount;
-pRect = (RECT *)(data.rgnData.Buffer);
+	    pRect = (RECT *)(data.rgnData.Buffer);
-DDDDPRINTF(("region numRects=%d\n", numRects));
+	    DDDDPRINTF(("region numRects=%d\n", numRects));
-} else {
+	} else {
-/* a big region ... */
+	    /* a big region ... */
-GetRgnBox(updRgn, &updRect);
+	    GetRgnBox(updRgn, &updRect);
-numRects = 1;
+	    numRects = 1;
-pRect = &updRect;
+	    pRect = &updRect;
-DPRINTF(("very complex region (need:%d have:%d) bounds=%d,%d -> %d,%d\n",
+	    DPRINTF(("very complex region (need:%d have:%d) bounds=%d,%d -> %d,%d\n",
-n, sizeof(data),
+		     n, sizeof(data),
-updRect.left, updRect.top,
+		     updRect.left, updRect.top,
-updRect.right, updRect.bottom));
+		     updRect.right, updRect.bottom));
-if (((updRect.right - updRect.left) <= 0)
+	    if (((updRect.right - updRect.left) <= 0)
-|| ((updRect.bottom - updRect.top) <= 0)) {
+	     || ((updRect.bottom - updRect.top) <= 0)) {
-numRects = 0;
+		numRects = 0;
-}
+	    }
-}
+	}
-if (numRects) {
+	if (numRects) {
-if (doClear) {
+	    if (doClear) {
-__clearRectangles(hWnd, numRects, pRect);
+		__clearRectangles(hWnd, numRects, pRect);
-}
+	    }
 #ifndef PRE_21_NOV
-for (i=0; i < numRects; i++) {
+	for (i=0; i < numRects; i++) {
-ValidateRect( hWnd, &pRect[i] );
+	    ValidateRect( hWnd, &pRect[i] );
-}
+	}
 #endif
 #ifdef DEBUG_COLORIZE_WM_PAINT_RECTS1
-{
+	    {
-HDC hDC;
+		HDC hDC;
-HBRUSH hBrush;
+		HBRUSH hBrush;
-hBrush = CreateSolidBrush(BlackPixel);
+		hBrush = CreateSolidBrush(BlackPixel);
-hDC = GetWindowDC(hWnd);
+		hDC = GetWindowDC(hWnd);
-SelectClipRgn(hDC, NULL);
+		SelectClipRgn(hDC, NULL);
-for (i=0; i<numRects; i++) {
+		for (i=0; i<numRects; i++) {
-FillRect(hDC, &(pRect[i]), hBrush);
+		    FillRect(hDC, &(pRect[i]), hBrush);
-}
+		}
-_DeleteBrush(hBrush, __LINE__);
+		_DeleteBrush(hBrush, __LINE__);
-ReleaseDC(hWnd, hDC);
+		ReleaseDC(hWnd, hDC);
-}
+	    }
 #endif
-if (wantExpose) {
+	    if (wantExpose) {
-for (i=0; i<numRects; i++) {
+		for (i=0; i<numRects; i++) {
-int final = 0;
+		    int final = 0;
-if ((msgType == __WM_GEXPOSE)
+		    if ((msgType == __WM_GEXPOSE)
-&& (i == (numRects - 1))) {
+		     && (i == (numRects - 1))) {
-final = 1;
+			final = 1;
-}
+		    }
-enqEvent(ExposureMask, hWnd, msgType, final,
+		    enqEvent(ExposureMask, hWnd, msgType, final,
-(pRect[i].left), (pRect[i].top),
+			     (pRect[i].left), (pRect[i].top),
-(pRect[i].right - pRect[i].left),
+			     (pRect[i].right - pRect[i].left),
-(pRect[i].bottom - pRect[i].top),
+			     (pRect[i].bottom - pRect[i].top),
-EV_NOTIME);
+			     EV_NOTIME);
-}
+		}
-}
+	    }
-}
+	}
-if (updRgn && (updRgn != hRgnInOrNull)) {
+	if (updRgn && (updRgn != hRgnInOrNull)) {
-_DeleteObject(updRgn, __LINE__);
+	    _DeleteObject(updRgn, __LINE__);
-}
+	}
-return numRects;
+	return numRects;
 }
 #ifdef THIS_DOES_NOT_AVOID_DOUBLE_REPAINTS
 BOOL CALLBACK
 recursiveExposeGenerator(HWND hChild, LPARAM param)
 {
-__generateExposes(hChild, NULL, param, 0);
+	__generateExposes(hChild, NULL, param, 0);
-return TRUE;
+	return TRUE;
 }
 static void
 __generateRecursiveExposes(HWND hWnd, int msgType)
 {
-EnumChildWindows(hWnd, recursiveExposeGenerator, msgType);
+	EnumChildWindows(hWnd, recursiveExposeGenerator, msgType);
 }
 #endif /* sigh */
 getModifiers(void)
 {
 int modifiers = 0;
 if (GetKeyState(VK_SHIFT) & 0x8000)
-modifiers |= ShiftMask;
+	modifiers |= ShiftMask;
 if (GetKeyState(VK_CONTROL) & 0x8000)
-modifiers |= ControlMask;
+	modifiers |= ControlMask;
 #if 0
 if (GetKeyState(VK_RMENU) & 0x8000)
-modifiers |= RightAltMask;
+	modifiers |= RightAltMask;
 if (GetKeyState(VK_LMENU) & 0x8000)
-modifiers |= LeftAltMask;
+	modifiers |= LeftAltMask;
 #else
 if (GetKeyState(VK_MENU) & 0x8000)
-modifiers |= LeftAltMask;
+	modifiers |= LeftAltMask;
 #endif
 if (GetKeyState(VK_LBUTTON) & 0x8000)
-modifiers |= Button1Mask;
+	modifiers |= Button1Mask;
 if (GetKeyState(VK_MBUTTON) & 0x8000)
-modifiers |= Button2Mask;
+	modifiers |= Button2Mask;
 if (GetKeyState(VK_RBUTTON) & 0x8000)
-modifiers |= Button3Mask;
+	modifiers |= Button3Mask;
 if ((modifiers & AnyButtonMask) == 0) {
-__eatingMouseEvents = 0;
+	__eatingMouseEvents = 0;
 }
 return modifiers;
 }
 #ifndef PRE_01_APR_04
 */
 # define MustHandleButtonEvent()\
 (((__currentCapture == CAPTURE_NONE)       \
 && (   (GetKeyState(VK_LBUTTON) & 0x8000) \
-|| (GetKeyState(VK_MBUTTON) & 0x8000) \
+	 || (GetKeyState(VK_MBUTTON) & 0x8000) \
-|| (GetKeyState(VK_RBUTTON) & 0x8000) \
+	 || (GetKeyState(VK_RBUTTON) & 0x8000) \
-)                                      \
+	)                                      \
 ) ? 0 : 1)
 #else
 # define MustHandleButtonEvent()   1
 #endif
 {
 localWindowInfo *lI;
 int gravity;
 if (lI = GETLOCALWINDOWINFOPTR(hChild)) {
-if ((gravity = lI->viewGravity) != GRAVITY_NONE) {
+	if ((gravity = lI->viewGravity) != GRAVITY_NONE) {
-RECT oldChildRct, oldChildWinRct;
+	    RECT oldChildRct, oldChildWinRct;
-RECT newChildRct;
+	    RECT newChildRct;
-int deltaW, deltaH;
+	    int deltaW, deltaH;
-int anyChange = 0;
+	    int anyChange = 0;
-/*
+	    /*
-* get its current bounds ...
+	     * get its current bounds ...
-*/
+	     */
-GetClientRect(hChild, &oldChildRct);
+	    GetClientRect(hChild, &oldChildRct);
-deltaW = iP->newW - iP->currW;
+	    deltaW = iP->newW - iP->currW;
-deltaH = iP->newH - iP->currH;
+	    deltaH = iP->newH - iP->currH;
-GetWindowRect(hChild, &oldChildWinRct);
+	    GetWindowRect(hChild, &oldChildWinRct);
-oldChildRct.left = oldChildWinRct.left - iP->parentWinX;
+	    oldChildRct.left = oldChildWinRct.left - iP->parentWinX;
-oldChildRct.top =  oldChildWinRct.top - iP->parentWinY;
+	    oldChildRct.top =  oldChildWinRct.top - iP->parentWinY;
-newChildRct = oldChildRct;
+	    newChildRct = oldChildRct;
-switch (gravity) {
+	    switch (gravity) {
 #if 0
-case GRAVITY_N:
+		case GRAVITY_N:
-console_fprintf(stderr, "WinWorkstation [info]: Child %x: North gravity\n", hChild);
+		    console_fprintf(stderr, "WinWorkstation [info]: Child %x: North gravity\n", hChild);
-/*
+		    /*
-* shift to the bottom, for a constant
+		     * shift to the bottom, for a constant
-* distance from the bottom edge;
+		     * distance from the bottom edge;
-*/
+		     */
-newChildRct.bottom += deltaH;
+		    newChildRct.bottom += deltaH;
-anyChange = 1;
+		    anyChange = 1;
-break;
+		    break;
-case GRAVITY_W:
+		case GRAVITY_W:
-console_fprintf(stderr, "WinWorkstation [info]: Child %x: West gravity\n", hChild);
+		    console_fprintf(stderr, "WinWorkstation [info]: Child %x: West gravity\n", hChild);
-/*
+		    /*
-* shift to the right, for a constant
+		     * shift to the right, for a constant
-* distance from the right edge;
+		     * distance from the right edge;
-*/
+		     */
-newChildRct.right += deltaW;
+		    newChildRct.right += deltaW;
-anyChange = 1;
+		    anyChange = 1;
-break;
+		    break;
 #endif
-case GRAVITY_S:
+		case GRAVITY_S:
-console_fprintf(stderr, "WinWorkstation [info]: Child %x: South gravity\n", hChild);
+		    console_fprintf(stderr, "WinWorkstation [info]: Child %x: South gravity\n", hChild);
-/*
+		    /*
-* shift to the bottom, for a constant
+		     * shift to the bottom, for a constant
-* distance from the bottom edge;
+		     * distance from the bottom edge;
-*/
+		     */
-newChildRct.top += deltaH;
+		    newChildRct.top += deltaH;
-newChildRct.bottom  += deltaH;
+		    newChildRct.bottom  += deltaH;
-anyChange = 1;
+		    anyChange = 1;
-break;
+		    break;
-case GRAVITY_E:
+		case GRAVITY_E:
-console_fprintf(stderr, "WinWorkstation [info]: Child %x: East gravity\n", hChild);
+		    console_fprintf(stderr, "WinWorkstation [info]: Child %x: East gravity\n", hChild);
-/*
+		    /*
-* shift to the right, for a constant
+		     * shift to the right, for a constant
-* distance from the right edge;
+		     * distance from the right edge;
-*/
+		     */
-newChildRct.right += deltaW;
+		    newChildRct.right += deltaW;
-newChildRct.left  += deltaW;
+		    newChildRct.left  += deltaW;
-anyChange = 1;
+		    anyChange = 1;
-break;
+		    break;
-case GRAVITY_SE:
+		case GRAVITY_SE:
-console_fprintf(stderr, "WinWorkstation [info]: Child %x: SouthEast gravity\n", hChild);
+		    console_fprintf(stderr, "WinWorkstation [info]: Child %x: SouthEast gravity\n", hChild);
-/*
+		    /*
-* shift to the bottom-right, for a constant
+		     * shift to the bottom-right, for a constant
-* distance from the bottom-right edge;
+		     * distance from the bottom-right edge;
-*/
+		     */
-newChildRct.right += deltaW;
+		    newChildRct.right += deltaW;
-newChildRct.left  += deltaW;
+		    newChildRct.left  += deltaW;
-newChildRct.top += deltaH;
+		    newChildRct.top += deltaH;
-newChildRct.bottom  += deltaH;
+		    newChildRct.bottom  += deltaH;
-anyChange = 1;
+		    anyChange = 1;
-break;
+		    break;
-default:
+		default:
-DPRINTF(("Child %x: other gravity\n", hChild));
+		    DPRINTF(("Child %x: other gravity\n", hChild));
-break;
+		    break;
-}
+	    }
-if (anyChange) {
+	    if (anyChange) {
-if ((newChildRct.left < 0)
+		if ((newChildRct.left < 0)
-|| (newChildRct.top < 0)
+		 || (newChildRct.top < 0)
-|| (newChildRct.right >= iP->newW)
+		 || (newChildRct.right >= iP->newW)
-|| (newChildRct.bottom >= iP->newH)) {
+		 || (newChildRct.bottom >= iP->newH)) {
-console_fprintf(stderr, "WinWorkstation [info]: dont move child to: %d/%d -> %d/%d\n",
+		    console_fprintf(stderr, "WinWorkstation [info]: dont move child to: %d/%d -> %d/%d\n",
-newChildRct.left, newChildRct.top,
+				    newChildRct.left, newChildRct.top,
-newChildRct.right, newChildRct.bottom);
+				    newChildRct.right, newChildRct.bottom);
-} else {
+		} else {
-console_fprintf(stderr, "WinWorkstation [info]: move child from %d/%d->%d/%d to: %d/%d->%d/%d\n",
+		    console_fprintf(stderr, "WinWorkstation [info]: move child from %d/%d->%d/%d to: %d/%d->%d/%d\n",
-oldChildRct.left, oldChildRct.top,
+				    oldChildRct.left, oldChildRct.top,
-oldChildRct.right, oldChildRct.bottom,
+				    oldChildRct.right, oldChildRct.bottom,
-newChildRct.left, newChildRct.top,
+				    newChildRct.left, newChildRct.top,
-newChildRct.right, newChildRct.bottom);
+				    newChildRct.right, newChildRct.bottom);
-SetWindowPos(hChild, (HWND)0,
+		    SetWindowPos(hChild, (HWND)0,
-newChildRct.left, newChildRct.top,
+				 newChildRct.left, newChildRct.top,
-0, 0,
+				 0, 0,
-/* SWP_NOSENDCHANGING | */
+				 /* SWP_NOSENDCHANGING | */
-SWP_NOACTIVATE | SWP_NOSIZE | SWP_NOZORDER | SWP_NOOWNERZORDER);
+				 SWP_NOACTIVATE | SWP_NOSIZE | SWP_NOZORDER | SWP_NOOWNERZORDER);
-}
+		}
-}
+	    }
-}
+	}
 }
 return TRUE;
 }
 #endif /* HANDLE_VIEWGRAVITY */
 {
 unsigned char *cp = (unsigned char *)in;
 wchar_t *wcp = out;
 while ((nMax > 1) && cp && *cp) {
-*wcp++ = *cp++;
+	*wcp++ = *cp++;
-nMax--;
+	nMax--;
 }
 *wcp = 0;
 }
 static int
 winEventProcessing(
-HWND hWnd,         /* window handle                   */
+	HWND hWnd,         /* window handle                   */
-UINT message,      /* type of message                 */
+	UINT message,      /* type of message                 */
-UINT wParam,       /* additional information          */
+	UINT wParam,       /* additional information          */
-INT lParam,        /* additional information          */
+	INT lParam,        /* additional information          */
-int *pDefault
+	int *pDefault
 ) {
 int curButton;
 int x, y, w, h;
 int isNative = 0;
 UINT evTime;
 * but lost here. (slightly inexact ... but who cares)
 */
 evTime = lastMSGTime;
 lastMSGTime = 0;
 if (evTime == 0) {
-lastMSGTime = GetTickCount();
+	lastMSGTime = GetTickCount();
 }
 /*
 EVENT_PRINTF(("winEvent hWin=0x%x message=0x%x wP=0x%x lP=0x%x\n",
-hWnd, message, wParam, lParam));
+			hWnd, message, wParam, lParam));
 */
 if (hWnd) {
-if (message != WM_MOUSEMOVE) {
+	if (message != WM_MOUSEMOVE) {
-lastMotionWnd = 0;
+	    lastMotionWnd = 0;
-}
+	}
-isNative = (GetWindow_flag(hWnd) & LI_NATIVEWIN);
+	isNative = (GetWindow_flag(hWnd) & LI_NATIVEWIN);
-if (isNative) {
+	if (isNative) {
-NDPRINTF(("event %d (0x%x) for nativeWindow\n", message, message));
+	    NDPRINTF(("event %d (0x%x) for nativeWindow\n", message, message));
-}
+	}
 }
 /*
 * messages which are enqueued to be handled by the view thread
 */
 switch (message) {
-case WM_THREAD_CREATEWINDOW:
+	case WM_THREAD_CREATEWINDOW:
-EVENT_PRINTF(("*WM_THREAD_CREATEWINDOW\n"));
+	    EVENT_PRINTF(("*WM_THREAD_CREATEWINDOW\n"));
-{
+	    {
-createWindowInfo *cwi = (createWindowInfo *)(lParam);
+		createWindowInfo *cwi = (createWindowInfo *)(lParam);
-if ((cwi->sequenceNr == wParam)
+		if ((cwi->sequenceNr == wParam)
-&& (cwi->sequenceNr != INVALIDATED_CWI)) {
+		 && (cwi->sequenceNr != INVALIDATED_CWI)) {
-cwi->sequenceNr = INVALIDATED_CWI;
+		    cwi->sequenceNr = INVALIDATED_CWI;
-cwi->infoWasRead = 1;
+		    cwi->infoWasRead = 1;
-if (cwi->newWinHandle == NULL) {
+		    if (cwi->newWinHandle == NULL) {
-HANDLE ev;
+			HANDLE ev;
-HANDLE hwnd;
+			HANDLE hwnd;
-cwi->newWinHandle = hwnd = CreateWindowExW(
+			cwi->newWinHandle = hwnd = CreateWindowExW(
-cwi->winStyleBitsEx,
+					    cwi->winStyleBitsEx,
-cwi->className,
+					    cwi->className,
-cwi->windowName,
+					    cwi->windowName,
-cwi->winStyleBits,
+					    cwi->winStyleBits,
-cwi->x, cwi->y,
+					    cwi->x, cwi->y,
-cwi->dx, cwi->dy,
+					    cwi->dx, cwi->dy,
-cwi->parentHandle,
+					    cwi->parentHandle,
-NULL,           /* menu */
+					    NULL,           /* menu */
-(HANDLE) __getHInstance(),
+					    (HANDLE) __getHInstance(),
-cwi->localWindowInfo
+					    cwi->localWindowInfo
-);
+					   );
-if (hwnd == NULL) {
+			if (hwnd == NULL) {
-cwi->errCode = GetLastError();
+			    cwi->errCode = GetLastError();
-console_fprintf(stderr, "WinWorkstation [info]: CreateWindow failed: %d (0x%x) [%d]\n",
+			    console_fprintf(stderr, "WinWorkstation [info]: CreateWindow failed: %d (0x%x) [%d]\n",
-cwi->errCode, cwi->errCode, __LINE__);
+						cwi->errCode, cwi->errCode, __LINE__);
-} else {
+			} else {
-SETLOCALWINDOWINFOPTR(hwnd, cwi->localWindowInfo);
+			    SETLOCALWINDOWINFOPTR(hwnd, cwi->localWindowInfo);
 #ifdef DEBUG /* PARANOIA */
-if (GETLOCALWINDOWINFOPTR(hwnd) != cwi->localWindowInfo) {
+			    if (GETLOCALWINDOWINFOPTR(hwnd) != cwi->localWindowInfo) {
-console_fprintf(stderr, "lI-Error\n");
+			       console_fprintf(stderr, "lI-Error\n");
-}
+			    }
 #endif
-SetWindowPos(hWnd, HWND_TOP, 0, 0, 0, 0,
+			    SetWindowPos(hWnd, HWND_TOP, 0, 0, 0, 0,
-/* SWP_NOOWNERZORDER |*/
+					/* SWP_NOOWNERZORDER |*/
-SWP_NOSENDCHANGING | SWP_NOACTIVATE | SWP_NOMOVE | SWP_NOSIZE);
+					SWP_NOSENDCHANGING | SWP_NOACTIVATE | SWP_NOMOVE | SWP_NOSIZE);
-}
+			}
-ev = cwi->hCreateEvent;
+			ev = cwi->hCreateEvent;
-if (ev) {
+			if (ev) {
-SetEvent(ev);
+			    SetEvent(ev);
-}
+			}
-}
+		    }
-} else {
+		} else {
-DPRINTF(("obsolete createWindow message %x ignored\n", cwi->sequenceNr));
+		    DPRINTF(("obsolete createWindow message %x ignored\n", cwi->sequenceNr));
-}
+		}
-}
+	    }
-*pDefault = 0;
+	    *pDefault = 0;
-return 0;
+	    return 0;
-case WM_THREAD_DESTROYWINDOW:
+	case WM_THREAD_DESTROYWINDOW:
-{
+	    {
-HBRUSH br;
+		HBRUSH br;
-br = GetWindow_viewBgBrush(hWnd);
+		br = GetWindow_viewBgBrush(hWnd);
-if (br) {
+		if (br) {
-SetWindow_viewBgBrush(hWnd, 0);
+		    SetWindow_viewBgBrush(hWnd, 0);
-_DeleteBrushIfNotInCache(br, __LINE__);
+		    _DeleteBrushIfNotInCache(br, __LINE__);
-}
+		}
-}
+	    }
 #ifdef CACHE_LAST_DC
-if (lastGcData && (lastGcHWIN == hWnd)) {
+	    if (lastGcData && (lastGcHWIN == hWnd)) {
-_releaseDC(lastGcData);
+		_releaseDC(lastGcData);
-}
+	    }
 #endif
 #ifdef CACHE_LAST_WM_PAINT_DC
-if (last_wm_paint_dc && (last_wm_paint_win == hWnd)) {
+	    if (last_wm_paint_dc && (last_wm_paint_win == hWnd)) {
-ReleaseDC(hWnd, last_wm_paint_dc);
+		ReleaseDC(hWnd, last_wm_paint_dc);
-last_wm_paint_win = last_wm_paint_dc = 0;
+		last_wm_paint_win = last_wm_paint_dc = 0;
-}
+	    }
 #endif
-if (! DestroyWindow(hWnd)) {
+	    if (! DestroyWindow(hWnd)) {
-DPRINTF(("DestroyWindow ERROR\n"));
+		DPRINTF(("DestroyWindow ERROR\n"));
-} else {
+	    } else {
 #ifdef COUNT_RESOURCES
-__cnt_createWindows--;
+		__cnt_createWindows--;
-RESPRINTF(("DestroyWindow -> %d\n", __cnt_createWindows));
+		RESPRINTF(("DestroyWindow -> %d\n", __cnt_createWindows));
 #endif
-}
+	    }
-*pDefault = 0;
+	    *pDefault = 0;
-return 0;
+	    return 0;
-case WM_CREATE:
+	case WM_CREATE:
-{
+	    {
 #ifdef SETLOCALINFO_IN_CREATE /* no longer */
-localWindowInfo *lI;
+		localWindowInfo *lI;
-CREATESTRUCT *lpcs = (LPCREATESTRUCT) lParam; // structure with creation data
+		CREATESTRUCT *lpcs = (LPCREATESTRUCT) lParam; // structure with creation data
-lI = lpcs->lpCreateParams;
+		lI = lpcs->lpCreateParams;
-EVENT_PRINTF(("WM_CREATE lI=%x\n", lI));
+		EVENT_PRINTF(("WM_CREATE lI=%x\n", lI));
-SETLOCALWINDOWINFOPTR(hWnd, lI);
+		SETLOCALWINDOWINFOPTR(hWnd, lI);
 # ifdef SUPERDEBUG
-if (GETLOCALWINDOWINFOPTR(hWnd) != lpcs->lpCreateParams) {
+		if (GETLOCALWINDOWINFOPTR(hWnd) != lpcs->lpCreateParams) {
-PRINTF(("SETLOCALWINDOWINFOPTR ERROR\n"));
+		    PRINTF(("SETLOCALWINDOWINFOPTR ERROR\n"));
-}
+		}
 # endif /* SUPERDEBUG */
 #endif
-*pDefault = 0;
+		*pDefault = 0;
 #ifdef COUNT_RESOURCES
-__cnt_createWindows++;
+		__cnt_createWindows++;
-RESPRINTF(("CreateWindows %d\n",__cnt_createWindows));
+		RESPRINTF(("CreateWindows %d\n",__cnt_createWindows));
 #endif
-}
+	    }
-break;
+	    break;
-case WM_CLOSE:
+	case WM_CLOSE:
-EVENT_PRINTF(("WM_CLOSE\n"));
+	    EVENT_PRINTF(("WM_CLOSE\n"));
-if (! destroyWin) {
+	    if (! destroyWin) {
-// (flag, hWnd, message, wParam, arg1, arg2, arg3, arg4, evTime)
+		// (flag, hWnd, message, wParam, arg1, arg2, arg3, arg4, evTime)
-enqEvent(0, hWnd, WM_CLOSE, wParam, 0, 0, 0, 0, EV_NOTIME);
+		enqEvent(0, hWnd, WM_CLOSE, wParam, 0, 0, 0, 0, EV_NOTIME);
-} else {
+	    } else {
-destroyWin = 0;
+		destroyWin = 0;
-{
+		{
-HBRUSH br;
+		    HBRUSH br;
-br = GetWindow_viewBgBrush(hWnd);
+		    br = GetWindow_viewBgBrush(hWnd);
-if (br) {
+		    if (br) {
-SetWindow_viewBgBrush(hWnd, 0);
+			SetWindow_viewBgBrush(hWnd, 0);
-_DeleteBrushIfNotInCache(br, __LINE__);
+			_DeleteBrushIfNotInCache(br, __LINE__);
-}
+		    }
-}
+		}
 #ifdef CACHE_LAST_DC
-if (lastGcData && (lastGcHWIN == hWnd)) {
+		if (lastGcData && (lastGcHWIN == hWnd)) {
-_releaseDC(lastGcData);
+		    _releaseDC(lastGcData);
-}
+		}
 #endif
 #ifdef CACHE_LAST_WM_PAINT_DC
-if (last_wm_paint_dc && (last_wm_paint_win == hWnd)) {
+		if (last_wm_paint_dc && (last_wm_paint_win == hWnd)) {
-ReleaseDC(hWnd, last_wm_paint_dc);
+		    ReleaseDC(hWnd, last_wm_paint_dc);
-last_wm_paint_win = last_wm_paint_dc = 0;
+		    last_wm_paint_win = last_wm_paint_dc = 0;
-}
+		}
 #endif
-if (! DestroyWindow(hWnd)) {
+		if (! DestroyWindow(hWnd)) {
-DPRINTF(("DestroyWindow ERROR\n"));
+		    DPRINTF(("DestroyWindow ERROR\n"));
-} else {
+		} else {
 #ifdef COUNT_RESOURCES
-__cnt_createWindows--;
+		    __cnt_createWindows--;
-RESPRINTF(("DestroyWindow -> %d\n", __cnt_createWindows));
+		    RESPRINTF(("DestroyWindow -> %d\n", __cnt_createWindows));
 #endif
-}
+		}
-}
+	    }
-*pDefault = 0;
+	    *pDefault = 0;
-return 0;
+	    return 0;
-break;
+	    break;
-case WM_DESTROY:
+	case WM_DESTROY:
-{
+	    {
-char *nm = 0;
+		char *nm = 0;
-localWindowInfo *lI;
+		localWindowInfo *lI;
-lI = GETLOCALWINDOWINFOPTR(hWnd);
+		lI = GETLOCALWINDOWINFOPTR(hWnd);
-EVENT_PRINTF(("WM_DESTROY %x li=%x\n", hWnd, lI));
+		EVENT_PRINTF(("WM_DESTROY %x li=%x\n", hWnd, lI));
 #ifdef TOPWINDOWCLASS
-if (lI) {
+		if (lI) {
-if (lI->flag & LI_TOPWIN) {
+		    if (lI->flag & LI_TOPWIN) {
-nm = (char*) malloc(300);
+			nm = (char*) malloc(300);
-GetClassName(hWnd, nm, 300);
+			GetClassName(hWnd, nm, 300);
-}
+		    }
-/* freeing now done in other thread */
+		    /* freeing now done in other thread */
-}
+		}
 #endif
-SETLOCALWINDOWINFOPTR(hWnd, 0);
+		SETLOCALWINDOWINFOPTR(hWnd, 0);
 #ifdef FREE_LI_IN_STX_PROCESS
-enqEvent(0, hWnd, WM_DESTROY, wParam, (INT)nm, lI, 0, 0, EV_NOTIME);
+		enqEvent(0, hWnd, WM_DESTROY, wParam, (INT)nm, lI, 0, 0, EV_NOTIME);
 #else
-if (lI) {
+		if (lI) {
-free(lI);
+		    free(lI);
-}
+		}
-enqEvent(0, hWnd, WM_DESTROY, wParam, (INT)nm, 0, 0, 0, EV_NOTIME);
+		enqEvent(0, hWnd, WM_DESTROY, wParam, (INT)nm, 0, 0, 0, EV_NOTIME);
 #endif
-*pDefault = 0;
+		*pDefault = 0;
-return 0;
+		return 0;
-}
+	    }
-break;
+	    break;
-case WM_GETMINMAXINFO:
+	case WM_GETMINMAXINFO:
 #ifndef PRE_13_APR_04_POSCHANGED_IN_EXITSIZEMOVE
-if (inMove) {
+	    if (inMove) {
-*pDefault = 0;
+		*pDefault = 0;
-return 0;
+		return 0;
-}
+	    }
 #endif
-{
+	    {
-int minW, maxW;
+		int minW, maxW;
-localWindowInfo *lI;
+		localWindowInfo *lI;
-LPMINMAXINFO lpmmi = (LPMINMAXINFO) lParam;
+		LPMINMAXINFO lpmmi = (LPMINMAXINFO) lParam;
-EVENT_PRINTF2(("WM_GETMINMAXINFO handle=%x got min: %d/%d\n",
+		EVENT_PRINTF2(("WM_GETMINMAXINFO handle=%x got min: %d/%d\n",
-hWnd,
+			    hWnd,
-lpmmi->ptMinTrackSize.x,
+			    lpmmi->ptMinTrackSize.x,
-lpmmi->ptMinTrackSize.y));
+			    lpmmi->ptMinTrackSize.y));
-lI = GETLOCALWINDOWINFOPTR(hWnd);
+		lI = GETLOCALWINDOWINFOPTR(hWnd);
-if (lI && (lI->minWidth) && (lI->maxWidth)) {
+		if (lI && (lI->minWidth) && (lI->maxWidth)) {
-lpmmi->ptMaxPosition.x = 0;
+		  lpmmi->ptMaxPosition.x = 0;
-lpmmi->ptMaxPosition.y = 0;
+		  lpmmi->ptMaxPosition.y = 0;
-lpmmi->ptMaxSize.x = lI->currentMonitorWidth;
+		  lpmmi->ptMaxSize.x = lI->currentMonitorWidth;
-lpmmi->ptMaxSize.y = lI->currentMonitorHeight;
+		  lpmmi->ptMaxSize.y = lI->currentMonitorHeight;
 #define MIN(a, b) (a < b ? a : b)
-lpmmi->ptMaxSize.x = MIN(GetSystemMetrics(SM_CXMAXIMIZED), lI->maxWidth);
+		  lpmmi->ptMaxSize.x = MIN(GetSystemMetrics(SM_CXMAXIMIZED), lI->maxWidth);
-lpmmi->ptMaxSize.y = MIN(GetSystemMetrics(SM_CYMAXIMIZED), lI->maxHeight);
+		  lpmmi->ptMaxSize.y = MIN(GetSystemMetrics(SM_CYMAXIMIZED), lI->maxHeight);
-lpmmi->ptMaxTrackSize.x = lI->maxWidth == 0 ? GetSystemMetrics(SM_CXMAXTRACK) : lI->maxWidth;
+		  lpmmi->ptMaxTrackSize.x = lI->maxWidth == 0 ? GetSystemMetrics(SM_CXMAXTRACK) : lI->maxWidth;
-lpmmi->ptMaxTrackSize.y = lI->maxHeight == 0 ? GetSystemMetrics(SM_CYMAXTRACK) : lI->maxHeight;
+		  lpmmi->ptMaxTrackSize.y = lI->maxHeight == 0 ? GetSystemMetrics(SM_CYMAXTRACK) : lI->maxHeight;
-lpmmi->ptMinTrackSize.x = lI->minWidth;
+		  lpmmi->ptMinTrackSize.x = lI->minWidth;
-lpmmi->ptMinTrackSize.y = lI->minHeight;
+		  lpmmi->ptMinTrackSize.y = lI->minHeight;
-EVENT_PRINTF3(("WM_GETMINMAXINFO handle=%x return min: %d/%d max: %d/%d\n",
+		  EVENT_PRINTF3(("WM_GETMINMAXINFO handle=%x return min: %d/%d max: %d/%d\n",
-hWnd,
+				  hWnd,
-lI->minWidth, lI->minHeight,
+				  lI->minWidth, lI->minHeight,
-lI->maxWidth, lI->maxHeight));
+				  lI->maxWidth, lI->maxHeight));
-*pDefault = 0;
+		  *pDefault = 0;
-}
+		}
-}
+	    }
-break;
+	    break;
-case WM_SETCURSOR:
+	case WM_SETCURSOR:
-{
+	    {
-HCURSOR curs;
+		HCURSOR curs;
-int hitCode;
+		int hitCode;
-hitCode = LOWORD(lParam);
+		hitCode = LOWORD(lParam);
-if (hitCode != HTCLIENT) {
+		if (hitCode != HTCLIENT) {
-/*
+		    /*
-* not in client area ...
+		     * not in client area ...
-*/
+		     */
-return 0;
+		    return 0;
-}
+		}
-DPRINTFIF(__debug_WM_SETCURSOR__ , ("WM_SETCURSOR\n"));
+		DPRINTFIF(__debug_WM_SETCURSOR__ , ("WM_SETCURSOR\n"));
-curs = GetWindow_Cursor(hWnd);
+		curs = GetWindow_Cursor(hWnd);
-if (curs) {
+		if (curs) {
-SetCursor(curs);
+		    SetCursor(curs);
-*pDefault = 0;
+		    *pDefault = 0;
-return 1;
+		    return 1;
-}
+		}
-}
+	    }
-return 0;
+	    return 0;
-case WM_WINDOWPOSCHANGED:
+	case WM_WINDOWPOSCHANGED:
 #ifndef PRE_13_APR_04_POSCHANGED_IN_EXITSIZEMOVE
-if (inMove) {
+	    if (inMove) {
-*pDefault = 0;
+		*pDefault = 0;
-return 0;
+		return 0;
-}
+	    }
 #endif
-if (hWnd == __rootWinSpezial) {
+	    if (hWnd == __rootWinSpezial) {
-/* can this happen ? */
+		/* can this happen ? */
-*pDefault = 1;
+		*pDefault = 1;
-return 0;
+		return 0;
-}
+	    }
-if (! inMove && (__currentCapture == CAPTURE_NONE)) {
+	    if (! inMove && (__currentCapture == CAPTURE_NONE)) {
-POINT p;
+		POINT p;
-HWND hWndChild,hWndTemp;
+		HWND hWndChild,hWndTemp;
-p.x = evRootX;
+		p.x = evRootX;
-p.y = evRootY;
+		p.y = evRootY;
-ScreenToClient(hWnd, &p);
+		ScreenToClient(hWnd, &p);
-hWndChild = hWnd; //hWndChild = ChildWindowFromPoint(hWnd,p);
+		hWndChild = hWnd; //hWndChild = ChildWindowFromPoint(hWnd,p);
-do {
+		do {
-hWndTemp = hWndChild;
+		    hWndTemp = hWndChild;
-hWndChild = ChildWindowFromPointEx(hWndTemp,p,CWP_SKIPINVISIBLE|CWP_SKIPDISABLED|CWP_SKIPTRANSPARENT);
+		    hWndChild = ChildWindowFromPointEx(hWndTemp,p,CWP_SKIPINVISIBLE|CWP_SKIPDISABLED|CWP_SKIPTRANSPARENT);
-} while ((hWndChild) && (hWndChild != hWndTemp));
+		} while ((hWndChild) && (hWndChild != hWndTemp));
-if (hWndChild /*&& (hWndChild != hWnd)*/) {
+		if (hWndChild /*&& (hWndChild != hWnd)*/) {
-if (hWndChild != __currentPointerView) {
+		    if (hWndChild != __currentPointerView) {
-int modifiers = getModifiers();
+			int modifiers = getModifiers();
-if (__currentPointerView) {
+			if (__currentPointerView) {
-if (inSizeMove) {
+			    if (inSizeMove) {
-if (needDelayedMouseLeaveWindow == NULL) {
+				if (needDelayedMouseLeaveWindow == NULL) {
-needDelayedMouseLeaveWindow = __currentPointerView;
+				    needDelayedMouseLeaveWindow = __currentPointerView;
-}
+				}
-} else {
+			    } else {
-if (GetWindow_eventMask(__currentPointerView) & LeaveWindowMask) {
+				if (GetWindow_eventMask(__currentPointerView) & LeaveWindowMask) {
-enqEvent(LeaveWindowMask, __currentPointerView, __WM_MOUSELEAVE, 0, -1, -1, 0, modifiers, EV_NOTIME);
+				    enqEvent(LeaveWindowMask, __currentPointerView, __WM_MOUSELEAVE, 0, -1, -1, 0, modifiers, EV_NOTIME);
-SetWindow_mouseXY(__currentPointerView, -9999, -9999);
+				    SetWindow_mouseXY(__currentPointerView, -9999, -9999);
-}
+				}
-}
+			    }
-__currentPointerView = 0;
+			    __currentPointerView = 0;
-}
+			}
-if (inSizeMove) {
+			if (inSizeMove) {
-needDelayedMouseEnterWindow = hWndChild;
+			    needDelayedMouseEnterWindow = hWndChild;
-delayedMouseEnterX = evRootX;
+			    delayedMouseEnterX = evRootX;
-delayedMouseEnterY = evRootY;
+			    delayedMouseEnterY = evRootY;
-} else {
+			} else {
-if (GetWindow_eventMask(hWndChild) & EnterWindowMask) {
+			    if (GetWindow_eventMask(hWndChild) & EnterWindowMask) {
-enqEvent(EnterWindowMask, hWndChild, __WM_MOUSEENTER, 0, evRootX, evRootY, 0, modifiers, EV_NOTIME);
+				enqEvent(EnterWindowMask, hWndChild, __WM_MOUSEENTER, 0, evRootX, evRootY, 0, modifiers, EV_NOTIME);
-SetWindow_mouseXY(hWndChild, evRootX, evRootY);
+				SetWindow_mouseXY(hWndChild, evRootX, evRootY);
-}
+			    }
-// SetFocus(hWndChild);
+			    // SetFocus(hWndChild);
-}
+			}
-__currentPointerView = hWndChild;
+			__currentPointerView = hWndChild;
-}
+		    }
-}
+		}
-}
+	    }
-/*
+	    /*
-* ignore child window messages ...
+	     * ignore child window messages ...
-*/
+	     */
-if (GetParent(hWnd) != NULL) {
+	    if (GetParent(hWnd) != NULL) {
-break;
+		break;
-}
+	    }
-{
+	    {
-WINDOWPOS *wp = (WINDOWPOS *)lParam;
+		WINDOWPOS *wp = (WINDOWPOS *)lParam;
-RECT rct, dRect;
+		RECT rct, dRect;
-int x, y, w, h;
+		int x, y, w, h;
-int dW, dH;
+		int dW, dH;
 #if 0
-dRect.left = 0;
+		dRect.left = 0;
-dRect.top = 0;
+		dRect.top = 0;
-dRect.right = 100;
+		dRect.right = 100;
-dRect.bottom = 100;
+		dRect.bottom = 100;
-winStyleBits = GetWindowLong(hWnd, GWL_STYLE);
+		winStyleBits = GetWindowLong(hWnd, GWL_STYLE);
-winExStyleBits = GetWindowLong(hWnd, GWL_EXSTYLE);
+		winExStyleBits = GetWindowLong(hWnd, GWL_EXSTYLE);
-AdjustWindowRectEx(&dRect, winStyleBits, 0, winExStyleBits);
+		AdjustWindowRectEx(&dRect, winStyleBits, 0, winExStyleBits);
-dW = dRect.right - dRect.left;
+		dW = dRect.right - dRect.left;
-dH = dRect.bottom - dRect.top;
+		dH = dRect.bottom - dRect.top;
 #endif
-GetClientRect(hWnd, &rct);
+		GetClientRect(hWnd, &rct);
-x = rct.left;
+		x = rct.left;
-y = rct.top;
+		y = rct.top;
-w = rct.right - rct.left;
+		w = rct.right - rct.left;
-h = rct.bottom - rct.top;
+		h = rct.bottom - rct.top;
-if (__debug__) {
+		if (__debug__) {
-EVENT_PRINTF(("WM_WINDOWPOSCHANGED ["));
+		    EVENT_PRINTF(("WM_WINDOWPOSCHANGED ["));
-if (wp->flags & SWP_NOSIZE) {
+		    if (wp->flags & SWP_NOSIZE) {
-EVENT_PRINTF(("NOSIZE "));
+			EVENT_PRINTF(("NOSIZE "));
-}
+		    }
-if (wp->flags & SWP_NOMOVE) {
+		    if (wp->flags & SWP_NOMOVE) {
-EVENT_PRINTF(("NOMOVE "));
+			EVENT_PRINTF(("NOMOVE "));
-}
+		    }
-if (wp->flags & SWP_NOZORDER) {
+		    if (wp->flags & SWP_NOZORDER) {
-EVENT_PRINTF(("NOZORDER "));
+			EVENT_PRINTF(("NOZORDER "));
-}
+		    }
-if (wp->flags & SWP_NOREDRAW) {
+		    if (wp->flags & SWP_NOREDRAW) {
-EVENT_PRINTF(("NOREDRAW "));
+			EVENT_PRINTF(("NOREDRAW "));
-}
+		    }
-if (wp->flags & SWP_NOACTIVATE) {
+		    if (wp->flags & SWP_NOACTIVATE) {
-EVENT_PRINTF(("NOACTIVATE "));
+			EVENT_PRINTF(("NOACTIVATE "));
-}
+		    }
-if (wp->flags & SWP_FRAMECHANGED) {
+		    if (wp->flags & SWP_FRAMECHANGED) {
-EVENT_PRINTF(("FRAMECHANGED "));
+			EVENT_PRINTF(("FRAMECHANGED "));
-}
+		    }
-if (wp->flags & SWP_NOCOPYBITS) {
+		    if (wp->flags & SWP_NOCOPYBITS) {
-EVENT_PRINTF(("NOCOPYBITS "));
+			EVENT_PRINTF(("NOCOPYBITS "));
-}
+		    }
-if (wp->flags & SWP_NOOWNERZORDER) {
+		    if (wp->flags & SWP_NOOWNERZORDER) {
-EVENT_PRINTF(("NOOWNERZORDER "));
+			EVENT_PRINTF(("NOOWNERZORDER "));
-}
+		    }
-if (wp->flags & SWP_NOSENDCHANGING) {
+		    if (wp->flags & SWP_NOSENDCHANGING) {
-EVENT_PRINTF(("NOSENDCHANGING "));
+			EVENT_PRINTF(("NOSENDCHANGING "));
-}
+		    }
-if (wp->flags & SWP_DEFERERASE) {
+		    if (wp->flags & SWP_DEFERERASE) {
-EVENT_PRINTF(("DEFERERASE "));
+			EVENT_PRINTF(("DEFERERASE "));
-}
+		    }
-if (wp->flags & SWP_ASYNCWINDOWPOS) {
+		    if (wp->flags & SWP_ASYNCWINDOWPOS) {
-EVENT_PRINTF(("ASYNCWINDOWPOS "));
+			EVENT_PRINTF(("ASYNCWINDOWPOS "));
-}
+		    }
-if (wp->flags & SWP_HIDEWINDOW) {
+		    if (wp->flags & SWP_HIDEWINDOW) {
-EVENT_PRINTF(("HIDEWINDOW "));
+			EVENT_PRINTF(("HIDEWINDOW "));
-}
+		    }
-if (wp->flags & SWP_SHOWWINDOW) {
+		    if (wp->flags & SWP_SHOWWINDOW) {
-EVENT_PRINTF(("SHOWWINDOW "));
+			EVENT_PRINTF(("SHOWWINDOW "));
-}
+		    }
-EVENT_PRINTF(("] %d/%d %d/%d flags:%d (0x%x) ->",
+		    EVENT_PRINTF(("] %d/%d %d/%d flags:%d (0x%x) ->",
-wp->x, wp->y, wp->cx, wp->cy, wp->flags, wp->flags));
+				wp->x, wp->y, wp->cx, wp->cy, wp->flags, wp->flags));
-EVENT_PRINTF(("  client rect now: %d/%d %d/%d\n",x, y, w, h));
+		    EVENT_PRINTF(("  client rect now: %d/%d %d/%d\n",x, y, w, h));
-} /* __debug__ */
+		} /* __debug__ */
 #ifdef THIS_IS_WRONG
-if (!(wp->flags & SWP_NOSIZE)) {
+		if (!(wp->flags & SWP_NOSIZE)) {
-EVENT_PRINTF(("w,h: %d/%d vs. %d/%d\n", wp->cx, wp->cy, w, h));
+		    EVENT_PRINTF(("w,h: %d/%d vs. %d/%d\n", wp->cx, wp->cy, w, h));
-w = wp->cx;
+		    w = wp->cx;
-h = wp->cy;
+		    h = wp->cy;
-}
+		}
-if (!(wp->flags & SWP_NOMOVE)) {
+		if (!(wp->flags & SWP_NOMOVE)) {
-EVENT_PRINTF(("x,y: %d/%d vs. %d/%d\n", wp->x, wp->y, x, y));
+		    EVENT_PRINTF(("x,y: %d/%d vs. %d/%d\n", wp->x, wp->y, x, y));
-x = wp->x;
+		    x = wp->x;
-y = wp->y;
+		    y = wp->y;
-}
+		}
 #endif
-lastPos_win = 0;
+		lastPos_win = 0;
-if ((w == 0) && (h == 0)) {
+		if ((w == 0) && (h == 0)) {
-EVENT_PRINTF(("w,h = 0.\n"));
+		    EVENT_PRINTF(("w,h = 0.\n"));
-if (! GetWindow_iconified(hWnd)) {
+		    if (! GetWindow_iconified(hWnd)) {
-EVENT_PRINTF(("iconified.\n"));
+			EVENT_PRINTF(("iconified.\n"));
-SetWindow_iconified(hWnd, 1);
+			SetWindow_iconified(hWnd, 1);
-DPRINTF(("WM_WINDOWPOSCHANGED to iconified (flags:0x%x)\n", wp->flags));
+			DPRINTF(("WM_WINDOWPOSCHANGED to iconified (flags:0x%x)\n", wp->flags));
-enqEvent(0, hWnd, __WM_ICONIFIED, 1, 0, 0, 0, 0, EV_NOTIME);
+			enqEvent(0, hWnd, __WM_ICONIFIED, 1, 0, 0, 0, 0, EV_NOTIME);
-}
+		    }
-} else {
+		} else {
-if (GetWindow_iconified(hWnd)) {
+		    if (GetWindow_iconified(hWnd)) {
-EVENT_PRINTF(("deiconified.\n"));
+			EVENT_PRINTF(("deiconified.\n"));
-SetWindow_iconified(hWnd, 0);
+			SetWindow_iconified(hWnd, 0);
-DPRINTF(("WM_WINDOWPOSCHANGED to deiconified (flags:0x%x)\n", wp->flags));
+			DPRINTF(("WM_WINDOWPOSCHANGED to deiconified (flags:0x%x)\n", wp->flags));
-enqEvent(0, hWnd, __WM_ICONIFIED, 0, 0, 0, 0, 0, EV_NOTIME);
+			enqEvent(0, hWnd, __WM_ICONIFIED, 0, 0, 0, 0, 0, EV_NOTIME);
-}
+		    }
-if (!(wp->flags & SWP_NOSIZE)
+		    if (!(wp->flags & SWP_NOSIZE)
-|| !(wp->flags & SWP_NOMOVE)) {
+		     || !(wp->flags & SWP_NOMOVE)) {
-EVENT_PRINTF(("enq event %x: %d, %d, %d, %d\n", hWnd, x, y, w, h));
+			EVENT_PRINTF(("enq event %x: %d, %d, %d, %d\n", hWnd, x, y, w, h));
 #ifdef COMPRESS_WINDOWPOSCHANGED
-/*
+			/*
-* remember the current
+			 * remember the current
-* window and size;
+			 * window and size;
-* This allows the backend to ignore
+			 * This allows the backend to ignore
-* intermediate events.
+			 * intermediate events.
-*/
+			 */
-lastPos_w = w;
+			lastPos_w = w;
-lastPos_h = h;
+			lastPos_h = h;
-lastPos_x = x;
+			lastPos_x = x;
-lastPos_y = y;
+			lastPos_y = y;
-lastPos_win = hWnd;
+			lastPos_win = hWnd;
 #endif
-enqEvent(0, hWnd, WM_WINDOWPOSCHANGED, 0, x, y, w, h, EV_NOTIME);
+			enqEvent(0, hWnd, WM_WINDOWPOSCHANGED, 0, x, y, w, h, EV_NOTIME);
-} else {
+		    } else {
-EVENT_PRINTF(("no event due to SWP_NOSIZE/SWP_NOMOVE.\n"));
+			EVENT_PRINTF(("no event due to SWP_NOSIZE/SWP_NOMOVE.\n"));
-}
+		    }
-}
+		}
-}
+	    }
-*pDefault = 0;
+	    *pDefault = 0;
-return 0;
+	    return 0;
-case WM_ERASEBKGND:
+	case WM_ERASEBKGND:
-DPRINTFIF(__debug_WM_ERASEBKGND__ , ("WM_ERASEBKGND\n"));
+	    DPRINTFIF(__debug_WM_ERASEBKGND__ , ("WM_ERASEBKGND\n"));
-if (isNative) {
+	    if (isNative) {
-NDPRINTF(("WM_ERASEBKGND for native - default handling\n"));
+		NDPRINTF(("WM_ERASEBKGND for native - default handling\n"));
-return 0;
+		return 0;
-}
+	    }
 #ifndef PRE_21_NOV
-*pDefault = 0;
+	    *pDefault = 0;
-return 0;
+	    return 0;
 #else
-if (GetWindow_flag(hWnd) & LI_INPUTWIN) {
+	    if (GetWindow_flag(hWnd) & LI_INPUTWIN) {
-*pDefault = 0;
+		*pDefault = 0;
-return 0;
+		return 0;
-}
+	    }
-if (hWnd == __rootWinSpezial) {
+	    if (hWnd == __rootWinSpezial) {
-*pDefault = 0;
+		*pDefault = 0;
-return 0;
+		return 0;
-}
+	    }
-/* THIS_WORKS */
+	    /* THIS_WORKS */
-*pDefault = 0;
+	    *pDefault = 0;
-return 0;
+	    return 0;
 #endif  /* ! PRE_21_NOV */
-case WM_PAINT:
+	case WM_PAINT:
-DPRINTFIF(__debug_WM_PAINT__ , ("WM_PAINT ********************* "));
+	    DPRINTFIF(__debug_WM_PAINT__ , ("WM_PAINT ********************* "));
-if (isNative) {
+	    if (isNative) {
-NDPRINTF(("WM_PAINT for native - default handling\n"));
+		NDPRINTF(("WM_PAINT for native - default handling\n"));
-return 0;
+		return 0;
-}
+	    }
 #ifndef PRE_21_NOV
-{   int n;
+	    {   int n;
-n = __generateExposes( hWnd, NULL, WM_PAINT, 0 );
+		n = __generateExposes( hWnd, NULL, WM_PAINT, 0 );
-if( n <= 0 ) {
+		if( n <= 0 ) {
-* pDefault = 1;
+		    * pDefault = 1;
-return 0;
+		    return 0;
-}
+		}
-* pDefault = 0;
+		* pDefault = 0;
-return n;
+		return n;
-}
+	    }
 #else
-if (GetWindow_flag(hWnd) & LI_INPUTWIN) {
+	    if (GetWindow_flag(hWnd) & LI_INPUTWIN) {
-*pDefault = 0;
+		*pDefault = 0;
-return 0;
+		return 0;
-}
+	    }
-if (hWnd == __rootWinSpezial) {
+	    if (hWnd == __rootWinSpezial) {
 # ifdef THIS_MAKES_GUI_PAINTER_START_SLOW
-*pDefault = 0;
+		*pDefault = 0;
 # endif
-return 0;
+		return 0;
-}
+	    }
-{
+	    {
-int retVal;
+		int retVal;
 # ifdef LATE_GENERATE_EXPOSE
-enqEvent(0, hWnd, __WM_PAINT, 0, 0, 0, 0, 0, EV_NOTIME);
+		enqEvent(0, hWnd, __WM_PAINT, 0, 0, 0, 0, 0, EV_NOTIME);
 # else
-AQUIRE_DRAW_MUTEX
+		AQUIRE_DRAW_MUTEX
-retVal = __generateExposes(hWnd, NULL, WM_PAINT, WM_PAINT_CLEAR_EARLY);
+		retVal = __generateExposes(hWnd, NULL, WM_PAINT, WM_PAINT_CLEAR_EARLY);
-RELEASE_DRAW_MUTEX
+		RELEASE_DRAW_MUTEX
 # endif
-switch (retVal) {
+		switch (retVal) {
-case -1:  /* error */
+		    case -1:  /* error */
-*pDefault = 0;
+			*pDefault = 0;
-break;
+			break;
-case 0:   /* nothing generated */
+		    case 0:   /* nothing generated */
-default:  /* generated events */
+		    default:  /* generated events */
-break;
+			break;
-}
+		}
 # ifdef THIS_IS_BAD
-*pDefault = 0;
+		*pDefault = 0;
-return 1;
+		return 1;
 # endif
-}
+	    }
-return 0;
+	    return 0;
 #endif  /* ! PRE_21_NOV */
-case WM_SIZE:
+	case WM_SIZE:
-DPRINTFIF(__debug_WM_SIZE__ , ("WM_SIZE\n"));
+	    DPRINTFIF(__debug_WM_SIZE__ , ("WM_SIZE\n"));
-lastPos_win = 0;
+	    lastPos_win = 0;
-/*
+	    /*
-* ignore child window messages ...
+	     * ignore child window messages ...
-*/
+	     */
-if (GetParent(hWnd) != NULL) {
+	    if (GetParent(hWnd) != NULL) {
-*pDefault = 0;
+		*pDefault = 0;
-return 0;
+		return 0;
-}
+	    }
-switch (wParam) {
+	    switch (wParam) {
-case SIZE_MAXIMIZED:     /* default handling */
+		case SIZE_MAXIMIZED:     /* default handling */
-case SIZE_MINIMIZED:     /* default handling */
+		case SIZE_MINIMIZED:     /* default handling */
-case SIZE_RESTORED:      /* default handling */
+		case SIZE_RESTORED:      /* default handling */
-{
+		    {
-RECT rct;
+			RECT rct;
-int x, y, w, h;
+			int x, y, w, h;
-GetClientRect(hWnd, &rct);
+			GetClientRect(hWnd, &rct);
-x = rct.left;
+			x = rct.left;
-y = rct.top;
+			y = rct.top;
-w = rct.right - rct.left;
+			w = rct.right - rct.left;
-h = rct.bottom - rct.top;
+			h = rct.bottom - rct.top;
-EVENT_PRINTF(("WM_MIN/MAX/RESTORED\n"));
+			EVENT_PRINTF(("WM_MIN/MAX/RESTORED\n"));
-if ((w == 0) && (h == 0)) {
+			if ((w == 0) && (h == 0)) {
-/*
+			    /*
-* iconified ...
+			     * iconified ...
-*/
+			     */
-if (! GetWindow_iconified(hWnd)) {
+			    if (! GetWindow_iconified(hWnd)) {
-SetWindow_iconified(hWnd, 1);
+				SetWindow_iconified(hWnd, 1);
-enqEvent(0, hWnd, __WM_ICONIFIED, 1, 0, 0, 0, 0, EV_NOTIME);
+				enqEvent(0, hWnd, __WM_ICONIFIED, 1, 0, 0, 0, 0, EV_NOTIME);
-}
+			    }
-} else {
+			} else {
-if (GetWindow_iconified(hWnd)) {
+			    if (GetWindow_iconified(hWnd)) {
-SetWindow_iconified(hWnd, 0);
+				SetWindow_iconified(hWnd, 0);
-enqEvent(0, hWnd, __WM_ICONIFIED, 0, 0, 0, 0, 0, EV_NOTIME);
+				enqEvent(0, hWnd, __WM_ICONIFIED, 0, 0, 0, 0, 0, EV_NOTIME);
-}
+			    }
-EVENT_PRINTF(("enq event2 %x: %d, %d, %d, %d\n", hWnd, x, y, w, h));
+			    EVENT_PRINTF(("enq event2 %x: %d, %d, %d, %d\n", hWnd, x, y, w, h));
 #ifdef COMPRESS_WINDOWPOSCHANGED
-/*
+			    /*
-* remember the current
+			     * remember the current
-* window and size;
+			     * window and size;
-* This allows the backend to ignore
+			     * This allows the backend to ignore
-* intermediate events.
+			     * intermediate events.
-*/
+			     */
-lastPos_w = w;
+			    lastPos_w = w;
-lastPos_h = h;
+			    lastPos_h = h;
-lastPos_x = x;
+			    lastPos_x = x;
-lastPos_y = y;
+			    lastPos_y = y;
-lastPos_win = hWnd;
+			    lastPos_win = hWnd;
 #endif
-enqEvent(0, hWnd, WM_WINDOWPOSCHANGED, 0, x, y, w, h, EV_NOTIME);
+			    enqEvent(0, hWnd, WM_WINDOWPOSCHANGED, 0, x, y, w, h, EV_NOTIME);
-}
+			}
-}
+		   }
-break;
+		   break;
-default:                 /* ignore */
+		default:                 /* ignore */
-*pDefault = 0;
+		    *pDefault = 0;
-return 0;
+		    return 0;
-}
+	    }
-break;
+	    break;
-case WM_DROPFILES:
+	case WM_DROPFILES:
-DPRINTFIF(__debug_WM_DROPFILES__ , ("WM_DROPFILES\n"));
+	    DPRINTFIF(__debug_WM_DROPFILES__ , ("WM_DROPFILES\n"));
-enqEvent(0, hWnd, message, wParam, 0, 0, 0, 0, EV_NOTIME);
+	    enqEvent(0, hWnd, message, wParam, 0, 0, 0, 0, EV_NOTIME);
-break;
+	    break;
-case WM_SHOWWINDOW:
+	case WM_SHOWWINDOW:
-DPRINTFIF(__debug_WM_SHOWWINDOW__ , ("WM_SHOWWINDOW h=%x\n", hWnd));
+	    DPRINTFIF(__debug_WM_SHOWWINDOW__ , ("WM_SHOWWINDOW h=%x\n", hWnd));
-enqEvent(0, hWnd, message, wParam, 0, 0, 0, 0, EV_NOTIME);
+	    enqEvent(0, hWnd, message, wParam, 0, 0, 0, 0, EV_NOTIME);
-if (isNative) {
+	    if (isNative) {
-NDPRINTF(("WM_SHOWWINDOW for native - default handling\n"));
+		NDPRINTF(("WM_SHOWWINDOW for native - default handling\n"));
-return 0;
+		return 0;
-}
+	    }
-*pDefault = 0;
+	    *pDefault = 0;
-break;
+	    break;
-case WM_MOUSEACTIVATE :
+	case WM_MOUSEACTIVATE :
-DPRINTFIF(__debug_WM_MOUSEACTIVATE__ , ("WM_MOUSEACTIVATE h=%x parent=%x\n", hWnd, GetParent(hWnd)));
+	    DPRINTFIF(__debug_WM_MOUSEACTIVATE__ , ("WM_MOUSEACTIVATE h=%x parent=%x\n", hWnd, GetParent(hWnd)));
-/*
+	    /*
-* ignore child window messages ...
+	     * ignore child window messages ...
-*/
+	     */
-if (GetParent(hWnd)) {
+	    if (GetParent(hWnd)) {
-return 0;
+		return 0;
-}
+	    }
-*pDefault = 0;
+	    *pDefault = 0;
-if ((hWnd == __rootWinSpezial) || (hWnd == GetActiveWindow())) {
+	    if ((hWnd == __rootWinSpezial) || (hWnd == GetActiveWindow())) {
-DDPRINTF(("NOACTIVATE (root or already)\n"));
+		DDPRINTF(("NOACTIVATE (root or already)\n"));
-return MA_NOACTIVATE;
+		return MA_NOACTIVATE;
-}
+	    }
-if (LOWORD(lParam) != HTCLIENT) {
+	    if (LOWORD(lParam) != HTCLIENT) {
-DDPRINTF(("ACTIVATE (not client)\n"));
+		DDPRINTF(("ACTIVATE (not client)\n"));
-return MA_ACTIVATE;
+		return MA_ACTIVATE;
-}
+	    }
-if (__activateOnClick) {
+	    if (__activateOnClick) {
-if (__ignoreButtonPressOnActivate) {
+		if (__ignoreButtonPressOnActivate) {
-DDPRINTF(("ACTIVATE_EAT\n"));
+		    DDPRINTF(("ACTIVATE_EAT\n"));
-/*
+		    /*
-* windows is sooo stupid:
+		     * windows is sooo stupid:
-* it will send me a MOTION soon after, with the
+		     * it will send me a MOTION soon after, with the
-* to the click location, with the buttonState down.
+		     * to the click location, with the buttonState down.
-* The app will interpret that as a pressed motion and
+		     * The app will interpret that as a pressed motion and
-* do a selection (if in a textview).
+		     * do a selection (if in a textview).
-* To prevent this, we set a flag here, that the following
+		     * To prevent this, we set a flag here, that the following
-* motion is to be suppressed.
+		     * motion is to be suppressed.
-* Until the mouse is released.
+		     * Until the mouse is released.
-*/
+		     */
-__eatingMouseEvents = 1;
+		    __eatingMouseEvents = 1;
-return MA_ACTIVATEANDEAT;
+		    return MA_ACTIVATEANDEAT;
-}
+		}
-DDPRINTF(("ACTIVATE\n"));
+		DDPRINTF(("ACTIVATE\n"));
-return MA_ACTIVATE;
+		return MA_ACTIVATE;
-}
+	    }
-DDPRINTF(("NO_ACTIVATE\n"));
+	    DDPRINTF(("NO_ACTIVATE\n"));
-return MA_NOACTIVATE;
+	    return MA_NOACTIVATE;
-case WM_NCHITTEST:
+	case WM_NCHITTEST:
-EVENT_PRINTF2(("WM_NCHITTEST\n"));
+	    EVENT_PRINTF2(("WM_NCHITTEST\n"));
-if (hWnd == __rootWinSpezial) {
+	    if (hWnd == __rootWinSpezial) {
-*pDefault = 0;
+		*pDefault = 0;
-return HTCLIENT;
+		return HTCLIENT;
-}
+	    }
-break;
+	    break;
-case WM_NCACTIVATE:
+	case WM_NCACTIVATE:
-EVENT_PRINTF(("WM_NCACTIVATE\n"));
+	    EVENT_PRINTF(("WM_NCACTIVATE\n"));
-break;
+	    break;
-case WM_ACTIVATE:
+	case WM_ACTIVATE:
-CPRINTF(("WM_ACTIVATE %s h=%x\n", LOWORD(wParam) ? "active" : "inactive", hWnd));
+	    CPRINTF(("WM_ACTIVATE %s h=%x\n", LOWORD(wParam) ? "active" : "inactive", hWnd));
-switch (LOWORD(wParam)) {
+	    switch (LOWORD(wParam)) {
-case WA_INACTIVE:
+		case WA_INACTIVE:
-EVENT_PRINTF2(("WM_ACTIVATE inactive h=%x\n", hWnd));
+		    EVENT_PRINTF2(("WM_ACTIVATE inactive h=%x\n", hWnd));
-break;
+		    break;
-case WA_ACTIVE:
+		case WA_ACTIVE:
-EVENT_PRINTF2(("WM_ACTIVATE active h=%x\n", hWnd));
+		    EVENT_PRINTF2(("WM_ACTIVATE active h=%x\n", hWnd));
 #ifdef THIS_DOES_NOT_AVOID_DOUBLE_REPAINTS
-__generateRecursiveExposes(hWnd, WM_PAINT);
+		    __generateRecursiveExposes(hWnd, WM_PAINT);
 #endif /* sigh */
-break;
+		    break;
-case WA_CLICKACTIVE:
+		case WA_CLICKACTIVE:
-EVENT_PRINTF2(("++ WM_ACTIVATE clkactive h=%x\n", hWnd));
+		    EVENT_PRINTF2(("++ WM_ACTIVATE clkactive h=%x\n", hWnd));
-break;
+		    break;
-default:
+		default:
-EVENT_PRINTF2(("WM_ACTIVATE ? h=%x\n", hWnd));
+		    EVENT_PRINTF2(("WM_ACTIVATE ? h=%x\n", hWnd));
-break;
+		    break;
-}
+	    }
 #ifndef PRE_25_NOV_03
-if (__currentCapture == CAPTURE_NONE) {
+	    if (__currentCapture == CAPTURE_NONE) {
-HWND  newHWnd = 0;
+		HWND  newHWnd = 0;
-POINT newPoint;
+		POINT newPoint;
-if (LOWORD(wParam) != WA_INACTIVE) {
+		if (LOWORD(wParam) != WA_INACTIVE) {
-if (MustHandleButtonEvent()) {
+		    if (MustHandleButtonEvent()) {
-newPoint.x = evRootX;
+			newPoint.x = evRootX;
-newPoint.y = evRootY;
+			newPoint.y = evRootY;
-newHWnd = WindowFromPoint (newPoint);
+			newHWnd = WindowFromPoint (newPoint);
-if (newHWnd) {
+			if (newHWnd) {
-if ( (newHWnd == hWnd) || IsChild(hWnd, newHWnd) ) {
+			    if ( (newHWnd == hWnd) || IsChild(hWnd, newHWnd) ) {
-ScreenToClient (newHWnd, & newPoint);
+				ScreenToClient (newHWnd, & newPoint);
-if ((newPoint.x < 0) || (newPoint.y < 0)) {
+				if ((newPoint.x < 0) || (newPoint.y < 0)) {
-newHWnd = 0;
+				    newHWnd = 0;
-}
+				}
-} else {
+			    } else {
-newHWnd = 0;
+				newHWnd = 0;
-}
+			    }
-}
+			}
-}
+		    }
-}
+		}
-CPRINTF(( "Old Handle: %x New Handle: %x  x:%d y:%d\n", __currentPointerView, newHWnd, newPoint.x, newPoint.y));
+		CPRINTF(( "Old Handle: %x New Handle: %x  x:%d y:%d\n", __currentPointerView, newHWnd, newPoint.x, newPoint.y));
-if (newHWnd != __currentPointerView) {
+		if (newHWnd != __currentPointerView) {
-int modifiers = getModifiers();
+		    int modifiers = getModifiers();
-if (__currentPointerView) {
+		    if (__currentPointerView) {
-if (GetWindow_eventMask(__currentPointerView) & LeaveWindowMask) {
+			if (GetWindow_eventMask(__currentPointerView) & LeaveWindowMask) {
-enqEvent(LeaveWindowMask, __currentPointerView, __WM_MOUSELEAVE, 0, -1, -1, 0, modifiers, EV_NOTIME);
+			    enqEvent(LeaveWindowMask, __currentPointerView, __WM_MOUSELEAVE, 0, -1, -1, 0, modifiers, EV_NOTIME);
-SetWindow_mouseXY(__currentPointerView, -9999, -9999);
+			    SetWindow_mouseXY(__currentPointerView, -9999, -9999);
-}
+			}
-}
+		    }
-__currentPointerView = newHWnd;
+		    __currentPointerView = newHWnd;
-if (GetWindow_eventMask(__currentPointerView) & LeaveWindowMask) {
+		    if (GetWindow_eventMask(__currentPointerView) & LeaveWindowMask) {
-enqEvent(EnterWindowMask, __currentPointerView, __WM_MOUSEENTER, 0, newPoint.x, newPoint.y, 0, modifiers, EV_NOTIME);
+			enqEvent(EnterWindowMask, __currentPointerView, __WM_MOUSEENTER, 0, newPoint.x, newPoint.y, 0, modifiers, EV_NOTIME);
-SetWindow_mouseXY(__currentPointerView, newPoint.x, newPoint.y);
+			SetWindow_mouseXY(__currentPointerView, newPoint.x, newPoint.y);
-}
+		    }
-}
+		}
-}
+	    }
 #endif
-enqEvent(0, hWnd, WM_ACTIVATE, wParam, 0, 0, 0, 0, EV_NOTIME);
+	    enqEvent(0, hWnd, WM_ACTIVATE, wParam, 0, 0, 0, 0, EV_NOTIME);
-if (isNative) {
+	    if (isNative) {
-return 0;
+		return 0;
-}
+	    }
-break;
+	    break;
-case WM_HOTKEY:
+	case WM_HOTKEY:
-// console_fprintf(stderr, "winEventProcessing [info]: receive hotkey %x\n",wParam);
+	    // console_fprintf(stderr, "winEventProcessing [info]: receive hotkey %x\n",wParam);
-DPRINTFIF(__debug_WM_KEYUP__ , ("WM_HOTKEY %x\n", wParam));
+	    DPRINTFIF(__debug_WM_KEYUP__ , ("WM_HOTKEY %x\n", wParam));
-{
+	    {
-enqEvent(0, hWnd, WM_HOTKEY, wParam, lParam, 0, 0, 0, evTime);
+		enqEvent(0, hWnd, WM_HOTKEY, wParam, lParam, 0, 0, 0, evTime);
-}
+	    }
-break;
+	    break;
-case WM_SYSCHAR:
+	case WM_SYSCHAR:
-EVENT_PRINTF2(("WM_SYSCHAR h=%x %x\n", hWnd, wParam));
+	    EVENT_PRINTF2(("WM_SYSCHAR h=%x %x\n", hWnd, wParam));
-goto commonChar;
+	    goto commonChar;
 #ifdef WM_UNICHAR
-/* does not work, anyway */
+	/* does not work, anyway */
-case WM_UNICHAR:
+	case WM_UNICHAR:
-DPRINTFIF(__debug_WM_CHAR__ , ("WM_UNICHAR h=%x %x\n", hWnd, wParam));
+	    DPRINTFIF(__debug_WM_CHAR__ , ("WM_UNICHAR h=%x %x\n", hWnd, wParam));
-if (wParam == UNICODE_NOCHAR) {
+	    if (wParam == UNICODE_NOCHAR) {
-/* this is a query from windows to see if I am able to receive unicode... */
+		/* this is a query from windows to see if I am able to receive unicode... */
-*pDefault = 0;
+		*pDefault = 0;
-return 1;
+		return 1;
-}
+	    }
-goto commonChar;
+	    goto commonChar;
 #endif
-case WM_CHAR:
+	case WM_CHAR:
-DPRINTFIF(__debug_WM_CHAR__ , ("WM_CHAR h=%x %x\n", hWnd, wParam));
+	    DPRINTFIF(__debug_WM_CHAR__ , ("WM_CHAR h=%x %x\n", hWnd, wParam));
 #if 0
-EVENT_PRINTF2(("WM_CHAR h=%x %x\n", hWnd, wParam));
+	    EVENT_PRINTF2(("WM_CHAR h=%x %x\n", hWnd, wParam));
 #endif
-commonChar:
+	commonChar:
-if (isNative) {
+	    if (isNative) {
-NDPRINTF(("WM_CHAR for native - default handling\n"));
+		NDPRINTF(("WM_CHAR for native - default handling\n"));
-return 0;
+		return 0;
-}
+	    }
-{
+	    {
-HWND destWindow;
+		HWND destWindow;
-int evMask;
+		int evMask;
-if (__focusFollowsMouse) {
+		if (__focusFollowsMouse) {
-destWindow = __currentPointerView;
+		    destWindow = __currentPointerView;
-if (destWindow == 0) {
+		    if (destWindow == 0) {
-destWindow = hWnd;
+			destWindow = hWnd;
-}
+		    }
-} else {
+		} else {
-destWindow = hWnd;
+		    destWindow = hWnd;
-}
+		}
-evMask = GetWindow_eventMask(destWindow);
+		evMask = GetWindow_eventMask(destWindow);
-if (evMask & (KeyPressMask | KeyReleaseMask)) {
+		if (evMask & (KeyPressMask | KeyReleaseMask)) {
-POINT p;
+		    POINT p;
-int modifiers = getModifiers();
+		    int modifiers = getModifiers();
-p.x = evRootX;
+		    p.x = evRootX;
-p.y = evRootY;
+		    p.y = evRootY;
-ScreenToClient(destWindow, &p);
+		    ScreenToClient(destWindow, &p);
-x = p.x;
+		    x = p.x;
-y = p.y;
+		    y = p.y;
-DPRINTFIF(__debug_WM_CHAR__ , ("key:%x modifiers: %x\n", wParam, modifiers));
+		    DPRINTFIF(__debug_WM_CHAR__ , ("key:%x modifiers: %x\n", wParam, modifiers));
-if (evMask & KeyPressMask)
+		    if (evMask & KeyPressMask)
-enqEvent(KeyPressMask, destWindow, WM_KEYDOWN, wParam, x, y, lParam, (modifiers | TRANSLATED_KEY), evTime);
+			enqEvent(KeyPressMask, destWindow, WM_KEYDOWN, wParam, x, y, lParam, (modifiers | TRANSLATED_KEY), evTime);
-if (evMask & KeyReleaseMask)
+		    if (evMask & KeyReleaseMask)
-enqEvent(KeyReleaseMask, destWindow, WM_KEYUP, wParam, x, y, lParam, (modifiers | TRANSLATED_KEY), evTime);
+			enqEvent(KeyReleaseMask, destWindow, WM_KEYUP, wParam, x, y, lParam, (modifiers | TRANSLATED_KEY), evTime);
-}
+		}
-}
+	    }
-*pDefault = 0;
+	    *pDefault = 0;
-return 0;
+	    return 0;
-case WM_KEYUP:
+	case WM_KEYUP:
-DPRINTFIF(__debug_WM_KEYUP__ , ("WM_KEYUP h=%x %x\n", hWnd, wParam));
+	    DPRINTFIF(__debug_WM_KEYUP__ , ("WM_KEYUP h=%x %x\n", hWnd, wParam));
-goto commonKeyUp;
+	    goto commonKeyUp;
-case WM_SYSKEYUP:
+	case WM_SYSKEYUP:
-DPRINTFIF(__debug_WM_KEYUP__ , ("WM_SYSKEYUP %x\n, wParam"));
+	    DPRINTFIF(__debug_WM_KEYUP__ , ("WM_SYSKEYUP %x\n, wParam"));
-commonKeyUp:
+	commonKeyUp:
-if (isNative) {
+	    if (isNative) {
-NDPRINTF(("WM_KEYUP/WM_SYSKEYUP for native - default handling\n"));
+		NDPRINTF(("WM_KEYUP/WM_SYSKEYUP for native - default handling\n"));
-return 0;
+		return 0;
-}
+	    }
-{
+	    {
-HWND destWindow;
+		HWND destWindow;
-if (__focusFollowsMouse) {
+		if (__focusFollowsMouse) {
-destWindow = __currentPointerView;
+		    destWindow = __currentPointerView;
-if (destWindow == 0) {
+		    if (destWindow == 0) {
-destWindow = hWnd;
+			destWindow = hWnd;
-}
+		    }
-} else {
+		} else {
-destWindow = hWnd;
+		    destWindow = hWnd;
-}
+		}
-if (GetWindow_eventMask(destWindow) & KeyReleaseMask) {
+		if (GetWindow_eventMask(destWindow) & KeyReleaseMask) {
-POINT p;
+		    POINT p;
-p.x = evRootX;
+		    p.x = evRootX;
-p.y = evRootY;
+		    p.y = evRootY;
-ScreenToClient(destWindow, &p);
+		    ScreenToClient(destWindow, &p);
-x = p.x;
+		    x = p.x;
-y = p.y;
+		    y = p.y;
-enqEvent(KeyReleaseMask, destWindow, message, wParam, x, y, lParam, getModifiers(), evTime);
+		    enqEvent(KeyReleaseMask, destWindow, message, wParam, x, y, lParam, getModifiers(), evTime);
-}
+		}
-}
+	    }
-*pDefault = 0;
+	    *pDefault = 0;
-return 0;
+	    return 0;
-case WM_SYSKEYDOWN:
+	case WM_SYSKEYDOWN:
-DPRINTFIF(__debug_WM_KEYDOWN__ , ("WM_SYSKEYDOWN %x\n, wParam"));
+	    DPRINTFIF(__debug_WM_KEYDOWN__ , ("WM_SYSKEYDOWN %x\n, wParam"));
-goto commonKey;
+	    goto commonKey;
-case WM_KEYDOWN:
+	case WM_KEYDOWN:
-DPRINTFIF(__debug_WM_KEYDOWN__ , ("WM_KEYDOWN h=%x %x\n", hWnd, wParam));
+	    DPRINTFIF(__debug_WM_KEYDOWN__ , ("WM_KEYDOWN h=%x %x\n", hWnd, wParam));
-commonKey:
+	commonKey:
-if (isNative) {
+	    if (isNative) {
-NDPRINTF(("WM_KEYDOWN/WM_SYSKEYDOWN for native - default handling\n"));
+		NDPRINTF(("WM_KEYDOWN/WM_SYSKEYDOWN for native - default handling\n"));
-return 0;
+		return 0;
-}
+	    }
 #ifdef EXIT_WITH_3_CTRL_Cs
-if ((msg.wParam == 'c')
+	    if ((msg.wParam == 'c')
-&& (GetKeyState(VK_CONTROL) & 0x8000)) {
+	     && (GetKeyState(VK_CONTROL) & 0x8000)) {
-/* CTRL-C */
+		/* CTRL-C */
-if (ctrl_c_count++ > 3)  /* for debugging */
+		if (ctrl_c_count++ > 3)  /* for debugging */
-exit(1);
+		    exit(1);
-} else {
+	    } else {
-if (msg.wParam != VK_CONTROL)
+		if (msg.wParam != VK_CONTROL)
-ctrl_c_count = 0;
+		    ctrl_c_count = 0;
-}
+	    }
 #endif
 #ifdef RELEASE_CAPTURE_WITH_3_ESCAPEs
-if (msg.wParam == VK_ESCAPE)) {
+	    if (msg.wParam == VK_ESCAPE)) {
-/* ESCAPE */
+		/* ESCAPE */
-if (escape_count++ > 3) {
+		if (escape_count++ > 3) {
-__currentCapture = CAPTURE_NONE;
+		    __currentCapture = CAPTURE_NONE;
-ReleaseCapture();
+		    ReleaseCapture();
-CPRINTF(("ReleaseCapture <ESC>\n"));
+		    CPRINTF(("ReleaseCapture <ESC>\n"));
-}
+		}
-} else {
+	    } else {
-escape_count = 0;
+		escape_count = 0;
-}
+	    }
 #endif
-/* FALL INTO */
+	    /* FALL INTO */
-{
+	    {
-HWND destWindow;
+		HWND destWindow;
-if (__focusFollowsMouse) {
+		if (__focusFollowsMouse) {
-destWindow = __currentPointerView;
+		    destWindow = __currentPointerView;
-if (destWindow == 0) {
+		    if (destWindow == 0) {
-destWindow = hWnd;
+			destWindow = hWnd;
-}
+		    }
-} else {
+		} else {
-destWindow = hWnd;
+		    destWindow = hWnd;
-}
+		}
-if (GetWindow_eventMask(destWindow) & KeyPressMask) {
+		if (GetWindow_eventMask(destWindow) & KeyPressMask) {
-POINT p;
+		    POINT p;
-p.x = evRootX;
+		    p.x = evRootX;
-p.y = evRootY;
+		    p.y = evRootY;
-ScreenToClient(destWindow, &p);
+		    ScreenToClient(destWindow, &p);
-x = p.x;
+		    x = p.x;
-y = p.y;
+		    y = p.y;
-enqEvent(KeyPressMask, destWindow, message, wParam, x, y, lParam, getModifiers(), evTime);
+		    enqEvent(KeyPressMask, destWindow, message, wParam, x, y, lParam, getModifiers(), evTime);
-}
+		}
-}
+	    }
-*pDefault = 0;
+	    *pDefault = 0;
-return 0;
+	    return 0;
 #ifdef WM_MOUSEWHEEL
-case WM_MOUSEWHEEL:
+	case WM_MOUSEWHEEL:
-{
+	    {
-HWND destWindow;
+		HWND destWindow;
-if (__focusFollowsMouse) {
+		if (__focusFollowsMouse) {
-destWindow = __currentPointerView;
+		    destWindow = __currentPointerView;
-if (destWindow == 0) {
+		    if (destWindow == 0) {
-destWindow = hWnd;
+			destWindow = hWnd;
-}
+		    }
-} else {
+		} else {
-destWindow = hWnd;
+		    destWindow = hWnd;
-}
+		}
-EVENT_PRINTF(("WM_MOUSEWHEEL h=%x wP=%x lP=%x\n", hWnd, wParam, lParam));
+		EVENT_PRINTF(("WM_MOUSEWHEEL h=%x wP=%x lP=%x\n", hWnd, wParam, lParam));
-if (GetWindow_eventMask(destWindow) & KeyPressMask) {
+		if (GetWindow_eventMask(destWindow) & KeyPressMask) {
-POINT p;
+		    POINT p;
-int delta;
+		    int delta;
-p.x = evRootX;
+		    p.x = evRootX;
-p.y = evRootY;
+		    p.y = evRootY;
-ScreenToClient(destWindow, &p);
+		    ScreenToClient(destWindow, &p);
-x = p.x;
+		    x = p.x;
-y = p.y;
+		    y = p.y;
-delta = evTime - lastMouseWheelTime;
+		    delta = evTime - lastMouseWheelTime;
-if (evTime < lastMouseWheelTime) {
+		    if (evTime < lastMouseWheelTime) {
-delta = (0xFFFFFFFF - lastMouseWheelTime) + evTime;
+			delta = (0xFFFFFFFF - lastMouseWheelTime) + evTime;
-}
+		    }
-enqEvent(0, destWindow, message, wParam, x, y, lParam, getModifiers(), delta);
+		    enqEvent(0, destWindow, message, wParam, x, y, lParam, getModifiers(), delta);
-}
+		}
-lastMouseWheelTime = evTime;
+		lastMouseWheelTime = evTime;
-}
+	    }
-*pDefault = 0;
+	    *pDefault = 0;
-return 0;
+	    return 0;
 #endif
-case WM_MOUSEMOVE:
+	case WM_MOUSEMOVE:
-DPRINTFIF(__debug_WM_MOUSEMOVE__ , ("WM_MOUSEMOVE h=%x\n", hWnd));
+	    DPRINTFIF(__debug_WM_MOUSEMOVE__ , ("WM_MOUSEMOVE h=%x\n", hWnd));
-if (isNative) {
+	    if (isNative) {
-NDPRINTF(("WM_MOUSEMOVE for native - default handling\n"));
+		NDPRINTF(("WM_MOUSEMOVE for native - default handling\n"));
-return 0;
+		return 0;
-}
+	    }
-if (hWnd != __currentPointerView) {
+	    if (hWnd != __currentPointerView) {
-if (! MustHandleButtonEvent()) {
+		if (! MustHandleButtonEvent()) {
-*pDefault = 0;
+		    *pDefault = 0;
-return 0;
+		    return 0;
-}
+		}
-}
+	    }
-{
+	    {
-short x, y;
+		short x, y;
-int modifiers = getModifiers();
+		int modifiers = getModifiers();
-x = (int)(short)LOWORD(lParam);
+		x = (int)(short)LOWORD(lParam);
-y = (int)(short)HIWORD(lParam);
+		y = (int)(short)HIWORD(lParam);
-if (__currentCapture == CAPTURE_NONE) {
+		if (__currentCapture == CAPTURE_NONE) {
-if (hWnd != __currentPointerView) {
+		    if (hWnd != __currentPointerView) {
-HWND prevPointerView;
+			HWND prevPointerView;
-prevPointerView = __currentPointerView;
+			prevPointerView = __currentPointerView;
-if (prevPointerView) {
+			if (prevPointerView) {
-if (inSizeMove) {
+			    if (inSizeMove) {
-if (needDelayedMouseLeaveWindow == NULL) {
+				if (needDelayedMouseLeaveWindow == NULL) {
-needDelayedMouseLeaveWindow = __currentPointerView;
+				    needDelayedMouseLeaveWindow = __currentPointerView;
-}
+				}
-} else {
+			    } else {
-if (GetWindow_eventMask(__currentPointerView) & LeaveWindowMask) {
+				if (GetWindow_eventMask(__currentPointerView) & LeaveWindowMask) {
-enqEvent(LeaveWindowMask, __currentPointerView, __WM_MOUSELEAVE, 0, -1, -1, 0, modifiers, evTime);
+				    enqEvent(LeaveWindowMask, __currentPointerView, __WM_MOUSELEAVE, 0, -1, -1, 0, modifiers, evTime);
-SetWindow_mouseXY(__currentPointerView, -9999, -9999);
+				    SetWindow_mouseXY(__currentPointerView, -9999, -9999);
-}
+				}
-}
+			    }
-__currentPointerView = 0;
+			    __currentPointerView = 0;
-}
+			}
 #if 0
-if (__activateOnClick) {
+			if (__activateOnClick) {
-/*
+			    /*
-* only send mouseEnter if the window belongs to the current
+			     * only send mouseEnter if the window belongs to the current
-* active window
+			     * active window
-*/
+			     */
-if (GetTopParent(prevPointerView) == GetTopParent(hWnd)) {
+			    if (GetTopParent(prevPointerView) == GetTopParent(hWnd)) {
-}
+			    }
-}
+			}
 #endif
-if (inSizeMove) {
+			if (inSizeMove) {
-needDelayedMouseEnterWindow = hWnd;
+			    needDelayedMouseEnterWindow = hWnd;
-delayedMouseEnterX = x;
+			    delayedMouseEnterX = x;
-delayedMouseEnterY = y;
+			    delayedMouseEnterY = y;
-} else {
+			} else {
-if (GetWindow_eventMask(hWnd) & EnterWindowMask) {
+			    if (GetWindow_eventMask(hWnd) & EnterWindowMask) {
-enqEvent(EnterWindowMask, hWnd, __WM_MOUSEENTER, 0, x, y, 0, modifiers, evTime);
+				enqEvent(EnterWindowMask, hWnd, __WM_MOUSEENTER, 0, x, y, 0, modifiers, evTime);
-SetWindow_mouseXY(hWnd, x, y);
+				SetWindow_mouseXY(hWnd, x, y);
-}
+			    }
-}
+			}
-__currentPointerView = hWnd;
+			__currentPointerView = hWnd;
-}
+		    }
-DPRINTFIF(__debug_WM_MOUSEMOVE__ , ("MouseMove %x\n", __currentPointerView));
+		    DPRINTFIF(__debug_WM_MOUSEMOVE__ , ("MouseMove %x\n", __currentPointerView));
-} else {
+		} else {
-CPRINTF(("MouseMove Capture %x\n", __currentPointerView));
+		    CPRINTF(("MouseMove Capture %x\n", __currentPointerView));
-}
+		}
-if ((GetWindow_eventMask(__currentPointerView) & PointerMotionMask)
+		if ((GetWindow_eventMask(__currentPointerView) & PointerMotionMask)
-|| (modifiers & AnyButtonMask)) {
+		 || (modifiers & AnyButtonMask)) {
-if (! __eatingMouseEvents) {
+		    if (! __eatingMouseEvents) {
-if ((x == lastMotionX)
+			if ((x == lastMotionX)
-&& (y == lastMotionY)
+			 && (y == lastMotionY)
-&& (__currentPointerView == lastMotionWnd)) {
+			 && (__currentPointerView == lastMotionWnd)) {
-/* ignore */
+			    /* ignore */
-} else {
+			} else {
-lastMotionX = x;
+			    lastMotionX = x;
-lastMotionY = y;
+			    lastMotionY = y;
-lastMotionWnd = __currentPointerView;
+			    lastMotionWnd = __currentPointerView;
-if ((GetWindow_mouseX(__currentPointerView) == x)
+			    if ((GetWindow_mouseX(__currentPointerView) == x)
-&& (GetWindow_mouseY(__currentPointerView) == y)) {
+			     && (GetWindow_mouseY(__currentPointerView) == y)) {
-} else {
+			    } else {
-enqEvent(PointerMotionMask, __currentPointerView, WM_MOUSEMOVE, wParam, x, y, 0, modifiers, evTime);
+				enqEvent(PointerMotionMask, __currentPointerView, WM_MOUSEMOVE, wParam, x, y, 0, modifiers, evTime);
-SetWindow_mouseXY(__currentPointerView, x, y);
+				SetWindow_mouseXY(__currentPointerView, x, y);
-}
+			    }
-}
+			}
-}
+		    }
-}
+		}
-}
+	    }
-*pDefault = 0;
+	    *pDefault = 0;
-return 0;
+	    return 0;
-case WM_LBUTTONUP:
+	case WM_LBUTTONUP:
-DPRINTFIF(__debug_WM_BUTTONUP__ , ("WM_LBUTTONUP h=%x\n", hWnd));
+	    DPRINTFIF(__debug_WM_BUTTONUP__ , ("WM_LBUTTONUP h=%x\n", hWnd));
-curButton = Button1;
+	    curButton = Button1;
-goto commonButtonUp;
+	    goto commonButtonUp;
-case WM_MBUTTONUP:
+	case WM_MBUTTONUP:
-DPRINTFIF(__debug_WM_BUTTONUP__ , ("WM_MBUTTONUP h=%x\n", hWnd));
+	    DPRINTFIF(__debug_WM_BUTTONUP__ , ("WM_MBUTTONUP h=%x\n", hWnd));
-curButton = Button2;
+	    curButton = Button2;
-goto commonButtonUp;
+	    goto commonButtonUp;
-case WM_RBUTTONUP:
+	case WM_RBUTTONUP:
-DPRINTFIF(__debug_WM_BUTTONUP__ , ("WM_RBUTTONUP h=%x\n", hWnd));
+	    DPRINTFIF(__debug_WM_BUTTONUP__ , ("WM_RBUTTONUP h=%x\n", hWnd));
-curButton = Button3;
+	    curButton = Button3;
 commonButtonUp:
-if (isNative) {
+	    if (isNative) {
-NDPRINTF(("WM_*BUTTONUP for native - default handling\n"));
+		NDPRINTF(("WM_*BUTTONUP for native - default handling\n"));
-return 0;
+		return 0;
-}
+	    }
 #ifndef PRE_01_APR_04
-if ((__currentPointerView != hWnd) && (__currentPointerView == (HANDLE)0)) {
+	    if ((__currentPointerView != hWnd) && (__currentPointerView == (HANDLE)0)) {
-__currentPointerView = hWnd;
+		__currentPointerView = hWnd;
-if (GetWindow_eventMask(hWnd) & EnterWindowMask) {
+		if (GetWindow_eventMask(hWnd) & EnterWindowMask) {
-POINT p;
+		    POINT p;
-p.x = evRootX;
+		    p.x = evRootX;
-p.y = evRootY;
+		    p.y = evRootY;
-ScreenToClient (hWnd, & p);
+		    ScreenToClient (hWnd, & p);
-if ((p.x >= 0) && (p.y >= 0)) {
+		    if ((p.x >= 0) && (p.y >= 0)) {
-enqEvent(EnterWindowMask, hWnd, __WM_MOUSEENTER, 0, p.x, p.y, 0, getModifiers(), EV_NOTIME);
+			enqEvent(EnterWindowMask, hWnd, __WM_MOUSEENTER, 0, p.x, p.y, 0, getModifiers(), EV_NOTIME);
-SetWindow_mouseXY(hWnd, p.x, p.y);
+			SetWindow_mouseXY(hWnd, p.x, p.y);
-} else {
+		    } else {
-__currentPointerView = (HANDLE) 0;
+			__currentPointerView = (HANDLE) 0;
-}
+		    }
-}
+		}
-}
+	    }
 #endif
-if (__currentCapture == curButton /* CAPTURE_IMPLICIT*/) {
+	    if (__currentCapture == curButton /* CAPTURE_IMPLICIT*/) {
-__currentCapture = CAPTURE_NONE;
+		__currentCapture = CAPTURE_NONE;
-ReleaseCapture();
+		ReleaseCapture();
-CPRINTF(("ReleaseCapture <BUTTONUP>\n"));
+		CPRINTF(("ReleaseCapture <BUTTONUP>\n"));
-}
+	    }
-EVENT_PRINTF3(("WM_BUTTONUP h=%x pos=%d/%d\n",
+	    EVENT_PRINTF3(("WM_BUTTONUP h=%x pos=%d/%d\n",
-hWnd, (int)(short)LOWORD(lParam), (int)(short)HIWORD(lParam)));
+			   hWnd, (int)(short)LOWORD(lParam), (int)(short)HIWORD(lParam)));
-if (GetWindow_eventMask(hWnd) & ButtonReleaseMask) {
+	    if (GetWindow_eventMask(hWnd) & ButtonReleaseMask) {
-if (__eatingMouseEvents) {
+		if (__eatingMouseEvents) {
-__eatingMouseEvents = 0;
+		    __eatingMouseEvents = 0;
-} else {
+		} else {
-enqEvent(ButtonReleaseMask, hWnd,
+		    enqEvent(ButtonReleaseMask, hWnd,
-message, wParam, (UINT)(short)LOWORD(lParam), (INT)(short)HIWORD(lParam),
+			     message, wParam, (UINT)(short)LOWORD(lParam), (INT)(short)HIWORD(lParam),
-wParam, getModifiers(), evTime);
+			     wParam, getModifiers(), evTime);
-}
+		}
-}
+	    }
-*pDefault = 0;
+	    *pDefault = 0;
-break;
+	    break;
-case WM_LBUTTONDBLCLK:
+	case WM_LBUTTONDBLCLK:
-DPRINTFIF(__debug_WM_BUTTONDOWN__ , ("WM_LBUTTONDBLCLK h=%x\n", hWnd));
+	    DPRINTFIF(__debug_WM_BUTTONDOWN__ , ("WM_LBUTTONDBLCLK h=%x\n", hWnd));
-curButton = Button1;
+	    curButton = Button1;
-goto commonButtonDown;
+	    goto commonButtonDown;
-case WM_MBUTTONDBLCLK:
+	case WM_MBUTTONDBLCLK:
-DPRINTFIF(__debug_WM_BUTTONDOWN__ , ("WM_MBUTTONDBLCLK h=%x\n", hWnd));
+	    DPRINTFIF(__debug_WM_BUTTONDOWN__ , ("WM_MBUTTONDBLCLK h=%x\n", hWnd));
-curButton = Button2;
+	    curButton = Button2;
-goto commonButtonDown;
+	    goto commonButtonDown;
-case WM_RBUTTONDBLCLK:
+	case WM_RBUTTONDBLCLK:
-DPRINTFIF(__debug_WM_BUTTONDOWN__ , ("WM_RBUTTONDBLCLK h=%x\n", hWnd));
+	    DPRINTFIF(__debug_WM_BUTTONDOWN__ , ("WM_RBUTTONDBLCLK h=%x\n", hWnd));
-curButton = Button3;
+	    curButton = Button3;
 #ifdef PRE_25_AUG_2010
-if (isNative) {
+	    if (isNative) {
-NDPRINTF(("WM_*BUTTONDBLCLK for native - default handling\n"));
+		 NDPRINTF(("WM_*BUTTONDBLCLK for native - default handling\n"));
-return 0;
+		 return 0;
-}
+	    }
-goto commonButton;
+	    goto commonButton;
 #else
-goto commonButtonDown;
+	    goto commonButtonDown;
 #endif /* PRE_25_AUG_2010 */
-case WM_LBUTTONDOWN:
+	case WM_LBUTTONDOWN:
-DPRINTFIF(__debug_WM_BUTTONDOWN__ , ("WM_LBUTTONDOWN h=%x\n", hWnd));
+	    DPRINTFIF(__debug_WM_BUTTONDOWN__ , ("WM_LBUTTONDOWN h=%x\n", hWnd));
-curButton = Button1;
+	    curButton = Button1;
-goto commonButtonDown;
+	    goto commonButtonDown;
-case WM_MBUTTONDOWN:
+	case WM_MBUTTONDOWN:
-DPRINTFIF(__debug_WM_BUTTONDOWN__ , ("WM_MBUTTONDOWN h=%x\n", hWnd));
+	    DPRINTFIF(__debug_WM_BUTTONDOWN__ , ("WM_MBUTTONDOWN h=%x\n", hWnd));
-curButton = Button2;
+	    curButton = Button2;
-goto commonButtonDown;
+	    goto commonButtonDown;
-case WM_RBUTTONDOWN:
+	case WM_RBUTTONDOWN:
-DPRINTFIF(__debug_WM_BUTTONDOWN__ , ("WM_RBUTTONDOWN h=%x\n", hWnd));
+	    DPRINTFIF(__debug_WM_BUTTONDOWN__ , ("WM_RBUTTONDOWN h=%x\n", hWnd));
-curButton = Button3;
+	    curButton = Button3;
-commonButtonDown:
+	commonButtonDown:
-if (isNative) {
+	    if (isNative) {
-NDPRINTF(("WM_*BUTTONDOWN for native - default handling\n"));
+		NDPRINTF(("WM_*BUTTONDOWN for native - default handling\n"));
-return 0;
+		return 0;
-}
+	    }
-commonButtonWithCapture:
+	commonButtonWithCapture:
-if (__currentCapture == CAPTURE_NONE) {
+	    if (__currentCapture == CAPTURE_NONE) {
-__currentCapture = curButton /*CAPTURE_IMPLICIT*/;
+		__currentCapture = curButton /*CAPTURE_IMPLICIT*/;
-//SetFocus(hWnd);
+		//SetFocus(hWnd);
-SetCapture(hWnd);
+		SetCapture(hWnd);
-CPRINTF(("SetCapture <BUTTONDOWN>%x\n",hWnd));
+		CPRINTF(("SetCapture <BUTTONDOWN>%x\n",hWnd));
-}
+	    }
-goto commonButton;
+	    goto commonButton;
-commonButton:
+	commonButton:
-EVENT_PRINTF3(("WM_BUTTONDOWN h=%x pos=%d/%d\n",
+	    EVENT_PRINTF3(("WM_BUTTONDOWN h=%x pos=%d/%d\n",
-hWnd, LOWORD(lParam), HIWORD(lParam)));
+			   hWnd, LOWORD(lParam), HIWORD(lParam)));
-if (GetWindow_eventMask(hWnd) & ButtonPressMask) {
+	    if (GetWindow_eventMask(hWnd) & ButtonPressMask) {
-if (__eatingMouseEvents) {
+		if (__eatingMouseEvents) {
-__eatingMouseEvents = 0;
+		    __eatingMouseEvents = 0;
-} else {
+		} else {
-enqEvent(ButtonPressMask, hWnd,
+		    enqEvent(ButtonPressMask, hWnd,
-message, wParam, (UINT)(short)LOWORD(lParam), (INT)(short)HIWORD(lParam),
+			     message, wParam, (UINT)(short)LOWORD(lParam), (INT)(short)HIWORD(lParam),
-wParam, getModifiers(), evTime);
+			     wParam, getModifiers(), evTime);
-}
+		}
-}
+	    }
-*pDefault = 0;
+	    *pDefault = 0;
-break;
+	    break;
-case WM_CAPTURECHANGED:
+	case WM_CAPTURECHANGED:
-DPRINTFIF(__debug_WM_FOCUS__ , ("WM_CAPTURECHANGED h=%x to %x\n", hWnd, lParam));
+	    DPRINTFIF(__debug_WM_FOCUS__ , ("WM_CAPTURECHANGED h=%x to %x\n", hWnd, lParam));
 #if 0
-if ((__currentCapture != CAPTURE_NONE) && (__currentCapture != CAPTURE_EXPLICIT))
+	    if ((__currentCapture != CAPTURE_NONE) && (__currentCapture != CAPTURE_EXPLICIT))
-{
+	    {
-}
+	    }
 #endif
-break;
+	    break;
-case WM_KILLFOCUS:
+	case WM_KILLFOCUS:
-DPRINTFIF(__debug_WM_FOCUS__ , ("WM_KILLFOCUS h=%x\n", hWnd));
+	    DPRINTFIF(__debug_WM_FOCUS__ , ("WM_KILLFOCUS h=%x\n", hWnd));
-// enqEvent(0, hWnd, WM_KILLFOCUS, wParam, 0, 0, 0, 0, EV_NOTIME);
+	    // enqEvent(0, hWnd, WM_KILLFOCUS, wParam, 0, 0, 0, 0, EV_NOTIME);
-if (isNative) {
+	    if (isNative) {
-NDPRINTF(("WM_KILLFOCUS for native - default handling\n"));
+		NDPRINTF(("WM_KILLFOCUS for native - default handling\n"));
-return 0;
+		return 0;
-}
+	    }
-*pDefault = 0;
+	    *pDefault = 0;
-break;
+	    break;
-case WM_SETFOCUS:
+	case WM_SETFOCUS:
-DPRINTFIF(__debug_WM_FOCUS__ , ("WM_SETFOCUS h=%x\n", hWnd));
+	    DPRINTFIF(__debug_WM_FOCUS__ , ("WM_SETFOCUS h=%x\n", hWnd));
 #if 0
-// enqEvent(0,hWnd, WM_SETFOCUS, wParam, 0, 0, 0, 0, EV_NOTIME);
+	    // enqEvent(0,hWnd, WM_SETFOCUS, wParam, 0, 0, 0, 0, EV_NOTIME);
-{
+	    {
-POINT p;
+		POINT p;
-HWND hWndChild,hWndTemp;
+		HWND hWndChild,hWndTemp;
-p.x = evRootX;
+		p.x = evRootX;
-p.y = evRootY;
+		p.y = evRootY;
-ScreenToClient(hWnd, &p);
+		ScreenToClient(hWnd, &p);
-hWndChild = hWnd; //hWndChild = ChildWindowFromPoint(hWnd,p);
+		hWndChild = hWnd; //hWndChild = ChildWindowFromPoint(hWnd,p);
-do {
+		do {
-hWndTemp = hWndChild;
+		    hWndTemp = hWndChild;
-hWndChild = ChildWindowFromPointEx(hWndTemp,p,CWP_SKIPINVISIBLE|CWP_SKIPDISABLED|CWP_SKIPTRANSPARENT);
+		    hWndChild = ChildWindowFromPointEx(hWndTemp,p,CWP_SKIPINVISIBLE|CWP_SKIPDISABLED|CWP_SKIPTRANSPARENT);
-} while ((hWndChild) && (hWndChild != hWndTemp));
+		} while ((hWndChild) && (hWndChild != hWndTemp));
-/*console_printf("WM_ACTIVATE active h=%x p=%d.%d in %x\n", hWnd,p.x,p.y,hWndChild);*/
+		/*console_printf("WM_ACTIVATE active h=%x p=%d.%d in %x\n", hWnd,p.x,p.y,hWndChild);*/
-if (hWndChild /*&& (hWndChild != hWnd)*/) {
+		if (hWndChild /*&& (hWndChild != hWnd)*/) {
-if (hWndChild != __currentPointerView) {
+		    if (hWndChild != __currentPointerView) {
-int modifiers = getModifiers();
+			int modifiers = getModifiers();
-if (__currentPointerView) {
+			if (__currentPointerView) {
-if (GetWindow_eventMask(__currentPointerView) & LeaveWindowMask)
+			    if (GetWindow_eventMask(__currentPointerView) & LeaveWindowMask)
-enqEvent(LeaveWindowMask, __currentPointerView, __WM_MOUSELEAVE, 0, -1, -1, 0, modifiers, EV_NOTIME);
+				enqEvent(LeaveWindowMask, __currentPointerView, __WM_MOUSELEAVE, 0, -1, -1, 0, modifiers, EV_NOTIME);
-SetWindow_mouseXY(__currentPointerView, -9999, -9999);
+				SetWindow_mouseXY(__currentPointerView, -9999, -9999);
-__currentPointerView = 0;
+			    __currentPointerView = 0;
-}
+			}
-if (GetWindow_eventMask(hWndChild) & EnterWindowMask) {
+			if (GetWindow_eventMask(hWndChild) & EnterWindowMask) {
-enqEvent(EnterWindowMask, hWndChild, __WM_MOUSEENTER, 0, evRootX, evRootY, 0, modifiers, EV_NOTIME);
+			    enqEvent(EnterWindowMask, hWndChild, __WM_MOUSEENTER, 0, evRootX, evRootY, 0, modifiers, EV_NOTIME);
-SetWindow_mouseXY(hWndChild, evRootX, evRootY);
+			    SetWindow_mouseXY(hWndChild, evRootX, evRootY);
-}
+			}
-//SetFocus(hWndChild);
+			//SetFocus(hWndChild);
-__currentPointerView = hWndChild;
+			__currentPointerView = hWndChild;
-}
+		    }
-}
+		}
-}
+	    }
-if (isNative) {
+	    if (isNative) {
-NDPRINTF(("WM_SETFOCUS for native - default handling\n"));
+		NDPRINTF(("WM_SETFOCUS for native - default handling\n"));
-return 0;
+		return 0;
-}
+	    }
-*pDefault = 0;
+	    *pDefault = 0;
 #endif
-break;
+	    break;
-case WM_GETTEXT:
+	case WM_GETTEXT:
-/*EVENT_PRINTF(("WM_GETTEXT %x\n", message));*/
+	    /*EVENT_PRINTF(("WM_GETTEXT %x\n", message));*/
-break;
+	    break;
-case WM_GETTEXTLENGTH:
+	case WM_GETTEXTLENGTH:
-EVENT_PRINTF(("WM_GETTEXTLENGTH %x\n", message));
+	    EVENT_PRINTF(("WM_GETTEXTLENGTH %x\n", message));
-break;
+	    break;
-case WM_NCCREATE:
+	case WM_NCCREATE:
-EVENT_PRINTF(("WM_NCCREATE %x\n", message));
+	    EVENT_PRINTF(("WM_NCCREATE %x\n", message));
-break;
+	    break;
-case WM_NCMOUSEMOVE:
+	case WM_NCMOUSEMOVE:
-if (__currentCapture == CAPTURE_NONE) {
+	    if (__currentCapture == CAPTURE_NONE) {
-if (__currentPointerView && (hWnd != __currentPointerView)) {
+		if (__currentPointerView && (hWnd != __currentPointerView)) {
-if (inSizeMove) {
+		    if (inSizeMove) {
-if (needDelayedMouseLeaveWindow == NULL) {
+			if (needDelayedMouseLeaveWindow == NULL) {
-needDelayedMouseLeaveWindow = __currentPointerView;
+			    needDelayedMouseLeaveWindow = __currentPointerView;
-}
+			}
-} else {
+		    } else {
-if (GetWindow_eventMask(__currentPointerView) & LeaveWindowMask) {
+			if (GetWindow_eventMask(__currentPointerView) & LeaveWindowMask) {
-enqEvent(LeaveWindowMask, __currentPointerView, __WM_MOUSELEAVE, 0, -1, -1, 0, getModifiers(), evTime);
+			    enqEvent(LeaveWindowMask, __currentPointerView, __WM_MOUSELEAVE, 0, -1, -1, 0, getModifiers(), evTime);
-SetWindow_mouseXY(__currentPointerView, -9999, -9999);
+			    SetWindow_mouseXY(__currentPointerView, -9999, -9999);
-}
+			}
-}
+		    }
-__currentPointerView = 0;
+		    __currentPointerView = 0;
-}
+		}
-}
+	    }
-*pDefault = 0;
+	    *pDefault = 0;
-break;
+	    break;
-case WM_PARENTNOTIFY:
+	case WM_PARENTNOTIFY:
-EVENT_PRINTF2(("WM_PARENTNOTIFY h=%x hChild=%x %d\n",
+	    EVENT_PRINTF2(("WM_PARENTNOTIFY h=%x hChild=%x %d\n",
-hWnd, lParam, LOWORD(wParam)));
+				hWnd, lParam, LOWORD(wParam)));
-break;
+	    break;
-case WM_NCLBUTTONDOWN:
+	case WM_NCLBUTTONDOWN:
-DPRINTFIF(__debug_WM_BUTTONDOWN__ , ("WM_NCLBUTTONDOWN\n"));
+	    DPRINTFIF(__debug_WM_BUTTONDOWN__ , ("WM_NCLBUTTONDOWN\n"));
-if (__shiftedLeftButtonIsLowerWindow) {
+	    if (__shiftedLeftButtonIsLowerWindow) {
-/*
+		/*
-* with shift, this is a lower-operation
+		 * with shift, this is a lower-operation
-*/
+		 */
-if (GetKeyState(VK_SHIFT) & 0x8000) {
+		if (GetKeyState(VK_SHIFT) & 0x8000) {
-SetWindowPos(hWnd, HWND_BOTTOM, 0, 0, 0, 0,
+		    SetWindowPos(hWnd, HWND_BOTTOM, 0, 0, 0, 0,
-SWP_NOSENDCHANGING |
+				 SWP_NOSENDCHANGING |
-SWP_NOACTIVATE | SWP_NOMOVE | SWP_NOSIZE);
+				 SWP_NOACTIVATE | SWP_NOMOVE | SWP_NOSIZE);
-*pDefault = 0;
+		    *pDefault = 0;
-}
+		}
-}
+	    }
-break;
+	    break;
-case WM_NCLBUTTONUP:
+	case WM_NCLBUTTONUP:
-DPRINTFIF(__debug_WM_BUTTONUP__ , ("WM_NCLBUTTONUP\n"));
+	    DPRINTFIF(__debug_WM_BUTTONUP__ , ("WM_NCLBUTTONUP\n"));
-break;
+	    break;
-case WM_NCRBUTTONDOWN:
+	case WM_NCRBUTTONDOWN:
-DPRINTFIF(__debug_WM_BUTTONDOWN__ , ("WM_NCRBUTTONDOWN\n"));
+	    DPRINTFIF(__debug_WM_BUTTONDOWN__ , ("WM_NCRBUTTONDOWN\n"));
-if (__rightButtonIsLowerWindow) {
+	    if (__rightButtonIsLowerWindow) {
-/*
+		/*
-* this is a lower-operation
+		 * this is a lower-operation
-*/
+		 */
-SetWindowPos(hWnd, HWND_BOTTOM, 0, 0, 0, 0,
+		SetWindowPos(hWnd, HWND_BOTTOM, 0, 0, 0, 0,
-SWP_NOSENDCHANGING |
+			     SWP_NOSENDCHANGING |
-SWP_NOACTIVATE | SWP_NOMOVE | SWP_NOSIZE);
+			     SWP_NOACTIVATE | SWP_NOMOVE | SWP_NOSIZE);
-*pDefault = 0;
+		*pDefault = 0;
-}
+	    }
-break;
+	    break;
-case WM_NCRBUTTONUP:
+	case WM_NCRBUTTONUP:
-DPRINTFIF(__debug_WM_BUTTONUP__ , ("WM_NCRBUTTONUP\n"));
+	    DPRINTFIF(__debug_WM_BUTTONUP__ , ("WM_NCRBUTTONUP\n"));
-break;
+	    break;
-case WM_NCMBUTTONDOWN:
+	case WM_NCMBUTTONDOWN:
-DPRINTFIF(__debug_WM_BUTTONDOWN__ , ("WM_NCMBUTTONDOWN\n"));
+	    DPRINTFIF(__debug_WM_BUTTONDOWN__ , ("WM_NCMBUTTONDOWN\n"));
-break;
+	    break;
-case WM_NCMBUTTONUP:
+	case WM_NCMBUTTONUP:
-DPRINTFIF(__debug_WM_BUTTONUP__ , ("WM_NCMBUTTONUP\n"));
+	    DPRINTFIF(__debug_WM_BUTTONUP__ , ("WM_NCMBUTTONUP\n"));
-break;
+	    break;
-case WM_NCLBUTTONDBLCLK:
+	case WM_NCLBUTTONDBLCLK:
-EVENT_PRINTF(("WM_NCLBUTTONDBLCLK\n"));
+	    EVENT_PRINTF(("WM_NCLBUTTONDBLCLK\n"));
-break;
+	    break;
-case WM_NCRBUTTONDBLCLK:
+	case WM_NCRBUTTONDBLCLK:
-EVENT_PRINTF(("WM_NCRBUTTONDBLCLK\n"));
+	    EVENT_PRINTF(("WM_NCRBUTTONDBLCLK\n"));
-break;
+	    break;
-case WM_NCMBUTTONDBLCLK:
+	case WM_NCMBUTTONDBLCLK:
-EVENT_PRINTF(("WM_NCMBUTTONDBLCLK\n"));
+	    EVENT_PRINTF(("WM_NCMBUTTONDBLCLK\n"));
-break;
+	    break;
-case WM_SETTEXT:
+	case WM_SETTEXT:
-DPRINTFIF(__debug_WM_SETTEXT__ , ("WM_SETTEXT\n"));
+	    DPRINTFIF(__debug_WM_SETTEXT__ , ("WM_SETTEXT\n"));
-break;
+	    break;
 #ifdef WM_SYNCPAINT
-case WM_SYNCPAINT:
+	case WM_SYNCPAINT:
-EVENT_PRINTF(("WM_SYNCPAINT\n"));
+	    EVENT_PRINTF(("WM_SYNCPAINT\n"));
-break;
+	    break;
 #else
-case 0x88:
+	case 0x88:
-EVENT_PRINTF(("0x88 (undoc)\n"));
+	    EVENT_PRINTF(("0x88 (undoc)\n"));
-break;
+	    break;
 #endif
-case WM_NCCALCSIZE:
+	case WM_NCCALCSIZE:
-EVENT_PRINTF(("WM_NCCALCSIZE\n"));
+	    EVENT_PRINTF(("WM_NCCALCSIZE\n"));
-break;
+	    break;
-case WM_NCPAINT:
+	case WM_NCPAINT:
-EVENT_PRINTF3(("WM_NCPAINT\n"));
+	    EVENT_PRINTF3(("WM_NCPAINT\n"));
 #ifdef THIS_DOES_NOT_WORK
-/* mhmh - something is drawn, but clipped wrong
+	    /* mhmh - something is drawn, but clipped wrong
-* and with wrong colors ....
+	     * and with wrong colors ....
-*/
+	     */
-/*
+	    /*
-* child windows only ...
+	     * child windows only ...
-*/
+	     */
-if (GetParent(hWnd)) {
+	    if (GetParent(hWnd)) {
-int clr;
+		int clr;
-clr = GetWindow_bdColor(hWnd);
+		clr = GetWindow_bdColor(hWnd);
-if (clr != BlackPixel) {
+		if (clr != BlackPixel) {
-/*
+		    /*
-* draw it here
+		     * draw it here
-*/
+		     */
-HBRUSH br;
+		    HBRUSH br;
-RECT rect, lineRect;
+		    RECT rect, lineRect;
-HDC hDC;
+		    HDC hDC;
-if (clr == WhitePixel) {
+		    if (clr == WhitePixel) {
-br = __whiteBrush;
+			br = __whiteBrush;
-} else {
+		    } else {
-br = CreateSolidBrush(clr);
+			br = CreateSolidBrush(clr);
-}
+		    }
-GetWindowRect(hWnd, &rect);
+		    GetWindowRect(hWnd, &rect);
-hDC = GetWindowDC(hWnd);
+		    hDC = GetWindowDC(hWnd);
-SelectClipRgn(hDC, NULL);
+		    SelectClipRgn(hDC, NULL);
-lineRect.left = rect.left;
+		    lineRect.left = rect.left;
-lineRect.right = rect.right;
+		    lineRect.right = rect.right;
-lineRect.top = rect.top;
+		    lineRect.top = rect.top;
-lineRect.bottom = rect.top + 1;
+		    lineRect.bottom = rect.top + 1;
-FillRect(hDC, &lineRect, br);
+		    FillRect(hDC, &lineRect, br);
-lineRect.bottom = rect.bottom - 1;
+		    lineRect.bottom = rect.bottom - 1;
-lineRect.bottom = rect.bottom;
+		    lineRect.bottom = rect.bottom;
-FillRect(hDC, &lineRect, br);
+		    FillRect(hDC, &lineRect, br);
-lineRect.top = rect.top;
+		    lineRect.top = rect.top;
-lineRect.bottom = rect.bottom;
+		    lineRect.bottom = rect.bottom;
-lineRect.left = rect.left;
+		    lineRect.left = rect.left;
-lineRect.right = rect.left + 1;
+		    lineRect.right = rect.left + 1;
-FillRect(hDC, &lineRect, br);
+		    FillRect(hDC, &lineRect, br);
-lineRect.left = rect.right - 1;
+		    lineRect.left = rect.right - 1;
-lineRect.right = rect.right;
+		    lineRect.right = rect.right;
-FillRect(hDC, &lineRect, br);
+		    FillRect(hDC, &lineRect, br);
-_DeleteBrush(br, __LINE__);
+		    _DeleteBrush(br, __LINE__);
-ReleaseDC(hWnd, hDC);
+		    ReleaseDC(hWnd, hDC);
-*pDefault = 0;
+		    *pDefault = 0;
-return 0;
+		    return 0;
-}
+		}
-}
+	    }
 #endif /* THIS_DOES_NOT_WORK */
-break;
+	    break;
-case WM_SYSCOMMAND:
+	case WM_SYSCOMMAND:
-switch (wParam & ~0x000F) {
+	    switch (wParam & ~0x000F) {
-case SC_CLOSE:
+		case SC_CLOSE:
-EVENT_PRINTF2(("WM_SYSCOMMAND SC_CLOSE\n"));
+		    EVENT_PRINTF2(("WM_SYSCOMMAND SC_CLOSE\n"));
-break;
+		    break;
-case SC_MOVE:
+		case SC_MOVE:
-EVENT_PRINTF2(("WM_SYSCOMMAND SC_MOVE\n"));
+		    EVENT_PRINTF2(("WM_SYSCOMMAND SC_MOVE\n"));
-break;
+		    break;
-case SC_RESTORE:
+		case SC_RESTORE:
-EVENT_PRINTF2(("WM_SYSCOMMAND SC_RESTORE\n"));
+		    EVENT_PRINTF2(("WM_SYSCOMMAND SC_RESTORE\n"));
-break;
+		    break;
-case SC_SIZE:
+		case SC_SIZE:
-EVENT_PRINTF2(("WM_SYSCOMMAND SC_SIZE\n"));
+		    EVENT_PRINTF2(("WM_SYSCOMMAND SC_SIZE\n"));
-break;
+		    break;
-default:
+		default:
-EVENT_PRINTF2(("WM_SYSCOMMAND %x\n", wParam));
+		    EVENT_PRINTF2(("WM_SYSCOMMAND %x\n", wParam));
-break;
+		    break;
-}
+	    }
-break;
+	    break;
-case WM_INITMENU:
+	case WM_INITMENU:
-EVENT_PRINTF(("WM_INITMENU\n"));
+	    EVENT_PRINTF(("WM_INITMENU\n"));
-break;
+	    break;
-case WM_INITMENUPOPUP:
+	case WM_INITMENUPOPUP:
-EVENT_PRINTF(("WM_INITMENUPOPUP\n"));
+	    EVENT_PRINTF(("WM_INITMENUPOPUP\n"));
-break;
+	    break;
-case WM_ENTERIDLE:
+	case WM_ENTERIDLE:
-EVENT_PRINTF(("WM_ENTERIDLE\n"));
+	    EVENT_PRINTF(("WM_ENTERIDLE\n"));
-break;
+	    break;
-case WM_ENTERMENULOOP:
+	case WM_ENTERMENULOOP:
-EVENT_PRINTF(("WM_ENTERMENULOOP\n"));
+	    EVENT_PRINTF(("WM_ENTERMENULOOP\n"));
-break;
+	    break;
-case WM_EXITMENULOOP:
+	case WM_EXITMENULOOP:
-EVENT_PRINTF(("WM_EXITMENULOOP\n"));
+	    EVENT_PRINTF(("WM_EXITMENULOOP\n"));
-break;
+	    break;
-case WM_MENUSELECT:
+	case WM_MENUSELECT:
-EVENT_PRINTF(("WM_MENUSELECT\n"));
+	    EVENT_PRINTF(("WM_MENUSELECT\n"));
-break;
+	    break;
-case WM_QUIT:
+	case WM_QUIT:
-DPRINTF(("quit message hWnd=0x%x lP=0x%x wP=0x%x\n", hWnd, lParam, wParam));
+	    DPRINTF(("quit message hWnd=0x%x lP=0x%x wP=0x%x\n", hWnd, lParam, wParam));
-enqEvent(0, 0, WM_QUIT, wParam, lParam, 0, 0, 0, EV_NOTIME);
+	    enqEvent(0, 0, WM_QUIT, wParam, lParam, 0, 0, 0, EV_NOTIME);
-break;
+	    break;
-case WM_NCDESTROY:
+	case WM_NCDESTROY:
-EVENT_PRINTF(("WM_NCDESTROY\n"));
+	    EVENT_PRINTF(("WM_NCDESTROY\n"));
-break;
+	    break;
-case WM_QUERYNEWPALETTE:
+	case WM_QUERYNEWPALETTE:
-EVENT_PRINTF(("WM_QUERYNEWPALETTE\n"));
+	    EVENT_PRINTF(("WM_QUERYNEWPALETTE\n"));
-break;
+	    break;
-case WM_PALETTECHANGED:
+	case WM_PALETTECHANGED:
-EVENT_PRINTF(("WM_PALETTECHANGED\n"));
+	    EVENT_PRINTF(("WM_PALETTECHANGED\n"));
-break;
+	    break;
-case WM_ACTIVATEAPP:
+	case WM_ACTIVATEAPP:
-EVENT_PRINTF2(("WM_ACTIVATEAPP %s\n", wParam ? "active" : "inactive"));
+	    EVENT_PRINTF2(("WM_ACTIVATEAPP %s\n", wParam ? "active" : "inactive"));
-break;
+	    break;
-case WM_SYSDEADCHAR:
+	case WM_SYSDEADCHAR:
-EVENT_PRINTF2(("WM_SYSDEADCHAR %x\n, wParam"));
+	    EVENT_PRINTF2(("WM_SYSDEADCHAR %x\n, wParam"));
-break;
+	    break;
-case WM_DEADCHAR:
+	case WM_DEADCHAR:
-EVENT_PRINTF2(("WM_DEADCHAR %x\n, wParam"));
+	    EVENT_PRINTF2(("WM_DEADCHAR %x\n, wParam"));
-break;
+	    break;
-case WM_PAINTICON:
+	case WM_PAINTICON:
-EVENT_PRINTF(("WM_PAINTICON\n"));
+	    EVENT_PRINTF(("WM_PAINTICON\n"));
-break;
+	    break;
-case WM_ICONERASEBKGND:
+	case WM_ICONERASEBKGND:
-EVENT_PRINTF(("WM_ICONERASEBKGND\n"));
+	    EVENT_PRINTF(("WM_ICONERASEBKGND\n"));
-break;
+	    break;
-case WM_WINDOWPOSCHANGING:
+	case WM_WINDOWPOSCHANGING:
-DPRINTFIF(__debug_WM_WINDOWPOSCHANGING__ , ("WM_WINDOWPOSCHANGING\n"));
+	    DPRINTFIF(__debug_WM_WINDOWPOSCHANGING__ , ("WM_WINDOWPOSCHANGING\n"));
 #ifdef HANDLE_VIEWGRAVITY
-/*
+	    /*
-* any child with a viewGravity ?
+	     * any child with a viewGravity ?
-* (only care for topViews here;
+	     * (only care for topViews here;
-*  child views do it on the smalltalk level ...)
+	     *  child views do it on the smalltalk level ...)
-*/
+	     */
-if (GetParent(hWnd) == 0) {
+	    if (GetParent(hWnd) == 0) {
-if (GetParent(hWnd) == 0) {
+		if (GetParent(hWnd) == 0) {
-struct gravityCallBackInfo i;
+		    struct gravityCallBackInfo i;
-RECT rct, dRect;
+		    RECT rct, dRect;
-int dW, dH;
+		    int dW, dH;
-WINDOWPOS *wp = (WINDOWPOS *)lParam;
+		    WINDOWPOS *wp = (WINDOWPOS *)lParam;
-int winStyleBits, winExStyleBits;
+		    int winStyleBits, winExStyleBits;
-if (! (wp->flags & SWP_NOSIZE)) {
+		    if (! (wp->flags & SWP_NOSIZE)) {
-dRect.left = 0;
+			dRect.left = 0;
-dRect.top = 0;
+			dRect.top = 0;
-dRect.right = 100;
+			dRect.right = 100;
-dRect.bottom = 100;
+			dRect.bottom = 100;
-winStyleBits = GetWindowLong(hWnd, GWL_STYLE);
+			winStyleBits = GetWindowLong(hWnd, GWL_STYLE);
-winExStyleBits = GetWindowLong(hWnd, GWL_EXSTYLE);
+			winExStyleBits = GetWindowLong(hWnd, GWL_EXSTYLE);
-AdjustWindowRectEx(&dRect, winStyleBits, 0, winExStyleBits);
+			AdjustWindowRectEx(&dRect, winStyleBits, 0, winExStyleBits);
-dW = dRect.right - dRect.left;
+			dW = dRect.right - dRect.left;
-dH = dRect.bottom - dRect.top;
+			dH = dRect.bottom - dRect.top;
-GetClientRect(hWnd, &rct);
+			GetClientRect(hWnd, &rct);
-i.parent = hWnd;
+			i.parent = hWnd;
-i.currW = rct.right - rct.left;
+			i.currW = rct.right - rct.left;
-i.currH = rct.bottom - rct.top;
+			i.currH = rct.bottom - rct.top;
-/* wp gives us the new outer (frame) bounds */
+			/* wp gives us the new outer (frame) bounds */
-i.newW = wp->cx - (dW - 100);
+			i.newW = wp->cx - (dW - 100);
-i.newH = wp->cy - (dH - 100);
+			i.newH = wp->cy - (dH - 100);
-if ((i.currW != i.newW)
+			if ((i.currW != i.newW)
-|| (i.currH != i.newH)) {
+			 || (i.currH != i.newH)) {
-DPRINTF((stderr, "about to sizeChange old: %d/%d new: %d/%d\n",
+			    DPRINTF((stderr, "about to sizeChange old: %d/%d new: %d/%d\n",
-i.currW, i.currH, i.newW, i.newH));
+				    i.currW, i.currH, i.newW, i.newH));
-GetWindowRect(hWnd, &rct);
+			    GetWindowRect(hWnd, &rct);
-i.parentWinX = rct.left - dRect.left;
+			    i.parentWinX = rct.left - dRect.left;
-i.parentWinY = rct.top - dRect.top;
+			    i.parentWinY = rct.top - dRect.top;
-EnumChildWindows(hWnd, gravityEnumeratorCallBack, (int)(&i));
+			    EnumChildWindows(hWnd, gravityEnumeratorCallBack, (int)(&i));
-}
+			}
-}
+		    }
-}
+		}
-}
+	    }
 #endif /* HANDLE_VIEWGRAVITY */
-break;
+	    break;
-case WM_QUERYOPEN:
+	case WM_QUERYOPEN:
-EVENT_PRINTF(("WM_QUERYOPEN\n"));
+	    EVENT_PRINTF(("WM_QUERYOPEN\n"));
-break;
+	    break;
-case WM_QUERYENDSESSION:
+	case WM_QUERYENDSESSION:
-EVENT_PRINTF(("WM_QUERYENDSESSION\n"));
+	    EVENT_PRINTF(("WM_QUERYENDSESSION\n"));
-*pDefault = 0;
+	    *pDefault = 0;
-if (@global(CanEndSession) == false) {
+	    if (@global(CanEndSession) == false) {
-enqEvent(0, hWnd, WM_QUERYENDSESSION, wParam, 0, 0, 0, 0, EV_NOTIME);
+		enqEvent(0, hWnd, WM_QUERYENDSESSION, wParam, 0, 0, 0, 0, EV_NOTIME);
-// TODO: enter new event loop
+		// TODO: enter new event loop
-// which is left when an endSessionConfirmation
+		// which is left when an endSessionConfirmation
-// arrives from smalltalk
+		// arrives from smalltalk
-// (either positive or negative).
+		// (either positive or negative).
-// for now, do not allow leaving
+		// for now, do not allow leaving
-// windows as long as ST/X is open.
+		// windows as long as ST/X is open.
-return(0);
+		return(0);
-}
+	    }
-return(TRUE);  // allow leaving windows
+	    return(TRUE);  // allow leaving windows
-break;
+	    break;
-case WM_ENDSESSION:
+	case WM_ENDSESSION:
-EVENT_PRINTF(("WM_ENDSESSION\n"));
+	    EVENT_PRINTF(("WM_ENDSESSION\n"));
-enqEvent(0, hWnd, WM_ENDSESSION, wParam, 0, 0, 0, 0, EV_NOTIME);
+	    enqEvent(0, hWnd, WM_ENDSESSION, wParam, 0, 0, 0, 0, EV_NOTIME);
-break;
+	    break;
-case WM_DISPLAYCHANGE:
+	case WM_DISPLAYCHANGE:
-EVENT_PRINTF(("WM_DISPLAYCHANGE\n"));
+	    EVENT_PRINTF(("WM_DISPLAYCHANGE\n"));
-enqEvent(0, hWnd, WM_DISPLAYCHANGE, wParam, 0, 0, 0, 0, EV_NOTIME);
+	    enqEvent(0, hWnd, WM_DISPLAYCHANGE, wParam, 0, 0, 0, 0, EV_NOTIME);
-break;
+	    break;
-case WM_FONTCHANGE:
+	case WM_FONTCHANGE:
-EVENT_PRINTF(("WM_FONTCHANGE\n"));
+	    EVENT_PRINTF(("WM_FONTCHANGE\n"));
-enqEvent(0, hWnd, WM_FONTCHANGE, wParam, 0, 0, 0, 0, EV_NOTIME);
+	    enqEvent(0, hWnd, WM_FONTCHANGE, wParam, 0, 0, 0, 0, EV_NOTIME);
-break;
+	    break;
-case WM_WININICHANGE:
+	case WM_WININICHANGE:
-EVENT_PRINTF(("WM_WININICHANGE\n"));
+	    EVENT_PRINTF(("WM_WININICHANGE\n"));
-enqEvent(0, hWnd, WM_WININICHANGE, wParam, 0, 0, 0, 0, EV_NOTIME);
+	    enqEvent(0, hWnd, WM_WININICHANGE, wParam, 0, 0, 0, 0, EV_NOTIME);
-break;
+	    break;
-case WM_SYSCOLORCHANGE:
+	case WM_SYSCOLORCHANGE:
-EVENT_PRINTF(("WM_SYSCOLORCHANGE\n"));
+	    EVENT_PRINTF(("WM_SYSCOLORCHANGE\n"));
-enqEvent(0, hWnd, WM_SYSCOLORCHANGE, wParam, 0, 0, 0, 0, EV_NOTIME);
+	    enqEvent(0, hWnd, WM_SYSCOLORCHANGE, wParam, 0, 0, 0, 0, EV_NOTIME);
-break;
+	    break;
-case WM_MOVING:
+	case WM_MOVING:
-DPRINTFIF(__debug_WM_MOVING__ , ("WM_MOVING\n"));
+	    DPRINTFIF(__debug_WM_MOVING__ , ("WM_MOVING\n"));
 #ifdef DELAY_ENTER_LEAVE_WHILE_IN_SIZE_MOVE
-inMove = 1;
+	    inMove = 1;
 #endif
-break;
+	    break;
-case WM_SIZING:
+	case WM_SIZING:
-EVENT_PRINTF(("WM_SIZING\n"));
+	    EVENT_PRINTF(("WM_SIZING\n"));
 #ifdef DELAY_ENTER_LEAVE_WHILE_IN_SIZE_MOVE
-inSize = 1;
+	    inSize = 1;
 #endif
-break;
+	    break;
-case WM_ENTERSIZEMOVE:
+	case WM_ENTERSIZEMOVE:
-EVENT_PRINTF(("WM_ENTERSIZEMOVE\n"));
+	    EVENT_PRINTF(("WM_ENTERSIZEMOVE\n"));
 #ifdef DELAY_ENTER_LEAVE_WHILE_IN_SIZE_MOVE
-inSizeMove = 1;
+	    inSizeMove = 1;
 #endif
-break;
+	    break;
-case WM_EXITSIZEMOVE:
+	case WM_EXITSIZEMOVE:
-EVENT_PRINTF(("WM_EXITSIZEMOVE\n"));
+	    EVENT_PRINTF(("WM_EXITSIZEMOVE\n"));
 #ifndef PRE_13_APR_04_POSCHANGED_IN_EXITSIZEMOVE
-if (inMove) {
+	    if (inMove) {
-/* generate WM_WINDOWPOSCHANGED
+		/* generate WM_WINDOWPOSCHANGED
-*/
+		*/
-RECT rct;
+		RECT rct;
-int x, y, w, h;
+		int x, y, w, h;
-GetClientRect(hWnd, &rct);
+		GetClientRect(hWnd, &rct);
-x = rct.left;
+		x = rct.left;
-y = rct.top;
+		y = rct.top;
-w = rct.right - rct.left;
+		w = rct.right - rct.left;
-h = rct.bottom - rct.top;
+		h = rct.bottom - rct.top;
-if ((w == 0) && (h == 0)) {
+		if ((w == 0) && (h == 0)) {
-if (! GetWindow_iconified(hWnd)) {
+		    if (! GetWindow_iconified(hWnd)) {
-SetWindow_iconified(hWnd, 1);
+			SetWindow_iconified(hWnd, 1);
-}
+		    }
-enqEvent(0, hWnd, __WM_ICONIFIED, 1, 0, 0, 0, 0, EV_NOTIME);
+		    enqEvent(0, hWnd, __WM_ICONIFIED, 1, 0, 0, 0, 0, EV_NOTIME);
-} else {
+		} else {
-if (GetWindow_iconified(hWnd)) {
+		    if (GetWindow_iconified(hWnd)) {
-SetWindow_iconified(hWnd, 0);
+			SetWindow_iconified(hWnd, 0);
-enqEvent(0, hWnd, __WM_ICONIFIED, 0, 0, 0, 0, 0, EV_NOTIME);
+			enqEvent(0, hWnd, __WM_ICONIFIED, 0, 0, 0, 0, 0, EV_NOTIME);
-} else {
+		    } else {
-enqEvent(0, hWnd, WM_WINDOWPOSCHANGED, 0, x, y, w, h, EV_NOTIME);
+			enqEvent(0, hWnd, WM_WINDOWPOSCHANGED, 0, x, y, w, h, EV_NOTIME);
-}
+		    }
-}
+		}
-}
+	    }
 #endif
-inSizeMove = inMove = inSize = 0;
+	    inSizeMove = inMove = inSize = 0;
-if (needDelayedMouseLeaveWindow || needDelayedMouseEnterWindow) {
+	    if (needDelayedMouseLeaveWindow || needDelayedMouseEnterWindow) {
-int modifiers = getModifiers();
+		int modifiers = getModifiers();
-if (needDelayedMouseLeaveWindow) {
+		if (needDelayedMouseLeaveWindow) {
-if (GetWindow_eventMask(needDelayedMouseLeaveWindow) & LeaveWindowMask) {
+		    if (GetWindow_eventMask(needDelayedMouseLeaveWindow) & LeaveWindowMask) {
-enqEvent(LeaveWindowMask, needDelayedMouseLeaveWindow, __WM_MOUSELEAVE, 0, -1, -1, 0, modifiers, EV_NOTIME);
+			enqEvent(LeaveWindowMask, needDelayedMouseLeaveWindow, __WM_MOUSELEAVE, 0, -1, -1, 0, modifiers, EV_NOTIME);
-SetWindow_mouseXY(needDelayedMouseLeaveWindow, -9999, -9999);
+			SetWindow_mouseXY(needDelayedMouseLeaveWindow, -9999, -9999);
-}
+		    }
-needDelayedMouseLeaveWindow = NULL;
+		    needDelayedMouseLeaveWindow = NULL;
-}
+		}
-if (needDelayedMouseEnterWindow) {
+		if (needDelayedMouseEnterWindow) {
-if (GetWindow_eventMask(needDelayedMouseEnterWindow) & EnterWindowMask) {
+		    if (GetWindow_eventMask(needDelayedMouseEnterWindow) & EnterWindowMask) {
-enqEvent(EnterWindowMask, needDelayedMouseEnterWindow, __WM_MOUSEENTER, 0, delayedMouseEnterX, delayedMouseEnterY, 0, modifiers, EV_NOTIME);
+			enqEvent(EnterWindowMask, needDelayedMouseEnterWindow, __WM_MOUSEENTER, 0, delayedMouseEnterX, delayedMouseEnterY, 0, modifiers, EV_NOTIME);
-SetWindow_mouseXY(needDelayedMouseEnterWindow, delayedMouseEnterX, delayedMouseEnterY);
+			SetWindow_mouseXY(needDelayedMouseEnterWindow, delayedMouseEnterX, delayedMouseEnterY);
-}
+		    }
-needDelayedMouseEnterWindow = NULL;
+		    needDelayedMouseEnterWindow = NULL;
-}
+		}
-}
+	    }
-break;
+	    break;
-case WM_MOVE:
+	case WM_MOVE:
-EVENT_PRINTF(("WM_MOVE\n"));
+	    EVENT_PRINTF(("WM_MOVE\n"));
-break;
+	    break;
-case WM_POWER:
+	case WM_POWER:
-EVENT_PRINTF(("WM_POWER\n"));
+	    EVENT_PRINTF(("WM_POWER\n"));
-enqEvent(0, hWnd, WM_POWER, wParam, 0, 0, 0, 0, EV_NOTIME);
+	    enqEvent(0, hWnd, WM_POWER, wParam, 0, 0, 0, 0, EV_NOTIME);
-break;
+	    break;
-/* native widget actions */
+	/* native widget actions */
-case WM_COMMAND:
+	case WM_COMMAND:
-if (lParam) {
+	    if (lParam) {
-NDPRINTF(("COMMAND for widget\n"));
+		NDPRINTF(("COMMAND for widget\n"));
-enqEvent(0, (HWND)(lParam), WM_COMMAND, wParam, lParam, 0, 0, 0, EV_NOTIME);
+		enqEvent(0, (HWND)(lParam), WM_COMMAND, wParam, lParam, 0, 0, 0, EV_NOTIME);
-} else {
+	    } else {
-NDPRINTF(("COMMAND for owner\n"));
+		NDPRINTF(("COMMAND for owner\n"));
-enqEvent(0, hWnd, WM_COMMAND, wParam, lParam, 0, 0, 0, EV_NOTIME);
+		enqEvent(0, hWnd, WM_COMMAND, wParam, lParam, 0, 0, 0, EV_NOTIME);
-}
+	    }
-break;
+	    break;
-/* tray action */
+	/* tray action */
-case WM_TRAY_MESSAGE:
+	case WM_TRAY_MESSAGE:
-DPRINTF(("tray message hWnd=0x%x lP=0x%x wP=0x%x\n", hWnd, lParam, wParam));
+	    DPRINTF(("tray message hWnd=0x%x lP=0x%x wP=0x%x\n", hWnd, lParam, wParam));
-enqEvent(0, hWnd, WM_TRAY_MESSAGE, wParam, lParam, 0, 0, 0, EV_NOTIME);
+	    enqEvent(0, hWnd, WM_TRAY_MESSAGE, wParam, lParam, 0, 0, 0, EV_NOTIME);
-break;
+	    break;
-case WM_COPYDATA:
+	case WM_COPYDATA:
-DPRINTFIF(__debug_WM_COPYDATA__ , ("WM_COPYDATA\n"));
+	    DPRINTFIF(__debug_WM_COPYDATA__ , ("WM_COPYDATA\n"));
-{
+	    {
-PCOPYDATASTRUCT pCDs = (PCOPYDATASTRUCT) lParam;
+		PCOPYDATASTRUCT pCDs = (PCOPYDATASTRUCT) lParam;
-int dwData = pCDs->dwData;
+		int dwData = pCDs->dwData;
-int nBytes = pCDs->cbData;
+		int nBytes = pCDs->cbData;
-void *pData = pCDs->lpData;
+		void *pData = pCDs->lpData;
-void *pCopiedData;
+		void *pCopiedData;
-DPRINTFIF(__debug_WM_COPYDATA__ , ("WM_COPYDATA %d %lx\n", nBytes, pData));
+		DPRINTFIF(__debug_WM_COPYDATA__ , ("WM_COPYDATA %d %lx\n", nBytes, pData));
-/*
+		/*
-* because pData is only valid here, copy it out to a malloc'd
+		 * because pData is only valid here, copy it out to a malloc'd
-* area. This MUST be free'd by someone else !
+		 * area. This MUST be free'd by someone else !
-*/
+		 */
-if (nBytes) {
+		if (nBytes) {
-pCopiedData = malloc(nBytes);
+		    pCopiedData = malloc(nBytes);
-memcpy(pCopiedData, pData, nBytes);
+		    memcpy(pCopiedData, pData, nBytes);
-} else {
+		} else {
-pCopiedData = NULL;
+		    pCopiedData = NULL;
-}
+		}
-//     (flag, hWnd, message, wParam, arg1, arg2, arg3, arg4, evTime)
+		//     (flag, hWnd, message, wParam, arg1, arg2, arg3, arg4, evTime)
-enqEvent(0, hWnd, WM_COPYDATA, wParam, (INT)pCopiedData, nBytes, dwData, 0, EV_NOTIME);
+		enqEvent(0, hWnd, WM_COPYDATA, wParam, (INT)pCopiedData, nBytes, dwData, 0, EV_NOTIME);
-}
+	    }
-*pDefault = 0;
+	    *pDefault = 0;
-break;
+	    break;
-case WM_HSCROLL:
+	case WM_HSCROLL:
-case WM_VSCROLL:
+	case WM_VSCROLL:
-NDPRINTF(("VM_*SCROLL\n"));
+	    NDPRINTF(("VM_*SCROLL\n"));
-enqEvent(0, hWnd, message, wParam, lParam, 0, 0, 0, EV_NOTIME);
+	    enqEvent(0, hWnd, message, wParam, lParam, 0, 0, 0, EV_NOTIME);
-break;
+	    break;
-case WM_DRAWITEM:
+	case WM_DRAWITEM:
-EVENT_PRINTF(("WM_DRAWITEM\n"));
+	    EVENT_PRINTF(("WM_DRAWITEM\n"));
 #if 0
-{
+	    {
-DRAWITEMSTRUCT *pItemStruct;
+		DRAWITEMSTRUCT *pItemStruct;
-pItemStruct = (DRAWITEMSTRUCT *)lParam;
+		pItemStruct = (DRAWITEMSTRUCT *)lParam;
-enqEvent(0, pItemStruct->hwndItem, WM_DRAWITEM, wParam, 0, 0, 0, 0, EV_NOTIME);
+		enqEvent(0, pItemStruct->hwndItem, WM_DRAWITEM, wParam, 0, 0, 0, 0, EV_NOTIME);
-}
+	    }
 #endif
-break;
+	    break;
 #ifdef TRACE_ALL_EVENTS
-case WM_CTLCOLORMSGBOX:
+	case WM_CTLCOLORMSGBOX:
-UNHANDLED_EVENT_PRINTF(("WM_CTLCOLORMSGBOX\n"));
+	    UNHANDLED_EVENT_PRINTF(("WM_CTLCOLORMSGBOX\n"));
-break;
+	    break;
-case WM_CTLCOLOREDIT:
+	case WM_CTLCOLOREDIT:
-UNHANDLED_EVENT_PRINTF(("WM_CTLCOLOREDIT\n"));
+	    UNHANDLED_EVENT_PRINTF(("WM_CTLCOLOREDIT\n"));
-break;
+	    break;
-case WM_CTLCOLORLISTBOX:
+	case WM_CTLCOLORLISTBOX:
-UNHANDLED_EVENT_PRINTF(("WM_CTLCOLORLISTBOX\n"));
+	    UNHANDLED_EVENT_PRINTF(("WM_CTLCOLORLISTBOX\n"));
-break;
+	    break;
-case WM_CTLCOLORBTN:
+	case WM_CTLCOLORBTN:
-UNHANDLED_EVENT_PRINTF(("WM_CTLCOLORBTN\n"));
+	    UNHANDLED_EVENT_PRINTF(("WM_CTLCOLORBTN\n"));
-break;
+	    break;
-case WM_CTLCOLORDLG:
+	case WM_CTLCOLORDLG:
-UNHANDLED_EVENT_PRINTF(("WM_CTLCOLORDLG\n"));
+	    UNHANDLED_EVENT_PRINTF(("WM_CTLCOLORDLG\n"));
-break;
+	    break;
-case WM_CTLCOLORSTATIC:
+	case WM_CTLCOLORSTATIC:
-UNHANDLED_EVENT_PRINTF(("WM_CTLCOLORSTATIC\n"));
+	    UNHANDLED_EVENT_PRINTF(("WM_CTLCOLORSTATIC\n"));
-break;
+	    break;
-case WM_CTLCOLORSCROLLBAR:
+	case WM_CTLCOLORSCROLLBAR:
-UNHANDLED_EVENT_PRINTFIF(__debug_WM_CTLCOLORSCROLLBAR__, ("WM_CTLCOLORSCROLLBAR\n"));
+	    UNHANDLED_EVENT_PRINTFIF(__debug_WM_CTLCOLORSCROLLBAR__, ("WM_CTLCOLORSCROLLBAR\n"));
-break;
+	    break;
-case WM_STYLECHANGING:
+	case WM_STYLECHANGING:
-UNHANDLED_EVENT_PRINTF(("WM_STYLECHANGING\n"));
+	    UNHANDLED_EVENT_PRINTF(("WM_STYLECHANGING\n"));
-break;
+	    break;
-case WM_STYLECHANGED:
+	case WM_STYLECHANGED:
-UNHANDLED_EVENT_PRINTF(("WM_STYLECHANGED\n"));
+	    UNHANDLED_EVENT_PRINTF(("WM_STYLECHANGED\n"));
-break;
+	    break;
-case WM_GETICON:
+	case WM_GETICON:
-UNHANDLED_EVENT_PRINTFIF(__debug_WM_GETICON__, ("WM_GETICON\n"));
+	    UNHANDLED_EVENT_PRINTFIF(__debug_WM_GETICON__, ("WM_GETICON\n"));
-break;
+	    break;
-case WM_SETICON:
+	case WM_SETICON:
-UNHANDLED_EVENT_PRINTF(("WM_SETICON\n"));
+	    UNHANDLED_EVENT_PRINTF(("WM_SETICON\n"));
-break;
+	    break;
-case WM_PRINT:
+	case WM_PRINT:
-UNHANDLED_EVENT_PRINTF(("WM_PRINT(lParam=%d)\n", lParam));
+	    UNHANDLED_EVENT_PRINTF(("WM_PRINT(lParam=%d)\n", lParam));
-break;
+	    break;
-case WM_PRINTCLIENT:
+	case WM_PRINTCLIENT:
-UNHANDLED_EVENT_PRINTF(("WM_PRINTCLIENT(lParam=%d)\n", lParam));
+	    UNHANDLED_EVENT_PRINTF(("WM_PRINTCLIENT(lParam=%d)\n", lParam));
-break;
+	    break;
-case WM_NULL:
+	case WM_NULL:
-UNHANDLED_EVENT_PRINTF(("WM_NULL\n"));
+	    UNHANDLED_EVENT_PRINTF(("WM_NULL\n"));
-break;
+	    break;
-case WM_ENABLE:
+	case WM_ENABLE:
-UNHANDLED_EVENT_PRINTF(("WM_ENABLE\n"));
+	    UNHANDLED_EVENT_PRINTF(("WM_ENABLE\n"));
-break;
+	    break;
-case WM_SETREDRAW:
+	case WM_SETREDRAW:
-UNHANDLED_EVENT_PRINTF(("WM_SETREDRAW\n"));
+	    UNHANDLED_EVENT_PRINTF(("WM_SETREDRAW\n"));
-break;
+	    break;
-case WM_DEVMODECHANGE:
+	case WM_DEVMODECHANGE:
-UNHANDLED_EVENT_PRINTF(("WM_DEVMODECHANGE\n"));
+	    UNHANDLED_EVENT_PRINTF(("WM_DEVMODECHANGE\n"));
-break;
+	    break;
-case WM_TIMECHANGE:
+	case WM_TIMECHANGE:
-UNHANDLED_EVENT_PRINTF(("WM_TIMECHANGE\n"));
+	    UNHANDLED_EVENT_PRINTF(("WM_TIMECHANGE\n"));
-break;
+	    break;
-case WM_CANCELMODE:
+	case WM_CANCELMODE:
-UNHANDLED_EVENT_PRINTF(("WM_CANCELMODE\n"));
+	    UNHANDLED_EVENT_PRINTF(("WM_CANCELMODE\n"));
-break;
+	    break;
-case WM_CHILDACTIVATE:
+	case WM_CHILDACTIVATE:
-UNHANDLED_EVENT_PRINTF(("WM_CHILDACTIVATE\n"));
+	    UNHANDLED_EVENT_PRINTF(("WM_CHILDACTIVATE\n"));
-break;
+	    break;
-case WM_QUEUESYNC:
+	case WM_QUEUESYNC:
-UNHANDLED_EVENT_PRINTF(("WM_QUEUESYNC\n"));
+	    UNHANDLED_EVENT_PRINTF(("WM_QUEUESYNC\n"));
-break;
+	    break;
-case WM_NEXTDLGCTL:
+	case WM_NEXTDLGCTL:
-UNHANDLED_EVENT_PRINTF(("WM_NEXTDLGCTL\n"));
+	    UNHANDLED_EVENT_PRINTF(("WM_NEXTDLGCTL\n"));
-break;
+	    break;
-case WM_SPOOLERSTATUS:
+	case WM_SPOOLERSTATUS:
-UNHANDLED_EVENT_PRINTF(("WM_SPOOLERSTATUS\n"));
+	    UNHANDLED_EVENT_PRINTF(("WM_SPOOLERSTATUS\n"));
-break;
+	    break;
-case WM_MEASUREITEM:
+	case WM_MEASUREITEM:
-UNHANDLED_EVENT_PRINTF(("WM_MEASUREITEM\n"));
+	    UNHANDLED_EVENT_PRINTF(("WM_MEASUREITEM\n"));
-break;
+	    break;
-case WM_DELETEITEM:
+	case WM_DELETEITEM:
-UNHANDLED_EVENT_PRINTF(("WM_DELETEITEM\n"));
+	    UNHANDLED_EVENT_PRINTF(("WM_DELETEITEM\n"));
-break;
+	    break;
-case WM_VKEYTOITEM:
+	case WM_VKEYTOITEM:
-UNHANDLED_EVENT_PRINTF(("WM_VKEYTOITEM\n"));
+	    UNHANDLED_EVENT_PRINTF(("WM_VKEYTOITEM\n"));
-break;
+	    break;
-case WM_CHARTOITEM:
+	case WM_CHARTOITEM:
-UNHANDLED_EVENT_PRINTF(("WM_CHARTOITEM\n"));
+	    UNHANDLED_EVENT_PRINTF(("WM_CHARTOITEM\n"));
-break;
+	    break;
-case WM_SETFONT:
+	case WM_SETFONT:
-UNHANDLED_EVENT_PRINTF(("WM_SETFONT\n"));
+	    UNHANDLED_EVENT_PRINTF(("WM_SETFONT\n"));
-break;
+	    break;
-case WM_GETFONT:
+	case WM_GETFONT:
-UNHANDLED_EVENT_PRINTF(("WM_GETFONT\n"));
+	    UNHANDLED_EVENT_PRINTF(("WM_GETFONT\n"));
-break;
+	    break;
-case WM_SETHOTKEY:
+	case WM_SETHOTKEY:
-UNHANDLED_EVENT_PRINTF(("WM_SETHOTKEY\n"));
+	    UNHANDLED_EVENT_PRINTF(("WM_SETHOTKEY\n"));
-break;
+	    break;
-case WM_GETHOTKEY:
+	case WM_GETHOTKEY:
-UNHANDLED_EVENT_PRINTF(("WM_GETHOTKEY\n"));
+	    UNHANDLED_EVENT_PRINTF(("WM_GETHOTKEY\n"));
-break;
+	    break;
-case WM_QUERYDRAGICON:
+	case WM_QUERYDRAGICON:
-UNHANDLED_EVENT_PRINTF(("WM_QUERYDRAGICON\n"));
+	    UNHANDLED_EVENT_PRINTF(("WM_QUERYDRAGICON\n"));
-break;
+	    break;
-case WM_COMPAREITEM:
+	case WM_COMPAREITEM:
-UNHANDLED_EVENT_PRINTF(("WM_COMPAREITEM\n"));
+	    UNHANDLED_EVENT_PRINTF(("WM_COMPAREITEM\n"));
-break;
+	    break;
-case WM_GETOBJECT:
+	case WM_GETOBJECT:
-UNHANDLED_EVENT_PRINTF(("WM_GETOBJECT\n"));
+	    UNHANDLED_EVENT_PRINTF(("WM_GETOBJECT\n"));
-break;
+	    break;
-case WM_COMPACTING:
+	case WM_COMPACTING:
-UNHANDLED_EVENT_PRINTF(("WM_COMPACTING\n"));
+	    UNHANDLED_EVENT_PRINTF(("WM_COMPACTING\n"));
-break;
+	    break;
-case WM_COMMNOTIFY:
+	case WM_COMMNOTIFY:
-UNHANDLED_EVENT_PRINTF(("WM_COMMNOTIFY\n"));
+	    UNHANDLED_EVENT_PRINTF(("WM_COMMNOTIFY\n"));
-break;
+	    break;
-case WM_CANCELJOURNAL:
+	case WM_CANCELJOURNAL:
-UNHANDLED_EVENT_PRINTF(("WM_CANCELJOURNAL\n"));
+	    UNHANDLED_EVENT_PRINTF(("WM_CANCELJOURNAL\n"));
-break;
+	    break;
-case WM_INPUTLANGCHANGEREQUEST:
+	case WM_INPUTLANGCHANGEREQUEST:
-UNHANDLED_EVENT_PRINTF(("WM_INPUTLANGCHANGEREQUEST\n"));
+	    UNHANDLED_EVENT_PRINTF(("WM_INPUTLANGCHANGEREQUEST\n"));
-break;
+	    break;
-case WM_INPUTLANGCHANGE:
+	case WM_INPUTLANGCHANGE:
-UNHANDLED_EVENT_PRINTF(("WM_INPUTLANGCHANGE\n"));
+	    UNHANDLED_EVENT_PRINTF(("WM_INPUTLANGCHANGE\n"));
-break;
+	    break;
-case WM_TCARD:
+	case WM_TCARD:
-UNHANDLED_EVENT_PRINTF(("WM_TCARD\n"));
+	    UNHANDLED_EVENT_PRINTF(("WM_TCARD\n"));
-break;
+	    break;
-case WM_HELP:
+	case WM_HELP:
-UNHANDLED_EVENT_PRINTF(("WM_HELP\n"));
+	    UNHANDLED_EVENT_PRINTF(("WM_HELP\n"));
-break;
+	    break;
-case WM_USERCHANGED:
+	case WM_USERCHANGED:
-UNHANDLED_EVENT_PRINTF(("WM_USERCHANGED\n"));
+	    UNHANDLED_EVENT_PRINTF(("WM_USERCHANGED\n"));
-break;
+	    break;
-case WM_NOTIFY:
+	case WM_NOTIFY:
-UNHANDLED_EVENT_PRINTF(("WM_NOTIFY\n"));
+	    UNHANDLED_EVENT_PRINTF(("WM_NOTIFY\n"));
-break;
+	    break;
-case WM_NOTIFYFORMAT:
+	case WM_NOTIFYFORMAT:
-UNHANDLED_EVENT_PRINTF(("WM_NOTIFYFORMAT\n"));
+	    UNHANDLED_EVENT_PRINTF(("WM_NOTIFYFORMAT\n"));
-break;
+	    break;
-case WM_CONTEXTMENU:
+	case WM_CONTEXTMENU:
-UNHANDLED_EVENT_PRINTF(("WM_CONTEXTMENU\n"));
+	    UNHANDLED_EVENT_PRINTF(("WM_CONTEXTMENU\n"));
-break;
+	    break;
-case WM_NCXBUTTONDOWN:
+	case WM_NCXBUTTONDOWN:
-UNHANDLED_EVENT_PRINTF(("WM_NCXBUTTONDOWN\n"));
+	    UNHANDLED_EVENT_PRINTF(("WM_NCXBUTTONDOWN\n"));
-break;
+	    break;
-case WM_NCXBUTTONUP:
+	case WM_NCXBUTTONUP:
-UNHANDLED_EVENT_PRINTF(("WM_NCXBUTTONUP\n"));
+	    UNHANDLED_EVENT_PRINTF(("WM_NCXBUTTONUP\n"));
-break;
+	    break;
-case WM_NCXBUTTONDBLCLK:
+	case WM_NCXBUTTONDBLCLK:
-UNHANDLED_EVENT_PRINTF(("WM_NCXBUTTONDBLCLK\n"));
+	    UNHANDLED_EVENT_PRINTF(("WM_NCXBUTTONDBLCLK\n"));
-break;
+	    break;
-case WM_DEVICECHANGE:
+	case WM_DEVICECHANGE:
-UNHANDLED_EVENT_PRINTF(("WM_DEVICECHANGE\n"));
+	    UNHANDLED_EVENT_PRINTF(("WM_DEVICECHANGE\n"));
-break;
+	    break;
-case DBT_DEVICEARRIVAL:
+	case DBT_DEVICEARRIVAL:
-UNHANDLED_EVENT_PRINTF(("DBT_DEVICEARRIVAL\n"));
+	    UNHANDLED_EVENT_PRINTF(("DBT_DEVICEARRIVAL\n"));
-break;
+	    break;
-case DBT_DEVICEREMOVECOMPLETE:
+	case DBT_DEVICEREMOVECOMPLETE:
-UNHANDLED_EVENT_PRINTF(("DBT_DEVICEREMOVECOMPLETE\n"));
+	    UNHANDLED_EVENT_PRINTF(("DBT_DEVICEREMOVECOMPLETE\n"));
-break;
+	    break;
 #endif
-default:
+	default:
-EVENT_PRINTF(( "WinWorkstat [info] unhandled msg = %d 0x%x [%d]\n", message, message, __LINE__));
+	    EVENT_PRINTF(( "WinWorkstat [info] unhandled msg = %d 0x%x [%d]\n", message, message, __LINE__));
-break;
+	    break;
 }
 return 0;
 }
 TH_DPRINTF(("TS %d\n", th_calls++));
 PeekMessageW(&msg, NULL, 0, 0, PM_NOREMOVE);   /* must be */
 #if 0
 if (AttachThreadInput(_masterThreadId, _dispatchThreadId2, TRUE) != TRUE) {
-console_fprintf(stderr, "WinWorkstation [warning]: AttachThreadInput failed\n");
+	console_fprintf(stderr, "WinWorkstation [warning]: AttachThreadInput failed\n");
 };
 #endif
 #ifndef WIN32THREADS
 # if 0
 SetThreadPriority(_masterThread,THREAD_PRIORITY_HIGHEST);
 GetWindowRect(GetDesktopWindow(), &rect);
 /* allocate localMemory for Window */
 lI = (localWindowInfo *)malloc(sizeof(localWindowInfo));
 if (lI) {
-memset(lI, 0, sizeof(*lI));
+	memset(lI, 0, sizeof(*lI));
 }
 __rootWinSpezial = CreateWindowExW(WS_EX_TOOLWINDOW | WS_EX_TRANSPARENT,
-wapp_nameRoot, wapp_nameRoot,
+				      wapp_nameRoot, wapp_nameRoot,
-WS_POPUP | WS_DISABLED,
+				      WS_POPUP | WS_DISABLED,
-0, 0,
+				      0, 0,
-rect.right - rect.left, rect.bottom - rect.top,
+				      rect.right - rect.left, rect.bottom - rect.top,
-0, 0, (HANDLE) __getHInstance(), lI);
+				      0, 0, (HANDLE) __getHInstance(), lI);
 //ShowWindow(__rootWinSpezial,SW_SHOWNOACTIVATE);
 SetWindowPos(__rootWinSpezial, HWND_BOTTOM, 0, 0, 0, 0,
-SWP_NOSENDCHANGING |
+		 SWP_NOSENDCHANGING |
-SWP_NOACTIVATE | SWP_NOMOVE | SWP_NOSIZE);
+		 SWP_NOACTIVATE | SWP_NOMOVE | SWP_NOSIZE);
 #ifdef STARTUP_DISPATCHTHREAD_DEBUG
 console_fprintf(stderr, "WinWorkstation [info]: setting ThreadRunningEvent\n");
 #endif
 SetEvent(hDispatchThreadRunningEvent);
 for (;;) {
-HANDLE dummy;
+	HANDLE dummy;
-TH_DPRINTF(("TG %d\n", th_calls++));
+	TH_DPRINTF(("TG %d\n", th_calls++));
-/*
+	/*
-* if there is no current capture (pointer-grab),
+	 * if there is no current capture (pointer-grab),
-* make certain that we do not get stuck in the GetMessage
+	 * make certain that we do not get stuck in the GetMessage
-* but instead poll the mouse in 200ms intervals.
+	 * but instead poll the mouse in 200ms intervals.
-* This is required to synthesize the MOUSELEAVE message,
+	 * This is required to synthesize the MOUSELEAVE message,
-*/
+	 */
 // DPRINTF(("X1\n"));
-if (__currentPointerView && (__currentCapture == CAPTURE_NONE)) {
+	if (__currentPointerView && (__currentCapture == CAPTURE_NONE)) {
 // DPRINTF(("X2\n"));
-while (PeekMessageW(&msg, 0, 0, 0, PM_NOREMOVE) == 0) {
+	    while (PeekMessageW(&msg, 0, 0, 0, PM_NOREMOVE) == 0) {
 // DPRINTF(("PeekMessage -> 0\n"));
-/*
+		/*
-* wait for an event; timeout after 200 millis
+		 * wait for an event; timeout after 200 millis
-*/
+		 */
-if (MsgWaitForMultipleObjects(0,&dummy,FALSE,200,QS_ALLINPUT) == WAIT_TIMEOUT) {
+		if (MsgWaitForMultipleObjects(0,&dummy,FALSE,200,QS_ALLINPUT) == WAIT_TIMEOUT) {
-if (! inSizeMove) {
+		    if (! inSizeMove) {
-/*
+			/*
-* timeout - see where mouse pointer is
+			 * timeout - see where mouse pointer is
-* for synthetic leave events.
+			 * for synthetic leave events.
-*/
+			 */
-POINT point;
+			POINT point;
-if (GetCursorPos(&point)) {
+			if (GetCursorPos(&point)) {
-HWND hWnd = WindowFromPoint(point);
+			    HWND hWnd = WindowFromPoint(point);
-if (hWnd) {
+			    if (hWnd) {
-if (GetWindowThreadProcessId(hWnd,0) != GetCurrentThreadId()) {
+				if (GetWindowThreadProcessId(hWnd,0) != GetCurrentThreadId()) {
-if (inSizeMove) {
+				    if (inSizeMove) {
-if (needDelayedMouseLeaveWindow == NULL) {
+					if (needDelayedMouseLeaveWindow == NULL) {
-needDelayedMouseLeaveWindow = __currentPointerView;
+					    needDelayedMouseLeaveWindow = __currentPointerView;
-}
+					}
-} else {
+				    } else {
-if (GetWindow_eventMask(__currentPointerView) & LeaveWindowMask) {
+					if (GetWindow_eventMask(__currentPointerView) & LeaveWindowMask) {
-enqEvent(LeaveWindowMask, __currentPointerView, __WM_MOUSELEAVE, 0, -1, -1, 0, getModifiers(), EV_NOTIME);
+					    enqEvent(LeaveWindowMask, __currentPointerView, __WM_MOUSELEAVE, 0, -1, -1, 0, getModifiers(), EV_NOTIME);
-SetWindow_mouseXY(__currentPointerView, -9999, -9999);
+					    SetWindow_mouseXY(__currentPointerView, -9999, -9999);
-}
+					}
-}
+				    }
-__currentPointerView = 0;
+				    __currentPointerView = 0;
-break;
+				    break;
-}
+				}
-}
+			    }
-}
+			}
-}
+		    }
-}
+		}
-}
+	    }
-}
+	}
-GetMessageW(&msg, NULL, 0, 0);
+	GetMessageW(&msg, NULL, 0, 0);
 // DPRINTF(("GetMessage -> %d\n", msg.message));
-TH_DPRINTF(("TD %d\n", th_calls++));
+	TH_DPRINTF(("TD %d\n", th_calls++));
-destroyWin = 0;
+	destroyWin = 0;
-switch (msg.message) {
+	switch (msg.message) {
 #if 0
-case WM_THREAD_DESTROYWINDOW:
+	    case WM_THREAD_DESTROYWINDOW:
-destroyWin = TRUE;
+		destroyWin = TRUE;
-msg.message = WM_CLOSE;
+		msg.message = WM_CLOSE;
-EVENT_PRINTF(("thread WM_THREAD_DESTROYWINDOW %x\n",msg.hwnd));
+		EVENT_PRINTF(("thread WM_THREAD_DESTROYWINDOW %x\n",msg.hwnd));
-break;
+		break;
 #endif
 #ifdef SET_FOCUS_IN_WINTHREAD
-case WM_THREAD_SETFOCUS:
+	    case WM_THREAD_SETFOCUS:
-DPRINTFIF(__debug_WM_FOCUS__ , ("WM_THREAD_SETFOCUS h=%x\n", msg.wParam));
+		DPRINTFIF(__debug_WM_FOCUS__ , ("WM_THREAD_SETFOCUS h=%x\n", msg.wParam));
 # ifdef xxWIN32THREADS
-if (msg.lParam) {
+		if (msg.lParam) {
-if (AttachThreadInput(_dispatchThreadId2,msg.lParam,TRUE) == FALSE)
+		    if (AttachThreadInput(_dispatchThreadId2,msg.lParam,TRUE) == FALSE)
-PRINTF(("SetFocus AttachThreadInput error %d\n", GetLastError()));
+			PRINTF(("SetFocus AttachThreadInput error %d\n", GetLastError()));
-}
+		}
 # endif
-EVENT_PRINTF(("threadSetfocus %x\n",msg.wParam));
+		EVENT_PRINTF(("threadSetfocus %x\n",msg.wParam));
-if (SetFocus((HWND)msg.wParam) == 0) {
+		if (SetFocus((HWND)msg.wParam) == 0) {
-DDPRINTF(("SetFocus to %x failed.\n",msg.wParam));
+		    DDPRINTF(("SetFocus to %x failed.\n",msg.wParam));
-}
+		}
-continue;
+		continue;
 #endif
 #ifdef SET_CURSOR_IN_WINTHREAD
-case WM_THREAD_SETCURSOR:
+	    case WM_THREAD_SETCURSOR:
-if (msg.lParam) {
+		if (msg.lParam) {
 #if 1
-SetCursor((HCURSOR)msg.lParam);
+		    SetCursor((HCURSOR)msg.lParam);
 #else
-/* this check is done by our sender */
+		    /* this check is done by our sender */
-{
+		    {
-POINT p;
+			POINT p;
-GetCursorPos(&p);
+			GetCursorPos(&p);
-if (WindowFromPoint(p) == msg.hwnd) {
+			if (WindowFromPoint(p) == msg.hwnd) {
-EVENT_PRINTF(("threadSetCursor %x\n",msg.lParam));
+			    EVENT_PRINTF(("threadSetCursor %x\n",msg.lParam));
-SetCursor((HCURSOR)msg.lParam);
+			    SetCursor((HCURSOR)msg.lParam);
-}
+			}
-}
+		    }
 #endif
-}
+		}
-continue;
+		continue;
 #endif
 #ifdef BEEP_IN_WINTHREAD
-case WM_THREAD_BEEP:
+	    case WM_THREAD_BEEP:
-MessageBeep( MB_ICONEXCLAMATION);
+		MessageBeep( MB_ICONEXCLAMATION);
-continue;
+		continue;
 #endif
-case WM_THREAD_SETCAPTURE:
+	    case WM_THREAD_SETCAPTURE:
-if (msg.wParam) {
+		if (msg.wParam) {
-if (__currentPointerView) {
+		    if (__currentPointerView) {
-if (inSizeMove) {
+			if (inSizeMove) {
-if (needDelayedMouseLeaveWindow == NULL) {
+			    if (needDelayedMouseLeaveWindow == NULL) {
-needDelayedMouseLeaveWindow = __currentPointerView;
+				needDelayedMouseLeaveWindow = __currentPointerView;
-}
+			    }
-} else {
+			} else {
-if (GetWindow_eventMask(__currentPointerView) & LeaveWindowMask) {
+			    if (GetWindow_eventMask(__currentPointerView) & LeaveWindowMask) {
-enqEvent(LeaveWindowMask, __currentPointerView, __WM_MOUSELEAVE, 0, -1, -1, 0, getModifiers(), EV_NOTIME);
+				enqEvent(LeaveWindowMask, __currentPointerView, __WM_MOUSELEAVE, 0, -1, -1, 0, getModifiers(), EV_NOTIME);
-SetWindow_mouseXY(__currentPointerView, -9999, -9999);
+				SetWindow_mouseXY(__currentPointerView, -9999, -9999);
-}
+			    }
-}
+			}
-}
+		    }
-__currentPointerView = (HWND)msg.wParam;
+		    __currentPointerView = (HWND)msg.wParam;
-__currentCapture = CAPTURE_EXPLICIT;
+		    __currentCapture = CAPTURE_EXPLICIT;
-EVENT_PRINTF(("threadSetCapture %x\n",msg.wParam));
+		    EVENT_PRINTF(("threadSetCapture %x\n",msg.wParam));
-SetCapture(__currentPointerView);
+		    SetCapture(__currentPointerView);
-} else {
+		} else {
-if (__currentPointerView  == __rootWinSpezial) {
+		    if (__currentPointerView  == __rootWinSpezial) {
-//ShowWindow(__rootWinSpezial, SW_HIDE);
+			//ShowWindow(__rootWinSpezial, SW_HIDE);
-SetWindowPos(__rootWinSpezial, HWND_BOTTOM, 0, 0, 0, 0,
+			SetWindowPos(__rootWinSpezial, HWND_BOTTOM, 0, 0, 0, 0,
-SWP_NOREDRAW | SWP_NOSENDCHANGING | SWP_NOCOPYBITS
+				     SWP_NOREDRAW | SWP_NOSENDCHANGING | SWP_NOCOPYBITS
-| SWP_HIDEWINDOW | SWP_NOACTIVATE | SWP_NOMOVE | SWP_NOSIZE
+				     | SWP_HIDEWINDOW | SWP_NOACTIVATE | SWP_NOMOVE | SWP_NOSIZE
-/*| SWP_NOZORDER | SWP_NOOWNERZORDER */);
+				   /*| SWP_NOZORDER | SWP_NOOWNERZORDER */);
-}
+		    }
-__currentPointerView = 0;
+		    __currentPointerView = 0;
-__currentCapture = CAPTURE_NONE;
+		    __currentCapture = CAPTURE_NONE;
-EVENT_PRINTF(("threadReleaseCapture\n"));
+		    EVENT_PRINTF(("threadReleaseCapture\n"));
-ReleaseCapture();
+		    ReleaseCapture();
-}
+		}
-if (msg.lParam) {
+		if (msg.lParam) {
-DDDDPRINTF(("threadSetCursor %x\n",msg.lParam));
+		    DDDDPRINTF(("threadSetCursor %x\n",msg.lParam));
-SetCursor((HCURSOR)msg.lParam);
+		    SetCursor((HCURSOR)msg.lParam);
-}
+		}
-continue;
+		continue;
-case WM_THREAD_CREATEWINDOW:
+	    case WM_THREAD_CREATEWINDOW:
-EVENT_PRINTF(("*WM_THREAD_CREATEWINDOW %d\n", th_calls));
+		EVENT_PRINTF(("*WM_THREAD_CREATEWINDOW %d\n", th_calls));
-{
+		{
-createWindowInfo *cwi = (createWindowInfo *)(msg.lParam);
+		    createWindowInfo *cwi = (createWindowInfo *)(msg.lParam);
-if ((cwi->sequenceNr == msg.wParam)
+		    if ((cwi->sequenceNr == msg.wParam)
-&& (cwi->sequenceNr != INVALIDATED_CWI)) {
+		     && (cwi->sequenceNr != INVALIDATED_CWI)) {
-cwi->sequenceNr = INVALIDATED_CWI;
+			cwi->sequenceNr = INVALIDATED_CWI;
-cwi->infoWasRead = 1;
+			cwi->infoWasRead = 1;
-if (cwi->newWinHandle == NULL) {
+			if (cwi->newWinHandle == NULL) {
-HANDLE ev;
+			    HANDLE ev;
-cwi->newWinHandle = CreateWindowExW(
+			    cwi->newWinHandle = CreateWindowExW(
-cwi->winStyleBitsEx,
+						cwi->winStyleBitsEx,
-cwi->className,
+						cwi->className,
-cwi->windowName,
+						cwi->windowName,
-cwi->winStyleBits,
+						cwi->winStyleBits,
-cwi->x, cwi->y,
+						cwi->x, cwi->y,
-cwi->dx, cwi->dy,
+						cwi->dx, cwi->dy,
-cwi->parentHandle,
+						cwi->parentHandle,
-NULL,           /* menu */
+						NULL,           /* menu */
-(HANDLE) __getHInstance(),
+						(HANDLE) __getHInstance(),
-cwi->localWindowInfo
+						cwi->localWindowInfo
-);
+					       );
-if (cwi->newWinHandle == NULL) {
+			    if (cwi->newWinHandle == NULL) {
-cwi->errCode = GetLastError();
+				cwi->errCode = GetLastError();
-console_fprintf(stderr, "WinWorkstation [info]: CreateWindow %s failed: %d (0x%x) [%d]\n",
+				console_fprintf(stderr, "WinWorkstation [info]: CreateWindow %s failed: %d (0x%x) [%d]\n",
-cwi->className, cwi->errCode, cwi->errCode, __LINE__);
+						cwi->className, cwi->errCode, cwi->errCode, __LINE__);
-} else {
+			    } else {
-SETLOCALWINDOWINFOPTR(cwi->newWinHandle, cwi->localWindowInfo);
+				SETLOCALWINDOWINFOPTR(cwi->newWinHandle, cwi->localWindowInfo);
 #ifdef DEBUG /* PARANOIA */
-if (GETLOCALWINDOWINFOPTR(cwi->newWinHandle) != cwi->localWindowInfo) {
+				if (GETLOCALWINDOWINFOPTR(cwi->newWinHandle) != cwi->localWindowInfo) {
-console_fprintf(stderr, "lI-Error\n");
+				   console_fprintf(stderr, "lI-Error\n");
-}
+				}
 #endif
-}
+			    }
-ev = cwi->hCreateEvent;
+			    ev = cwi->hCreateEvent;
-if (ev) {
+			    if (ev) {
-SetEvent(ev);
+				SetEvent(ev);
-}
+			    }
-}
+			}
-} else {
+		    } else {
-DPRINTF(("obsolete createWindow message %x ignored\n", cwi->sequenceNr));
+			DPRINTF(("obsolete createWindow message %x ignored\n", cwi->sequenceNr));
-}
+		    }
-}
+		}
-continue;
+		continue;
-case WM_THREAD_REGISTERHOTKEY:
+	    case WM_THREAD_REGISTERHOTKEY:
-EVENT_PRINTF(("*WM_THREAD_REGISTERHOTKEY\n"));
+		EVENT_PRINTF(("*WM_THREAD_REGISTERHOTKEY\n"));
-{
+		{
-registerHotKeyInfo *rhki = (registerHotKeyInfo *)(msg.lParam);
+		    registerHotKeyInfo *rhki = (registerHotKeyInfo *)(msg.lParam);
-rhki->errorCode = 0;
+		    rhki->errorCode = 0;
-if (!RegisterHotKey(rhki->hwnd,rhki->hotKeyId,rhki->modifier,rhki->virtualKey)){
+		    if (!RegisterHotKey(rhki->hwnd,rhki->hotKeyId,rhki->modifier,rhki->virtualKey)){
-rhki->errorCode = GetLastError();
+			rhki->errorCode = GetLastError();
-console_fprintf(stderr, "WinWorkstation [error]: RegisterHotKey failed: err=%d\n", rhki->errorCode);
+			console_fprintf(stderr, "WinWorkstation [error]: RegisterHotKey failed: err=%d\n", rhki->errorCode);
-}
+		    }
-rhki->finished = 1;
+		    rhki->finished = 1;
-}
+		}
-continue;
+		continue;
-case WM_THREAD_UNREGISTERHOTKEY:
+	    case WM_THREAD_UNREGISTERHOTKEY:
-EVENT_PRINTF(("*WM_THREAD_UNREGISTERHOTKEY\n"));
+		EVENT_PRINTF(("*WM_THREAD_UNREGISTERHOTKEY\n"));
-{
+		{
-registerHotKeyInfo *rhki = (registerHotKeyInfo *)(msg.lParam);
+		    registerHotKeyInfo *rhki = (registerHotKeyInfo *)(msg.lParam);
-rhki->errorCode = 0;
+		    rhki->errorCode = 0;
-if (!UnregisterHotKey(rhki->hwnd,rhki->hotKeyId)){
+		    if (!UnregisterHotKey(rhki->hwnd,rhki->hotKeyId)){
-rhki->errorCode = GetLastError();
+			rhki->errorCode = GetLastError();
-console_fprintf(stderr, "WinWorkstation [error]: UnegisterHotKey failed: err=%d\n", rhki->errorCode);
+			console_fprintf(stderr, "WinWorkstation [error]: UnegisterHotKey failed: err=%d\n", rhki->errorCode);
-}
+		    }
-rhki->finished = 1;
+		    rhki->finished = 1;
-}
+		}
-continue;
+		continue;
-case WM_KEYDOWN:
+	    case WM_KEYDOWN:
-DPRINTFIF(__debug_WM_KEYDOWN__ , ("WM_KEYDOWN %x\n", msg.wParam));
+		DPRINTFIF(__debug_WM_KEYDOWN__ , ("WM_KEYDOWN %x\n", msg.wParam));
-goto commonKey;
+		goto commonKey;
-case WM_KEYUP:
+	    case WM_KEYUP:
-DPRINTFIF(__debug_WM_KEYUP__  , ("WM_KEYUP %x\n", msg.wParam));
+		DPRINTFIF(__debug_WM_KEYUP__  , ("WM_KEYUP %x\n", msg.wParam));
-goto commonKey;
+		goto commonKey;
-case WM_SYSKEYDOWN:
+	    case WM_SYSKEYDOWN:
-DPRINTFIF(__debug_WM_KEYDOWN__ , ("WM_SYSKEYDOWN %x\n", msg.wParam));
+		DPRINTFIF(__debug_WM_KEYDOWN__ , ("WM_SYSKEYDOWN %x\n", msg.wParam));
-goto commonKey;
+		goto commonKey;
-case WM_SYSKEYUP:
+	    case WM_SYSKEYUP:
-DPRINTFIF(__debug_WM_KEYUP__ , ("WM_SYSKEYUP %x\n", msg.wParam));
+		DPRINTFIF(__debug_WM_KEYUP__ , ("WM_SYSKEYUP %x\n", msg.wParam));
-goto commonKey;
+		goto commonKey;
-case WM_HOTKEY:
+	    case WM_HOTKEY:
-// console_fprintf(stderr, "dispatchThread [info]: receive hotkey %x %x\n", msg.hwnd, msg.wParam);
+		// console_fprintf(stderr, "dispatchThread [info]: receive hotkey %x %x\n", msg.hwnd, msg.wParam);
-DPRINTFIF(__debug_WM_KEYUP__ , ("WM_HOTKEY %x\n", msg.wParam));
+		DPRINTFIF(__debug_WM_KEYUP__ , ("WM_HOTKEY %x\n", msg.wParam));
-break;
+		break;
-commonKey:
+	    commonKey:
 #if 1
-if (((msg.wParam >= '0') && (msg.wParam <= 'Z'))
+		if (((msg.wParam >= '0') && (msg.wParam <= 'Z'))
-|| ((msg.wParam >= VK_MULTIPLY) && (msg.wParam <= VK_DIVIDE))
+		 || ((msg.wParam >= VK_MULTIPLY) && (msg.wParam <= VK_DIVIDE))
-|| (msg.wParam == VK_SPACE)
+		 || (msg.wParam == VK_SPACE)
-|| (msg.wParam == VK_CAPITAL)
+		 || (msg.wParam == VK_CAPITAL)
-/* || (msg.wParam == VK_SHIFT) */
+		 /* || (msg.wParam == VK_SHIFT) */
-|| (msg.wParam >= 0xB0))
+		 || (msg.wParam >= 0xB0))
 #endif
-{
+		{
-/*
+		    /*
-* translate to a WM_CHAR message
+		     * translate to a WM_CHAR message
-*/
+		     */
-if (TranslateMessage(&msg))
+		    if (TranslateMessage(&msg))
-continue;
+			continue;
-}
+		}
-break;
+		break;
-/* short cirquit some messages */
+	    /* short cirquit some messages */
 #if 0
 # ifndef SUPPORT_NATIVE_WINDOWS
-/*
+	    /*
-* some can simply be ignored ...
+	     * some can simply be ignored ...
-*/
+	     */
-case WM_ERASEBKGND:
+	    case WM_ERASEBKGND:
-EVENT_PRINTF(("*WM_ERASEBKGND\n"));
+		EVENT_PRINTF(("*WM_ERASEBKGND\n"));
-continue;
+		continue;
-case WM_KILLFOCUS:
+	    case WM_KILLFOCUS:
-EVENT_PRINTF(("*WM_KILLFOCUS\n"));
+		EVENT_PRINTF(("*WM_KILLFOCUS\n"));
-continue;
+		continue;
 # endif
 #endif
 #if 0
-case WM_SIZE:
+	    case WM_SIZE:
-EVENT_PRINTF(("*WM_SIZE\n"));
+		EVENT_PRINTF(("*WM_SIZE\n"));
-continue;
+		continue;
 #endif
-}
+	}
-/*
+	/*
-* common ...
+	 * common ...
-*/
+	 */
-evRootX = msg.pt.x;
+	evRootX = msg.pt.x;
-evRootY = msg.pt.y;
+	evRootY = msg.pt.y;
 #if 1
-{
+	{
-POINT p;
+	    POINT p;
-if (GetCursorPos(&p)) {
+	    if (GetCursorPos(&p)) {
-evRootX = p.x;
+		evRootX = p.x;
-evRootY = p.y;
+		evRootY = p.y;
-}
+	    }
-}
+	}
 #endif
-lastMSGTime = msg.time;
+	lastMSGTime = msg.time;
-DispatchMessageW(&msg);   /* Dispatches message to window */
+	DispatchMessageW(&msg);   /* Dispatches message to window */
 }
 }
 LONG APIENTRY
 MainWndProc(HWND hWnd, UINT message, UINT wParam, LONG lParam)
 * even more of a kludge: to prevent the message in the PostThreadMessage-queue
 * from being processed twice, we use a sequenceNr, which is passed as wParam.
 */
 cwi = pendingCREATEWINDOWInfo;
 if (cwi) {
-int dummyWantDefault;
+	int dummyWantDefault;
-int seqNr = pendingSequenceNr;
+	int seqNr = pendingSequenceNr;
-pendingCREATEWINDOWInfo = 0;
+	pendingCREATEWINDOWInfo = 0;
-pendingSequenceNr = INVALIDATED_CWI;
+	pendingSequenceNr = INVALIDATED_CWI;
-DPRINTF(("### THREAD_CREATEWINDOW\n"));
+	DPRINTF(("### THREAD_CREATEWINDOW\n"));
-winEventProcessing(0, WM_THREAD_CREATEWINDOW, seqNr, (INT)cwi, &dummyWantDefault);
+	winEventProcessing(0, WM_THREAD_CREATEWINDOW, seqNr, (INT)cwi, &dummyWantDefault);
 }
 retVal = winEventProcessing(hWnd, message, wParam, lParam, &wantDefault);
 if (wantDefault) {
-DDDPRINTF((">>DefWindowProc\n"));
+	DDDPRINTF((">>DefWindowProc\n"));
-retVal = DefWindowProcW(hWnd, message, wParam, lParam);
+	retVal = DefWindowProcW(hWnd, message, wParam, lParam);
-DDDPRINTF(("<<DefWindowProc\n"));
+	DDDPRINTF(("<<DefWindowProc\n"));
 }
 return retVal;
 }
 static int CALLBACK
 EnumWindowsProc(HWND hwnd, LPARAM lParam)
 {
-volatile OBJ *refToCollection;
+	volatile OBJ *refToCollection;
-OBJ collection;
+	OBJ collection;
-OBJ wHandle;
+	OBJ wHandle;
-if (hwnd) {
+	if (hwnd) {
-refToCollection = (OBJ*) lParam;
+	    refToCollection = (OBJ*) lParam;
-__PROTECT__(*refToCollection);
+	    __PROTECT__(*refToCollection);
-wHandle = __MKEXTERNALADDRESS(hwnd);
+	    wHandle = __MKEXTERNALADDRESS(hwnd);
-__UNPROTECT__(*refToCollection);
+	    __UNPROTECT__(*refToCollection);
-collection = *refToCollection;
+	    collection = *refToCollection;
-__SSEND1( collection, @symbol(add:), 0, wHandle );
+	    __SSEND1( collection, @symbol(add:), 0, wHandle );
-}
+	}
-return TRUE;
+	return TRUE;
 }
 #ifdef USE_EnumFontFamiliesEx
 # define LOGFONTTYPE  ENUMLOGFONTEX
 #else
 const LOGFONTTYPE *lplf,   /* ptr to of logical-font data */
 const TEXTMETRIC  *lptm,   /* ptr to physical font data */
 DWORD dwType,              /* font type */
 LPARAM lpData              /* application supplied data */
 ) {
-OBJ t;
+	OBJ t;
-volatile OBJ *refToList;
+	volatile OBJ *refToList;
-OBJ  typeFaceList;
+	OBJ  typeFaceList;
-char *faceNameString;
+	char *faceNameString;
-if (lplf) {
+	if (lplf) {
-refToList = (OBJ *) lpData;
+	    refToList = (OBJ *) lpData;
-__PROTECT__(*refToList);
+	    __PROTECT__(*refToList);
 #ifdef USE_EnumFontFamiliesEx
-faceNameString = lplf->elfLogFont.lfFaceName;
+	    faceNameString = lplf->elfLogFont.lfFaceName;
 #else
-faceNameString = lplf->lfFaceName;
+	    faceNameString = lplf->lfFaceName;
 #endif
-t = __MKSTRING( faceNameString );
+	    t = __MKSTRING( faceNameString );
-__UNPROTECT__(*refToList);
+	    __UNPROTECT__(*refToList);
-typeFaceList = *refToList;
+	    typeFaceList = *refToList;
-__SSEND1( typeFaceList, @symbol(add:), 0, t );
+	    __SSEND1( typeFaceList, @symbol(add:), 0, t );
-}
+	}
-return 1;
+	return 1;
 }
 /*
 * take a LOGFONT structure and extract relevant data into a smalltalk array.
 *
 __charSetSymbolFor(int charSet)
 {
 OBJ s;
 switch (charSet) {
-case ANSI_CHARSET:
+	case ANSI_CHARSET:
-s = @symbol('ms-ansi');
+	    s = @symbol('ms-ansi');
-break;
+	    break;
-case DEFAULT_CHARSET:
+	case DEFAULT_CHARSET:
-s = @symbol('ms-default');
+	    s = @symbol('ms-default');
-break;
+	    break;
-case SYMBOL_CHARSET:
+	case SYMBOL_CHARSET:
-s = @symbol('ms-symbol');
+	    s = @symbol('ms-symbol');
-break;
+	    break;
-case SHIFTJIS_CHARSET:
+	case SHIFTJIS_CHARSET:
-s = @symbol('ms-shiftjis');
+	    s = @symbol('ms-shiftjis');
-break;
+	    break;
-case GB2312_CHARSET:
+	case GB2312_CHARSET:
-s = @symbol('ms-gb2312');
+	    s = @symbol('ms-gb2312');
-break;
+	    break;
-case HANGEUL_CHARSET:
+	case HANGEUL_CHARSET:
-s = @symbol('ms-hangeul');
+	    s = @symbol('ms-hangeul');
-break;
+	    break;
 # if defined(HANGUL_CHARSET) && (HANGUL_CHARSET != HANGEUL_CHARSET)
-case HANGUL_CHARSET:
+	case HANGUL_CHARSET:
-s = @symbol('ms-hangul');
+	    s = @symbol('ms-hangul');
-break;
+	    break;
 # endif
-case CHINESEBIG5_CHARSET:
+	case CHINESEBIG5_CHARSET:
-s = @symbol('ms-chinesebig5');
+	    s = @symbol('ms-chinesebig5');
-break;
+	    break;
-case OEM_CHARSET:
+	case OEM_CHARSET:
-s = @symbol('ms-oem');
+	    s = @symbol('ms-oem');
-break;
+	    break;
 # ifdef JOHAB_CHARSET
-case JOHAB_CHARSET:
+	case JOHAB_CHARSET:
-s = @symbol('ms-johab');
+	    s = @symbol('ms-johab');
-break;
+	    break;
 # endif
 # ifdef HEBREW_CHARSET
-case HEBREW_CHARSET:
+	case HEBREW_CHARSET:
-s = @symbol('ms-hebrew');
+	    s = @symbol('ms-hebrew');
-break;
+	    break;
 # endif
 # ifdef ARABIC_CHARSET
-case ARABIC_CHARSET:
+	case ARABIC_CHARSET:
-s = @symbol('ms-arabic');
+	    s = @symbol('ms-arabic');
-break;
+	    break;
 # endif
 # ifdef GREEK_CHARSET
-case GREEK_CHARSET:
+	case GREEK_CHARSET:
-s = @symbol('ms-greek');
+	    s = @symbol('ms-greek');
-break;
+	    break;
 # endif
 # ifdef TURKISH_CHARSET
-case TURKISH_CHARSET:
+	case TURKISH_CHARSET:
-s = @symbol('ms-turkish');
+	    s = @symbol('ms-turkish');
-break;
+	    break;
 # endif
 # ifdef RUSSIAN_CHARSET
-case RUSSIAN_CHARSET:
+	case RUSSIAN_CHARSET:
-s = @symbol('ms-russian');
+	    s = @symbol('ms-russian');
-break;
+	    break;
 # endif
 # ifdef EASTEUROPE_CHARSET
-case EASTEUROPE_CHARSET:
+	case EASTEUROPE_CHARSET:
-s = @symbol('ms-easteurope');
+	    s = @symbol('ms-easteurope');
-break;
+	    break;
 # endif
 # ifdef BALTIC_CHARSET
-case BALTIC_CHARSET:
+	case BALTIC_CHARSET:
-s = @symbol('ms-baltic');
+	    s = @symbol('ms-baltic');
-break;
+	    break;
 # endif
 # ifdef VIETNAMESE_CHARSET
-case VIETNAMESE_CHARSET:
+	case VIETNAMESE_CHARSET:
-s = @symbol('ms-vietnamese');
+	    s = @symbol('ms-vietnamese');
-break;
+	    break;
 # endif
 # ifdef THAI_CHARSET
-case THAI_CHARSET:
+	case THAI_CHARSET:
-s = @symbol('ms-thai');
+	    s = @symbol('ms-thai');
-break;
+	    break;
 # endif
 # ifdef MAC_CHARSET
-case MAC_CHARSET:
+	case MAC_CHARSET:
-s = @symbol('ms-mac');
+	    s = @symbol('ms-mac');
-break;
+	    break;
 # endif
 # ifdef UNICODE_CHARSET
-case UNICODE_CHARSET:
+	case UNICODE_CHARSET:
-s = @symbol('ms-unicode');
+	    s = @symbol('ms-unicode');
-break;
+	    break;
 # endif
-default:
+	default:
-s = @symbol(unknown);
+	    s = @symbol(unknown);
-break;
+	    break;
 }
 return s;
 }
 OBJ
 __extractLogicalFontParameters(LOGFONT *lplf)
 {
-OBJ newArray, t;
+	OBJ newArray, t;
-OBJ s;
+	OBJ s;
-DPRINTF((" lfHeight          %d\n", lplf->lfHeight ));
+	DPRINTF((" lfHeight          %d\n", lplf->lfHeight ));
-DPRINTF((" lfWidth           %d\n", lplf->lfWidth  ));
+	DPRINTF((" lfWidth           %d\n", lplf->lfWidth  ));
-DPRINTF((" lfEscapement      %d\n", lplf->lfEscapement  ));
+	DPRINTF((" lfEscapement      %d\n", lplf->lfEscapement  ));
-DPRINTF((" lfOrientation     %d\n", lplf->lfOrientation  ));
+	DPRINTF((" lfOrientation     %d\n", lplf->lfOrientation  ));
-DPRINTF((" lfWeight          %d\n", lplf->lfWeight  ));
+	DPRINTF((" lfWeight          %d\n", lplf->lfWeight  ));
-DPRINTF((" lfItalic          %d\n", lplf->lfItalic  ));
+	DPRINTF((" lfItalic          %d\n", lplf->lfItalic  ));
-DPRINTF((" lfUnderline       %d\n", lplf->lfUnderline  ));
+	DPRINTF((" lfUnderline       %d\n", lplf->lfUnderline  ));
-DPRINTF((" lfStrikeOut       %d\n", lplf->lfStrikeOut  ));
+	DPRINTF((" lfStrikeOut       %d\n", lplf->lfStrikeOut  ));
-DPRINTF((" lfCharSet         %d\n", lplf->lfCharSet  ));
+	DPRINTF((" lfCharSet         %d\n", lplf->lfCharSet  ));
-DPRINTF((" lfOutPrecision    %d\n", lplf->lfOutPrecision  ));
+	DPRINTF((" lfOutPrecision    %d\n", lplf->lfOutPrecision  ));
-DPRINTF((" lfClipPrecision   %d\n", lplf->lfClipPrecision  ));
+	DPRINTF((" lfClipPrecision   %d\n", lplf->lfClipPrecision  ));
-DPRINTF((" lfQuality         %d\n", lplf->lfQuality  ));
+	DPRINTF((" lfQuality         %d\n", lplf->lfQuality  ));
-DPRINTF((" lfPitchAndFamily  %d\n", lplf->lfPitchAndFamily  ));
+	DPRINTF((" lfPitchAndFamily  %d\n", lplf->lfPitchAndFamily  ));
-DPRINTF((" lfFaceName        %s\n\n", lplf->lfFaceName  ));
+	DPRINTF((" lfFaceName        %s\n\n", lplf->lfFaceName  ));
-newArray = __ARRAY_NEW_INT(20);
+	newArray = __ARRAY_NEW_INT(20);
-__ArrayInstPtr(newArray)->a_element[0] = __MKSMALLINT(lplf->lfHeight);
+	__ArrayInstPtr(newArray)->a_element[0] = __MKSMALLINT(lplf->lfHeight);
-__ArrayInstPtr(newArray)->a_element[1] = __MKSMALLINT(lplf->lfWidth);
+	__ArrayInstPtr(newArray)->a_element[1] = __MKSMALLINT(lplf->lfWidth);
-__ArrayInstPtr(newArray)->a_element[2] = __MKSMALLINT(lplf->lfEscapement);
+	__ArrayInstPtr(newArray)->a_element[2] = __MKSMALLINT(lplf->lfEscapement);
-__ArrayInstPtr(newArray)->a_element[3] = __MKSMALLINT(lplf->lfOrientation);
+	__ArrayInstPtr(newArray)->a_element[3] = __MKSMALLINT(lplf->lfOrientation);
-__ArrayInstPtr(newArray)->a_element[4] = __MKSMALLINT(lplf->lfWeight);
+	__ArrayInstPtr(newArray)->a_element[4] = __MKSMALLINT(lplf->lfWeight);
-switch (lplf->lfWeight) {
+	switch (lplf->lfWeight) {
-case FW_HEAVY:
+	    case FW_HEAVY:
-case FW_EXTRABOLD:
+	    case FW_EXTRABOLD:
-case FW_SEMIBOLD:
+	    case FW_SEMIBOLD:
-case FW_BOLD:
+	    case FW_BOLD:
-s = @symbol(bold);
+		s = @symbol(bold);
-break;
+		break;
-case FW_NORMAL:
+	    case FW_NORMAL:
 #if 0
-s = @symbol(normal);
+		s = @symbol(normal);
-break;
+		break;
 #endif
-case FW_MEDIUM:
+	    case FW_MEDIUM:
-s = @symbol(medium);
+		s = @symbol(medium);
-break;
+		break;
-case FW_THIN:
+	    case FW_THIN:
-case FW_EXTRALIGHT:
+	    case FW_EXTRALIGHT:
-case FW_LIGHT:
+	    case FW_LIGHT:
-s = @symbol(demi);
+		s = @symbol(demi);
-break;
+		break;
-default:
+	    default:
-s = @symbol(other);
+		s = @symbol(other);
-break;
+		break;
-}
+	}
-__ArrayInstPtr(newArray)->a_element[5] = s; __STORE(newArray, s);
+	__ArrayInstPtr(newArray)->a_element[5] = s; __STORE(newArray, s);
-__ArrayInstPtr(newArray)->a_element[6] = __MKSMALLINT(lplf->lfItalic);
+	__ArrayInstPtr(newArray)->a_element[6] = __MKSMALLINT(lplf->lfItalic);
-__ArrayInstPtr(newArray)->a_element[7] = __MKSMALLINT(lplf->lfUnderline);
+	__ArrayInstPtr(newArray)->a_element[7] = __MKSMALLINT(lplf->lfUnderline);
-__ArrayInstPtr(newArray)->a_element[8] = __MKSMALLINT(lplf->lfStrikeOut);
+	__ArrayInstPtr(newArray)->a_element[8] = __MKSMALLINT(lplf->lfStrikeOut);
-__ArrayInstPtr(newArray)->a_element[9] = __MKSMALLINT(lplf->lfCharSet);
+	__ArrayInstPtr(newArray)->a_element[9] = __MKSMALLINT(lplf->lfCharSet);
-__ArrayInstPtr(newArray)->a_element[10] = __MKSMALLINT(lplf->lfOutPrecision);
+	__ArrayInstPtr(newArray)->a_element[10] = __MKSMALLINT(lplf->lfOutPrecision);
-__ArrayInstPtr(newArray)->a_element[11] = __MKSMALLINT(lplf->lfClipPrecision);
+	__ArrayInstPtr(newArray)->a_element[11] = __MKSMALLINT(lplf->lfClipPrecision);
-__ArrayInstPtr(newArray)->a_element[12] = __MKSMALLINT(lplf->lfQuality);
+	__ArrayInstPtr(newArray)->a_element[12] = __MKSMALLINT(lplf->lfQuality);
-__ArrayInstPtr(newArray)->a_element[13] = __MKSMALLINT(lplf->lfPitchAndFamily);
+	__ArrayInstPtr(newArray)->a_element[13] = __MKSMALLINT(lplf->lfPitchAndFamily);
-/* ... */
+	/* ... */
-if( lplf->lfItalic == TRUE ) {
+	if( lplf->lfItalic == TRUE ) {
-if( lplf->lfUnderline == TRUE ) {
+	    if( lplf->lfUnderline == TRUE ) {
-if( lplf->lfStrikeOut == TRUE ) {
+		if( lplf->lfStrikeOut == TRUE ) {
-s = @symbol('italic-underline-strikeOut');
+		    s = @symbol('italic-underline-strikeOut');
-} else {
+		} else {
-s = @symbol('italic-underline');
+		    s = @symbol('italic-underline');
-}
+		}
-} else {
+	    } else {
-if( lplf->lfStrikeOut == TRUE ) {
+		if( lplf->lfStrikeOut == TRUE ) {
-s = @symbol('italic-strikeOut');
+		    s = @symbol('italic-strikeOut');
-} else {
+		} else {
-s = @symbol('italic');
+		    s = @symbol('italic');
-}
+		}
-}
+	    }
-} else {
+	} else {
-if( lplf->lfUnderline == TRUE ) {
+	    if( lplf->lfUnderline == TRUE ) {
-if( lplf->lfStrikeOut == TRUE ) {
+		if( lplf->lfStrikeOut == TRUE ) {
-s = @symbol('roman-underline-strikeOut');
+		    s = @symbol('roman-underline-strikeOut');
-} else {
+		} else {
-s = @symbol('roman-underline');
+		    s = @symbol('roman-underline');
-}
+		}
-} else {
+	    } else {
-if( lplf->lfStrikeOut == TRUE ) {
+		if( lplf->lfStrikeOut == TRUE ) {
-s = @symbol('roman-strikeOut');
+		    s = @symbol('roman-strikeOut');
-} else {
+		} else {
-s = @symbol('roman');
+		    s = @symbol('roman');
-}
+		}
-}
+	    }
-}
+	}
-__ArrayInstPtr(newArray)->a_element[14] = s; __STORE(newArray, s);
+	__ArrayInstPtr(newArray)->a_element[14] = s; __STORE(newArray, s);
-__PROTECT__(newArray);
+	__PROTECT__(newArray);
-t = __MKSTRING(lplf->lfFaceName);
+	t = __MKSTRING(lplf->lfFaceName);
-__UNPROTECT__(newArray);
+	__UNPROTECT__(newArray);
-__ArrayInstPtr(newArray)->a_element[15] = t; __STORE(newArray, t);
+	__ArrayInstPtr(newArray)->a_element[15] = t; __STORE(newArray, t);
-t = __charSetSymbolFor(lplf->lfCharSet);
+	t = __charSetSymbolFor(lplf->lfCharSet);
-__ArrayInstPtr(newArray)->a_element[16] = t; __STORE(newArray, t);
+	__ArrayInstPtr(newArray)->a_element[16] = t; __STORE(newArray, t);
-return newArray;
+	return newArray;
 }
 static int CALLBACK
 EnumFontsProc(
 const LOGFONTTYPE *lplf,   // ptr to of logical-font data
 const TEXTMETRIC *lptm,    // ptr to physical font data
 DWORD dwType,              // font type
 LPARAM lpData              // application supplied data
 ) {
-volatile OBJ *refToList;
+	volatile OBJ *refToList;
-OBJ list;
+	OBJ list;
-OBJ infoArray;
+	OBJ infoArray;
-OBJ *fullName;
+	OBJ *fullName;
-DPRINTF(("EnumFontsProc\n"));
+	DPRINTF(("EnumFontsProc\n"));
-if ( lplf ) {
+	if ( lplf ) {
-refToList = (OBJ *) lpData;
+	    refToList = (OBJ *) lpData;
-__PROTECT__(*refToList);
+	    __PROTECT__(*refToList);
 #ifdef USE_EnumFontFamiliesEx
-infoArray = __extractLogicalFontParameters(lplf->elfLogFont);
+	    infoArray = __extractLogicalFontParameters(lplf->elfLogFont);
-__PROTECT__(infoArray);
+	    __PROTECT__(infoArray);
-fullName = __MKSTRING(lplf->elfFullName);
+	    fullName = __MKSTRING(lplf->elfFullName);
-__UNPROTECT__(infoArray);
+	    __UNPROTECT__(infoArray);
-__ArrayInstPtr(infoArray)->a_element[17] = fullName; __STORE(infoArray, fullName);
+	    __ArrayInstPtr(infoArray)->a_element[17] = fullName; __STORE(infoArray, fullName);
 #else
-infoArray = __extractLogicalFontParameters(lplf);
+	    infoArray = __extractLogicalFontParameters(lplf);
 #endif
-__UNPROTECT__(*refToList);
+	    __UNPROTECT__(*refToList);
-if ( dwType & TRUETYPE_FONTTYPE ) {
+	    if ( dwType & TRUETYPE_FONTTYPE ) {
-/* change height to 0 to mark variable fonts */
+		/* change height to 0 to mark variable fonts */
-__ArrayInstPtr(infoArray)->a_element[0] = __MKSMALLINT(0);
+		__ArrayInstPtr(infoArray)->a_element[0] = __MKSMALLINT(0);
-}
+	    }
-list = *refToList;
+	    list = *refToList;
-__SSEND1(list, @symbol(add:), 0, infoArray);
+	    __SSEND1(list, @symbol(add:), 0, infoArray);
-}
+	}
-return 1;
+	return 1;
 }
 struct EnumDisplayMonitorsProcData {
 OBJ hArray;
 int index;
 !WinWorkstation class methodsFor:'documentation'!
 copyright
 "
 COPYRIGHT (c) 1996 by Claus Gittinger
-All Rights Reserved
+	      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
 documentation
 "
 See more documentation in my superclass, DeviceWorkstation.
 [author:]
-Claus Gittinger (initial port & final fixups)
+	Claus Gittinger (initial port & final fixups)
-Manfred Dierolf (many, many changes & fixes, multithreading etc.)
+	Manfred Dierolf (many, many changes & fixes, multithreading etc.)
 "
 ! !
 !WinWorkstation class methodsFor:'initialization'!
 "/ translation table from ST/X windowType symbol (system-independent)
 "/ to Windows windowClass (windows-specific).
 NativeWidgetClassTable := IdentityDictionary
-withKeysAndValues:#(
+	withKeysAndValues:#(
-ScrollBar                 SCROLLBAR
+		ScrollBar                 SCROLLBAR
-HorizontalScrollBar       SCROLLBAR
+		HorizontalScrollBar       SCROLLBAR
-VerticalScrollBar         SCROLLBAR
+		VerticalScrollBar         SCROLLBAR
-CheckBox                  BUTTON
+		CheckBox                  BUTTON
-RadioButton               BUTTON
+		RadioButton               BUTTON
-Button                    BUTTON
+		Button                    BUTTON
-DefaultButton             BUTTON
+		DefaultButton             BUTTON
-OwnerDrawButton           BUTTON
+		OwnerDrawButton           BUTTON
-ComboBox                  COMBOBOX
+		ComboBox                  COMBOBOX
-EditField                 EDIT
+		EditField                 EDIT
-ListBox                   LISTBOX
+		ListBox                   LISTBOX
-).
+	).
 "Modified: / 24-08-2010 / 16:42:23 / sr"
 !
 initializeStandardColorNames
 "{ Pragma: +optSpace }"
 "setup standard color names (X-color names)"
 StandardColorValues := Dictionary
-withKeysAndValues:#(
+	withKeysAndValues:#(
-'aliceblue'     (240 248 255)
+	    'aliceblue'     (240 248 255)
-'antiquewhite'  (250 235 215)
+	    'antiquewhite'  (250 235 215)
-'AntiqueWhite1' (255 239 219)
+	    'AntiqueWhite1' (255 239 219)
-'AntiqueWhite2' (238 223 204)
+	    'AntiqueWhite2' (238 223 204)
-'AntiqueWhite3' (205 192 176)
+	    'AntiqueWhite3' (205 192 176)
-'AntiqueWhite4' (139 131 120)
+	    'AntiqueWhite4' (139 131 120)
-'aquamarine'    (127 255 212)
+	    'aquamarine'    (127 255 212)
-'aquamarine1'   (127 255 212)
+	    'aquamarine1'   (127 255 212)
-'aquamarine2'   (118 238 198)
+	    'aquamarine2'   (118 238 198)
-'aquamarine3'   (102 205 170)
+	    'aquamarine3'   (102 205 170)
-'aquamarine4'   (69 139 116)
+	    'aquamarine4'   (69 139 116)
-'azure'         (240 255 255)
+	    'azure'         (240 255 255)
-'azure1'        (240 255 255)
+	    'azure1'        (240 255 255)
-'azure2'        (224 238 238)
+	    'azure2'        (224 238 238)
-'azure3'        (193 205 205)
+	    'azure3'        (193 205 205)
-'azure4'        (131 139 139)
+	    'azure4'        (131 139 139)
-'beige'         (245 245 220)
+	    'beige'         (245 245 220)
-'bisque'        (255 228 196)
+	    'bisque'        (255 228 196)
-'bisque1'       (255 228 196)
+	    'bisque1'       (255 228 196)
-'bisque2'       (238 213 183)
+	    'bisque2'       (238 213 183)
-'bisque3'       (205 183 158)
+	    'bisque3'       (205 183 158)
-'bisque4'       (139 125 107)
+	    'bisque4'       (139 125 107)
-'black'         (0 0 0)
+	    'black'         (0 0 0)
-'blanchedalmond'        (255 235 205)
+	    'blanchedalmond'        (255 235 205)
-'blue'          (0 0 255)
+	    'blue'          (0 0 255)
-'blueviolet'    (138 43 226)
+	    'blueviolet'    (138 43 226)
-'blue1'         (0 0 255)
+	    'blue1'         (0 0 255)
-'blue2'         (0 0 238)
+	    'blue2'         (0 0 238)
-'blue3'         (0 0 205)
+	    'blue3'         (0 0 205)
-'blue4'         (0 0 139)
+	    'blue4'         (0 0 139)
-'brown'         (165 42 42)
+	    'brown'         (165 42 42)
-'brown1'        (255 64 64)
+	    'brown1'        (255 64 64)
-'brown2'        (238 59 59)
+	    'brown2'        (238 59 59)
-'brown3'        (205 51 51)
+	    'brown3'        (205 51 51)
-'brown4'        (139 35 35)
+	    'brown4'        (139 35 35)
-'burlywood'     (222 184 135)
+	    'burlywood'     (222 184 135)
-'burlywood1'    (255 211 155)
+	    'burlywood1'    (255 211 155)
-'burlywood2'    (238 197 145)
+	    'burlywood2'    (238 197 145)
-'burlywood3'    (205 170 125)
+	    'burlywood3'    (205 170 125)
-'burlywood4'    (139 115 85)
+	    'burlywood4'    (139 115 85)
-'cadetblue'     (95 158 160)
+	    'cadetblue'     (95 158 160)
-'CadetBlue1'    (152 245 255)
+	    'CadetBlue1'    (152 245 255)
-'CadetBlue2'    (142 229 238)
+	    'CadetBlue2'    (142 229 238)
-'CadetBlue3'    (122 197 205)
+	    'CadetBlue3'    (122 197 205)
-'CadetBlue4'    (83 134 139)
+	    'CadetBlue4'    (83 134 139)
-'chartreuse'    (127 255 0)
+	    'chartreuse'    (127 255 0)
-'chartreuse1'   (127 255 0)
+	    'chartreuse1'   (127 255 0)
-'chartreuse2'   (118 238 0)
+	    'chartreuse2'   (118 238 0)
-'chartreuse3'   (102 205 0)
+	    'chartreuse3'   (102 205 0)
-'chartreuse4'   (69 139 0)
+	    'chartreuse4'   (69 139 0)
-'chocolate'     (210 105 30)
+	    'chocolate'     (210 105 30)
-'chocolate1'    (255 127 36)
+	    'chocolate1'    (255 127 36)
-'chocolate2'    (238 118 33)
+	    'chocolate2'    (238 118 33)
-'chocolate3'    (205 102 29)
+	    'chocolate3'    (205 102 29)
-'chocolate4'    (139 69 19)
+	    'chocolate4'    (139 69 19)
-'coral'         (255 127 80)
+	    'coral'         (255 127 80)
-'coral1'        (255 114 86)
+	    'coral1'        (255 114 86)
-'coral2'        (238 106 80)
+	    'coral2'        (238 106 80)
-'coral3'        (205 91 69)
+	    'coral3'        (205 91 69)
-'coral4'        (139 62 47)
+	    'coral4'        (139 62 47)
-'cornflowerblue'        (100 149 237)
+	    'cornflowerblue'        (100 149 237)
-'cornsilk'      (255 248 220)
+	    'cornsilk'      (255 248 220)
-'cornsilk1'     (255 248 220)
+	    'cornsilk1'     (255 248 220)
-'cornsilk2'     (238 232 205)
+	    'cornsilk2'     (238 232 205)
-'cornsilk3'     (205 200 177)
+	    'cornsilk3'     (205 200 177)
-'cornsilk4'     (139 136 120)
+	    'cornsilk4'     (139 136 120)
-'cyan'          (0 255 255)
+	    'cyan'          (0 255 255)
-'cyan1'         (0 255 255)
+	    'cyan1'         (0 255 255)
-'cyan2'         (0 238 238)
+	    'cyan2'         (0 238 238)
-'cyan3'         (0 205 205)
+	    'cyan3'         (0 205 205)
-'cyan4'         (0 139 139)
+	    'cyan4'         (0 139 139)
-'darkblue'      (0 0 139)
+	    'darkblue'      (0 0 139)
-'darkcyan'      (0 139 139)
+	    'darkcyan'      (0 139 139)
-'darkgoldenrod' (184 134 11)
+	    'darkgoldenrod' (184 134 11)
-'darkgray'      (169 169 169)
+	    'darkgray'      (169 169 169)
-'darkgreen'     (0 100 0)
+	    'darkgreen'     (0 100 0)
-'darkgrey'      (169 169 169)
+	    'darkgrey'      (169 169 169)
-'darkkhaki'     (189 183 107)
+	    'darkkhaki'     (189 183 107)
-'darkmagenta'   (139 0 139)
+	    'darkmagenta'   (139 0 139)
-'darkolivegreen'        (85 107 47)
+	    'darkolivegreen'        (85 107 47)
-'darkorange'    (255 140 0)
+	    'darkorange'    (255 140 0)
-'darkorchid'    (153 50 204)
+	    'darkorchid'    (153 50 204)
-'darkred'       (139 0 0)
+	    'darkred'       (139 0 0)
-'darksalmon'    (233 150 122)
+	    'darksalmon'    (233 150 122)
-'darkseagreen'  (143 188 143)
+	    'darkseagreen'  (143 188 143)
-'darkslateblue' (72 61 139)
+	    'darkslateblue' (72 61 139)
-'darkslategray' (47 79 79)
+	    'darkslategray' (47 79 79)
-'darkslategrey' (47 79 79)
+	    'darkslategrey' (47 79 79)
-'darkturquoise' (0 206 209)
+	    'darkturquoise' (0 206 209)
-'darkviolet'    (148 0 211)
+	    'darkviolet'    (148 0 211)
-'DarkGoldenrod1'        (255 185 15)
+	    'DarkGoldenrod1'        (255 185 15)
-'DarkGoldenrod2'        (238 173 14)
+	    'DarkGoldenrod2'        (238 173 14)
-'DarkGoldenrod3'        (205 149 12)
+	    'DarkGoldenrod3'        (205 149 12)
-'DarkGoldenrod4'        (139 101 8)
+	    'DarkGoldenrod4'        (139 101 8)
-'DarkOliveGreen1'       (202 255 112)
+	    'DarkOliveGreen1'       (202 255 112)
-'DarkOliveGreen2'       (188 238 104)
+	    'DarkOliveGreen2'       (188 238 104)
-'DarkOliveGreen3'       (162 205 90)
+	    'DarkOliveGreen3'       (162 205 90)
-'DarkOliveGreen4'       (110 139 61)
+	    'DarkOliveGreen4'       (110 139 61)
-'DarkOrange1'   (255 127 0)
+	    'DarkOrange1'   (255 127 0)
-'DarkOrange2'   (238 118 0)
+	    'DarkOrange2'   (238 118 0)
-'DarkOrange3'   (205 102 0)
+	    'DarkOrange3'   (205 102 0)
-'DarkOrange4'   (139 69 0)
+	    'DarkOrange4'   (139 69 0)
-'DarkOrchid1'   (191 62 255)
+	    'DarkOrchid1'   (191 62 255)
-'DarkOrchid2'   (178 58 238)
+	    'DarkOrchid2'   (178 58 238)
-'DarkOrchid3'   (154 50 205)
+	    'DarkOrchid3'   (154 50 205)
-'DarkOrchid4'   (104 34 139)
+	    'DarkOrchid4'   (104 34 139)
-'DarkSeaGreen1' (193 255 193)
+	    'DarkSeaGreen1' (193 255 193)
-'DarkSeaGreen2' (180 238 180)
+	    'DarkSeaGreen2' (180 238 180)
-'DarkSeaGreen3' (155 205 155)
+	    'DarkSeaGreen3' (155 205 155)
-'DarkSeaGreen4' (105 139 105)
+	    'DarkSeaGreen4' (105 139 105)
-'DarkSlateGray1'        (151 255 255)
+	    'DarkSlateGray1'        (151 255 255)
-'DarkSlateGray2'        (141 238 238)
+	    'DarkSlateGray2'        (141 238 238)
-'DarkSlateGray3'        (121 205 205)
+	    'DarkSlateGray3'        (121 205 205)
-'DarkSlateGray4'        (82 139 139)
+	    'DarkSlateGray4'        (82 139 139)
-'deeppink'      (255 20 147)
+	    'deeppink'      (255 20 147)
-'deepskyblue'   (0 191 255)
+	    'deepskyblue'   (0 191 255)
-'DeepPink'      (255 20 147)
+	    'DeepPink'      (255 20 147)
-'DeepPink1'     (255 20 147)
+	    'DeepPink1'     (255 20 147)
-'DeepPink2'     (238 18 137)
+	    'DeepPink2'     (238 18 137)
-'DeepPink3'     (205 16 118)
+	    'DeepPink3'     (205 16 118)
-'DeepPink4'     (139 10 80)
+	    'DeepPink4'     (139 10 80)
-'DeepSkyBlue1'  (0 191 255)
+	    'DeepSkyBlue1'  (0 191 255)
-'DeepSkyBlue2'  (0 178 238)
+	    'DeepSkyBlue2'  (0 178 238)
-'DeepSkyBlue3'  (0 154 205)
+	    'DeepSkyBlue3'  (0 154 205)
-'DeepSkyBlue4'  (0 104 139)
+	    'DeepSkyBlue4'  (0 104 139)
-'dimgray'       (105 105 105)
+	    'dimgray'       (105 105 105)
-'dimgrey'       (105 105 105)
+	    'dimgrey'       (105 105 105)
-'dodgerblue'    (30 144 255)
+	    'dodgerblue'    (30 144 255)
-'DodgerBlue1'   (30 144 255)
+	    'DodgerBlue1'   (30 144 255)
-'DodgerBlue2'   (28 134 238)
+	    'DodgerBlue2'   (28 134 238)
-'DodgerBlue3'   (24 116 205)
+	    'DodgerBlue3'   (24 116 205)
-'DodgerBlue4'   (16 78 139)
+	    'DodgerBlue4'   (16 78 139)
-'firebrick'     (178 34 34)
+	    'firebrick'     (178 34 34)
-'firebrick1'    (255 48 48)
+	    'firebrick1'    (255 48 48)
-'firebrick2'    (238 44 44)
+	    'firebrick2'    (238 44 44)
-'firebrick3'    (205 38 38)
+	    'firebrick3'    (205 38 38)
-'firebrick4'    (139 26 26)
+	    'firebrick4'    (139 26 26)
-'floralwhite'   (255 250 240)
+	    'floralwhite'   (255 250 240)
-'forestgreen'   (34 139 34)
+	    'forestgreen'   (34 139 34)
-'gainsboro'     (220 220 220)
+	    'gainsboro'     (220 220 220)
-'ghostwhite'    (248 248 255)
+	    'ghostwhite'    (248 248 255)
-'gold'          (255 215 0)
+	    'gold'          (255 215 0)
-'gold1'         (255 215 0)
+	    'gold1'         (255 215 0)
-'gold2'         (238 201 0)
+	    'gold2'         (238 201 0)
-'gold3'         (205 173 0)
+	    'gold3'         (205 173 0)
-'gold4'         (139 117 0)
+	    'gold4'         (139 117 0)
-'goldenrod'     (218 165 32)
+	    'goldenrod'     (218 165 32)
-'goldenrod1'    (255 193 37)
+	    'goldenrod1'    (255 193 37)
-'goldenrod2'    (238 180 34)
+	    'goldenrod2'    (238 180 34)
-'goldenrod3'    (205 155 29)
+	    'goldenrod3'    (205 155 29)
-'goldenrod4'    (139 105 20)
+	    'goldenrod4'    (139 105 20)
-'grey'          (192 192 192)
+	    'grey'          (192 192 192)
-'grey0'         (0 0 0)
+	    'grey0'         (0 0 0)
-'grey1'         (3 3 3)
+	    'grey1'         (3 3 3)
-'grey10'        (26 26 26)
+	    'grey10'        (26 26 26)
-'grey100'       (255 255 255)
+	    'grey100'       (255 255 255)
-'grey11'        (28 28 28)
+	    'grey11'        (28 28 28)
-'grey12'        (31 31 31)
+	    'grey12'        (31 31 31)
-'grey13'        (33 33 33)
+	    'grey13'        (33 33 33)
-'grey14'        (36 36 36)
+	    'grey14'        (36 36 36)
-'grey15'        (38 38 38)
+	    'grey15'        (38 38 38)
-'grey16'        (41 41 41)
+	    'grey16'        (41 41 41)
-'grey17'        (43 43 43)
+	    'grey17'        (43 43 43)
-'grey18'        (46 46 46)
+	    'grey18'        (46 46 46)
-'grey19'        (48 48 48)
+	    'grey19'        (48 48 48)
-'grey2'         (5 5 5)
+	    'grey2'         (5 5 5)
-'grey20'        (51 51 51)
+	    'grey20'        (51 51 51)
-'grey21'        (54 54 54)
+	    'grey21'        (54 54 54)
-'grey22'        (56 56 56)
+	    'grey22'        (56 56 56)
-'grey23'        (59 59 59)
+	    'grey23'        (59 59 59)
-'grey24'        (61 61 61)
+	    'grey24'        (61 61 61)
-'grey25'        (64 64 64)
+	    'grey25'        (64 64 64)
-'grey26'        (66 66 66)
+	    'grey26'        (66 66 66)
-'grey27'        (69 69 69)
+	    'grey27'        (69 69 69)
-'grey28'        (71 71 71)
+	    'grey28'        (71 71 71)
-'grey29'        (74 74 74)
+	    'grey29'        (74 74 74)
-'grey3'         (8 8 8)
+	    'grey3'         (8 8 8)
-'grey30'        (77 77 77)
+	    'grey30'        (77 77 77)
-'grey31'        (79 79 79)
+	    'grey31'        (79 79 79)
-'grey32'        (82 82 82)
+	    'grey32'        (82 82 82)
-'grey33'        (84 84 84)
+	    'grey33'        (84 84 84)
-'grey34'        (87 87 87)
+	    'grey34'        (87 87 87)
-'grey35'        (89 89 89)
+	    'grey35'        (89 89 89)
-'grey36'        (92 92 92)
+	    'grey36'        (92 92 92)
-'grey37'        (94 94 94)
+	    'grey37'        (94 94 94)
-'grey38'        (97 97 97)
+	    'grey38'        (97 97 97)
-'grey39'        (99 99 99)
+	    'grey39'        (99 99 99)
-'grey4'         (10 10 10)
+	    'grey4'         (10 10 10)
-'grey40'        (102 102 102)
+	    'grey40'        (102 102 102)
-'grey41'        (105 105 105)
+	    'grey41'        (105 105 105)
-'grey42'        (107 107 107)
+	    'grey42'        (107 107 107)
-'grey43'        (110 110 110)
+	    'grey43'        (110 110 110)
-'grey44'        (112 112 112)
+	    'grey44'        (112 112 112)
-'grey45'        (115 115 115)
+	    'grey45'        (115 115 115)
-'grey46'        (117 117 117)
+	    'grey46'        (117 117 117)
-'grey47'        (120 120 120)
+	    'grey47'        (120 120 120)
-'grey48'        (122 122 122)
+	    'grey48'        (122 122 122)
-'grey49'        (125 125 125)
+	    'grey49'        (125 125 125)
-'grey5'         (13 13 13)
+	    'grey5'         (13 13 13)
-'grey50'        (127 127 127)
+	    'grey50'        (127 127 127)
-'grey51'        (130 130 130)
+	    'grey51'        (130 130 130)
-'grey52'        (133 133 133)
+	    'grey52'        (133 133 133)
-'grey53'        (135 135 135)
+	    'grey53'        (135 135 135)
-'grey54'        (138 138 138)
+	    'grey54'        (138 138 138)
-'grey55'        (140 140 140)
+	    'grey55'        (140 140 140)
-'grey56'        (143 143 143)
+	    'grey56'        (143 143 143)
-'grey57'        (145 145 145)
+	    'grey57'        (145 145 145)
-'grey58'        (148 148 148)
+	    'grey58'        (148 148 148)
-'grey59'        (150 150 150)
+	    'grey59'        (150 150 150)
-'grey6'         (15 15 15)
+	    'grey6'         (15 15 15)
-'grey60'        (153 153 153)
+	    'grey60'        (153 153 153)
-'grey61'        (156 156 156)
+	    'grey61'        (156 156 156)
-'grey62'        (158 158 158)
+	    'grey62'        (158 158 158)
-'grey63'        (161 161 161)
+	    'grey63'        (161 161 161)
-'grey64'        (163 163 163)
+	    'grey64'        (163 163 163)
-'grey65'        (166 166 166)
+	    'grey65'        (166 166 166)
-'grey66'        (168 168 168)
+	    'grey66'        (168 168 168)
-'grey67'        (171 171 171)
+	    'grey67'        (171 171 171)
-'grey68'        (173 173 173)
+	    'grey68'        (173 173 173)
-'grey69'        (176 176 176)
+	    'grey69'        (176 176 176)
-'grey7'         (18 18 18)
+	    'grey7'         (18 18 18)
-'grey70'        (179 179 179)
+	    'grey70'        (179 179 179)
-'grey71'        (181 181 181)
+	    'grey71'        (181 181 181)
-'grey72'        (184 184 184)
+	    'grey72'        (184 184 184)
-'grey73'        (186 186 186)
+	    'grey73'        (186 186 186)
-'grey74'        (189 189 189)
+	    'grey74'        (189 189 189)
-'grey75'        (191 191 191)
+	    'grey75'        (191 191 191)
-'grey76'        (194 194 194)
+	    'grey76'        (194 194 194)
-'grey77'        (196 196 196)
+	    'grey77'        (196 196 196)
-'grey78'        (199 199 199)
+	    'grey78'        (199 199 199)
-'grey79'        (201 201 201)
+	    'grey79'        (201 201 201)
-'grey8'         (20 20 20)
+	    'grey8'         (20 20 20)
-'grey80'        (204 204 204)
+	    'grey80'        (204 204 204)
-'grey81'        (207 207 207)
+	    'grey81'        (207 207 207)
-'grey82'        (209 209 209)
+	    'grey82'        (209 209 209)
-'grey83'        (212 212 212)
+	    'grey83'        (212 212 212)
-'grey84'        (214 214 214)
+	    'grey84'        (214 214 214)
-'grey85'        (217 217 217)
+	    'grey85'        (217 217 217)
-'grey86'        (219 219 219)
+	    'grey86'        (219 219 219)
-'grey87'        (222 222 222)
+	    'grey87'        (222 222 222)
-'grey88'        (224 224 224)
+	    'grey88'        (224 224 224)
-'grey89'        (227 227 227)
+	    'grey89'        (227 227 227)
-'grey9'         (23 23 23)
+	    'grey9'         (23 23 23)
-'grey90'        (229 229 229)
+	    'grey90'        (229 229 229)
-'grey91'        (232 232 232)
+	    'grey91'        (232 232 232)
-'grey92'        (235 235 235)
+	    'grey92'        (235 235 235)
-'grey93'        (237 237 237)
+	    'grey93'        (237 237 237)
-'grey94'        (240 240 240)
+	    'grey94'        (240 240 240)
-'grey95'        (242 242 242)
+	    'grey95'        (242 242 242)
-'grey96'        (245 245 245)
+	    'grey96'        (245 245 245)
-'grey97'        (247 247 247)
+	    'grey97'        (247 247 247)
-'grey98'        (250 250 250)
+	    'grey98'        (250 250 250)
-'grey99'        (252 252 252)
+	    'grey99'        (252 252 252)
-'gray'          (192 192 192)
+	    'gray'          (192 192 192)
-'gray0'         (0 0 0)
+	    'gray0'         (0 0 0)
-'gray1'         (3 3 3)
+	    'gray1'         (3 3 3)
-'gray10'        (26 26 26)
+	    'gray10'        (26 26 26)
-'gray100'       (255 255 255)
+	    'gray100'       (255 255 255)
-'gray11'        (28 28 28)
+	    'gray11'        (28 28 28)
-'gray12'        (31 31 31)
+	    'gray12'        (31 31 31)
-'gray13'        (33 33 33)
+	    'gray13'        (33 33 33)
-'gray14'        (36 36 36)
+	    'gray14'        (36 36 36)
-'gray15'        (38 38 38)
+	    'gray15'        (38 38 38)
-'gray16'        (41 41 41)
+	    'gray16'        (41 41 41)
-'gray17'        (43 43 43)
+	    'gray17'        (43 43 43)
-'gray18'        (46 46 46)
+	    'gray18'        (46 46 46)
-'gray19'        (48 48 48)
+	    'gray19'        (48 48 48)
-'gray2'         (5 5 5)
+	    'gray2'         (5 5 5)
-'gray20'        (51 51 51)
+	    'gray20'        (51 51 51)
-'gray21'        (54 54 54)
+	    'gray21'        (54 54 54)
-'gray22'        (56 56 56)
+	    'gray22'        (56 56 56)
-'gray23'        (59 59 59)
+	    'gray23'        (59 59 59)
-'gray24'        (61 61 61)
+	    'gray24'        (61 61 61)
-'gray25'        (64 64 64)
+	    'gray25'        (64 64 64)
-'gray26'        (66 66 66)
+	    'gray26'        (66 66 66)
-'gray27'        (69 69 69)
+	    'gray27'        (69 69 69)
-'gray28'        (71 71 71)
+	    'gray28'        (71 71 71)
-'gray29'        (74 74 74)
+	    'gray29'        (74 74 74)
-'gray3'         (8 8 8)
+	    'gray3'         (8 8 8)
-'gray30'        (77 77 77)
+	    'gray30'        (77 77 77)
-'gray31'        (79 79 79)
+	    'gray31'        (79 79 79)
-'gray32'        (82 82 82)
+	    'gray32'        (82 82 82)
-'gray33'        (84 84 84)
+	    'gray33'        (84 84 84)
-'gray34'        (87 87 87)
+	    'gray34'        (87 87 87)
-'gray35'        (89 89 89)
+	    'gray35'        (89 89 89)
-'gray36'        (92 92 92)
+	    'gray36'        (92 92 92)
-'gray37'        (94 94 94)
+	    'gray37'        (94 94 94)
-'gray38'        (97 97 97)
+	    'gray38'        (97 97 97)
-'gray39'        (99 99 99)
+	    'gray39'        (99 99 99)
-'gray4'         (10 10 10)
+	    'gray4'         (10 10 10)
-'gray40'        (102 102 102)
+	    'gray40'        (102 102 102)
-'gray41'        (105 105 105)
+	    'gray41'        (105 105 105)
-'gray42'        (107 107 107)
+	    'gray42'        (107 107 107)
-'gray43'        (110 110 110)
+	    'gray43'        (110 110 110)
-'gray44'        (112 112 112)
+	    'gray44'        (112 112 112)
-'gray45'        (115 115 115)
+	    'gray45'        (115 115 115)
-'gray46'        (117 117 117)
+	    'gray46'        (117 117 117)
-'gray47'        (120 120 120)
+	    'gray47'        (120 120 120)
-'gray48'        (122 122 122)
+	    'gray48'        (122 122 122)
-'gray49'        (125 125 125)
+	    'gray49'        (125 125 125)
-'gray5'         (13 13 13)
+	    'gray5'         (13 13 13)
-'gray50'        (127 127 127)
+	    'gray50'        (127 127 127)
-'gray51'        (130 130 130)
+	    'gray51'        (130 130 130)
-'gray52'        (133 133 133)
+	    'gray52'        (133 133 133)
-'gray53'        (135 135 135)
+	    'gray53'        (135 135 135)
-'gray54'        (138 138 138)
+	    'gray54'        (138 138 138)
-'gray55'        (140 140 140)
+	    'gray55'        (140 140 140)
-'gray56'        (143 143 143)
+	    'gray56'        (143 143 143)
-'gray57'        (145 145 145)
+	    'gray57'        (145 145 145)
-'gray58'        (148 148 148)
+	    'gray58'        (148 148 148)
-'gray59'        (150 150 150)
+	    'gray59'        (150 150 150)
-'gray6'         (15 15 15)
+	    'gray6'         (15 15 15)
-'gray60'        (153 153 153)
+	    'gray60'        (153 153 153)
-'gray61'        (156 156 156)
+	    'gray61'        (156 156 156)
-'gray62'        (158 158 158)
+	    'gray62'        (158 158 158)
-'gray63'        (161 161 161)
+	    'gray63'        (161 161 161)
-'gray64'        (163 163 163)
+	    'gray64'        (163 163 163)
-'gray65'        (166 166 166)
+	    'gray65'        (166 166 166)
-'gray66'        (168 168 168)
+	    'gray66'        (168 168 168)
-'gray67'        (171 171 171)
+	    'gray67'        (171 171 171)
-'gray68'        (173 173 173)
+	    'gray68'        (173 173 173)
-'gray69'        (176 176 176)
+	    'gray69'        (176 176 176)
-'gray7'         (18 18 18)
+	    'gray7'         (18 18 18)
-'gray70'        (179 179 179)
+	    'gray70'        (179 179 179)
-'gray71'        (181 181 181)
+	    'gray71'        (181 181 181)
-'gray72'        (184 184 184)
+	    'gray72'        (184 184 184)
-'gray73'        (186 186 186)
+	    'gray73'        (186 186 186)
-'gray74'        (189 189 189)
+	    'gray74'        (189 189 189)
-'gray75'        (191 191 191)
+	    'gray75'        (191 191 191)
-'gray76'        (194 194 194)
+	    'gray76'        (194 194 194)
-'gray77'        (196 196 196)
+	    'gray77'        (196 196 196)
-'gray78'        (199 199 199)
+	    'gray78'        (199 199 199)
-'gray79'        (201 201 201)
+	    'gray79'        (201 201 201)
-'gray8'         (20 20 20)
+	    'gray8'         (20 20 20)
-'gray80'        (204 204 204)
+	    'gray80'        (204 204 204)
-'gray81'        (207 207 207)
+	    'gray81'        (207 207 207)
-'gray82'        (209 209 209)
+	    'gray82'        (209 209 209)
-'gray83'        (212 212 212)
+	    'gray83'        (212 212 212)
-'gray84'        (214 214 214)
+	    'gray84'        (214 214 214)
-'gray85'        (217 217 217)
+	    'gray85'        (217 217 217)
-'gray86'        (219 219 219)
+	    'gray86'        (219 219 219)
-'gray87'        (222 222 222)
+	    'gray87'        (222 222 222)
-'gray88'        (224 224 224)
+	    'gray88'        (224 224 224)
-'gray89'        (227 227 227)
+	    'gray89'        (227 227 227)
-'gray9'         (23 23 23)
+	    'gray9'         (23 23 23)
-'gray90'        (229 229 229)
+	    'gray90'        (229 229 229)
-'gray91'        (232 232 232)
+	    'gray91'        (232 232 232)
-'gray92'        (235 235 235)
+	    'gray92'        (235 235 235)
-'gray93'        (237 237 237)
+	    'gray93'        (237 237 237)
-'gray94'        (240 240 240)
+	    'gray94'        (240 240 240)
-'gray95'        (242 242 242)
+	    'gray95'        (242 242 242)
-'gray96'        (245 245 245)
+	    'gray96'        (245 245 245)
-'gray97'        (247 247 247)
+	    'gray97'        (247 247 247)
-'gray98'        (250 250 250)
+	    'gray98'        (250 250 250)
-'gray99'        (252 252 252)
+	    'gray99'        (252 252 252)
-'green'         (0 255 0)
+	    'green'         (0 255 0)
-'greenyellow'   (173 255 47)
+	    'greenyellow'   (173 255 47)
-'green1'        (0 255 0)
+	    'green1'        (0 255 0)
-'green2'        (0 238 0)
+	    'green2'        (0 238 0)
-'green3'        (0 205 0)
+	    'green3'        (0 205 0)
-'green4'        (0 139 0)
+	    'green4'        (0 139 0)
-'honeydew'      (240 255 240)
+	    'honeydew'      (240 255 240)
-'honeydew1'     (240 255 240)
+	    'honeydew1'     (240 255 240)
-'honeydew2'     (224 238 224)
+	    'honeydew2'     (224 238 224)
-'honeydew3'     (193 205 193)
+	    'honeydew3'     (193 205 193)
-'honeydew4'     (131 139 131)
+	    'honeydew4'     (131 139 131)
-'hotpink'       (255 105 180)
+	    'hotpink'       (255 105 180)
-'HotPink1'      (255 110 180)
+	    'HotPink1'      (255 110 180)
-'HotPink2'      (238 106 167)
+	    'HotPink2'      (238 106 167)
-'HotPink3'      (205 96 144)
+	    'HotPink3'      (205 96 144)
-'HotPink4'      (139 58 98)
+	    'HotPink4'      (139 58 98)
-'indianred'     (205 92 92)
+	    'indianred'     (205 92 92)
-'IndianRed1'    (255 106 106)
+	    'IndianRed1'    (255 106 106)
-'IndianRed2'    (238 99 99)
+	    'IndianRed2'    (238 99 99)
-'IndianRed3'    (205 85 85)
+	    'IndianRed3'    (205 85 85)
-'IndianRed4'    (139 58 58)
+	    'IndianRed4'    (139 58 58)
-'ivory'         (255 255 240)
+	    'ivory'         (255 255 240)
-'ivory1'        (255 255 240)
+	    'ivory1'        (255 255 240)
-'ivory2'        (238 238 224)
+	    'ivory2'        (238 238 224)
-'ivory3'        (205 205 193)
+	    'ivory3'        (205 205 193)
-'ivory4'        (139 139 131)
+	    'ivory4'        (139 139 131)
-'khaki'         (240 230 140)
+	    'khaki'         (240 230 140)
-'khaki1'        (255 246 143)
+	    'khaki1'        (255 246 143)
-'khaki2'        (238 230 133)
+	    'khaki2'        (238 230 133)
-'khaki3'        (205 198 115)
+	    'khaki3'        (205 198 115)
-'khaki4'        (139 134 78)
+	    'khaki4'        (139 134 78)
-'lavender'      (230 230 250)
+	    'lavender'      (230 230 250)
-'lavenderblush'         (255 240 245)
+	    'lavenderblush'         (255 240 245)
-'LavenderBlush1'        (255 240 245)
+	    'LavenderBlush1'        (255 240 245)
-'LavenderBlush2'        (238 224 229)
+	    'LavenderBlush2'        (238 224 229)
-'LavenderBlush3'        (205 193 197)
+	    'LavenderBlush3'        (205 193 197)
-'LavenderBlush4'        (139 131 134)
+	    'LavenderBlush4'        (139 131 134)
-'lawngreen'     (124 252 0)
+	    'lawngreen'     (124 252 0)
-'lemonchiffon'  (255 250 205)
+	    'lemonchiffon'  (255 250 205)
-'LemonChiffon1'         (255 250 205)
+	    'LemonChiffon1'         (255 250 205)
-'LemonChiffon2'         (238 233 191)
+	    'LemonChiffon2'         (238 233 191)
-'LemonChiffon3'         (205 201 165)
+	    'LemonChiffon3'         (205 201 165)
-'LemonChiffon4'         (139 137 112)
+	    'LemonChiffon4'         (139 137 112)
-'lightblue'     (173 216 230)
+	    'lightblue'     (173 216 230)
-'lightcoral'    (240 128 128)
+	    'lightcoral'    (240 128 128)
-'lightcyan'     (224 255 255)
+	    'lightcyan'     (224 255 255)
-'lightgoldenrod'        (238 221 130)
+	    'lightgoldenrod'        (238 221 130)
-'lightgoldenrodyellow'  (250 250 210)
+	    'lightgoldenrodyellow'  (250 250 210)
-'lightgray'     (211 211 211)
+	    'lightgray'     (211 211 211)
-'lightgreen'    (144 238 144)
+	    'lightgreen'    (144 238 144)
-'lightgrey'     (211 211 211)
+	    'lightgrey'     (211 211 211)
-'lightpink'     (255 182 193)
+	    'lightpink'     (255 182 193)
-'lightsalmon'   (255 160 122)
+	    'lightsalmon'   (255 160 122)
-'lightseagreen' (32 178 170)
+	    'lightseagreen' (32 178 170)
-'lightskyblue'  (135 206 250)
+	    'lightskyblue'  (135 206 250)
-'lightslateblue'        (132 112 255)
+	    'lightslateblue'        (132 112 255)
-'lightslategray'        (119 136 153)
+	    'lightslategray'        (119 136 153)
-'lightslategrey'        (119 136 153)
+	    'lightslategrey'        (119 136 153)
-'lightsteelblue'        (176 196 222)
+	    'lightsteelblue'        (176 196 222)
-'lightyellow'   (255 255 224)
+	    'lightyellow'   (255 255 224)
-'LightBlue1'    (191 239 255)
+	    'LightBlue1'    (191 239 255)
-'LightBlue2'    (178 223 238)
+	    'LightBlue2'    (178 223 238)
-'LightBlue3'    (154 192 205)
+	    'LightBlue3'    (154 192 205)
-'LightBlue4'    (104 131 139)
+	    'LightBlue4'    (104 131 139)
-'LightCyan1'    (224 255 255)
+	    'LightCyan1'    (224 255 255)
-'LightCyan2'    (209 238 238)
+	    'LightCyan2'    (209 238 238)
-'LightCyan3'    (180 205 205)
+	    'LightCyan3'    (180 205 205)
-'LightCyan4'    (122 139 139)
+	    'LightCyan4'    (122 139 139)
-'LightGoldenrod1'       (255 236 139)
+	    'LightGoldenrod1'       (255 236 139)
-'LightGoldenrod2'       (238 220 130)
+	    'LightGoldenrod2'       (238 220 130)
-'LightGoldenrod3'       (205 190 112)
+	    'LightGoldenrod3'       (205 190 112)
-'LightGoldenrod4'       (139 129 76)
+	    'LightGoldenrod4'       (139 129 76)
-'LightPink1'    (255 174 185)
+	    'LightPink1'    (255 174 185)
-'LightPink2'    (238 162 173)
+	    'LightPink2'    (238 162 173)
-'LightPink3'    (205 140 149)
+	    'LightPink3'    (205 140 149)
-'LightPink4'    (139 95 101)
+	    'LightPink4'    (139 95 101)
-'LightSalmon1'  (255 160 122)
+	    'LightSalmon1'  (255 160 122)
-'LightSalmon2'  (238 149 114)
+	    'LightSalmon2'  (238 149 114)
-'LightSalmon3'  (205 129 98)
+	    'LightSalmon3'  (205 129 98)
-'LightSalmon4'  (139 87 66)
+	    'LightSalmon4'  (139 87 66)
-'LightSkyBlue1'         (176 226 255)
+	    'LightSkyBlue1'         (176 226 255)
-'LightSkyBlue2'         (164 211 238)
+	    'LightSkyBlue2'         (164 211 238)
-'LightSkyBlue3'         (141 182 205)
+	    'LightSkyBlue3'         (141 182 205)
-'LightSkyBlue4'         (96 123 139)
+	    'LightSkyBlue4'         (96 123 139)
-'LightSteelBlue1'       (202 225 255)
+	    'LightSteelBlue1'       (202 225 255)
-'LightSteelBlue2'       (188 210 238)
+	    'LightSteelBlue2'       (188 210 238)
-'LightSteelBlue3'       (162 181 205)
+	    'LightSteelBlue3'       (162 181 205)
-'LightSteelBlue4'       (110 123 139)
+	    'LightSteelBlue4'       (110 123 139)
-'LightYellow1'  (255 255 224)
+	    'LightYellow1'  (255 255 224)
-'LightYellow2'  (238 238 209)
+	    'LightYellow2'  (238 238 209)
-'LightYellow3'  (205 205 180)
+	    'LightYellow3'  (205 205 180)
-'LightYellow4'  (139 139 122)
+	    'LightYellow4'  (139 139 122)
-'limegreen'     (50 205 50)
+	    'limegreen'     (50 205 50)
-'linen'         (250 240 230)
+	    'linen'         (250 240 230)
-'magenta'       (255 0 255)
+	    'magenta'       (255 0 255)
-'magenta1'      (255 0 255)
+	    'magenta1'      (255 0 255)
-'magenta2'      (238 0 238)
+	    'magenta2'      (238 0 238)
-'magenta3'      (205 0 205)
+	    'magenta3'      (205 0 205)
-'magenta4'      (139 0 139)
+	    'magenta4'      (139 0 139)
-'maroon'        (176 48 96)
+	    'maroon'        (176 48 96)
-'maroon1'       (255 52 179)
+	    'maroon1'       (255 52 179)
-'maroon2'       (238 48 167)
+	    'maroon2'       (238 48 167)
-'maroon3'       (205 41 144)
+	    'maroon3'       (205 41 144)
-'maroon4'       (139 28 98)
+	    'maroon4'       (139 28 98)
-'mediumaquamarine'      (102 205 170)
+	    'mediumaquamarine'      (102 205 170)
-'mediumblue'    (0 0 205)
+	    'mediumblue'    (0 0 205)
-'mediumorchid'  (186 85 211)
+	    'mediumorchid'  (186 85 211)
-'mediumpurple'  (147 112 219)
+	    'mediumpurple'  (147 112 219)
-'mediumseagreen'        (60 179 113)
+	    'mediumseagreen'        (60 179 113)
-'mediumslateblue'       (123 104 238)
+	    'mediumslateblue'       (123 104 238)
-'mediumspringgreen'     (0 250 154)
+	    'mediumspringgreen'     (0 250 154)
-'mediumturquoise'       (72 209 204)
+	    'mediumturquoise'       (72 209 204)
-'mediumvioletred'       (199 21 133)
+	    'mediumvioletred'       (199 21 133)
-'MediumOrchid1'         (224 102 255)
+	    'MediumOrchid1'         (224 102 255)
-'MediumOrchid2' (209 95 238)
+	    'MediumOrchid2' (209 95 238)
-'MediumOrchid3' (180 82 205)
+	    'MediumOrchid3' (180 82 205)
-'MediumOrchid4' (122 55 139)
+	    'MediumOrchid4' (122 55 139)
-'MediumPurple1' (171 130 255)
+	    'MediumPurple1' (171 130 255)
-'MediumPurple2' (159 121 238)
+	    'MediumPurple2' (159 121 238)
-'MediumPurple3' (137 104 205)
+	    'MediumPurple3' (137 104 205)
-'MediumPurple4' (93 71 139)
+	    'MediumPurple4' (93 71 139)
-'midnightblue'  (25 25 112)
+	    'midnightblue'  (25 25 112)
-'mintcream'     (245 255 250)
+	    'mintcream'     (245 255 250)
-'mistyrose'     (255 228 225)
+	    'mistyrose'     (255 228 225)
-'MistyRose1'    (255 228 225)
+	    'MistyRose1'    (255 228 225)
-'MistyRose2'    (238 213 210)
+	    'MistyRose2'    (238 213 210)
-'MistyRose3'    (205 183 181)
+	    'MistyRose3'    (205 183 181)
-'MistyRose4'    (139 125 123)
+	    'MistyRose4'    (139 125 123)
-'moccasin'      (255 228 181)
+	    'moccasin'      (255 228 181)
-'navajowhite'   (255 222 173)
+	    'navajowhite'   (255 222 173)
-'NavajoWhite1'  (255 222 173)
+	    'NavajoWhite1'  (255 222 173)
-'NavajoWhite2'  (238 207 161)
+	    'NavajoWhite2'  (238 207 161)
-'NavajoWhite3'  (205 179 139)
+	    'NavajoWhite3'  (205 179 139)
-'NavajoWhite4'  (139 121 94)
+	    'NavajoWhite4'  (139 121 94)
-'navy'          (0 0 128)
+	    'navy'          (0 0 128)
-'navyblue'      (0 0 128)
+	    'navyblue'      (0 0 128)
-'oldlace'       (253 245 230)
+	    'oldlace'       (253 245 230)
-'olivedrab'     (107 142 35)
+	    'olivedrab'     (107 142 35)
-'OliveDrab1'    (192 255 62)
+	    'OliveDrab1'    (192 255 62)
-'OliveDrab2'    (179 238 58)
+	    'OliveDrab2'    (179 238 58)
-'OliveDrab3'    (154 205 50)
+	    'OliveDrab3'    (154 205 50)
-'OliveDrab4'    (105 139 34)
+	    'OliveDrab4'    (105 139 34)
-'orange'        (255 165 0)
+	    'orange'        (255 165 0)
-'orange1'       (255 165 0)
+	    'orange1'       (255 165 0)
-'orange2'       (238 154 0)
+	    'orange2'       (238 154 0)
-'orange3'       (205 133 0)
+	    'orange3'       (205 133 0)
-'orange4'       (139 90 0)
+	    'orange4'       (139 90 0)
-'orangered'     (255 69 0)
+	    'orangered'     (255 69 0)
-'OrangeRed1'    (255 69 0)
+	    'OrangeRed1'    (255 69 0)
-'OrangeRed2'    (238 64 0)
+	    'OrangeRed2'    (238 64 0)
-'OrangeRed3'    (205 55 0)
+	    'OrangeRed3'    (205 55 0)
-'OrangeRed4'    (139 37 0)
+	    'OrangeRed4'    (139 37 0)
-'orchid'        (218 112 214)
+	    'orchid'        (218 112 214)
-'orchid1'       (255 131 250)
+	    'orchid1'       (255 131 250)
-'orchid2'       (238 122 233)
+	    'orchid2'       (238 122 233)
-'orchid3'       (205 105 201)
+	    'orchid3'       (205 105 201)
-'orchid4'       (139 71 137)
+	    'orchid4'       (139 71 137)
-'palegoldenrod' (238 232 170)
+	    'palegoldenrod' (238 232 170)
-'palegreen'     (152 251 152)
+	    'palegreen'     (152 251 152)
-'paleturquoise' (175 238 238)
+	    'paleturquoise' (175 238 238)
-'palevioletred' (219 112 147)
+	    'palevioletred' (219 112 147)
-'PaleGreen1'    (154 255 154)
+	    'PaleGreen1'    (154 255 154)
-'PaleGreen2'    (144 238 144)
+	    'PaleGreen2'    (144 238 144)
-'PaleGreen3'    (124 205 124)
+	    'PaleGreen3'    (124 205 124)
-'PaleGreen4'    (84 139 84)
+	    'PaleGreen4'    (84 139 84)
-'PaleTurquoise1'        (187 255 255)
+	    'PaleTurquoise1'        (187 255 255)
-'PaleTurquoise2'        (174 238 238)
+	    'PaleTurquoise2'        (174 238 238)
-'PaleTurquoise3'        (150 205 205)
+	    'PaleTurquoise3'        (150 205 205)
-'PaleTurquoise4'        (102 139 139)
+	    'PaleTurquoise4'        (102 139 139)
-'PaleVioletRed1'        (255 130 171)
+	    'PaleVioletRed1'        (255 130 171)
-'PaleVioletRed2'        (238 121 159)
+	    'PaleVioletRed2'        (238 121 159)
-'PaleVioletRed3'        (205 104 137)
+	    'PaleVioletRed3'        (205 104 137)
-'PaleVioletRed4'        (139 71 93)
+	    'PaleVioletRed4'        (139 71 93)
-'papayawhip'    (255 239 213)
+	    'papayawhip'    (255 239 213)
-'peachpuff'     (255 218 185)
+	    'peachpuff'     (255 218 185)
-'PeachPuff1'    (255 218 185)
+	    'PeachPuff1'    (255 218 185)
-'PeachPuff2'    (238 203 173)
+	    'PeachPuff2'    (238 203 173)
-'PeachPuff3'    (205 175 149)
+	    'PeachPuff3'    (205 175 149)
-'PeachPuff4'    (139 119 101)
+	    'PeachPuff4'    (139 119 101)
-'peru'  (205 133 63)
+	    'peru'  (205 133 63)
-'pink'  (255 192 203)
+	    'pink'  (255 192 203)
-'pink1' (255 181 197)
+	    'pink1' (255 181 197)
-'pink2' (238 169 184)
+	    'pink2' (238 169 184)
-'pink3' (205 145 158)
+	    'pink3' (205 145 158)
-'pink4' (139 99 108)
+	    'pink4' (139 99 108)
-'plum'  (221 160 221)
+	    'plum'  (221 160 221)
-'plum1' (255 187 255)
+	    'plum1' (255 187 255)
-'plum2' (238 174 238)
+	    'plum2' (238 174 238)
-'plum3' (205 150 205)
+	    'plum3' (205 150 205)
-'plum4' (139 102 139)
+	    'plum4' (139 102 139)
-'powderblue'    (176 224 230)
+	    'powderblue'    (176 224 230)
-'purple'        (160 32 240)
+	    'purple'        (160 32 240)
-'purple1'       (155 48 255)
+	    'purple1'       (155 48 255)
-'purple2'       (145 44 238)
+	    'purple2'       (145 44 238)
-'purple3'       (125 38 205)
+	    'purple3'       (125 38 205)
-'purple4'       (85 26 139)
+	    'purple4'       (85 26 139)
-'red'   (255 0 0)
+	    'red'   (255 0 0)
-'red1'  (255 0 0)
+	    'red1'  (255 0 0)
-'red2'  (238 0 0)
+	    'red2'  (238 0 0)
-'red3'  (205 0 0)
+	    'red3'  (205 0 0)
-'red4'  (139 0 0)
+	    'red4'  (139 0 0)
-'rosybrown'     (188 143 143)
+	    'rosybrown'     (188 143 143)
-'RosyBrown1'    (255 193 193)
+	    'RosyBrown1'    (255 193 193)
-'RosyBrown2'    (238 180 180)
+	    'RosyBrown2'    (238 180 180)
-'RosyBrown3'    (205 155 155)
+	    'RosyBrown3'    (205 155 155)
-'RosyBrown4'    (139 105 105)
+	    'RosyBrown4'    (139 105 105)
-'royalblue'     (65 105 225)
+	    'royalblue'     (65 105 225)
-'RoyalBlue1'    (72 118 255)
+	    'RoyalBlue1'    (72 118 255)
-'RoyalBlue2'    (67 110 238)
+	    'RoyalBlue2'    (67 110 238)
-'RoyalBlue3'    (58 95 205)
+	    'RoyalBlue3'    (58 95 205)
-'RoyalBlue4'    (39 64 139)
+	    'RoyalBlue4'    (39 64 139)
-'saddlebrown'   (139 69 19)
+	    'saddlebrown'   (139 69 19)
-'salmon'        (250 128 114)
+	    'salmon'        (250 128 114)
-'salmon1'       (255 140 105)
+	    'salmon1'       (255 140 105)
-'salmon2'       (238 130 98)
+	    'salmon2'       (238 130 98)
-'salmon3'       (205 112 84)
+	    'salmon3'       (205 112 84)
-'salmon4'       (139 76 57)
+	    'salmon4'       (139 76 57)
-'sandybrown'    (244 164 96)
+	    'sandybrown'    (244 164 96)
-'scoActiveBackground'   (255 206 137)
+	    'scoActiveBackground'   (255 206 137)
-'scoActiveForeground'   (43 45 49)
+	    'scoActiveForeground'   (43 45 49)
-'scoActiveTopShadow'    (254 222 255)
+	    'scoActiveTopShadow'    (254 222 255)
-'scoAltBackground'      (172 186 204)
+	    'scoAltBackground'      (172 186 204)
-'scoBackground' (203 203 192)
+	    'scoBackground' (203 203 192)
-'scoForeground' (11 0 113)
+	    'scoForeground' (11 0 113)
-'scoHighlight'  (141 178 215)
+	    'scoHighlight'  (141 178 215)
-'scoTopShadow'  (255 240 248)
+	    'scoTopShadow'  (255 240 248)
-'seagreen'      (46 139 87)
+	    'seagreen'      (46 139 87)
-'SeaGreen1'     (84 255 159)
+	    'SeaGreen1'     (84 255 159)
-'SeaGreen2'     (78 238 148)
+	    'SeaGreen2'     (78 238 148)
-'SeaGreen3'     (67 205 128)
+	    'SeaGreen3'     (67 205 128)
-'SeaGreen4'     (46 139 87)
+	    'SeaGreen4'     (46 139 87)
-'seashell'      (255 245 238)
+	    'seashell'      (255 245 238)
-'seashell1'     (255 245 238)
+	    'seashell1'     (255 245 238)
-'seashell2'     (238 229 222)
+	    'seashell2'     (238 229 222)
-'seashell3'     (205 197 191)
+	    'seashell3'     (205 197 191)
-'seashell4'     (139 134 130)
+	    'seashell4'     (139 134 130)
-'sgi beet'      (142 56 142)
+	    'sgi beet'      (142 56 142)
-'sgi bright gray'       (197 193 170)
+	    'sgi bright gray'       (197 193 170)
-'sgi bright grey'       (197 193 170)
+	    'sgi bright grey'       (197 193 170)
-'sgi chartreuse'        (113 198 113)
+	    'sgi chartreuse'        (113 198 113)
-'sgi dark gray' (85 85 85)
+	    'sgi dark gray' (85 85 85)
-'sgi dark grey' (85 85 85)
+	    'sgi dark grey' (85 85 85)
-'sgi gray 0'    (0 0 0)
+	    'sgi gray 0'    (0 0 0)
-'sgi gray 100'  (255 255 255)
+	    'sgi gray 100'  (255 255 255)
-'sgi gray 12'   (30 30 30)
+	    'sgi gray 12'   (30 30 30)
-'sgi gray 16'   (40 40 40)
+	    'sgi gray 16'   (40 40 40)
-'sgi gray 20'   (51 51 51)
+	    'sgi gray 20'   (51 51 51)
-'sgi gray 24'   (61 61 61)
+	    'sgi gray 24'   (61 61 61)
-'sgi gray 28'   (71 71 71)
+	    'sgi gray 28'   (71 71 71)
-'sgi gray 32'   (81 81 81)
+	    'sgi gray 32'   (81 81 81)
-'sgi gray 36'   (91 91 91)
+	    'sgi gray 36'   (91 91 91)
-'sgi gray 4'    (10 10 10)
+	    'sgi gray 4'    (10 10 10)
-'sgi gray 40'   (102 102 102)
+	    'sgi gray 40'   (102 102 102)
-'sgi gray 44'   (112 112 112)
+	    'sgi gray 44'   (112 112 112)
-'sgi gray 48'   (122 122 122)
+	    'sgi gray 48'   (122 122 122)
-'sgi gray 52'   (132 132 132)
+	    'sgi gray 52'   (132 132 132)
-'sgi gray 56'   (142 142 142)
+	    'sgi gray 56'   (142 142 142)
-'sgi gray 60'   (153 153 153)
+	    'sgi gray 60'   (153 153 153)
-'sgi gray 64'   (163 163 163)
+	    'sgi gray 64'   (163 163 163)
-'sgi gray 68'   (173 173 173)
+	    'sgi gray 68'   (173 173 173)
-'sgi gray 72'   (183 183 183)
+	    'sgi gray 72'   (183 183 183)
-'sgi gray 76'   (193 193 193)
+	    'sgi gray 76'   (193 193 193)
-'sgi gray 8'    (20 20 20)
+	    'sgi gray 8'    (20 20 20)
-'sgi gray 80'   (204 204 204)
+	    'sgi gray 80'   (204 204 204)
-'sgi gray 84'   (214 214 214)
+	    'sgi gray 84'   (214 214 214)
-'sgi gray 88'   (224 224 224)
+	    'sgi gray 88'   (224 224 224)
-'sgi gray 92'   (234 234 234)
+	    'sgi gray 92'   (234 234 234)
-'sgi gray 96'   (244 244 244)
+	    'sgi gray 96'   (244 244 244)
-'sgi grey 0'    (0 0 0)
+	    'sgi grey 0'    (0 0 0)
-'sgi grey 100'  (255 255 255)
+	    'sgi grey 100'  (255 255 255)
-'sgi grey 12'   (30 30 30)
+	    'sgi grey 12'   (30 30 30)
-'sgi grey 16'   (40 40 40)
+	    'sgi grey 16'   (40 40 40)
-'sgi grey 20'   (51 51 51)
+	    'sgi grey 20'   (51 51 51)
-'sgi grey 24'   (61 61 61)
+	    'sgi grey 24'   (61 61 61)
-'sgi grey 28'   (71 71 71)
+	    'sgi grey 28'   (71 71 71)
-'sgi grey 32'   (81 81 81)
+	    'sgi grey 32'   (81 81 81)
-'sgi grey 36'   (91 91 91)
+	    'sgi grey 36'   (91 91 91)
-'sgi grey 4'    (10 10 10)
+	    'sgi grey 4'    (10 10 10)
-'sgi grey 40'   (102 102 102)
+	    'sgi grey 40'   (102 102 102)
-'sgi grey 44'   (112 112 112)
+	    'sgi grey 44'   (112 112 112)
-'sgi grey 48'   (122 122 122)
+	    'sgi grey 48'   (122 122 122)
-'sgi grey 52'   (132 132 132)
+	    'sgi grey 52'   (132 132 132)
-'sgi grey 56'   (142 142 142)
+	    'sgi grey 56'   (142 142 142)
-'sgi grey 60'   (153 153 153)
+	    'sgi grey 60'   (153 153 153)
-'sgi grey 64'   (163 163 163)
+	    'sgi grey 64'   (163 163 163)
-'sgi grey 68'   (173 173 173)
+	    'sgi grey 68'   (173 173 173)
-'sgi grey 72'   (183 183 183)
+	    'sgi grey 72'   (183 183 183)
-'sgi grey 76'   (193 193 193)
+	    'sgi grey 76'   (193 193 193)
-'sgi grey 8'    (20 20 20)
+	    'sgi grey 8'    (20 20 20)
-'sgi grey 80'   (204 204 204)
+	    'sgi grey 80'   (204 204 204)
-'sgi grey 84'   (214 214 214)
+	    'sgi grey 84'   (214 214 214)
-'sgi grey 88'   (224 224 224)
+	    'sgi grey 88'   (224 224 224)
-'sgi grey 92'   (234 234 234)
+	    'sgi grey 92'   (234 234 234)
-'sgi grey 96'   (244 244 244)
+	    'sgi grey 96'   (244 244 244)
-'sgi light blue'        (125 158 192)
+	    'sgi light blue'        (125 158 192)
-'sgi light gray'        (170 170 170)
+	    'sgi light gray'        (170 170 170)
-'sgi light grey'        (170 170 170)
+	    'sgi light grey'        (170 170 170)
-'sgi medium gray'       (132 132 132)
+	    'sgi medium gray'       (132 132 132)
-'sgi medium grey'       (132 132 132)
+	    'sgi medium grey'       (132 132 132)
-'sgi olive drab'        (142 142 56)
+	    'sgi olive drab'        (142 142 56)
-'sgi salmon'    (198 113 113)
+	    'sgi salmon'    (198 113 113)
-'sgi slate blue'        (113 113 198)
+	    'sgi slate blue'        (113 113 198)
-'sgi teal'      (56 142 142)
+	    'sgi teal'      (56 142 142)
-'sgi very dark gray'    (40 40 40)
+	    'sgi very dark gray'    (40 40 40)
-'sgi very dark grey'    (40 40 40)
+	    'sgi very dark grey'    (40 40 40)
-'sgi very light gray'   (214 214 214)
+	    'sgi very light gray'   (214 214 214)
-'sgi very light grey'   (214 214 214)
+	    'sgi very light grey'   (214 214 214)
-'SGIBeet'       (142 56 142)
+	    'SGIBeet'       (142 56 142)
-'SGIBrightGray' (197 193 170)
+	    'SGIBrightGray' (197 193 170)
-'SGIBrightGrey' (197 193 170)
+	    'SGIBrightGrey' (197 193 170)
-'SGIChartreuse' (113 198 113)
+	    'SGIChartreuse' (113 198 113)
-'SGIDarkGray'   (85 85 85)
+	    'SGIDarkGray'   (85 85 85)
-'SGIDarkGrey'   (85 85 85)
+	    'SGIDarkGrey'   (85 85 85)
-'SGIGray0'      (0 0 0)
+	    'SGIGray0'      (0 0 0)
-'SGIGray100'    (255 255 255)
+	    'SGIGray100'    (255 255 255)
-'SGIGray12'     (30 30 30)
+	    'SGIGray12'     (30 30 30)
-'SGIGray16'     (40 40 40)
+	    'SGIGray16'     (40 40 40)
-'SGIGray20'     (51 51 51)
+	    'SGIGray20'     (51 51 51)
-'SGIGray24'     (61 61 61)
+	    'SGIGray24'     (61 61 61)
-'SGIGray28'     (71 71 71)
+	    'SGIGray28'     (71 71 71)
-'SGIGray32'     (81 81 81)
+	    'SGIGray32'     (81 81 81)
-'SGIGray36'     (91 91 91)
+	    'SGIGray36'     (91 91 91)
-'SGIGray4'      (10 10 10)
+	    'SGIGray4'      (10 10 10)
-'SGIGray40'     (102 102 102)
+	    'SGIGray40'     (102 102 102)
-'SGIGray44'     (112 112 112)
+	    'SGIGray44'     (112 112 112)
-'SGIGray48'     (122 122 122)
+	    'SGIGray48'     (122 122 122)
-'SGIGray52'     (132 132 132)
+	    'SGIGray52'     (132 132 132)
-'SGIGray56'     (142 142 142)
+	    'SGIGray56'     (142 142 142)
-'SGIGray60'     (153 153 153)
+	    'SGIGray60'     (153 153 153)
-'SGIGray64'     (163 163 163)
+	    'SGIGray64'     (163 163 163)
-'SGIGray68'     (173 173 173)
+	    'SGIGray68'     (173 173 173)
-'SGIGray72'     (183 183 183)
+	    'SGIGray72'     (183 183 183)
-'SGIGray76'     (193 193 193)
+	    'SGIGray76'     (193 193 193)
-'SGIGray8'      (20 20 20)
+	    'SGIGray8'      (20 20 20)
-'SGIGray80'     (204 204 204)
+	    'SGIGray80'     (204 204 204)
-'SGIGray84'     (214 214 214)
+	    'SGIGray84'     (214 214 214)
-'SGIGray88'     (224 224 224)
+	    'SGIGray88'     (224 224 224)
-'SGIGray92'     (234 234 234)
+	    'SGIGray92'     (234 234 234)
-'SGIGray96'     (244 244 244)
+	    'SGIGray96'     (244 244 244)
-'SGIGrey0'      (0 0 0)
+	    'SGIGrey0'      (0 0 0)
-'SGIGrey100'    (255 255 255)
+	    'SGIGrey100'    (255 255 255)
-'SGIGrey12'     (30 30 30)
+	    'SGIGrey12'     (30 30 30)
-'SGIGrey16'     (40 40 40)
+	    'SGIGrey16'     (40 40 40)
-'SGIGrey20'     (51 51 51)
+	    'SGIGrey20'     (51 51 51)
-'SGIGrey24'     (61 61 61)
+	    'SGIGrey24'     (61 61 61)
-'SGIGrey28'     (71 71 71)
+	    'SGIGrey28'     (71 71 71)
-'SGIGrey32'     (81 81 81)
+	    'SGIGrey32'     (81 81 81)
-'SGIGrey36'     (91 91 91)
+	    'SGIGrey36'     (91 91 91)
-'SGIGrey4'      (10 10 10)
+	    'SGIGrey4'      (10 10 10)
-'SGIGrey40'     (102 102 102)
+	    'SGIGrey40'     (102 102 102)
-'SGIGrey44'     (112 112 112)
+	    'SGIGrey44'     (112 112 112)
-'SGIGrey48'     (122 122 122)
+	    'SGIGrey48'     (122 122 122)
-'SGIGrey52'     (132 132 132)
+	    'SGIGrey52'     (132 132 132)
-'SGIGrey56'     (142 142 142)
+	    'SGIGrey56'     (142 142 142)
-'SGIGrey60'     (153 153 153)
+	    'SGIGrey60'     (153 153 153)
-'SGIGrey64'     (163 163 163)
+	    'SGIGrey64'     (163 163 163)
-'SGIGrey68'     (173 173 173)
+	    'SGIGrey68'     (173 173 173)
-'SGIGrey72'     (183 183 183)
+	    'SGIGrey72'     (183 183 183)
-'SGIGrey76'     (193 193 193)
+	    'SGIGrey76'     (193 193 193)
-'SGIGrey8'      (20 20 20)
+	    'SGIGrey8'      (20 20 20)
-'SGIGrey80'     (204 204 204)
+	    'SGIGrey80'     (204 204 204)
-'SGIGrey84'     (214 214 214)
+	    'SGIGrey84'     (214 214 214)
-'SGIGrey88'     (224 224 224)
+	    'SGIGrey88'     (224 224 224)
-'SGIGrey92'     (234 234 234)
+	    'SGIGrey92'     (234 234 234)
-'SGIGrey96'     (244 244 244)
+	    'SGIGrey96'     (244 244 244)
-'SGILightBlue'  (125 158 192)
+	    'SGILightBlue'  (125 158 192)
-'SGILightGray'  (170 170 170)
+	    'SGILightGray'  (170 170 170)
-'SGILightGrey'  (170 170 170)
+	    'SGILightGrey'  (170 170 170)
-'SGIMediumGray' (132 132 132)
+	    'SGIMediumGray' (132 132 132)
-'SGIMediumGrey' (132 132 132)
+	    'SGIMediumGrey' (132 132 132)
-'SGIOliveDrab'  (142 142 56)
+	    'SGIOliveDrab'  (142 142 56)
-'SGISalmon'     (198 113 113)
+	    'SGISalmon'     (198 113 113)
-'SGISlateBlue'  (113 113 198)
+	    'SGISlateBlue'  (113 113 198)
-'SGITeal'       (56 142 142)
+	    'SGITeal'       (56 142 142)
-'SGIVeryDarkGray'       (40 40 40)
+	    'SGIVeryDarkGray'       (40 40 40)
-'SGIVeryDarkGrey'       (40 40 40)
+	    'SGIVeryDarkGrey'       (40 40 40)
-'SGIVeryLightGray'      (214 214 214)
+	    'SGIVeryLightGray'      (214 214 214)
-'SGIVeryLightGrey'      (214 214 214)
+	    'SGIVeryLightGrey'      (214 214 214)
-'sienna'        (160 82 45)
+	    'sienna'        (160 82 45)
-'sienna1'       (255 130 71)
+	    'sienna1'       (255 130 71)
-'sienna2'       (238 121 66)
+	    'sienna2'       (238 121 66)
-'sienna3'       (205 104 57)
+	    'sienna3'       (205 104 57)
-'sienna4'       (139 71 38)
+	    'sienna4'       (139 71 38)
-'skyblue'       (135 206 235)
+	    'skyblue'       (135 206 235)
-'SkyBlue1'      (135 206 255)
+	    'SkyBlue1'      (135 206 255)
-'SkyBlue2'      (126 192 238)
+	    'SkyBlue2'      (126 192 238)
-'SkyBlue3'      (108 166 205)
+	    'SkyBlue3'      (108 166 205)
-'SkyBlue4'      (74 112 139)
+	    'SkyBlue4'      (74 112 139)
-'slategray'     (112 128 144)
+	    'slategray'     (112 128 144)
-'slategrey'     (112 128 144)
+	    'slategrey'     (112 128 144)
-'slateblue'     (106 90 205)
+	    'slateblue'     (106 90 205)
-'SlateBlue1'    (131 111 255)
+	    'SlateBlue1'    (131 111 255)
-'SlateBlue2'    (122 103 238)
+	    'SlateBlue2'    (122 103 238)
-'SlateBlue3'    (105 89 205)
+	    'SlateBlue3'    (105 89 205)
-'SlateBlue4'    (71 60 139)
+	    'SlateBlue4'    (71 60 139)
-'SlateGray1'    (198 226 255)
+	    'SlateGray1'    (198 226 255)
-'SlateGray2'    (185 211 238)
+	    'SlateGray2'    (185 211 238)
-'SlateGray3'    (159 182 205)
+	    'SlateGray3'    (159 182 205)
-'SlateGray4'    (108 123 139)
+	    'SlateGray4'    (108 123 139)
-'snow'          (255 250 250)
+	    'snow'          (255 250 250)
-'snow1'         (255 250 250)
+	    'snow1'         (255 250 250)
-'snow2'         (238 233 233)
+	    'snow2'         (238 233 233)
-'snow3'         (205 201 201)
+	    'snow3'         (205 201 201)
-'snow4'         (139 137 137)
+	    'snow4'         (139 137 137)
-'springgreen'   (0 255 127)
+	    'springgreen'   (0 255 127)
-'SpringGreen1'  (0 255 127)
+	    'SpringGreen1'  (0 255 127)
-'SpringGreen2'  (0 238 118)
+	    'SpringGreen2'  (0 238 118)
-'SpringGreen3'  (0 205 102)
+	    'SpringGreen3'  (0 205 102)
-'SpringGreen4'  (0 139 69)
+	    'SpringGreen4'  (0 139 69)
-'steelblue'     (70 130 180)
+	    'steelblue'     (70 130 180)
-'SteelBlue1'    (99 184 255)
+	    'SteelBlue1'    (99 184 255)
-'SteelBlue2'    (92 172 238)
+	    'SteelBlue2'    (92 172 238)
-'SteelBlue3'    (79 148 205)
+	    'SteelBlue3'    (79 148 205)
-'SteelBlue4'    (54 100 139)
+	    'SteelBlue4'    (54 100 139)
-'tan'   (210 180 140)
+	    'tan'   (210 180 140)
-'tan1'  (255 165 79)
+	    'tan1'  (255 165 79)
-'tan2'  (238 154 73)
+	    'tan2'  (238 154 73)
-'tan3'  (205 133 63)
+	    'tan3'  (205 133 63)
-'tan4'  (139 90 43)
+	    'tan4'  (139 90 43)
-'thistle'       (216 191 216)
+	    'thistle'       (216 191 216)
-'thistle1'      (255 225 255)
+	    'thistle1'      (255 225 255)
-'thistle2'      (238 210 238)
+	    'thistle2'      (238 210 238)
-'thistle3'      (205 181 205)
+	    'thistle3'      (205 181 205)
-'thistle4'      (139 123 139)
+	    'thistle4'      (139 123 139)
-'tomato'        (255 99 71)
+	    'tomato'        (255 99 71)
-'tomato1'       (255 99 71)
+	    'tomato1'       (255 99 71)
-'tomato2'       (238 92 66)
+	    'tomato2'       (238 92 66)
-'tomato3'       (205 79 57)
+	    'tomato3'       (205 79 57)
-'tomato4'       (139 54 38)
+	    'tomato4'       (139 54 38)
-'turquoise'     (64 224 208)
+	    'turquoise'     (64 224 208)
-'turquoise1'    (0 245 255)
+	    'turquoise1'    (0 245 255)
-'turquoise2'    (0 229 238)
+	    'turquoise2'    (0 229 238)
-'turquoise3'    (0 197 205)
+	    'turquoise3'    (0 197 205)
-'turquoise4'    (0 134 139)
+	    'turquoise4'    (0 134 139)
-'violet'        (238 130 238)
+	    'violet'        (238 130 238)
-'violetred'     (208 32 144)
+	    'violetred'     (208 32 144)
-'VioletRed1'    (255 62 150)
+	    'VioletRed1'    (255 62 150)
-'VioletRed2'    (238 58 140)
+	    'VioletRed2'    (238 58 140)
-'VioletRed3'    (205 50 120)
+	    'VioletRed3'    (205 50 120)
-'VioletRed4'    (139 34 82)
+	    'VioletRed4'    (139 34 82)
-'wheat'         (245 222 179)
+	    'wheat'         (245 222 179)
-'wheat1'        (255 231 186)
+	    'wheat1'        (255 231 186)
-'wheat2'        (238 216 174)
+	    'wheat2'        (238 216 174)
-'wheat3'        (205 186 150)
+	    'wheat3'        (205 186 150)
-'wheat4'        (139 126 102)
+	    'wheat4'        (139 126 102)
-'white'         (255 255 255)
+	    'white'         (255 255 255)
-'whitesmoke'    (245 245 245)
+	    'whitesmoke'    (245 245 245)
-'yellow'        (255 255 0)
+	    'yellow'        (255 255 0)
-'yellowgreen'   (154 205 50)
+	    'yellowgreen'   (154 205 50)
-'yellow1'       (255 255 0)
+	    'yellow1'       (255 255 0)
-'yellow2'       (238 238 0)
+	    'yellow2'       (238 238 0)
-'yellow3'       (205 205 0)
+	    'yellow3'       (205 205 0)
-'yellow4'       (139 139 0)
+	    'yellow4'       (139 139 0)
-).
+	).
 "
 WinWorkstation initializeStandardColorNames
 "
 ! !
 "enable more debug prints - this will vanish"
 %{  /* NOCONTEXT */
 if (aBoolean == true) {
-__debug__ |= 2;
+	__debug__ |= 2;
 } else {
-__debug__ &= ~2;
+	__debug__ &= ~2;
 }
 %}
 !
 debug4:aBoolean
 "enable even more debug prints - this will vanish"
 %{  /* NOCONTEXT */
 if (aBoolean == true) {
-__debug__ |= 4;
+	__debug__ |= 4;
 } else {
-__debug__ &= ~4;
+	__debug__ &= ~4;
 }
 %}
 !
 debug8:aBoolean
 "enable even more debug prints - this will vanish"
 %{  /* NOCONTEXT */
 if (aBoolean == true) {
-__debug__ |= 8;
+	__debug__ |= 8;
 } else {
-__debug__ &= ~8;
+	__debug__ &= ~8;
 }
 %}
 !
 debug:aBoolean
 debug:aBoolean message:msg
 "enable/disable debugging of individual WM messages"
 msg = 'WM_ALL' ifTrue:[
 %{
-__debug_WM_ALL__ = (aBoolean == true);
+	__debug_WM_ALL__ = (aBoolean == true);
-RETURN (self);
+	RETURN (self);
 %}
 ].
 msg = 'WM_USER' ifTrue:[
 %{
-__debug_WM_MOUSEENTER__ = (aBoolean == true);
+	__debug_WM_MOUSEENTER__ = (aBoolean == true);
-__debug_WM_MOUSELEAVE__ = (aBoolean == true);
+	__debug_WM_MOUSELEAVE__ = (aBoolean == true);
-__debug_WM_MOUSEMOVE__ = (aBoolean == true);
+	__debug_WM_MOUSEMOVE__ = (aBoolean == true);
-__debug_WM_MOUSEACTIVATE__ = (aBoolean == true);
+	__debug_WM_MOUSEACTIVATE__ = (aBoolean == true);
-__debug_WM_BUTTONUP__ = (aBoolean == true);
+	__debug_WM_BUTTONUP__ = (aBoolean == true);
-__debug_WM_BUTTONDOWN__ = (aBoolean == true);
+	__debug_WM_BUTTONDOWN__ = (aBoolean == true);
-__debug_WM_KEYUP__ = (aBoolean == true);
+	__debug_WM_KEYUP__ = (aBoolean == true);
-__debug_WM_KEYDOWN__ = (aBoolean == true);
+	__debug_WM_KEYDOWN__ = (aBoolean == true);
-__debug_WM_CHAR__ = (aBoolean == true);
+	__debug_WM_CHAR__ = (aBoolean == true);
-RETURN (self);
+	RETURN (self);
 %}
 ].
 msg = 'WM_MOUSEENTER' ifTrue:[
 %{
-__debug_WM_MOUSEENTER__ = (aBoolean == true);
+	__debug_WM_MOUSEENTER__ = (aBoolean == true);
-RETURN (self);
+	RETURN (self);
 %}
 ].
 msg = 'WM_MOUSELEAVE' ifTrue:[
 %{
-__debug_WM_MOUSELEAVE__ = (aBoolean == true);
+	__debug_WM_MOUSELEAVE__ = (aBoolean == true);
-RETURN (self);
+	RETURN (self);
 %}
 ].
 msg = 'WM_MOUSEMOVE' ifTrue:[
 %{
-__debug_WM_MOUSEMOVE__ = (aBoolean == true);
+	__debug_WM_MOUSEMOVE__ = (aBoolean == true);
-RETURN (self);
+	RETURN (self);
 %}
 ].
 msg = 'WM_MOUSEACTIVATE' ifTrue:[
 %{
-__debug_WM_MOUSEACTIVATE__ = (aBoolean == true);
+	__debug_WM_MOUSEACTIVATE__ = (aBoolean == true);
-RETURN (self);
+	RETURN (self);
 %}
 ].
 msg = 'WM_BUTTONUP' ifTrue:[
 %{
-__debug_WM_BUTTONUP__ = (aBoolean == true);
+	__debug_WM_BUTTONUP__ = (aBoolean == true);
-RETURN (self);
+	RETURN (self);
 %}
 ].
 msg = 'WM_BUTTONDOWN' ifTrue:[
 %{
-__debug_WM_BUTTONDOWN__ = (aBoolean == true);
+	__debug_WM_BUTTONDOWN__ = (aBoolean == true);
-RETURN (self);
+	RETURN (self);
 %}
 ].
 msg = 'WM_KEYUP' ifTrue:[
 %{
-__debug_WM_KEYUP__ = (aBoolean == true);
+	__debug_WM_KEYUP__ = (aBoolean == true);
-RETURN (self);
+	RETURN (self);
 %}
 ].
 msg = 'WM_KEYDOWN' ifTrue:[
 %{
-__debug_WM_KEYDOWN__ = (aBoolean == true);
+	__debug_WM_KEYDOWN__ = (aBoolean == true);
-RETURN (self);
+	RETURN (self);
 %}
 ].
 msg = 'WM_CHAR' ifTrue:[
 %{
-__debug_WM_CHAR__ = (aBoolean == true);
+	__debug_WM_CHAR__ = (aBoolean == true);
-RETURN (self);
+	RETURN (self);
 %}
 ].
 msg = 'WM_PAINT' ifTrue:[
 %{
-__debug_WM_PAINT__ = (aBoolean == true);
+	__debug_WM_PAINT__ = (aBoolean == true);
-RETURN (self);
+	RETURN (self);
 %}
 ].
 msg = 'WM_MOVING' ifTrue:[
 %{
-__debug_WM_MOVING__ = (aBoolean == true);
+	__debug_WM_MOVING__ = (aBoolean == true);
-RETURN (self);
+	RETURN (self);
 %}
 ].
 msg = 'WM_ERASEBKGND' ifTrue:[
 %{
-__debug_WM_ERASEBKGND__ = (aBoolean == true);
+	__debug_WM_ERASEBKGND__ = (aBoolean == true);
-RETURN (self);
+	RETURN (self);
 %}
 ].
 msg = 'WM_SETTEXT' ifTrue:[
 %{
-__debug_WM_SETTEXT__ = (aBoolean == true);
+	__debug_WM_SETTEXT__ = (aBoolean == true);
-RETURN (self);
+	RETURN (self);
 %}
 ].
 msg = 'WM_COPYDATA' ifTrue:[
 %{
-__debug_WM_COPYDATA__ = (aBoolean == true);
+	__debug_WM_COPYDATA__ = (aBoolean == true);
-RETURN (self);
+	RETURN (self);
 %}
 ].
 msg = 'WM_DROPFILES' ifTrue:[
 %{
-__debug_WM_DROPFILES__ = (aBoolean == true);
+	__debug_WM_DROPFILES__ = (aBoolean == true);
-RETURN (self);
+	RETURN (self);
 %}
 ].
 msg = 'WM_SHOWWINDOW' ifTrue:[
 %{
-__debug_WM_SHOWWINDOW__ = (aBoolean == true);
+	__debug_WM_SHOWWINDOW__ = (aBoolean == true);
-RETURN (self);
+	RETURN (self);
 %}
 ].
 msg = 'WM_SETCURSOR' ifTrue:[
 %{
-__debug_WM_SETCURSOR__ = (aBoolean == true);
+	__debug_WM_SETCURSOR__ = (aBoolean == true);
-RETURN (self);
+	RETURN (self);
 %}
 ].
 msg = 'WM_FOCUS' ifTrue:[
 %{
-__debug_WM_FOCUS__ = (aBoolean == true);
+	__debug_WM_FOCUS__ = (aBoolean == true);
-RETURN (self);
+	RETURN (self);
 %}
 ].
 'unknown WM_x' infoPrintCR.
 "
 if (aBoolean == true) {
 __activateOnClick = 1;
 } else {
 if (aBoolean == false) {
-__activateOnClick = 0;
+	   __activateOnClick = 0;
 }
 }
 RETURN (rslt);
 %}
 "
 "return the state-mask for button1 in motion events state-field.
 This is the devices mask."
 %{  /* NOCONTEXT */
 if (aButton == __MKSMALLINT(1)) {
-RETURN (__MKSMALLINT(Button1MotionMask));
+	RETURN (__MKSMALLINT(Button1MotionMask));
 }
 if (aButton == __MKSMALLINT(2)) {
-RETURN (__MKSMALLINT(Button2MotionMask));
+	RETURN (__MKSMALLINT(Button2MotionMask));
 }
 if (aButton == __MKSMALLINT(3)) {
-RETURN (__MKSMALLINT(Button3MotionMask));
+	RETURN (__MKSMALLINT(Button3MotionMask));
 }
 %}.
 ^ nil
 !
 defaultEventMask
 "return a mask to enable some events by default."
 %{  /* NOCONTEXT */
 RETURN (__MKSMALLINT( ExposureMask | StructureNotifyMask |
-KeyPressMask | KeyReleaseMask |
+			 KeyPressMask | KeyReleaseMask |
-EnterWindowMask | LeaveWindowMask |
+			 EnterWindowMask | LeaveWindowMask |
-ButtonPressMask | ButtonMotionMask | ButtonReleaseMask ));
+			 ButtonPressMask | ButtonMotionMask | ButtonReleaseMask ));
 %}
 !
 deviceContext
 ^ rootDC
 if (aBoolean == true) {
 __focusFollowsMouse = 1;
 } else {
 if (aBoolean == false) {
-__focusFollowsMouse = 0;
+	   __focusFollowsMouse = 0;
 }
 }
 RETURN (rslt);
 %}
 "
 int info = 0;
 int isBool = 0;
 int arg;
 if (__isSmallInteger(aNumberOrSymbol)) {
-arg = __intVal(aNumberOrSymbol);
+	arg = __intVal(aNumberOrSymbol);
 } else if ((aNumberOrSymbol == @symbol(swapButton)) || (aNumberOrSymbol == @symbol(SM_SWAPBUTTON))) {
-arg = SM_SWAPBUTTON;
+	arg = SM_SWAPBUTTON;
-isBool = 1;
+	isBool = 1;
 } else if ((aNumberOrSymbol == @symbol(mousePresent)) || (aNumberOrSymbol == @symbol(SM_MOUSEPRESENT))) {
-arg = SM_MOUSEPRESENT;
+	arg = SM_MOUSEPRESENT;
-isBool = 1;
+	isBool = 1;
 } else if ((aNumberOrSymbol == @symbol(mouseButtons)) || (aNumberOrSymbol == @symbol(SM_CMOUSEBUTTONS))) {
-arg = SM_CMOUSEBUTTONS;
+	arg = SM_CMOUSEBUTTONS;
 } else if ((aNumberOrSymbol == @symbol(iconWidth)) || (aNumberOrSymbol == @symbol(SM_CXICON))) {
-arg = SM_CXICON;
+	arg = SM_CXICON;
 } else if ((aNumberOrSymbol == @symbol(iconHeight)) || (aNumberOrSymbol == @symbol(SM_CYICON))) {
-arg = SM_CYICON;
+	arg = SM_CYICON;
 } else if ((aNumberOrSymbol == @symbol(iconWidth)) || (aNumberOrSymbol == @symbol(SM_CXDOUBLECLK))) {
-arg = SM_CXDOUBLECLK;
+	arg = SM_CXDOUBLECLK;
 } else if ((aNumberOrSymbol == @symbol(iconHeight)) || (aNumberOrSymbol == @symbol(SM_CYDOUBLECLK))) {
-arg = SM_CYDOUBLECLK;
+	arg = SM_CYDOUBLECLK;
 } else if ((aNumberOrSymbol == @symbol(cursorWidth)) || (aNumberOrSymbol == @symbol(SM_CXCURSOR))) {
-arg = SM_CXCURSOR;
+	arg = SM_CXCURSOR;
 } else if ((aNumberOrSymbol == @symbol(cursorHeight)) || (aNumberOrSymbol == @symbol(SM_CYCURSOR))) {
-arg = SM_CYCURSOR;
+	arg = SM_CYCURSOR;
 } else if ((aNumberOrSymbol == @symbol(captionHeight)) || (aNumberOrSymbol == @symbol(SM_CYCAPTION))) {
-arg = SM_CYCAPTION;
+	arg = SM_CYCAPTION;
 } else if ((aNumberOrSymbol == @symbol(resizeFrameWidth)) || (aNumberOrSymbol == @symbol(SM_CXFRAME))) {
-arg = SM_CXFRAME;
+	arg = SM_CXFRAME;
 } else if ((aNumberOrSymbol == @symbol(resizeFrameHeight)) || (aNumberOrSymbol == @symbol(SM_CYFRAME))) {
-arg = SM_CYFRAME;
+	arg = SM_CYFRAME;
 } else if ((aNumberOrSymbol == @symbol(borderFrameWidth)) || (aNumberOrSymbol == @symbol(SM_CXBORDER))) {
-arg = SM_CXBORDER;
+	arg = SM_CXBORDER;
 } else if ((aNumberOrSymbol == @symbol(borderFrameHeight)) || (aNumberOrSymbol == @symbol(SM_CYBORDER))) {
-arg = SM_CYBORDER;
+	arg = SM_CYBORDER;
 } else if (aNumberOrSymbol == @symbol(SM_CXDLGFRAME)) {
-arg = SM_CXDLGFRAME;
+	arg = SM_CXDLGFRAME;
 } else if (aNumberOrSymbol == @symbol(SM_CYDLGFRAME)) {
-arg = SM_CYDLGFRAME;
+	arg = SM_CYDLGFRAME;
 } else if ((aNumberOrSymbol == @symbol(fullScreenWindowWidth)) || (aNumberOrSymbol == @symbol(SM_CXFULLSCREEN))) {
-arg = SM_CXFULLSCREEN;
+	arg = SM_CXFULLSCREEN;
 } else if ((aNumberOrSymbol == @symbol(fullScreenWindowHeight)) || (aNumberOrSymbol == @symbol(SM_CYFULLSCREEN))) {
-arg = SM_CYFULLSCREEN;
+	arg = SM_CYFULLSCREEN;
 } else if ((aNumberOrSymbol == @symbol(screenWidth)) || (aNumberOrSymbol == @symbol(SM_CXSCREEN))) {
-arg = SM_CXSCREEN;
+	arg = SM_CXSCREEN;
 } else if ((aNumberOrSymbol == @symbol(screenHeight)) || (aNumberOrSymbol == @symbol(SM_CYSCREEN))) {
-arg = SM_CYSCREEN;
+	arg = SM_CYSCREEN;
 } else if ((aNumberOrSymbol == @symbol(minWindowWidth)) || (aNumberOrSymbol == @symbol(SM_CXMIN))) {
-arg = SM_CXMIN;
+	arg = SM_CXMIN;
 } else if ((aNumberOrSymbol == @symbol(minWindowHeight)) || (aNumberOrSymbol == @symbol(SM_CYMIN))) {
-arg = SM_CYMIN;
+	arg = SM_CYMIN;
 } else if ((aNumberOrSymbol == @symbol(vScrollbarWidth)) || (aNumberOrSymbol == @symbol(SM_CXVSCROLL))) {
-arg = SM_CXVSCROLL;
+	arg = SM_CXVSCROLL;
 } else if ((aNumberOrSymbol == @symbol(hScrollbarHeight)) || (aNumberOrSymbol == @symbol(SM_CYHSCROLL))) {
-arg = SM_CYHSCROLL;
+	arg = SM_CYHSCROLL;
 } else if ((aNumberOrSymbol == @symbol(vThumbHeight)) || (aNumberOrSymbol == @symbol(SM_CYVTHUMB))) {
-arg = SM_CYVTHUMB;
+	arg = SM_CYVTHUMB;
 } else if ((aNumberOrSymbol == @symbol(hThumbWidth)) || (aNumberOrSymbol == @symbol(SM_CXHTHUMB))) {
-arg = SM_CXHTHUMB;
+	arg = SM_CXHTHUMB;
 } else if ((aNumberOrSymbol == @symbol(SM_CXSIZE))) {
-arg = SM_CXSIZE;
+	arg = SM_CXSIZE;
 } else if ((aNumberOrSymbol == @symbol(SM_CYSIZE))) {
-arg = SM_CYSIZE;
+	arg = SM_CYSIZE;
 } else if ((aNumberOrSymbol == @symbol(SM_CYVSCROLL))) {
-arg = SM_CYVSCROLL;
+	arg = SM_CYVSCROLL;
 } else if ((aNumberOrSymbol == @symbol(SM_CXHSCROLL))) {
-arg = SM_CXHSCROLL;
+	arg = SM_CXHSCROLL;
 } else if ((aNumberOrSymbol == @symbol(SM_CXMINTRACK))) {
-arg = SM_CXMINTRACK;
+	arg = SM_CXMINTRACK;
 } else if ((aNumberOrSymbol == @symbol(SM_CYMINTRACK))) {
-arg = SM_CYMINTRACK;
+	arg = SM_CYMINTRACK;
 } else if ((aNumberOrSymbol == @symbol(SM_CXICONSPACING))) {
-arg = SM_CXICONSPACING;
+	arg = SM_CXICONSPACING;
 } else if ((aNumberOrSymbol == @symbol(SM_CYICONSPACING))) {
-arg = SM_CYICONSPACING;
+	arg = SM_CYICONSPACING;
 } else if ((aNumberOrSymbol == @symbol(SM_CYMENU))) {
-arg = SM_CYMENU;
+	arg = SM_CYMENU;
 } else if ((aNumberOrSymbol == @symbol(SM_MENUDROPALIGNMENT))) {
-arg = SM_MENUDROPALIGNMENT;
+	arg = SM_MENUDROPALIGNMENT;
 } else if ((aNumberOrSymbol == @symbol(SM_PENWINDOWS))) {
-arg = SM_PENWINDOWS;
+	arg = SM_PENWINDOWS;
 } else if ((aNumberOrSymbol == @symbol(SM_DBCSENABLED))) {
-arg = SM_DBCSENABLED;
+	arg = SM_DBCSENABLED;
 } else if ((aNumberOrSymbol == @symbol(SM_CXFIXEDFRAME))) {
-arg = SM_CXFIXEDFRAME;
+	arg = SM_CXFIXEDFRAME;
 } else if ((aNumberOrSymbol == @symbol(SM_CYFIXEDFRAME))) {
-arg = SM_CYFIXEDFRAME;
+	arg = SM_CYFIXEDFRAME;
 } else if ((aNumberOrSymbol == @symbol(SM_CXSIZEFRAME))) {
-arg = SM_CXSIZEFRAME;
+	arg = SM_CXSIZEFRAME;
 } else if ((aNumberOrSymbol == @symbol(SM_CYSIZEFRAME))) {
-arg = SM_CYSIZEFRAME;
+	arg = SM_CYSIZEFRAME;
 } else if ((aNumberOrSymbol == @symbol(SM_CYKANJIWINDOW))) {
-arg = SM_CYKANJIWINDOW;
+	arg = SM_CYKANJIWINDOW;
 } else if ((aNumberOrSymbol == @symbol(SM_SECURE))) {
-arg = SM_SECURE;
+	arg = SM_SECURE;
 } else if ((aNumberOrSymbol == @symbol(SM_CXEDGE))) {
-arg = SM_CXEDGE;
+	arg = SM_CXEDGE;
 } else if ((aNumberOrSymbol == @symbol(SM_CYEDGE))) {
-arg = SM_CYEDGE;
+	arg = SM_CYEDGE;
 } else if ((aNumberOrSymbol == @symbol(SM_CXMINSPACING))) {
-arg = SM_CXMINSPACING;
+	arg = SM_CXMINSPACING;
 } else if ((aNumberOrSymbol == @symbol(SM_CYMINSPACING))) {
-arg = SM_CYMINSPACING;
+	arg = SM_CYMINSPACING;
 } else if ((aNumberOrSymbol == @symbol(SM_CXSMICON))) {
-arg = SM_CXSMICON;
+	arg = SM_CXSMICON;
 } else if ((aNumberOrSymbol == @symbol(SM_CYSMICON))) {
-arg = SM_CYSMICON;
+	arg = SM_CYSMICON;
 } else if ((aNumberOrSymbol == @symbol(SM_CYSMCAPTION))) {
-arg = SM_CYSMCAPTION;
+	arg = SM_CYSMCAPTION;
 } else if ((aNumberOrSymbol == @symbol(SM_CXSMSIZE))) {
-arg = SM_CXSMSIZE;
+	arg = SM_CXSMSIZE;
 } else if ((aNumberOrSymbol == @symbol(SM_CYSMSIZE))) {
-arg = SM_CYSMSIZE;
+	arg = SM_CYSMSIZE;
 } else if ((aNumberOrSymbol == @symbol(SM_CXMENUSIZE))) {
-arg = SM_CXMENUSIZE;
+	arg = SM_CXMENUSIZE;
 } else if ((aNumberOrSymbol == @symbol(SM_CYMENUSIZE))) {
-arg = SM_CYMENUSIZE;
+	arg = SM_CYMENUSIZE;
 } else if ((aNumberOrSymbol == @symbol(SM_ARRANGE))) {
-arg = SM_ARRANGE;
+	arg = SM_ARRANGE;
 } else if ((aNumberOrSymbol == @symbol(SM_CXMINIMIZED))) {
-arg = SM_CXMINIMIZED;
+	arg = SM_CXMINIMIZED;
 } else if ((aNumberOrSymbol == @symbol(SM_CYMINIMIZED))) {
-arg = SM_CYMINIMIZED;
+	arg = SM_CYMINIMIZED;
 } else if ((aNumberOrSymbol == @symbol(SM_CXMAXTRACK))) {
-arg = SM_CXMAXTRACK;
+	arg = SM_CXMAXTRACK;
 } else if ((aNumberOrSymbol == @symbol(SM_CYMAXTRACK))) {
-arg = SM_CYMAXTRACK;
+	arg = SM_CYMAXTRACK;
 } else if ((aNumberOrSymbol == @symbol(SM_CXMAXIMIZED))) {
-arg = SM_CXMAXIMIZED;
+	arg = SM_CXMAXIMIZED;
 } else if ((aNumberOrSymbol == @symbol(SM_CYMAXIMIZED))) {
-arg = SM_CYMAXIMIZED;
+	arg = SM_CYMAXIMIZED;
 } else if ((aNumberOrSymbol == @symbol(SM_NETWORK))) {
-arg = SM_NETWORK;
+	arg = SM_NETWORK;
 } else if ((aNumberOrSymbol == @symbol(SM_CXDRAG))) {
-arg = SM_CXDRAG;
+	arg = SM_CXDRAG;
 } else if ((aNumberOrSymbol == @symbol(SM_CYDRAG))) {
-arg = SM_CYDRAG;
+	arg = SM_CYDRAG;
 } else if ((aNumberOrSymbol == @symbol(SM_NETWORK))) {
-arg = SM_NETWORK;
+	arg = SM_NETWORK;
 } else if ((aNumberOrSymbol == @symbol(SM_SHOWSOUNDS))) {
-arg = SM_SHOWSOUNDS;
+	arg = SM_SHOWSOUNDS;
 } else if ((aNumberOrSymbol == @symbol(SM_CXMENUCHECK))) {
-arg = SM_CXMENUCHECK;
+	arg = SM_CXMENUCHECK;
 } else if ((aNumberOrSymbol == @symbol(SM_CYMENUCHECK))) {
-arg = SM_CYMENUCHECK;
+	arg = SM_CYMENUCHECK;
 } else if ((aNumberOrSymbol == @symbol(SM_SLOWMACHINE))) {
-arg = SM_SLOWMACHINE;
+	arg = SM_SLOWMACHINE;
 } else if ((aNumberOrSymbol == @symbol(SM_MIDEASTENABLED))) {
-arg = SM_MIDEASTENABLED;
+	arg = SM_MIDEASTENABLED;
 } else if ((aNumberOrSymbol == @symbol(SM_MOUSEWHEELPRESENT))) {
-arg = SM_MOUSEWHEELPRESENT;
+	arg = SM_MOUSEWHEELPRESENT;
 } else if ((aNumberOrSymbol == @symbol(SM_XVIRTUALSCREEN))) {
-arg = SM_XVIRTUALSCREEN;
+	arg = SM_XVIRTUALSCREEN;
 } else if ((aNumberOrSymbol == @symbol(SM_YVIRTUALSCREEN))) {
-arg = SM_YVIRTUALSCREEN;
+	arg = SM_YVIRTUALSCREEN;
 } else if ((aNumberOrSymbol == @symbol(SM_CXVIRTUALSCREEN))) {
-arg = SM_CXVIRTUALSCREEN;
+	arg = SM_CXVIRTUALSCREEN;
 } else if ((aNumberOrSymbol == @symbol(SM_CYVIRTUALSCREEN))) {
-arg = SM_CYVIRTUALSCREEN;
+	arg = SM_CYVIRTUALSCREEN;
 } else if ((aNumberOrSymbol == @symbol(SM_CMONITORS))) {
-arg = SM_CMONITORS;
+	arg = SM_CMONITORS;
 } else if ((aNumberOrSymbol == @symbol(SM_SAMEDISPLAYFORMAT))) {
-arg = SM_SAMEDISPLAYFORMAT;
+	arg = SM_SAMEDISPLAYFORMAT;
 #ifdef SM_IMMENABLED
 } else if ((aNumberOrSymbol == @symbol(SM_IMMENABLED))) {
-arg = SM_IMMENABLED;
+	arg = SM_IMMENABLED;
 #endif
 } else if ((aNumberOrSymbol == @symbol(SM_DEBUG))) {
-arg = SM_DEBUG;
+	arg = SM_DEBUG;
 #ifdef SM_REMOTESESSION
 } else if ((aNumberOrSymbol == @symbol(SM_REMOTESESSION))) {
-arg = SM_REMOTESESSION;
+	arg = SM_REMOTESESSION;
 #endif
 } else {
-RETURN (nil);
+	RETURN (nil);
 }
 info = GetSystemMetrics(arg);
 if (isBool) {
-RETURN (info ? true : false);
+	RETURN (info ? true : false);
 }
 RETURN (__MKSMALLINT(info));
 %}
 "
 Screen current getSystemMetrics:#SM_MOUSEWHEELPRESENT
 int isRect = 0;
 int isNonClientInfo = 0;
 int arg, param;
 void *pRslt;
 union {
-char buffer[1024];
+	char buffer[1024];
-RECT rect;
+	RECT rect;
-NONCLIENTMETRICS nc;
+	NONCLIENTMETRICS nc;
 } rslt;
 if (__isSmallInteger(aNumberOrSymbol)) {
-arg = __intVal(aNumberOrSymbol);
+	arg = __intVal(aNumberOrSymbol);
 #ifdef SPI_GETDESKWALLPAPER
 } else if (aNumberOrSymbol == @symbol(SPI_GETDESKWALLPAPER)) {
-arg = SPI_GETDESKWALLPAPER;
+	arg = SPI_GETDESKWALLPAPER;
-isString = 1;
+	isString = 1;
 #endif
 #ifdef SPI_GETDROPSHADOW
 } else if (aNumberOrSymbol == @symbol(SPI_GETDROPSHADOW)) {
-arg = SPI_GETDROPSHADOW;
+	arg = SPI_GETDROPSHADOW;
-isBool = 1;
+	isBool = 1;
 #endif
 #ifdef SPI_GETFLATMENU
 } else if (aNumberOrSymbol == @symbol(SPI_GETFLATMENU)) {
-arg = SPI_GETFLATMENU;
+	arg = SPI_GETFLATMENU;
-isBool = 1;
+	isBool = 1;
 #endif
 #ifdef SPI_GETWHEELSCROLLLINES
 } else if (aNumberOrSymbol == @symbol(SPI_GETWHEELSCROLLLINES)) {
-arg = SPI_GETWHEELSCROLLLINES;
+	arg = SPI_GETWHEELSCROLLLINES;
 #endif
 #ifdef SPI_GETHOTTRACKING
 } else if (aNumberOrSymbol == @symbol(SPI_GETHOTTRACKING)) {
-arg = SPI_GETHOTTRACKING;
+	arg = SPI_GETHOTTRACKING;
-isBool = 1;
+	isBool = 1;
 #endif
 #ifdef SPI_GETTOOLTIPANIMATION
 } else if (aNumberOrSymbol == @symbol(SPI_GETTOOLTIPANIMATION)) {
-arg = SPI_GETTOOLTIPANIMATION;
+	arg = SPI_GETTOOLTIPANIMATION;
-isBool = 1;
+	isBool = 1;
 #endif
 #ifdef SPI_GETWORKAREA
 } else if (aNumberOrSymbol == @symbol(SPI_GETWORKAREA)) {
-arg = SPI_GETWORKAREA;
+	arg = SPI_GETWORKAREA;
-isRect = 1;
+	isRect = 1;
 #endif
 #ifdef SPI_GETNONCLIENTMETRICS
 } else if (aNumberOrSymbol == @symbol(SPI_GETNONCLIENTMETRICS)) {
-arg = SPI_GETNONCLIENTMETRICS;
+	arg = SPI_GETNONCLIENTMETRICS;
-rslt.nc.cbSize = sizeof ( rslt.nc ) ;
+	rslt.nc.cbSize = sizeof ( rslt.nc ) ;
-isNonClientInfo = 1;
+	isNonClientInfo = 1;
 #endif
 } else {
-RETURN (nil);
+	RETURN (nil);
 }
 param = 0;
 pRslt = (void *)&rslt;
 if (isString) {
-param = sizeof(rslt);
+	param = sizeof(rslt);
 }
 retVal = SystemParametersInfo(arg, param, pRslt, 0);
 if (! retVal) {
-RETURN (nil);
+	RETURN (nil);
 }
 if (isBool) {
-RETURN (info ? true : false);
+	RETURN (info ? true : false);
 }
 if (isString) {
-RETURN (__MKSTRING(rslt.buffer));
+	RETURN (__MKSTRING(rslt.buffer));
 }
 if (isRect) {
-RETURN ( __SSEND4(__DEF_Rectangle, @symbol(left:top:right:bottom:), 0,
+	RETURN ( __SSEND4(__DEF_Rectangle, @symbol(left:top:right:bottom:), 0,
-__MKSMALLINT(rslt.rect.left),
+			__MKSMALLINT(rslt.rect.left),
-__MKSMALLINT(rslt.rect.top),
+			__MKSMALLINT(rslt.rect.top),
-__MKSMALLINT(rslt.rect.right),
+			__MKSMALLINT(rslt.rect.right),
-__MKSMALLINT(rslt.rect.bottom)) );
+			__MKSMALLINT(rslt.rect.bottom)) );
 }
 if (isNonClientInfo) {
-menuFontInfoArray = __extractLogicalFontParameters(&rslt.nc.lfMenuFont);
+	menuFontInfoArray = __extractLogicalFontParameters(&rslt.nc.lfMenuFont);
-statusFontInfoArray = __extractLogicalFontParameters(&rslt.nc.lfStatusFont);
+	statusFontInfoArray = __extractLogicalFontParameters(&rslt.nc.lfStatusFont);
-messageFontInfoArray = __extractLogicalFontParameters(&rslt.nc.lfMessageFont);
+	messageFontInfoArray = __extractLogicalFontParameters(&rslt.nc.lfMessageFont);
 }
 out: ;
 %}.
 menuFontInfoArray notNil ifTrue:[
-menuFont := self fontDescriptionFromLogicalFontInfoArray:menuFontInfoArray.
+	menuFont := self fontDescriptionFromLogicalFontInfoArray:menuFontInfoArray.
-statusFont := self fontDescriptionFromLogicalFontInfoArray:statusFontInfoArray.
+	statusFont := self fontDescriptionFromLogicalFontInfoArray:statusFontInfoArray.
-messageFont := self fontDescriptionFromLogicalFontInfoArray:messageFontInfoArray.
+	messageFont := self fontDescriptionFromLogicalFontInfoArray:messageFontInfoArray.
-^ (Dictionary new)
+	^ (Dictionary new)
-at:#menuFont put:menuFont;
+	    at:#menuFont put:menuFont;
-at:#statusFont put:statusFont;
+	    at:#statusFont put:statusFont;
-at:#messageFont put:messageFont;
+	    at:#messageFont put:messageFont;
-yourself.
+	    yourself.
 ].
 ^ nil
 "
 if (aBoolean == true) {
 __ignoreButtonPressOnActivate = 1;
 } else {
 if (aBoolean == false) {
-__ignoreButtonPressOnActivate = 0;
+	   __ignoreButtonPressOnActivate = 0;
 }
 }
 RETURN (rslt);
 %}
 "
 |screenL screenT screenR screenB screenW screenH
 workL workT workR workB workW workH
 isPrimary mName|
 %{
 if (__isExternalAddress(aMonitorId)) {
-HMONITOR hMonitor = (HMONITOR)(_HWNDVal(aMonitorId));
+	HMONITOR hMonitor = (HMONITOR)(_HWNDVal(aMonitorId));
-MONITORINFOEX info;
+	MONITORINFOEX info;
-info.cbSize = sizeof(MONITORINFOEX);
+	info.cbSize = sizeof(MONITORINFOEX);
 #if 0
-/* the following is only needed when we want
+	/* the following is only needed when we want
-* to support very old NT/W95/W98 systems; we don't !
+	 * to support very old NT/W95/W98 systems; we don't !
-*/
+	 */
-static BOOL (__stdcall *P_GetMonitorInfo)(HMONITOR , MONITORINFOEX *);
+	static BOOL (__stdcall *P_GetMonitorInfo)(HMONITOR , MONITORINFOEX *);
-if (P_GetMonitorInfo == 0) {
+	if (P_GetMonitorInfo == 0) {
-HINSTANCE hUser = LoadLibrary("user32.dll");
+	    HINSTANCE hUser = LoadLibrary("user32.dll");
-// console_printf("hUser: %x\n", hUser);
+	    // console_printf("hUser: %x\n", hUser);
-if (hUser) {
+	    if (hUser) {
-P_GetMonitorInfo = (BOOL (__stdcall *)(HMONITOR, MONITORINFOEX * ))
+		P_GetMonitorInfo = (BOOL (__stdcall *)(HMONITOR, MONITORINFOEX * ))
-GetProcAddress(hUser, "GetMonitorInfo");
+				    GetProcAddress(hUser, "GetMonitorInfo");
-}
+	    }
-}
+	}
-DPRINTF(("P_GetMonitorInfo: %x\n", P_GetMonitorInfo));
+	DPRINTF(("P_GetMonitorInfo: %x\n", P_GetMonitorInfo));
-if ((*P_GetMonitorInfo)(hMonitor, &info))
+	if ((*P_GetMonitorInfo)(hMonitor, &info))
 #else
-if (GetMonitorInfo(hMonitor, (MONITORINFO *)(&info)))
+	if (GetMonitorInfo(hMonitor, (MONITORINFO *)(&info)))
 #endif
-{
+	{
-// console_printf("l %d\n", info.rcMonitor.left);
+	    // console_printf("l %d\n", info.rcMonitor.left);
-screenL = __MKSMALLINT(info.rcMonitor.left);
+	    screenL = __MKSMALLINT(info.rcMonitor.left);
-screenT = __MKSMALLINT(info.rcMonitor.top);
+	    screenT = __MKSMALLINT(info.rcMonitor.top);
-screenR = __MKSMALLINT(info.rcMonitor.right);
+	    screenR = __MKSMALLINT(info.rcMonitor.right);
-screenB = __MKSMALLINT(info.rcMonitor.bottom);
+	    screenB = __MKSMALLINT(info.rcMonitor.bottom);
-workL = __MKSMALLINT(info.rcWork.left);
+	    workL = __MKSMALLINT(info.rcWork.left);
-workT = __MKSMALLINT(info.rcWork.top);
+	    workT = __MKSMALLINT(info.rcWork.top);
-workR = __MKSMALLINT(info.rcWork.right);
+	    workR = __MKSMALLINT(info.rcWork.right);
-workB = __MKSMALLINT(info.rcWork.bottom);
+	    workB = __MKSMALLINT(info.rcWork.bottom);
-isPrimary = (info.dwFlags & MONITORINFOF_PRIMARY) ? true : false;
+	    isPrimary = (info.dwFlags & MONITORINFOF_PRIMARY) ? true : false;
-info.szDevice[31] = '\0';
+	    info.szDevice[31] = '\0';
-mName = __MKSTRING(info.szDevice);
+	    mName = __MKSTRING(info.szDevice);
-}
+	}
 }
 %}.
 screenL isNil ifTrue:[ ^ nil ].
 ^ MonitorInfo new
-screenX:screenL screenY:screenT
+	screenX:screenL screenY:screenT
-screenWidth:(screenR-screenL) screenHeight:(screenB-screenT)
+	screenWidth:(screenR-screenL) screenHeight:(screenB-screenT)
-workX:workL workY:workT
+	workX:workL workY:workT
-workWidth:(workR-workL) workHeight:(workB-workT)
+	workWidth:(workR-workL) workHeight:(workB-workT)
-isPrimary:isPrimary
+	isPrimary:isPrimary
-name:mName
+	name:mName
 "
 Screen current monitorInfoFor:(Screen current monitorHandleForView:(Transcript topView id))
 Screen current monitorInfoFor:(Screen current monitorHandleForPoint:(0@0))
 Screen current monitorInfoFor:(Screen current monitorHandleForPoint:(Display pointFromUser))
 getOutOfHere: ;
 %}.
 red isNil ifTrue:[ ^ nil ].
 ^ Color
-redByte:red
+	redByte:red
-greenByte:green
+	greenByte:green
-blueByte:blue
+	blueByte:blue
 "
 Display primGetSystemColor:#COLOR_WINDOW
 Display primGetSystemColor:#COLOR_HIGHLIGHT
 "
 if (ISCONNECTED
 && __isExternalAddress(windowId)
 && __isPoint(aPoint))
 {
-xp = _point_X(aPoint);
+	xp = _point_X(aPoint);
-yp = _point_Y(aPoint);
+	yp = _point_Y(aPoint);
-if (__bothSmallInteger(xp, yp))
+	if (__bothSmallInteger(xp, yp))
-{
+	{
-POINT p;
+	    POINT p;
-HWND hWnd = _HWNDVal(windowId);
+	    HWND hWnd = _HWNDVal(windowId);
-p.x = __intVal(xp);
+	    p.x = __intVal(xp);
-p.y = __intVal(yp);
+	    p.y = __intVal(yp);
-ScreenToClient(hWnd, &p);
+	    ScreenToClient(hWnd, &p);
-child_ret = ChildWindowFromPointEx(hWnd,p,CWP_SKIPINVISIBLE|CWP_SKIPDISABLED|CWP_SKIPTRANSPARENT);
+	    child_ret = ChildWindowFromPointEx(hWnd,p,CWP_SKIPINVISIBLE|CWP_SKIPDISABLED|CWP_SKIPTRANSPARENT);
-/*console_printf("ChildWindow From %x Point %d.%d = %x\n",hWnd,p.x,p.y,child_ret);*/
+	    /*console_printf("ChildWindow From %x Point %d.%d = %x\n",hWnd,p.x,p.y,child_ret);*/
-if ((child_ret) && (child_ret != hWnd))
+	    if ((child_ret) && (child_ret != hWnd))
-{
+	    {
-RETURN ( __MKEXTERNALADDRESS(child_ret) );
+		RETURN ( __MKEXTERNALADDRESS(child_ret) );
-}
+	    }
-RETURN ( nil );
+	    RETURN ( nil );
-}
+	}
 }
 %}.
 !
 prim_getWindowRect:hWnd
 |l r t b|
 %{
 if (__isExternalAddress(hWnd) || __isExternalBytesLike(hWnd)) {
-HANDLE _hwnd = __externalAddressVal(hWnd);
+	HANDLE _hwnd = __externalAddressVal(hWnd);
-RECT rect;
+	RECT rect;
-if (GetWindowRect(_hwnd, &rect)) {
+	if (GetWindowRect(_hwnd, &rect)) {
-l = __MKSMALLINT(rect.left);
+	    l = __MKSMALLINT(rect.left);
-r = __MKSMALLINT(rect.right);
+	    r = __MKSMALLINT(rect.right);
-t = __MKSMALLINT(rect.top);
+	    t = __MKSMALLINT(rect.top);
-b = __MKSMALLINT(rect.bottom);
+	    b = __MKSMALLINT(rect.bottom);
-}
+	}
 }
 %}.
 l isNil ifTrue:[
-self primitiveFailed.
+	self primitiveFailed.
 ].
 ^ l@t corner:r@b
 !
 protocolVersion
 if (aBoolean == true) {
 __rightButtonIsLowerWindow = 1;
 } else {
 if (aBoolean == false) {
-__rightButtonIsLowerWindow = 0;
+	   __rightButtonIsLowerWindow = 0;
 }
 }
 RETURN (rslt);
 %}
 "
 if (aBoolean == true) {
 __shiftedLeftButtonIsLowerWindow = 1;
 } else {
 if (aBoolean == false) {
-__shiftedLeftButtonIsLowerWindow = 0;
+	   __shiftedLeftButtonIsLowerWindow = 0;
 }
 }
 RETURN (rslt);
 %}
 "
 supportedSystemColorKeys
 "return a collection of supported systemColor keys"
 ^#(
-COLOR_WINDOW
+	COLOR_WINDOW
-COLOR_WINDOWTEXT
+	COLOR_WINDOWTEXT
-COLOR_MENU
+	COLOR_MENU
-COLOR_MENUTEXT
+	COLOR_MENUTEXT
-COLOR_BTNFACE
+	COLOR_BTNFACE
-COLOR_BTNSHADOW
+	COLOR_BTNSHADOW
-COLOR_BTNTEXT
+	COLOR_BTNTEXT
-COLOR_GRAYTEXT
+	COLOR_GRAYTEXT
-COLOR_HIGHLIGHT
+	COLOR_HIGHLIGHT
-COLOR_HIGHLIGHTTEXT
+	COLOR_HIGHLIGHTTEXT
-COLOR_MENU
+	COLOR_MENU
-COLOR_MENUTEXT
+	COLOR_MENUTEXT
-COLOR_SCROLLBAR
+	COLOR_SCROLLBAR
-COLOR_SHADOW
+	COLOR_SHADOW
 )
 !
 translatePoint:aPoint from:windowId1 to:windowId2
 "given a point in window1, return the coordinate in window2.
 POINT point;
 if (__isExternalAddress(windowId1)
 && __isExternalAddress(windowId2)
 && __bothSmallInteger(x1, y1)) {
-w1 = _HWNDVal(windowId1);
+	w1 = _HWNDVal(windowId1);
-w2 = _HWNDVal(windowId2);
+	w2 = _HWNDVal(windowId2);
-point.x = __intVal(x1);
+	point.x = __intVal(x1);
-point.y = __intVal(y1);
+	point.y = __intVal(y1);
-CPRINTF(("TransPoint %x %d/%d ->", w1, point.x, point.y));
+	CPRINTF(("TransPoint %x %d/%d ->", w1, point.x, point.y));
-if (ClientToScreen(w1, &point) == FALSE) {
+	if (ClientToScreen(w1, &point) == FALSE) {
-RETURN (nil);
+	    RETURN (nil);
-}
+	}
-if (ScreenToClient(w2, &point) == FALSE) {
+	if (ScreenToClient(w2, &point) == FALSE) {
-RETURN (nil);
+	    RETURN (nil);
-}
+	}
-CPRINTF((" %x %d/%d\n", w2, point.x, point.y));
+	CPRINTF((" %x %d/%d\n", w2, point.x, point.y));
-ret = __MKPOINT_INT(point.x, point.y);
+	ret = __MKPOINT_INT(point.x, point.y);
 }
 %}.
 ^ ret
 !
 hit by this coordinate. Return nil if no view was hit.
 The returned id may be the id of a non ST view.
 - used to find the window to drop objects after a cross-view drag."
 windowId notNil ifTrue:[
-aPoint isPoint ifTrue:[
+	aPoint isPoint ifTrue:[
-"/(aPoint x > 30000) ifTrue:[self halt.].
+	    "/(aPoint x > 30000) ifTrue:[self halt.].
-"/(aPoint y > 30000) ifTrue:[self halt.].
+	    "/(aPoint y > 30000) ifTrue:[self halt.].
-"/aPoint printString errorPrintCR.
+	    "/aPoint printString errorPrintCR.
-^ self primViewIdFromPoint:aPoint asPoint truncated in:windowId
+	    ^ self primViewIdFromPoint:aPoint asPoint truncated in:windowId
-]
+	]
 ].
 ^ nil
 !
 "answer the bounds of the monitor the point is contained in"
 |monitorHandle monitorInfo|
 self numberOfMonitors > 1 ifTrue:[
-"/ ******* MULTI SCREEN ******
+	"/ ******* MULTI SCREEN ******
-monitorHandle := self monitorHandleForPoint:aPoint.
+	monitorHandle := self monitorHandleForPoint:aPoint.
-monitorHandle notNil ifTrue:[
+	monitorHandle notNil ifTrue:[
-monitorInfo := self monitorInfoFor:monitorHandle.
+	    monitorInfo := self monitorInfoFor:monitorHandle.
-monitorInfo notNil ifTrue:[
+	    monitorInfo notNil ifTrue:[
-^ monitorInfo bounds
+		^ monitorInfo bounds
-].
+	    ].
-].
+	].
 ].
 ^ super monitorBoundsAt:aPoint
 "
 Display monitorBoundsAt:100@100
 |info minH|
 minH := self usableHeight.
 self monitorHandles do:[:eachHandle |
-info := self monitorInfoFor:eachHandle.
+	info := self monitorInfoFor:eachHandle.
-info notNil ifTrue:[ minH := minH min: info workHeight ].
+	info notNil ifTrue:[ minH := minH min: info workHeight ].
 ].
 ^ minH
 "
 Display smallestMonitorHeight
 w := wSingle := self getSystemMetrics:#SM_CXFULLSCREEN.
 h := hSingle := self getSystemMetrics:#SM_CYFULLSCREEN.
 (self numberOfMonitors) > 1 ifTrue:[
-w := self getSystemMetrics:#SM_CXVIRTUALSCREEN.
+	w := self getSystemMetrics:#SM_CXVIRTUALSCREEN.
-h := self getSystemMetrics:#SM_CYVIRTUALSCREEN.
+	h := self getSystemMetrics:#SM_CYVIRTUALSCREEN.
-(w isNil or:[h isNil]) ifTrue:[
+	(w isNil or:[h isNil]) ifTrue:[
-"/ not supported under win95 and win-nt4 - fallback to real extent
+	    "/ not supported under win95 and win-nt4 - fallback to real extent
-w := wSingle.
+	    w := wSingle.
-h := hSingle.
+	    h := hSingle.
-] ifFalse:[
+	] ifFalse:[
-dx := (self getSystemMetrics:#SM_CXSCREEN) - wSingle.
+	    dx := (self getSystemMetrics:#SM_CXSCREEN) - wSingle.
-dy := (self getSystemMetrics:#SM_CYSCREEN) - hSingle.
+	    dy := (self getSystemMetrics:#SM_CYSCREEN) - hSingle.
-w := w - dx.
+	    w := w - dx.
-h := h - dy - 8.
+	    h := h - dy - 8.
-].
+	].
 ].
 ^ w @ h.
 "
 Display usableExtent
 which display is at the given x-position"
 |info fullHeight usableHeight delta|
 true "(self numberOfMonitors) > 1" ifTrue:[
-"/ ******* MULTI SCREEN ******
+	"/ ******* MULTI SCREEN ******
-info := self monitorInfoFor:(self monitorHandleForPoint:aPoint).
+	info := self monitorInfoFor:(self monitorHandleForPoint:aPoint).
-info notNil ifTrue:[
+	info notNil ifTrue:[
-^ info workHeight
+	    ^ info workHeight
-"/ only works with single screen..
+	"/ only works with single screen..
 "/            fullHeight := self getSystemMetrics:#SM_CYVIRTUALSCREEN.
 "/            usableHeight := self getSystemMetrics:#SM_CYFULLSCREEN.  "/ without any start-menu bar
 "/            delta := fullHeight - usableHeight.
 "/            ^ info workHeight - delta
-].
+	].
 ].
 ^ self usableHeight
 "
 Display numberOfMonitors
 addMenuItemWithLabel:aString toWindowID:aWindowId
 "not yet"
 %{
 #ifdef NOT_YET_IMPLEMENTED
 if (__isExternalAddress(aWindowId)) {
-HWND hWin = _HWNDVal(aWindowId);
+	HWND hWin = _HWNDVal(aWindowId);
-HMENU hMenu;
+	HMENU hMenu;
-hMenu = GetMenu(hWin);
+	hMenu = GetMenu(hWin);
-if (hMenu) {
+	if (hMenu) {
-}
+	}
 }
 #endif
 %}
 !
 |bitmapId|
 bitmapId := self primCreateBitmapFromArray:anArray width:w height:h.
 bitmapId isNil ifTrue:[
-'WINWORKSTATION: cannot create bitmap' errorPrintCR.
+	'WINWORKSTATION: cannot create bitmap' errorPrintCR.
 ].
 ^ bitmapId
 !
 createBitmapWidth:w height:h
 %{
 HANDLE newBitmapHandle;
 int b_width, b_height;
 if (__bothSmallInteger(w, h)) {
-b_width = __intVal(w);
+	b_width = __intVal(w);
-b_height = __intVal(h);
+	b_height = __intVal(h);
-newBitmapHandle = CreateBitmap(b_width, b_height, 1, 1, NULL);
+	newBitmapHandle = CreateBitmap(b_width, b_height, 1, 1, NULL);
-if (newBitmapHandle) {
+	if (newBitmapHandle) {
 #ifdef COUNT_BMP_RESOURCES
-__cnt_bitmap++;
+	    __cnt_bitmap++;
-RES_BMP_PRINTF(("CreateBitmap %x %d\n",newBitmapHandle, __cnt_bitmap));
+	    RES_BMP_PRINTF(("CreateBitmap %x %d\n",newBitmapHandle, __cnt_bitmap));
 #endif
-RETURN ( __MKOBJ(newBitmapHandle));
+	    RETURN ( __MKOBJ(newBitmapHandle));
-}
+	}
-DPRINTF(("empty bitmap handle = %x\n", newBitmapHandle));
+	DPRINTF(("empty bitmap handle = %x\n", newBitmapHandle));
 }
 RETURN (nil);
 %}
 !
 %{
 HANDLE newBitmapHandle;
 /*console_printf("CreateBitmap Color\n");*/
 if (__bothSmallInteger(w, h) && __isSmallInteger(d) && ISCONNECTED) {
-if (__intVal(d) == 1) {
+	if (__intVal(d) == 1) {
-newBitmapHandle = CreateBitmap(__intVal(w), __intVal(h) , 1, 1, NULL);
+	    newBitmapHandle = CreateBitmap(__intVal(w), __intVal(h) , 1, 1, NULL);
-} else {
+	} else {
 #if 0
-if (__intVal(d) != __depth) {
+	    if (__intVal(d) != __depth) {
-console_printf("invalid depth\n");
+		console_printf("invalid depth\n");
-RETURN (nil);
+		RETURN (nil);
-}
+	    }
 #endif
-newBitmapHandle = CreateCompatibleBitmap(__rootDC, __intVal(w), __intVal(h) );
+	    newBitmapHandle = CreateCompatibleBitmap(__rootDC, __intVal(w), __intVal(h) );
-}
+	}
-if (newBitmapHandle) {
+	if (newBitmapHandle) {
 #ifdef COUNT_BMP_RESOURCES
-__cnt_bitmap++;
+	    __cnt_bitmap++;
-RES_BMP_PRINTF(("CreatePixmap %x %d\n",newBitmapHandle, __cnt_bitmap));
+	    RES_BMP_PRINTF(("CreatePixmap %x %d\n",newBitmapHandle, __cnt_bitmap));
 #endif
-RETURN ( __MKOBJ(newBitmapHandle));
+	    RETURN ( __MKOBJ(newBitmapHandle));
-}
+	}
-DPRINTF(("empty bitmap handle = %x\n", newBitmapHandle));
+	DPRINTF(("empty bitmap handle = %x\n", newBitmapHandle));
 }
 RETURN (nil);
 %}
 !
 createWindowFor:aView type:typeSymbol
-origin:origin
+		 origin:origin
-extent:extent
+		 extent:extent
-minExtent:minExt
+		 minExtent:minExt
-maxExtent:maxExt
+		 maxExtent:maxExt
-borderWidth:bWidth
+		 borderWidth:bWidth
-subViewOf:wsuperView
+		 subViewOf:wsuperView
-style:wStyle
+		 style:wStyle
-inputOnly:winputOnly
+		 inputOnly:winputOnly
-label:wlabel
+		 label:wlabel
-owner:wowner
+		 owner:wowner
-icon:wicon
+		 icon:wicon
-iconMask:wiconMaskArg
+		 iconMask:wiconMaskArg
-iconView:wiconView
+		 iconView:wiconView
 |xpos ypos wwidth wheight minWidth minHeight maxWidth maxHeight
 wsuperViewId wiconId wiconMask invertedWiconMask wiconMaskId windowId
 weventMask wiconWidth wiconHeight windowType windowClass moreArgs|
 "/ bColorId wiconViewId bitGravity vBgColor vBgForm deepForm
 "/  preferredVisual preferredDepth  viewGravity wcursorId
 displayId isNil ifTrue:[
-self primitiveFailed.
+	self primitiveFailed.
-^ nil
+	^ nil
 ].
 origin notNil ifTrue:[
-xpos := origin x.
+	xpos := origin x.
-ypos := origin y.
+	ypos := origin y.
 ] ifFalse:[
-xpos := ypos := 0.
+	xpos := ypos := 0.
 ].
 extent notNil ifTrue:[
-wwidth := extent x.
+	wwidth := extent x.
-wheight := extent y.
+	wheight := extent y.
 ] ifFalse:[
-wwidth := 100.
+	wwidth := 100.
-wheight := 40.
+	wheight := 40.
 ].
 minExt notNil ifTrue:[
-minWidth := minExt x.
+	minWidth := minExt x.
-minHeight := minExt y
+	minHeight := minExt y
 ] ifFalse:[
-minWidth := 1.
+	minWidth := 1.
-minHeight := 1.
+	minHeight := 1.
 ].
 maxExt notNil ifTrue:[
-maxWidth := maxExt x.
+	maxWidth := maxExt x.
-maxHeight := maxExt y
+	maxHeight := maxExt y
 ] ifFalse:[
-"/ this is not really a good idea
+	"/ this is not really a good idea
-"/ maxWidth := width.
+	"/ maxWidth := width.
-"/ maxHeight := height.
+	"/ maxHeight := height.
 ].
 wsuperView notNil ifTrue:[
-wsuperViewId := wsuperView id
+	wsuperViewId := wsuperView id
 ].
 wicon notNil ifTrue:[
-wiconId := wicon id.
+	wiconId := wicon id.
-wiconHeight := wicon height.
+	wiconHeight := wicon height.
-wiconWidth  := wicon width.
+	wiconWidth  := wicon width.
-wiconMask := wiconMaskArg.
+	wiconMask := wiconMaskArg.
-wiconMask isNil ifTrue:[
+	wiconMask isNil ifTrue:[
-wiconMask := wicon mask.
+	    wiconMask := wicon mask.
-].
+	].
-wiconMask notNil ifTrue:[
+	wiconMask notNil ifTrue:[
-"/ WIN32's mask has zeros for opaque pixels
+	    "/ WIN32's mask has zeros for opaque pixels
-invertedWiconMask := wiconMask copy.
+	    invertedWiconMask := wiconMask copy.
-invertedWiconMask bits invert.
+	    invertedWiconMask bits invert.
-invertedWiconMask := invertedWiconMask onDevice:self.
+	    invertedWiconMask := invertedWiconMask onDevice:self.
-wiconMaskId := invertedWiconMask id
+	    wiconMaskId := invertedWiconMask id
-].
+	].
 ].
 "/    wiconView notNil ifTrue:[
 "/        wiconViewId := wiconView id
 "/    ].
 weventMask := aView eventMask.
 NativeWidgets ifTrue:[
-windowType := aView nativeWindowType.
+	windowType := aView nativeWindowType.
-windowType notNil ifTrue:[
+	windowType notNil ifTrue:[
-"/ must be a symbol and is used
+	    "/ must be a symbol and is used
-"/ as a key into the nativeClass translation map.
+	    "/ as a key into the nativeClass translation map.
-windowClass := NativeWidgetClassTable at:windowType ifAbsent:windowType.
+	    windowClass := NativeWidgetClassTable at:windowType ifAbsent:windowType.
-self class debugNative ifTrue:[
+	    self class debugNative ifTrue:[
-'WinWorkstation [info]: windowType: ' infoPrint. windowType infoPrint.
+		'WinWorkstation [info]: windowType: ' infoPrint. windowType infoPrint.
-' windowClass: ' infoPrint. windowClass infoPrintCR.
+		' windowClass: ' infoPrint. windowClass infoPrintCR.
-].
+	    ].
-].
+	].
 ].
 aView isMDIClientView ifTrue:[
-windowClass := 'mdiclient'.
+	windowClass := 'mdiclient'.
 ].
 windowClass notNil ifTrue:[
-aView beNativeWidget.
+	aView beNativeWidget.
 ] ifFalse:[
-aView beNonNativeWidget.
+	aView beNonNativeWidget.
 ].
 moreArgs := Array new:20.
 moreArgs at:1 put:xpos.
 moreArgs at:2 put:ypos.
 moreArgs at:17 put:weventMask.
 moreArgs at:18 put:(aView className asString).
 [
 windowId := self
-primCreateWindowFor:aView
+		  primCreateWindowFor:aView
-type:typeSymbol
+		  type:typeSymbol
-borderWidth:bWidth
+		  borderWidth:bWidth
-subViewOf:wsuperView
+		  subViewOf:wsuperView
-style:wStyle
+		  style:wStyle
-inputOnly:winputOnly
+		  inputOnly:winputOnly
-label:wlabel
+		  label:wlabel
-owner:wowner
+		  owner:wowner
-icon:wicon
+		  icon:wicon
-iconMask:wiconMask
+		  iconMask:wiconMask
-moreArgs:moreArgs.
+		  moreArgs:moreArgs.
 aView graphicsContext setId:windowId.
 ] valueUninterruptably.
 windowId notNil ifTrue:[
-self addKnownView:aView withId:windowId
+	self addKnownView:aView withId:windowId
 ].
 ^ windowId
 "Modified: / 28-01-2012 / 10:20:30 / cg"
 !
 destroyGC:aGCId
 %{
 if (__isExternalAddress(aGCId)) {
-struct gcData *gcData = _GCDATA(aGCId);
+	struct gcData *gcData = _GCDATA(aGCId);
-if (gcData == NULL) {
+	if (gcData == NULL) {
-console_fprintf(stderr, "WinWorkstation [warning]: trying to destroy GC twice\n");
+	    console_fprintf(stderr, "WinWorkstation [warning]: trying to destroy GC twice\n");
-RETURN(self);
+	    RETURN(self);
-}
+	}
 #ifdef COUNT_RESOURCES
-__cnt_gcData--;
+	 __cnt_gcData--;
-RESPRINTF(("DestroyGcData %d\n",__cnt_gcData));
+	RESPRINTF(("DestroyGcData %d\n",__cnt_gcData));
 #endif
 #ifdef CACHE_LAST_DC
-if (lastGcData == gcData) {
+	if (lastGcData == gcData) {
-_releaseDC(gcData);
+	    _releaseDC(gcData);
-}
+	}
 #endif
-__ExternalAddressInstPtr(aGCId)->e_address = NULL;
+	__ExternalAddressInstPtr(aGCId)->e_address = NULL;
-freeGcData(gcData);
+	freeGcData(gcData);
 }
 %}
 !
 destroyPixmap:aDrawableId
 %{  /* NOCONTEXT */
 if (__isExternalAddress(aDrawableId) && ISCONNECTED) {
-HANDLE bitmapHandle = _HANDLEVal(aDrawableId);
+	HANDLE bitmapHandle = _HANDLEVal(aDrawableId);
-if (bitmapHandle) {
+	if (bitmapHandle) {
 #ifdef COUNT_BMP_RESOURCES
-__cnt_bitmap--;
+	    __cnt_bitmap--;
-RES_BMP_PRINTF(("DestroyPixmap %x %d\n", bitmapHandle, __cnt_bitmap));
+	    RES_BMP_PRINTF(("DestroyPixmap %x %d\n", bitmapHandle, __cnt_bitmap));
 #endif
-_DeleteObject(bitmapHandle, __LINE__);
+	    _DeleteObject(bitmapHandle, __LINE__);
-}
+	}
 }
 %}
 !
 destroyView:aView withId:aWindowId
 %{  /* NOCONTEXT */
 HWND hWnd;
 struct gcData *gcData;
 if (__isExternalAddress(aDrawableId)) {
-hWnd = _HWNDVal(aDrawableId);
+	hWnd = _HWNDVal(aDrawableId);
-if (! hWnd) {
+	if (! hWnd) {
-RETURN (nil);
+	    RETURN (nil);
-}
+	}
-gcData = newGcData();
+	gcData = newGcData();
-if (! gcData) {
+	if (! gcData) {
-RETURN (nil);
+	    RETURN (nil);
-}
+	}
 #ifdef COUNT_RESOURCES
-__cnt_gcData++;
+	__cnt_gcData++;
-RESPRINTF(("CreateGcData %d\n",__cnt_gcData));
+	RESPRINTF(("CreateGcData %d\n",__cnt_gcData));
 #endif
-gcData->hWnd = hWnd;
+	gcData->hWnd = hWnd;
-gcData->_hDC = 0;
+	gcData->_hDC = 0;
-CPRINTF(("gcFor hDC=%x hWnd=%x\n",gcData->_hDC,gcData->hWnd));
+	CPRINTF(("gcFor hDC=%x hWnd=%x\n",gcData->_hDC,gcData->hWnd));
-RETURN ( __MKOBJ(gcData) );
+	RETURN ( __MKOBJ(gcData) );
 }
 RETURN (nil);
 %}
 !
 gcForBitmap:aDrawableId
 %{  /* NOCONTEXT */
 if (__isExternalAddress(aDrawableId)) {  /* HBITMAP */
-struct gcData *gcData;
+	struct gcData *gcData;
-BITMAP bitmap;
+	BITMAP bitmap;
-HBITMAP hBitmap = _HBITMAPVAL(aDrawableId);
+	HBITMAP hBitmap = _HBITMAPVAL(aDrawableId);
-HDC hDC;
+	HDC hDC;
-if (! hBitmap) {
+	if (! hBitmap) {
-RETURN (nil);
+	    RETURN (nil);
-}
+	}
-gcData = newGcData();
+	gcData = newGcData();
-if (! gcData) {
+	if (! gcData) {
-RETURN (nil);
+	    RETURN (nil);
-}
+	}
-if (GetObject(hBitmap, sizeof(bitmap), &bitmap)) {
+	if (GetObject(hBitmap, sizeof(bitmap), &bitmap)) {
-DDDDPRINTF(("bitmap info:%d\n", bitmap.bmBitsPixel));
+	    DDDDPRINTF(("bitmap info:%d\n", bitmap.bmBitsPixel));
-} else {
+	} else {
-DPRINTF(("noinfo returned for bitmap\n"));
+	    DPRINTF(("noinfo returned for bitmap\n"));
-/* mhmh - can this happen ? */
+	    /* mhmh - can this happen ? */
-bitmap.bmBitsPixel = 1;
+	    bitmap.bmBitsPixel = 1;
-}
+	}
-gcData->hBitmap = hBitmap;
+	gcData->hBitmap = hBitmap;
-gcData->bitmapColorBitCount = bitmap.bmBitsPixel;
+	gcData->bitmapColorBitCount = bitmap.bmBitsPixel;
 #ifdef COUNT_RESOURCES
-__cnt_gcData++;
+	__cnt_gcData++;
-RESPRINTF(("CreateGcData %d\n", __cnt_gcData));
+	RESPRINTF(("CreateGcData %d\n", __cnt_gcData));
 #endif
-RETURN ( __MKOBJ(gcData) );
+	RETURN ( __MKOBJ(gcData) );
 }
 RETURN (nil);
 %}
 !
 %{  /* NOCONTEXT */
 HDC hDC;
 struct gcData *gcData;
 if (__isExternalAddressLike(aDeviceContextHandle)) {
-hDC = _HDCVal(aDeviceContextHandle);
+	hDC = _HDCVal(aDeviceContextHandle);
-if (! hDC) {
+	if (! hDC) {
-RETURN (nil);
+	    RETURN (nil);
-}
+	}
-gcData = newGcData();
+	gcData = newGcData();
-if (! gcData) {
+	if (! gcData) {
-RETURN (nil);
+	    RETURN (nil);
-}
+	}
 #ifdef COUNT_RESOURCES
-__cnt_gcData++;
+	__cnt_gcData++;
-RESPRINTF(("CreateGcData %d\n",__cnt_gcData));
+	RESPRINTF(("CreateGcData %d\n",__cnt_gcData));
 #endif
-gcData->_hDC = hDC;
+	gcData->_hDC = hDC;
-gcData->doNotCacheOrRelease = 1;
+	gcData->doNotCacheOrRelease = 1;
-CPRINTF(("gcFor hDC=%x hWnd=%x\n",gcData->_hDC,gcData->hWnd));
+	CPRINTF(("gcFor hDC=%x hWnd=%x\n",gcData->_hDC,gcData->hWnd));
-RETURN ( __MKOBJ(gcData) );
+	RETURN ( __MKOBJ(gcData) );
 }
 RETURN (nil);
 %}
 !
 OBJ num;
 unsigned char *allocatedBits = 0;
 unsigned char fastBits[10000];
 if (__bothSmallInteger(w, h) && __isNonNilObject(anArray)) {
-b_width = __intVal(w);
+	b_width = __intVal(w);
-b_height = __intVal(h);
+	b_height = __intVal(h);
-bytesPerRowST = (b_width + 7) / 8;
+	bytesPerRowST = (b_width + 7) / 8;
-bytesPerRowWN = ((b_width + 15) / 16) * 2;
+	bytesPerRowWN = ((b_width + 15) / 16) * 2;
-padding = bytesPerRowWN - bytesPerRowST;
+	padding = bytesPerRowWN - bytesPerRowST;
-if ((padding == 0) && (__isByteArrayLike(anArray))) {
+	if ((padding == 0) && (__isByteArrayLike(anArray))) {
-b_bits = __ByteArrayInstPtr(anArray)->ba_element;
+	    b_bits = __ByteArrayInstPtr(anArray)->ba_element;
-cp = 0;
+	    cp = 0;
-} else {
+	} else {
-int nBytes = b_height * bytesPerRowWN;
+	    int nBytes = b_height * bytesPerRowWN;
-if (nBytes < sizeof(fastBits)) {
+	    if (nBytes < sizeof(fastBits)) {
-cp = b_bits = fastBits;
+		cp = b_bits = fastBits;
-} else {
+	    } else {
-cp = b_bits = allocatedBits = (unsigned char *) malloc(nBytes);
+		cp = b_bits = allocatedBits = (unsigned char *) malloc(nBytes);
-if (! cp) goto fail;
+		if (! cp) goto fail;
-}
+	    }
-}
+	}
-if (cp) {
+	if (cp) {
-if (__qIsArrayLike(anArray)) {
+	    if (__qIsArrayLike(anArray)) {
-OBJ *op;
+		OBJ *op;
-index = 1;
+		index = 1;
-op = &(__ArrayInstPtr(anArray)->a_element[index - 1]);
+		op = &(__ArrayInstPtr(anArray)->a_element[index - 1]);
-for (row = b_height; row; row--) {
+		for (row = b_height; row; row--) {
-for (col = bytesPerRowST; col; col--) {
+		    for (col = bytesPerRowST; col; col--) {
-num = *op++;
+			num = *op++;
-if (! __isSmallInteger(num))
+			if (! __isSmallInteger(num))
-goto fail;
+			    goto fail;
-*cp++ = __intVal(num);
+			*cp++ = __intVal(num);
-}
+		    }
-cp += padding;
+		    cp += padding;
-}
+		}
-} else if (__qIsByteArrayLike(anArray)) {
+	    } else if (__qIsByteArrayLike(anArray)) {
-unsigned char *pBits;
+		unsigned char *pBits;
-pBits = __ByteArrayInstPtr(anArray)->ba_element;
+		pBits = __ByteArrayInstPtr(anArray)->ba_element;
-for (row = b_height; row; row--) {
+		for (row = b_height; row; row--) {
-for (col = bytesPerRowST; col; col--) {
+		    for (col = bytesPerRowST; col; col--) {
-*cp++ = ( *pBits++ /*^ 0xFF*/ );
+			*cp++ = ( *pBits++ /*^ 0xFF*/ );
-}
+		    }
-cp += padding;
+		    cp += padding;
-}
+		}
-} else {
+	    } else {
-goto fail;
+		goto fail;
-}
+	    }
-}
+	}
-CPRINTF(("create bitmap ...\n"));
+	CPRINTF(("create bitmap ...\n"));
-newBitmapHandle = CreateBitmap(b_width, b_height, 1, 1, b_bits );
+	newBitmapHandle = CreateBitmap(b_width, b_height, 1, 1, b_bits );
-if (newBitmapHandle ) {
+	if (newBitmapHandle ) {
 #ifdef COUNT_BMP_RESOURCES
-__cnt_bitmap++;
+	    __cnt_bitmap++;
-RES_BMP_PRINTF(("CreateBitmap %x %d\n",newBitmapHandle,__cnt_bitmap));
+	    RES_BMP_PRINTF(("CreateBitmap %x %d\n",newBitmapHandle,__cnt_bitmap));
 #endif
-DDDDPRINTF(("returning bitmap %x ...\n", newBitmapHandle));
+	    DDDDPRINTF(("returning bitmap %x ...\n", newBitmapHandle));
-if (allocatedBits) {
+	    if (allocatedBits) {
-free(allocatedBits);
+		free(allocatedBits);
-}
+	    }
-RETURN ( __MKEXTERNALADDRESS(newBitmapHandle));
+	    RETURN ( __MKEXTERNALADDRESS(newBitmapHandle));
-}
+	}
 }
 fail: ;
 DDPRINTF(("create bitmap FAILED!!!\n"));
 if (allocatedBits) {
-CPRINTF(("freeing up bitmap bits ...\n"));
+	CPRINTF(("freeing up bitmap bits ...\n"));
-free(allocatedBits);
+	free(allocatedBits);
 }
 CPRINTF(("returning nil ...\n"));
 RETURN ( nil );
 %}
 !
 primCreateWindowFor:aView type:typeSymbol
-borderWidth:bWidth subViewOf:wsuperView
+	  borderWidth:bWidth subViewOf:wsuperView
-style:wStyle inputOnly:winputOnly
+	  style:wStyle inputOnly:winputOnly
-label:wlabel owner:wowner
+	  label:wlabel owner:wowner
-icon:wicon iconMask:wiconMask
+	  icon:wicon iconMask:wiconMask
-moreArgs:moreArgs
+	  moreArgs:moreArgs
 %{  /* STACK: 16000 */
 WNDCLASS wc;
 long bg, bd, bw;
 bg = WhitePixel;
 bd = BlackPixel;
 /* get bitmap for icon */
 if ( __isExternalAddress(wiconId) ) {
-xBitMap = _HBITMAPVAL( wiconId );
+	xBitMap = _HBITMAPVAL( wiconId );
-if ( xBitMap != 0 ) {
+	if ( xBitMap != 0 ) {
-BITMAP bm;
+	    BITMAP bm;
-if (GetObject(xBitMap, sizeof(bm), (LPSTR)&bm)) {
+	    if (GetObject(xBitMap, sizeof(bm), (LPSTR)&bm)) {
-int d = bm.bmPlanes * bm.bmBitsPixel;
+		int d = bm.bmPlanes * bm.bmBitsPixel;
-BYTE *ep;
+		BYTE *ep;
-int height, width;
+		int height, width;
-int nBytes;
+		int nBytes;
-unsigned char *allocatedBits = 0;
+		unsigned char *allocatedBits = 0;
-int privateMask = 0;
+		int privateMask = 0;
-if ( __isExternalAddress(wiconMaskId) ) {
+		if ( __isExternalAddress(wiconMaskId) ) {
-maskBitmap = _HBITMAPVAL( wiconMaskId );
+		    maskBitmap = _HBITMAPVAL( wiconMaskId );
-} else {
+		} else {
-if (wiconMaskId != nil) {
+		    if (wiconMaskId != nil) {
-PRINTF(("WinWorkstat [warning]: wiconMaskId is not an external address\n"));
+			PRINTF(("WinWorkstat [warning]: wiconMaskId is not an external address\n"));
-}
+		    }
-maskBitmap = 0;
+		    maskBitmap = 0;
-}
+		}
-/*
+		/*
-* if there is no mask, generate one
+		 * if there is no mask, generate one
-*/
+		 */
-if (maskBitmap == 0) {
+		if (maskBitmap == 0) {
-DPRINTF(("Bitmap w:%d h:%d p:%d d:%d\n",bm.bmWidth,bm.bmHeight,bm.bmPlanes,bm.bmBitsPixel));
+		    DPRINTF(("Bitmap w:%d h:%d p:%d d:%d\n",bm.bmWidth,bm.bmHeight,bm.bmPlanes,bm.bmBitsPixel));
-height = __intVal( wiconHeight );
+		    height = __intVal( wiconHeight );
-width  = __intVal( wiconWidth  );
+		    width  = __intVal( wiconWidth  );
-nBytes = ( width + 15 ) / 8;
+		    nBytes = ( width + 15 ) / 8;
-nBytes = height * nBytes;
+		    nBytes = height * nBytes;
-if (nBytes < sizeof(fastBits)) {
+		    if (nBytes < sizeof(fastBits)) {
-ep = fastBits;
+			ep = fastBits;
-} else {
+		    } else {
-ep = allocatedBits = (unsigned char *) malloc(nBytes);
+			ep = allocatedBits = (unsigned char *) malloc(nBytes);
-}
+		    }
-if ( ep == 0 ) {
+		    if ( ep == 0 ) {
-PRINTF(( "WinWorkstat [warning]: malloc failed\n" ));
+			PRINTF(( "WinWorkstat [warning]: malloc failed\n" ));
-} else {
+		    } else {
-memset(ep, 0, nBytes);
+			memset(ep, 0, nBytes);
-maskBitmap = CreateBitmap(width, height, 1, 1, ep );
+			maskBitmap = CreateBitmap(width, height, 1, 1, ep );
-if ( maskBitmap == NULL ) {
+			if ( maskBitmap == NULL ) {
-PRINTF(( "WinWorkstat [warning]: mask CREATION failed\n" ));
+			    PRINTF(( "WinWorkstat [warning]: mask CREATION failed\n" ));
-} else {
+			} else {
-privateMask = 1;
+			    privateMask = 1;
-}
+			}
-}
+		    }
-}
+		}
-if ( maskBitmap != NULL ) {
+		if ( maskBitmap != NULL ) {
-DPRINTF(( "BITMAP mask CREATED!!!\n" ));
+		    DPRINTF(( "BITMAP mask CREATED!!!\n" ));
-iconInfo.fIcon = TRUE;
+		    iconInfo.fIcon = TRUE;
-iconInfo.hbmMask  = maskBitmap;
+		    iconInfo.hbmMask  = maskBitmap;
-iconInfo.hbmColor = xBitMap;
+		    iconInfo.hbmColor = xBitMap;
-xIcon = CreateIconIndirect( &iconInfo );
+		    xIcon = CreateIconIndirect( &iconInfo );
-if (privateMask) {
+		    if (privateMask) {
-_DeleteObject( maskBitmap, __LINE__ );
+			_DeleteObject( maskBitmap, __LINE__ );
-}
+		    }
-} else {
+		} else {
-PRINTF(( "WinWorkstat [warning]: no mask for icon !\n" ));
+		    PRINTF(( "WinWorkstat [warning]: no mask for icon !\n" ));
-}
+		}
-if (allocatedBits) {
+		if (allocatedBits) {
-free(allocatedBits);
+		    free(allocatedBits);
-}
+		}
-}
+	    }
-} else {
+	} else {
-DPRINTF(("WinWorkstat [warning]: xBitMap is zero \n" ));
+	    DPRINTF(("WinWorkstat [warning]: xBitMap is zero \n" ));
-}
+	}
 } else {
-if (wiconId != nil) {
+	if (wiconId != nil) {
-PRINTF(("WinWorkstat [warning]: wiconId is not an external address\n"));
+	    PRINTF(("WinWorkstat [warning]: wiconId is not an external address\n"));
-}
+	}
 }
 if (__bothSmallInteger(wwidth, wheight)) {
-w = __intVal(wwidth);
+	w = __intVal(wwidth);
-h = __intVal(wheight);
+	h = __intVal(wheight);
 } else {
-w = h = 100;
+	w = h = 100;
 }
 if (__bothSmallInteger(xpos, ypos)) {
-x = __intVal(xpos);
+	x = __intVal(xpos);
-y = __intVal(ypos);
+	y = __intVal(ypos);
 } else {
-x = y = 0;
+	x = y = 0;
 }
 if (__bothSmallInteger(minWidth, minHeight)) {
-min_width = __intVal(minWidth);
+	min_width = __intVal(minWidth);
-min_height = __intVal(minHeight);
+	min_height = __intVal(minHeight);
 } else {
-DPRINTF(("WinWorkstat [warning]: minWidth/minHeight not integer\n"))
+	DPRINTF(("WinWorkstat [warning]: minWidth/minHeight not integer\n"))
-min_width = min_height = 0;
+	min_width = min_height = 0;
 }
 if (__bothSmallInteger(maxWidth, maxHeight)) {
-max_width = __intVal(maxWidth);
+	max_width = __intVal(maxWidth);
-max_height = __intVal(maxHeight);
+	max_height = __intVal(maxHeight);
 } else {
-DPRINTF(("WinWorkstat [warning]: maxWidth/maxHeight not integer\n"))
+	DPRINTF(("WinWorkstat [warning]: maxWidth/maxHeight not integer\n"))
-max_width = max_height = 10000;
+	max_width = max_height = 10000;
 }
 winStyleBits = winEXStyleBits = 0;
 if (__isSmallInteger(bWidth)) {
-bw = __intVal(bWidth);
+	bw = __intVal(bWidth);
-if (bw) {
+	if (bw) {
-winStyleBits |= WS_BORDER;
+	    winStyleBits |= WS_BORDER;
-bw = 1;
+	    bw = 1;
-}
+	}
 } else {
-bw = 0;
+	bw = 0;
 }
 className = app_name;
 if (__isStringLike(windowClass)) {
-className = __stringVal(windowClass);
+	className = __stringVal(windowClass);
-NDPRINTF(("className: %s\n", className));
+	NDPRINTF(("className: %s\n", className));
-if (__isInteger(wStyle)) {
+	if (__isInteger(wStyle)) {
-isNativeWindow = 1;
+	    isNativeWindow = 1;
-winStyleBits |= __longIntVal(wStyle);
+	    winStyleBits |= __longIntVal(wStyle);
-NDPRINTF(("winStyleBits: %x\n", winStyleBits));
+	    NDPRINTF(("winStyleBits: %x\n", winStyleBits));
-} else {
+	} else {
-if (windowType != nil) {
+	    if (windowType != nil) {
-if (windowType == @symbol(RadioButton)) {
+		if (windowType == @symbol(RadioButton)) {
-isNativeWindow = 1;
+		    isNativeWindow = 1;
-winStyleBits |= BS_RADIOBUTTON;
+		    winStyleBits |= BS_RADIOBUTTON;
-NDPRINTF(("class: %s - winStyleBits BS_RADIOBUTTON: %x\n", className, winStyleBits));
+		    NDPRINTF(("class: %s - winStyleBits BS_RADIOBUTTON: %x\n", className, winStyleBits));
-} else if (windowType == @symbol(CheckBox)) {
+		} else if (windowType == @symbol(CheckBox)) {
-isNativeWindow = 1;
+		    isNativeWindow = 1;
-winStyleBits |= BS_CHECKBOX;
+		    winStyleBits |= BS_CHECKBOX;
-NDPRINTF(("class: %s - winStyleBits BS_CHECKBOX: %x\n", className, winStyleBits));
+		    NDPRINTF(("class: %s - winStyleBits BS_CHECKBOX: %x\n", className, winStyleBits));
-} else if (windowType == @symbol(HorizontalScrollBar)) {
+		} else if (windowType == @symbol(HorizontalScrollBar)) {
-isNativeWindow = 1;
+		    isNativeWindow = 1;
-winStyleBits |= SBS_HORZ;
+		    winStyleBits |= SBS_HORZ;
-NDPRINTF(("class: %s - winStyleBits SBS_HORZ: %x\n", className, winStyleBits));
+		    NDPRINTF(("class: %s - winStyleBits SBS_HORZ: %x\n", className, winStyleBits));
-} else if (windowType == @symbol(VerticalScrollBar)) {
+		} else if (windowType == @symbol(VerticalScrollBar)) {
-isNativeWindow = 1;
+		    isNativeWindow = 1;
-winStyleBits |= SBS_VERT;
+		    winStyleBits |= SBS_VERT;
-NDPRINTF(("class: %s - winStyleBits SBS_VERT: %x\n", className, winStyleBits));
+		    NDPRINTF(("class: %s - winStyleBits SBS_VERT: %x\n", className, winStyleBits));
-} else if (windowType == @symbol(Button)) {
+		} else if (windowType == @symbol(Button)) {
-isNativeWindow = 1;
+		    isNativeWindow = 1;
-NDPRINTF(("class: %s\n", className));
+		    NDPRINTF(("class: %s\n", className));
-} else if (windowType == @symbol(OwnerDrawButton)) {
+		} else if (windowType == @symbol(OwnerDrawButton)) {
-isNativeWindow = 1;
+		    isNativeWindow = 1;
-winStyleBits |= BS_OWNERDRAW;
+		    winStyleBits |= BS_OWNERDRAW;
-NDPRINTF(("class: %s - winStyleBits BS_OWNERDRAW: %x\n", className, winStyleBits));
+		    NDPRINTF(("class: %s - winStyleBits BS_OWNERDRAW: %x\n", className, winStyleBits));
-}
+		}
-}
+	    }
-}
+	}
 }
 if (__isExternalAddress(wsuperViewId)) {
-/*
+	/*
-* a child window
+	 * a child window
-*/
+	 */
-parentHandle = _HANDLEVal(wsuperViewId);
+	parentHandle = _HANDLEVal(wsuperViewId);
-if (wStyle == @symbol(mdiChild)) {
+	if (wStyle == @symbol(mdiChild)) {
-isMDIChild = 1;
+	    isMDIChild = 1;
-}
+	}
 } else {
-parentHandle = NULL;
+	parentHandle = NULL;
-isTopWindow = 1;
+	isTopWindow = 1;
 }
 if (!isTopWindow && !isMDIChild) {
-/*
+	/*
-* a child window
+	 * a child window
-*/
+	 */
-winStyleBits |= WS_CHILD;
+	winStyleBits |= WS_CHILD;
-if (winputOnly != true) {
+	if (winputOnly != true) {
-winStyleBits |= (WS_CLIPSIBLINGS | WS_CLIPCHILDREN);
+	    winStyleBits |= (WS_CLIPSIBLINGS | WS_CLIPCHILDREN);
-/*winStyleBits |= WS_CLIPCHILDREN;*/
+	    /*winStyleBits |= WS_CLIPCHILDREN;*/
-DPRINTF(("parent handle=%x\n", parentHandle));
+	    DPRINTF(("parent handle=%x\n", parentHandle));
-} else {
+	} else {
-winEXStyleBits |= WS_EX_TRANSPARENT;
+	    winEXStyleBits |= WS_EX_TRANSPARENT;
-DPRINTF(("inputview parent handle=%x\n", parentHandle));
+	    DPRINTF(("inputview parent handle=%x\n", parentHandle));
-}
+	}
 #if 0
-winEXStyleBits |= WS_EX_NOPARENTNOTIFY;
+	winEXStyleBits |= WS_EX_NOPARENTNOTIFY;
 #endif
 } else {
-/*
+	/*
-* a top window (regular / popUp / dialog) or MDIChild
+	 * a top window (regular / popUp / dialog) or MDIChild
-*/
+	 */
-if (isMDIChild) {
+	if (isMDIChild) {
-winEXStyleBits |= WS_EX_MDICHILD;
+	    winEXStyleBits |= WS_EX_MDICHILD;
-}
+	}
-if (! isMDIChild)
+	if (! isMDIChild)
-{
+	{
 #ifdef TOPWINDOWCLASS
-this could fail, since a pointer to local buf is passed
+	    this could fail, since a pointer to local buf is passed
-to the window-creation code (in the other thread ...)
+	    to the window-creation code (in the other thread ...)
-static winCount = 1;
+	    static winCount = 1;
-char buf[300];
+	    char buf[300];
-char *stName;
+	    char *stName;
 # ifdef __BORLANDC__
-struct timeb timebuffer;
+	    struct timeb timebuffer;
-ftime(&timebuffer);
+	    ftime(&timebuffer);
 # else
-struct _timeb timebuffer;
+	    struct _timeb timebuffer;
-_ftime(&timebuffer);
+	    _ftime(&timebuffer);
 # endif
-if (__isStringLike(stClassName)) {
+	    if (__isStringLike(stClassName)) {
-stName = __stringVal(stClassName);
+		stName = __stringVal(stClassName);
-} else {
+	    } else {
-stName = app_name;
+		stName = app_name;
-}
+	    }
-sprintf(buf, "S%d.%d%s", HIWORD(timebuffer.time), ++winCount, stName);
+	    sprintf(buf, "S%d.%d%s", HIWORD(timebuffer.time), ++winCount, stName);
-DPRINTF(("topview - registerClass:%s\n",buf));
+	    DPRINTF(("topview - registerClass:%s\n",buf));
-wc.style = /* CS_HREDRAW | CS_VREDRAW | CS_OWNDC  |*/ CS_DBLCLKS;
+	    wc.style = /* CS_HREDRAW | CS_VREDRAW | CS_OWNDC  |*/ CS_DBLCLKS;
-wc.lpfnWndProc = (WNDPROC) MainWndProc;
+	    wc.lpfnWndProc = (WNDPROC) MainWndProc;
-wc.cbClsExtra = 0;
+	    wc.cbClsExtra = 0;
-wc.cbWndExtra = N_WINDOW_PRIVATE;
+	    wc.cbWndExtra = N_WINDOW_PRIVATE;
-wc.hInstance = (HANDLE) __getHInstance();
+	    wc.hInstance = (HANDLE) __getHInstance();
-if (xIcon) {
+	    if (xIcon) {
-wc.hIcon   = xIcon;
+		wc.hIcon   = xIcon;
-/* wc.hIconSm = wiconId; In 4.x there are large and small icons */
+		/* wc.hIconSm = wiconId; In 4.x there are large and small icons */
-} else {
+	    } else {
-wc.hIcon = NULL;        /* THIS MUST BE NULL TO DELETE ICONS */
+		wc.hIcon = NULL;        /* THIS MUST BE NULL TO DELETE ICONS */
-}
+	    }
-wc.hCursor = 0 /* LoadCursor(NULL, IDC_ARROW) */;
+	    wc.hCursor = 0 /* LoadCursor(NULL, IDC_ARROW) */;
-wc.hbrBackground = 0; /*CreateSolidBrush (bg);*/
+	    wc.hbrBackground = 0; /*CreateSolidBrush (bg);*/
-wc.lpszMenuName =  NULL;
+	    wc.lpszMenuName =  NULL;
-wc.lpszClassName = buf;
+	    wc.lpszClassName = buf;
-if (!RegisterClass(&wc)) {
+	    if (!RegisterClass(&wc)) {
-PRINTF(("RegisterClass failed\n"));
+		PRINTF(("RegisterClass failed\n"));
-RETURN( nil );
+		RETURN( nil );
-}
+	    }
-className = buf;
+	    className = buf;
 #endif /* TOPWINDOWCLASS */
-}
+	}
-if (wStyle == @symbol(popUp)) {
+	if (wStyle == @symbol(popUp)) {
-winStyleBits |= WS_POPUP;
+	    winStyleBits |= WS_POPUP;
-// winStyleBits |= WS_DISABLED;
+	    // winStyleBits |= WS_DISABLED;
-winEXStyleBits |= WS_EX_TOOLWINDOW;
+	    winEXStyleBits |= WS_EX_TOOLWINDOW;
-CPRINTF(("Create popUpWindow\n"));
+	    CPRINTF(("Create popUpWindow\n"));
 #if 0
-parentHandle = GetActiveWindow();
+	    parentHandle = GetActiveWindow();
 #endif
-} else if (wStyle == @symbol(popUpWithFrame)) {
+	} else if (wStyle == @symbol(popUpWithFrame)) {
-winStyleBits |= WS_POPUP | WS_THICKFRAME /* | WS_CAPTION | DS_MODALFRAME | WS_SIZEBOX */ ;
+	    winStyleBits |= WS_POPUP | WS_THICKFRAME /* | WS_CAPTION | DS_MODALFRAME | WS_SIZEBOX */ ;
-// winStyleBits |= WS_DISABLED;
+	    // winStyleBits |= WS_DISABLED;
-// winEXStyleBits |= WS_EX_TOOLWINDOW;
+	    // winEXStyleBits |= WS_EX_TOOLWINDOW;
-CPRINTF(("Create popUpWindow\n"));
+	    CPRINTF(("Create popUpWindow\n"));
 #if 0
-parentHandle = GetActiveWindow();
+	    parentHandle = GetActiveWindow();
 #endif
-} else if ((wStyle == @symbol(dialog)) || (wStyle == @symbol(toolDialog))) {
+	} else if ((wStyle == @symbol(dialog)) || (wStyle == @symbol(toolDialog))) {
-winStyleBits |= WS_OVERLAPPED | WS_CAPTION | DS_MODALFRAME | WS_SYSMENU | WS_SIZEBOX;
+	    winStyleBits |= WS_OVERLAPPED | WS_CAPTION | DS_MODALFRAME | WS_SYSMENU | WS_SIZEBOX;
-winStyleBits |= WS_POPUP;
+	    winStyleBits |= WS_POPUP;
-winStyleBits |= DS_NOIDLEMSG;
+	    winStyleBits |= DS_NOIDLEMSG;
-//winEXStyleBits |= WS_EX_TOOLWINDOW;
+	    //winEXStyleBits |= WS_EX_TOOLWINDOW;
-if ((min_width || min_height)
+	    if ((min_width || min_height)
-&& (min_width == max_width)
+	     && (min_width == max_width)
-&& (min_height == max_height)) {
+	     && (min_height == max_height)) {
-winStyleBits &= ~WS_THICKFRAME;
+		winStyleBits &= ~WS_THICKFRAME;
-}
+	    }
-if (wStyle == @symbol(toolDialog)) {
+	    if (wStyle == @symbol(toolDialog)) {
-winEXStyleBits |= WS_EX_TOOLWINDOW;
+		winEXStyleBits |= WS_EX_TOOLWINDOW;
-}
+	    }
-} else if (wStyle == @symbol(undecorated)) {
+	} else if (wStyle == @symbol(undecorated)) {
-winStyleBits |= WS_OVERLAPPED;
+	    winStyleBits |= WS_OVERLAPPED;
-winEXStyleBits |= WS_EX_WINDOWEDGE;
+	    winEXStyleBits |= WS_EX_WINDOWEDGE;
-} else if (wStyle == @symbol(undecoratedResizable)) {
+	} else if (wStyle == @symbol(undecoratedResizable)) {
-winStyleBits |= WS_OVERLAPPED | WS_THICKFRAME;
+	    winStyleBits |= WS_OVERLAPPED | WS_THICKFRAME;
-winEXStyleBits |= WS_EX_WINDOWEDGE;
+	    winEXStyleBits |= WS_EX_WINDOWEDGE;
-} else if (isMDIChild) {
+	} else if (isMDIChild) {
-winStyleBits |= WS_OVERLAPPED | WS_CAPTION | DS_MODALFRAME | WS_SYSMENU | WS_SIZEBOX;
+	    winStyleBits |= WS_OVERLAPPED | WS_CAPTION | DS_MODALFRAME | WS_SYSMENU | WS_SIZEBOX;
-if ((min_width || min_height)
+	    if ((min_width || min_height)
-&& (min_width == max_width)
+	     && (min_width == max_width)
-&& (min_height == max_height)) {
+	     && (min_height == max_height)) {
-winStyleBits &= ~WS_THICKFRAME;
+		winStyleBits &= ~WS_THICKFRAME;
-}
+	    }
-} else {
+	} else {
-//winStyleBits |= WS_OVERLAPPEDWINDOW;
+	    //winStyleBits |= WS_OVERLAPPEDWINDOW;
-winStyleBits |= WS_OVERLAPPED | WS_CAPTION | WS_SYSMENU | WS_MINIMIZEBOX | WS_MAXIMIZEBOX | WS_SIZEBOX;
+	    winStyleBits |= WS_OVERLAPPED | WS_CAPTION | WS_SYSMENU | WS_MINIMIZEBOX | WS_MAXIMIZEBOX | WS_SIZEBOX;
-//winEXStyleBits |= WS_EX_CLIENTEDGE;
+	    //winEXStyleBits |= WS_EX_CLIENTEDGE;
-winEXStyleBits |= WS_EX_WINDOWEDGE;
+	    winEXStyleBits |= WS_EX_WINDOWEDGE;
-//winEXStyleBits |= WS_EX_ACCEPTFILES;
+	    //winEXStyleBits |= WS_EX_ACCEPTFILES;
-if (wStyle == @symbol(toolWindow)) {
+	    if (wStyle == @symbol(toolWindow)) {
-winEXStyleBits |= WS_EX_TOOLWINDOW;
+		winEXStyleBits |= WS_EX_TOOLWINDOW;
-}
+	    }
-}
+	}
-winStyleBits |= WS_CLIPCHILDREN;
+	winStyleBits |= WS_CLIPCHILDREN;
 }
 rec.left = x;
 rec.top = y;
 rec.right = x + w;
 /*
 * check if previous request has been properly processed ...
 */
 if (cwi.sequenceNr && (cwi.sequenceNr != INVALIDATED_CWI)) {
-console_fprintf(stderr, "WinWorkstation [info]: oops - unprocessed createWindow still pending\n");
+	console_fprintf(stderr, "WinWorkstation [info]: oops - unprocessed createWindow still pending\n");
-/* this prevents the event processor from interpreting this message */
+	/* this prevents the event processor from interpreting this message */
-cwi.sequenceNr = nextSequenceNr;
+	cwi.sequenceNr = nextSequenceNr;
 }
 cwi.winStyleBitsEx = WS_EX_LEFT | WS_EX_NOPARENTNOTIFY | winEXStyleBits;
 #ifdef ADJUSTWINDOW
 w = rec.right - rec.left;
 h = rec.bottom - rec.top;
 #endif
 DPRINTF(("create%s pos==%d/%d size=%d/%d bw:%d parent:%x class:'%s' style:%x exStyle:%x ...\n",
-((wStyle == @symbol(popUp)) ? " popUp" : ""),
+		((wStyle == @symbol(popUp)) ? " popUp" : ""),
-x, y, w, h,
+		x, y, w, h,
-bw, parentHandle, className,
+		bw, parentHandle, className,
-winStyleBits, winEXStyleBits));
+		winStyleBits, winEXStyleBits));
 /* allocate localMemory for Window */
 lI = (localWindowInfo *) malloc(sizeof(localWindowInfo));
 if (! lI) {
-console_fprintf(stderr, "WinWorkstation [error]: malloc failed in CreateWindow\n");
+	console_fprintf(stderr, "WinWorkstation [error]: malloc failed in CreateWindow\n");
-RETURN ( nil );
+	RETURN ( nil );
 }
 memset(lI, 0, sizeof(localWindowInfo));
 lI->mouseX = lI->mouseY = -9999;
 if (isTopWindow) {
 /****** MULTI SCREEN   CATZKERN *********
-if (rec.left < 0) {
+	if (rec.left < 0) {
-rec.left = 0;
+	    rec.left = 0;
-rec.right = w;
+	    rec.right = w;
-}
+	}
-if (rec.top < 0) {
+	if (rec.top < 0) {
-rec.top = 0;
+	    rec.top = 0;
-rec.bottom = h;
+	    rec.bottom = h;
-}
+	}
 ****** MULTI SCREEN   CATZKERN *********/
-lI->flag |= LI_TOPWIN;
+	lI->flag |= LI_TOPWIN;
 } else {
-if (bw) {
+	if (bw) {
-// adjust for border
+	    // adjust for border
-rec.left++;
+	    rec.left++;
-rec.top++;
+	    rec.top++;
-}
+	}
 }
 if (winputOnly == true) {
-lI->flag |= LI_INPUTWIN;
+	lI->flag |= LI_INPUTWIN;
 }
 if (isNativeWindow) {
-NDPRINTF(("set native flag\n"));
+	NDPRINTF(("set native flag\n"));
-lI->flag |= LI_NATIVEWIN;
+	lI->flag |= LI_NATIVEWIN;
 }
 if (wStyle == @symbol(popUp)) {
-cwi.className = wapp_namePopup;
+	cwi.className = wapp_namePopup;
 } else {
-if (wStyle == @symbol(dialog)) {
+	if (wStyle == @symbol(dialog)) {
-cwi.className = wapp_nameDialog;
+	    cwi.className = wapp_nameDialog;
-} else {
+	} else {
-ch2wch(className, classNameBufferw, MAX_CLASSNAME_SIZE);
+	    ch2wch(className, classNameBufferw, MAX_CLASSNAME_SIZE);
-cwi.className = classNameBufferw;
+	    cwi.className = classNameBufferw;
-}
+	}
 }
 cwi.winStyleBits = winStyleBits;
 cwi.parentHandle = parentHandle;
 cwi.x = rec.left;
 cwi.y = rec.top;
 cwi.dx = rec.right - rec.left;
 cwi.dy = rec.bottom - rec.top;
 if (isTopWindow | isMDIChild) {
-rec.left = 0;
+	rec.left = 0;
-rec.top = 0;
+	rec.top = 0;
-rec.right = min_width;
+	rec.right = min_width;
-rec.bottom = min_height;
+	rec.bottom = min_height;
 #ifdef ADJUSTWINDOW
-AdjustWindowRectEx(&rec, winStyleBits, 0, cwi.winStyleBitsEx);
+	AdjustWindowRectEx(&rec, winStyleBits, 0, cwi.winStyleBitsEx);
 #endif
-lI->minWidth = rec.right - rec.left;
+	lI->minWidth = rec.right - rec.left;
-lI->minHeight = rec.bottom - rec.top;
+	lI->minHeight = rec.bottom - rec.top;
-rec.left = 0;
+	rec.left = 0;
-rec.top = 0;
+	rec.top = 0;
-rec.right = max_width;
+	rec.right = max_width;
-rec.bottom = max_height;
+	rec.bottom = max_height;
 #ifdef ADJUSTWINDOW
-AdjustWindowRectEx(&rec, winStyleBits, 0, cwi.winStyleBitsEx);
+	AdjustWindowRectEx(&rec, winStyleBits, 0, cwi.winStyleBitsEx);
 #endif
-lI->maxWidth = rec.right - rec.left;
+	lI->maxWidth = rec.right - rec.left;
-lI->maxHeight = rec.bottom - rec.top;
+	lI->maxHeight = rec.bottom - rec.top;
 } else {
-lI->minWidth = lI->minHeight = 0;
+	lI->minWidth = lI->minHeight = 0;
-lI->maxWidth = lI->maxHeight = 9999;
+	lI->maxWidth = lI->maxHeight = 9999;
 }
 lI->viewBgBrush = __whiteBrush;
 lI->viewBgColor = WhitePixel;
 lI->bdColor = BlackPixel;
 if (__isSmallInteger(eventMask))
-lI->eventMask = __intVal(eventMask);
+	lI->eventMask = __intVal(eventMask);
 else
-lI->eventMask = ~0;
+	lI->eventMask = ~0;
 DPRINTF(("eventMask is %x\n", lI->eventMask));
 #ifdef DEBUGMASK1
 printMask(lI->eventMask);
 #endif
 cwi.newWinHandle = newWindowHandle = NULL;
 cwi.windowName = 0;
 if (isTopWindow | isMDIChild) {
-if (__isStringLike(wlabel)) {
+	if (__isStringLike(wlabel)) {
-ch2wch((char *)__stringVal(wlabel), windowNameBufferw, MAX_LABEL_SIZE);
+	    ch2wch((char *)__stringVal(wlabel), windowNameBufferw, MAX_LABEL_SIZE);
-cwi.windowName = windowNameBufferw;
+	    cwi.windowName = windowNameBufferw;
-} else
+	} else
-if (__isUnicode16String(wlabel)) {
+	    if (__isUnicode16String(wlabel)) {
-int l = __unicode16StringSize(wlabel);
+		int l = __unicode16StringSize(wlabel);
-if (l >= MAX_LABEL_SIZE) l = MAX_LABEL_SIZE-1;
+		if (l >= MAX_LABEL_SIZE) l = MAX_LABEL_SIZE-1;
-memmove(windowNameBufferw, __unicode16StringVal(wlabel), l*sizeof(wchar_t));
+		memmove(windowNameBufferw, __unicode16StringVal(wlabel), l*sizeof(wchar_t));
-windowNameBufferw[ l ] = 0;
+		windowNameBufferw[ l ] = 0;
-cwi.windowName = windowNameBufferw;
+		cwi.windowName = windowNameBufferw;
-}
+	    }
 }
 cwi.infoWasRead = 0;
 cwi.localWindowInfo = lI;
 cwi.sequenceNr = nextSequenceNr;
 cwi.hCreateEvent = hCreateEvent;
 ResetEvent(cwi.hCreateEvent);
 #else
 /* creating a new event does not work - why ? */
 cwi.hCreateEvent = CreateEvent(
-NULL,        /* no security attributes */
+	NULL,        /* no security attributes */
-FALSE,
+	FALSE,
-FALSE,
+	FALSE,
-NULL);       /* name of mutex */
+	NULL);       /* name of mutex */
 if (cwi.hCreateEvent == NULL) {
-console_fprintf(stderr, "WinWorkstation [error]: oops - CreateEvent failed in CreateWindow: %d\n", GetLastError() );
+	console_fprintf(stderr, "WinWorkstation [error]: oops - CreateEvent failed in CreateWindow: %d\n", GetLastError() );
-cwi.sequenceNr = INVALIDATED_CWI;
+	cwi.sequenceNr = INVALIDATED_CWI;
-free(lI);
+	free(lI);
-RETURN ( nil );
+	RETURN ( nil );
 }
 #endif
 /*
 * kludge to allow for createWindow while in sizeMove processing loop
 */
 if (pendingCREATEWINDOWInfo) {
-console_fprintf(stderr, "WinWorkstation [error]: oops - pending create\n");
+	console_fprintf(stderr, "WinWorkstation [error]: oops - pending create\n");
 }
 pendingCREATEWINDOWInfo = &cwi;
 pendingSequenceNr = cwi.sequenceNr;
 if (PostThreadMessage(_dispatchThreadId, WM_THREAD_CREATEWINDOW, (INT)(cwi.sequenceNr), (INT)(&cwi)) == FALSE) {
-console_fprintf(stderr, "WinWorkstation [error]: oops - PostThreadMessage(%x) failed in CreateWindow: err=%d\n",
+	console_fprintf(stderr, "WinWorkstation [error]: oops - PostThreadMessage(%x) failed in CreateWindow: err=%d\n",
-_dispatchThreadId, GetLastError() );
+					_dispatchThreadId, GetLastError() );
-free(lI);
+	free(lI);
-RETURN (nil);
+	RETURN (nil);
 }
 if (cwi.newWinHandle != NULL) {
-cwi.sequenceNr = INVALIDATED_CWI;
+	cwi.sequenceNr = INVALIDATED_CWI;
-cwi.hCreateEvent = NULL;
+	cwi.hCreateEvent = NULL;
-/* wow - that was quick ... */
+	/* wow - that was quick ... */
 } else {
-DWORD dwWaitResult;
+	DWORD dwWaitResult;
-/* wait for the window to be created ... */
+	/* wait for the window to be created ... */
-dwWaitResult = WaitForSingleObject(hCreateEvent, 5000L);
+	dwWaitResult = WaitForSingleObject(hCreateEvent, 5000L);
-/* no longer want to get informed ... */
+	/* no longer want to get informed ... */
-cwi.hCreateEvent = NULL;
+	cwi.hCreateEvent = NULL;
-cwi.sequenceNr = INVALIDATED_CWI;
+	cwi.sequenceNr = INVALIDATED_CWI;
-switch (dwWaitResult) {
+	switch (dwWaitResult) {
-// The thread got mutex ownership.
+	    // The thread got mutex ownership.
-case WAIT_OBJECT_0:
+	    case WAIT_OBJECT_0:
-break;
+		break;
-// Cannot get mutex ownership due to time-out.
+	    // Cannot get mutex ownership due to time-out.
-case WAIT_TIMEOUT:
+	    case WAIT_TIMEOUT:
-DEBUGFPRINTF((stderr, "WinWorkstation [error]: oops - timeout in CreateWindow\n"));
+		DEBUGFPRINTF((stderr, "WinWorkstation [error]: oops - timeout in CreateWindow\n"));
-break;
+		break;
-// Got ownership of the abandoned mutex object.
+	    // Got ownership of the abandoned mutex object.
-default:
+	    default:
-DEBUGFPRINTF((stderr, "WinWorkstation [warning]: CreateEvent abandoned\n"));
+		DEBUGFPRINTF((stderr, "WinWorkstation [warning]: CreateEvent abandoned\n"));
-break;
+		break;
-}
+	}
 #ifdef NEW_CREATE_EVENT
-CloseHandle(cwi.hCreateEvent);
+	CloseHandle(cwi.hCreateEvent);
 #endif
 }
 pendingCREATEWINDOWInfo = 0;
 newWindowHandle = cwi.newWinHandle;
 DPRINTF(("handle = %x\n", newWindowHandle));
 if (! newWindowHandle) {
-console_fprintf(stderr, "WinWorkstation [error]: CreateWindow failed: %d (0x%x) [%d]\n",
+	console_fprintf(stderr, "WinWorkstation [error]: CreateWindow failed: %d (0x%x) [%d]\n",
-cwi.errCode, cwi.errCode, __LINE__ );
+			cwi.errCode, cwi.errCode, __LINE__ );
-if (cwi.infoWasRead) {
+	if (cwi.infoWasRead) {
-free(lI);
+	    free(lI);
-} else {
+	} else {
-console_fprintf(stderr, "WinWorkstation [warning]: localInfo memory leak [%d]\n", __LINE__ );
+	    console_fprintf(stderr, "WinWorkstation [warning]: localInfo memory leak [%d]\n", __LINE__ );
-}
+	}
-RETURN ( nil );
+	RETURN ( nil );
 }
 #ifdef CACHE_LAST_DC
 if (lastGcData && (lastGcHWIN == newWindowHandle)) {
-_releaseDC(lastGcData);
+	_releaseDC(lastGcData);
 }
 #endif
 #ifdef CACHE_LAST_WM_PAINT_DC
 if (last_wm_paint_dc && (last_wm_paint_win == newWindowHandle)) {
-ReleaseDC(newWindowHandle, last_wm_paint_dc);
+	ReleaseDC(newWindowHandle, last_wm_paint_dc);
-last_wm_paint_win = last_wm_paint_dc = 0;
+	last_wm_paint_win = last_wm_paint_dc = 0;
 }
 #endif
 windowId = __MKOBJ(newWindowHandle);
 #if 1
 if (isTopWindow | isMDIChild) {
-/*
+	/*
-* mhmh - what is that raise for ?
+	 * mhmh - what is that raise for ?
-*/
+	 */
-SetWindowPos(newWindowHandle, HWND_TOP, 0, 0, 0, 0,
+	SetWindowPos(newWindowHandle, HWND_TOP, 0, 0, 0, 0,
-SWP_NOSENDCHANGING |
+		     SWP_NOSENDCHANGING |
-/* SWP_NOACTIVATE | */ SWP_NOMOVE | SWP_NOSIZE);
+		     /* SWP_NOACTIVATE | */ SWP_NOMOVE | SWP_NOSIZE);
 } else {
-SetWindowPos(newWindowHandle, HWND_TOP, 0, 0, 0, 0,
+	SetWindowPos(newWindowHandle, HWND_TOP, 0, 0, 0, 0,
-SWP_NOSENDCHANGING |
+		     SWP_NOSENDCHANGING |
-SWP_NOACTIVATE | SWP_NOMOVE | SWP_NOSIZE);
+		     SWP_NOACTIVATE | SWP_NOMOVE | SWP_NOSIZE);
 }
 #endif
 if (isTopWindow | isMDIChild) {
-BringWindowToTop(newWindowHandle);
+	BringWindowToTop(newWindowHandle);
 }
 DragAcceptFiles(newWindowHandle, 1);
 if (isNativeWindow) {
-if (winStyleBits & (SBS_HORZ | SBS_VERT)) {
+	if (winStyleBits & (SBS_HORZ | SBS_VERT)) {
-SetScrollRange(newWindowHandle, SB_CTL, 0, 100, 0);
+	    SetScrollRange(newWindowHandle, SB_CTL, 0, 100, 0);
-SetScrollPos(newWindowHandle, SB_CTL, 0, 0);
+	    SetScrollPos(newWindowHandle, SB_CTL, 0, 0);
-}
+	}
 }
 #ifndef TOPWINDOWCLASS
 if (xIcon) {
-SendMessage(newWindowHandle, WM_SETICON, (WPARAM)ICON_SMALL, (LPARAM)xIcon);
+	SendMessage(newWindowHandle, WM_SETICON, (WPARAM)ICON_SMALL, (LPARAM)xIcon);
-SendMessage(newWindowHandle, WM_SETICON, (WPARAM)ICON_BIG, (LPARAM)xIcon);
+	SendMessage(newWindowHandle, WM_SETICON, (WPARAM)ICON_BIG, (LPARAM)xIcon);
 }
 #endif
 DPRINTF(("done - create h=%x\n", newWindowHandle));
 RETURN (windowId);
 %{  /* NOCONTEXT */
 HICON oldIcon;
 if (__isExternalAddress(aWindowId)) {
-HWND win = _HWNDVal(aWindowId);
+	HWND win = _HWNDVal(aWindowId);
-if (win && IsWindow(win)) {
+	if (win && IsWindow(win)) {
 #ifndef TOPWINDOWCLASS
 # ifdef _WIN64
-oldIcon = (HICON) GetClassLongPtr(win, GCLP_HICON);
+	    oldIcon = (HICON) GetClassLongPtr(win, GCLP_HICON);
-SetClassLongPtr(win, GCLP_HICON, (INT)0);
+	    SetClassLongPtr(win, GCLP_HICON, (INT)0);
 # else
-oldIcon = (HICON) GetClassLong(win, GCL_HICON);
+	    oldIcon = (HICON) GetClassLong(win, GCL_HICON);
-SetClassLong(win, GCL_HICON, (DWORD)0);
+	    SetClassLong(win, GCL_HICON, (DWORD)0);
 # endif
-/* It has to be checked whether this can be deleted!!!!! */
+	    /* It has to be checked whether this can be deleted!!!!! */
-if ( oldIcon ) {
+	    if ( oldIcon ) {
-if ( DestroyIcon( oldIcon )) {
+		if ( DestroyIcon( oldIcon )) {
-DPRINTF(( "Old icon deleted\n" ));
+		    DPRINTF(( "Old icon deleted\n" ));
-} else {
+		} else {
-console_fprintf(stderr, "failed to destroy icon\n");
+		    console_fprintf(stderr, "failed to destroy icon\n");
-}
+		}
-}
+	    }
 #endif
-/*console_printf("post WM_THREAD_DESTROYWINDOW\n");*/
+	   /*console_printf("post WM_THREAD_DESTROYWINDOW\n");*/
-PostMessage(win, WM_THREAD_DESTROYWINDOW, 0, 0);
+	    PostMessage(win, WM_THREAD_DESTROYWINDOW, 0, 0);
-}
+	}
 }
 %}
 !
 rootWindowId
 |currentSequenceNumber|
 currentSequenceNumber := self getClipboardSequenceNumber.
 lastClipboardSequenceNumber ~= currentSequenceNumber ifTrue:[
-"copyBuffer is invalid, fill it from the windows clipboard.
+	"copyBuffer is invalid, fill it from the windows clipboard.
-Even if we could not decode the windows clipboard,
+	 Even if we could not decode the windows clipboard,
-we intentionally set the copyBuffer to nil to get a consistent
+	 we intentionally set the copyBuffer to nil to get a consistent
-behavior."
+	 behavior."
-copyBuffer := self getClipboardData.
+	copyBuffer := self getClipboardData.
-lastClipboardSequenceNumber := currentSequenceNumber.
+	lastClipboardSequenceNumber := currentSequenceNumber.
 ].
 ^ copyBuffer
 !
 getClipboardText:selectionBufferSymbol for:drawableId
 |currentSequenceNumber|
 currentSequenceNumber := self getClipboardSequenceNumber.
 lastClipboardSequenceNumber ~= currentSequenceNumber ifTrue:[
-"copyBuffer is invalid, fill it from the windows clipboard.
+	"copyBuffer is invalid, fill it from the windows clipboard.
-Even if we could not decode the windows clipboard,
+	 Even if we could not decode the windows clipboard,
-we intentionally set the copyBuffer to nil to get a consistent
+	 we intentionally set the copyBuffer to nil to get a consistent
-behavior."
+	 behavior."
-copyBuffer := self getClipboardData.
+	copyBuffer := self getClipboardData.
-lastClipboardSequenceNumber := currentSequenceNumber.
+	lastClipboardSequenceNumber := currentSequenceNumber.
 ].
 ^ self copyBufferAsString
 "
 Screen current getClipboardText:#clipboard for:nil
 Since we currently support only text, any other object
 is stored only in our local copyBuffer and not made available
 to other applications."
 something isString ifTrue:[
-self setClipboardText:something owner:drawableId.
+	self setClipboardText:something owner:drawableId.
-^ self
+	^ self
 ].
 something isStringCollection ifTrue:[
-self setClipboardText:something asString owner:drawableId.
+	self setClipboardText:something asString owner:drawableId.
-^ self
+	^ self
 ].
 "copyBuffer is valid until the clipboard sequence number increases,
 because new data has been put into the clipboard"
 lastClipboardSequenceNumber := self getClipboardSequenceNumber.
 unsigned char *src, *p;
 WIDECHAR *w_src, *w_p;
 int fmt;
 if (format == @symbol(CF_TIFF)) {
-fmt = CF_TIFF;
+	fmt = CF_TIFF;
 } else if (format == @symbol(CF_BITMAP)) {
-fmt = CF_BITMAP;
+	fmt = CF_BITMAP;
 } else if (format == @symbol(CF_DIB)) {
-fmt = CF_DIB;
+	fmt = CF_DIB;
 } else
-goto badFormat;
+	goto badFormat;
 if (IsClipboardFormatAvailable(fmt)) {
-int len;
+	int len;
-if (OpenClipboard(NULL)) {
+	if (OpenClipboard(NULL)) {
-hData = GetClipboardData(fmt);
+	    hData = GetClipboardData(fmt);
-if (hData) {
+	    if (hData) {
-len = GlobalSize(hData);
+		len = GlobalSize(hData);
-src = GlobalLock(hData);
+		src = GlobalLock(hData);
-if (src) {
+		if (src) {
-bytes = __MKBYTEARRAY(src, len);
+		    bytes = __MKBYTEARRAY(src, len);
-}
+		}
-GlobalUnlock(hData);
+		GlobalUnlock(hData);
-CloseClipboard();
+		CloseClipboard();
-DDPRINTF(("WinWorkstation [info]: clipBoard data size is <%d>\n", len));
+		DDPRINTF(("WinWorkstation [info]: clipBoard data size is <%d>\n", len));
-RETURN(bytes);
+		RETURN(bytes);
-}
+	    }
-}
+	}
 }
 badFormat: ;
 %}.
 ^ nil
 hWnd = GetClipboardOwner();
 RETURN(__MKEXTERNALADDRESS(hWnd));
 %}
 "
-Screen current getClipboardOwner
+	Screen current getClipboardOwner
 "
 !
 getClipboardSequenceNumber
 "answer the sequence number of the clioboard.
 sequenceNumber = GetClipboardSequenceNumber();
 RETURN(__MKUINT(sequenceNumber));
 %}
 "
-Screen current getClipboardSequenceNumber
+	Screen current getClipboardSequenceNumber
 "
 !
 getImapeClipboardData
 "get the contents of the windows clipboard.
 Answer an image on success or nil otherwise."
 |data|
 (data := self getClipboardDataBytes:#CF_TIFF) notNil ifTrue:[
-"/ tiff image in data...
+	"/ tiff image in data...
-^ "TIFFReader fromBytes:data" nil
+	^ "TIFFReader fromBytes:data" nil
 ].
 (data := self getClipboardDataBytes:#CF_DIB) notNil ifTrue:[
-"/ device independent bitmap image in data...
+	"/ device independent bitmap image in data...
-^ "TIFFReader fromBytes:data" nil
+	^ "TIFFReader fromBytes:data" nil
 ].
 ^ nil
 "Created: / 09-10-2007 / 14:19:53 / cg"
 !
 unsigned char *src, *p;
 WIDECHAR *w_src, *w_p;
 /* check for format CF_TEXT */
 if (IsClipboardFormatAvailable(CF_TEXT)) {
-int nRemain, len, realLen;
+	int nRemain, len, realLen;
-if (OpenClipboard(NULL)) {
+	if (OpenClipboard(NULL)) {
-hData = GetClipboardData(CF_TEXT);
+	    hData = GetClipboardData(CF_TEXT);
-src = GlobalLock(hData);
+	    src = GlobalLock(hData);
-len = src ? strlen(src) : 0;
+	    len = src ? strlen(src) : 0;
-/* see how much we really need (when CRLF is replaced by LF) */
+	    /* see how much we really need (when CRLF is replaced by LF) */
-for (realLen=nRemain=len, p=src; nRemain; ) {
+	    for (realLen=nRemain=len, p=src; nRemain; ) {
-unsigned char ch;
+		unsigned char ch;
-ch = *p++; nRemain--;
+		ch = *p++; nRemain--;
-if (ch == 0x0D) {
+		if (ch == 0x0D) {
-if (nRemain && (*p == 0x0A)) {
+		    if (nRemain && (*p == 0x0A)) {
-p++; nRemain--;realLen--;
+			p++; nRemain--;realLen--;
-}
+		    }
-}
+		}
-}
+	    }
-s = __MKEMPTYSTRING(realLen);
+	    s = __MKEMPTYSTRING(realLen);
-if (s != nil) {
+	    if (s != nil) {
-for (p=__stringVal(s); len; ) {
+		for (p=__stringVal(s); len; ) {
-unsigned char ch;
+		    unsigned char ch;
-*p = ch = *src++;
+		    *p = ch = *src++;
-len--;
+		    len--;
-if (len && (ch == 0x0D) && (*src == 0x0A)) {
+		    if (len && (ch == 0x0D) && (*src == 0x0A)) {
-*p = 0x0A;
+			*p = 0x0A;
-src++;
+			src++;
-len--;
+			len--;
-}
+		    }
-p++;
+		    p++;
-}
+		}
-}
+	    }
-GlobalUnlock(hData);
+	    GlobalUnlock(hData);
-CloseClipboard();
+	    CloseClipboard();
-DDPRINTF(("WinWorkstation [info]: clipBoard data is <%s>\n", (char *)hData));
+	    DDPRINTF(("WinWorkstation [info]: clipBoard data is <%s>\n", (char *)hData));
-RETURN(s);
+	    RETURN(s);
-}
+	}
 }
 %}.
 ^ nil
 "Created: / 09-10-2007 / 12:46:00 / cg"
 unsigned char *src, *p;
 WIDECHAR *w_src, *w_p;
 /* Unicode */
 if (IsClipboardFormatAvailable(CF_UNICODETEXT)) {
-int nRemain, len, realLen;
+	int nRemain, len, realLen;
-if (OpenClipboard(NULL)) {
+	if (OpenClipboard(NULL)) {
-int needUnicode = 0;
+	    int needUnicode = 0;
-hData = GetClipboardData(CF_UNICODETEXT);
+	    hData = GetClipboardData(CF_UNICODETEXT);
-w_src = GlobalLock(hData);
+	    w_src = GlobalLock(hData);
-len = w_src ? wcslen(w_src) : 0;
+	    len = w_src ? wcslen(w_src) : 0;
-/*
+	    /*
-* see how much we really need (when CRLF is replaced by LF)
+	     * see how much we really need (when CRLF is replaced by LF)
-* and if result is really Unicode ...
+	     * and if result is really Unicode ...
-*/
+	     */
-for (realLen=nRemain=len, w_p=w_src; nRemain; ) {
+	    for (realLen=nRemain=len, w_p=w_src; nRemain; ) {
-WIDECHAR w_ch;
+		WIDECHAR w_ch;
-w_ch = *w_p++; nRemain--;
+		w_ch = *w_p++; nRemain--;
-if ((unsigned) w_ch > 0xFF) {
+		if ((unsigned) w_ch > 0xFF) {
-needUnicode = 1;
+		    needUnicode = 1;
-}
+		}
-if (w_ch == 0x0D) {
+		if (w_ch == 0x0D) {
-if (nRemain && (*w_p == 0x0A)) {
+		    if (nRemain && (*w_p == 0x0A)) {
-w_p++; nRemain--;realLen--;
+			w_p++; nRemain--;realLen--;
-}
+		    }
-}
+		}
-}
+	    }
-if (! needUnicode) {
+	    if (! needUnicode) {
-s = __MKEMPTYSTRING(realLen);
+		s = __MKEMPTYSTRING(realLen);
-if (s != nil) {
+		if (s != nil) {
-for (p = __stringVal(s); len; ) {
+		    for (p = __stringVal(s); len; ) {
-unsigned char ch;
+			unsigned char ch;
-*p = ch = *w_src++;
+			*p = ch = *w_src++;
-len--;
+			len--;
-if (len && (ch == 0x0D) && (*w_src == 0x0A)) {
+			if (len && (ch == 0x0D) && (*w_src == 0x0A)) {
-*p = 0x0A;
+			    *p = 0x0A;
-w_src++;
+			    w_src++;
-len--;
+			    len--;
-}
+			}
-p++;
+			p++;
-}
+		    }
-}
+		}
-} else {
+	    } else {
-s = __BYTEARRAY_NEW_INT(realLen * 2);
+		s = __BYTEARRAY_NEW_INT(realLen * 2);
-if (s != nil) {
+		if (s != nil) {
-__objPtr(s)->o_class = @global(Unicode16String);
+		    __objPtr(s)->o_class = @global(Unicode16String);
-for (w_p = (WIDECHAR *)__stringVal(s); len; ) {
+		    for (w_p = (WIDECHAR *)__stringVal(s); len; ) {
-WIDECHAR w_ch;
+			WIDECHAR w_ch;
-*w_p = w_ch = *w_src++;
+			*w_p = w_ch = *w_src++;
-len--;
+			len--;
-if (len && (w_ch == 0x0D) && (*w_src == 0x0A)) {
+			if (len && (w_ch == 0x0D) && (*w_src == 0x0A)) {
-*w_p = 0x0A;
+			    *w_p = 0x0A;
-w_src++;
+			    w_src++;
-len--;
+			    len--;
-}
+			}
-w_p++;
+			w_p++;
-}
+		    }
-}
+		}
-}
+	    }
-GlobalUnlock(hData);
+	    GlobalUnlock(hData);
-CloseClipboard();
+	    CloseClipboard();
-RETURN(s);
+	    RETURN(s);
-}
+	}
 }
 %}.
 ^ nil
 "Created: / 09-10-2007 / 12:45:26 / cg"
 %{
 HANDLE hData;
 if (__isStringLike(aString)) {
-char *s, *p, *src, *dst;
+	char *s, *p, *src, *dst;
-int n, len, realLen;
+	int n, len, realLen;
-if (OpenClipboard(NULL)) {
+	if (OpenClipboard(NULL)) {
-s = __stringVal(aString);
+	    s = __stringVal(aString);
-/* must replace CR by CRLF */
+	    /* must replace CR by CRLF */
-len = realLen = __stringSize(aString);
+	    len = realLen = __stringSize(aString);
-for (src=s, n=len; n; n--) {
+	    for (src=s, n=len; n; n--) {
-if ((src[0] == 0x0A) && ((src == s) || (src[-1] != 0x0D))) {
+		if ((src[0] == 0x0A) && ((src == s) || (src[-1] != 0x0D))) {
-realLen++;
+		    realLen++;
-}
+		}
-src++;
+		src++;
-}
+	    }
-hData = GlobalAlloc(GMEM_MOVEABLE | GMEM_DDESHARE, realLen+1);
+	    hData = GlobalAlloc(GMEM_MOVEABLE | GMEM_DDESHARE, realLen+1);
-if (hData) {
+	    if (hData) {
-char *t = GlobalLock(hData);
+		char *t = GlobalLock(hData);
-if (t) {
+		if (t) {
-for (src=s, dst=t, n=len; n;) {
+		    for (src=s, dst=t, n=len; n;) {
-unsigned char ch;
+			unsigned char ch;
-ch = src[0]; n--;
+			ch = src[0]; n--;
-if ((ch == 0x0A) && ((src == s) || (src[-1] != 0x0D))) {
+			if ((ch == 0x0A) && ((src == s) || (src[-1] != 0x0D))) {
-*dst++ = 0x0D;
+			    *dst++ = 0x0D;
-*dst++ = 0x0A;
+			    *dst++ = 0x0A;
-} else {
+			} else {
-*dst++ = ch;
+			    *dst++ = ch;
-}
+			}
-src++;
+			src++;
-}
+		    }
-*dst = 0;
+		    *dst = 0;
-EmptyClipboard();
+		    EmptyClipboard();
-if (SetClipboardData(CF_TEXT, hData) != 0) {
+		    if (SetClipboardData(CF_TEXT, hData) != 0) {
-/* Note: After setting clipboard data,
+			/* Note: After setting clipboard data,
-* the memory block previously allocated belongs to
+			 * the memory block previously allocated belongs to
-* the clipboard - not to the app.
+			 * the clipboard - not to the app.
-*/
+			 */
-CloseClipboard();
+			CloseClipboard();
-RETURN (true);
+			RETURN (true);
-}
+		    }
-DPRINTF(("SetClipboardData error:%d\n", GetLastError()));
+		    DPRINTF(("SetClipboardData error:%d\n", GetLastError()));
-GlobalUnlock(hData);
+		    GlobalUnlock(hData);
-}
+		}
-}
+	    }
-CloseClipboard();
+	    CloseClipboard();
-}
+	}
-RETURN(false);
+	RETURN(false);
 }
 /* Unicode */
 if (__isWords(aString)) {
-WIDECHAR *w_s, *w_p, *w_src, *w_dst;
+	WIDECHAR *w_s, *w_p, *w_src, *w_dst;
-int n, len, realLen;
+	int n, len, realLen;
-if (OpenClipboard(NULL)) {
+	if (OpenClipboard(NULL)) {
-OBJ cls;
+	    OBJ cls;
-int nInstBytes;
+	    int nInstBytes;
-cls = __qClass(aString);
+	    cls = __qClass(aString);
-nInstBytes = __OBJS2BYTES__(__intVal(__ClassInstPtr(cls)->c_ninstvars));
+	    nInstBytes = __OBJS2BYTES__(__intVal(__ClassInstPtr(cls)->c_ninstvars));
-w_s = (WIDECHAR *)(__stringVal(aString) + nInstBytes);
+	    w_s = (WIDECHAR *)(__stringVal(aString) + nInstBytes);
-/* must replace CR by CRLF */
+	    /* must replace CR by CRLF */
-len = realLen = (__byteArraySize(aString) - nInstBytes) / 2;
+	    len = realLen = (__byteArraySize(aString) - nInstBytes) / 2;
-for (w_src=w_s, n=len; n; n--) {
+	    for (w_src=w_s, n=len; n; n--) {
-if ((w_src[0] == 0x0A) && ((w_src == w_s) || (w_src[-1] != 0x0D))) {
+		if ((w_src[0] == 0x0A) && ((w_src == w_s) || (w_src[-1] != 0x0D))) {
-realLen++;
+		    realLen++;
-}
+		}
-w_src++;
+		w_src++;
-}
+	    }
-hData = GlobalAlloc(GMEM_MOVEABLE | GMEM_DDESHARE, (realLen+1)*sizeof(WIDECHAR));
+	    hData = GlobalAlloc(GMEM_MOVEABLE | GMEM_DDESHARE, (realLen+1)*sizeof(WIDECHAR));
-if (hData) {
+	    if (hData) {
-WIDECHAR *t = GlobalLock(hData);
+		WIDECHAR *t = GlobalLock(hData);
-if (t) {
+		if (t) {
-for (w_src=w_s, w_dst=t, n=len; n;) {
+		    for (w_src=w_s, w_dst=t, n=len; n;) {
-WIDECHAR w_ch;
+			WIDECHAR w_ch;
-w_ch = w_src[0]; n--;
+			w_ch = w_src[0]; n--;
-if ((w_ch == 0x0A) && ((w_src == w_s) || (w_src[-1] != 0x0D))) {
+			if ((w_ch == 0x0A) && ((w_src == w_s) || (w_src[-1] != 0x0D))) {
-*w_dst++ = 0x0D;
+			    *w_dst++ = 0x0D;
-*w_dst++ = 0x0A;
+			    *w_dst++ = 0x0A;
-} else {
+			} else {
-*w_dst++ = w_ch;
+			    *w_dst++ = w_ch;
-}
+			}
-w_src++;
+			w_src++;
-}
+		    }
-*w_dst = 0;
+		    *w_dst = 0;
-EmptyClipboard();
+		    EmptyClipboard();
-if (SetClipboardData(CF_UNICODETEXT, hData) != 0) {
+		    if (SetClipboardData(CF_UNICODETEXT, hData) != 0) {
-/* Note: After setting clipboard data,
+			/* Note: After setting clipboard data,
-* the memory block previously allocated belongs to
+			 * the memory block previously allocated belongs to
-* the clipboard - not to the app.
+			 * the clipboard - not to the app.
-*/
+			 */
-CloseClipboard();
+			CloseClipboard();
-RETURN (true);
+			RETURN (true);
-}
+		    }
-DPRINTF(("SetClipboardData error:%d\n", GetLastError()));
+		    DPRINTF(("SetClipboardData error:%d\n", GetLastError()));
-GlobalUnlock(hData);
+		    GlobalUnlock(hData);
-}
+		}
-}
+	    }
-CloseClipboard();
+	    CloseClipboard();
-}
+	}
-RETURN(false);
+	RETURN(false);
 }
 %}.
 self primitiveFailed.
 ! !
 %{  /* NOCONTEXT */
 int id, ir, ig, ib;
 if (__bothSmallInteger(r, g) && __isSmallInteger(b)) {
-id = RGB2st(__intVal(r),__intVal(g),__intVal(b));
+	id = RGB2st(__intVal(r),__intVal(g),__intVal(b));
-CPRINTF(("alloc color %d/%d/%d -> %x\n", ir, ig, ib, id));
+	CPRINTF(("alloc color %d/%d/%d -> %x\n", ir, ig, ib, id));
-RETURN ( __MKSMALLINT(id) );
+	RETURN ( __MKSMALLINT(id) );
 }
 %}.
 self primitiveFailed.
 ^ nil
 !
 and evaluate the 3-arg block, aBlock with them"
 |val|
 self getScaledRGBFrom:index into:[:r :g :b |
-val := aBlock
+	val := aBlock
-value:(r * 100.0 / 16rFFFF)
+		value:(r * 100.0 / 16rFFFF)
-value:(g * 100.0 / 16rFFFF)
+		value:(g * 100.0 / 16rFFFF)
-value:(b * 100.0 / 16rFFFF)
+		value:(b * 100.0 / 16rFFFF)
 ].
 "/ 'get RGB' printCR.
 ^ val
 !
 Return nil for unknown color names."
 |val|
 self getScaledRGBFromName:colorName into:[:r :g :b |
-r isNil ifTrue:[^nil].
+	r isNil ifTrue:[^nil].
-val := aBlock
+	val := aBlock
-value:(r * 100.0 / 16rFFFF)
+		value:(r * 100.0 / 16rFFFF)
-value:(g * 100.0 / 16rFFFF)
+		value:(g * 100.0 / 16rFFFF)
-value:(b * 100.0 / 16rFFFF)
+		value:(b * 100.0 / 16rFFFF)
 ].
 ^ val
 !
 getScaledRGBFrom:index into:aBlock
 |triple r g b found cName|
 r := g := b := 0.
 found := false.
 (colorName startsWith:$#) ifTrue:[
-"/ color in r/g/b hex notation
+	"/ color in r/g/b hex notation
-colorName size == 7 ifTrue:[
+	colorName size == 7 ifTrue:[
-r := Integer readFrom:(colorName copyFrom:2 to:3) radix:16 onError:[nil].
+	    r := Integer readFrom:(colorName copyFrom:2 to:3) radix:16 onError:[nil].
-g := Integer readFrom:(colorName copyFrom:4 to:5) radix:16 onError:[nil].
+	    g := Integer readFrom:(colorName copyFrom:4 to:5) radix:16 onError:[nil].
-b := Integer readFrom:(colorName copyFrom:6 to:7) radix:16 onError:[nil].
+	    b := Integer readFrom:(colorName copyFrom:6 to:7) radix:16 onError:[nil].
-].
+	].
-(r isNil or:[g isNil or:[b isNil]]) ifTrue:[^ nil].
+	(r isNil or:[g isNil or:[b isNil]]) ifTrue:[^ nil].
-found := true.
+	found := true.
 ] ifFalse:[
-cName := colorName asString.
+	cName := colorName asString.
-triple := StandardColorValues at:cName ifAbsent:nil.
+	triple := StandardColorValues at:cName ifAbsent:nil.
-triple isNil ifTrue:[
+	triple isNil ifTrue:[
-"/ try lowercase name
+	    "/ try lowercase name
-cName := cName asLowercase.
+	    cName := cName asLowercase.
-triple := StandardColorValues at:cName ifAbsent:nil.
+	    triple := StandardColorValues at:cName ifAbsent:nil.
-triple isNil ifTrue:[
+	    triple isNil ifTrue:[
-"/ try lowercase without intermixed spaces
+		"/ try lowercase without intermixed spaces
-cName := cName asCollectionOfWords asStringWith:nil.
+		cName := cName asCollectionOfWords asStringWith:nil.
-triple := StandardColorValues at:cName ifAbsent:nil.
+		triple := StandardColorValues at:cName ifAbsent:nil.
-].
+	    ].
-].
+	].
-triple notNil ifTrue:[
+	triple notNil ifTrue:[
-r := triple at:1.
+	    r := triple at:1.
-g := triple at:2.
+	    g := triple at:2.
-b := triple at:3.
+	    b := triple at:3.
-found := true.
+	    found := true.
-].
+	].
 ].
 found ifFalse:[
-"/ ('WinWorkstation: unknown color: ' , colorName) infoPrintCR.
+	"/ ('WinWorkstation: unknown color: ' , colorName) infoPrintCR.
-^ nil.
+	^ nil.
 ].
 ^ aBlock value:((r * 256) + r) value:((g * 256) + g) value:((b * 256) + b)
 "Modified (comment): / 14-11-2016 / 14:02:11 / cg"
 aStream := FileStream readonlyFileNamed:'/usr/lib/X11/rgb.txt'.
 aStream isNil ifTrue:[^ nil].
 list := OrderedCollection new.
 [aStream atEnd] whileFalse:[
-line := aStream nextLine.
+	line := aStream nextLine.
-line notNil ifTrue:[
+	line notNil ifTrue:[
-"skip the r/g/b numbers"
+	    "skip the r/g/b numbers"
-index := 1.
+	    index := 1.
-[(line at:index) isSeparator] whileTrue:[index := index + 1].
+	    [(line at:index) isSeparator] whileTrue:[index := index + 1].
-[(line at:index) isDigit] whileTrue:[index := index + 1].
+	    [(line at:index) isDigit] whileTrue:[index := index + 1].
-[(line at:index) isSeparator] whileTrue:[index := index + 1].
+	    [(line at:index) isSeparator] whileTrue:[index := index + 1].
-[(line at:index) isDigit] whileTrue:[index := index + 1].
+	    [(line at:index) isDigit] whileTrue:[index := index + 1].
-[(line at:index) isSeparator] whileTrue:[index := index + 1].
+	    [(line at:index) isSeparator] whileTrue:[index := index + 1].
-[(line at:index) isDigit] whileTrue:[index := index + 1].
+	    [(line at:index) isDigit] whileTrue:[index := index + 1].
-[(line at:index) isSeparator] whileTrue:[index := index + 1].
+	    [(line at:index) isSeparator] whileTrue:[index := index + 1].
-colorName := line copyFrom:index.
+	    colorName := line copyFrom:index.
-((colorName occurrencesOf:(Character space)) == 0) ifTrue:[
+	    ((colorName occurrencesOf:(Character space)) == 0) ifTrue:[
-list add:colorName
+		list add:colorName
-]
+	    ]
-]
+	]
 ].
 aStream close.
 ^ list sort
 "
 WIN-component value (0..16rFFFF) as an integer"
 %{  /* NOCONTEXT */
 if (__isSmallInteger(aPercentage)) {
-RETURN ( __MKSMALLINT(0xFFFF * __intVal(aPercentage) / 100) );
+	RETURN ( __MKSMALLINT(0xFFFF * __intVal(aPercentage) / 100) );
 }
 if (__isFloat(aPercentage)) {
-RETURN ( __MKSMALLINT(0xFFFF * (INT)(__floatVal(aPercentage)) / 100) );
+	RETURN ( __MKSMALLINT(0xFFFF * (INT)(__floatVal(aPercentage)) / 100) );
 }
 %}.
 ^ (16rFFFF * aPercentage / 100) rounded
 !
 (actually, there are more than those below ...)"
 "/ if you add something here, also add to #shapeNumberFromCursor ...
 ^ #(
-#upLeftArrow            "/ IDC_ARROW
+	#upLeftArrow            "/ IDC_ARROW
-#upDownArrow            "/ IDC_SIZENS
+	#upDownArrow            "/ IDC_SIZENS
-#leftRightArrow         "/ IDC_SIZEWE
+	#leftRightArrow         "/ IDC_SIZEWE
-#text                   "/ IDC_IBEAM
+	#text                   "/ IDC_IBEAM
-#wait                   "/ IDC_WAIT
+	#wait                   "/ IDC_WAIT
-#execute                "/ IDC_APPSTARTING
+	#execute                "/ IDC_APPSTARTING
-#crossHair              "/ IDC_CROSS
+	#crossHair              "/ IDC_CROSS
-#fourWay                "/ IDC_SIZEALL
+	#fourWay                "/ IDC_SIZEALL
-#upRightHand            "/ IDC_ARROW
+	#upRightHand            "/ IDC_ARROW
-#noDrop                 "/ IDC_NO
+	#noDrop                 "/ IDC_NO
-#stop                   "/ IDC_NO
+	#stop                   "/ IDC_NO
 )
 "Modified: / 10.12.1999 / 15:16:26 / cg"
 !
 "/ repadding and/or resizing required ?
 bpl := sourceBytes size / h.
 bplPadded := (cW + padding - 1) // padding * 2.
 bpl ~~ bplPadded ifTrue:[
-"/     'repad cursor bits' infoPrintCR.
+	 "/     'repad cursor bits' infoPrintCR.
-srcPadded := ByteArray new:(bplPadded * cH).
+	srcPadded := ByteArray new:(bplPadded * cH).
-nB := bpl min: bplPadded.
+	nB := bpl min: bplPadded.
-nR := cH min: h.
+	nR := cH min: h.
-dstOffs := srcOffs := 1.
+	dstOffs := srcOffs := 1.
-1 to:nR do:[:row |
+	1 to:nR do:[:row |
-srcPadded
+	    srcPadded
-replaceFrom:dstOffs
+		replaceFrom:dstOffs
-to:(dstOffs+nB-1)
+		to:(dstOffs+nB-1)
-with:src
+		with:src
-startingAt:srcOffs.
+		startingAt:srcOffs.
-dstOffs := dstOffs + bplPadded.
+	    dstOffs := dstOffs + bplPadded.
-srcOffs := srcOffs + bpl.
+	    srcOffs := srcOffs + bpl.
-].
+	].
-maskPadded := ByteArray new:(bplPadded * cH).
+	maskPadded := ByteArray new:(bplPadded * cH).
-dstOffs := srcOffs := 1.
+	dstOffs := srcOffs := 1.
-1 to:nR do:[:row |
+	1 to:nR do:[:row |
-maskPadded
+	    maskPadded
-replaceFrom:dstOffs
+		replaceFrom:dstOffs
-to:(dstOffs+nB-1)
+		to:(dstOffs+nB-1)
-with:mask
+		with:mask
-startingAt:srcOffs.
+		startingAt:srcOffs.
-dstOffs := dstOffs + bplPadded.
+	    dstOffs := dstOffs + bplPadded.
-srcOffs := srcOffs + bpl.
+	    srcOffs := srcOffs + bpl.
-].
+	].
-src := srcPadded.
+	src := srcPadded.
-mask := maskPadded.
+	mask := maskPadded.
 ].
 src invert.
 1 to:src size do:[:index |
-src byteAt:index put:((src byteAt:index) bitAnd:(mask byteAt:index)).
+	src byteAt:index put:((src byteAt:index) bitAnd:(mask byteAt:index)).
 ].
 mask invert.
 cursor := self
-primCreateCursorSourceBits:src
+	primCreateCursorSourceBits:src
-maskBits:mask
+	maskBits:mask
-hotX:hx hotY:hy
+	hotX:hx hotY:hy
-width:cW height:cH.
+	width:cW height:cH.
 cursor notNil ifTrue:[^ cursor ].
 'WinWorkstation [warning]: could not create bitmap cursor' infoPrintCR.
 "Modified: / 08-09-2006 / 15:39:42 / cg"
 !
 "destroy a cursor"
 %{  /* NOCONTEXT */
 if (ISCONNECTED) {
-if (__isExternalAddress(aCursorId)) {
+	if (__isExternalAddress(aCursorId)) {
-HCURSOR curs = _HCURSORVal(aCursorId);
+	    HCURSOR curs = _HCURSORVal(aCursorId);
-if (curs) {
+	    if (curs) {
 #ifdef KEEP_STD_CURSORS
-if ((curs != H_C_ARROW)
+		if ((curs != H_C_ARROW)
-&& (curs != H_C_CROSS)
+		 && (curs != H_C_CROSS)
-&& (curs != H_C_IBEAM)
+		 && (curs != H_C_IBEAM)
-&& (curs != H_C_ICON)
+		 && (curs != H_C_ICON)
-&& (curs != H_C_NO)
+		 && (curs != H_C_NO)
-&& (curs != H_C_SIZE)
+		 && (curs != H_C_SIZE)
-&& (curs != H_C_SIZEALL)
+		 && (curs != H_C_SIZEALL)
-&& (curs != H_C_SIZENESW)
+		 && (curs != H_C_SIZENESW)
-&& (curs != H_C_SIZENS)
+		 && (curs != H_C_SIZENS)
-&& (curs != H_C_SIZENWSE)
+		 && (curs != H_C_SIZENWSE)
-&& (curs != H_C_UPARROW)
+		 && (curs != H_C_UPARROW)
-&& (curs != H_C_APPSTARTING)
+		 && (curs != H_C_APPSTARTING)
-&& (curs != H_C_WAIT))
+		 && (curs != H_C_WAIT))
 #endif /* KEEP_STD_CURSORS */
-{
+		{
-DestroyCursor(curs);
+		    DestroyCursor(curs);
 #ifdef COUNT_RESOURCES
-__cnt_cur--;
+		    __cnt_cur--;
-RESPRINTF(("DestroyCursor %d\n",__cnt_cur));
+		    RESPRINTF(("DestroyCursor %d\n",__cnt_cur));
 #endif
-}
+		}
-}
+	    }
-RETURN ( self );
+	    RETURN ( self );
-}
+	}
 }
 %}
 !
 needDeviceFormsForCursor
 %{  /* NOCONTEXT */
 HCURSOR newCursor;
 LPCTSTR cId;
 if (__isSmallInteger(number)) {
-cId = (LPCTSTR)(__intVal(number));
+	cId = (LPCTSTR)(__intVal(number));
-newCursor = LoadCursor(NULL, cId);
+	newCursor = LoadCursor(NULL, cId);
-if (newCursor) {
+	if (newCursor) {
 #ifdef KEEP_STD_CURSORS
-if (cId == IDC_ARROW)
+	    if (cId == IDC_ARROW)
-H_C_ARROW = newCursor;
+		H_C_ARROW = newCursor;
-else if (cId == IDC_CROSS)
+	    else if (cId == IDC_CROSS)
-H_C_CROSS = newCursor;
+		H_C_CROSS = newCursor;
-else if (cId == IDC_IBEAM)
+	    else if (cId == IDC_IBEAM)
-H_C_IBEAM = newCursor;
+		H_C_IBEAM = newCursor;
-else if (cId == IDC_ICON)
+	    else if (cId == IDC_ICON)
-H_C_ICON = newCursor;
+		H_C_ICON = newCursor;
-else if (cId == IDC_NO)
+	    else if (cId == IDC_NO)
-H_C_NO = newCursor;
+		H_C_NO = newCursor;
-else if (cId == IDC_SIZE)
+	    else if (cId == IDC_SIZE)
-H_C_SIZE = newCursor;
+		H_C_SIZE = newCursor;
-else if (cId == IDC_SIZEALL)
+	    else if (cId == IDC_SIZEALL)
-H_C_SIZEALL = newCursor;
+		H_C_SIZEALL = newCursor;
-else if (cId == IDC_SIZENESW)
+	    else if (cId == IDC_SIZENESW)
-H_C_SIZENESW = newCursor;
+		H_C_SIZENESW = newCursor;
-else if (cId == IDC_SIZENS)
+	    else if (cId == IDC_SIZENS)
-H_C_SIZENS = newCursor;
+		H_C_SIZENS = newCursor;
-else if (cId == IDC_SIZENWSE)
+	    else if (cId == IDC_SIZENWSE)
-H_C_SIZENWSE = newCursor;
+		H_C_SIZENWSE = newCursor;
-else if (cId == IDC_UPARROW)
+	    else if (cId == IDC_UPARROW)
-H_C_UPARROW = newCursor;
+		H_C_UPARROW = newCursor;
-else if (cId == IDC_WAIT)
+	    else if (cId == IDC_WAIT)
-H_C_WAIT = newCursor;
+		H_C_WAIT = newCursor;
-else if (cId == IDC_APPSTARTING)
+	    else if (cId == IDC_APPSTARTING)
-H_C_APPSTARTING = newCursor;
+		H_C_APPSTARTING = newCursor;
 #endif /* KEEP_STD_CURSORS */
-RETURN ( __MKOBJ(newCursor) );
+	    RETURN ( __MKOBJ(newCursor) );
-}
+	}
 }
 RETURN (nil);
 %}
 !
 if (__isByteArray(src)
 && __isByteArray(mask)
 && __bothSmallInteger(hx, hy)
 && __bothSmallInteger(w, h)) {
-newCursor = CreateCursor((HANDLE) __getHInstance(),
+	newCursor = CreateCursor((HANDLE) __getHInstance(),
-__intVal(hx), __intVal(hy),
+				 __intVal(hx), __intVal(hy),
-__intVal(w), __intVal(h),
+				 __intVal(w), __intVal(h),
-__ByteArrayInstPtr(mask)->ba_element,
+				 __ByteArrayInstPtr(mask)->ba_element,
-__ByteArrayInstPtr(src)->ba_element);
+				 __ByteArrayInstPtr(src)->ba_element);
-if (newCursor) {
+	if (newCursor) {
 #ifdef COUNT_RESOURCES
-__cnt_cur++;
+	    __cnt_cur++;
-RESPRINTF(("CreateCursor %d\n",__cnt_cur));
+	    RESPRINTF(("CreateCursor %d\n",__cnt_cur));
 #endif
-RETURN ( __MKOBJ(newCursor));
+	    RETURN ( __MKOBJ(newCursor));
-}
+	}
 }
 RETURN (nil);
 %}
 !
 "this is pure Win-knowlegde - but you may easily add more"
 %{  /* NOCONTEXT */
 if (shape == @symbol(upRightHand)) {
-RETURN ( __MKSMALLINT( (INT)IDC_ARROW));
+	RETURN ( __MKSMALLINT( (INT)IDC_ARROW));
 }
 if (shape == @symbol(upLeftArrow)) {
-RETURN ( __MKSMALLINT( (INT)IDC_ARROW));
+	RETURN ( __MKSMALLINT( (INT)IDC_ARROW));
 }
 if (shape == @symbol(upDownArrow)) {
-RETURN ( __MKSMALLINT( (INT)IDC_SIZENS));
+	RETURN ( __MKSMALLINT( (INT)IDC_SIZENS));
 }
 if (shape == @symbol(leftRightArrow)) {
-RETURN ( __MKSMALLINT( (INT)IDC_SIZEWE));
+	RETURN ( __MKSMALLINT( (INT)IDC_SIZEWE));
 }
 if (shape == @symbol(text)) {
-RETURN ( __MKSMALLINT( (INT)IDC_IBEAM));
+	RETURN ( __MKSMALLINT( (INT)IDC_IBEAM));
 }
 if (shape == @symbol(wait)) {
-RETURN ( __MKSMALLINT( (INT)IDC_WAIT));
+	RETURN ( __MKSMALLINT( (INT)IDC_WAIT));
 }
 if (shape == @symbol(crossHair)) {
-RETURN ( __MKSMALLINT( (INT)IDC_CROSS));
+	RETURN ( __MKSMALLINT( (INT)IDC_CROSS));
 }
 if (shape == @symbol(fourWay)) {
-RETURN ( __MKSMALLINT( (INT)IDC_SIZEALL));
+	RETURN ( __MKSMALLINT( (INT)IDC_SIZEALL));
 }
 if (shape == @symbol(execute)) {
-RETURN ( __MKSMALLINT( (INT)IDC_APPSTARTING));
+	RETURN ( __MKSMALLINT( (INT)IDC_APPSTARTING));
 }
 if (shape == @symbol(noDrop)) {
-RETURN ( __MKSMALLINT( (INT)IDC_NO));
+	RETURN ( __MKSMALLINT( (INT)IDC_NO));
 }
 if (shape == @symbol(stop)) {
-RETURN ( __MKSMALLINT( (INT)IDC_NO));
+	RETURN ( __MKSMALLINT( (INT)IDC_NO));
 }
 if (shape == @symbol(IDC_UPARROW)) {
-RETURN ( __MKSMALLINT( (INT)IDC_UPARROW));
+	RETURN ( __MKSMALLINT( (INT)IDC_UPARROW));
 }
 if (shape == @symbol(IDC_SIZE)) {
-RETURN ( __MKSMALLINT( (INT)IDC_SIZE));
+	RETURN ( __MKSMALLINT( (INT)IDC_SIZE));
 }
 if (shape == @symbol(IDC_SIZENWSE)) {
-RETURN ( __MKSMALLINT( (INT)IDC_SIZENWSE));
+	RETURN ( __MKSMALLINT( (INT)IDC_SIZENWSE));
 }
 if (shape == @symbol(IDC_SIZENESW)) {
-RETURN ( __MKSMALLINT( (INT)IDC_SIZENESW));
+	RETURN ( __MKSMALLINT( (INT)IDC_SIZENESW));
 }
 if (shape == @symbol(IDC_NO)) {
-RETURN ( __MKSMALLINT( (INT)IDC_NO));
+	RETURN ( __MKSMALLINT( (INT)IDC_NO));
 }
 #ifdef IDC_HELP
 if (shape == @symbol(IDC_HELP)) {
-RETURN ( __MKSMALLINT( (INT)IDC_HELP));
+	RETURN ( __MKSMALLINT( (INT)IDC_HELP));
 }
 #endif
 %}.
 "/    ('WINWORKSTATION: invalid cursorShape:' , shape printString) infoPrintNL.
 ^  nil
 dragFinish:dropHandle
 "free Win32 data (and remove the drop-file)"
 %{
 if (__isExternalAddress(dropHandle)) {
-HDROP hDrop = (HDROP)__externalAddressVal(dropHandle);
+	HDROP hDrop = (HDROP)__externalAddressVal(dropHandle);
-__externalAddressVal(dropHandle) = 0;
+	__externalAddressVal(dropHandle) = 0;
-if (hDrop) {
+	if (hDrop) {
-DragFinish(hDrop);
+	    DragFinish(hDrop);
-}
+	}
 }
 %}
 ! !
 !WinWorkstation methodsFor:'drawing'!
 copyFromId:sourceId x:srcX y:srcY gc:srcGCId to:destId x:dstX y:dstY gc:dstGCId
-width:w height:h
+		width:w height:h
 "do a bit-blt; copy bits from the rectangle defined by
 srcX/srcY and w/h from the sourceId drawable to the rectangle
 below dstX/dstY in the destId drawable. Trigger an error if any
 argument is not integer."
 HWND    dstGcHWIN;
 HBITMAP dstGcHBITMAP;
 if (! __isExternalAddress(srcGCId)
 || ! __isExternalAddress(dstGCId)) {
-goto fail;
+	goto fail;
 }
 srcGcData = _GCDATA(srcGCId);
 dstGcData = _GCDATA(dstGCId);
 if (__bothSmallInteger(w, h)
 && __bothSmallInteger(srcX, srcY)
 && __bothSmallInteger(dstX, dstY)
 && srcGcData
 && dstGcData) {
-int fun = BITBLT_COPY;
+	int fun = BITBLT_COPY;
-int src_fg, src_bg, dst_fg, dst_bg;
+	int src_fg, src_bg, dst_fg, dst_bg;
-fun = dstGcData->bitbltrop2;
+	fun = dstGcData->bitbltrop2;
 #if 0
-switch (fun) {
+	switch (fun) {
-case BITBLT_COPY:
+	  case BITBLT_COPY:
-console_printf("BITBLT_COPY\n");
+	    console_printf("BITBLT_COPY\n");
-break;
+	    break;
-case BITBLT_COPYINVERTED:
+	  case BITBLT_COPYINVERTED:
-console_printf("BITBLT_COPYINVERTED\n");
+	    console_printf("BITBLT_COPYINVERTED\n");
-break;
+	    break;
-case BITBLT_XOR:
+	  case BITBLT_XOR:
-console_printf("BITBLT_XOR\n");
+	    console_printf("BITBLT_XOR\n");
-break;
+	    break;
-case BITBLT_AND:
+	  case BITBLT_AND:
-console_printf("BITBLT_AND\n");
+	    console_printf("BITBLT_AND\n");
-break;
+	    break;
-case BITBLT_OR:
+	  case BITBLT_OR:
-console_printf("BITBLT_OR\n");
+	    console_printf("BITBLT_OR\n");
-break;
+	    break;
-}
+	}
 #endif
-/*
+	/*
-* a scroll operation ?
+	 * a scroll operation ?
-*/
+	 */
-if (srcGcData->hWnd
+	if (srcGcData->hWnd
-&& ((srcGcData->hWnd == dstGcData->hWnd)
+	 && ((srcGcData->hWnd == dstGcData->hWnd)
-&& (fun == BITBLT_COPY))) {
+	 && (fun == BITBLT_COPY))) {
-RECT rec, updRect;
+	    RECT rec, updRect;
-RECT invRec;
+	    RECT invRec;
-HRGN updRgn = 0, dstRgn = 0, nUpdRgn = 0;
+	    HRGN updRgn = 0, dstRgn = 0, nUpdRgn = 0;
-int _srcX = __intVal(srcX);
+	    int _srcX = __intVal(srcX);
-int _srcY = __intVal(srcY);
+	    int _srcY = __intVal(srcY);
-int _dstX = __intVal(dstX);
+	    int _dstX = __intVal(dstX);
-int _dstY = __intVal(dstY);
+	    int _dstY = __intVal(dstY);
-int _w = __intVal(w);
+	    int _w = __intVal(w);
-int _h = __intVal(h);
+	    int _h = __intVal(h);
-int noExpose = 0;
+	    int noExpose = 0;
-int _deltaX, _deltaY;
+	    int _deltaX, _deltaY;
 #ifdef CACHE_LAST_DC
-if (lastGcData) {
+	    if (lastGcData) {
-_releaseDC(lastGcData);
+		_releaseDC(lastGcData);
-}
+	    }
 #endif
-rec.left = _srcX;
+	    rec.left = _srcX;
-rec.top  = _srcY;
+	    rec.top  = _srcY;
-rec.right = rec.left + _w;
+	    rec.right = rec.left + _w;
-rec.bottom = rec.top + _h;
+	    rec.bottom = rec.top + _h;
-_deltaX = _dstX - _srcX;
+	    _deltaX = _dstX - _srcX;
-_deltaY = _dstY - _srcY;
+	    _deltaY = _dstY - _srcY;
-DDPRINTF(("dst and src is HWND %x fun == BITBLT_COPY --> scroll %d/%d\n",
+	    DDPRINTF(("dst and src is HWND %x fun == BITBLT_COPY --> scroll %d/%d\n",
-srcGcData->hWnd,
+		    srcGcData->hWnd,
-_deltaX,
+		    _deltaX,
-_deltaY));
+		    _deltaY));
-if ((_deltaX == 0) && (_deltaY == 0)) {
+	    if ((_deltaX == 0) && (_deltaY == 0)) {
-noExpose = 1;
+		noExpose = 1;
-} else {
+	    } else {
-updRgn = CreateRectRgn(0, 0, 0, 0);
+		updRgn = CreateRectRgn(0, 0, 0, 0);
-ScrollWindowEx(srcGcData->hWnd,
+		ScrollWindowEx(srcGcData->hWnd,
-_deltaX,
+			    _deltaX,
-_deltaY,
+			    _deltaY,
-&rec,            /* area to scroll */
+			    &rec,            /* area to scroll */
-0,               /* clip region */
+			    0,               /* clip region */
-updRgn,
+			    updRgn,
-NULL, /* &invRec, */
+			    NULL, /* &invRec, */
-0 /* SW_ERASE | SW_INVALIDATE */);
+			    0 /* SW_ERASE | SW_INVALIDATE */);
-/*
+		/*
-* we are not interested in the source-area;
+		 * we are not interested in the source-area;
-* only care for exposed areas in the dst area.
+		 * only care for exposed areas in the dst area.
-*/
+		 */
-dstRgn = CreateRectRgn(_dstX, _dstY, _dstX+_w, _dstY+_h);
+		dstRgn = CreateRectRgn(_dstX, _dstY, _dstX+_w, _dstY+_h);
-nUpdRgn = CreateRectRgn(0, 0, 0, 0);
+		nUpdRgn = CreateRectRgn(0, 0, 0, 0);
-switch (CombineRgn(nUpdRgn, updRgn, dstRgn, RGN_AND)) {
+		switch (CombineRgn(nUpdRgn, updRgn, dstRgn, RGN_AND)) {
-case ERROR:
+		    case ERROR:
-_DeleteObject(nUpdRgn, __LINE__);
+			_DeleteObject(nUpdRgn, __LINE__);
-nUpdRgn = updRgn;
+			nUpdRgn = updRgn;
-noExpose = 1;
+			noExpose = 1;
-break;
+			break;
-case NULLREGION:
+		    case NULLREGION:
-noExpose = 1;
+			noExpose = 1;
-break;
+			break;
-default:
+		    default:
-if (__generateExposes(srcGcData->hWnd, nUpdRgn, __WM_GEXPOSE, 1) <= 0) {
+			if (__generateExposes(srcGcData->hWnd, nUpdRgn, __WM_GEXPOSE, 1) <= 0) {
-noExpose = 1;
+			    noExpose = 1;
-}
+			}
-break;
+			break;
-}
+		}
-}
+	    }
-if (noExpose) {
+	    if (noExpose) {
-/*
+		/*
-* no exposes generated - must send a NOEXPOSE
+		 * no exposes generated - must send a NOEXPOSE
-*/
+		 */
-enqEvent(ExposureMask, srcGcData->hWnd, __WM_NOGEXPOSE, 0, 0, 0, 0, 0, EV_NOTIME);
+		enqEvent(ExposureMask, srcGcData->hWnd, __WM_NOGEXPOSE, 0, 0, 0, 0, 0, EV_NOTIME);
-}
+	    }
-if (dstRgn) {
+	    if (dstRgn) {
-_DeleteObject(dstRgn, __LINE__);
+		_DeleteObject(dstRgn, __LINE__);
-}
+	    }
-if (nUpdRgn && (nUpdRgn != updRgn)) {
+	    if (nUpdRgn && (nUpdRgn != updRgn)) {
-_DeleteObject(nUpdRgn, __LINE__);
+		_DeleteObject(nUpdRgn, __LINE__);
-}
+	    }
-if (updRgn) {
+	    if (updRgn) {
-_DeleteObject(updRgn, __LINE__);
+		_DeleteObject(updRgn, __LINE__);
-}
+	    }
-RETURN ( self );
+	    RETURN ( self );
-}
+	}
-fun = dstGcData->bitbltrop2;
+	fun = dstGcData->bitbltrop2;
-if (0 /* fun == BITBLT_COPY */) {
+	if (0 /* fun == BITBLT_COPY */) {
-src_fg = dst_fg = 0xFFFFFF;
+	    src_fg = dst_fg = 0xFFFFFF;
-src_bg = dst_bg = 0x000000;
+	    src_bg = dst_bg = 0x000000;
-} else {
+	} else {
-src_fg = srcGcData->fgColor;
+	    src_fg = srcGcData->fgColor;
-src_bg = srcGcData->bgColor;
+	    src_bg = srcGcData->bgColor;
-dst_fg = dstGcData->fgColor;
+	    dst_fg = dstGcData->fgColor;
-dst_bg = dstGcData->bgColor;
+	    dst_bg = dstGcData->bgColor;
-}
+	}
-/*
+	/*
-* a simple copy (like scroll, but in a bitmap) ?
+	 * a simple copy (like scroll, but in a bitmap) ?
-*/
+	 */
-if ((srcGcData == dstGcData)
+	if ((srcGcData == dstGcData)
-&& (fun == BITBLT_COPY)) {
+	 && (fun == BITBLT_COPY)) {
-RECT rec, uprec;
+	    RECT rec, uprec;
-int _srcX, _srcY;
+	    int _srcX, _srcY;
-rec.left = _srcX = __intVal(srcX);
+	    rec.left = _srcX = __intVal(srcX);
-rec.top = _srcY = __intVal(srcY);
+	    rec.top = _srcY = __intVal(srcY);
-rec.right = rec.left + __intVal(w);
+	    rec.right = rec.left + __intVal(w);
-rec.bottom = rec.top + __intVal(h);
+	    rec.bottom = rec.top + __intVal(h);
-srcDC = _getDC(srcGcData);
+	    srcDC = _getDC(srcGcData);
-SetBkColor(srcDC, src_fg);
+	    SetBkColor(srcDC, src_fg);
-SetTextColor(srcDC, src_bg);
+	    SetTextColor(srcDC, src_bg);
-DDPRINTF(("dst and src is DC %x fun == BITBLT_COPY  --> scrolling %d %d\n",srcDC,__intVal(dstX) - __intVal(srcX),__intVal(dstY) - __intVal(srcY)));
+	    DDPRINTF(("dst and src is DC %x fun == BITBLT_COPY  --> scrolling %d %d\n",srcDC,__intVal(dstX) - __intVal(srcX),__intVal(dstY) - __intVal(srcY)));
-ScrollDC(srcDC, __intVal(dstX)-_srcX,
+	    ScrollDC(srcDC, __intVal(dstX)-_srcX,
-__intVal(dstY)-_srcY,
+			    __intVal(dstY)-_srcY,
-&rec, 0, 0, &uprec);
+			    &rec, 0, 0, &uprec);
-SetBkColor(srcDC, srcGcData->bgColor);
+	    SetBkColor(srcDC, srcGcData->bgColor);
-SetTextColor(srcDC, srcGcData->fgColor);
+	    SetTextColor(srcDC, srcGcData->fgColor);
 #ifndef CACHE_LAST_DC
-_releaseDC(srcGcData);
+	    _releaseDC(srcGcData);
 #endif
-RETURN ( self );
+	    RETURN ( self );
-}
+	}
 #ifdef xxCACHE_LAST_DC
 /* mhmh - this should not be needed */
-if (lastGcData) {
+	if (lastGcData) {
-_releaseDC(lastGcData);
+	    _releaseDC(lastGcData);
-}
+	}
 #endif
-if (dstGcData == srcGcData) {
+	if (dstGcData == srcGcData) {
-srcDC = dstDC = _getDC(dstGcData);
+	    srcDC = dstDC = _getDC(dstGcData);
-} else {
+	} else {
-srcDC = _getDC(srcGcData);
+	    srcDC = _getDC(srcGcData);
-/*
+	    /*
-* kludge - pretent nothing is cached for a moment,
+	     * kludge - pretent nothing is cached for a moment,
-* to avoid release in getDC below ...
+	     * to avoid release in getDC below ...
-*/
+	     */
 #ifdef CACHE_LAST_DC
-dstGcOwnerThreadID = lastGcOwnerThreadID;
+	    dstGcOwnerThreadID = lastGcOwnerThreadID;
-dstGcHWIN = lastGcHWIN;
+	    dstGcHWIN = lastGcHWIN;
-dstGcHBITMAP = lastGcHBITMAP;
+	    dstGcHBITMAP = lastGcHBITMAP;
-lastGcData = 0;
+	    lastGcData = 0;
 #endif
-dstDC = _getDC(dstGcData);
+	    dstDC = _getDC(dstGcData);
-SetBkColor(dstDC, dst_fg);
+	    SetBkColor(dstDC, dst_fg);
-SetTextColor(dstDC, dst_bg);
+	    SetTextColor(dstDC, dst_bg);
-}
+	}
-SetBkColor(srcDC, src_fg);
+	SetBkColor(srcDC, src_fg);
-SetTextColor(srcDC, src_bg);
+	SetTextColor(srcDC, src_bg);
-CPRINTF(("bitblt src f:%x b:%x",GetTextColor(srcDC),GetBkColor(srcDC)));
+	CPRINTF(("bitblt src f:%x b:%x",GetTextColor(srcDC),GetBkColor(srcDC)));
-CPRINTF(("dst f:%x b:%x\n",GetTextColor(dstDC),GetBkColor(dstDC)));
+	CPRINTF(("dst f:%x b:%x\n",GetTextColor(dstDC),GetBkColor(dstDC)));
-if (BitBlt(dstDC,
+	if (BitBlt(dstDC,
-__intVal(dstX), __intVal(dstY),
+	     __intVal(dstX), __intVal(dstY),
-__intVal(w), __intVal(h),
+	     __intVal(w), __intVal(h),
-srcDC,
+	     srcDC,
-__intVal(srcX), __intVal(srcY),
+	     __intVal(srcX), __intVal(srcY),
-fun)
+	     fun)
-== 0
+	   == 0
-) {
+	  ) {
-console_fprintf(stderr, "WinWorkstation [info]: ERROR in BitBlt: %d\n", GetLastError());
+	    console_fprintf(stderr, "WinWorkstation [info]: ERROR in BitBlt: %d\n", GetLastError());
-}
+	}
-if (dstGcData != srcGcData) {
+	if (dstGcData != srcGcData) {
-SetBkColor(dstDC, dstGcData->bgColor);
+	    SetBkColor(dstDC, dstGcData->bgColor);
-SetTextColor(dstDC, dstGcData->fgColor);
+	    SetTextColor(dstDC, dstGcData->fgColor);
-}
+	}
-SetBkColor(srcDC, srcGcData->bgColor);
+	SetBkColor(srcDC, srcGcData->bgColor);
-SetTextColor(srcDC, srcGcData->fgColor);
+	SetTextColor(srcDC, srcGcData->fgColor);
-if (srcGcData != dstGcData) {
+	if (srcGcData != dstGcData) {
-_releaseDC(srcGcData);
+	    _releaseDC(srcGcData);
-}
+	}
 #ifdef CACHE_LAST_DC
-/*
+	/*
-* kludge again - restore last-DC cache
+	 * kludge again - restore last-DC cache
-*/
+	 */
-lastGcData = dstGcData;
+	lastGcData = dstGcData;
-lastGcOwnerThreadID = dstGcOwnerThreadID;
+	lastGcOwnerThreadID = dstGcOwnerThreadID;
-lastGcHWIN = dstGcHWIN;
+	lastGcHWIN = dstGcHWIN;
-lastGcHBITMAP = dstGcHBITMAP;
+	lastGcHBITMAP = dstGcHBITMAP;
 #else
-_releaseDC(dstGcData);
+	_releaseDC(dstGcData);
 #endif
-RETURN ( self );
+	RETURN ( self );
 }
 fail: ;
 %}.
 self primitiveFailed.
 ^ nil
 !
 copyPlaneFromId:sourceId x:srcX y:srcY gc:srcDCId to:destId x:dstX y:dstY gc:dstDCId
-width:w height:h
+		width:w height:h
 "do a bit-blt, but only copy the low-bit plane;
 copy bits from the rectangle defined by
 srcX/srcY and w/h from the sourceId drawable to the rectangle
 below dstX/dstY in the destId drawable. Trigger an error if any
 argument is not integer."
 ^ self
-copyFromId:sourceId
+	copyFromId:sourceId
-x:srcX y:srcY gc:srcDCId
+		 x:srcX y:srcY gc:srcDCId
-to:destId x:dstX y:dstY gc:dstDCId
+		to:destId x:dstX y:dstY gc:dstDCId
-width:w height:h
+	     width:w height:h
 !
 displayArcX:x y:y width:width height:height from:startAngle angle:angle in:ignoredDrawableId with:aGCId
 "draw an arc. If any of x,y, w or h is not an integer, an error is triggered.
 The angles may be floats or integer - they are given in degrees."
 int __x, __y, w, h;
 float angle1, angle2;
 double f;
 if (__isSmallInteger(startAngle))
-angle1 = (float)(__intVal(startAngle));
+	angle1 = (float)(__intVal(startAngle));
 else if (__isFloat(startAngle)) {
-angle1 = (float) __floatVal(startAngle);
+	angle1 = (float) __floatVal(startAngle);
 } else if (__isShortFloat(startAngle)) {
-angle1 = __shortFloatVal(startAngle);
+	angle1 = __shortFloatVal(startAngle);
 } else goto bad;
 if (__isSmallInteger(angle))
-angle2 = (float)(__intVal(angle));
+	angle2 = (float)(__intVal(angle));
 else if (__isFloat(angle)) {
-angle2 = (float) __floatVal(angle);
+	angle2 = (float) __floatVal(angle);
 } else if (__isShortFloat(angle)) {
-angle2 = __shortFloatVal(angle);
+	angle2 = __shortFloatVal(angle);
 } else goto bad;
 if (angle2 <= 0) {
-RETURN (self);
+	RETURN (self);
 }
 if (__isExternalAddress(aGCId)
 && __bothSmallInteger(x, y)
 && __bothSmallInteger(width, height))
 {
-struct gcData *gcData = _GCDATA(aGCId);
+	struct gcData *gcData = _GCDATA(aGCId);
-HDC hDC;
+	HDC hDC;
-POINT p;
+	POINT p;
-w = __intVal(width);
+	w = __intVal(width);
-h = __intVal(height);
+	h = __intVal(height);
-__x = __intVal(x);
+	__x = __intVal(x);
-__y = __intVal(y);
+	__y = __intVal(y);
-hDC = _getDC(gcData);
+	hDC = _getDC(gcData);
-if (! GcDataGetPen(hDC, gcData)) {
+	if (! GcDataGetPen(hDC, gcData)) {
-DPRINTF(("displayArc: no pen\n"));
+	    DPRINTF(("displayArc: no pen\n"));
-} else {
+	} else {
-double xB, yB, xE, yE, xR, yR;
+	    double xB, yB, xE, yE, xR, yR;
-xR = w / 2;
+	    xR = w / 2;
-yR = h / 2;
+	    yR = h / 2;
-if (angle2 - angle1 >= 360) {
+	    if (angle2 - angle1 >= 360) {
-xB = xE = __x + xR + 0.5;
+		xB = xE = __x + xR + 0.5;
-yB = yE = __y /*+ yR + 0.5*/;
+		yB = yE = __y /*+ yR + 0.5*/;
-} else {
+	    } else {
-double sin(), cos();
+		double sin(), cos();
-float rad1, rad2;
+		float rad1, rad2;
-if (angle1 <= 180)
+		if (angle1 <= 180)
-angle1 = 180 - angle1;
+		  angle1 = 180 - angle1;
-else
+		else
-angle1 = 360 + 180 - angle1;
+		  angle1 = 360 + 180 - angle1;
-angle2 = angle1 - angle2;
+		angle2 = angle1 - angle2;
-/* sigh - compute the intersections ... */
+		/* sigh - compute the intersections ... */
-rad1 = (angle1 * 3.14159265359) / 180.0;
+		rad1 = (angle1 * 3.14159265359) / 180.0;
-rad2 = (angle2 * 3.14159265359) / 180.0;
+		rad2 = (angle2 * 3.14159265359) / 180.0;
-xB = cos(rad1) * xR;
+		xB = cos(rad1) * xR;
-yB = sin(rad1) * yR;
+		yB = sin(rad1) * yR;
-xE = cos(rad2) * xR;
+		xE = cos(rad2) * xR;
-yE = sin(rad2) * yR;
+		yE = sin(rad2) * yR;
-xB = __x + xR - xB + 0.5;
+		xB = __x + xR - xB + 0.5;
-yB = __y + yR - yB + 0.5;
+		yB = __y + yR - yB + 0.5;
-xE = __x + xR - xE + 0.5;
+		xE = __x + xR - xE + 0.5;
-yE = __y + yR - yE + 0.5;
+		yE = __y + yR - yE + 0.5;
-}
+	    }
-DPRINTF(("Arc x=%d y=%d w=%d h=%d xB=%d xE=%d yB=%d yE=%d a1=%f a2=%f\n",__x,__y,w,h,(int)xB,(int)xE,(int)yB,(int)yE,angle1,angle2));
+	    DPRINTF(("Arc x=%d y=%d w=%d h=%d xB=%d xE=%d yB=%d yE=%d a1=%f a2=%f\n",__x,__y,w,h,(int)xB,(int)xE,(int)yB,(int)yE,angle1,angle2));
-Arc(hDC,
+	    Arc(hDC,
-__x, __y,
+		__x, __y,
-__x + w, __y + h,
+		__x + w, __y + h,
-(int)xB, (int)yB,
+		(int)xB, (int)yB,
-(int)xE, (int)yE);
+		(int)xE, (int)yE);
-GcDataReleasePen(hDC, gcData);
+	    GcDataReleasePen(hDC, gcData);
-}
+	}
 #ifndef CACHE_LAST_DC
-_releaseDC(gcData);
+	_releaseDC(gcData);
 #endif
-RETURN ( self );
+	RETURN ( self );
 }
 bad: ;
 %}.
 self primitiveFailed
 !
 %{  /* NOCONTEXT */
 if (__isExternalAddress(aGCId)
 && __bothSmallInteger(x0, y0)
 && __bothSmallInteger(x1, y1)) {
-struct gcData *gcData = _GCDATA(aGCId);
+	struct gcData *gcData = _GCDATA(aGCId);
-int __x1 = __intVal(x1), __y1 = __intVal(y1);
+	int __x1 = __intVal(x1), __y1 = __intVal(y1);
-HDC hDC = _getDC(gcData);
+	HDC hDC = _getDC(gcData);
 /*      DPRINTF(("displayLine: %d/%d -> %d/%d\n",
-__intVal(x0), __intVal(y0),
+		    __intVal(x0), __intVal(y0),
-__x1, __y1));
+		    __x1, __y1));
 */
-if (! GcDataGetPen(hDC, gcData)) {
+	if (! GcDataGetPen(hDC, gcData)) {
-DPRINTF(("displayLine: no pen\n"));
+	    DPRINTF(("displayLine: no pen\n"));
-} else {
+	} else {
-MoveToEx(hDC, __intVal(x0), __intVal(y0), NULL);
+	    MoveToEx(hDC, __intVal(x0), __intVal(y0), NULL);
-LineTo(hDC, __x1, __y1);
+	    LineTo(hDC, __x1, __y1);
-/*
+	    /*
-* end-point ...
+	     * end-point ...
-*/
+	     */
-LineTo(hDC, __x1+1, __y1);
+	    LineTo(hDC, __x1+1, __y1);
-GcDataReleasePen(hDC, gcData);
+	    GcDataReleasePen(hDC, gcData);
-}
+	}
 #ifndef CACHE_LAST_DC
-_releaseDC(gcData);
+	_releaseDC(gcData);
 #endif
-RETURN ( self );
+	RETURN ( self );
 }
 %}
 !
 displayPointX:px y:py in:ignoredDrawableId with:aGCId
 "draw a point. If x/y are not integers, an error is triggered."
 %{  /* NOCONTEXT */
 if (__isExternalAddress(aGCId)
 && __bothSmallInteger(px, py)) {
-struct gcData *gcData = _GCDATA(aGCId);
+	struct gcData *gcData = _GCDATA(aGCId);
-HDC hDC;
+	HDC hDC;
-POINT p;
+	POINT p;
-int __x = __intVal(px), __y = __intVal(py);
+	int __x = __intVal(px), __y = __intVal(py);
 #ifdef OLD
-int savedLStyle = gcData->lStyle;
+	int savedLStyle = gcData->lStyle;
-int savedLWidth = gcData->lineWidth;
+	int savedLWidth = gcData->lineWidth;
-/*
+	/*
-* a point is a point - no matter what lineWidth we have set before
+	 * a point is a point - no matter what lineWidth we have set before
-*/
+	 */
-if ((gcData->lStyle != PS_SOLID)
+	if ((gcData->lStyle != PS_SOLID)
-|| (gcData->lineWidth > 1)) {
+	 || (gcData->lineWidth > 1)) {
-FLUSH_CACHED_DC(gcData);
+	    FLUSH_CACHED_DC(gcData);
-gcData->lStyle = PS_SOLID;
+	    gcData->lStyle = PS_SOLID;
-gcData->lineWidth = 0;
+	    gcData->lineWidth = 0;
-}
+	}
-hDC = _getDC(gcData);
+	hDC = _getDC(gcData);
-if (! GcDataGetPen(hDC,gcData)) {
+	if (! GcDataGetPen(hDC,gcData)) {
-DPRINTF(("displayPoint: no pen\n"));
+	    DPRINTF(("displayPoint: no pen\n"));
-} else {
+	} else {
-MoveToEx(hDC, __x, __y, NULL);
+	    MoveToEx(hDC, __x, __y, NULL);
-/*
+	    /*
-* end-point ...
+	     * end-point ...
-*/
+	     */
-LineTo(hDC, __x+1, __y);
+	    LineTo(hDC, __x+1, __y);
-GcDataReleasePen(hDC, gcData);
+	    GcDataReleasePen(hDC, gcData);
-}
+	}
 # ifndef CACHE_LAST_DC
-_releaseDC(gcData);
+	_releaseDC(gcData);
 # endif
-if ((gcData->lStyle != savedLStyle)
+	if ((gcData->lStyle != savedLStyle)
-|| (gcData->lineWidth != savedLWidth)) {
+	 || (gcData->lineWidth != savedLWidth)) {
-FLUSH_CACHED_DC(gcData);
+	    FLUSH_CACHED_DC(gcData);
-gcData->lStyle = savedLStyle;
+	    gcData->lStyle = savedLStyle;
-gcData->lineWidth = savedLWidth;
+	    gcData->lineWidth = savedLWidth;
-}
+	}
 #else /* NEW */
-hDC = _getDC(gcData);
+	hDC = _getDC(gcData);
-SetPixelV(hDC, __x, __y, gcData->fgColor);
+	SetPixelV(hDC, __x, __y, gcData->fgColor);
 # ifndef CACHE_LAST_DC
-_releaseDC(gcData);
+	_releaseDC(gcData);
 # endif
 #endif /* NEW */
-RETURN ( self );
+	RETURN ( self );
 }
 %}
 !
 displayPolygon:aPolygon in:ignoredDrawableId with:aGCId
 OBJ point, px, py;
 int i, num;
 if (__isExternalAddress(aGCId)
 && __isSmallInteger(numberOfPoints)) {
-struct gcData *gcData = _GCDATA(aGCId);
+	struct gcData *gcData = _GCDATA(aGCId);
-HDC hDC = 0;
+	HDC hDC = 0;
-POINT p;
+	POINT p;
-num = __intVal(numberOfPoints);
+	num = __intVal(numberOfPoints);
-for (i=0; i<num; i++) {
+	for (i=0; i<num; i++) {
-point = __AT_(aPolygon, __MKSMALLINT(i+1));
+	    point = __AT_(aPolygon, __MKSMALLINT(i+1));
-if (! __isPoint(point)) goto fail;
+	    if (! __isPoint(point)) goto fail;
-px = _point_X(point);
+	    px = _point_X(point);
-py = _point_Y(point);
+	    py = _point_Y(point);
-if (! __bothSmallInteger(px, py)) {
+	    if (! __bothSmallInteger(px, py)) {
-goto fail;
+		goto fail;
-}
+	    }
-}
+	}
-hDC = _getDC(gcData);
+	hDC = _getDC(gcData);
-if (! GcDataGetPen(hDC,gcData)) {
+	if (! GcDataGetPen(hDC,gcData)) {
-DPRINTF(("displayPolygon: no pen\n"));
+	    DPRINTF(("displayPolygon: no pen\n"));
-} else {
+	} else {
-for (i=0; i<num; i++) {
+	    for (i=0; i<num; i++) {
-point = __AT_(aPolygon, __MKSMALLINT(i+1));
+		point = __AT_(aPolygon, __MKSMALLINT(i+1));
-px = _point_X(point);
+		px = _point_X(point);
-py = _point_Y(point);
+		py = _point_Y(point);
-p.x = __intVal(px);
+		p.x = __intVal(px);
-p.y = __intVal(py);
+		p.y = __intVal(py);
-if (i == 0) {
+		if (i == 0) {
-MoveToEx(hDC, p.x, p.y, NULL);
+		    MoveToEx(hDC, p.x, p.y, NULL);
-} else {
+		} else {
-if (i == (num-1)) {
+		    if (i == (num-1)) {
-PolylineTo(hDC, &p, 1);
+			PolylineTo(hDC, &p, 1);
-} else {
+		    } else {
-LineTo(hDC, p.x, p.y);
+			LineTo(hDC, p.x, p.y);
 #ifdef PRE_04_JUN_04
-/*
+			/*
-* end-point ...
+			 * end-point ...
-*/
+			 */
-LineTo(hDC, p.x+1, p.y);
+			LineTo(hDC, p.x+1, p.y);
 #endif
-}
+		    }
-}
+		}
-}
+	    }
-GcDataReleasePen(hDC, gcData);
+	    GcDataReleasePen(hDC, gcData);
-}
+	}
 #ifndef CACHE_LAST_DC
-_releaseDC(gcData);
+	_releaseDC(gcData);
 #endif
-RETURN ( self );
+	RETURN ( self );
 }
 fail: ;
 %}
 !
 OBJ point, px, py;
 int i, num;
 if (__isExternalAddress(aGCId)
 && __isSmallInteger(numberOfPoints)) {
-struct gcData *gcData = _GCDATA(aGCId);
+	struct gcData *gcData = _GCDATA(aGCId);
-HDC hDC = 0;
+	HDC hDC = 0;
-POINT p;
+	POINT p;
-num = __intVal(numberOfPoints);
+	num = __intVal(numberOfPoints);
-for (i=0; i<num; i++) {
+	for (i=0; i<num; i++) {
-point = __AT_(aPolyline, __MKSMALLINT(i+1));
+	    point = __AT_(aPolyline, __MKSMALLINT(i+1));
-if (! __isPoint(point)) goto fail;
+	    if (! __isPoint(point)) goto fail;
-px = _point_X(point);
+	    px = _point_X(point);
-py = _point_Y(point);
+	    py = _point_Y(point);
-if (! __bothSmallInteger(px, py)) {
+	    if (! __bothSmallInteger(px, py)) {
-goto fail;
+		goto fail;
-}
+	    }
-}
+	}
-hDC = _getDC(gcData);
+	hDC = _getDC(gcData);
-if (! GcDataGetPen(hDC,gcData)) {
+	if (! GcDataGetPen(hDC,gcData)) {
-DPRINTF(("displayPolygon: no pen\n"));
+	    DPRINTF(("displayPolygon: no pen\n"));
-} else {
+	} else {
-for (i=0; i<num; i++) {
+	    for (i=0; i<num; i++) {
-point = __AT_(aPolyline, __MKSMALLINT(i+1));
+		point = __AT_(aPolyline, __MKSMALLINT(i+1));
-px = _point_X(point);
+		px = _point_X(point);
-py = _point_Y(point);
+		py = _point_Y(point);
-p.x = __intVal(px);
+		p.x = __intVal(px);
-p.y = __intVal(py);
+		p.y = __intVal(py);
-if ((i & 1) == 0) {
+		if ((i & 1) == 0) {
-MoveToEx(hDC, p.x, p.y, NULL);
+		    MoveToEx(hDC, p.x, p.y, NULL);
-} else {
+		} else {
-LineTo(hDC, p.x, p.y);
+		    LineTo(hDC, p.x, p.y);
-/*
+		    /*
-* end-point ...
+		     * end-point ...
-*/
+		     */
-LineTo(hDC, p.x+1, p.y);
+		    LineTo(hDC, p.x+1, p.y);
-}
+		}
-}
+	    }
-GcDataReleasePen(hDC, gcData);
+	    GcDataReleasePen(hDC, gcData);
-}
+	}
 #ifndef CACHE_LAST_DC
-_releaseDC(gcData);
+	_releaseDC(gcData);
 #endif
-RETURN ( self );
+	RETURN ( self );
 }
 fail: ;
 %}
 !
 int w, h;
 int xL, yT;
 if (__isExternalAddress(aGCId)
 && __bothSmallInteger(x, y)
 && __bothSmallInteger(width, height)) {
-struct gcData *gcData = _GCDATA(aGCId);
+	struct gcData *gcData = _GCDATA(aGCId);
-HDC hDC = _getDC(gcData);
+	HDC hDC = _getDC(gcData);
-xL = __intVal(x);
+	xL = __intVal(x);
-yT = __intVal(y);
+	yT = __intVal(y);
-w = __intVal(width);
+	w = __intVal(width);
-h = __intVal(height);
+	h = __intVal(height);
-DDDDPRINTF(("displayRectangle: %d/%d -> %d/%d\n",
+	DDDDPRINTF(("displayRectangle: %d/%d -> %d/%d\n",
-xL, yT, w, h));
+			xL, yT, w, h));
-if ((w >= 0) && (h >= 0)) {
+	if ((w >= 0) && (h >= 0)) {
-if (! GcDataGetPen(hDC,gcData)) {
+	    if (! GcDataGetPen(hDC,gcData)) {
-DPRINTF(("displayRect: no pen\n"));
+		DPRINTF(("displayRect: no pen\n"));
-} else {
+	    } else {
-MoveToEx(hDC, xL, yT, NULL);
+		MoveToEx(hDC, xL, yT, NULL);
 #if 0
-LineTo(hDC, xL+w, yT);     // to top-right
+		LineTo(hDC, xL+w, yT);     // to top-right
-LineTo(hDC, xL+w, yT+h);   // to bot-right
+		LineTo(hDC, xL+w, yT+h);   // to bot-right
-LineTo(hDC, xL, yT+h);     // to bot-left
+		LineTo(hDC, xL, yT+h);     // to bot-left
-LineTo(hDC, xL, yT);       // back to top-left
+		LineTo(hDC, xL, yT);       // back to top-left
 #else
-LineTo(hDC, xL+w, yT);       // to top-right
+		LineTo(hDC, xL+w, yT);       // to top-right
-LineTo(hDC, xL+w, yT+h);     // to bot-right
+		LineTo(hDC, xL+w, yT+h);     // to bot-right
-MoveToEx(hDC, xL, yT, NULL); // back to top-left
+		MoveToEx(hDC, xL, yT, NULL); // back to top-left
-LineTo(hDC, xL, yT+h);       // to bot-left
+		LineTo(hDC, xL, yT+h);       // to bot-left
 #ifndef PRE_31_JAN_03
-LineTo(hDC, xL+w+1, yT+h);   // move pen one pixel more
+		LineTo(hDC, xL+w+1, yT+h);   // move pen one pixel more
 #else
-LineTo(hDC, xL+w, yT+h);     // to bot-right
+		LineTo(hDC, xL+w, yT+h);     // to bot-right
 #endif
 #endif
-GcDataReleasePen(hDC, gcData);
+		GcDataReleasePen(hDC, gcData);
-}
+	    }
-}
+	}
 #ifndef CACHE_LAST_DC
-_releaseDC(gcData);
+	_releaseDC(gcData);
 #endif
-RETURN ( self );
+	RETURN ( self );
 }
 %}
 !
 displayString:aString from:index1 to:index2 x:x y:y in:ignoredDrawableId with:aGCId opaque:opaque
 if (__isExternalAddress(aGCId)
 && __isNonNilObject(aString)
 && __bothSmallInteger(index1, index2)
 && __bothSmallInteger(x, y))
 {
-struct gcData *gcData;
+	struct gcData *gcData;
-int pX, pY;
+	int pX, pY;
-HDC hDC;
+	HDC hDC;
-HFONT hOldFont;
+	HFONT hOldFont;
-i1 = __intVal(index1) - 1;
+	i1 = __intVal(index1) - 1;
-i2 = __intVal(index2) - 1;
+	i2 = __intVal(index2) - 1;
-if ((i1 < 0) || (i2 < i1)) {
+	if ((i1 < 0) || (i2 < i1)) {
-RETURN (self);
+	    RETURN (self);
-}
+	}
-gcData = _GCDATA(aGCId);
+	gcData = _GCDATA(aGCId);
-hDC = _getDC(gcData);
+	hDC = _getDC(gcData);
-pX = __intVal(x);
+	pX = __intVal(x);
-pY = __intVal(y);
+	pY = __intVal(y);
-pY -= gcData->fontAscent;
+	pY -= gcData->fontAscent;
-if (opaque == true) {
+	if (opaque == true) {
-if (gcData->bkMode != BK_OPAQUE) {
+	    if (gcData->bkMode != BK_OPAQUE) {
-SetBkMode(hDC, OPAQUE);
+		SetBkMode(hDC, OPAQUE);
-gcData->bkMode = BK_OPAQUE;
+		gcData->bkMode = BK_OPAQUE;
-}
+	    }
-} else {
+	} else {
-if (gcData->bkMode != BK_TRANSPARENT) {
+	    if (gcData->bkMode != BK_TRANSPARENT) {
-SetBkMode(hDC, TRANSPARENT);
+		SetBkMode(hDC, TRANSPARENT);
-gcData->bkMode = BK_TRANSPARENT;
+		gcData->bkMode = BK_TRANSPARENT;
-}
+	    }
-}
+	}
 #if 0
-/* leftover code from tries to make TextOut honor the gc-mode,
+	/* leftover code from tries to make TextOut honor the gc-mode,
-* until I googled, that TextOut does not (by purpose, or backward-bug compatibility)
+	 * until I googled, that TextOut does not (by purpose, or backward-bug compatibility)
-*/
+	 */
-hOldFont = SelectObject(hDC, gcData->hFont);
+	hOldFont = SelectObject(hDC, gcData->hFont);
-SetTextColor(hDC, gcData->fgColor);
+	SetTextColor(hDC, gcData->fgColor);
-SetBkColor(hDC, gcData->bgColor);
+	SetBkColor(hDC, gcData->bgColor);
 #endif
 #if 0
-GcDataGetPen(hDC, gcData);
+	GcDataGetPen(hDC, gcData);
 #endif
-cls = __qClass(aString);
+	cls = __qClass(aString);
-cp = __stringVal(aString);
+	cp = __stringVal(aString);
-l = i2 - i1 + 1;
+	l = i2 - i1 + 1;
-if (l > 32758) {
+	if (l > 32758) {
-/* Windows (as in XP) limits the string size for TextOut* to 32758 */
+	    /* Windows (as in XP) limits the string size for TextOut* to 32758 */
-l = 32758;
+	    l = 32758;
-}
+	}
-if (__isStringLike(aString)) {
+	if (__isStringLike(aString)) {
-n = __stringSize(aString);
+	    n = __stringSize(aString);
 commonOutChars:
-if (i2 < n) {
+	    if (i2 < n) {
-cp += i1;
+		cp += i1;
-CPRINTF(("string1: %s pos=%d/%d l=%d hDC=%x\n", cp, pX, pY,l,hDC));
+		CPRINTF(("string1: %s pos=%d/%d l=%d hDC=%x\n", cp, pX, pY,l,hDC));
-if (! TextOutA(hDC, pX, pY, (char *)cp, l)) {
+		if (! TextOutA(hDC, pX, pY, (char *)cp, l)) {
-PRINTF(("WinWorkstation [warning]: TextOutA failed. [%d]\n", __LINE__));
+		    PRINTF(("WinWorkstation [warning]: TextOutA failed. [%d]\n", __LINE__));
-PRINTF(("WinWorkstation [warning]: lastError=%d x:%d y:%d len:%d\n", GetLastError(), pX, pY, l));
+		    PRINTF(("WinWorkstation [warning]: lastError=%d x:%d y:%d len:%d\n", GetLastError(), pX, pY, l));
-goto error;
+		    goto error;
-}
+		}
-}
+	    }
-goto ret;
+	    goto ret;
-}
+	}
-nInstBytes = __OBJS2BYTES__(__intVal(__ClassInstPtr(cls)->c_ninstvars));
+	nInstBytes = __OBJS2BYTES__(__intVal(__ClassInstPtr(cls)->c_ninstvars));
-cp += nInstBytes;
+	cp += nInstBytes;
-n = __byteArraySize(aString) - nInstBytes;
+	n = __byteArraySize(aString) - nInstBytes;
-if (__isBytes(aString)) {
+	if (__isBytes(aString)) {
-goto commonOutChars;
+	    goto commonOutChars;
-}
+	}
-/* Unicode */
+	/* Unicode */
-if (__isWords(aString)) {
+	if (__isWords(aString)) {
-n = n / 2;
+	    n = n / 2;
-if (i2 < n) {
+	    if (i2 < n) {
-WIDECHAR *w_cp = (WIDECHAR *)cp;
+		WIDECHAR *w_cp = (WIDECHAR *)cp;
-w_cp += i1;
+		w_cp += i1;
-if (! TextOutW(hDC, pX, pY, w_cp, l)) {
+		if (! TextOutW(hDC, pX, pY, w_cp, l)) {
-PRINTF(("WinWorkstation [warning]: TextOutW failed. [%d]\n", __LINE__));
+		    PRINTF(("WinWorkstation [warning]: TextOutW failed. [%d]\n", __LINE__));
-PRINTF(("WinWorkstation [warning]: lastError=%d x:%d y:%d len:%d\n", GetLastError(), pX, pY, l));
+		    PRINTF(("WinWorkstation [warning]: lastError=%d x:%d y:%d len:%d\n", GetLastError(), pX, pY, l));
-}
+		}
-goto ret;
+		goto ret;
-}
+	    }
-}
+	}
 ret:;
 #if 0
-GcDataReleasePen(hDC, gcData);
+	GcDataReleasePen(hDC, gcData);
 #endif
 #if 0
-SelectObject(hDC, hOldFont);
+	SelectObject(hDC, hOldFont);
 #endif
 #ifndef CACHE_LAST_DC
-_releaseDC(gcData);
+	_releaseDC(gcData);
 #endif
 }
 RETURN (self);
 error: ;;
 %}.
 depth - otherwise, primitive failure will be signalled.
 Also it is assumed, that the colormap is setup correctly and the
 colors are allocated - otherwise the colors may be wrong."
 (self
-primDrawBits:imageBits
+	primDrawBits:imageBits
-bitsPerPixel:bitsPerPixel
+	bitsPerPixel:bitsPerPixel
-depth:imageDepth
+	depth:imageDepth
-width:imageWidth height:imageHeight
+	width:imageWidth height:imageHeight
-x:srcx y:srcy
+	x:srcx y:srcy
-into:ignoredDrawableId
+	into:ignoredDrawableId
-x:dstx y:dsty
+	x:dstx y:dsty
-width:w height:h
+	width:w height:h
-with:aGCId
+	with:aGCId
-parameters:(Array with:nil with:padd with:nil with:nil with:nil)
+	parameters:(Array with:nil with:padd with:nil with:nil with:nil)
-"/ the params array is ONLY used, because there is a 15-argument limit in st/x !!
+	"/ the params array is ONLY used, because there is a 15-argument limit in st/x !!
 ) ifFalse:[
-"
+	"
-also happens, if a segmentation violation occurs in primitive code...
+	 also happens, if a segmentation violation occurs in primitive code...
-"
+	"
-self primitiveFailed
+	self primitiveFailed
 ].
 !
 drawBits:imageBits
 bitsPerPixel:bitsPerPixel
 depth - otherwise, primitive failure will be signalled.
 Also it is assumed, that the colormap is setup correctly and the
 colors are allocated - otherwise the colors may be wrong."
 (self
-primDrawBits:imageBits
+	primDrawBits:imageBits
-bitsPerPixel:bitsPerPixel
+	bitsPerPixel:bitsPerPixel
-depth:imageDepth
+	depth:imageDepth
-width:imageWidth height:imageHeight
+	width:imageWidth height:imageHeight
-x:srcx y:srcy
+	x:srcx y:srcy
-into:ignoredDrawableId
+	into:ignoredDrawableId
-x:dstx y:dsty
+	x:dstx y:dsty
-width:w height:h
+	width:w height:h
-with:aGCId
+	with:aGCId
-parameters:parameters
+	parameters:parameters
-"/ the params array is ONLY used, because there is a 15-argument limit in st/x !!
+	"/ the params array is ONLY used, because there is a 15-argument limit in st/x !!
 ) ifFalse:[
-"
+	"
-also happens, if a segmentation violation occurs in primitive code...
+	 also happens, if a segmentation violation occurs in primitive code...
-"
+	"
-self primitiveFailed
+	self primitiveFailed
 ].
 !
 fillArcX:x y:y width:width height:height from:startAngle angle:angle
-in:ignoredDrawableId with:aGCId
+	       in:ignoredDrawableId with:aGCId
 "fill an arc. If any coordinate is not integer, an error is triggered.
 The angles may be floats or integer - they are given in degrees."
 %{
 int __x, __y, w, h;
 float angle1, angle2;
 if (__isSmallInteger(startAngle))
-angle1 = (float)(__intVal(startAngle));
+	angle1 = (float)(__intVal(startAngle));
 else if (__isFloat(startAngle)) {
-angle1 = __floatVal(startAngle);
+	angle1 = __floatVal(startAngle);
 } else if (__isShortFloat(startAngle)) {
-angle1 = __shortFloatVal(startAngle);
+	angle1 = __shortFloatVal(startAngle);
 } else goto bad;
 if (__isSmallInteger(angle))
-angle2 = (float)(__intVal(angle));
+	angle2 = (float)(__intVal(angle));
 else if (__isFloat(angle)) {
-angle2 = __floatVal(angle);
+	angle2 = __floatVal(angle);
 } else if (__isShortFloat(angle)) {
-angle2 = __shortFloatVal(angle);
+	angle2 = __shortFloatVal(angle);
 } else goto bad;
 if (angle2 <= 0) {
-RETURN (self);
+	RETURN (self);
 }
 if (__isExternalAddress(aGCId)
 && __bothSmallInteger(x, y)
 && __bothSmallInteger(width, height))
 {
-struct gcData *gcData = _GCDATA(aGCId);
+	struct gcData *gcData = _GCDATA(aGCId);
-HDC hDC;
+	HDC hDC;
-HBRUSH hBrush;
+	HBRUSH hBrush;
-HPEN prevPen = 0;
+	HPEN prevPen = 0;
-w = __intVal(width);
+	w = __intVal(width);
-h = __intVal(height);
+	h = __intVal(height);
-__x = __intVal(x);
+	__x = __intVal(x);
-__y = __intVal(y);
+	__y = __intVal(y);
-hDC = _getDC(gcData);
+	hDC = _getDC(gcData);
-hBrush = GcDataGetBrush(hDC, gcData);
+	hBrush = GcDataGetBrush(hDC, gcData);
-if (hBrush == 0) {
+	if (hBrush == 0) {
-DPRINTF(("fillArc: no brush\n"));
+	    DPRINTF(("fillArc: no brush\n"));
-} else {
+	} else {
-HPEN hPen = 0;
+	    HPEN hPen = 0;
 #if 0
-hPen = GcDataGetPen(hDC, gcData);
+	    hPen = GcDataGetPen(hDC, gcData);
-if (hPen == 0) {
+	    if (hPen == 0) {
-DPRINTF(("fillArc: no pen\n"));
+		DPRINTF(("fillArc: no pen\n"));
-goto failpen;
+		goto failpen;
-}
+	    }
 #else
-prevPen = SelectObject(hDC, __nullPen);
+	    prevPen = SelectObject(hDC, __nullPen);
-w++;
+	    w++;
-h++;
+	    h++;
 #endif
-{
+	    {
-double xB, yB, xE, yE, xR, yR;
+		double xB, yB, xE, yE, xR, yR;
-xR = w / 2;
+		xR = w / 2;
-yR = h / 2;
+		yR = h / 2;
-if (angle2 - angle1 >= 360) {
+		if (angle2 - angle1 >= 360) {
-xB = xE = __x + xR + 0.5;
+		    xB = xE = __x + xR + 0.5;
-yB = yE = __y /*+ yR + 0.5*/;
+		    yB = yE = __y /*+ yR + 0.5*/;
-} else {
+		} else {
-double sin(), cos();
+		    double sin(), cos();
-float rad1, rad2;
+		    float rad1, rad2;
-if (angle1 <= 180)
+		    if (angle1 <= 180)
-angle1 = 180 - angle1;
+			angle1 = 180 - angle1;
-else
+		    else
-angle1 = 360 + 180 - angle1;
+			angle1 = 360 + 180 - angle1;
-angle2 = angle1 - angle2;
+		    angle2 = angle1 - angle2;
-/* sigh - compute the intersections ... */
+		    /* sigh - compute the intersections ... */
-rad1 = (angle1 * 3.14159265359) / 180.0;
+		    rad1 = (angle1 * 3.14159265359) / 180.0;
-rad2 = (angle2 * 3.14159265359) / 180.0;
+		    rad2 = (angle2 * 3.14159265359) / 180.0;
-xB = cos(rad1) * xR;
+		    xB = cos(rad1) * xR;
-yB = sin(rad1) * yR;
+		    yB = sin(rad1) * yR;
-xE = cos(rad2) * xR;
+		    xE = cos(rad2) * xR;
-yE = sin(rad2) * yR;
+		    yE = sin(rad2) * yR;
-xB = __x + xR - xB + 0.5;
+		    xB = __x + xR - xB + 0.5;
-yB = __y + yR - yB + 0.5;
+		    yB = __y + yR - yB + 0.5;
-xE = __x + xR - xE + 0.5;
+		    xE = __x + xR - xE + 0.5;
-yE = __y + yR - yE + 0.5;
+		    yE = __y + yR - yE + 0.5;
-}
+		}
-DPRINTF(("fillArc x=%d y=%d w=%d h=%d xB=%d xE=%d yB=%d yE=%d a1=%f a2=%f\n",__x,__y,w,h,(int)xB,(int)xE,(int)yB,(int)yE,angle1,angle2));
+		DPRINTF(("fillArc x=%d y=%d w=%d h=%d xB=%d xE=%d yB=%d yE=%d a1=%f a2=%f\n",__x,__y,w,h,(int)xB,(int)xE,(int)yB,(int)yE,angle1,angle2));
-Pie(hDC,
+		Pie(hDC,
-__x, __y,
+		    __x, __y,
-__x + w + 1, __y + h + 1,
+		    __x + w + 1, __y + h + 1,
-(int)xB, (int)yB,
+		    (int)xB, (int)yB,
-(int)xE, (int)yE);
+		    (int)xE, (int)yE);
-if (hPen) {
+		if (hPen) {
-GcDataReleasePen(hDC, gcData);
+		    GcDataReleasePen(hDC, gcData);
-}
+		}
-}
+	    }
 failpen:
 #ifdef CACHE_LAST_CG
-if (prevPen) SelectObject(hDC, prevPen);
+	    if (prevPen) SelectObject(hDC, prevPen);
 #endif
-GcDataReleaseBrush(hDC, gcData);
+	    GcDataReleaseBrush(hDC, gcData);
-}
+	}
 #ifndef CACHE_LAST_DC
-_releaseDC(gcData);
+	_releaseDC(gcData);
 #endif
-RETURN ( self );
+	RETURN ( self );
 }
 bad: ;
 %}.
 self primitiveFailed
 !
 |numberOfPoints|
 numberOfPoints := aPolygon size.
 self
-primFillPolygon:aPolygon n:numberOfPoints
+	primFillPolygon:aPolygon n:numberOfPoints
-in:ignoredDrawableId with:aGCId
+	in:ignoredDrawableId with:aGCId
 !
 fillRectangleX:x y:y width:width height:height in:ignoredDrawableId with:aGCId
 "fill a rectangle. If any coordinate is not integer, an error is triggered."
 int w, h;
 if (__isExternalAddress(aGCId)
 && __bothSmallInteger(x, y)
 && __bothSmallInteger(width, height)) {
-w = __intVal(width);
+	w = __intVal(width);
-h = __intVal(height);
+	h = __intVal(height);
-if ((w >= 0) && (h >= 0)) {
+	if ((w >= 0) && (h >= 0)) {
-struct gcData *gcData = _GCDATA(aGCId);
+	    struct gcData *gcData = _GCDATA(aGCId);
-HDC hDC;
+	    HDC hDC;
-HBRUSH hBrush;
+	    HBRUSH hBrush;
-RECT rct;
+	    RECT rct;
-hDC = _getDC(gcData);
+	    hDC = _getDC(gcData);
-hBrush = GcDataGetBrush(hDC, gcData);
+	    hBrush = GcDataGetBrush(hDC, gcData);
-if (! hBrush) {
+	    if (! hBrush) {
-PRINTF(("fillRectangle: no brush\n"));
+		PRINTF(("fillRectangle: no brush\n"));
-} else {
+	    } else {
-rct.left = __intVal(x);
+		rct.left = __intVal(x);
-rct.top  = __intVal(y);
+		rct.top  = __intVal(y);
 #ifndef PRE_31_JAN_03
-rct.right  = rct.left + w;
+		rct.right  = rct.left + w;
-rct.bottom = rct.top  + h;
+		rct.bottom = rct.top  + h;
 #else
-rct.right  = rct.left + w + 1;    /* definitiv ! */
+		rct.right  = rct.left + w + 1;    /* definitiv ! */
-rct.bottom = rct.top  + h + 1;
+		rct.bottom = rct.top  + h + 1;
 #endif
-CPRINTF(("fillRectangle:%d.%d -> %d.%d\n",rct.left,rct.top,rct.right,rct.bottom));
+		CPRINTF(("fillRectangle:%d.%d -> %d.%d\n",rct.left,rct.top,rct.right,rct.bottom));
-/*
+		/*
-* for solid draws (without function), can use FillRect,
+		 * for solid draws (without function), can use FillRect,
-* which is faster and does not need a pen.
+		 * which is faster and does not need a pen.
-*/
+		 */
-if ((gcData->rop2 == R2_COPYPEN)
+		if ((gcData->rop2 == R2_COPYPEN)
-&& (gcData->bitbltrop2 == BITBLT_COPY)) {
+		 && (gcData->bitbltrop2 == BITBLT_COPY)) {
-AQUIRE_DRAW_MUTEX
+		    AQUIRE_DRAW_MUTEX
-FillRect(hDC, &rct, hBrush);
+		    FillRect(hDC, &rct, hBrush);
-RELEASE_DRAW_MUTEX
+		    RELEASE_DRAW_MUTEX
-GcDataReleaseBrush(hDC, gcData);
+		    GcDataReleaseBrush(hDC, gcData);
-} else {
+		} else {
-HPEN prevPen;
+		    HPEN prevPen;
-prevPen = SelectObject(hDC, __nullPen);
+		    prevPen = SelectObject(hDC, __nullPen);
 /* sigh - conflict between ST/X's Rectangle and Win32's Rectangle */
 # undef Rectangle
 #ifndef PRE_31_JAN_03
-Rectangle(hDC, rct.left, rct.top, rct.right +1, rct.bottom +1);
+		    Rectangle(hDC, rct.left, rct.top, rct.right +1, rct.bottom +1);
 #else
-Rectangle(hDC, rct.left, rct.top, rct.right, rct.bottom);
+		    Rectangle(hDC, rct.left, rct.top, rct.right, rct.bottom);
 #endif
 # define Rectangle __DEF_Rectangle
-GcDataReleaseBrush(hDC, gcData);
+		    GcDataReleaseBrush(hDC, gcData);
 #ifdef CACHE_LAST_DC
-SelectObject(hDC, prevPen);
+		    SelectObject(hDC, prevPen);
 #endif
-}
+		}
-}
+	    }
 #ifndef CACHE_LAST_DC
-_releaseDC(gcData);
+	    _releaseDC(gcData);
 #endif
-}
+	}
-RETURN ( self );
+	RETURN ( self );
 }
 %}
 !
 primDrawBits:imageBits
 destinationOrigin:dstOrigin
 extent:imageExtent2
 with:aGCId
 (self
-primDrawBits:imageBits
+	primDrawBits:imageBits
-bitsPerPixel:bitsPerPixel
+	bitsPerPixel:bitsPerPixel
-depth:imageDepth
+	depth:imageDepth
-width:imageExtent x height:imageExtent y
+	width:imageExtent x height:imageExtent y
-x:srcOrigin x y:srcOrigin y
+	x:srcOrigin x y:srcOrigin y
-into:ignoredDrawableId
+	into:ignoredDrawableId
-x:dstOrigin x y:dstOrigin y
+	x:dstOrigin x y:dstOrigin y
-width:imageExtent x height:imageExtent y
+	width:imageExtent x height:imageExtent y
-with:aGCId
+	with:aGCId
-parameters:(Array with:nil with:padd with:(maskVector at:1) with:(maskVector at:2) with:(maskVector at:3))
+	parameters:(Array with:nil with:padd with:(maskVector at:1) with:(maskVector at:2) with:(maskVector at:3))
-"/ the params array is ONLY used, because there is a 15-argument limit in st/x !!
+	"/ the params array is ONLY used, because there is a 15-argument limit in st/x !!
-"/   sourceAlphaOrNil := params at:1.
+	"/   sourceAlphaOrNil := params at:1.
-"/   padd := params at:2.
+	"/   padd := params at:2.
-"/   redMask := params at:3.
+	"/   redMask := params at:3.
-"/   greenMask := params at:4.
+	"/   greenMask := params at:4.
-"/   blueMask := params at:5.
+	"/   blueMask := params at:5.
 ) ifFalse:[
-"
+	"
-also happens, if a segmentation violation occurs in primitive code...
+	 also happens, if a segmentation violation occurs in primitive code...
-"
+	"
-self primitiveFailed
+	self primitiveFailed
 ].
 !
 primDrawBits:imageBits
-bitsPerPixel:bitsPerPixel depth:imageDepth
+	bitsPerPixel:bitsPerPixel depth:imageDepth
-width:imageWidth height:imageHeight
+	width:imageWidth height:imageHeight
-x:srcx y:srcy
+	x:srcx y:srcy
-into:ignoredDrawableId
+	into:ignoredDrawableId
-x:dstx y:dsty
+	x:dstx y:dsty
-width:w height:h
+	width:w height:h
-with:aGCId
+	with:aGCId
-parameters:params
+	parameters:params
 |sourceAlphaOrNil padd redMask greenMask blueMask|
 "/ the params array is ONLY used, because there is a 15-argument limit in st/x
 sourceAlphaOrNil := params at:1.
 unsigned char *__imageBits = 0;
 int _sourceAlpha = 0;
 int _doAlphaBlend = 0;
 if (__isByteArray(imageBits)) {
-__imageBits = __ByteArrayInstPtr(imageBits)->ba_element;
+	__imageBits = __ByteArrayInstPtr(imageBits)->ba_element;
 } else if (__isExternalBytesLike(imageBits)) {
-__imageBits = (unsigned char *)(__externalBytesAddress(imageBits));
+	__imageBits = (unsigned char *)(__externalBytesAddress(imageBits));
 }
 if (ISCONNECTED
 && __isExternalAddress(aGCId)
 && __bothSmallInteger(srcx, srcy)
 && __bothSmallInteger(imageWidth, imageHeight)
 && __bothSmallInteger(imageDepth, bitsPerPixel)
 && __isSmallInteger(padd)
 && __imageBits)
 {
-struct
+	struct
-{
+	{
-BITMAPINFOHEADER bmiHeader;
+	  BITMAPINFOHEADER bmiHeader;
-DWORD r;
+	  DWORD r;
-DWORD g;
+	  DWORD g;
-DWORD b;
+	  DWORD b;
-DWORD a;
+	  DWORD a;
-} bitmap;
+	} bitmap;
-int _padd = __intVal(padd);
+	int _padd = __intVal(padd);
-gcData = _GCDATA(aGCId);
+	gcData = _GCDATA(aGCId);
-if (! gcData )
+	if (! gcData )
-goto fail;
+	    goto fail;
-hDC = _getDC(gcData);
+	hDC = _getDC(gcData);
-DDDDPRINTF(("hDC = %x\n", hDC));
+	DDDDPRINTF(("hDC = %x\n", hDC));
-if (_padd != WIN32PADDING) {
+	if (_padd != WIN32PADDING) {
-int row, col;
+	    int row, col;
-unsigned char *cp;
+	    unsigned char *cp;
-unsigned char *pBits;
+	    unsigned char *pBits;
-int b_width, b_height, bytesPerRowST, bytesPerRowWIN, paddingDelta, nBytes;
+	    int b_width, b_height, bytesPerRowST, bytesPerRowWIN, paddingDelta, nBytes;
-int bi = __intVal(bitsPerPixel);
+	    int bi = __intVal(bitsPerPixel);
-b_width = __intVal(imageWidth);
+	    b_width = __intVal(imageWidth);
-b_height = __intVal(imageHeight);
+	    b_height = __intVal(imageHeight);
-bytesPerRowST = (b_width * bi + (_padd-1)) / _padd * (_padd / 8);
+	    bytesPerRowST = (b_width * bi + (_padd-1)) / _padd * (_padd / 8);
-bytesPerRowWIN = (b_width * bi + (WIN32PADDING-1)) / WIN32PADDING * (WIN32PADDING/8);
+	    bytesPerRowWIN = (b_width * bi + (WIN32PADDING-1)) / WIN32PADDING * (WIN32PADDING/8);
-paddingDelta = bytesPerRowWIN - bytesPerRowST;
+	    paddingDelta = bytesPerRowWIN - bytesPerRowST;
-/* console_printf("padd %d bs %d bw %d p %d\n",_padd,bytesPerRowST,bytesPerRowWN,padding); */
+	    /* console_printf("padd %d bs %d bw %d p %d\n",_padd,bytesPerRowST,bytesPerRowWN,padding); */
-if (paddingDelta != 0) {
+	    if (paddingDelta != 0) {
-nBytes = b_height * bytesPerRowWIN;
+		nBytes = b_height * bytesPerRowWIN;
-if (nBytes < sizeof(fastBits)) {
+		if (nBytes < sizeof(fastBits)) {
-cp = b_bits = fastBits;
+		    cp = b_bits = fastBits;
-} else {
+		} else {
-cp = b_bits = allocatedBits = (unsigned char *) malloc(nBytes);
+		    cp = b_bits = allocatedBits = (unsigned char *) malloc(nBytes);
-}
+		}
-if (cp) {
+		if (cp) {
-pBits = __imageBits;
+		    pBits = __imageBits;
-for (row = b_height; row; row--) {
+		    for (row = b_height; row; row--) {
-for (col = bytesPerRowST; col; col--) {
+			for (col = bytesPerRowST; col; col--) {
-*cp++ = *pBits++;
+			    *cp++ = *pBits++;
-}
+			}
-cp += paddingDelta;
+			cp += paddingDelta;
-}
+		    }
-} else
+		} else
-goto fail;
+		    goto fail;
-}
+	    }
-}
+	}
-if (b_bits == 0) {
+	if (b_bits == 0) {
-b_bits = __imageBits;
+	    b_bits = __imageBits;
-}
+	}
-bitmap.bmiHeader.biSize = sizeof(BITMAPINFOHEADER);
+	bitmap.bmiHeader.biSize = sizeof(BITMAPINFOHEADER);
-bitmap.bmiHeader.biPlanes = 1;
+	bitmap.bmiHeader.biPlanes = 1;
-switch (__intVal(imageDepth)) {
+	switch (__intVal(imageDepth)) {
-case 16:
+	    case 16:
-// BI_BITFIELDS is only possible with 16 and 32 bit images
+		// BI_BITFIELDS is only possible with 16 and 32 bit images
-// (see msdn.microoft.com/library/cc250415.aspx)
+		// (see msdn.microoft.com/library/cc250415.aspx)
-// notice the default r/g/b (STX order here)
+		// notice the default r/g/b (STX order here)
-bitmap.bmiHeader.biCompression = BI_BITFIELDS;
+		bitmap.bmiHeader.biCompression = BI_BITFIELDS;
-bitmap.r = redMask == nil ? 0xf800 : __intVal(redMask);
+		bitmap.r = redMask == nil ? 0xf800 : __intVal(redMask);
-bitmap.g = greenMask == nil ? 0x07e0 : __intVal(greenMask);
+		bitmap.g = greenMask == nil ? 0x07e0 : __intVal(greenMask);
-bitmap.b = blueMask == nil ? 0x001f : __intVal(blueMask);
+		bitmap.b = blueMask == nil ? 0x001f : __intVal(blueMask);
-break;
+		break;
-case 24:
+	    case 24:
-// BI_BITFIELDS is only possible with 16 and 32 bit images
+		// BI_BITFIELDS is only possible with 16 and 32 bit images
-// (see msdn.microoft.com/library/cc250415.aspx)
+		// (see msdn.microoft.com/library/cc250415.aspx)
-// notice the default b/g/r (WIN32 order here)
+		// notice the default b/g/r (WIN32 order here)
-bitmap.bmiHeader.biCompression = BI_RGB;
+		bitmap.bmiHeader.biCompression = BI_RGB;
-break;
+		break;
-case 32:
+	    case 32:
-// BI_BITFIELDS is only possible with 16 and 32 bit images
+		// BI_BITFIELDS is only possible with 16 and 32 bit images
-// (see msdn.microoft.com/library/cc250415.aspx)
+		// (see msdn.microoft.com/library/cc250415.aspx)
-// notice the default r/g/b (STX order here)
+		// notice the default r/g/b (STX order here)
-bitmap.bmiHeader.biCompression = BI_BITFIELDS;
+		bitmap.bmiHeader.biCompression = BI_BITFIELDS;
-bitmap.r = redMask == nil ? 0x0000ff : __intVal(redMask);
+		bitmap.r = redMask == nil ? 0x0000ff : __intVal(redMask);
-bitmap.g = greenMask == nil ? 0x00ff00 : __intVal(greenMask);
+		bitmap.g = greenMask == nil ? 0x00ff00 : __intVal(greenMask);
-bitmap.b = blueMask == nil ? 0xff0000 : __intVal(blueMask);
+		bitmap.b = blueMask == nil ? 0xff0000 : __intVal(blueMask);
-bitmap.a = 0xff000000;
+		bitmap.a = 0xff000000;
-break;
+		break;
-}
+	}
-if (sourceAlphaOrNil != nil) {
+	if (sourceAlphaOrNil != nil) {
-DPRINTF(("sourceAlphaOrNil = %x\n", sourceAlphaOrNil));
+	    DPRINTF(("sourceAlphaOrNil = %x\n", sourceAlphaOrNil));
-_sourceAlpha = __intVal(sourceAlphaOrNil);
+	    _sourceAlpha = __intVal(sourceAlphaOrNil);
-_doAlphaBlend = 1;
+	    _doAlphaBlend = 1;
-}
+	}
-bitmap.bmiHeader.biSizeImage = 0;
+	bitmap.bmiHeader.biSizeImage = 0;
-bitmap.bmiHeader.biXPelsPerMeter = 0;
+	bitmap.bmiHeader.biXPelsPerMeter = 0;
-bitmap.bmiHeader.biYPelsPerMeter = 0;
+	bitmap.bmiHeader.biYPelsPerMeter = 0;
-bitmap.bmiHeader.biClrUsed = 0;
+	bitmap.bmiHeader.biClrUsed = 0;
-bitmap.bmiHeader.biClrImportant = 0;
+	bitmap.bmiHeader.biClrImportant = 0;
-bitmap.bmiHeader.biWidth = __intVal(imageWidth);
+	bitmap.bmiHeader.biWidth = __intVal(imageWidth);
-bitmap.bmiHeader.biHeight = -(__intVal(imageHeight));
+	bitmap.bmiHeader.biHeight = -(__intVal(imageHeight));
-bitmap.bmiHeader.biBitCount = __intVal(bitsPerPixel);
+	bitmap.bmiHeader.biBitCount = __intVal(bitsPerPixel);
-DPRINTF(("drawBits depth:%d bitsPerPixel:%d IW%d W:%d H:%d\n",__intVal(imageDepth),bitmap.bmiHeader.biBitCount,bitmap.bmiHeader.biWidth,__intVal(w),bitmap.bmiHeader.biHeight));
+	DPRINTF(("drawBits depth:%d bitsPerPixel:%d IW%d W:%d H:%d\n",__intVal(imageDepth),bitmap.bmiHeader.biBitCount,bitmap.bmiHeader.biWidth,__intVal(w),bitmap.bmiHeader.biHeight));
-if (! _doAlphaBlend) {
+	if (! _doAlphaBlend) {
-// normal draw (no alpha)
+	    // normal draw (no alpha)
-SetDIBitsToDevice(hDC,
+	    SetDIBitsToDevice(hDC,
-__intVal(dstx), __intVal(dsty),
+				__intVal(dstx), __intVal(dsty),
-__intVal(w), __intVal(h),
+				__intVal(w), __intVal(h),
-__intVal(srcx), __intVal(srcy),
+				__intVal(srcx), __intVal(srcy),
-0, __intVal(h),
+				0, __intVal(h),
-(void *)b_bits,
+				(void *)b_bits,
-(BITMAPINFO*)&bitmap,
+				(BITMAPINFO*)&bitmap,
-DIB_RGB_COLORS);
+				DIB_RGB_COLORS);
-} else {
+	} else {
-// alpha blending
+	    // alpha blending
-HDC ahdc;
+	    HDC ahdc;
-HBITMAP ahbitmap;
+	    HBITMAP ahbitmap;
-void *pvBits;
+	    void *pvBits;
-BLENDFUNCTION bf;
+	    BLENDFUNCTION bf;
-static BOOL (__stdcall *P_AlphaBlend)(HDC, int, int, int, int, HDC, int, int, int, int, BLENDFUNCTION );
+	    static BOOL (__stdcall *P_AlphaBlend)(HDC, int, int, int, int, HDC, int, int, int, int, BLENDFUNCTION );
-if (P_AlphaBlend == 0) {
+	    if (P_AlphaBlend == 0) {
-/* as I don't have AlphaBlend in the inport32.lib (bcc sucks),
+		/* as I don't have AlphaBlend in the inport32.lib (bcc sucks),
-* fetch its address dynamically...
+		 * fetch its address dynamically...
-*/
+		 */
-HINSTANCE hWinGDI = LoadLibrary("msimg32.dll");
+		HINSTANCE hWinGDI = LoadLibrary("msimg32.dll");
-if (hWinGDI) {
+		if (hWinGDI) {
-P_AlphaBlend = (BOOL (__stdcall *)(HDC, int, int, int, int, HDC, int, int, int, int, BLENDFUNCTION ))
+		    P_AlphaBlend = (BOOL (__stdcall *)(HDC, int, int, int, int, HDC, int, int, int, int, BLENDFUNCTION ))
-GetProcAddress(hWinGDI, "AlphaBlend");
+					GetProcAddress(hWinGDI, "AlphaBlend");
-}
+		}
-}
+	    }
-if (P_AlphaBlend != 0) {
+	    if (P_AlphaBlend != 0) {
-DPRINTF(("***********************************\n"));
+		DPRINTF(("***********************************\n"));
-DPRINTF(("_sourceAlpha = %d\n", _sourceAlpha));
+		DPRINTF(("_sourceAlpha = %d\n", _sourceAlpha));
-ahdc = CreateCompatibleDC(hDC);
+		ahdc = CreateCompatibleDC(hDC);
-ahbitmap = CreateCompatibleBitmap(hDC, __intVal(imageWidth), __intVal(imageHeight));
+		ahbitmap = CreateCompatibleBitmap(hDC, __intVal(imageWidth), __intVal(imageHeight));
-SelectObject(ahdc, ahbitmap);
+		SelectObject(ahdc, ahbitmap);
-SetDIBitsToDevice(ahdc,
+		SetDIBitsToDevice(ahdc,
-0, 0,    /* dstx, dsty */
+				0, 0,    /* dstx, dsty */
-__intVal(imageWidth), __intVal(imageHeight),
+				__intVal(imageWidth), __intVal(imageHeight),
-__intVal(srcx), __intVal(srcy),
+				__intVal(srcx), __intVal(srcy),
-0, __intVal(imageHeight),
+				0, __intVal(imageHeight),
-(void *)b_bits,
+				(void *)b_bits,
-(BITMAPINFO*)&bitmap,
+				(BITMAPINFO*)&bitmap,
-DIB_RGB_COLORS);
+				DIB_RGB_COLORS);
-bf.BlendOp = AC_SRC_OVER;
+		bf.BlendOp = AC_SRC_OVER;
-bf.BlendFlags = 0;
+		bf.BlendFlags = 0;
-bf.SourceConstantAlpha = _sourceAlpha;
+		bf.SourceConstantAlpha = _sourceAlpha;
-bf.AlphaFormat = AC_SRC_ALPHA;
+		bf.AlphaFormat = AC_SRC_ALPHA;
 #if 1
-(*P_AlphaBlend) (hDC,
+		(*P_AlphaBlend) (hDC,
-__intVal(dstx), __intVal(dsty),
+				__intVal(dstx), __intVal(dsty),
-__intVal(imageWidth), __intVal(imageHeight),
+				__intVal(imageWidth), __intVal(imageHeight),
-ahdc,
+				ahdc,
-0, 0,     /* srcx, srcy */
+				0, 0,     /* srcx, srcy */
-__intVal(imageWidth), __intVal(imageHeight),
+				__intVal(imageWidth), __intVal(imageHeight),
-bf);
+				bf);
 #else
-bf.SourceConstantAlpha = 255-_sourceAlpha;
+		bf.SourceConstantAlpha = 255-_sourceAlpha;
-bf.AlphaFormat = 0;
+		bf.AlphaFormat = 0;
-bf.BlendOp = 0;
+		bf.BlendOp = 0;
-(*P_AlphaBlend) (ahdc,
+		(*P_AlphaBlend) (ahdc,
-0, 0,     /* dstx, dsty */
+				0, 0,     /* dstx, dsty */
-__intVal(imageWidth), __intVal(imageHeight),
+				__intVal(imageWidth), __intVal(imageHeight),
-hDC,
+				hDC,
-__intVal(dstx), __intVal(dsty),   /* srcx, srcy */
+				__intVal(dstx), __intVal(dsty),   /* srcx, srcy */
-__intVal(imageWidth), __intVal(imageHeight),
+				__intVal(imageWidth), __intVal(imageHeight),
-bf);
+				bf);
-BitBlt (hDC,
+		BitBlt (hDC,
-__intVal(dstx), __intVal(dsty),
+				__intVal(dstx), __intVal(dsty),
-__intVal(imageWidth), __intVal(imageHeight),
+				__intVal(imageWidth), __intVal(imageHeight),
-ahdc,
+				ahdc,
-0, 0,   /* srcx, srcy */
+				0, 0,   /* srcx, srcy */
-SRCCOPY);
+				SRCCOPY);
 #endif
-DeleteObject(ahbitmap);
+		DeleteObject(ahbitmap);
-DeleteDC(ahdc);
+		DeleteDC(ahdc);
-}
+	    }
-}
+	}
-if (allocatedBits) {
+	if (allocatedBits) {
-free(allocatedBits);
+	    free(allocatedBits);
-}
+	}
 #ifndef CACHE_LAST_DC
-_releaseDC(gcData);
+	_releaseDC(gcData);
 #endif
-RETURN ( true );
+	RETURN ( true );
 }
 fail: ;
 PRINTF(("create temp bitmap FAILED!!!\n"));
 if (allocatedBits) {
-PRINTF(("freeing up temp bitmap bits ...\n"));
+	PRINTF(("freeing up temp bitmap bits ...\n"));
-free(allocatedBits);
+	free(allocatedBits);
 }
 #ifndef CACHE_LAST_DC
 if (hDC) {
-_releaseDC(gcData);
+	_releaseDC(gcData);
 }
 #endif
 %}
 .
 ^ false
 OBJ point, px, py;
 int i, num;
 if (__isExternalAddress(aGCId)
 && __isSmallInteger(numberOfPoints)) {
-struct gcData *gcData = _GCDATA(aGCId);
+	struct gcData *gcData = _GCDATA(aGCId);
-HDC hDC;
+	HDC hDC;
-POINT p;
+	POINT p;
-HBRUSH hBrush;
+	HBRUSH hBrush;
-num = __intVal(numberOfPoints);
+	num = __intVal(numberOfPoints);
-if (num < 3) {
+	if (num < 3) {
-RETURN ( self );
+	    RETURN ( self );
-}
+	}
-for (i=0; i<num; i++) {
+	for (i=0; i<num; i++) {
-point = __AT_(aPolygon, __MKSMALLINT(i+1));
+	    point = __AT_(aPolygon, __MKSMALLINT(i+1));
-if (! __isPoint(point)) goto fail;
+	    if (! __isPoint(point)) goto fail;
-px = _point_X(point);
+	    px = _point_X(point);
-py = _point_Y(point);
+	    py = _point_Y(point);
-if (! __bothSmallInteger(px, py))
+	    if (! __bothSmallInteger(px, py))
-goto fail;
+		goto fail;
-}
+	}
-hDC = _getDC(gcData);
+	hDC = _getDC(gcData);
-hBrush = GcDataGetBrush(hDC,gcData);
+	hBrush = GcDataGetBrush(hDC,gcData);
-if (hBrush == 0) {
+	if (hBrush == 0) {
-DPRINTF(("fillPolygon: no brush\n"));
+	    DPRINTF(("fillPolygon: no brush\n"));
-} else {
+	} else {
-HPEN prevPen;
+	    HPEN prevPen;
-prevPen = SelectObject(hDC, __nullPen);
+	    prevPen = SelectObject(hDC, __nullPen);
-BeginPath(hDC);
+	    BeginPath(hDC);
-for (i=0; i<num; i++) {
+	    for (i=0; i<num; i++) {
-point = __AT_(aPolygon, __MKSMALLINT(i+1));
+		point = __AT_(aPolygon, __MKSMALLINT(i+1));
-px = _point_X(point);
+		px = _point_X(point);
-py = _point_Y(point);
+		py = _point_Y(point);
-if (i == 0) {
+		if (i == 0) {
-MoveToEx(hDC, __intVal(px), __intVal(py), NULL);
+		    MoveToEx(hDC, __intVal(px), __intVal(py), NULL);
-} else {
+		} else {
-if (i == (num-1)) {
+		    if (i == (num-1)) {
-p.x = __intVal(px);
+			p.x = __intVal(px);
-p.y = __intVal(py);
+			p.y = __intVal(py);
-PolylineTo(hDC, &p, 1);
+			PolylineTo(hDC, &p, 1);
-} else {
+		    } else {
-LineTo(hDC, __intVal(px), __intVal(py));
+			LineTo(hDC, __intVal(px), __intVal(py));
-}
+		    }
-}
+		}
-}
+	    }
-EndPath(hDC);
+	    EndPath(hDC);
-FillPath(hDC);
+	    FillPath(hDC);
-GcDataReleaseBrush(hDC, gcData);
+	    GcDataReleaseBrush(hDC, gcData);
 #ifdef CACHE_LAST_DC
-SelectObject(hDC, prevPen);
+	    SelectObject(hDC, prevPen);
 #endif
-}
+	}
 #ifndef CACHE_LAST_DC
-_releaseDC(gcData);
+	_releaseDC(gcData);
 #endif
-RETURN ( self );
+	RETURN ( self );
 fail: ;
 }
 %}
 ! !
 activate:aBoolean view:aView
 "some view was activated/deactivated.
 For compatibility we send a focus-event to that topView"
 aBoolean ifFalse:[
-activeView == aView ifTrue:[
+	activeView == aView ifTrue:[
-activeView := nil.
+	    activeView := nil.
-].
+	].
-self focusOutView:aView.
+	self focusOutView:aView.
 ] ifTrue:[
-activeView := aView.
+	activeView := aView.
-self focusInView:aView.
+	self focusInView:aView.
 ].
 "Created: / 28.4.1999 / 14:51:51 / cg"
 "Modified: / 28.4.1999 / 15:07:09 / cg"
 !
 configureX:x y:y width:w height:h view:aView
 "forward a configure for some view"
 aView realized ifTrue:[
-super configureX:x y:y width:w height:h view:aView
+	super configureX:x y:y width:w height:h view:aView
 ]
 "Modified: / 08-09-2006 / 19:40:18 / cg"
 !
 copyDataEvent:parameter eventData:dataBytes view:aView
 "forward a copyData event for some view as a client message"
 aView isNil ifTrue:[
-"/ event arrived, after I destroyed it myself
+	"/ event arrived, after I destroyed it myself
-^ self
+	^ self
 ].
 aView sensor
-copyDataEvent:parameter
+	copyDataEvent:parameter
-eventData:dataBytes
+	eventData:dataBytes
-view:aView
+	view:aView
 !
 displayChange
 "the display metrics/settings have changed.
 This is a speciality of windows.
 TODO: Tell the viewStyle to update itself,
-and tell all views to reinit their style.
+	   and tell all views to reinit their style.
 For now,this is ignored, except for updating my metrics."
 self initializeVariableScreenProperties.
 !
 "/    files do:[:f|
 "/        Transcript showCR:('    ', f printString)
 "/    ].
 "/
 view isNil ifTrue:[
-"/ event arrived, after I destroyed it myself
+	"/ event arrived, after I destroyed it myself
-^ self
+	^ self
 ].
 view sensor
-dropFiles:files view:view position:dropPosition handle:dropHandle
+	dropFiles:files view:view position:dropPosition handle:dropHandle
 !
 fontChange
 "the system fonts (users preferences) have changed.
 This is a speciality of windows.
 TODO: Tell the viewStyle to update itself,
-and tell all views to reinit their style.
+	   and tell all views to reinit their style.
 For now,this is ignored."
 IgnoreFontChanges ~~ true ifTrue:[
 "/        'WinWorkstation [info]: fontChange ignored for now.' infoPrintCR
 ]
 and pass that one down (used to be the focus view, but that is inconvenient)."
 |wg screenPoint targetView|
 aView isNil ifTrue:[
-"/ event arrived, after I destroyed it myself
+	"/ event arrived, after I destroyed it myself
-^ self
+	^ self
 ].
 UserPreferences current mouseWheelFocusFollowsMouse ifTrue:[
-screenPoint := self translatePointToRoot:(x@y) fromView:aView.
+	screenPoint := self translatePointToRoot:(x@y) fromView:aView.
-targetView := self viewFromPoint:screenPoint.
+	targetView := self viewFromPoint:screenPoint.
 ].
 (targetView isNil) ifTrue:[
-(wg := aView windowGroup) notNil ifTrue:[
+	(wg := aView windowGroup) notNil ifTrue:[
-targetView := wg focusView.
+	    targetView := wg focusView.
-].
+	].
 ].
 aView sensor
-mouseWheelMotion:buttonState x:x y:y amount:amount deltaTime:dTime
+	mouseWheelMotion:buttonState x:x y:y amount:amount deltaTime:dTime
-view:(targetView ? aView)
+	view:(targetView ? aView)
 "Modified: / 21.5.1999 / 13:05:53 / cg"
 !
 nativeWidgetCommand:commandId view:aView
 (Button, CheckBox etc.)"
 |sensor|
 aView isNil ifTrue:[
-"/ event arrived, after I destroyed it myself
+	"/ event arrived, after I destroyed it myself
-^ self
+	^ self
 ].
 sensor := aView sensor.
 sensor
-nativeWidgetCommand:#'win32nativeWMCommand:'
+	nativeWidgetCommand:#'win32nativeWMCommand:'
-arguments:(Array with:commandId)
+	arguments:(Array with:commandId)
-view:aView
+	view:aView
 !
 queryEndSession
 "system is about to be shut down.
 This is a speciality of windows.
 The argument, aWindow is not used."
 |anyChange|
 IgnoreSysColorChanges ifFalse:[
-"/ first check, if there was really a change of any color that
+	"/ first check, if there was really a change of any color that
-"/ we are interested in
+	"/ we are interested in
-"/ (when exceed is running, we get plenty of those messages ...)
+	"/ (when exceed is running, we get plenty of those messages ...)
-anyChange := false.
+	anyChange := false.
-SystemColorValues synchronized:[
+	SystemColorValues synchronized:[
-SystemColorValues copy keysAndValuesDo:[:eachKey :eachOldColor|
+	    SystemColorValues copy keysAndValuesDo:[:eachKey :eachOldColor|
-|newColor|
+		|newColor|
-newColor := self primGetSystemColor:eachKey.
+		newColor := self primGetSystemColor:eachKey.
-newColor ~= eachOldColor ifTrue:[
+		newColor ~= eachOldColor ifTrue:[
-SystemColorValues at:eachKey put:newColor.
+		    SystemColorValues at:eachKey put:newColor.
-anyChange := true.
+		    anyChange := true.
-].
+		].
-].
+	    ].
-anyChange ifTrue:[
+	    anyChange ifTrue:[
-SimpleView readStyleSheetAndUpdateAllStyleCaches.
+		SimpleView readStyleSheetAndUpdateAllStyleCaches.
-"/ TODO: this should go through the sensor ...
+		"/ TODO: this should go through the sensor ...
-"/ ...and be handled as an event by the views thread.
+		"/ ...and be handled as an event by the views thread.
-self allViewsDo:[:eachView| eachView reinitStyle].
+		self allViewsDo:[:eachView| eachView reinitStyle].
-].
+	    ].
-].
+	].
 ]
 "
-Display systemColorChange:nil
+	Display systemColorChange:nil
 "
 !
 trayAction:eventCode view:aView
 "forward a tray event for some view."
 |sensor message arg|
 aView isNil ifTrue:[
-"/ event arrived, after I destroyed it myself
+	"/ event arrived, after I destroyed it myself
-^ self
+	^ self
 ].
 eventCode == 512 "WM_MOUSEMOVE" ifTrue:[
-"/ mouse motion
+	"/ mouse motion
-message := #trayMouseMotion
+	message := #trayMouseMotion
 ].
 eventCode == 513 "WM_LBUTTONDOWN" ifTrue:[
-"/ left-button-press
+	"/ left-button-press
-message := #trayButtonPress:.
+	message := #trayButtonPress:.
-arg := 1.
+	arg := 1.
 ].
 eventCode == 514 "WM_LBUTTONUP" ifTrue:[
-"/ left-button-release
+	"/ left-button-release
-message := #trayButtonRelease:.
+	message := #trayButtonRelease:.
-arg := 1.
+	arg := 1.
 ].
 eventCode == 515 "WM_LBUTTONDBLCLK" ifTrue:[
-"/ left-button-double-click
+	"/ left-button-double-click
-message := #trayButtonDoubleClick:.
+	message := #trayButtonDoubleClick:.
-arg := 1.
+	arg := 1.
 ].
 eventCode == 516 "WM_RBUTTONDOWN" ifTrue:[
-"/ right-button-press
+	"/ right-button-press
-message := #trayButtonPress:.
+	message := #trayButtonPress:.
-arg := 3.
+	arg := 3.
 ].
 eventCode == 517 "WM_RBUTTONUP" ifTrue:[
-"/ right-button-release
+	"/ right-button-release
-message := #trayButtonRelease:.
+	message := #trayButtonRelease:.
-arg := 3.
+	arg := 3.
 ].
 eventCode == 518 "WM_RBUTTONDBLCLK" ifTrue:[
-"/ left-button-double-click
+	"/ left-button-double-click
-message := #trayButtonDoubleClick:.
+	message := #trayButtonDoubleClick:.
-arg := 3.
+	arg := 3.
 ].
 eventCode == 519 "WM_MBUTTONDOWN" ifTrue:[
-"/ middle-button-press
+	"/ middle-button-press
-message := #trayButtonPress:.
+	message := #trayButtonPress:.
-arg := 2.
+	arg := 2.
 ].
 eventCode == 520 "WM_MBUTTONUP" ifTrue:[
-"/ middle-button-release
+	"/ middle-button-release
-message := #trayButtonRelease:.
+	message := #trayButtonRelease:.
-arg := 2.
+	arg := 2.
 ].
 eventCode == 521 "WM_MBUTTONDBLCLK" ifTrue:[
-"/ middle-button-double-click
+	"/ middle-button-double-click
-message := #trayButtonDoubleClick:.
+	message := #trayButtonDoubleClick:.
-arg := 2.
+	arg := 2.
 ].
 message isNil ifTrue:[
-Transcript showCR:eventCode.
+	Transcript showCR:eventCode.
-^ self.
+	^ self.
 ].
 sensor := aView sensor.
 sensor
-trayAction:message
+	trayAction:message
-arguments:(Array with:arg)
+	arguments:(Array with:arg)
-view:aView
+	view:aView
 "Created: / 31-10-2007 / 00:13:31 / cg"
 "Modified: / 05-11-2007 / 12:14:28 / cg"
 ! !
 win32NativeScroll:scrollCode position:newPos view:aScrollBar
 "native scrollbar widget event."
 aScrollBar isNil ifTrue:[
-"/ event arrived, after I destroyed it myself
+	"/ event arrived, after I destroyed it myself
-^ self
+	^ self
 ].
 self class debugNative ifTrue:[
-'WinWorkstation [info]: native scroll event' infoPrint.
+	'WinWorkstation [info]: native scroll event' infoPrint.
-' code=' infoPrint.
+	    ' code=' infoPrint.
-scrollCode infoPrint.
+	    scrollCode infoPrint.
-' position=' infoPrint.
+	    ' position=' infoPrint.
-newPos infoPrintCR.
+	    newPos infoPrintCR.
 ].
 aScrollBar sensor
-nativeWidgetCommand:#win32NativeScroll:position:
+	nativeWidgetCommand:#win32NativeScroll:position:
-arguments:(Array with:scrollCode with:newPos) view:aScrollBar
+	arguments:(Array with:scrollCode with:newPos) view:aScrollBar
 ! !
 !WinWorkstation methodsFor:'event handling'!
 dispatchEventFor:aViewIdOrNil withMask:eventMask
 If the argument aViewIdOrNil is nil, events for any view are processed,
 otherwise only events for the view with given id are processed.
 If the argument aMask is nonNil, only events for this eventMask are
 handled.
 WARNING: this may block to wait for an event - you better check for a
-pending event before calling this."
+	      pending event before calling this."
 (self getEventFor:aViewIdOrNil withMask:eventMask) ifTrue:[
-AbortOperationRequest handle:[:ex |
+	AbortOperationRequest handle:[:ex |
-ex return
+	    ex return
-] do:[
+	] do:[
-self dispatchLastEvent.
+	    self dispatchLastEvent.
-]
+	]
 ].
 "Modified: 19.8.1997 / 17:10:42 / cg"
 !
 DDDPRINTF(("dispatchLast\n"));
 eB = __INST(eventBuffer);
 if (__isByteArray(eB)) {
-ev = (struct queuedEvent *)(__ByteArrayInstPtr(eB)->ba_element);
+	ev = (struct queuedEvent *)(__ByteArrayInstPtr(eB)->ba_element);
 } else {
-console_fprintf(stderr, "WinWorkstation [error]: no eventBuffer\n");
+	console_fprintf(stderr, "WinWorkstation [error]: no eventBuffer\n");
-RETURN (false);
+	RETURN (false);
 }
 if (ev) {
-_ev_buf = *ev;
+	_ev_buf = *ev;
-ev = &_ev_buf;
+	ev = &_ev_buf;
 }
 hWnd = ev->ev_hWnd;
 if (!(hWnd /*&& IsWindow(hWnd)*/)) {
-DPRINTF(("wrong hWnd in event in dispatchLastEvent\n"));
+	DPRINTF(("wrong hWnd in event in dispatchLastEvent\n"));
-RETURN (false);
+	RETURN (false);
 }
 {
-OBJ t = __INST(lastId);
+	OBJ t = __INST(lastId);
-/*
+	/*
-* very often, its another event for the same view ...
+	 * very often, its another event for the same view ...
-* avoid creation & lookup then.
+	 * avoid creation & lookup then.
-*/
+	 */
-if (__isExternalAddress(t) && _HWNDVal(t) == hWnd) {
+	if (__isExternalAddress(t) && _HWNDVal(t) == hWnd) {
-theView = __INST(lastView);
+	    theView = __INST(lastView);
-if (__isNonNilObject(theView) && __qClass(theView) == nil) {
+	    if (__isNonNilObject(theView) && __qClass(theView) == nil) {
-theView = nil;
+		theView = nil;
-}
+	    }
-}
+	}
-if (theView == nil) {
+	if (theView == nil) {
-windowID = __MKOBJ(ev->ev_hWnd);
+	    windowID = __MKOBJ(ev->ev_hWnd);
-theView = (*vid.ilc_func)(self, @symbol(viewFromId:), nil, &vid, windowID);
+	    theView = (*vid.ilc_func)(self, @symbol(viewFromId:), nil, &vid, windowID);
-}
+	}
 }
 if (theView == nil) {
-DPRINTF(("nil view [hWnd=%x msg=0x%x] in dispatchEvent\n",
+	DPRINTF(("nil view [hWnd=%x msg=0x%x] in dispatchEvent\n",
-ev->ev_hWnd, ev->ev_message));
+		 ev->ev_hWnd, ev->ev_message));
-RETURN (false);
+	RETURN (false);
 }
 switch (ev->ev_message) {
-DPRINTFIF((__debug_WM_ALL__) , ("message=%d 0x%x wparam=%"_lx_" hwnd=%"_lx_" arg1=%"_lx_")\n",
+	    DPRINTFIF((__debug_WM_ALL__) , ("message=%d 0x%x wparam=%"_lx_" hwnd=%"_lx_" arg1=%"_lx_")\n",
-ev->ev_message, ev->ev_message, (INT)(ev->ev_wParam), (INT)(ev->ev_hWnd), (INT)(ev->ev_arg1)));
+			ev->ev_message, ev->ev_message, (INT)(ev->ev_wParam), (INT)(ev->ev_hWnd), (INT)(ev->ev_arg1)));
-case WM_WINDOWPOSCHANGED:
+	    case WM_WINDOWPOSCHANGED:
-{
+		{
-RECT rct;
+		    RECT rct;
-x = ev->ev_x;
+		    x = ev->ev_x;
-y = ev->ev_y;
+		    y = ev->ev_y;
-w = ev->ev_w;
+		    w = ev->ev_w;
-h = ev->ev_h;
+		    h = ev->ev_h;
-DPRINTF((">>> WM_WINDOWPOSCHANGED -> configure %d/%d , %d/%d\n", x,y,w,h));
+		    DPRINTF((">>> WM_WINDOWPOSCHANGED -> configure %d/%d , %d/%d\n", x,y,w,h));
-(*conf.ilc_func)(self,
+		    (*conf.ilc_func)(self,
-@symbol(configureX:y:width:height:view:),
+				     @symbol(configureX:y:width:height:view:),
-nil, &conf,
+				     nil, &conf,
-__MKSMALLINT(x),
+				     __MKSMALLINT(x),
-__MKSMALLINT(y),
+				     __MKSMALLINT(y),
-__MKSMALLINT(w),
+				     __MKSMALLINT(w),
-__MKSMALLINT(h),
+				     __MKSMALLINT(h),
-theView);
+				     theView);
-}
+		}
-break;
+		break;
-case WM_DROPFILES:
+	    case WM_DROPFILES:
-{
+		{
-HDROP hDrop = (HDROP) ev->ev_wParam;
+		    HDROP hDrop = (HDROP) ev->ev_wParam;
-int   count = DragQueryFile( hDrop,0xffffffff,0,0 );
+		    int   count = DragQueryFile( hDrop,0xffffffff,0,0 );
-DPRINTFIF((__debug_WM_DROPFILES__ | __debug_WM_ALL__) , ("count=%d hDrop=%x\n", count, hDrop));
+		    DPRINTFIF((__debug_WM_DROPFILES__ | __debug_WM_ALL__) , ("count=%d hDrop=%x\n", count, hDrop));
-if (count > 0) {
+		    if (count > 0) {
-OBJ  dropHandle, files, position;
+			OBJ  dropHandle, files, position;
-char buf[MAXPATH];
+			char buf[MAXPATH];
-int  i;
+			int  i;
-dropHandle = __MKOBJ(hDrop);
+			dropHandle = __MKOBJ(hDrop);
-__PROTECT__(dropHandle);
+			__PROTECT__(dropHandle);
-files = __ARRAY_NEW_INT( count );
+			files = __ARRAY_NEW_INT( count );
-__UNPROTECT__(dropHandle);
+			__UNPROTECT__(dropHandle);
-for (i = 0;i < count;i++) {
+			for (i = 0;i < count;i++) {
-OBJ s;
+			    OBJ s;
-DragQueryFile(hDrop,i,buf,sizeof(buf));
+			    DragQueryFile(hDrop,i,buf,sizeof(buf));
-__PROTECT__(dropHandle);
+			    __PROTECT__(dropHandle);
-__PROTECT__(files);
+			    __PROTECT__(files);
-s = __MKSTRING(buf);
+			    s = __MKSTRING(buf);
-__UNPROTECT__(files);
+			    __UNPROTECT__(files);
-__UNPROTECT__(dropHandle);
+			    __UNPROTECT__(dropHandle);
-__ArrayInstPtr(files)->a_element[i] = s; __STORE(files, s);
+			    __ArrayInstPtr(files)->a_element[i] = s; __STORE(files, s);
-}
+			}
-{
+			{
-POINT pos;
+			    POINT pos;
-DragQueryPoint(hDrop, &pos);
+			    DragQueryPoint(hDrop, &pos);
-__PROTECT__(dropHandle);
+			    __PROTECT__(dropHandle);
-__PROTECT__(files);
+			    __PROTECT__(files);
-position = __MKPOINT_INT(pos.x, pos.y);
+			    position = __MKPOINT_INT(pos.x, pos.y);
-__UNPROTECT__(files);
+			    __UNPROTECT__(files);
-__UNPROTECT__(dropHandle);
+			    __UNPROTECT__(dropHandle);
-}
+			}
-(*dropFiles.ilc_func)
+			(*dropFiles.ilc_func)
-( self
+			    ( self
-, @symbol(dropFiles:view:position:handle:)
+			      , @symbol(dropFiles:view:position:handle:)
-, nil, &dropFiles,
+			      , nil, &dropFiles,
-files, theView, position, dropHandle
+			      files, theView, position, dropHandle
-);
+			    );
-}
+		    }
-}
+		}
-break;
+		break;
-case WM_SHOWWINDOW:
+	    case WM_SHOWWINDOW:
-if (ev->ev_wParam == TRUE) {
+		if (ev->ev_wParam == TRUE) {
-DPRINTF((">>> WM_SHOWWINDOW -> mappedView:\n"));
+		    DPRINTF((">>> WM_SHOWWINDOW -> mappedView:\n"));
-arg = @symbol(unobscured);
+		    arg = @symbol(unobscured);
-(*vis.ilc_func)(theView,
+		    (*vis.ilc_func)(theView,
-@symbol(visibilityChange:),
+				    @symbol(visibilityChange:),
-nil, &vis, arg);
+				    nil, &vis, arg);
-(*map.ilc_func)(self,
+		    (*map.ilc_func)(self,
-@symbol(mappedView:),
+				    @symbol(mappedView:),
-nil, &map, theView);
+				    nil, &map, theView);
-} else {
+		} else {
-DPRINTF((">>> WM_SHOWWINDOW -> unMappedView:\n"));
+		    DPRINTF((">>> WM_SHOWWINDOW -> unMappedView:\n"));
 #if 0
-arg = @symbol(fullyObscured);
+		    arg = @symbol(fullyObscured);
-(*vis.ilc_func)(theView,
+		    (*vis.ilc_func)(theView,
-@symbol(visibilityChange:),
+				    @symbol(visibilityChange:),
-nil, &vis, arg);
+				    nil, &vis, arg);
 #endif
-(*unmap.ilc_func)(self,
+		    (*unmap.ilc_func)(self,
-@symbol(unmappedView:),
+				      @symbol(unmappedView:),
-nil, &unmap, theView);
+				      nil, &unmap, theView);
-}
+		}
-break;
+		break;
-case __WM_ICONIFIED:
+	    case __WM_ICONIFIED:
-if (ev->ev_wParam) {
+		if (ev->ev_wParam) {
-DPRINTF((">>> __WM_ICONIFIED -> unMappedView:\n"));
+		    DPRINTF((">>> __WM_ICONIFIED -> unMappedView:\n"));
 #if 0
-arg = @symbol(fullyObscured);
+		    arg = @symbol(fullyObscured);
-(*vis.ilc_func)(theView,
+		    (*vis.ilc_func)(theView,
-@symbol(visibilityChange:),
+				    @symbol(visibilityChange:),
-nil, &vis, arg);
+				    nil, &vis, arg);
 #endif
-(*unmap.ilc_func)(self,
+		    (*unmap.ilc_func)(self,
-@symbol(unmappedView:),
+				      @symbol(unmappedView:),
-nil, &unmap, theView);
+				      nil, &unmap, theView);
-} else {
+		} else {
-DPRINTF((">>> __WM_DEICONIFIED -> mappedView:\n"));
+		    DPRINTF((">>> __WM_DEICONIFIED -> mappedView:\n"));
-arg = @symbol(unobscured);
+		    arg = @symbol(unobscured);
-(*vis.ilc_func)(theView,
+		    (*vis.ilc_func)(theView,
-@symbol(visibilityChange:),
+				    @symbol(visibilityChange:),
-nil, &vis, arg);
+				    nil, &vis, arg);
-(*map.ilc_func)(self,
+		    (*map.ilc_func)(self,
-@symbol(mappedView:),
+				    @symbol(mappedView:),
-nil, &map, theView);
+				    nil, &map, theView);
-}
+		}
-break;
+		break;
-case WM_CLOSE:
+	    case WM_CLOSE:
-DPRINTF((">>> WM_CLOSE -> terminateView:\n"));
+		DPRINTF((">>> WM_CLOSE -> terminateView:\n"));
-(*termS.ilc_func)(self,
+		(*termS.ilc_func)(self,
-@symbol(terminateView:),
+				  @symbol(terminateView:),
-nil, &termS, theView);
+				  nil, &termS, theView);
-break;
+		break;
-case WM_DESTROY:
+	    case WM_DESTROY:
-DPRINTF((">>> WM_DESTROY -> destroyedView\n"));
+		DPRINTF((">>> WM_DESTROY -> destroyedView\n"));
-(*destr.ilc_func)(self,
+		(*destr.ilc_func)(self,
-@symbol(destroyedView:),
+				  @symbol(destroyedView:),
-nil, &destr, theView);
+				  nil, &destr, theView);
-break;
+		break;
-case WM_ACTIVATE:
+	    case WM_ACTIVATE:
-switch (LOWORD(ev->ev_wParam)) {
+		switch (LOWORD(ev->ev_wParam)) {
-case WA_INACTIVE:
+		    case WA_INACTIVE:
-DPRINTF((">>> WM_ACTIVATE inactive h=%x\n", ev->ev_hWnd));
+			DPRINTF((">>> WM_ACTIVATE inactive h=%x\n", ev->ev_hWnd));
-(*act.ilc_func)(self,
+			(*act.ilc_func)(self,
-@symbol(activate:view:),
+					@symbol(activate:view:),
-nil, &act,
+					nil, &act,
-false, theView);
+					false, theView);
-break;
+			break;
-case WA_ACTIVE:
+		    case WA_ACTIVE:
-case WA_CLICKACTIVE:
+		    case WA_CLICKACTIVE:
-DPRINTF((">>> WM_ACTIVATE active h=%x\n", ev->ev_hWnd));
+			DPRINTF((">>> WM_ACTIVATE active h=%x\n", ev->ev_hWnd));
-(*act.ilc_func)(self,
+			(*act.ilc_func)(self,
-@symbol(activate:view:),
+					@symbol(activate:view:),
-nil, &act,
+					nil, &act,
-true, theView);
+					true, theView);
-break;
+			break;
-default:
+		    default:
-break;
+			break;
-}
+		}
-break;
+		break;
-case WM_MOUSEACTIVATE:
+	    case WM_MOUSEACTIVATE:
-if (__debug_WM_MOUSEACTIVATE__ | __debug_WM_ALL__) {
+		if (__debug_WM_MOUSEACTIVATE__ | __debug_WM_ALL__) {
-PRINTF((">>> WM_MOUSEACTIVATE h=%x -> focusInView:\n", ev->ev_hWnd));
+		    PRINTF((">>> WM_MOUSEACTIVATE h=%x -> focusInView:\n", ev->ev_hWnd));
-}
+		}
-(*focIn.ilc_func)(self,
+		(*focIn.ilc_func)(self,
-@symbol(focusInView:),
+				  @symbol(focusInView:),
-nil, &focIn, theView);
+				  nil, &focIn, theView);
-break;
+		break;
-case WM_SETFOCUS:
+	    case WM_SETFOCUS:
-DPRINTFIF(__debug_WM_FOCUS__ , (">>> WM_SETFOCUS h=%x -> focusInView:\n", ev->ev_hWnd));
+		DPRINTFIF(__debug_WM_FOCUS__ , (">>> WM_SETFOCUS h=%x -> focusInView:\n", ev->ev_hWnd));
-(*focIn.ilc_func)(self,
+		(*focIn.ilc_func)(self,
-@symbol(focusInView:),
+				  @symbol(focusInView:),
-nil, &focIn, theView);
+				  nil, &focIn, theView);
-break;
+		break;
-case WM_KILLFOCUS:
+	    case WM_KILLFOCUS:
-DPRINTFIF(__debug_WM_FOCUS__ , (">>> WM_KILLFOCUS h=%x -> focusOutOfView\n", ev->ev_hWnd));
+		DPRINTFIF(__debug_WM_FOCUS__ , (">>> WM_KILLFOCUS h=%x -> focusOutOfView\n", ev->ev_hWnd));
-(*focOut.ilc_func)(self,
+		(*focOut.ilc_func)(self,
-@symbol(focusOutView:),
+				   @symbol(focusOutView:),
-nil, &focOut, theView);
+				   nil, &focOut, theView);
-break;
+		break;
-case __WM_GEXPOSE:
+	    case __WM_GEXPOSE:
-x = ev->ev_x;
+		x = ev->ev_x;
-y = ev->ev_y;
+		y = ev->ev_y;
-w = ev->ev_w;
+		w = ev->ev_w;
-h = ev->ev_h;
+		h = ev->ev_h;
-DPRINTF((">>> __WM_GEXPOSE -> gExpose %d/%d -> %d/%d\n", x, y, w, h));
+		DPRINTF((">>> __WM_GEXPOSE -> gExpose %d/%d -> %d/%d\n", x, y, w, h));
 #if 0
-if (GetWindow_unmapping(hWnd)) {
+		if (GetWindow_unmapping(hWnd)) {
-console_fprintf(stderr, "oops - __WM_GEXPOSE for unmapping\n");
+		    console_fprintf(stderr, "oops - __WM_GEXPOSE for unmapping\n");
-}
+		}
 #endif
-(*gexpS.ilc_func)(self,
+		(*gexpS.ilc_func)(self,
-@symbol(graphicsExposeX:y:width:height:final:view:),
+				  @symbol(graphicsExposeX:y:width:height:final:view:),
-nil, &gexpS,
+				  nil, &gexpS,
-__MKSMALLINT(x),
+				  __MKSMALLINT(x),
-__MKSMALLINT(y),
+				  __MKSMALLINT(y),
-__MKSMALLINT(w),
+				  __MKSMALLINT(w),
-__MKSMALLINT(h),
+				  __MKSMALLINT(h),
-ev->ev_wParam ? true : false,
+				  ev->ev_wParam ? true : false,
-theView);
+				  theView);
-break;
+		break;
-case __WM_NOGEXPOSE:
+	    case __WM_NOGEXPOSE:
-DPRINTFIF((__debug_WM_EXPOSE__ | __debug_WM_ALL__), (">>> __WM_NOGEXPOSE -> noExpose\n"));
+		DPRINTFIF((__debug_WM_EXPOSE__ | __debug_WM_ALL__), (">>> __WM_NOGEXPOSE -> noExpose\n"));
 #if 0
-if (GetWindow_unmapping(hWnd)) {
+		if (GetWindow_unmapping(hWnd)) {
-console_fprintf(stderr, "oops - __WM_NOGEXPOSE for unmapping\n");
+		    console_fprintf(stderr, "oops - __WM_NOGEXPOSE for unmapping\n");
-}
+		}
 #endif
-(*nexpS.ilc_func)(self,
+		 (*nexpS.ilc_func)(self,
-@symbol(noExposeView:), nil, &nexpS,
+				   @symbol(noExposeView:), nil, &nexpS,
-theView);
+				   theView);
-break;
+		break;
 # ifdef LATE_GENERATE_EXPOSE
-case __WM_PAINT:
+	    case __WM_PAINT:
-{
+		{
-PAINTSTRUCT ps;
+		    PAINTSTRUCT ps;
-AQUIRE_DRAW_MUTEX
+		    AQUIRE_DRAW_MUTEX
-__generateExposes(hWnd, NULL, WM_PAINT, 0);
+		    __generateExposes(hWnd, NULL, WM_PAINT, 0);
-RELEASE_DRAW_MUTEX
+		    RELEASE_DRAW_MUTEX
 # if 0
-BeginPaint(hWnd, &ps);
+		    BeginPaint(hWnd, &ps);
-EndPaint(hWnd, &ps);
+		    EndPaint(hWnd, &ps);
 # endif
-}
+		}
-break;
+		break;
 # endif
-case WM_PAINT:
+	    case WM_PAINT:
-x = ev->ev_x;
+		x = ev->ev_x;
-y = ev->ev_y;
+		y = ev->ev_y;
-w = ev->ev_w;
+		w = ev->ev_w;
-h = ev->ev_h;
+		h = ev->ev_h;
 #if 0
-if (GetWindow_unmapping(hWnd)) {
+		if (GetWindow_unmapping(hWnd)) {
-console_fprintf(stderr, "oops - WM_PAINT for unmapping\n");
+		    console_fprintf(stderr, "oops - WM_PAINT for unmapping\n");
-}
+		}
 #endif
 #ifndef PRE_21_NOV
-__clearWindow(hWnd, x, y, w, h);
+		__clearWindow(hWnd, x, y, w, h);
 #else
 # if WM_PAINT_CLEAR_LATE
-__clearWindow(hWnd, x, y, w, h);
+		__clearWindow(hWnd, x, y, w, h);
 # endif
 #endif
 #ifdef DEBUG_COLORIZE_WM_PAINT_RECTS2
-{
+		{
-HDC hDC;
+		    HDC hDC;
-HBRUSH hBrush;
+		    HBRUSH hBrush;
-RECT rect;
+		    RECT rect;
-hBrush = CreateSolidBrush(BlackPixel);
+		    hBrush = CreateSolidBrush(BlackPixel);
-hDC = GetWindowDC(hWnd);
+		    hDC = GetWindowDC(hWnd);
-SelectClipRgn(hDC, NULL);
+		    SelectClipRgn(hDC, NULL);
-rect.left = x;
+		    rect.left = x;
-rect.top = y;
+		    rect.top = y;
-rect.right = x+w;
+		    rect.right = x+w;
-rect.bottom = y+h;
+		    rect.bottom = y+h;
-FillRect(hDC, &rect, hBrush);
+		    FillRect(hDC, &rect, hBrush);
-_DeleteBrush(hBrush, __LINE__);
+		    _DeleteBrush(hBrush, __LINE__);
-ReleaseDC(hWnd, hDC);
+		    ReleaseDC(hWnd, hDC);
-}
+		}
 #endif
-if (__debug_WM_PAINT__ | __debug_WM_ALL__) {
+		if (__debug_WM_PAINT__ | __debug_WM_ALL__) {
-PRINTF((">>> WM_PAINT -> expose %d/%d -> %d/%d\n", x, y, w, h));
+		    PRINTF((">>> WM_PAINT -> expose %d/%d -> %d/%d\n", x, y, w, h));
-}
+		}
-(*exp.ilc_func)(self,
+		(*exp.ilc_func)(self,
-@symbol(exposeX:y:width:height:view:),
+			 @symbol(exposeX:y:width:height:view:),
-nil, &exp,
+			 nil, &exp,
-__MKSMALLINT(x),
+			 __MKSMALLINT(x),
-__MKSMALLINT(y),
+			 __MKSMALLINT(y),
-__MKSMALLINT(w),
+			 __MKSMALLINT(w),
-__MKSMALLINT(h),
+			 __MKSMALLINT(h),
-theView);
+			 theView);
-break;
+		break;
-case WM_LBUTTONDBLCLK:
+	    case WM_LBUTTONDBLCLK:
-isDoubleClick = 1;
+		isDoubleClick = 1;
-butt = __MKSMALLINT(Button1);
+		butt = __MKSMALLINT(Button1);
-goto commonButton;
+		goto commonButton;
-case WM_LBUTTONUP:
+	    case WM_LBUTTONUP:
-isDown = 0;
+		isDown = 0;
-butt = __MKSMALLINT(Button1);
+		butt = __MKSMALLINT(Button1);
-goto commonButton;
+		goto commonButton;
-case WM_LBUTTONDOWN:
+	    case WM_LBUTTONDOWN:
-butt = __MKSMALLINT(Button1);
+		butt = __MKSMALLINT(Button1);
-goto commonButton;
+		goto commonButton;
-case WM_MBUTTONDBLCLK:
+	    case WM_MBUTTONDBLCLK:
-isDoubleClick = 1;
+		isDoubleClick = 1;
-butt = __MKSMALLINT(Button2);
+		butt = __MKSMALLINT(Button2);
-goto commonButton;
+		goto commonButton;
-case WM_MBUTTONUP:
+	    case WM_MBUTTONUP:
-isDown = 0;
+		isDown = 0;
-butt = __MKSMALLINT(Button2);
+		butt = __MKSMALLINT(Button2);
-goto commonButton;
+		goto commonButton;
-case WM_MBUTTONDOWN:
+	    case WM_MBUTTONDOWN:
-butt = __MKSMALLINT(Button2);
+		butt = __MKSMALLINT(Button2);
-goto commonButton;
+		goto commonButton;
-case WM_RBUTTONDBLCLK:
+	    case WM_RBUTTONDBLCLK:
-isDoubleClick = 1;
+		isDoubleClick = 1;
-butt = __MKSMALLINT(Button3);
+		butt = __MKSMALLINT(Button3);
-goto commonButton;
+		goto commonButton;
-case WM_RBUTTONUP:
+	    case WM_RBUTTONUP:
-isDown = 0;
+		isDown = 0;
-butt = __MKSMALLINT(Button3);
+		butt = __MKSMALLINT(Button3);
-goto commonButton;
+		goto commonButton;
-case WM_RBUTTONDOWN:
+	    case WM_RBUTTONDOWN:
-butt = __MKSMALLINT(Button3);
+		butt = __MKSMALLINT(Button3);
-goto commonButton;
+		goto commonButton;
-commonButton:
+	    commonButton:
-x = ev->ev_x;
+		x = ev->ev_x;
-y = ev->ev_y;
+		y = ev->ev_y;
-modifiers = ev->ev_modifiers;
+		modifiers = ev->ev_modifiers;
-if (__INST(buttonTranslation) != nil) {
+		if (__INST(buttonTranslation) != nil) {
-butt = __AT_(__INST(buttonTranslation), butt);
+		    butt = __AT_(__INST(buttonTranslation), butt);
-}
+		}
-arg = butt;
+		arg = butt;
-__INST(altDown) = (modifiers & AltMask) ? true : false;
+		__INST(altDown) = (modifiers & AltMask) ? true : false;
-__INST(metaDown) = (modifiers & MetaMask) ? true : false;
+		__INST(metaDown) = (modifiers & MetaMask) ? true : false;
-__INST(shiftDown) = (modifiers & ShiftMask) ? true : false;
+		__INST(shiftDown) = (modifiers & ShiftMask) ? true : false;
-__INST(ctrlDown) = (modifiers & ControlMask) ? true : false;
+		__INST(ctrlDown) = (modifiers & ControlMask) ? true : false;
-if (deltaDoubleClickX == -999) {
+		if (deltaDoubleClickX == -999) {
-deltaDoubleClickX = GetSystemMetrics(SM_CXDOUBLECLK);
+		    deltaDoubleClickX = GetSystemMetrics(SM_CXDOUBLECLK);
-deltaDoubleClickY = GetSystemMetrics(SM_CYDOUBLECLK);
+		    deltaDoubleClickY = GetSystemMetrics(SM_CYDOUBLECLK);
-}
+		}
-if (isDoubleClick) {
+		if (isDoubleClick) {
-multiClickCount = 2;
+		    multiClickCount = 2;
-ipS = &bmp;
+		    ipS = &bmp;
-symS = @symbol(buttonMultiPress:x:y:view:);
+		    symS = @symbol(buttonMultiPress:x:y:view:);
-nextMultiClickTime = ev->ev_time + __intVal(__INST(multiClickTimeDelta));
+		    nextMultiClickTime = ev->ev_time + __intVal(__INST(multiClickTimeDelta));
-} else {
+		} else {
-if (isDown) {
+		    if (isDown) {
-if (multiClickCount
+			if (multiClickCount
-&& (ev->ev_time < nextMultiClickTime)
+			 && (ev->ev_time < nextMultiClickTime)
-&& (butt == lastButton)
+			 && (butt == lastButton)
-&& (x >= (lastClickX - (deltaDoubleClickX / 2)))
+			 && (x >= (lastClickX - (deltaDoubleClickX / 2)))
-&& (x <= (lastClickX + (deltaDoubleClickX / 2)))
+			 && (x <= (lastClickX + (deltaDoubleClickX / 2)))
-&& (y >= (lastClickY - (deltaDoubleClickY / 2)))
+			 && (y >= (lastClickY - (deltaDoubleClickY / 2)))
-&& (y <= (lastClickY + (deltaDoubleClickY / 2)))
+			 && (y <= (lastClickY + (deltaDoubleClickY / 2)))
-) {
+			) {
-ipS = &bmp;
+			    ipS = &bmp;
-symS = @symbol(buttonMultiPress:x:y:view:);
+			    symS = @symbol(buttonMultiPress:x:y:view:);
-} else {
+			} else {
-ipS = &bp;
+			    ipS = &bp;
-symS = @symbol(buttonPress:x:y:view:);
+			    symS = @symbol(buttonPress:x:y:view:);
-multiClickCount = 0;
+			    multiClickCount = 0;
-}
+			}
-multiClickCount = multiClickCount + 1;
+			multiClickCount = multiClickCount + 1;
-nextMultiClickTime = ev->ev_time + __intVal(__INST(multiClickTimeDelta));
+			nextMultiClickTime = ev->ev_time + __intVal(__INST(multiClickTimeDelta));
-} else {
+		    } else {
-ipS = &br;
+			ipS = &br;
-symS = @symbol(buttonRelease:x:y:view:);
+			symS = @symbol(buttonRelease:x:y:view:);
-}
+		    }
-}
+		}
-if (isDown || isDoubleClick) {
+		if (isDown || isDoubleClick) {
-lastClickX = x;
+		    lastClickX = x;
-lastClickY = y;
+		    lastClickY = y;
-lastButton = butt;
+		    lastButton = butt;
-}
+		}
-if (__debug_WM_BUTTONUP__ | __debug_WM_BUTTONDOWN__ | __debug_WM_ALL__) {
+		if (__debug_WM_BUTTONUP__ | __debug_WM_BUTTONDOWN__ | __debug_WM_ALL__) {
-if (__isSymbol(arg)) {
+		    if (__isSymbol(arg)) {
-PRINTF(("buttonPress/buttonRelease: %s %d/%d\n",
+			PRINTF(("buttonPress/buttonRelease: %s %d/%d\n",
-__stringVal(arg), x, y));
+				    __stringVal(arg), x, y));
-} else {
+		    } else {
-PRINTF(("buttonPress/buttonRelease: %d %d/%d\n",
+			PRINTF(("buttonPress/buttonRelease: %d %d/%d\n",
-__intVal(arg), x, y));
+				    __intVal(arg), x, y));
-}
+		    }
-}
+		}
-(*(*ipS).ilc_func)(self, symS, nil, ipS,
+		(*(*ipS).ilc_func)(self, symS, nil, ipS,
-arg,
+				   arg,
-__MKSMALLINT(x),
+				   __MKSMALLINT(x),
-__MKSMALLINT(y),
+				   __MKSMALLINT(y),
-theView);
+				   theView);
-break;
+		break;
-case __WM_MOUSEENTER:
+	    case __WM_MOUSEENTER:
-x = ev->ev_x;
+		x = ev->ev_x;
-y = ev->ev_y;
+		y = ev->ev_y;
-state = ev->ev_modifiers;
+		state = ev->ev_modifiers;
-if (__debug_WM_MOUSEENTER__ | __debug_WM_ALL__) {
+		if (__debug_WM_MOUSEENTER__ | __debug_WM_ALL__) {
-PRINTF((">>> WM_MOUSEENTER: %x %d/%d state:%x\n", ev->ev_hWnd, x, y, state));
+		    PRINTF((">>> WM_MOUSEENTER: %x %d/%d state:%x\n", ev->ev_hWnd, x, y, state));
-}
+		}
 #if 0
-if (GetWindow_unmapping(hWnd)) {
+		if (GetWindow_unmapping(hWnd)) {
-console_fprintf(stderr, "oops - WM_MOUSEENTER for unmapping\n");
+		    console_fprintf(stderr, "oops - WM_MOUSEENTER for unmapping\n");
-}
+		}
 #endif
-(*pe.ilc_func)(self, @symbol(pointerEnter:x:y:view:),
+		(*pe.ilc_func)(self, @symbol(pointerEnter:x:y:view:),
-nil, &pe,
+				    nil, &pe,
-__MKSMALLINT(state),
+				    __MKSMALLINT(state),
-__MKSMALLINT(x),
+				    __MKSMALLINT(x),
-__MKSMALLINT(y),
+				    __MKSMALLINT(y),
-theView);
+				    theView);
-break;
+		break;
-case __WM_MOUSELEAVE:
+	    case __WM_MOUSELEAVE:
-state = ev->ev_modifiers;
+		state = ev->ev_modifiers;
-if (__debug_WM_MOUSELEAVE__ | __debug_WM_ALL__) {
+		if (__debug_WM_MOUSELEAVE__ | __debug_WM_ALL__) {
-PRINTF((">>> WM_MOUSELEAVE: %x state:%x\n", ev->ev_hWnd, state));
+		    PRINTF((">>> WM_MOUSELEAVE: %x state:%x\n", ev->ev_hWnd, state));
-}
+		}
 #if 0
-if (GetWindow_unmapping(hWnd)) {
+		if (GetWindow_unmapping(hWnd)) {
-console_fprintf(stderr, "oops - WM_MOUSELEAVE for unmapping\n");
+		    console_fprintf(stderr, "oops - WM_MOUSELEAVE for unmapping\n");
-}
+		}
 #endif
-(*pl.ilc_func)(self, @symbol(pointerLeave:view:),
+		(*pl.ilc_func)(self, @symbol(pointerLeave:view:),
-nil, &pl,
+				    nil, &pl,
-__MKSMALLINT(state),
+				    __MKSMALLINT(state),
-theView);
+				    theView);
-break;
+		break;
-case WM_MOUSEMOVE:
+	    case WM_MOUSEMOVE:
-x = ev->ev_x;
+		x = ev->ev_x;
-y = ev->ev_y;
+		y = ev->ev_y;
-state = ev->ev_modifiers;
+		state = ev->ev_modifiers;
-if (__debug_WM_MOUSEMOVE__ | __debug_WM_ALL__) {
+		if (__debug_WM_MOUSEMOVE__ | __debug_WM_ALL__) {
-PRINTF((">>> WM_MOUSEMOVE: %d/%d %x\n", x, y, state));
+		    PRINTF((">>> WM_MOUSEMOVE: %d/%d %x\n", x, y, state));
-}
+		}
-(*mot.ilc_func)(self, @symbol(buttonMotion:x:y:view:),
+		(*mot.ilc_func)(self, @symbol(buttonMotion:x:y:view:),
-nil, &mot,
+				    nil, &mot,
-__MKSMALLINT(state),
+				    __MKSMALLINT(state),
-__MKSMALLINT(x),
+				    __MKSMALLINT(x),
-__MKSMALLINT(y),
+				    __MKSMALLINT(y),
-theView);
+				    theView);
-break;
+		break;
 #ifdef WM_MOUSEWHEEL
-case WM_MOUSEWHEEL:
+	    case WM_MOUSEWHEEL:
-x = ev->ev_x;
+		x = ev->ev_x;
-y = ev->ev_y;
+		y = ev->ev_y;
-state = ev->ev_modifiers;
+		state = ev->ev_modifiers;
-dir = GET_WHEEL_DELTA_WPARAM(ev->ev_wParam);
+		dir = GET_WHEEL_DELTA_WPARAM(ev->ev_wParam);
-// dir = ev->ev_wParam & 0xFFFF;
+		// dir = ev->ev_wParam & 0xFFFF;
-DPRINTF((">>> WM_MOUSEWHEEL: %d %x\n", dir, state));
+		DPRINTF((">>> WM_MOUSEWHEEL: %d %x\n", dir, state));
-{
+		{
-OBJ tim;
+		    OBJ tim;
-__PROTECT__(theView);
+		    __PROTECT__(theView);
-tim = __MKUINT(ev->ev_time);
+		    tim = __MKUINT(ev->ev_time);
-__UNPROTECT__(theView);
+		    __UNPROTECT__(theView);
-(*mwh.ilc_func)(self, @symbol(mouseWheelMotion:x:y:amount:deltaTime:view:),
+		    (*mwh.ilc_func)(self, @symbol(mouseWheelMotion:x:y:amount:deltaTime:view:),
-nil, &mwh,
+				    nil, &mwh,
-__MKSMALLINT(state),
+				    __MKSMALLINT(state),
-__MKSMALLINT(x),
+				    __MKSMALLINT(x),
-__MKSMALLINT(y),
+				    __MKSMALLINT(y),
-__MKSMALLINT(dir),
+				    __MKSMALLINT(dir),
-tim,
+				    tim,
-theView);
+				    theView);
-}
+		}
-break;
+		break;
 #endif
-case WM_CHAR:
+	    case WM_CHAR:
-DPRINTFIF((__debug_WM_CHAR__ | __debug_WM_ALL__)  , ("WM_CHAR %x %d/%d\n", ev->ev_keyCode, ev->ev_x, ev->ev_y));
+		DPRINTFIF((__debug_WM_CHAR__ | __debug_WM_ALL__)  , ("WM_CHAR %x %d/%d\n", ev->ev_keyCode, ev->ev_x, ev->ev_y));
-DPRINTF((">>> WM_CHAR: %d/%d\n", x, y));
+		DPRINTF((">>> WM_CHAR: %d/%d\n", x, y));
-symS = @symbol(keyPress:x:y:view:);
+		symS = @symbol(keyPress:x:y:view:);
-ipS = &skp;
+		ipS = &skp;
-upDown = true;
+		upDown = true;
-goto keyPressAndRelease;
+		goto keyPressAndRelease;
-case WM_HOTKEY:
+	    case WM_HOTKEY:
-{
+		{
-(*hkp.ilc_func)(self, @symbol(hotkeyWithId:key:view:),
+		(*hkp.ilc_func)(self, @symbol(hotkeyWithId:key:view:),
-nil, &hkp,
+				    nil, &hkp,
-__MKSMALLINT(ev->ev_wParam),
+				    __MKSMALLINT(ev->ev_wParam),
-__MKSMALLINT(ev->ev_arg1),
+				    __MKSMALLINT(ev->ev_arg1),
-theView);
+				    theView);
-}
+		}
-break;
+		break;
-case WM_SYSKEYUP:
+	    case WM_SYSKEYUP:
-case WM_KEYUP:
+	    case WM_KEYUP:
-DPRINTFIF((__debug_WM_KEYUP__ | __debug_WM_ALL__)  , (">>> WM_KEYUP / SYSKEYUP: %x %d/%d\n", ev->ev_keyCode, ev->ev_x, ev->ev_y));
+		DPRINTFIF((__debug_WM_KEYUP__ | __debug_WM_ALL__)  , (">>> WM_KEYUP / SYSKEYUP: %x %d/%d\n", ev->ev_keyCode, ev->ev_x, ev->ev_y));
-symS = @symbol(keyRelease:x:y:view:);
+		symS = @symbol(keyRelease:x:y:view:);
-ipS = &skr;
+		ipS = &skr;
-upDown = false;
+		upDown = false;
-goto keyPressAndRelease;
+		goto keyPressAndRelease;
-case WM_SYSKEYDOWN:
+	    case WM_SYSKEYDOWN:
-case WM_KEYDOWN:
+	    case WM_KEYDOWN:
-DPRINTFIF((__debug_WM_KEYUP__ | __debug_WM_ALL__)  , (">>> WM_KEYDOWN / SYSKEYDOWN: %x %d/%d\n", ev->ev_keyCode, ev->ev_x, ev->ev_y));
+		DPRINTFIF((__debug_WM_KEYUP__ | __debug_WM_ALL__)  , (">>> WM_KEYDOWN / SYSKEYDOWN: %x %d/%d\n", ev->ev_keyCode, ev->ev_x, ev->ev_y));
-symS = @symbol(keyPress:x:y:view:);
+		symS = @symbol(keyPress:x:y:view:);
-ipS = &skp;
+		ipS = &skp;
-upDown = true;
+		upDown = true;
-/* FALL INTO */
+		/* FALL INTO */
-keyPressAndRelease: ;
+	    keyPressAndRelease: ;
-x = ev->ev_x;
+		x = ev->ev_x;
-y = ev->ev_y;
+		y = ev->ev_y;
 #ifdef NOTDEF
-{
+		{
-BYTE vKeyState[256];
+		    BYTE vKeyState[256];
-char buff[5];
+		    char buff[5];
-GetKeyboardState(vKeyState);
+		    GetKeyboardState(vKeyState);
-ToAscii(ev->ev_keyCode, ev->ev_scanCode, vKeyState, &buff; 0);
+		    ToAscii(ev->ev_keyCode, ev->ev_scanCode, vKeyState, &buff; 0);
-}
+		}
 #endif
-keyCode = ev->ev_keyCode;
+		keyCode = ev->ev_keyCode;
-modifiers = ev->ev_modifiers;
+		modifiers = ev->ev_modifiers;
-if (modifiers & TRANSLATED_KEY) {
+		if (modifiers & TRANSLATED_KEY) {
 #if 1
-if (modifiers & ControlMask) {
+		    if (modifiers & ControlMask) {
-if (keyCode < 0x20) {
+			if (keyCode < 0x20) {
-keyCode = keyCode + 'a' - 1;
+			    keyCode = keyCode + 'a' - 1;
-if (modifiers & ShiftMask) {
+			    if (modifiers & ShiftMask) {
-keyCode = keyCode - 'a' + 'A';
+				keyCode = keyCode - 'a' + 'A';
-}
+			    }
-}
+			}
-} else if (modifiers & (MetaMask | AltMask)) {
+		    } else if (modifiers & (MetaMask | AltMask)) {
-if (! (modifiers & ShiftMask)) {
+			if (! (modifiers & ShiftMask)) {
-if ((keyCode >= 'A') && (keyCode <= 'Z')) {
+			    if ((keyCode >= 'A') && (keyCode <= 'Z')) {
-keyCode = keyCode - 'A' + 'a';
+				keyCode = keyCode - 'A' + 'a';
-}
+			    }
-}
+			}
-}
+		    }
 #endif
-arg = __MKSMALLINT(keyCode & 0xFFFF);
+		    arg = __MKSMALLINT(keyCode & 0xFFFF);
-} else {
+		} else {
-switch (keyCode) {
+		    switch (keyCode) {
-case VK_F1:
+			case VK_F1:
-arg = @symbol(F1);
+			    arg = @symbol(F1);
-break;
+			    break;
-case VK_F2:
+			case VK_F2:
-arg = @symbol(F2);
+			    arg = @symbol(F2);
-break;
+			    break;
-case VK_F3:
+			case VK_F3:
-arg = @symbol(F3);
+			    arg = @symbol(F3);
-break;
+			    break;
-case VK_F4:
+			case VK_F4:
-arg = @symbol(F4);
+			    arg = @symbol(F4);
-break;
+			    break;
-case VK_F5:
+			case VK_F5:
-arg = @symbol(F5);
+			    arg = @symbol(F5);
-break;
+			    break;
-case VK_F6:
+			case VK_F6:
-arg = @symbol(F6);
+			    arg = @symbol(F6);
-break;
+			    break;
-case VK_F7:
+			case VK_F7:
-arg = @symbol(F7);
+			    arg = @symbol(F7);
-break;
+			    break;
-case VK_F8:
+			case VK_F8:
-arg = @symbol(F8);
+			    arg = @symbol(F8);
-break;
+			    break;
-case VK_F9:
+			case VK_F9:
-arg = @symbol(F9);
+			    arg = @symbol(F9);
-break;
+			    break;
-case VK_F10:
+			case VK_F10:
-arg = @symbol(F10);
+			    arg = @symbol(F10);
-break;
+			    break;
-case VK_F11:
+			case VK_F11:
-arg = @symbol(F11);
+			    arg = @symbol(F11);
-break;
+			    break;
-case VK_F12:
+			case VK_F12:
-arg = @symbol(F12);
+			    arg = @symbol(F12);
-break;
+			    break;
-case VK_PRIOR:
+			case VK_PRIOR:
-arg = @symbol(Prior);
+			    arg = @symbol(Prior);
-break;
+			    break;
-case VK_NEXT:
+			case VK_NEXT:
-arg = @symbol(Next);
+			    arg = @symbol(Next);
-break;
+			    break;
-case VK_END:
+			case VK_END:
-arg = @symbol(End);
+			    arg = @symbol(End);
-break;
+			    break;
-case VK_HOME:
+			case VK_HOME:
-arg = @symbol(Home);
+			    arg = @symbol(Home);
-break;
+			    break;
-case VK_LEFT:
+			case VK_LEFT:
-arg = @symbol(CursorLeft);
+			    arg = @symbol(CursorLeft);
-break;
+			    break;
-case VK_RIGHT:
+			case VK_RIGHT:
-arg = @symbol(CursorRight);
+			    arg = @symbol(CursorRight);
-break;
+			    break;
-case VK_UP:
+			case VK_UP:
-arg = @symbol(CursorUp);
+			    arg = @symbol(CursorUp);
-break;
+			    break;
-case VK_DOWN:
+			case VK_DOWN:
-arg = @symbol(CursorDown);
+			    arg = @symbol(CursorDown);
-break;
+			    break;
-case VK_MENU:  /*alt key with w95 ???*/
+			case VK_MENU:  /*alt key with w95 ???*/
-arg = @symbol(Menu);
+			    arg = @symbol(Menu);
-break;
+			    break;
-case VK_LMENU:
+			case VK_LMENU:
-arg = @symbol(Menu_L);
+			    arg = @symbol(Menu_L);
-break;
+			    break;
-case VK_RMENU:
+			case VK_RMENU:
-arg = @symbol(Menu_R);
+			    arg = @symbol(Menu_R);
-break;
+			    break;
-case VK_PAUSE:
+			case VK_PAUSE:
-arg = @symbol(Pause);
+			    arg = @symbol(Pause);
-break;
+			    break;
-case VK_HELP:
+			case VK_HELP:
-arg = @symbol(Help);
+			    arg = @symbol(Help);
-break;
+			    break;
-case VK_EXECUTE:
+			case VK_EXECUTE:
-arg = @symbol(Execute);
+			    arg = @symbol(Execute);
-break;
+			    break;
-case VK_CANCEL:
+			case VK_CANCEL:
-arg = @symbol(Cancel);
+			    arg = @symbol(Cancel);
-break;
+			    break;
-case VK_SELECT:
+			case VK_SELECT:
-arg = @symbol(Select);
+			    arg = @symbol(Select);
-break;
+			    break;
-case VK_PRINT:
+			case VK_PRINT:
-arg = @symbol(Print);
+			    arg = @symbol(Print);
-break;
+			    break;
-case VK_SNAPSHOT:
+			case VK_SNAPSHOT:
-arg = @symbol(Snapshot);
+			    arg = @symbol(Snapshot);
-break;
+			    break;
-case VK_INSERT:
+			case VK_INSERT:
-arg = @symbol(Insert);
+			    arg = @symbol(Insert);
-break;
+			    break;
-case VK_DELETE:
+			case VK_DELETE:
-arg = @symbol(Delete);
+			    arg = @symbol(Delete);
-break;
+			    break;
-case VK_BACK:
+			case VK_BACK:
-arg = @symbol(BackSpace);
+			    arg = @symbol(BackSpace);
-break;
+			    break;
-case VK_LWIN:
+			case VK_LWIN:
-arg = @symbol(Win_L);
+			    arg = @symbol(Win_L);
-break;
+			    break;
-case VK_RWIN:
+			case VK_RWIN:
-arg = @symbol(Win_R);
+			    arg = @symbol(Win_R);
-break;
+			    break;
-case VK_APPS:
+			case VK_APPS:
-arg = @symbol(Appl);
+			    arg = @symbol(Appl);
-break;
+			    break;
-case VK_NUMPAD0:
+			case VK_NUMPAD0:
-arg = @symbol(KeyPad0);
+			    arg = @symbol(KeyPad0);
-break;
+			    break;
-case VK_NUMPAD1:
+			case VK_NUMPAD1:
-arg = @symbol(KeyPad1);
+			    arg = @symbol(KeyPad1);
-break;
+			    break;
-case VK_NUMPAD2:
+			case VK_NUMPAD2:
-arg = @symbol(KeyPad2);
+			    arg = @symbol(KeyPad2);
-break;
+			    break;
-case VK_NUMPAD3:
+			case VK_NUMPAD3:
-arg = @symbol(KeyPad3);
+			    arg = @symbol(KeyPad3);
-break;
+			    break;
-case VK_NUMPAD4:
+			case VK_NUMPAD4:
-arg = @symbol(KeyPad4);
+			    arg = @symbol(KeyPad4);
-break;
+			    break;
-case VK_NUMPAD5:
+			case VK_NUMPAD5:
-arg = @symbol(KeyPad5);
+			    arg = @symbol(KeyPad5);
-break;
+			    break;
-case VK_NUMPAD6:
+			case VK_NUMPAD6:
-arg = @symbol(KeyPad6);
+			    arg = @symbol(KeyPad6);
-break;
+			    break;
-case VK_NUMPAD7:
+			case VK_NUMPAD7:
-arg = @symbol(KeyPad7);
+			    arg = @symbol(KeyPad7);
-break;
+			    break;
-case VK_NUMPAD8:
+			case VK_NUMPAD8:
-arg = @symbol(KeyPad8);
+			    arg = @symbol(KeyPad8);
-break;
+			    break;
-case VK_NUMPAD9:
+			case VK_NUMPAD9:
-arg = @symbol(KeyPad9);
+			    arg = @symbol(KeyPad9);
-break;
+			    break;
-case VK_LSHIFT:
+			case VK_LSHIFT:
-arg = @symbol(Shift_L);
+			    arg = @symbol(Shift_L);
-break;
+			    break;
-case VK_RSHIFT:
+			case VK_RSHIFT:
-arg = @symbol(Shift_R);
+			    arg = @symbol(Shift_R);
-break;
+			    break;
-case VK_LCONTROL:
+			case VK_LCONTROL:
-arg = @symbol(Ctrl_L);
+			    arg = @symbol(Ctrl_L);
-break;
+			    break;
-case VK_RCONTROL:
+			case VK_RCONTROL:
-arg = @symbol(Ctrl_R);
+			    arg = @symbol(Ctrl_R);
-break;
+			    break;
-case VK_CONTROL:
+			case VK_CONTROL:
-arg = @symbol(Ctrl);
+			    arg = @symbol(Ctrl);
-break;
+			    break;
-case VK_SHIFT:
+			case VK_SHIFT:
-arg = @symbol(Shift);
+			    arg = @symbol(Shift);
-break;
+			    break;
-case VK_TAB:
+			case VK_TAB:
-arg = @symbol(Tab);
+			    arg = @symbol(Tab);
-break;
+			    break;
-case VK_ESCAPE:
+			case VK_ESCAPE:
-arg = @symbol(Escape);
+			    arg = @symbol(Escape);
-break;
+			    break;
-case VK_NUMLOCK:
+			case VK_NUMLOCK:
-arg = @symbol(NumLock);
+			    arg = @symbol(NumLock);
-break;
+			    break;
-case VK_SCROLL:
+			case VK_SCROLL:
-arg = @symbol(ScrollLock);
+			    arg = @symbol(ScrollLock);
-break;
+			    break;
-case VK_RETURN:
+			case VK_RETURN:
-arg = @symbol(Return);
+			    arg = @symbol(Return);
-break;
+			    break;
-default:
+			default:
 #if 0
-nameBuffer[0] = 0;
+			    nameBuffer[0] = 0;
-GetKeyNameText(ev->ev_scanCode, nameBuffer, sizeof(nameBuffer));
+			    GetKeyNameText(ev->ev_scanCode, nameBuffer, sizeof(nameBuffer));
-if (__debug_WM_KEYUP__ | __debug_WM_KEYDOWN__ | __debug_WM_CHAR__ | __debug_WM_ALL__) {
+			    if (__debug_WM_KEYUP__ | __debug_WM_KEYDOWN__ | __debug_WM_CHAR__ | __debug_WM_ALL__) {
-PRINTF(("char is <%d>\n", keyCode));
+				PRINTF(("char is <%d>\n", keyCode));
-}
+			    }
 #endif
-arg = __MKSMALLINT(keyCode & 0xFFFF);
+			    arg = __MKSMALLINT(keyCode & 0xFFFF);
-break;
+			    break;
-}
+		    }
-}
+		}
-__INST(altDown) = (modifiers & AltMask) ? true : false;
+		__INST(altDown) = (modifiers & AltMask) ? true : false;
-__INST(metaDown) = (modifiers & MetaMask) ? true : false;
+		__INST(metaDown) = (modifiers & MetaMask) ? true : false;
-__INST(shiftDown) = (modifiers & ShiftMask) ? true : false;
+		__INST(shiftDown) = (modifiers & ShiftMask) ? true : false;
-__INST(ctrlDown) = (modifiers & ControlMask) ? true : false;
+		__INST(ctrlDown) = (modifiers & ControlMask) ? true : false;
-if (__debug_WM_CHAR__ | __debug_WM_KEYUP__ | __debug_WM_KEYDOWN__ | __debug_WM_ALL__) {
+		if (__debug_WM_CHAR__ | __debug_WM_KEYUP__ | __debug_WM_KEYDOWN__ | __debug_WM_ALL__) {
-PRINTF(("%s: code=%x mod=%x ", __stringVal(symS), keyCode, modifiers));
+		    PRINTF(("%s: code=%x mod=%x ", __stringVal(symS), keyCode, modifiers));
-PRINTF((" alt=%d meta=%d ", __INST(altDown) == true , __INST(metaDown) == true));
+		    PRINTF((" alt=%d meta=%d ", __INST(altDown) == true , __INST(metaDown) == true));
-PRINTF((" sh=%d ctrl=%d", __INST(shiftDown) == true , __INST(ctrlDown) == true));
+		    PRINTF((" sh=%d ctrl=%d", __INST(shiftDown) == true , __INST(ctrlDown) == true));
-PRINTF((" arg=%x\n", arg));
+		    PRINTF((" arg=%x\n", arg));
-}
+		}
-(*(*ipS).ilc_func)(self, symS, nil, ipS,
+		(*(*ipS).ilc_func)(self, symS, nil, ipS,
-arg,
+				   arg,
-__MKSMALLINT(x),
+				   __MKSMALLINT(x),
-__MKSMALLINT(y),
+				   __MKSMALLINT(y),
-theView);
+				   theView);
-break;
+		break;
-case WM_SYSCOLORCHANGE:
+	   case WM_SYSCOLORCHANGE:
-DPRINTF((">>> WM_SYSCOLORCHANGE\n"));
+		DPRINTF((">>> WM_SYSCOLORCHANGE\n"));
-(*sysClrChg.ilc_func)(self, @symbol(systemColorChange:), nil, &sysClrChg, theView);
+		(*sysClrChg.ilc_func)(self, @symbol(systemColorChange:), nil, &sysClrChg, theView);
-break;
+		break;
-case WM_FONTCHANGE:
+	   case WM_FONTCHANGE:
-DPRINTF((">>> WM_FONTCHANGE\n"));
+		DPRINTF((">>> WM_FONTCHANGE\n"));
-(*fontChg.ilc_func)(self, @symbol(fontChange), nil, &fontChg);
+		(*fontChg.ilc_func)(self, @symbol(fontChange), nil, &fontChg);
-break;
+		break;
-case WM_WININICHANGE:
+	   case WM_WININICHANGE:
-DPRINTF((">>> WM_WININICHANGE\n"));
+		DPRINTF((">>> WM_WININICHANGE\n"));
-(*settingChg.ilc_func)(self, @symbol(settingsChange), nil, &settingChg);
+		(*settingChg.ilc_func)(self, @symbol(settingsChange), nil, &settingChg);
-break;
+		break;
-case WM_DISPLAYCHANGE:
+	   case WM_DISPLAYCHANGE:
-DPRINTF((">>> WM_DISPLAYCHANGE\n"));
+		DPRINTF((">>> WM_DISPLAYCHANGE\n"));
-(*fontChg.ilc_func)(self, @symbol(displayChange), nil, &fontChg);
+		(*fontChg.ilc_func)(self, @symbol(displayChange), nil, &fontChg);
-break;
+		break;
-case WM_QUERYENDSESSION:
+	   case WM_QUERYENDSESSION:
-DPRINTF((">>> WM_QUERYENDSESSION\n"));
+		DPRINTF((">>> WM_QUERYENDSESSION\n"));
-(*qEndSess.ilc_func)(self, @symbol(queryEndSession), nil, &qEndSess);
+		(*qEndSess.ilc_func)(self, @symbol(queryEndSession), nil, &qEndSess);
-break;
+		break;
 #ifdef LATER
-case WM_POWER:
+	   case WM_POWER:
-DPRINTF((">>> WM_POWER\n"));
+		DPRINTF((">>> WM_POWER\n"));
-(*power.ilc_func)(self, @symbol(powerDown), nil, &power);
+		(*power.ilc_func)(self, @symbol(powerDown), nil, &power);
-break;
+	       break;
 #endif
-/* native widget actions */
+	    /* native widget actions */
-case WM_COMMAND:
+	    case WM_COMMAND:
-DPRINTF((">>> WM_COMMAND\n"));
+		DPRINTF((">>> WM_COMMAND\n"));
-(*command.ilc_func)(self, @symbol(nativeWidgetCommand:view:), nil, &command,
+		(*command.ilc_func)(self, @symbol(nativeWidgetCommand:view:), nil, &command,
-__MKSMALLINT(ev->ev_wParam), theView);
+				__MKSMALLINT(ev->ev_wParam), theView);
-break;
+	       break;
-/* tray action */
+	    /* tray action */
-case WM_TRAY_MESSAGE:
+	    case WM_TRAY_MESSAGE:
-DPRINTF((">>> WM_TRAY_MESSAGE\n"));
+		DPRINTF((">>> WM_TRAY_MESSAGE\n"));
-(*trayMessage.ilc_func)(self, @symbol(trayAction:view:), nil, &trayMessage,
+		(*trayMessage.ilc_func)(self, @symbol(trayAction:view:), nil, &trayMessage,
-__MKSMALLINT(ev->ev_arg1), theView);
+				__MKSMALLINT(ev->ev_arg1), theView);
-break;
+		break;
-/* message from another process */
+	    /* message from another process */
-case WM_COPYDATA:
+	    case WM_COPYDATA:
-DPRINTF((">>> WM_COPYDATA"));
+		DPRINTF((">>> WM_COPYDATA"));
-{
+		{
-OBJ eventData;
+		    OBJ eventData;
-void *data = (void *)(ev->ev_arg1);
+		    void *data = (void *)(ev->ev_arg1);
-DPRINTFIF((__debug_WM_COPYDATA__) , (">>> WM_COPYDATA %s (%d)\n", data, ev->ev_arg2));
+		    DPRINTFIF((__debug_WM_COPYDATA__) , (">>> WM_COPYDATA %s (%d)\n", data, ev->ev_arg2));
-if (data) {
+		    if (data) {
-eventData = __MKBYTEARRAY(data, (int)ev->ev_arg2);
+			eventData = __MKBYTEARRAY(data, (int)ev->ev_arg2);
-free(data);     // see winEventProcessing()
+			free(data);     // see winEventProcessing()
-} else {
+		    } else {
-eventData = nil;
+			eventData = nil;
-}
+		    }
-(*copyData.ilc_func)(self, @symbol(copyDataEvent:eventData:view:), nil, &copyData,
+		    (*copyData.ilc_func)(self, @symbol(copyDataEvent:eventData:view:), nil, &copyData,
-__MKSMALLINT(ev->ev_wParam), eventData, theView);
+				__MKSMALLINT(ev->ev_wParam), eventData, theView);
-}
+		}
-break;
+		break;
 #ifdef LATER
-case WM_QUIT:
+	    case WM_QUIT:
-DPRINTF((">>> WM_QUIT_MESSAGE\n"));
+		DPRINTF((">>> WM_QUIT_MESSAGE\n"));
-(*quit.ilc_func)(self, @symbol(quitCommand:), nil, &quit);
+		(*quit.ilc_func)(self, @symbol(quitCommand:), nil, &quit);
-break;
+		break;
 #endif
-case WM_HSCROLL:
+	    case WM_HSCROLL:
-case WM_VSCROLL:
+	    case WM_VSCROLL:
-{
+		{
-int scrollCode = 0;
+		    int scrollCode = 0;
-OBJ scrollCodeOrScrollCodeSymbol = nil, positionOrNil = nil;
+		    OBJ scrollCodeOrScrollCodeSymbol = nil, positionOrNil = nil;
-int pos = 0;
+		    int pos = 0;
-scrollCode = LOWORD(ev->ev_wParam);
+		    scrollCode = LOWORD(ev->ev_wParam);
-scrollCodeOrScrollCodeSymbol = __MKSMALLINT(scrollCode);
+		    scrollCodeOrScrollCodeSymbol = __MKSMALLINT(scrollCode);
-positionOrNil = nil;
+		    positionOrNil = nil;
-switch (scrollCode) {
+		    switch (scrollCode) {
-case SB_BOTTOM:
+			case SB_BOTTOM:
-scrollCodeOrScrollCodeSymbol = @symbol(SB_BOTTOM);
+			    scrollCodeOrScrollCodeSymbol = @symbol(SB_BOTTOM);
-break;
+			    break;
-case SB_TOP:
+			case SB_TOP:
-scrollCodeOrScrollCodeSymbol = @symbol(SB_TOP);
+			    scrollCodeOrScrollCodeSymbol = @symbol(SB_TOP);
-break;
+			    break;
-case SB_ENDSCROLL:
+			case SB_ENDSCROLL:
-scrollCodeOrScrollCodeSymbol = @symbol(SB_ENDSCROLL);
+			    scrollCodeOrScrollCodeSymbol = @symbol(SB_ENDSCROLL);
-break;
+			    break;
-case SB_LINEDOWN:
+			case SB_LINEDOWN:
-if (ev->ev_message == WM_HSCROLL) {
+			    if (ev->ev_message == WM_HSCROLL) {
-scrollCodeOrScrollCodeSymbol = @symbol(SB_LINERIGHT);
+				scrollCodeOrScrollCodeSymbol = @symbol(SB_LINERIGHT);
-} else {
+			    } else {
-scrollCodeOrScrollCodeSymbol = @symbol(SB_LINEDOWN);
+				scrollCodeOrScrollCodeSymbol = @symbol(SB_LINEDOWN);
-}
+			    }
-break;
+			    break;
-case SB_LINEUP:
+			case SB_LINEUP:
-if (ev->ev_message == WM_HSCROLL) {
+			    if (ev->ev_message == WM_HSCROLL) {
-scrollCodeOrScrollCodeSymbol = @symbol(SB_LINELEFT);
+				scrollCodeOrScrollCodeSymbol = @symbol(SB_LINELEFT);
-} else {
+			    } else {
-scrollCodeOrScrollCodeSymbol = @symbol(SB_LINEUP);
+				scrollCodeOrScrollCodeSymbol = @symbol(SB_LINEUP);
-}
+			    }
-break;
+			    break;
-case SB_PAGEDOWN:
+			case SB_PAGEDOWN:
-if (ev->ev_message == WM_HSCROLL) {
+			    if (ev->ev_message == WM_HSCROLL) {
-scrollCodeOrScrollCodeSymbol = @symbol(SB_PAGERIGHT);
+				scrollCodeOrScrollCodeSymbol = @symbol(SB_PAGERIGHT);
-} else {
+			    } else {
-scrollCodeOrScrollCodeSymbol = @symbol(SB_PAGEDOWN);
+				scrollCodeOrScrollCodeSymbol = @symbol(SB_PAGEDOWN);
-}
+			    }
-break;
+			    break;
-case SB_PAGEUP:
+			case SB_PAGEUP:
-if (ev->ev_message == WM_HSCROLL) {
+			    if (ev->ev_message == WM_HSCROLL) {
-scrollCodeOrScrollCodeSymbol = @symbol(SB_PAGELEFT);
+				scrollCodeOrScrollCodeSymbol = @symbol(SB_PAGELEFT);
-} else {
+			    } else {
-scrollCodeOrScrollCodeSymbol = @symbol(SB_PAGEUP);
+				scrollCodeOrScrollCodeSymbol = @symbol(SB_PAGEUP);
-}
+			    }
-break;
+			    break;
-case SB_THUMBPOSITION:
+			case SB_THUMBPOSITION:
-if (ev->ev_message == WM_HSCROLL) {
+			    if (ev->ev_message == WM_HSCROLL) {
-scrollCodeOrScrollCodeSymbol = @symbol(SB_THUMBPOSITIONHORIZONTAL);
+				scrollCodeOrScrollCodeSymbol = @symbol(SB_THUMBPOSITIONHORIZONTAL);
-} else {
+			    } else {
-scrollCodeOrScrollCodeSymbol = @symbol(SB_THUMBPOSITIONVERTICAL);
+				scrollCodeOrScrollCodeSymbol = @symbol(SB_THUMBPOSITIONVERTICAL);
-}
+			    }
-pos = HIWORD(ev->ev_wParam);
+			    pos = HIWORD(ev->ev_wParam);
-positionOrNil = __MKSMALLINT(pos);
+			    positionOrNil = __MKSMALLINT(pos);
-break;
+			    break;
-case SB_THUMBTRACK:
+			case SB_THUMBTRACK:
-if (ev->ev_message == WM_HSCROLL) {
+			    if (ev->ev_message == WM_HSCROLL) {
-scrollCodeOrScrollCodeSymbol = @symbol(SB_THUMBTRACKHORIZONTAL);
+				scrollCodeOrScrollCodeSymbol = @symbol(SB_THUMBTRACKHORIZONTAL);
-} else {
+			    } else {
-scrollCodeOrScrollCodeSymbol = @symbol(SB_THUMBTRACKVERTICAL);
+				scrollCodeOrScrollCodeSymbol = @symbol(SB_THUMBTRACKVERTICAL);
-}
+			    }
-pos = HIWORD(ev->ev_wParam);
+			    pos = HIWORD(ev->ev_wParam);
-positionOrNil = __MKSMALLINT(pos);
+			    positionOrNil = __MKSMALLINT(pos);
-break;
+			    break;
-default:
+			default:
-DPRINTF((">>> WM_SCROLL: unhandled scrollCode:%d %d\n", scrollCode));
+			    DPRINTF((">>> WM_SCROLL: unhandled scrollCode:%d %d\n", scrollCode));
-break;
+			    break;
-}
+		    }
-NDPRINTF((">>> WM_SCROLL: %d %d\n", scrollCode, pos));
+		    NDPRINTF((">>> WM_SCROLL: %d %d\n", scrollCode, pos));
-(*win32NativeScroll.ilc_func)(self, @symbol(win32NativeScroll:position:view:),
+		    (*win32NativeScroll.ilc_func)(self, @symbol(win32NativeScroll:position:view:),
-nil, &win32NativeScroll,
+					nil, &win32NativeScroll,
-scrollCodeOrScrollCodeSymbol,
+					scrollCodeOrScrollCodeSymbol,
-positionOrNil,
+					positionOrNil,
-theView);
+					theView);
-}
+		}
-break;
+		break;
-case WM_DRAWITEM:
+	    case WM_DRAWITEM:
-{
+		{
-NDPRINTF((">>> WM_DRAWITEM: wParam: %x\n", ev->ev_wParam));
+		    NDPRINTF((">>> WM_DRAWITEM: wParam: %x\n", ev->ev_wParam));
-(*win32DrawItem.ilc_func)(self, @symbol(win32DrawItem:view:),
+		    (*win32DrawItem.ilc_func)(self, @symbol(win32DrawItem:view:),
-nil, &win32DrawItem,
+					nil, &win32DrawItem,
-__MKSMALLINT(ev->ev_wParam),
+					__MKSMALLINT(ev->ev_wParam),
-theView);
+					theView);
-}
+		}
-break;
+		break;
-default:
+	    default:
-UNHANDLED_EVENT_PRINTF(("WinWorkstat [info]: >>> unhandled event: %x\n", ev->ev_message));
+		UNHANDLED_EVENT_PRINTF(("WinWorkstat [info]: >>> unhandled event: %x\n", ev->ev_message));
-break;
+		break;
 }
 %}.
 ^ true
 !
 expose events (which are sent after a bitblt). After such a bitblt,
 we only handle exposes until the graphicsExpose arrives.
 Other systems may not need such a kludge"
 [self eventPendingWithSync:false] whileTrue:[
-(self getEventFor:nil withMask:nil) ifTrue:[
+	(self getEventFor:nil withMask:nil) ifTrue:[
-AbortOperationRequest handle:[:ex |
+	    AbortOperationRequest handle:[:ex |
-ex return
+		ex return
-] do:[
+	    ] do:[
-self dispatchLastEvent.
+		self dispatchLastEvent.
-"/ multi-screen config: give others a chance
+		"/ multi-screen config: give others a chance
-"/ (needed because we run at high (non-timesliced) prio)
+		"/ (needed because we run at high (non-timesliced) prio)
-Processor yield.
+		Processor yield.
-]
+	    ]
-].
+	].
 ]
 "Modified: 19.8.1997 / 17:11:18 / cg"
 !
 doSync notNil ifTrue:[self flush].
 %{
 if (hasEventQueued()) {
-RETURN (true);
+	RETURN (true);
 }
 %}.
 ^ false
 !
 %{  /* NOCONTEXT */
 DDDPRINTF(("peek q - "));
 if (hasEventQueued()) {
-DDDPRINTF(("true\n"));
+	DDDPRINTF(("true\n"));
-RETURN (true);
+	RETURN (true);
 }
 DDDPRINTF(("false\n"));
 %}.
 ^ false
 !
 struct queuedEvent *ev;
 struct queuedEvent *qev;
 eB = __INST(eventBuffer);
 if (! __isByteArray(eB)) {
-console_fprintf(stderr, "WinWorkstation [error]: no eventBuffer\n");
+	console_fprintf(stderr, "WinWorkstation [error]: no eventBuffer\n");
-/* RETURN (false); */
+	/* RETURN (false); */
 } else {
-ev = (struct queuedEvent *)(__ByteArrayInstPtr(eB)->ba_element);
+	ev = (struct queuedEvent *)(__ByteArrayInstPtr(eB)->ba_element);
-ev->ev_message = 0;
+	ev->ev_message = 0;
-if (__isSmallInteger(eventMask)) {
+	if (__isSmallInteger(eventMask)) {
-evMask = __intVal(eventMask);
+	    evMask = __intVal(eventMask);
-} else {
+	} else {
-evMask = ~0;
+	    evMask = ~0;
-}
+	}
-if (__isExternalAddress(aViewIdOrNil)) {
+	if (__isExternalAddress(aViewIdOrNil)) {
-wWanted = _HWNDVal(aViewIdOrNil);
+	    wWanted = _HWNDVal(aViewIdOrNil);
-} else{
+	} else{
-wWanted = 0;
+	    wWanted = 0;
-}
+	}
-do { /* only to allow continue */
+	do { /* only to allow continue */
-if (deqEvent(ev, wWanted, evMask)) {
+	    if (deqEvent(ev, wWanted, evMask)) {
 #ifdef COMPRESS_WINDOWPOSCHANGED
-if ((ev->ev_hWnd == lastPos_win)
+		if ((ev->ev_hWnd == lastPos_win)
-&& (ev->ev_message == WM_WINDOWPOSCHANGED)
+		 && (ev->ev_message == WM_WINDOWPOSCHANGED)
-&& ((ev->ev_x != lastPos_x)
+		 && ((ev->ev_x != lastPos_x)
-|| (ev->ev_y != lastPos_y)
+		     || (ev->ev_y != lastPos_y)
-|| (ev->ev_w != lastPos_w)
+		     || (ev->ev_w != lastPos_w)
-|| (ev->ev_h != lastPos_h))) {
+		     || (ev->ev_h != lastPos_h))) {
-/*
+		    /*
-* ignore intermediate resize events
+		     * ignore intermediate resize events
-* (that event is an intermediate one, because the peek-values
+		     * (that event is an intermediate one, because the peek-values
-*  have already been updated for another event)
+		     *  have already been updated for another event)
-*/
+		     */
-EVENT_PRINTF(("ignored WINDOWPOSCHANGED (%d:%d / %d:%d / %d:%d / %d:%d\n",
+		    EVENT_PRINTF(("ignored WINDOWPOSCHANGED (%d:%d / %d:%d / %d:%d / %d:%d\n",
-ev->ev_x, lastPos_x,
+				  ev->ev_x, lastPos_x,
-ev->ev_y, lastPos_y,
+				  ev->ev_y, lastPos_y,
-ev->ev_w, lastPos_w,
+				  ev->ev_w, lastPos_w,
-ev->ev_h, lastPos_h ));
+				  ev->ev_h, lastPos_h ));
-continue;
+		    continue;
-}
+		}
 #endif
-RETURN ( true );
+		RETURN ( true );
-}
+	    }
-} while (0);
+	} while (0);
 }
 %}.
 ^ false
 !
 %{
 registerHotKeyInfo * rhki = NULL;
 HWND hWnd = NULL;
 if (__isExternalAddress(aDrawableId)) {
-hWnd = _HWNDVal(aDrawableId);
+	hWnd = _HWNDVal(aDrawableId);
-if (! hWnd) {
+	if (! hWnd) {
-RETURN (false);
+	    RETURN (false);
-}
+	}
 } else {
-RETURN (false);
+	RETURN (false);
 }
 rhki = (registerHotKeyInfo *) malloc(sizeof(registerHotKeyInfo));
 rhki->hwnd       = hWnd;
 rhki->virtualKey = __intVal(aVirtualKeyCode);
 rhki->finished   = 0;
 // the same thread that created the window musr register the hotkey!
 if (PostThreadMessage(_dispatchThreadId, WM_THREAD_REGISTERHOTKEY, 0, (INT)rhki) == FALSE) {
-console_fprintf(stderr, "WinWorkstation [error]: oops - PostThreadMessage(%x) failed in registerHotKeyForWindow: err=%d\n",
+	console_fprintf(stderr, "WinWorkstation [error]: oops - PostThreadMessage(%x) failed in registerHotKeyForWindow: err=%d\n",
-_dispatchThreadId, GetLastError() );
+					_dispatchThreadId, GetLastError() );
-RETURN (false);
+	RETURN (false);
 }
 while (rhki->finished == 0) {
-Sleep(2);   // milliseconds
+	Sleep(2);   // milliseconds
 }
 error = __MKINT(rhki->errorCode);
 free(rhki);
 %}.
 ^ error == 0
 %{  /* NOCONTEXT */
 if (__isExternalAddress(aWindowId)
 && __isSmallInteger(aMask)) {
-HWND hWnd = _HWNDVal(aWindowId);
+	HWND hWnd = _HWNDVal(aWindowId);
-int mask = __intVal(aMask);
+	int mask = __intVal(aMask);
-localWindowInfo *lI;
+	localWindowInfo *lI;
-lI = GETLOCALWINDOWINFOPTR(hWnd);
+	lI = GETLOCALWINDOWINFOPTR(hWnd);
-if (lI) {
+	if (lI) {
 #ifdef DEBUGMASK
-PRINTF(("new eventMask %x\n",mask));
+	    PRINTF(("new eventMask %x\n",mask));
-printMask(mask);
+	    printMask(mask);
 #endif
-lI->eventMask = mask;
+	    lI->eventMask = mask;
-RETURN ( self );
+	    RETURN ( self );
-}
+	}
 }
 %}.
 self primitiveFailed
 !
 %{
 registerHotKeyInfo * rhki = NULL;
 HWND hWnd = NULL;
 if (__isExternalAddress(aDrawableId)) {
-hWnd = _HWNDVal(aDrawableId);
+	hWnd = _HWNDVal(aDrawableId);
-if (! hWnd) {
+	if (! hWnd) {
-RETURN (false);
+	    RETURN (false);
-}
+	}
 } else {
-RETURN (false);
+	RETURN (false);
 }
 rhki = (registerHotKeyInfo *) malloc(sizeof(registerHotKeyInfo));
 rhki->hwnd       = hWnd;
 rhki->modifier   = 0;
 rhki->virtualKey = 0;
 rhki->finished   = 0;
 if (PostThreadMessage(_dispatchThreadId, WM_THREAD_UNREGISTERHOTKEY, 0, (INT)rhki) == FALSE) {
-console_fprintf(stderr, "WinWorkstation [error]: oops - PostThreadMessage(%x) failed in unregisterHotKeyForWindow: err=%d\n",
+	console_fprintf(stderr, "WinWorkstation [error]: oops - PostThreadMessage(%x) failed in unregisterHotKeyForWindow: err=%d\n",
-_dispatchThreadId, GetLastError() );
+					_dispatchThreadId, GetLastError() );
-RETURN (false);
+	RETURN (false);
 }
 while (rhki->finished == 0) {
-Sleep(2);   // milliseconds
+	Sleep(2);   // milliseconds
 }
 error = __MKINT(rhki->errorCode);
 free(rhki);
 %}.
 ^ error == 0
 (not very user friendly)"
 |ok xLog yLog targetId|
 (xPos notNil and:[yPos notNil]) ifTrue:[
-"/ scale 0..width to 0..16rFFFF
+	"/ scale 0..width to 0..16rFFFF
-xLog := xPos * 16rFFFF // self width.
+	xLog := xPos * 16rFFFF // self width.
-yLog := yPos * 16rFFFF // self height.
+	yLog := yPos * 16rFFFF // self height.
 ].
 (targetIdArg notNil and:[targetIdArg ~= self rootWindowId]) ifTrue:[
-targetId := targetIdArg.
+	targetId := targetIdArg.
 ].
 ok := false.
 %{
 BOOL rslt;
 int _shifted = 0;
 int _xP = 0;
 int _yP = 0;
 if (__isExternalAddress(targetId)) {
-hWnd = _HWNDVal(targetId);
+	hWnd = _HWNDVal(targetId);
 }
 if (__isSmallInteger(keySymCodeOrButtonNr)) {
-_keyCodeOrButtonNr = __intVal(keySymCodeOrButtonNr);
+	_keyCodeOrButtonNr = __intVal(keySymCodeOrButtonNr);
 } else {
-if (__isCharacter(keySymCodeOrButtonNr)) {
+	if (__isCharacter(keySymCodeOrButtonNr)) {
-_keyCodeOrButtonNr = __intVal(__characterVal(keySymCodeOrButtonNr));
+	    _keyCodeOrButtonNr = __intVal(__characterVal(keySymCodeOrButtonNr));
-DPRINTF(("code: %d (#%02x)\n", _keyCodeOrButtonNr, _keyCodeOrButtonNr));
+	    DPRINTF(("code: %d (#%02x)\n", _keyCodeOrButtonNr, _keyCodeOrButtonNr));
-if ((_keyCodeOrButtonNr >= 'a') && (_keyCodeOrButtonNr <= 'z')) {
+	    if ((_keyCodeOrButtonNr >= 'a') && (_keyCodeOrButtonNr <= 'z')) {
-_keyCodeOrButtonNr -= 0x20;
+		_keyCodeOrButtonNr -= 0x20;
-DPRINTF(("code: %d (#%02x)\n", _keyCodeOrButtonNr, _keyCodeOrButtonNr));
+		DPRINTF(("code: %d (#%02x)\n", _keyCodeOrButtonNr, _keyCodeOrButtonNr));
-} else {
+	    } else {
-if ((_keyCodeOrButtonNr >= 'A') && (_keyCodeOrButtonNr <= 'Z')) {
+		if ((_keyCodeOrButtonNr >= 'A') && (_keyCodeOrButtonNr <= 'Z')) {
-DPRINTF(("code: shifted %d (#%02x)\n", _keyCodeOrButtonNr, _keyCodeOrButtonNr));
+		    DPRINTF(("code: shifted %d (#%02x)\n", _keyCodeOrButtonNr, _keyCodeOrButtonNr));
-_shifted = 1;
+		    _shifted = 1;
-}
+		}
-}
+	    }
-} else if (keySymCodeOrButtonNr == @symbol(Return)) {
+	} else if (keySymCodeOrButtonNr == @symbol(Return)) {
-_keyCodeOrButtonNr = VK_RETURN;
+	    _keyCodeOrButtonNr = VK_RETURN;
-} else if (keySymCodeOrButtonNr == @symbol(Enter)) {
+	} else if (keySymCodeOrButtonNr == @symbol(Enter)) {
-_keyCodeOrButtonNr = VK_RETURN;
+	    _keyCodeOrButtonNr = VK_RETURN;
-} else if (keySymCodeOrButtonNr == @symbol(BackSpace)) {
+	} else if (keySymCodeOrButtonNr == @symbol(BackSpace)) {
-_keyCodeOrButtonNr = VK_BACK;
+	    _keyCodeOrButtonNr = VK_BACK;
-} else if (keySymCodeOrButtonNr == @symbol(Tab)) {
+	} else if (keySymCodeOrButtonNr == @symbol(Tab)) {
-_keyCodeOrButtonNr = VK_TAB;
+	    _keyCodeOrButtonNr = VK_TAB;
-} else if (keySymCodeOrButtonNr == @symbol(Shift)) {
+	} else if (keySymCodeOrButtonNr == @symbol(Shift)) {
-_keyCodeOrButtonNr = VK_SHIFT;
+	    _keyCodeOrButtonNr = VK_SHIFT;
-} else if (keySymCodeOrButtonNr == @symbol(Ctrl)) {
+	} else if (keySymCodeOrButtonNr == @symbol(Ctrl)) {
-_keyCodeOrButtonNr = VK_CONTROL;
+	    _keyCodeOrButtonNr = VK_CONTROL;
-} else if (keySymCodeOrButtonNr == @symbol(Menu)) {
+	} else if (keySymCodeOrButtonNr == @symbol(Menu)) {
-_keyCodeOrButtonNr = VK_MENU;
+	    _keyCodeOrButtonNr = VK_MENU;
-} else if (keySymCodeOrButtonNr == @symbol(Escape)) {
+	} else if (keySymCodeOrButtonNr == @symbol(Escape)) {
-_keyCodeOrButtonNr = VK_ESCAPE;
+	    _keyCodeOrButtonNr = VK_ESCAPE;
-} else if (keySymCodeOrButtonNr == @symbol(Space)) {
+	} else if (keySymCodeOrButtonNr == @symbol(Space)) {
-_keyCodeOrButtonNr = VK_SPACE;
+	    _keyCodeOrButtonNr = VK_SPACE;
-} else if (keySymCodeOrButtonNr == @symbol(Prior)) {
+	} else if (keySymCodeOrButtonNr == @symbol(Prior)) {
-_keyCodeOrButtonNr = VK_PRIOR;
+	    _keyCodeOrButtonNr = VK_PRIOR;
-} else if (keySymCodeOrButtonNr == @symbol(Next)) {
+	} else if (keySymCodeOrButtonNr == @symbol(Next)) {
-_keyCodeOrButtonNr = VK_NEXT;
+	    _keyCodeOrButtonNr = VK_NEXT;
-} else if (keySymCodeOrButtonNr == @symbol(End)) {
+	} else if (keySymCodeOrButtonNr == @symbol(End)) {
-_keyCodeOrButtonNr = VK_END;
+	    _keyCodeOrButtonNr = VK_END;
-} else if (keySymCodeOrButtonNr == @symbol(Home)) {
+	} else if (keySymCodeOrButtonNr == @symbol(Home)) {
-_keyCodeOrButtonNr = VK_HOME;
+	    _keyCodeOrButtonNr = VK_HOME;
-} else if (keySymCodeOrButtonNr == @symbol(Left)) {
+	} else if (keySymCodeOrButtonNr == @symbol(Left)) {
-_keyCodeOrButtonNr = VK_LEFT;
+	    _keyCodeOrButtonNr = VK_LEFT;
-} else if (keySymCodeOrButtonNr == @symbol(Right)) {
+	} else if (keySymCodeOrButtonNr == @symbol(Right)) {
-_keyCodeOrButtonNr = VK_RIGHT;
+	    _keyCodeOrButtonNr = VK_RIGHT;
-} else if (keySymCodeOrButtonNr == @symbol(Down)) {
+	} else if (keySymCodeOrButtonNr == @symbol(Down)) {
-_keyCodeOrButtonNr = VK_DOWN;
+	    _keyCodeOrButtonNr = VK_DOWN;
-} else if (keySymCodeOrButtonNr == @symbol(Up)) {
+	} else if (keySymCodeOrButtonNr == @symbol(Up)) {
-_keyCodeOrButtonNr = VK_UP;
+	    _keyCodeOrButtonNr = VK_UP;
-} else if (keySymCodeOrButtonNr == @symbol(Insert)) {
+	} else if (keySymCodeOrButtonNr == @symbol(Insert)) {
-_keyCodeOrButtonNr = VK_INSERT;
+	    _keyCodeOrButtonNr = VK_INSERT;
-} else if (keySymCodeOrButtonNr == @symbol(Delete)) {
+	} else if (keySymCodeOrButtonNr == @symbol(Delete)) {
-_keyCodeOrButtonNr = VK_DELETE;
+	    _keyCodeOrButtonNr = VK_DELETE;
-} else if (keySymCodeOrButtonNr == @symbol(Help)) {
+	} else if (keySymCodeOrButtonNr == @symbol(Help)) {
-_keyCodeOrButtonNr = VK_HELP;
+	    _keyCodeOrButtonNr = VK_HELP;
-} else if (keySymCodeOrButtonNr == @symbol(F1)) {
+	} else if (keySymCodeOrButtonNr == @symbol(F1)) {
-_keyCodeOrButtonNr = VK_F1;
+	    _keyCodeOrButtonNr = VK_F1;
-} else if (keySymCodeOrButtonNr == @symbol(F2)) {
+	} else if (keySymCodeOrButtonNr == @symbol(F2)) {
-_keyCodeOrButtonNr = VK_F2;
+	    _keyCodeOrButtonNr = VK_F2;
-} else if (keySymCodeOrButtonNr == @symbol(F3)) {
+	} else if (keySymCodeOrButtonNr == @symbol(F3)) {
-_keyCodeOrButtonNr = VK_F3;
+	    _keyCodeOrButtonNr = VK_F3;
-} else if (keySymCodeOrButtonNr == @symbol(F4)) {
+	} else if (keySymCodeOrButtonNr == @symbol(F4)) {
-_keyCodeOrButtonNr = VK_F4;
+	    _keyCodeOrButtonNr = VK_F4;
-} else if (keySymCodeOrButtonNr == @symbol(F5)) {
+	} else if (keySymCodeOrButtonNr == @symbol(F5)) {
-_keyCodeOrButtonNr = VK_F5;
+	    _keyCodeOrButtonNr = VK_F5;
-} else if (keySymCodeOrButtonNr == @symbol(F6)) {
+	} else if (keySymCodeOrButtonNr == @symbol(F6)) {
-_keyCodeOrButtonNr = VK_F6;
+	    _keyCodeOrButtonNr = VK_F6;
-} else if (keySymCodeOrButtonNr == @symbol(F7)) {
+	} else if (keySymCodeOrButtonNr == @symbol(F7)) {
-_keyCodeOrButtonNr = VK_F7;
+	    _keyCodeOrButtonNr = VK_F7;
-} else if (keySymCodeOrButtonNr == @symbol(F8)) {
+	} else if (keySymCodeOrButtonNr == @symbol(F8)) {
-_keyCodeOrButtonNr = VK_F8;
+	    _keyCodeOrButtonNr = VK_F8;
-} else if (keySymCodeOrButtonNr == @symbol(F9)) {
+	} else if (keySymCodeOrButtonNr == @symbol(F9)) {
-_keyCodeOrButtonNr = VK_F9;
+	    _keyCodeOrButtonNr = VK_F9;
-} else if (keySymCodeOrButtonNr == @symbol(F10)) {
+	} else if (keySymCodeOrButtonNr == @symbol(F10)) {
-_keyCodeOrButtonNr = VK_F10;
+	    _keyCodeOrButtonNr = VK_F10;
-} else if (keySymCodeOrButtonNr == @symbol(F11)) {
+	} else if (keySymCodeOrButtonNr == @symbol(F11)) {
-_keyCodeOrButtonNr = VK_F11;
+	    _keyCodeOrButtonNr = VK_F11;
-} else if (keySymCodeOrButtonNr == @symbol(F12)) {
+	} else if (keySymCodeOrButtonNr == @symbol(F12)) {
-_keyCodeOrButtonNr = VK_F12;
+	    _keyCodeOrButtonNr = VK_F12;
-} else {
+	} else {
-console_printf("bad key\n");
+	    console_printf("bad key\n");
-goto getOutOfHere;
+	    goto getOutOfHere;
-}
+	}
 }
 if (__isSmallInteger(xLog)) {
-_xP = __intVal(xLog);
+	_xP = __intVal(xLog);
 }
 if (__isSmallInteger(yLog)) {
-_yP = __intVal(yLog);
+	_yP = __intVal(yLog);
 }
 lParam = _xP | (_yP << 16);
 if (typeSymbol == @symbol(buttonPress)) {
-_isMouseEvent = 1;
+	_isMouseEvent = 1;
-switch (_keyCodeOrButtonNr) {
+	switch (_keyCodeOrButtonNr) {
-case 1:
+	    case 1:
-msg = WM_LBUTTONDOWN;
+		msg = WM_LBUTTONDOWN;
-wParam = MK_LBUTTON;
+		wParam = MK_LBUTTON;
-dwFlags = MOUSEEVENTF_LEFTDOWN;
+		dwFlags = MOUSEEVENTF_LEFTDOWN;
-break;
+		break;
-case 2:
+	    case 2:
-msg = WM_MBUTTONDOWN;
+		msg = WM_MBUTTONDOWN;
-wParam = MK_MBUTTON;
+		wParam = MK_MBUTTON;
-dwFlags = MOUSEEVENTF_MIDDLEDOWN;
+		dwFlags = MOUSEEVENTF_MIDDLEDOWN;
-break;
+		break;
-case 3:
+	    case 3:
-msg = WM_RBUTTONDOWN;
+		msg = WM_RBUTTONDOWN;
-wParam = MK_RBUTTON;
+		wParam = MK_RBUTTON;
-dwFlags = MOUSEEVENTF_RIGHTDOWN;
+		dwFlags = MOUSEEVENTF_RIGHTDOWN;
-break;
+		break;
-default:
+	    default:
-console_printf("bad button\n");
+		console_printf("bad button\n");
-goto getOutOfHere;
+		goto getOutOfHere;
-}
+	}
 } else if (typeSymbol == @symbol(buttonRelease)) {
-_isMouseEvent = 1;
+	_isMouseEvent = 1;
-switch (_keyCodeOrButtonNr) {
+	switch (_keyCodeOrButtonNr) {
-case 1:
+	    case 1:
-msg = WM_LBUTTONUP;
+		msg = WM_LBUTTONUP;
-dwFlags = MOUSEEVENTF_LEFTUP;
+		dwFlags = MOUSEEVENTF_LEFTUP;
-break;
+		break;
-case 2:
+	    case 2:
-msg = WM_MBUTTONUP;
+		msg = WM_MBUTTONUP;
-dwFlags = MOUSEEVENTF_MIDDLEUP;
+		dwFlags = MOUSEEVENTF_MIDDLEUP;
-break;
+		break;
-case 3:
+	    case 3:
-msg = WM_RBUTTONUP;
+		msg = WM_RBUTTONUP;
-dwFlags = MOUSEEVENTF_RIGHTUP;
+		dwFlags = MOUSEEVENTF_RIGHTUP;
-break;
+		break;
-default:
+	    default:
-console_printf("bad button\n");
+		console_printf("bad button\n");
-goto getOutOfHere;
+		goto getOutOfHere;
-}
+	}
 } else if ((typeSymbol == @symbol(keyPress)) || (typeSymbol == @symbol(keyRelease))) {
-dwFlags = 0;
+	dwFlags = 0;
-if (typeSymbol == @symbol(keyRelease)) dwFlags = KEYEVENTF_KEYUP;
+	if (typeSymbol == @symbol(keyRelease)) dwFlags = KEYEVENTF_KEYUP;
 } else {
-console_printf("bad typeSymbol\n");
+	console_printf("bad typeSymbol\n");
-goto getOutOfHere;
+	goto getOutOfHere;
 }
 if (_isMouseEvent) {
-if ((xPos == nil) || (yPos == nil)) {
+	if ((xPos == nil) || (yPos == nil)) {
-console_printf("bad x/y\n");
+	    console_printf("bad x/y\n");
-goto getOutOfHere;
+	    goto getOutOfHere;
-}
+	}
 }
 if (hWnd == 0) {
-// send to screen
+	// send to screen
-if ((xPos != nil) && (yPos != nil)) {
+	if ((xPos != nil) && (yPos != nil)) {
-mouse_event(MOUSEEVENTF_ABSOLUTE | MOUSEEVENTF_MOVE, _xP, _yP, 0, NULL);
+	    mouse_event(MOUSEEVENTF_ABSOLUTE | MOUSEEVENTF_MOVE, _xP, _yP, 0, NULL);
-}
+	}
-if (_isMouseEvent) {
+	if (_isMouseEvent) {
-DPRINTF(("mouse %08x %d/%d\n", dwFlags | MOUSEEVENTF_ABSOLUTE, _xP, _yP));
+	    DPRINTF(("mouse %08x %d/%d\n", dwFlags | MOUSEEVENTF_ABSOLUTE, _xP, _yP));
-mouse_event(dwFlags | MOUSEEVENTF_ABSOLUTE, _xP, _yP, 0, NULL);
+	    mouse_event(dwFlags | MOUSEEVENTF_ABSOLUTE, _xP, _yP, 0, NULL);
-} else {
+	} else {
-if (_shifted) {
+	    if (_shifted) {
-DPRINTF(("shifted keybd #%08x %d (#%02x)\n", dwFlags, _keyCodeOrButtonNr, _keyCodeOrButtonNr));
+		DPRINTF(("shifted keybd #%08x %d (#%02x)\n", dwFlags, _keyCodeOrButtonNr, _keyCodeOrButtonNr));
-keybd_event( VK_SHIFT, 0 /* _keyCodeOrButtonNr */, 0, 0);
+		keybd_event( VK_SHIFT, 0 /* _keyCodeOrButtonNr */, 0, 0);
-keybd_event( _keyCodeOrButtonNr, 0 /* _keyCodeOrButtonNr */, dwFlags, 0);
+		keybd_event( _keyCodeOrButtonNr, 0 /* _keyCodeOrButtonNr */, dwFlags, 0);
-keybd_event( VK_SHIFT, 0 /* _keyCodeOrButtonNr */, KEYEVENTF_KEYUP, 0);
+		keybd_event( VK_SHIFT, 0 /* _keyCodeOrButtonNr */, KEYEVENTF_KEYUP, 0);
-} else {
+	    } else {
-DPRINTF(("keybd #%08x %d (#%02x)\n", dwFlags, _keyCodeOrButtonNr, _keyCodeOrButtonNr));
+		DPRINTF(("keybd #%08x %d (#%02x)\n", dwFlags, _keyCodeOrButtonNr, _keyCodeOrButtonNr));
-keybd_event( _keyCodeOrButtonNr, 0 /* _keyCodeOrButtonNr */, dwFlags, 0);
+		keybd_event( _keyCodeOrButtonNr, 0 /* _keyCodeOrButtonNr */, dwFlags, 0);
-}
+	    }
-}
+	}
 } else {
-rslt = PostMessage(hWnd, msg, wParam, lParam);
+	rslt = PostMessage(hWnd, msg, wParam, lParam);
 }
 ok = true;
 getOutOfHere: ;
 %}.
 ok ifFalse:[
-'WinWorkstation [warning]: sendKeyOrButtonEvent unimplemented' infoPrintCR.
+	'WinWorkstation [warning]: sendKeyOrButtonEvent unimplemented' infoPrintCR.
-self primitiveFailed.
+	self primitiveFailed.
 ].
 ^ ok
 ! !
 !WinWorkstation methodsFor:'font stuff'!
 %{
 HGDIOBJ hFont;
 char *fn;
 if (__isStringLike(aFontName)) {
-fn = __stringVal(aFontName);
+	fn = __stringVal(aFontName);
-if ((strcmp(fn, "fixed") == 0) || (strcmp(fn, "ANSI_FIXED_FONT") == 0)) {
+	if ((strcmp(fn, "fixed") == 0) || (strcmp(fn, "ANSI_FIXED_FONT") == 0)) {
-hFont = GetStockObject(ANSI_FIXED_FONT);
+	    hFont = GetStockObject(ANSI_FIXED_FONT);
-} else if ((strcmp(fn, "variable") == 0) || (strcmp(fn, "ANSI_VAR_FONT") == 0)) {
+	} else if ((strcmp(fn, "variable") == 0) || (strcmp(fn, "ANSI_VAR_FONT") == 0)) {
-hFont = GetStockObject(ANSI_VAR_FONT);
+	    hFont = GetStockObject(ANSI_VAR_FONT);
-} else if ((strcmp(fn, "system") == 0) || (strcmp(fn, "SYSTEM_FONT") == 0)) {
+	} else if ((strcmp(fn, "system") == 0) || (strcmp(fn, "SYSTEM_FONT") == 0)) {
-hFont = GetStockObject(SYSTEM_FONT);
+	    hFont = GetStockObject(SYSTEM_FONT);
-} else if ((strcmp(fn, "systemFixed") == 0) || (strcmp(fn, "SYSTEM_FIXED_FONT") == 0)) {
+	} else if ((strcmp(fn, "systemFixed") == 0) || (strcmp(fn, "SYSTEM_FIXED_FONT") == 0)) {
-hFont = GetStockObject(SYSTEM_FIXED_FONT);
+	    hFont = GetStockObject(SYSTEM_FIXED_FONT);
-} else if ((strcmp(fn, "deviceDefault") == 0) || (strcmp(fn, "DEVICE_DEFAULT_FONT") == 0)) {
+	} else if ((strcmp(fn, "deviceDefault") == 0) || (strcmp(fn, "DEVICE_DEFAULT_FONT") == 0)) {
-hFont = GetStockObject(DEVICE_DEFAULT_FONT);
+	    hFont = GetStockObject(DEVICE_DEFAULT_FONT);
-} else {
+	} else {
-hFont = GetStockObject(ANSI_FIXED_FONT);
+	    hFont = GetStockObject(ANSI_FIXED_FONT);
-}
+	}
-if (hFont) {
+	if (hFont) {
-DPRINTF(("createFontFor:%s -> %x\n", fn, hFont));
+	    DPRINTF(("createFontFor:%s -> %x\n", fn, hFont));
-RETURN ( __MKOBJ(hFont) );
+	    RETURN ( __MKOBJ(hFont) );
-}
+	}
 }
 %}.
 ^ nil
 !
 logicalSize := logicalSize abs.
 "/ convert from device to point size
 pointSize := (logicalSize / self getLogicalPixelSizeY * 72.0).
 fntDescr := FontDescription
-family:family
+		    family:family
-face:face
+		    face:face
-style:style
+		    style:style
-size:pointSize
+		    size:pointSize
-sizeUnit:#pt
+		    sizeUnit:#pt
-encoding:encoding.
+		    encoding:encoding.
 fntDescr setPixelSize:logicalSize.
 ^ fntDescr.
 "Modified: / 09-11-2010 / 13:00:18 / cg"
 !
 |rawData info|
 rawData := Array new:15.
 (self primFontMetricsOf:fontId intoArray:rawData) isNil ifTrue:[
-self primitiveFailed.
+	self primitiveFailed.
-^ self
+	^ self
 ].
 info := DeviceWorkstation::DeviceFontMetrics new.
 info
 ascent:(rawData at:1)
 allFonts := self listOfAvailableFonts.
 allFonts isNil ifTrue:[^ nil].
 fonts := Set new.
 allFonts do:[:fntDescr |
-(aFamilyName sameAs:(fntDescr family)) ifTrue:[
+	(aFamilyName sameAs:(fntDescr family)) ifTrue:[
-(filter isNil or:[filter value:fntDescr]) ifTrue:[
+	    (filter isNil or:[filter value:fntDescr]) ifTrue:[
-fonts add:fntDescr
+		fonts add:fntDescr
-]
+	    ]
-]
+	]
 ].
 ^ fonts
 !
 getAvailableFontsMatching:pattern
 ^ self createFontFor:'fixed'
 !
 getFontWithFamily:familyString face:faceString
-style:styleArgString size:sizeArg sizeUnit:sizeUnitArg
+	    style:styleArgString size:sizeArg sizeUnit:sizeUnitArg
-encoding:encoding
+	    encoding:encoding
 "try to get the specified font, if not available, try the next smaller
 font."
 |styleString theName theId xlatedStyle id spacing pxSize ptSize encodingSym|
 styleString := styleArgString.
 encoding isEmptyOrNil ifTrue:[
-encodingSym := #'ms-default' "/ encoding.
+	encodingSym := #'ms-default' "/ encoding.
 ] ifFalse:[
-encodingSym := encoding asLowercase asSymbol.
+	encodingSym := encoding asLowercase asSymbol.
 ].
 "special: if face is nil, allow access to X-fonts"
 faceString isNil ifTrue:[
-sizeArg notNil ifTrue:[
+	sizeArg notNil ifTrue:[
-theName := familyString , '-' , sizeArg printString
+	    theName := familyString , '-' , sizeArg printString
-] ifFalse:[
+	] ifFalse:[
-theName := familyString
+	    theName := familyString
-].
+	].
-theName notNil ifTrue:[
+	theName notNil ifTrue:[
-theId := self createFontFor:theName.
+	    theId := self createFontFor:theName.
-].
+	].
-theId isNil ifTrue:[
+	theId isNil ifTrue:[
-theId := self getDefaultFontWithEncoding:encoding
+	    theId := self getDefaultFontWithEncoding:encoding
-].
+	].
-^ theId
+	^ theId
 ].
 "/ spacing other than 'normal' is contained as last component
 "/ in style
 styleString notNil ifTrue:[
-((styleString endsWith:'-narrow')
+	((styleString endsWith:'-narrow')
-or:[styleString endsWith:'-semicondensed']) ifTrue:[
+	 or:[styleString endsWith:'-semicondensed']) ifTrue:[
-|i|
+	    |i|
-i := styleString lastIndexOf:$-.
+	    i := styleString lastIndexOf:$-.
-spacing := styleString copyFrom:(i+1).
+	    spacing := styleString copyFrom:(i+1).
-styleString := styleString copyTo:(i-1).
+	    styleString := styleString copyTo:(i-1).
-] ifFalse:[
+	] ifFalse:[
-spacing := #normal.
+	    spacing := #normal.
-].
+	].
 ].
 xlatedStyle := styleString.
 xlatedStyle notNil ifTrue:[
-xlatedStyle := xlatedStyle first asString
+	xlatedStyle := xlatedStyle first asString
 ].
 pxSize := sizeUnitArg == #px ifTrue:[sizeArg] ifFalse:[nil].
 ptSize := sizeUnitArg == #pt ifTrue:[sizeArg] ifFalse:[nil].
 id := self
-getFontWithFoundry:#*
+	    getFontWithFoundry:#*
-family:familyString asLowercase
+	    family:familyString asLowercase
-weight:faceString
+	    weight:faceString
-slant:styleString "/ xlatedStyle
+	    slant:styleString "/ xlatedStyle
-spacing:spacing
+	    spacing:spacing
-pixelSize:pxSize
+	    pixelSize:pxSize
-size:ptSize
+	    size:ptSize
-registry:#*
+	    registry:#*
-encoding:encodingSym.
+	    encoding:encodingSym.
 id isNil ifTrue:[
-id := self
+	id := self
-getFontWithFoundry:#*
+		getFontWithFoundry:#*
-family:familyString asLowercase
+		family:familyString asLowercase
-weight:faceString asLowercase
+		weight:faceString asLowercase
-slant:styleString asLowercase
+		slant:styleString asLowercase
-spacing:spacing
+		spacing:spacing
-pixelSize:pxSize
+		pixelSize:pxSize
-size:ptSize
+		size:ptSize
-registry:#*
+		registry:#*
-encoding:encodingSym.
+		encoding:encodingSym.
 ].
 ^ id
 "Modified: / 04-07-1996 / 11:38:47 / stefan"
 "Modified: / 04-08-2010 / 18:39:02 / cg"
 !
 getFontWithFoundry:foundry family:family weight:weight
-slant:slant spacing:spc pixelSize:pixelSizeOrNil size:pointSize
+	      slant:slant spacing:spc pixelSize:pixelSizeOrNil size:pointSize
-registry:registry encoding:encodingArg
+	      registry:registry encoding:encodingArg
 "get the specified font, if not available, return nil.
 For now, this is a poor (incomplete) emulation of the X code ...
 Individual attributes can be left empty (i.e. '') or nil to match any.
 "
 "
 Windows-NT/95 allows the creation of a font with the following parameters
-nHeight
+	nHeight
-nWidth
+	nWidth
-nEscapement
+	nEscapement
-nOrientation
+	nOrientation
-fnWeight        FW_DONTCARE, FW_NORMAL, FW_MEDIUM, FW_BOLD, ...
+	fnWeight        FW_DONTCARE, FW_NORMAL, FW_MEDIUM, FW_BOLD, ...
-fdwItalic       TRUE or FALSE
+	fdwItalic       TRUE or FALSE
-fdwUnderline    TRUE or FALSE
+	fdwUnderline    TRUE or FALSE
-fdwStrikeOut    TRUE or FALSE
+	fdwStrikeOut    TRUE or FALSE
-fdwCharSet      ANSI_CHARSET, UNICODE_, SYMBOL_, SHIFTJIS_,...
+	fdwCharSet      ANSI_CHARSET, UNICODE_, SYMBOL_, SHIFTJIS_,...
-fdwOutputPrecision      DEFAULT, STRING, CHAR, ...
+	fdwOutputPrecision      DEFAULT, STRING, CHAR, ...
-fdwClipPrecision        DEFAULT, CHAR, STROKE, MASK, ...
+	fdwClipPrecision        DEFAULT, CHAR, STROKE, MASK, ...
-fdwQuality      DEFAULT, DRAFT, or PROOF.
+	fdwQuality      DEFAULT, DRAFT, or PROOF.
-fdwPitchAndFamily
+	fdwPitchAndFamily
-DEFAULT, FIXED or VARIABLE pitch
+		DEFAULT, FIXED or VARIABLE pitch
-DECORATIVE, DONTCASE, MODERN, ROMAN, SCRIPT, or SWISS.
+		DECORATIVE, DONTCASE, MODERN, ROMAN, SCRIPT, or SWISS.
-lpszFace
+	lpszFace
-Typeface Name
+		Typeface Name
 These two above descriptions will be matched as follows:
-foundry   - ignored
+	foundry   - ignored
-family    - mapped to type face name.
+	family    - mapped to type face name.
-weight    - mapped to fnWeight
+	weight    - mapped to fnWeight
-slant     - used for style
+	slant     - used for style
-spacing   - NOT USED INITIALLY
+	spacing   - NOT USED INITIALLY
-pixelSize - NOT USED INITIALLY
+	pixelSize - NOT USED INITIALLY
-size      - mapped to nHeight
+	size      - mapped to nHeight
-registry  - NOT USED INITIALLY
+	registry  - NOT USED INITIALLY
-encoding  - mapped to fdwCharSet
+	encoding  - mapped to fdwCharSet
 "
 |encoding logSize heightIsCellHeight|
 encoding := encodingArg asSymbol.
 pixelSizeOrNil notNil ifTrue:[
-logSize := pixelSizeOrNil.
+	logSize := pixelSizeOrNil.
-heightIsCellHeight := false.
+	heightIsCellHeight := false.
 ] ifFalse:[
-logSize := (pointSize * (self getLogicalPixelSizeY) / 72.0) rounded.
+	logSize := (pointSize * (self getLogicalPixelSizeY) / 72.0) rounded.
-heightIsCellHeight := false.
+	heightIsCellHeight := false.
 ].
 %{
 HGDIOBJ hFont;
 int nHeight, nWidth, nEscapement, nOrientation;
 char* work;
 fdwQuality         = DEFAULT_QUALITY;
 fdwPitchAndFamily  = FF_DONTCARE;
 fdwCharSet   = ANSI_CHARSET;
 if ((encoding == @symbol('ms-ansi'))) {
-fdwCharSet   = ANSI_CHARSET;
+	fdwCharSet   = ANSI_CHARSET;
 } else if (encoding == @symbol('ms-default')
-|| encoding == @symbol(*)) {
+	       || encoding == @symbol(*)) {
-fdwCharSet   = DEFAULT_CHARSET;
+	fdwCharSet   = DEFAULT_CHARSET;
 } else if ((encoding == @symbol('ms-symbol'))
-|| (encoding == @symbol('misc-fontspecific'))) {
+	    || (encoding == @symbol('misc-fontspecific'))) {
-fdwCharSet   = SYMBOL_CHARSET;
+	fdwCharSet   = SYMBOL_CHARSET;
 } else if ((encoding == @symbol('ms-shiftjis'))
-|| (encoding == @symbol('jisx0208.1983-0'))){
+	    || (encoding == @symbol('jisx0208.1983-0'))){
-fdwCharSet   = SHIFTJIS_CHARSET;
+	fdwCharSet   = SHIFTJIS_CHARSET;
 } else if ((encoding == @symbol('ms-gb2312'))
-|| (encoding == @symbol('gb2312.1980-0'))) {
+	    || (encoding == @symbol('gb2312.1980-0'))) {
-fdwCharSet   = GB2312_CHARSET;
+	fdwCharSet   = GB2312_CHARSET;
 } else if ((encoding == @symbol('ms-hangeul'))
-|| (encoding == @symbol('ksc5601.1987-0'))) {
+	    || (encoding == @symbol('ksc5601.1987-0'))) {
-fdwCharSet   = HANGEUL_CHARSET;
+	fdwCharSet   = HANGEUL_CHARSET;
 } else if ((encoding == @symbol('ms-chinesebig5'))
-|| (encoding == @symbol('big5'))) {
+	    || (encoding == @symbol('big5'))) {
-fdwCharSet   = CHINESEBIG5_CHARSET;
+	fdwCharSet   = CHINESEBIG5_CHARSET;
 } else if (encoding == @symbol('ms-oem')) {
-fdwCharSet   = OEM_CHARSET;
+	fdwCharSet   = OEM_CHARSET;
 } else if (encoding == @symbol('ms-johab')) {
-fdwCharSet   = JOHAB_CHARSET;
+	fdwCharSet   = JOHAB_CHARSET;
 } else if ((encoding == @symbol('ms-hebrew'))
-|| (encoding == @symbol('ms-cp1255'))) {
+	    || (encoding == @symbol('ms-cp1255'))) {
-fdwCharSet   = HEBREW_CHARSET;
+	fdwCharSet   = HEBREW_CHARSET;
 } else if ((encoding == @symbol('ms-arabic'))
-|| (encoding == @symbol('ms-cp1256'))) {
+	    || (encoding == @symbol('ms-cp1256'))) {
-fdwCharSet   = ARABIC_CHARSET;
+	fdwCharSet   = ARABIC_CHARSET;
 } else if ((encoding == @symbol('ms-greek'))
-|| (encoding == @symbol('ms-cp1253'))) {
+	    || (encoding == @symbol('ms-cp1253'))) {
-fdwCharSet   = GREEK_CHARSET;
+	fdwCharSet   = GREEK_CHARSET;
 } else if ((encoding == @symbol('ms-turkish'))
-|| (encoding == @symbol('ms-cp1254'))) {
+	    || (encoding == @symbol('ms-cp1254'))) {
-fdwCharSet   = TURKISH_CHARSET;
+	fdwCharSet   = TURKISH_CHARSET;
 } else if ((encoding == @symbol('ms-russian'))
-|| (encoding == @symbol('ms-cp1251'))) {
+	    || (encoding == @symbol('ms-cp1251'))) {
-fdwCharSet   = RUSSIAN_CHARSET;
+	fdwCharSet   = RUSSIAN_CHARSET;
 } else if ((encoding == @symbol('ms-easteurope'))
-|| (encoding == @symbol('ms-cp1250'))) {
+	    || (encoding == @symbol('ms-cp1250'))) {
-fdwCharSet   = EASTEUROPE_CHARSET;
+	fdwCharSet   = EASTEUROPE_CHARSET;
 } else if ((encoding == @symbol('ms-baltic'))
-|| (encoding == @symbol('ms-cp1257'))) {
+	    || (encoding == @symbol('ms-cp1257'))) {
-fdwCharSet   = BALTIC_CHARSET;
+	fdwCharSet   = BALTIC_CHARSET;
 } else if ((encoding == @symbol('ms-vietnamese'))) {
-fdwCharSet   = VIETNAMESE_CHARSET;
+	fdwCharSet   = VIETNAMESE_CHARSET;
 } else if ((encoding == @symbol('ms-thai'))) {
-fdwCharSet   = THAI_CHARSET;
+	fdwCharSet   = THAI_CHARSET;
 } else if ((encoding == @symbol('ms-mac'))) {
-fdwCharSet   = MAC_CHARSET;
+	fdwCharSet   = MAC_CHARSET;
 #ifdef UNICODE_CHARSET
 } else if ((encoding == @symbol('ms-unicode'))) {
-fdwCharSet   = UNICODE_CHARSET;
+	fdwCharSet   = UNICODE_CHARSET;
 #endif
 }
 if ( __isStringLike( family ) ) {
-work = __stringVal( family );
+	work = __stringVal( family );
-if (strcmp( work, "nil" ) != 0 ) {
+	if (strcmp( work, "nil" ) != 0 ) {
-strncpy( faceName, work, sizeof(faceName)-1 );
+	    strncpy( faceName, work, sizeof(faceName)-1 );
-}
+	}
 }
 /* Q: should we allow those ? (they make ST/X programs less portable to X */
 if( __isStringLike( weight ) ) {
-work = __stringVal( weight );
+	work = __stringVal( weight );
-if (strcmp( work, "bold" ) == 0 ) {
+	if (strcmp( work, "bold" ) == 0 ) {
-fnWeight = FW_BOLD;
+	    fnWeight = FW_BOLD;
-} else if (strcmp( work, "medium" ) == 0 ) {
+	} else if (strcmp( work, "medium" ) == 0 ) {
-fnWeight = FW_MEDIUM;
+	    fnWeight = FW_MEDIUM;
-} else if (strcmp( work, "normal" ) == 0 ) {
+	} else if (strcmp( work, "normal" ) == 0 ) {
-fnWeight = FW_NORMAL;
+	    fnWeight = FW_NORMAL;
-} else if (strcmp( work, "light" ) == 0 ) {
+	} else if (strcmp( work, "light" ) == 0 ) {
-fnWeight = FW_LIGHT;
+	    fnWeight = FW_LIGHT;
-} else if (strcmp( work, "demi" ) == 0 ) {
+	} else if (strcmp( work, "demi" ) == 0 ) {
-fnWeight = FW_LIGHT;
+	    fnWeight = FW_LIGHT;
-} else if (strcmp( work, "heavy" ) == 0 ) {
+	} else if (strcmp( work, "heavy" ) == 0 ) {
-fnWeight = FW_HEAVY;
+	    fnWeight = FW_HEAVY;
-} else if (strcmp( work, "extraBold" ) == 0 ) {
+	} else if (strcmp( work, "extraBold" ) == 0 ) {
-fnWeight = FW_EXTRABOLD;
+	    fnWeight = FW_EXTRABOLD;
-} else if (strcmp( work, "semiBold" ) == 0 ) {
+	} else if (strcmp( work, "semiBold" ) == 0 ) {
-fnWeight = FW_SEMIBOLD;
+	    fnWeight = FW_SEMIBOLD;
-} else if (strcmp( work, "thin" ) == 0 ) {
+	} else if (strcmp( work, "thin" ) == 0 ) {
-fnWeight = FW_THIN;
+	    fnWeight = FW_THIN;
-} else if (strcmp( work, "extraLight" ) == 0 ) {
+	} else if (strcmp( work, "extraLight" ) == 0 ) {
-fnWeight = FW_EXTRALIGHT;
+	    fnWeight = FW_EXTRALIGHT;
-}
+	}
 } else if (__isSmallInteger(weight)) {
-fnWeight = __intVal(weight);
+	fnWeight = __intVal(weight);
 }
 if(__isSmallInteger( logSize )) {
-nHeight = __intVal( logSize );
+	nHeight = __intVal( logSize );
 }
 if (__isStringLike(slant)) {
-work2 = __stringVal( slant );
+	work2 = __stringVal( slant );
-work  = __stringVal( slant );
+	work  = __stringVal( slant );
-if (strncmp(work2, "italic", 6) == 0)  {
+	if (strncmp(work2, "italic", 6) == 0)  {
-fdwItalic = TRUE;
+	    fdwItalic = TRUE;
-if ( work2[6] == '-' )
+	    if ( work2[6] == '-' )
-strncpy( work, &work2[7], ( strlen( work2) - 7) );
+		strncpy( work, &work2[7], ( strlen( work2) - 7) );
-} else {
+	} else {
-if (strncmp(work2, "oblique", 7) == 0)  {
+	    if (strncmp(work2, "oblique", 7) == 0)  {
-fdwItalic = TRUE;
+		fdwItalic = TRUE;
-if ( work2[7] == '-' )
+		if ( work2[7] == '-' )
-strncpy( work, &work2[8], ( strlen( work2) - 8) );
+		    strncpy( work, &work2[8], ( strlen( work2) - 8) );
-}
+	    }
-}
+	}
-if (strncmp( work, "underline", 9 ) == 0 ) {
+	if (strncmp( work, "underline", 9 ) == 0 ) {
-fdwUnderline = TRUE;
+	    fdwUnderline = TRUE;
-if( work[10] == '-' )
+	    if( work[10] == '-' )
-strncpy( work2, &work[11], ( strlen( work ) - 10 ) );
+		strncpy( work2, &work[11], ( strlen( work ) - 10 ) );
-}
+	}
-if (strncmp( work2, "strikeOut", 9 ) == 0 ) {
+	if (strncmp( work2, "strikeOut", 9 ) == 0 ) {
-fdwStrikeOut = TRUE;
+	    fdwStrikeOut = TRUE;
-}
+	}
 }
 DPRINTF(("CreateFont face:%s h=%d w=%d wght=%d\n",
-faceName, nHeight, nWidth, fnWeight));
+		faceName, nHeight, nWidth, fnWeight));
 hFont = CreateFont(
-(
+			(
-(heightIsCellHeight == true)  ?
+			    (heightIsCellHeight == true)  ?
-nHeight : -nHeight            /* positive:cell height; negative:character height */
+				nHeight : -nHeight            /* positive:cell height; negative:character height */
-),
+			),
-nWidth,
+			nWidth,
-nEscapement,
+			nEscapement,
-nOrientation,
+			nOrientation,
-fnWeight,
+			fnWeight,
-fdwItalic,
+			fdwItalic,
-fdwUnderline,
+			fdwUnderline,
-fdwStrikeOut,
+			fdwStrikeOut,
-fdwCharSet,
+			fdwCharSet,
-fdwOutputPrecision,
+			fdwOutputPrecision,
-fdwClipPrecision,
+			fdwClipPrecision,
-fdwQuality,
+			fdwQuality,
-fdwPitchAndFamily,
+			fdwPitchAndFamily,
-faceName );
+			faceName );
 if (hFont != NULL) {
-DPRINTF(("createFont: %x\n", hFont));
+	DPRINTF(("createFont: %x\n", hFont));
 #ifdef COUNT_RESOURCES
-__cnt_font++;
+	__cnt_font++;
-RES1PRINTF(("CreateFont %d\n", __cnt_font));
+	RES1PRINTF(("CreateFont %d\n", __cnt_font));
 #endif
-RETURN ( __MKOBJ(hFont) );
+	RETURN ( __MKOBJ(hFont) );
 }
 DPRINTF(("***** ERROR createFontWithFoundry failed ERROR *****\n" ));
 %}.
 ^ nil
 "
 Display getFontWithFoundry:'*'
-family:'courier'
+			 family:'courier'
-weight:'medium'
+			 weight:'medium'
-slant:'r'
+			  slant:'r'
-spacing:nil
+			spacing:nil
-pixelSize:nil
+		      pixelSize:nil
-size:13
+			   size:13
-registry:'iso8859'
+		       registry:'iso8859'
-encoding:#*
+		       encoding:#*
 "
 "new NT Version: 20.2.1997 / 22:33:29 / dq"
 !
 self primEnumFontTypesInto:typeFaceList.
 "/Transcript showCR:typeFaceList.
 typeFaceList do:[:typeFace |
-self primEnumFontsIn:typeFace into:list.
+	  self primEnumFontsIn:typeFace into:list.
 ].
 ] valueUninterruptably.
 "/ Transcript showCR:list.
 listOfFonts := OrderedCollection new.
 list do:[:anInfoArray |
-| fntDescr italicFontDescr |
+	| fntDescr italicFontDescr |
-fntDescr := self fontDescriptionFromLogicalFontInfoArray:anInfoArray.
+	fntDescr := self fontDescriptionFromLogicalFontInfoArray:anInfoArray.
-listOfFonts add:fntDescr.
+	listOfFonts add:fntDescr.
-"/ manually generate italic version (any font can be made italic here)
+	"/ manually generate italic version (any font can be made italic here)
-(fntDescr style startsWith:'roman') ifTrue:[
+	(fntDescr style startsWith:'roman') ifTrue:[
-italicFontDescr := FontDescription
+	    italicFontDescr := FontDescription
-family:fntDescr family
+			    family:fntDescr family
-face:fntDescr face
+			    face:fntDescr face
-style:('italic' , (fntDescr style copyFrom:'roman' size+1))
+			    style:('italic' , (fntDescr style copyFrom:'roman' size+1))
-size:fntDescr size
+			    size:fntDescr size
-encoding:fntDescr encoding.
+			    encoding:fntDescr encoding.
-listOfFonts add:italicFontDescr.
+	    listOfFonts add:italicFontDescr.
-].
+	].
 ].
 ^ listOfFonts
 "
 |sizes|
 sizes := super pixelSizesInFamily:aFamilyName face:aFaceName style:aStyleName filtering:filterBlock.
 (sizes notNil and:[sizes includes:0]) ifTrue:[
-"special: size 0 means:
+	"special: size 0 means:
-there are scaled versions in all sizes available"
+	 there are scaled versions in all sizes available"
-^ #(6 8 10 12 13 14 15 16 18 20 22 24 28 32 48 64)
+	^ #(6 8 10 12 13 14 15 16 18 20 22 24 28 32 48 64)
 ].
 ^ sizes
 "
 Display pixelSizesInFamily:'courier' face:'bold' style:'roman'
 primEnumFontTypesInto:typeFaceList
 %{
 if (__tmpDC) {
 #ifdef USE_EnumFontFamiliesEx
-EnumFontFamiliesEx( __tmpDC, NULL, EnumFPTypeFaceProc, (INT)&typeFaceList);
+	EnumFontFamiliesEx( __tmpDC, NULL, EnumFPTypeFaceProc, (INT)&typeFaceList);
 #else
-EnumFontFamilies( __tmpDC, NULL, EnumFPTypeFaceProc, (INT)&typeFaceList);
+	EnumFontFamilies( __tmpDC, NULL, EnumFPTypeFaceProc, (INT)&typeFaceList);
 #endif
 }
 %}
 !
 primEnumFontsIn:typeFace into:fontList
 %{
 char *cp;
 if (__isStringLike(typeFace)) {
-if (__tmpDC) {
+	if (__tmpDC) {
 #ifdef USE_EnumFontFamiliesEx
-EnumFontFamiliesEx(__tmpDC, __stringVal(typeFace), EnumFontsProc, (INT)&fontList);
+	    EnumFontFamiliesEx(__tmpDC, __stringVal(typeFace), EnumFontsProc, (INT)&fontList);
 #else
-EnumFontFamilies(__tmpDC, __stringVal(typeFace), EnumFontsProc, (INT)&fontList);
+	    EnumFontFamilies(__tmpDC, __stringVal(typeFace), EnumFontsProc, (INT)&fontList);
 #endif
-}
+	}
 }
 %}.
 !
 primFontMetricsOf:fontId intoArray:rawData
 %{
 if (__isExternalAddress(fontId)
 && __isArray(rawData)
 && (__arraySize(rawData) >= 11)) {
-SIZE size;
+	SIZE size;
-int avgWidth;
+	int avgWidth;
-HGDIOBJ hFont;
+	HGDIOBJ hFont;
-HGDIOBJ prevFont;
+	HGDIOBJ prevFont;
-// TEXTMETRIC tmet;
+	// TEXTMETRIC tmet;
-TEXTMETRICW tmet;
+	TEXTMETRICW tmet;
-OBJ t;
+	OBJ t;
-hFont = _HGDIOBJVal(fontId);
+	hFont = _HGDIOBJVal(fontId);
-/*
+	/*
-* temporarily set this font in the tmpDC (root-) context
+	 * temporarily set this font in the tmpDC (root-) context
-*/
+	 */
 #ifdef CACHE_LAST_TMP_FONT
-if (__tmpDC_hfont != hFont) {
+	if (__tmpDC_hfont != hFont) {
-prevFont = SelectObject(__tmpDC, hFont);
+	    prevFont = SelectObject(__tmpDC, hFont);
-if (__tmpDC_prev_hfont == NULL) {
+	    if (__tmpDC_prev_hfont == NULL) {
-__tmpDC_prev_hfont = prevFont;
+		__tmpDC_prev_hfont = prevFont;
-}
+	    }
-__tmpDC_hfont = hFont;
+	    __tmpDC_hfont = hFont;
-}
+	}
 #else
-prevFont = SelectObject(__tmpDC, hFont);
+	prevFont = SelectObject(__tmpDC, hFont);
 #endif
-GetTextMetricsW(__tmpDC, &tmet);
+	GetTextMetricsW(__tmpDC, &tmet);
 #if 0
-{
+	{
-static char *s = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz";
+	    static char *s = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz";
-static int len;
+	    static int len;
-if (len == 0) {
+	    if (len == 0) {
-len = strlen(s);
+		len = strlen(s);
-}
+	    }
-GetTextExtentPoint32(__tmpDC, s, len, &size);
+	    GetTextExtentPoint32(__tmpDC, s, len, &size);
-avgWidth = (size.cx / (len / 2) + 1) / 2;
+	    avgWidth = (size.cx / (len / 2) + 1) / 2;
-}
+	}
 #else
-avgWidth = tmet.tmAveCharWidth;
+	avgWidth = tmet.tmAveCharWidth;
 #endif
 #ifndef CACHE_LAST_TMP_FONT
-SelectObject(__tmpDC, prevFont);
+	SelectObject(__tmpDC, prevFont);
 #endif
-__ArrayInstPtr(rawData)->a_element[0] = __MKSMALLINT(tmet.tmAscent);        /* ascent     -> (data at:1) */
+	__ArrayInstPtr(rawData)->a_element[0] = __MKSMALLINT(tmet.tmAscent);        /* ascent     -> (data at:1) */
-__ArrayInstPtr(rawData)->a_element[1] = __MKSMALLINT(tmet.tmDescent);       /* descent    -> (data at:2) */
+	__ArrayInstPtr(rawData)->a_element[1] = __MKSMALLINT(tmet.tmDescent);       /* descent    -> (data at:2) */
-__ArrayInstPtr(rawData)->a_element[2] = __MKSMALLINT(tmet.tmAscent);        /* maxAscent  -> (data at:3) */
+	__ArrayInstPtr(rawData)->a_element[2] = __MKSMALLINT(tmet.tmAscent);        /* maxAscent  -> (data at:3) */
-__ArrayInstPtr(rawData)->a_element[3] = __MKSMALLINT(tmet.tmDescent);       /* maxDescent -> (data at:4) */
+	__ArrayInstPtr(rawData)->a_element[3] = __MKSMALLINT(tmet.tmDescent);       /* maxDescent -> (data at:4) */
-__ArrayInstPtr(rawData)->a_element[4] = __MKSMALLINT(avgWidth);             /* minWidth   -> (data at:5) */
+	__ArrayInstPtr(rawData)->a_element[4] = __MKSMALLINT(avgWidth);             /* minWidth   -> (data at:5) */
-__ArrayInstPtr(rawData)->a_element[5] = __MKSMALLINT(tmet.tmMaxCharWidth);  /* maxWidth   -> (data at:6) */
+	__ArrayInstPtr(rawData)->a_element[5] = __MKSMALLINT(tmet.tmMaxCharWidth);  /* maxWidth   -> (data at:6) */
-__ArrayInstPtr(rawData)->a_element[6] = __MKSMALLINT(avgWidth);             /* avgWidth   -> (data at:7) */
+	__ArrayInstPtr(rawData)->a_element[6] = __MKSMALLINT(avgWidth);             /* avgWidth   -> (data at:7) */
-__ArrayInstPtr(rawData)->a_element[7] = __MKSMALLINT(tmet.tmFirstChar);     /* min        -> (data at:8) */
+	__ArrayInstPtr(rawData)->a_element[7] = __MKSMALLINT(tmet.tmFirstChar);     /* min        -> (data at:8) */
-__ArrayInstPtr(rawData)->a_element[8] = __MKSMALLINT(tmet.tmLastChar);      /* max        -> (data at:9) */
+	__ArrayInstPtr(rawData)->a_element[8] = __MKSMALLINT(tmet.tmLastChar);      /* max        -> (data at:9) */
-__ArrayInstPtr(rawData)->a_element[9] = __MKSMALLINT(tmet.tmDefaultChar);   /* default    -> (data at:10) */
+	__ArrayInstPtr(rawData)->a_element[9] = __MKSMALLINT(tmet.tmDefaultChar);   /* default    -> (data at:10) */
-t = __charSetSymbolFor(tmet.tmCharSet);
+	t = __charSetSymbolFor(tmet.tmCharSet);
-__ArrayInstPtr(rawData)->a_element[10]= t; __STORE(rawData, t);             /* charSet    -> (data at:11) */
+	__ArrayInstPtr(rawData)->a_element[10]= t; __STORE(rawData, t);             /* charSet    -> (data at:11) */
-DPRINTF(("textMetrics h=%x  avgAsc=%d avgDesc=%d minW=%d maxW=%d avgW=%d\n",
+	DPRINTF(("textMetrics h=%x  avgAsc=%d avgDesc=%d minW=%d maxW=%d avgW=%d\n",
-hFont, tmet.tmAscent, tmet.tmDescent, avgWidth, tmet.tmMaxCharWidth,
+		    hFont, tmet.tmAscent, tmet.tmDescent, avgWidth, tmet.tmMaxCharWidth,
-tmet.tmAveCharWidth));
+		    tmet.tmAveCharWidth));
-RETURN (self);
+	RETURN (self);
 }
 RETURN (nil);
 %}
 !
 releaseFont:aFontId
 %{  /* NOCONTEXT */
 if (__isExternalAddress(aFontId)) {
-HGDIOBJ hFont = _HGDIOBJVal(aFontId);
+	HGDIOBJ hFont = _HGDIOBJVal(aFontId);
-if (hFont) {
+	if (hFont) {
 #ifdef COUNT_RESOURCES
-__cnt_font--;
+	    __cnt_font--;
-RES1PRINTF(("DestroyFont %d\n",__cnt_font));
+	   RES1PRINTF(("DestroyFont %d\n",__cnt_font));
 #endif
-DPRINTF(("ReleaseFont: %x\n", hFont));
+	   DPRINTF(("ReleaseFont: %x\n", hFont));
-_DeleteFont(hFont, __LINE__);
+	   _DeleteFont(hFont, __LINE__);
-}
+	}
 }
 %}
 !
 sizesInFamily:aFamilyName face:aFaceName style:aStyleName filtering:filter
 |sizes|
 sizes := super sizesInFamily:aFamilyName face:aFaceName style:aStyleName filtering:filter.
 (sizes notNil and:[sizes includes:0]) ifTrue:[
-"special: in X11R5 and above, size 0 means:
+	"special: in X11R5 and above, size 0 means:
-there are scaled versions in all sizes available"
+	 there are scaled versions in all sizes available"
-^ #(4 5 6 7 8 9 10 11 12 14 16 18 20 22 24 28 32 48 64)
+	^ #(4 5 6 7 8 9 10 11 12 14 16 18 20 22 24 28 32 48 64)
 ].
 ^ sizes
 "
 Display sizesInFamily:'courier' face:'bold' style:'roman'
 widthOf:aString from:index1 to:index2 inFont:aFontId
 "leftover - bw compatibility"
 |w|
 w := self
-widthOf:aString from:index1 to:index2 inFont:aFontId
+	widthOf:aString from:index1 to:index2 inFont:aFontId
-in:nil with:nil.
+	in:nil with:nil.
 w isNil ifTrue:[
-"/ the primitive returns nil (sigh) for invalid argument
+	"/ the primitive returns nil (sigh) for invalid argument
-w := self
+	w := self
-widthOf:aString asString asUnicode16String from:index1 to:index2 inFont:aFontId
+	    widthOf:aString asString asUnicode16String from:index1 to:index2 inFont:aFontId
-in:nil with:nil
+	    in:nil with:nil
 ].
 ^ w
 !
 widthOf:aString from:index1 to:index2 inFont:aFontId in:ignoredDrawableId with:aGCId
 int nInstBytes;
 if (__bothSmallInteger(index1, index2)
 && __isExternalAddress(aFontId)
 && __isNonNilObject(aString)) {
-HGDIOBJ hFont,prevFont;
+	HGDIOBJ hFont,prevFont;
-HDC hDC;
+	HDC hDC;
-SIZE tsize;
+	SIZE tsize;
 #define xxPRE_22_FEP_2007
 #ifndef PRE_22_FEP_2007
 #       define N_QUICK_CHARS    1024
-unsigned short quickWchars[N_QUICK_CHARS];
+	unsigned short quickWchars[N_QUICK_CHARS];
-unsigned short *wcharPtr;
+	unsigned short *wcharPtr;
-int mustFree = 0;
+	int mustFree = 0;
-int i;
+	int i;
 #endif
-hFont = _HGDIOBJVal(aFontId);
+	hFont = _HGDIOBJVal(aFontId);
-if (__isExternalAddress(aGCId)) {
+	if (__isExternalAddress(aGCId)) {
-struct gcData *gcData = _GCDATA(aGCId);
+	    struct gcData *gcData = _GCDATA(aGCId);
-hDC = _getDC(gcData);
+	    hDC = _getDC(gcData);
-prevFont = SelectObject(hDC, hFont);
+	    prevFont = SelectObject(hDC, hFont);
-} else {
+	} else {
-hDC = __tmpDC;
+	    hDC = __tmpDC;
 #ifdef CACHE_LAST_TMP_FONT
-if (__tmpDC_hfont != hFont) {
+	    if (__tmpDC_hfont != hFont) {
-prevFont = SelectObject(hDC, hFont);
+		prevFont = SelectObject(hDC, hFont);
-if (__tmpDC_prev_hfont == NULL) {
+		if (__tmpDC_prev_hfont == NULL) {
-__tmpDC_prev_hfont = prevFont;
+		    __tmpDC_prev_hfont = prevFont;
-}
+		}
-__tmpDC_hfont = hFont;
+		__tmpDC_hfont = hFont;
-}
+	    }
 #else
-prevFont = SelectObject(hDC, hFont);
+	    prevFont = SelectObject(hDC, hFont);
 #endif
-}
+	}
-i1 = __intVal(index1) - 1;
+	i1 = __intVal(index1) - 1;
-cls = __qClass(aString);
+	cls = __qClass(aString);
-if (i1 >= 0) {
+	if (i1 >= 0) {
-i2 = __intVal(index2) - 1;
+	    i2 = __intVal(index2) - 1;
-if (i2 < i1) {
+	    if (i2 < i1) {
-RETURN ( __MKSMALLINT( 0 ) );
+		RETURN ( __MKSMALLINT( 0 ) );
-}
+	    }
-cp = (char *) _stringVal(aString);
+	    cp = (char *) _stringVal(aString);
-l = i2 - i1 + 1;
+	    l = i2 - i1 + 1;
-if (__isStringLike(aString)) {
+	    if (__isStringLike(aString)) {
-n = _stringSize(aString);
+		n = _stringSize(aString);
 commonWidthChars:
-if (i2 < n) {
+		if (i2 < n) {
-cp += i1;
+		    cp += i1;
 #ifdef PRE_22_FEP_2007
-GetTextExtentPoint32(hDC, cp, l, &tsize);
+		    GetTextExtentPoint32(hDC, cp, l, &tsize);
 #else
-if (l <= N_QUICK_CHARS) {
+		    if (l <= N_QUICK_CHARS) {
-wcharPtr = quickWchars;
+			wcharPtr = quickWchars;
-mustFree = 0;
+			mustFree = 0;
-} else {
+		    } else {
-wcharPtr = malloc(sizeof(short)*l);
+			wcharPtr = malloc(sizeof(short)*l);
-if (! wcharPtr) RETURN (__MKSMALLINT(0));
+			if (! wcharPtr) RETURN (__MKSMALLINT(0));
-mustFree = 1;
+			mustFree = 1;
-}
+		    }
-for (i=0; i<l; i++) wcharPtr[i] = ((unsigned char *)cp)[i];
+		    for (i=0; i<l; i++) wcharPtr[i] = ((unsigned char *)cp)[i];
-GetTextExtentPoint32W(hDC, wcharPtr, l, &tsize);
+		    GetTextExtentPoint32W(hDC, wcharPtr, l, &tsize);
-if (mustFree) free(wcharPtr);
+		    if (mustFree) free(wcharPtr);
 #endif
 #ifdef SUPERDEBUG
-if (__debug__) {
+		    if (__debug__) {
-char buf[80];
+			char buf[80];
-GetTextFace(hDC,80,buf);
+			GetTextFace(hDC,80,buf);
-console_printf("font1 %x %s >%s< l=%d dx=%d\n",hFont,buf,cp,l,tsize.cx);
+			console_printf("font1 %x %s >%s< l=%d dx=%d\n",hFont,buf,cp,l,tsize.cx);
-}
+		    }
 #endif
-if (__isExternalAddress(aGCId)) {
+		    if (__isExternalAddress(aGCId)) {
-SelectObject(hDC, prevFont);
+			SelectObject(hDC, prevFont);
-} else {
+		    } else {
 #ifndef CACHE_LAST_TMP_FONT
-SelectObject(hDC, prevFont);
+			SelectObject(hDC, prevFont);
 #endif
-}
+		    }
-RETURN ( __MKSMALLINT(tsize.cx) );
+		    RETURN ( __MKSMALLINT(tsize.cx) );
-}
+		}
-RETURN (__MKSMALLINT(0));
+		RETURN (__MKSMALLINT(0));
-}
+	    }
-nInstBytes = __OBJS2BYTES__(__intVal(__ClassInstPtr(cls)->c_ninstvars));
+	    nInstBytes = __OBJS2BYTES__(__intVal(__ClassInstPtr(cls)->c_ninstvars));
-cp += nInstBytes;
+	    cp += nInstBytes;
-n = __byteArraySize(aString) - nInstBytes;
+	    n = __byteArraySize(aString) - nInstBytes;
-if (__isBytes(aString)) {
+	    if (__isBytes(aString)) {
-goto commonWidthChars;
+		goto commonWidthChars;
-}
+	    }
-/* Unicode */
+	    /* Unicode */
-if (__isWords(aString)) {
+	    if (__isWords(aString)) {
-n = n / 2;
+		n = n / 2;
-if (i2 < n) {
+		if (i2 < n) {
-WIDECHAR *w_cp = (WIDECHAR *)cp;
+		    WIDECHAR *w_cp = (WIDECHAR *)cp;
-w_cp += i1;
+		    w_cp += i1;
-GetTextExtentPoint32W(hDC, w_cp, l, &tsize);
+		    GetTextExtentPoint32W(hDC, w_cp, l, &tsize);
-if (__isExternalAddress(aGCId)) {
+		    if (__isExternalAddress(aGCId)) {
-SelectObject(hDC, prevFont);
+			SelectObject(hDC, prevFont);
-} else {
+		    } else {
 #ifndef CACHE_LAST_TMP_FONT
-SelectObject(hDC, prevFont);
+			SelectObject(hDC, prevFont);
 #endif
-}
+		    }
-RETURN ( __MKSMALLINT(tsize.cx) );
+		    RETURN ( __MKSMALLINT(tsize.cx) );
-}
+		}
-RETURN (__MKSMALLINT(0));
+		RETURN (__MKSMALLINT(0));
-}
+	    }
-}
+	}
 }
 %}.
 ^ nil
 ! !
 grabPointerIn:aWindowId withCursor:aCursorId pointerMode:pMode keyboardMode:kMode confineTo:confineId
 "grap the pointer - return true if ok"
 %{
 if (__isExternalAddress(aWindowId)) {
-HWND hWnd = _HWNDVal(aWindowId);
+	HWND hWnd = _HWNDVal(aWindowId);
-HCURSOR hCursor = 0;
+	HCURSOR hCursor = 0;
-if (__currentCapture != CAPTURE_NONE) {
+	if (__currentCapture != CAPTURE_NONE) {
-PostMessage(__currentPointerView, WM_THREAD_SETCAPTURE, 0, 0);
+	    PostMessage(__currentPointerView, WM_THREAD_SETCAPTURE, 0, 0);
-//ReleaseCapture();
+	    //ReleaseCapture();
-}
+	}
 #if 1
-/*
+	/*
-* place a special, invisible view above the root
+	 * place a special, invisible view above the root
-*/
+	 */
-if (hWnd == __rootWin) {
+	if (hWnd == __rootWin) {
-hWnd = __rootWinSpezial;
+	    hWnd = __rootWinSpezial;
-ShowWindow(hWnd, SW_SHOWNOACTIVATE);
+	    ShowWindow(hWnd, SW_SHOWNOACTIVATE);
-//EnableWindow(hWnd,TRUE);
+	    //EnableWindow(hWnd,TRUE);
-SetWindowPos(hWnd, HWND_TOP,
+	    SetWindowPos(hWnd, HWND_TOP,
-0, 0, 0, 0,
+			 0, 0, 0, 0,
-SWP_NOREDRAW | SWP_NOSENDCHANGING | SWP_NOCOPYBITS
+			 SWP_NOREDRAW | SWP_NOSENDCHANGING | SWP_NOCOPYBITS
-| SWP_NOACTIVATE | SWP_NOMOVE | SWP_NOSIZE);
+			 | SWP_NOACTIVATE | SWP_NOMOVE | SWP_NOSIZE);
-CPRINTF(("setRootCapture %x\n",hWnd));
+	    CPRINTF(("setRootCapture %x\n",hWnd));
-}
+	}
 #endif
-if (__isExternalAddress(aCursorId)) {
+	if (__isExternalAddress(aCursorId)) {
-hCursor = _HCURSORVal(aCursorId);
+	    hCursor = _HCURSORVal(aCursorId);
-CPRINTF(("grabPointerIn  SetCapture %x\n",hWnd));
+	    CPRINTF(("grabPointerIn  SetCapture %x\n",hWnd));
-}
+	}
-PostMessage(hWnd, WM_THREAD_SETCAPTURE, (INT)hWnd, (INT)hCursor);
+	PostMessage(hWnd, WM_THREAD_SETCAPTURE, (INT)hWnd, (INT)hCursor);
-RETURN (true);
+	RETURN (true);
 }
 %}.
 ^ false
 !
 %{  /* NOCONTEXT */
 if (__isExternalAddress(aWindowId)
 && __isExternalAddress(aGCId)) {
-struct gcData *gcData = _GCDATA(aGCId);
+	struct gcData *gcData = _GCDATA(aGCId);
-if (gcData->clipping != FALSE) {
+	if (gcData->clipping != FALSE) {
 #ifdef GDIFLUSH_WHEN_CHANGING_CLIP
-GdiFlush();
+	    GdiFlush();
 #endif
-gcData->clipping = FALSE;
+	    gcData->clipping = FALSE;
 #ifdef CACHE_LAST_DC
-if (lastGcData == gcData) {
+	    if (lastGcData == gcData) {
-SelectClipRgn(gcData->_hDC, NULL);
+		SelectClipRgn(gcData->_hDC, NULL);
-}
+	    }
 #endif
-}
+	}
-RETURN (self);
+	RETURN (self);
 }
 %}
 !
 setBackground:bgColorIndex in:aGCId
 "set background color to be drawn with"
 %{  /* NOCONTEXT */
 if (__isSmallInteger(bgColorIndex)
-&& __isExternalAddress(aGCId)) {
+	&& __isExternalAddress(aGCId)) {
-struct gcData *gcData = _GCDATA(aGCId);
+	struct gcData *gcData = _GCDATA(aGCId);
-COLORREF bgColor;
+	COLORREF bgColor;
-bgColor = (COLORREF)st2RGB(__intVal(bgColorIndex),gcData);
+	bgColor = (COLORREF)st2RGB(__intVal(bgColorIndex),gcData);
-if (bgColor != gcData->bgColor) {
+	if (bgColor != gcData->bgColor) {
-gcData->bgColor = bgColor;
+	    gcData->bgColor = bgColor;
 #ifdef CACHE_LAST_DC
-if (lastGcData == gcData) {
+	    if (lastGcData == gcData) {
-SetBkColor(gcData->_hDC, bgColor);
+		SetBkColor(gcData->_hDC, bgColor);
-/*
+		/*
-* no need to flush pen - it does not depend upon
+		 * no need to flush pen - it does not depend upon
-* the bg color
+		 * the bg color
-*/
+		 */
-}
+	    }
 #endif
-}
+	}
-CPRINTF(("setBackground: %x\n", bgColor));
+	CPRINTF(("setBackground: %x\n", bgColor));
-RETURN (self);
+	RETURN (self);
 }
 %}.
 ^self primitiveFailed
 !
 "set or clear the drawing mask - a bitmap mask using current fg/bg"
 %{  /* NOCONTEXT */
 if (__isExternalAddress(aGCId)) {
-struct gcData *gcData = _GCDATA(aGCId);
+	struct gcData *gcData = _GCDATA(aGCId);
-HBITMAP oldM;
+	HBITMAP oldM;
-oldM = gcData->hMask;
+	oldM = gcData->hMask;
-if (__isExternalAddress(aBitmapId))
+	if (__isExternalAddress(aBitmapId))
-gcData->hMask = _HBITMAPVAL(aBitmapId);
+	    gcData->hMask = _HBITMAPVAL(aBitmapId);
-else
+	else
-gcData->hMask = 0;
+	    gcData->hMask = 0;
-if (oldM != gcData->hMask) {
+	if (oldM != gcData->hMask) {
-FLUSH_CACHED_DC(gcData);
+	    FLUSH_CACHED_DC(gcData);
-CPRINTF(("masks set to %x\n",gcData->hMask));
+	    CPRINTF(("masks set to %x\n",gcData->hMask));
-}
+	}
-RETURN (self);
+	RETURN (self);
 }
 %}
 !
 setClipByChildren:aBool in:aWindowId gc:aGCId
 "enable/disable drawing into child views"
 %{  /* NOCONTEXT */
 if (ISCONNECTED && __isExternalAddress(aGCId)) {
-struct gcData *gcData = _GCDATA(aGCId);
+	struct gcData *gcData = _GCDATA(aGCId);
-if (gcData && gcData->hWnd) {
+	if (gcData && gcData->hWnd) {
-int newClip;
+	    int newClip;
-newClip = (aBool == true) ? TRUE : FALSE;
+	   newClip = (aBool == true) ? TRUE : FALSE;
-if (newClip != gcData->clipByChildren) {
+	    if (newClip != gcData->clipByChildren) {
 #ifdef GDIFLUSH_WHEN_CHANGING_CLIP
-GdiFlush();
+		GdiFlush();
 #endif
-/* set/clear clip by children */
+		/* set/clear clip by children */
-gcData->clipByChildren = newClip;
+		gcData->clipByChildren = newClip;
-FLUSH_CACHED_DC(gcData);
+		FLUSH_CACHED_DC(gcData);
-}
+	    }
-} else {
+	} else {
-DPRINTF(("clipping by child failed - invalid window\n" ));
+	    DPRINTF(("clipping by child failed - invalid window\n" ));
-}
+	}
 }
 %}.
 ^ self
 !
 p--w---
 |     |
 h     |  the clipping rectangle
 |     |
 -------
-where p = ( clipXArg, clipYArg ), w = clipWidth, h = clipHeight
+	  where p = ( clipXArg, clipYArg ), w = clipWidth, h = clipHeight
 "
 %{  /* NOCONTEXT */
 if (  __isExternalAddress(aGCId)
 && __bothSmallInteger(clipXArg, clipYArg)
 && __bothSmallInteger(clipWidth, clipHeight) ) {
-struct gcData *gcData = _GCDATA(aGCId);
+	struct gcData *gcData = _GCDATA(aGCId);
-int cX, cY, cW, cH;
+	int cX, cY, cW, cH;
-cX = __intVal(clipXArg);
+	cX = __intVal(clipXArg);
-cY = __intVal(clipYArg);
+	cY = __intVal(clipYArg);
-cW = __intVal(clipWidth);
+	cW = __intVal(clipWidth);
-cH = __intVal(clipHeight);
+	cH = __intVal(clipHeight);
-if ((gcData->clipping != TRUE)
+	if ((gcData->clipping != TRUE)
-|| (cX != gcData->clipX)
+	 || (cX != gcData->clipX)
-|| (cY != gcData->clipY)
+	 || (cY != gcData->clipY)
-|| (cW != gcData->clipW)
+	 || (cW != gcData->clipW)
-|| (cH != gcData->clipH)) {
+	 || (cH != gcData->clipH)) {
-gcData->clipping = TRUE;
+	    gcData->clipping = TRUE;
-gcData->clipX = cX;
+	    gcData->clipX = cX;
-gcData->clipY = cY;
+	    gcData->clipY = cY;
-gcData->clipW = cW;
+	    gcData->clipW = cW;
-gcData->clipH = cH;
+	    gcData->clipH = cH;
 #ifdef GDIFLUSH_WHEN_CHANGING_CLIP
-GdiFlush();
+	    GdiFlush();
 #endif
 #ifdef CACHE_LAST_DC
-/*
+	    /*
-* must update current cached DC
+	     * must update current cached DC
-*/
+	     */
-if (lastGcData == gcData) {
+	    if (lastGcData == gcData) {
-HRGN region = CreateRectRgn(cX, cY, cX + cW, cY + cH);
+		HRGN region = CreateRectRgn(cX, cY, cX + cW, cY + cH);
-if (region == NULL ) {
+		if (region == NULL ) {
-console_fprintf(stderr, "WinWorkstat [warning]: clipping region creation failed\n");
+		    console_fprintf(stderr, "WinWorkstat [warning]: clipping region creation failed\n");
-FLUSH_CACHED_DC(gcData);
+		    FLUSH_CACHED_DC(gcData);
-} else {
+		} else {
-if (SelectClipRgn(gcData->_hDC, region) == ERROR ) {
+		    if (SelectClipRgn(gcData->_hDC, region) == ERROR ) {
-console_fprintf(stderr, "WinWorkstat [warning]: select clipping region failed\n");
+			console_fprintf(stderr, "WinWorkstat [warning]: select clipping region failed\n");
-FLUSH_CACHED_DC(gcData);
+			FLUSH_CACHED_DC(gcData);
-}
+		    }
-_DeleteObject(region, __LINE__);
+		    _DeleteObject(region, __LINE__);
-}
+		}
-}
+	    }
 #endif
-}
+	}
-RETURN (self);
+	RETURN (self);
 }
 %}
 !
 setDashes:dashList dashOffset:offset in:aGCId
 "set line attributes"
 %{  /* NOCONTEXT */
 if (__isExternalAddress(aGCId)) {
-PRINTF(("WinWorkstat [warning]: dashes not (yet) implemented\n"));
+	PRINTF(("WinWorkstat [warning]: dashes not (yet) implemented\n"));
 }
 %}
 !
 setFont:aFontId in:aGCId
 %{  /* NOCONTEXT */
 if (__isExternalAddress(aGCId)
 && __isExternalAddress(aFontId))
 {
-struct gcData *gcData = _GCDATA(aGCId);
+	struct gcData *gcData = _GCDATA(aGCId);
-HGDIOBJ prevFont, hFont;
+	HGDIOBJ prevFont, hFont;
-// TEXTMETRIC tmet;
+	// TEXTMETRIC tmet;
-TEXTMETRICW tmet;
+	TEXTMETRICW tmet;
-hFont = _HGDIOBJVal(aFontId);
+	hFont = _HGDIOBJVal(aFontId);
-if (gcData->hFont != hFont) {
+	if (gcData->hFont != hFont) {
-gcData->hFont = hFont;
+	    gcData->hFont = hFont;
 #ifdef CACHE_LAST_TMP_FONT
-if (__tmpDC_hfont != hFont) {
+	    if (__tmpDC_hfont != hFont) {
-prevFont = SelectObject(__tmpDC, hFont);
+		prevFont = SelectObject(__tmpDC, hFont);
-if (__tmpDC_prev_hfont == NULL) {
+		if (__tmpDC_prev_hfont == NULL) {
-__tmpDC_prev_hfont = prevFont;
+		    __tmpDC_prev_hfont = prevFont;
-}
+		}
-__tmpDC_hfont = hFont;
+		__tmpDC_hfont = hFont;
-}
+	    }
 #else
-prevFont = SelectObject(__tmpDC, hFont);
+	    prevFont = SelectObject(__tmpDC, hFont);
 #endif
-GetTextMetricsW(__tmpDC, &tmet);
+	    GetTextMetricsW(__tmpDC, &tmet);
-gcData->fontAscent = tmet.tmAscent;
+	    gcData->fontAscent = tmet.tmAscent;
 #ifdef SUPERDEBUG
-if (__debug__) {
+	    if (__debug__) {
-char buf[80];
+		char buf[80];
-GetTextFace(__tmpDC, 80, buf);
+		GetTextFace(__tmpDC, 80, buf);
-PRINTF(("setFont: %x %s\n", hFont, buf));
+		PRINTF(("setFont: %x %s\n", hFont, buf));
-}
+	    }
 #endif
 #ifndef CACHE_LAST_TMP_FONT
-SelectObject(__tmpDC, prevFont);
+	    SelectObject(__tmpDC, prevFont);
 #endif
 #ifdef CACHE_LAST_DC
-/*
+	    /*
-* must update current cached DC
+	     * must update current cached DC
-*/
+	     */
-if (lastGcData == gcData) {
+	    if (lastGcData == gcData) {
-prevFont = SelectObject(gcData->_hDC, hFont);
+		prevFont = SelectObject(gcData->_hDC, hFont);
-if (! gcData->save_hFont) {
+		if (! gcData->save_hFont) {
-gcData->save_hFont = prevFont;
+		    gcData->save_hFont = prevFont;
-}
+		}
-}
+	    }
 #endif
-RETURN ( self );
+	    RETURN ( self );
-}
+	}
 }
 %}
 !
 setForeground:fgColorIndex background:bgColorIndex in:aGCId
 "set foreground and background colors to be drawn with"
 %{  /* NOCONTEXT */
 if (__bothSmallInteger(fgColorIndex, bgColorIndex)
-&& __isExternalAddress(aGCId)) {
+	&& __isExternalAddress(aGCId)) {
-struct gcData *gcData = _GCDATA(aGCId);
+	struct gcData *gcData = _GCDATA(aGCId);
-COLORREF fg, bg, oldFg, oldBg;
+	COLORREF fg, bg, oldFg, oldBg;
-fg = (COLORREF)st2RGB(__intVal(fgColorIndex),gcData);
+	fg = (COLORREF)st2RGB(__intVal(fgColorIndex),gcData);
-bg = (COLORREF)st2RGB(__intVal(bgColorIndex),gcData);
+	bg = (COLORREF)st2RGB(__intVal(bgColorIndex),gcData);
-oldFg = gcData->fgColor;
+	oldFg = gcData->fgColor;
-oldBg = gcData->bgColor;
+	oldBg = gcData->bgColor;
-if ((fg != oldFg) || (bg != oldBg)) {
+	if ((fg != oldFg) || (bg != oldBg)) {
-gcData->fgColor = fg;
+	    gcData->fgColor = fg;
-gcData->bgColor = bg;
+	    gcData->bgColor = bg;
 #ifdef CACHE_LAST_DC
-/*
+	    /*
-* must update or flush current cached DC
+	     * must update or flush current cached DC
-*/
+	     */
-if (lastGcData == gcData) {
+	    if (lastGcData == gcData) {
-/* Pen only depends upon fg-color */
+		/* Pen only depends upon fg-color */
-if (fg != oldFg) {
+		if (fg != oldFg) {
-SetTextColor(gcData->_hDC, fg);
+		    SetTextColor(gcData->_hDC, fg);
-FLUSH_CACHED_PEN(gcData);
+		    FLUSH_CACHED_PEN(gcData);
-}
+		}
-if (bg != oldBg) {
+		if (bg != oldBg) {
-SetBkColor(gcData->_hDC, bg);
+		    SetBkColor(gcData->_hDC, bg);
-}
+		}
-FLUSH_CACHED_BRUSH(gcData);
+		FLUSH_CACHED_BRUSH(gcData);
-}
+	    }
 #endif
-CPRINTF(("setForeground: %x background: %x\n", gcData->fgColor, gcData->bgColor));
+	    CPRINTF(("setForeground: %x background: %x\n", gcData->fgColor, gcData->bgColor));
-}
+	}
-RETURN (self);
+	RETURN (self);
 }
 %}.
 ^self primitiveFailed
 !
 solid (if aBitmapId is nil)"
 %{  /* NOCONTEXT */
 if (__bothSmallInteger(fgColorIndex, bgColorIndex)
-&& __isExternalAddress(aGCId)) {
+	&& __isExternalAddress(aGCId)) {
-struct gcData *gcData = _GCDATA(aGCId);
+	struct gcData *gcData = _GCDATA(aGCId);
-COLORREF fg, bg, oldFg, oldBg;
+	COLORREF fg, bg, oldFg, oldBg;
-HBITMAP m, oldM;
+	HBITMAP m, oldM;
-fg = (COLORREF)st2RGB(__intVal(fgColorIndex),gcData);
+	fg = (COLORREF)st2RGB(__intVal(fgColorIndex),gcData);
-bg = (COLORREF)st2RGB(__intVal(bgColorIndex),gcData);
+	bg = (COLORREF)st2RGB(__intVal(bgColorIndex),gcData);
-if (__isExternalAddress(aBitmapId))
+	if (__isExternalAddress(aBitmapId))
-m = _HBITMAPVAL(aBitmapId);
+	    m = _HBITMAPVAL(aBitmapId);
-else
+	else
-m = 0;
+	    m = 0;
-oldFg = gcData->fgColor;
+	oldFg = gcData->fgColor;
-oldBg = gcData->bgColor;
+	oldBg = gcData->bgColor;
-oldM = gcData->hMask;
+	oldM = gcData->hMask;
-if ((oldFg != fg) || (oldBg != bg) || (oldM != m)) {
+	if ((oldFg != fg) || (oldBg != bg) || (oldM != m)) {
-gcData->fgColor = fg;
+	    gcData->fgColor = fg;
-gcData->bgColor = bg;
+	    gcData->bgColor = bg;
-gcData->hMask = m;
+	    gcData->hMask = m;
 #ifdef CACHE_LAST_DC
-/*
+	    /*
-* must update or flush current cached DC
+	     * must update or flush current cached DC
-*/
+	     */
-if (lastGcData == gcData) {
+	    if (lastGcData == gcData) {
-if (oldM == m) {
+		if (oldM == m) {
-/*
+		    /*
-* only fg/bg changed
+		     * only fg/bg changed
-*/
+		     */
-/* Pen only depends upon fg-color */
+		    /* Pen only depends upon fg-color */
-if (fg != oldFg) {
+		    if (fg != oldFg) {
-SetTextColor(gcData->_hDC, fg);
+			SetTextColor(gcData->_hDC, fg);
-FLUSH_CACHED_PEN(gcData);
+			FLUSH_CACHED_PEN(gcData);
-}
+		    }
-if (bg != oldBg) {
+		    if (bg != oldBg) {
-SetBkColor(gcData->_hDC, bg);
+			SetBkColor(gcData->_hDC, bg);
-}
+		    }
-FLUSH_CACHED_BRUSH(gcData);
+		    FLUSH_CACHED_BRUSH(gcData);
-} else {
+		} else {
-_releaseDC(gcData);
+		    _releaseDC(gcData);
-}
+		}
-}
+	    }
 #endif
-CPRINTF(("setForeground: %x background: %x mask: %x\n", gcData->fgColor, gcData->bgColor,gcData->hMask));
+	    CPRINTF(("setForeground: %x background: %x mask: %x\n", gcData->fgColor, gcData->bgColor,gcData->hMask));
-}
+	}
-RETURN (self);
+	RETURN (self);
 }
 %}.
 ^ self primitiveFailed
 !
 solid (if aBitmapId is nil); also set lineWidth"
 %{  /* NOCONTEXT */
 if (__bothSmallInteger(fgColorIndex, bgColorIndex)
-&& __isSmallInteger(aLineWidth)
+	&& __isSmallInteger(aLineWidth)
-&& __isExternalAddress(aGCId)) {
+	&& __isExternalAddress(aGCId)) {
-struct gcData *gcData = _GCDATA(aGCId);
+	struct gcData *gcData = _GCDATA(aGCId);
-COLORREF fg, bg, oldFg, oldBg;
+	COLORREF fg, bg, oldFg, oldBg;
-HBITMAP m, oldM;
+	HBITMAP m, oldM;
-int lw, oldLw;
+	int lw, oldLw;
-fg = (COLORREF)st2RGB(__intVal(fgColorIndex),gcData);
+	fg = (COLORREF)st2RGB(__intVal(fgColorIndex),gcData);
-bg = (COLORREF)st2RGB(__intVal(bgColorIndex),gcData);
+	bg = (COLORREF)st2RGB(__intVal(bgColorIndex),gcData);
-if (__isExternalAddress(aBitmapId))
+	if (__isExternalAddress(aBitmapId))
-m = _HBITMAPVAL(aBitmapId);
+	    m = _HBITMAPVAL(aBitmapId);
-else
+	else
-m = 0;
+	    m = 0;
-lw = __intVal(aLineWidth);
+	lw = __intVal(aLineWidth);
-oldFg = gcData->fgColor;
+	oldFg = gcData->fgColor;
-oldBg = gcData->bgColor;
+	oldBg = gcData->bgColor;
-oldLw = gcData->lineWidth;
+	oldLw = gcData->lineWidth;
-oldM = gcData->hMask;
+	oldM = gcData->hMask;
-if ((oldFg != fg) || (oldBg != bg)
+	if ((oldFg != fg) || (oldBg != bg)
-|| (oldLw != lw) || (oldM != m)) {
+	 || (oldLw != lw) || (oldM != m)) {
-gcData->fgColor = fg;
+	    gcData->fgColor = fg;
-gcData->bgColor = bg;
+	    gcData->bgColor = bg;
-gcData->lineWidth = lw;
+	    gcData->lineWidth = lw;
-gcData->hMask = m;
+	    gcData->hMask = m;
 #ifdef CACHE_LAST_DC
-/*
+	    /*
-* must update or flush current cached DC
+	     * must update or flush current cached DC
-*/
+	     */
-if (lastGcData == gcData) {
+	    if (lastGcData == gcData) {
-if ((oldM == m) && (oldLw == lw)) {
+		if ((oldM == m) && (oldLw == lw)) {
-/*
+		    /*
-* only fg/bg changed
+		     * only fg/bg changed
-*/
+		     */
-/* Pen only depends upon fg-color */
+		    /* Pen only depends upon fg-color */
-if (fg != oldFg) {
+		    if (fg != oldFg) {
-SetTextColor(gcData->_hDC, fg);
+			SetTextColor(gcData->_hDC, fg);
-FLUSH_CACHED_PEN(gcData);
+			FLUSH_CACHED_PEN(gcData);
-}
+		    }
-if (bg != oldBg) {
+		    if (bg != oldBg) {
-SetBkColor(gcData->_hDC, bg);
+			SetBkColor(gcData->_hDC, bg);
-}
+		    }
-FLUSH_CACHED_BRUSH(gcData);
+		    FLUSH_CACHED_BRUSH(gcData);
-} else {
+		} else {
-_releaseDC(gcData);
+		    _releaseDC(gcData);
-}
+		}
-}
+	    }
 #endif
-CPRINTF(("setForeground: %x background: %x mask: %x linewidth: %d\n",
+	    CPRINTF(("setForeground: %x background: %x mask: %x linewidth: %d\n",
-gcData->fgColor, gcData->bgColor,
+			gcData->fgColor, gcData->bgColor,
-gcData->hMask, gcData->lineWidth));
+			gcData->hMask, gcData->lineWidth));
-}
+	}
-RETURN (self);
+	RETURN (self);
 }
 %}.
 ^ self primitiveFailed
 !
 %{  /* NOCONTEXT */
 HDC hDC;
 if (__isSmallInteger(fgColorIndex)
-&& __isExternalAddress(aGCId)) {
+	&& __isExternalAddress(aGCId)) {
-struct gcData *gcData = _GCDATA(aGCId);
+	struct gcData *gcData = _GCDATA(aGCId);
-COLORREF fg;
+	COLORREF fg;
-fg = (COLORREF)st2RGB(__intVal(fgColorIndex),gcData);
+	fg = (COLORREF)st2RGB(__intVal(fgColorIndex),gcData);
-if (fg != gcData->fgColor) {
+	if (fg != gcData->fgColor) {
-gcData->fgColor = fg;
+	    gcData->fgColor = fg;
 #ifdef CACHE_LAST_DC
-/*
+	    /*
-* must update or flush current cached DC
+	     * must update or flush current cached DC
-*/
+	     */
-if (lastGcData == gcData) {
+	    if (lastGcData == gcData) {
-/* Pen depends upon fg-color */
+		/* Pen depends upon fg-color */
-SetTextColor(gcData->_hDC, fg);
+		SetTextColor(gcData->_hDC, fg);
-FLUSH_CACHED_PEN(gcData);
+		FLUSH_CACHED_PEN(gcData);
-FLUSH_CACHED_BRUSH(gcData);
+		FLUSH_CACHED_BRUSH(gcData);
-}
+	    }
 #endif
-CPRINTF(("setForeground: %x\n", gcData->fgColor));
+	    CPRINTF(("setForeground: %x\n", gcData->fgColor));
-}
+	}
-RETURN (self);
+	RETURN (self);
 }
 %}.
 ^ self primitiveFailed
 !
 "set alu function to be drawn with"
 %{  /* NOCONTEXT */
 if (__isExternalAddress(aGCId)) {
-struct gcData *gcData = _GCDATA(aGCId);
+	struct gcData *gcData = _GCDATA(aGCId);
-int fun = -1;
+	int fun = -1;
-int bfun = -1;
+	int bfun = -1;
-if (aFunctionSymbol == @symbol(copy)) {
+	if (aFunctionSymbol == @symbol(copy)) {
-fun = R2_COPYPEN;
+	    fun = R2_COPYPEN;
-bfun = BITBLT_COPY;
+	    bfun = BITBLT_COPY;
-} else if (aFunctionSymbol == @symbol(copyInverted)) {
+	} else if (aFunctionSymbol == @symbol(copyInverted)) {
-fun = R2_NOTCOPYPEN;
+	    fun = R2_NOTCOPYPEN;
-bfun = BITBLT_COPYINVERTED;
+	    bfun = BITBLT_COPYINVERTED;
-} else if (aFunctionSymbol == @symbol(xor)) {
+	} else if (aFunctionSymbol == @symbol(xor)) {
-fun = R2_XORPEN;
+	    fun = R2_XORPEN;
-bfun = BITBLT_XOR;
+	    bfun = BITBLT_XOR;
-} else if (aFunctionSymbol == @symbol(and)) {
+	} else if (aFunctionSymbol == @symbol(and)) {
-fun = R2_MASKPEN;
+	    fun = R2_MASKPEN;
-bfun = BITBLT_AND;
+	    bfun = BITBLT_AND;
-} else if (aFunctionSymbol == @symbol(or)) {
+	} else if (aFunctionSymbol == @symbol(or)) {
-fun = R2_MERGEPEN;
+	    fun = R2_MERGEPEN;
-bfun = BITBLT_OR;
+	    bfun = BITBLT_OR;
-}
+	}
-if (fun != -1) {
+	if (fun != -1) {
 #if 0
-console_printf("set func to");
+	    console_printf("set func to");
-switch (bfun) {
+	    switch (bfun) {
-case BITBLT_COPY:
+		case BITBLT_COPY:
-console_printf("BITBLT_COPY\n");
+		    console_printf("BITBLT_COPY\n");
-break;
+		    break;
-case BITBLT_COPYINVERTED:
+		case BITBLT_COPYINVERTED:
-console_printf("BITBLT_COPYINVERTED\n");
+		    console_printf("BITBLT_COPYINVERTED\n");
-break;
+		    break;
-case BITBLT_XOR:
+		case BITBLT_XOR:
-console_printf("BITBLT_XOR\n");
+		    console_printf("BITBLT_XOR\n");
-break;
+		    break;
-case BITBLT_AND:
+		case BITBLT_AND:
-console_printf("BITBLT_AND\n");
+		    console_printf("BITBLT_AND\n");
-break;
+		    break;
-case BITBLT_OR:
+		case BITBLT_OR:
-console_printf("BITBLT_OR\n");
+		    console_printf("BITBLT_OR\n");
-break;
+		    break;
-}
+	    }
 #endif
-} else {
+	} else {
-INFOFPRINTF( (stderr, "WinWorkstat [warning]: unsuported Rasterfunction\n") );
+	    INFOFPRINTF( (stderr, "WinWorkstat [warning]: unsuported Rasterfunction\n") );
-fun = R2_COPYPEN;
+	    fun = R2_COPYPEN;
-bfun = BITBLT_COPY;
+	    bfun = BITBLT_COPY;
-}
+	}
-if ((fun != gcData->rop2)
+	if ((fun != gcData->rop2)
-|| (bfun != gcData->bitbltrop2)) {
+	 || (bfun != gcData->bitbltrop2)) {
-gcData->rop2 = fun;
+	    gcData->rop2 = fun;
-gcData->bitbltrop2 = bfun;
+	    gcData->bitbltrop2 = bfun;
 #ifdef CACHE_LAST_DC
-/*
+	    /*
-* must update current cached DC
+	     * must update current cached DC
-*/
+	     */
-if (gcData == lastGcData) {
+	    if (gcData == lastGcData) {
-SetROP2(gcData->_hDC, fun);
+		SetROP2(gcData->_hDC, fun);
-}
+	    }
 #endif
-}
+	}
 } else {
-INFOFPRINTF((stderr, "WinWorkstation [warning]: Rasterfunction no GC\n"));
+	INFOFPRINTF((stderr, "WinWorkstation [warning]: Rasterfunction no GC\n"));
 }
 %}
 !
 setGraphicsExposures:aBoolean in:aGCId
 HDC hDC;
 if (__isExternalAddress(aGCId)
 && __isSmallInteger(aNumber)) {
-struct gcData *gcData = _GCDATA(aGCId);
+	struct gcData *gcData = _GCDATA(aGCId);
-int style;
+	int style;
-gcData->lineWidth = __intVal(aNumber);
+	gcData->lineWidth = __intVal(aNumber);
-if (lineStyle == @symbol(solid)) {
+	if (lineStyle == @symbol(solid)) {
-style = PS_SOLID;
+	    style = PS_SOLID;
-} else if (lineStyle == @symbol(dashed)) {
+	} else if (lineStyle == @symbol(dashed)) {
-style= PS_DASH;
+	    style= PS_DASH;
-} else if (lineStyle == @symbol(dotted)) {
+	} else if (lineStyle == @symbol(dotted)) {
-style= PS_DOT;
+	    style= PS_DOT;
-} else if (lineStyle == @symbol(dashDot)) {
+	} else if (lineStyle == @symbol(dashDot)) {
-style= PS_DASHDOT;
+	    style= PS_DASHDOT;
-} else if (lineStyle == @symbol(dashDotDot)) {
+	} else if (lineStyle == @symbol(dashDotDot)) {
-style= PS_DASHDOTDOT;
+	    style= PS_DASHDOTDOT;
-} else
+	} else
-style= PS_SOLID;
+	    style= PS_SOLID;
-gcData->lStyle &= ~PS_STYLE_MASK;
+	gcData->lStyle &= ~PS_STYLE_MASK;
-gcData->lStyle |= style;
+	gcData->lStyle |= style;
-if (capStyle == @symbol(round)) {
+	if (capStyle == @symbol(round)) {
-style = PS_ENDCAP_ROUND;
+	    style = PS_ENDCAP_ROUND;
-} else if (capStyle == @symbol(square)) {
+	} else if (capStyle == @symbol(square)) {
-style = PS_ENDCAP_SQUARE;
+	    style = PS_ENDCAP_SQUARE;
-} else if (capStyle == @symbol(flat)) {
+	} else if (capStyle == @symbol(flat)) {
-style = PS_ENDCAP_FLAT;
+	    style = PS_ENDCAP_FLAT;
-} else
+	} else
-style = PS_ENDCAP_FLAT;
+	    style = PS_ENDCAP_FLAT;
-gcData->lStyle &= ~PS_ENDCAP_MASK;
+	gcData->lStyle &= ~PS_ENDCAP_MASK;
-gcData->lStyle |= style;
+	gcData->lStyle |= style;
-if (joinStyle == @symbol(bevel)) {
+	if (joinStyle == @symbol(bevel)) {
-style = PS_JOIN_BEVEL;
+	    style = PS_JOIN_BEVEL;
-} else if (joinStyle == @symbol(miter)) {
+	} else if (joinStyle == @symbol(miter)) {
-style = PS_JOIN_MITER;
+	    style = PS_JOIN_MITER;
-} else if (joinStyle == @symbol(round)) {
+	} else if (joinStyle == @symbol(round)) {
-style = PS_JOIN_ROUND;
+	    style = PS_JOIN_ROUND;
-} else
+	} else
-style = PS_JOIN_MITER;
+	    style = PS_JOIN_MITER;
-gcData->lStyle &= ~PS_JOIN_MASK;
+	gcData->lStyle &= ~PS_JOIN_MASK;
-gcData->lStyle |= style;
+	gcData->lStyle |= style;
-FLUSH_CACHED_DC(gcData);
+	FLUSH_CACHED_DC(gcData);
-RETURN (self);
+	RETURN (self);
 }
 %}
 !
 setMaskOriginX:orgX y:orgY in:aGCId
 %{  /* NOCONTEXT */
 if (__isExternalAddress(aGCId)
 && __bothSmallInteger(orgX,orgY)) {
-struct gcData *gcData = _GCDATA(aGCId);
+	struct gcData *gcData = _GCDATA(aGCId);
-int oX, oY;
+	int oX, oY;
-oX = __intVal(orgX);
+	oX = __intVal(orgX);
-oY = __intVal(orgY);
+	oY = __intVal(orgY);
-if ((oX != gcData->maskOrgX)
+	if ((oX != gcData->maskOrgX)
-|| (oY != gcData->maskOrgY)) {
+	 || (oY != gcData->maskOrgY)) {
-gcData->maskOrgX = __intVal(orgX);
+	    gcData->maskOrgX = __intVal(orgX);
-gcData->maskOrgY = __intVal(orgY);;
+	    gcData->maskOrgY = __intVal(orgY);;
-FLUSH_CACHED_DC(gcData);
+	    FLUSH_CACHED_DC(gcData);
-}
+	}
-RETURN (self);
+	RETURN (self);
 }
 %}
 !
 setPixmapMask:aPixmapId in:aGCId
 "set or clear the drawing mask - a pixmap mask providing full color"
 %{  /* NOCONTEXT */
 if (__isExternalAddress(aGCId)) {
-struct gcData *gcData = _GCDATA(aGCId);
+	struct gcData *gcData = _GCDATA(aGCId);
-HBITMAP oldM;
+	HBITMAP oldM;
-oldM = gcData->hMask;
+	oldM = gcData->hMask;
-if (__isExternalAddress(aPixmapId))
+	if (__isExternalAddress(aPixmapId))
-gcData->hMask = _HBITMAPVAL(aPixmapId);
+	    gcData->hMask = _HBITMAPVAL(aPixmapId);
-else
+	else
-gcData->hMask = 0;
+	    gcData->hMask = 0;
-if (oldM != gcData->hMask) {
+	if (oldM != gcData->hMask) {
-FLUSH_CACHED_DC(gcData);
+	    FLUSH_CACHED_DC(gcData);
-DPRINTF(("PixmapMasks set to %x\n",gcData->hMask));
+	    DPRINTF(("PixmapMasks set to %x\n",gcData->hMask));
-}
+	}
-RETURN (self);
+	RETURN (self);
 }
 %}
 ! !
 !WinWorkstation methodsFor:'initialization & release'!
 !
 initializeDefaultKeyboardMappingsIn:aKeyboardMap
 #(
-Copy            Ctrlc           "copy selection to buffer"
+	Copy            Ctrlc           "copy selection to buffer"
-Cut             Ctrlx           "cut selection into buffer"
+	Cut             Ctrlx           "cut selection into buffer"
-Paste           Ctrlv           "paste buffer or external selection"
+	Paste           Ctrlv           "paste buffer or external selection"
-UserAbort       CtrlCancel      "Abort window process"
+	UserAbort       CtrlCancel      "Abort window process"
-UserInterrupt   Pause           "interrupt window process"
+	UserInterrupt   Pause           "interrupt window process"
-$0              KeyPad0         "NumLocked numeric keypad keys..."
+	$0              KeyPad0         "NumLocked numeric keypad keys..."
-$1              KeyPad1
+	$1              KeyPad1
-$2              KeyPad2
+	$2              KeyPad2
-$3              KeyPad3
+	$3              KeyPad3
-$4              KeyPad4
+	$4              KeyPad4
-$5              KeyPad5
+	$5              KeyPad5
-$6              KeyPad6
+	$6              KeyPad6
-$7              KeyPad7
+	$7              KeyPad7
-$8              KeyPad8
+	$8              KeyPad8
-$9              KeyPad9
+	$9              KeyPad9
 ) pairWiseDo:[:eachMapping :eachKey|
-aKeyboardMap
+	    aKeyboardMap
-bindValue:eachMapping to:eachKey.
+		bindValue:eachMapping to:eachKey.
-].
+	].
 "
 Screen default initializeDefaultKeyboardMappingsIn:Screen default keyboardMap
 "
 !
 int mask, shift, nBits;
 HDC _rootDC;
 OBJ id;
 if (firstInstance) {
-OSVERSIONINFO osvi;
+	OSVERSIONINFO osvi;
-WNDCLASSW wc_stx;
+	WNDCLASSW wc_stx;
-WNDCLASSW wc_root;
+	WNDCLASSW wc_root;
-WNDCLASSW wc_popup;
+	WNDCLASSW wc_popup;
-WNDCLASSW wc_dialog;
+	WNDCLASSW wc_dialog;
-firstInstance = 0;
+	firstInstance = 0;
-DPRINTF(("first create - registerClass\n"));
+	DPRINTF(("first create - registerClass\n"));
-memset(&osvi, 0, sizeof(OSVERSIONINFO));
+	memset(&osvi, 0, sizeof(OSVERSIONINFO));
-osvi.dwOSVersionInfoSize = sizeof (OSVERSIONINFO);
+	osvi.dwOSVersionInfoSize = sizeof (OSVERSIONINFO);
-GetVersionEx (&osvi);
+	GetVersionEx (&osvi);
-switch (osvi.dwMajorVersion) {
+	switch (osvi.dwMajorVersion) {
-default:
+	    default:
-// defaults to the newest version we know about
+		// defaults to the newest version we know about
-INFOFPRINTF( (stderr, "WinWorkstat [info]: unknown/new display version %d:%d (assume post vista)\n", osvi.dwMajorVersion, osvi.dwMinorVersion) );
+		INFOFPRINTF( (stderr, "WinWorkstat [info]: unknown/new display version %d:%d (assume post vista)\n", osvi.dwMajorVersion, osvi.dwMinorVersion) );
-// fall into
+		// fall into
-case 6:
+	    case 6:
-// vista, win7, win8
+		// vista, win7, win8
-__isWinXP = 1;
+		__isWinXP = 1;
-__isWinVista = 1;
+		__isWinVista = 1;
-break;
+		break;
-case 5:
+	    case 5:
-// 2k, xp and 2003
+		// 2k, xp and 2003
-switch (osvi.dwMinorVersion) {
+		switch (osvi.dwMinorVersion) {
-default:
+		    default:
-case 2:         // windows server 2003
+		    case 2:         // windows server 2003
-case 1:         // windows xp
+		    case 1:         // windows xp
-__isWinXP = 1;
+			__isWinXP = 1;
-break;
+			break;
-case 0:
+		    case 0:
-__isWin2k = 1;
+			__isWin2k = 1;
-}
+		}
-break;
+		break;
-// no longer supported
+	    // no longer supported
-case 4:   // nt4.0
+	    case 4:   // nt4.0
-case 3:   // nt3.51
+	    case 3:   // nt3.51
-case 2:
+	    case 2:
-case 1:
+	    case 1:
-case 0:
+	    case 0:
-INFOFPRINTF( (stderr, "WinWorkstat [error]: no longer supported display version %d:%d\n", osvi.dwMajorVersion, osvi.dwMinorVersion) );
+		INFOFPRINTF( (stderr, "WinWorkstat [error]: no longer supported display version %d:%d\n", osvi.dwMajorVersion, osvi.dwMinorVersion) );
-break;
+		break;
-}
+	}
-/*
+	/*
-* register class: ST/X
+	 * register class: ST/X
-*/
+	 */
-wc_stx.style = 0
+	wc_stx.style = 0
-/* | CS_OWNDC */
+		   /* | CS_OWNDC */
-/* | CS_HREDRAW */
+		   /* | CS_HREDRAW */
-/* | CS_VREDRAW */
+		   /* | CS_VREDRAW */
-| CS_DBLCLKS;
+		  | CS_DBLCLKS;
-wc_stx.lpfnWndProc = (WNDPROC) MainWndProc;
+	wc_stx.lpfnWndProc = (WNDPROC) MainWndProc;
-wc_stx.cbClsExtra = 0;
+	wc_stx.cbClsExtra = 0;
-wc_stx.cbWndExtra = N_WINDOW_PRIVATE;
+	wc_stx.cbWndExtra = N_WINDOW_PRIVATE;
-wc_stx.hInstance = (HANDLE) __getHInstance();
+	wc_stx.hInstance = (HANDLE) __getHInstance();
-wc_stx.hIcon = NULL;
+	wc_stx.hIcon = NULL;
-wc_stx.hCursor = 0;
+	wc_stx.hCursor = 0;
-wc_stx.hbrBackground = 0;
+	wc_stx.hbrBackground = 0;
-wc_stx.lpszMenuName =  NULL;
+	wc_stx.lpszMenuName =  NULL;
-wc_stx.lpszClassName = wapp_name;
+	wc_stx.lpszClassName = wapp_name;
-RegisterClassW( (&wc_stx) );
+	RegisterClassW( (&wc_stx) );
-/*
+	/*
-* register class: ST/X:Root
+	 * register class: ST/X:Root
-*/
+	 */
-wc_root.style = 0;
+	wc_root.style = 0;
-wc_root.lpfnWndProc = (WNDPROC) MainWndProc;
+	wc_root.lpfnWndProc = (WNDPROC) MainWndProc;
-wc_root.cbClsExtra = 0;
+	wc_root.cbClsExtra = 0;
-wc_root.cbWndExtra = N_WINDOW_PRIVATE;
+	wc_root.cbWndExtra = N_WINDOW_PRIVATE;
-wc_root.hInstance = (HANDLE) __getHInstance();
+	wc_root.hInstance = (HANDLE) __getHInstance();
-wc_root.hIcon = NULL;
+	wc_root.hIcon = NULL;
-wc_root.hCursor = 0;
+	wc_root.hCursor = 0;
-wc_root.hbrBackground = GetStockObject(HOLLOW_BRUSH);
+	wc_root.hbrBackground = GetStockObject(HOLLOW_BRUSH);
-wc_root.lpszMenuName =  NULL;
+	wc_root.lpszMenuName =  NULL;
-wc_root.lpszClassName = wapp_nameRoot;
+	wc_root.lpszClassName = wapp_nameRoot;
-RegisterClassW( (CONST WNDCLASSW *)(&wc_root) );
+	RegisterClassW( (CONST WNDCLASSW *)(&wc_root) );
-/*
+	/*
-* register class: ST/X:Popup
+	 * register class: ST/X:Popup
-*/
+	 */
-wc_popup.style = CS_SAVEBITS;
+	wc_popup.style = CS_SAVEBITS;
-if (__isWinXP) {
+	if (__isWinXP) {
 #ifndef CS_DROPSHADOW
 # define CS_DROPSHADOW    0x020000
 #endif
-wc_popup.style |= CS_DROPSHADOW;
+	    wc_popup.style |= CS_DROPSHADOW;
-}
+	}
-wc_popup.lpfnWndProc = (WNDPROC) MainWndProc;;
+	wc_popup.lpfnWndProc = (WNDPROC) MainWndProc;;
-wc_popup.cbClsExtra = 0;
+	wc_popup.cbClsExtra = 0;
-wc_popup.cbWndExtra = N_WINDOW_PRIVATE;
+	wc_popup.cbWndExtra = N_WINDOW_PRIVATE;
-wc_popup.hInstance = (HANDLE) __getHInstance();
+	wc_popup.hInstance = (HANDLE) __getHInstance();
-wc_popup.hIcon = NULL;
+	wc_popup.hIcon = NULL;
-wc_popup.hCursor = 0;
+	wc_popup.hCursor = 0;
-wc_popup.hbrBackground = GetStockObject(HOLLOW_BRUSH);
+	wc_popup.hbrBackground = GetStockObject(HOLLOW_BRUSH);
-wc_popup.lpszMenuName =  NULL;
+	wc_popup.lpszMenuName =  NULL;
-wc_popup.lpszClassName = wapp_namePopup;
+	wc_popup.lpszClassName = wapp_namePopup;
-RegisterClassW( (CONST WNDCLASSW *)(&wc_popup) );
+	RegisterClassW( (CONST WNDCLASSW *)(&wc_popup) );
-/*
+	/*
-* register class: ST/X:Dialog
+	 * register class: ST/X:Dialog
-*/
+	 */
-wc_dialog.style = CS_SAVEBITS;
+	wc_dialog.style = CS_SAVEBITS;
-wc_dialog.lpfnWndProc = (WNDPROC) MainWndProc;;
+	wc_dialog.lpfnWndProc = (WNDPROC) MainWndProc;;
-wc_dialog.cbClsExtra = 0;
+	wc_dialog.cbClsExtra = 0;
-wc_dialog.cbWndExtra = N_WINDOW_PRIVATE;
+	wc_dialog.cbWndExtra = N_WINDOW_PRIVATE;
-wc_dialog.hInstance = (HANDLE) __getHInstance();
+	wc_dialog.hInstance = (HANDLE) __getHInstance();
-wc_dialog.hIcon = NULL;
+	wc_dialog.hIcon = NULL;
-wc_dialog.hCursor = 0;
+	wc_dialog.hCursor = 0;
-wc_dialog.hbrBackground = GetStockObject(HOLLOW_BRUSH);
+	wc_dialog.hbrBackground = GetStockObject(HOLLOW_BRUSH);
-wc_dialog.lpszMenuName =  NULL;
+	wc_dialog.lpszMenuName =  NULL;
-wc_dialog.lpszClassName = wapp_nameDialog;
+	wc_dialog.lpszClassName = wapp_nameDialog;
-RegisterClassW( (CONST WNDCLASSW *)(&wc_dialog) );
+	RegisterClassW( (CONST WNDCLASSW *)(&wc_dialog) );
-/*
+	/*
-* generate my events
+	 * generate my events
-*/
+	 */
-hDispatchThreadRunningEvent = CreateEvent(
+	hDispatchThreadRunningEvent = CreateEvent(
-NULL,            /* no security attributes */
+				NULL,            /* no security attributes */
-FALSE,
+				FALSE,
-FALSE,
+				FALSE,
-"DispatchThreadRunning"); /* name of event */
+				"DispatchThreadRunning"); /* name of event */
-if (hDispatchThreadRunningEvent == NULL) {
+	if (hDispatchThreadRunningEvent == NULL) {
-console_fprintf(stderr, "WinWorkstation [fatal]: CreateEvent-0 failed\n");
+	    console_fprintf(stderr, "WinWorkstation [fatal]: CreateEvent-0 failed\n");
-exit(1);
+	    exit(1);
-}
+	}
-hNeverTriggered = CreateEvent(
+	hNeverTriggered = CreateEvent(
-NULL,            /* no security attributes */
+				NULL,            /* no security attributes */
-FALSE,
+				FALSE,
-FALSE,
+				FALSE,
-"Never");
+				"Never");
-if (hNeverTriggered == NULL) {
+	if (hNeverTriggered == NULL) {
-console_fprintf(stderr, "WinWorkstation [fatal]: CreateEvent-1 failed\n");
+	    console_fprintf(stderr, "WinWorkstation [fatal]: CreateEvent-1 failed\n");
-exit(1);
+	    exit(1);
-}
+	}
-hCreateEvent = CreateEvent(
+	hCreateEvent = CreateEvent(
-NULL,            /* no security attributes */
+				NULL,            /* no security attributes */
-FALSE,
+				FALSE,
-FALSE,
+				FALSE,
-"CreateEvents"); /* name of event */
+				"CreateEvents"); /* name of event */
-if (hCreateEvent == NULL) {
+	if (hCreateEvent == NULL) {
-console_fprintf(stderr, "WinWorkstation [fatal]: CreateEvent-2 failed\n");
+	    console_fprintf(stderr, "WinWorkstation [fatal]: CreateEvent-2 failed\n");
-exit(1);
+	    exit(1);
-}
+	}
-hInputEvent = CreateEvent(
+	hInputEvent = CreateEvent(
-NULL,            /* no security attributes */
+				NULL,            /* no security attributes */
-FALSE,
+				FALSE,
-FALSE,
+				FALSE,
-"InputEvents");  /* name of event */
+				"InputEvents");  /* name of event */
-if (hInputEvent == NULL) {
+	if (hInputEvent == NULL) {
-console_fprintf(stderr, "WinWorkstation [fatal]: CreateEvent-3 failed\n");
+	    console_fprintf(stderr, "WinWorkstation [fatal]: CreateEvent-3 failed\n");
-exit(1);
+	    exit(1);
-}
+	}
-if (hEventsMutex) {
+	if (hEventsMutex) {
-console_fprintf(stderr, "WinWorkstation [fatal]: hEventsMutex already created\n");
+	    console_fprintf(stderr, "WinWorkstation [fatal]: hEventsMutex already created\n");
-exit(1);
+	    exit(1);
-}
+	}
-hEventsMutex = CreateMutex(
+	hEventsMutex = CreateMutex(
-NULL,            /* no security attributes */
+				NULL,            /* no security attributes */
-FALSE,           /* initially not owned */
+				FALSE,           /* initially not owned */
-"EventsMutex");  /* name of mutex */
+				"EventsMutex");  /* name of mutex */
-if (! hEventsMutex) {
+	if (! hEventsMutex) {
-console_fprintf(stderr, "WinWorkstation [fatal]: hEventsMutex failed\n");
+	    console_fprintf(stderr, "WinWorkstation [fatal]: hEventsMutex failed\n");
-exit(1);
+	    exit(1);
-}
+	}
-DuplicateHandle(GetCurrentProcess(),
+	DuplicateHandle(GetCurrentProcess(),
-hEventsMutex,
+			hEventsMutex,
-GetCurrentProcess(),
+			GetCurrentProcess(),
-&hEventsMutex,
+			&hEventsMutex,
-DUPLICATE_SAME_ACCESS,
+			DUPLICATE_SAME_ACCESS,
-FALSE,
+			FALSE,
-DUPLICATE_SAME_ACCESS);
+			DUPLICATE_SAME_ACCESS);
 #ifdef USE_PAINT_MUTEX
-hPaintMutex = CreateMutex(
+	hPaintMutex = CreateMutex(
-NULL,           /* no security attributes */
+				NULL,           /* no security attributes */
-FALSE,          /* initially not owned */
+				FALSE,          /* initially not owned */
-"PaintMutex");  /* name of mutex */
+				"PaintMutex");  /* name of mutex */
-if (hPaintMutex == NULL) {
+	if (hPaintMutex == NULL) {
-console_fprintf(stderr, "WinWorkstation [fatal]: CreateMutex(PaintMutex) failed\n");
+	    console_fprintf(stderr, "WinWorkstation [fatal]: CreateMutex(PaintMutex) failed\n");
-exit(1);
+	    exit(1);
-}
+	}
-DuplicateHandle(GetCurrentProcess(),
+	DuplicateHandle(GetCurrentProcess(),
-hPaintMutex,
+			hPaintMutex,
-GetCurrentProcess(),
+			GetCurrentProcess(),
-&hPaintMutex,
+			&hPaintMutex,
-DUPLICATE_SAME_ACCESS,
+			DUPLICATE_SAME_ACCESS,
-FALSE,
+			FALSE,
-DUPLICATE_SAME_ACCESS);
+			DUPLICATE_SAME_ACCESS);
 #endif
 #ifdef USE_DRAW_MUTEX
-hDrawMutex = CreateMutex(
+	hDrawMutex = CreateMutex(
-NULL,           /* no security attributes */
+				NULL,           /* no security attributes */
-FALSE,          /* initially not owned */
+				FALSE,          /* initially not owned */
-"DrawMutex");   /* name of mutex */
+				"DrawMutex");   /* name of mutex */
-if (hDrawMutex == NULL) {
+	if (hDrawMutex == NULL) {
-console_fprintf(stderr, "WinWorkstation [fatal]: CreateMutex(DrawMutex) failed\n");
+	    console_fprintf(stderr, "WinWorkstation [fatal]: CreateMutex(DrawMutex) failed\n");
-exit(1);
+	    exit(1);
-}
+	}
-DuplicateHandle(GetCurrentProcess(),
+	DuplicateHandle(GetCurrentProcess(),
-hDrawMutex,
+			hDrawMutex,
-GetCurrentProcess(),
+			GetCurrentProcess(),
-&hDrawMutex,
+			&hDrawMutex,
-DUPLICATE_SAME_ACCESS,
+			DUPLICATE_SAME_ACCESS,
-FALSE,
+			FALSE,
-DUPLICATE_SAME_ACCESS);
+			DUPLICATE_SAME_ACCESS);
 #endif
-_masterThreadId = GetCurrentThreadId();
+	_masterThreadId = GetCurrentThreadId();
 #ifndef WIN32THREADS
-DuplicateHandle(GetCurrentProcess(),
+	DuplicateHandle(GetCurrentProcess(),
-GetCurrentThread(),
+			GetCurrentThread(),
-GetCurrentProcess(),
+			GetCurrentProcess(),
-&_masterThread,
+			&_masterThread,
-DUPLICATE_SAME_ACCESS,
+			DUPLICATE_SAME_ACCESS,
-FALSE,
+			FALSE,
-DUPLICATE_SAME_ACCESS);
+			DUPLICATE_SAME_ACCESS);
 #endif
-initEventqueue();
+	initEventqueue();
-/*
+	/*
-* start the event dispatcher thread and wait for it to
+	 * start the event dispatcher thread and wait for it to
-* be ready
+	 * be ready
-*/
+	 */
-CreateThread((LPSECURITY_ATTRIBUTES)0,
+	CreateThread((LPSECURITY_ATTRIBUTES)0,
-EVENT_THREAD_STACKSIZE,
+		     EVENT_THREAD_STACKSIZE,
-(LPTHREAD_START_ROUTINE)dispatchThread,
+		     (LPTHREAD_START_ROUTINE)dispatchThread,
-0, 0, &_dispatchThreadId);
+		     0, 0, &_dispatchThreadId);
 #ifdef STARTUP_DISPATCHTHREAD_DEBUG
-console_fprintf(stderr, "WinWorkstation [info]: dispatchThreadId=%x\n", _dispatchThreadId);
+	console_fprintf(stderr, "WinWorkstation [info]: dispatchThreadId=%x\n", _dispatchThreadId);
 #endif
-if (WaitForSingleObject(hDispatchThreadRunningEvent, 5000L) != WAIT_OBJECT_0) {
+	if (WaitForSingleObject(hDispatchThreadRunningEvent, 5000L) != WAIT_OBJECT_0) {
-console_fprintf(stderr, "WinWorkstation [error]: oops - timeout waiting for eventThread to start\n");
+	    console_fprintf(stderr, "WinWorkstation [error]: oops - timeout waiting for eventThread to start\n");
-}
+	}
 #ifdef STARTUP_DISPATCHTHREAD_DEBUG
-console_fprintf(stderr, "WinWorkstation [info]: got ThreadRunningEvent\n");
+	console_fprintf(stderr, "WinWorkstation [info]: got ThreadRunningEvent\n");
 #endif
 }
 #if 0
 __rootDesk = OpenDesktop ("Desktop0", 0, FALSE, GENERIC_ALL);
 if (!__rootDesk) {
-PRINTF(("OpenDesktop fail\n"));
+	PRINTF(("OpenDesktop fail\n"));
-__rootDesk = CreateDesktop ("Desktop0", NULL, NULL, 0, DESKTOP_WRITEOBJECTS, NULL);
+	__rootDesk = CreateDesktop ("Desktop0", NULL, NULL, 0, DESKTOP_WRITEOBJECTS, NULL);
-if (!__rootDesk) {
+	if (!__rootDesk) {
-PRINTF(("CreateDesktop fail\n"));
+	    PRINTF(("CreateDesktop fail\n"));
-}
+	}
 }
 #endif
 __rootWin = GetDesktopWindow();
 __PROTECT__(self);
 %{
 sz = __MKSMALLINT(sizeof(struct queuedEvent) + 100);
 %}.
 eventBuffer isNil ifTrue:[
-eventBuffer := ByteArray new:sz.
+	eventBuffer := ByteArray new:sz.
 ].
 !
 initializeFor:aDisplayName
 "initialize the receiver for a connection to the display;
 the argument, aDisplayName is ignored under Win32.
 (who knows - it may be used in the future to support multiple
 windows displays ...)"
 displayId notNil ifTrue:[
-"/ already connected - trying to trick me ?
+	"/ already connected - trying to trick me ?
-^ self
+	^ self
 ].
 displayId := self primInitializeFor:aDisplayName.
 displayId isNil ifTrue:[
-self class deviceOpenErrorSignal raiseWith:aDisplayName
+	self class deviceOpenErrorSignal raiseWith:aDisplayName
 ].
 dispatching := false.
 isSlow := false.
 shiftDown := false.
 #ifdef ALWAYSTRUECOLOR
 __depth = 24;  /* its a hack */
 #else
 __depth = __realDepth;
 if (__depth == 15)
-__depth = 16;
+	__depth = 16;
 #endif
 #if 0
 numcolors = GetDeviceCaps(__rootDC, NUMCOLORS);
 numpens = GetDeviceCaps(__rootDC, NUMPENS);
 __INST(ncells) = __MKSMALLINT(1<<__depth);
 val = GetDeviceCaps(__rootDC, HORZSIZE);
 DPRINTF(("HORSIZE=%d\n",val));
 if (val > 0) {
-__INST(widthMM) = __MKSMALLINT(val);
+	__INST(widthMM) = __MKSMALLINT(val);
 }
 val = GetDeviceCaps(__rootDC, VERTSIZE);
 DPRINTF(("VERTSIZE=%d\n",val));
 if (val > 0) {
-__INST(heightMM) = __MKSMALLINT(val);
+	__INST(heightMM) = __MKSMALLINT(val);
 }
 __logPixelSY = GetDeviceCaps(__rootDC, LOGPIXELSY);
 capabilities = GetDeviceCaps(__rootDC, RASTERCAPS);
 #ifdef LATER
 console_printf("device support:\n");
 if (capabilities & RC_BANDING)
-console_printf(" RC_BANDING");
+	console_printf(" RC_BANDING");
 if (capabilities & RC_BITBLT)
-console_printf(" RC_BITBLT");
+	console_printf(" RC_BITBLT");
 if (capabilities & RC_BITMAP64)
-console_printf(" RC_BITMAP64");
+	console_printf(" RC_BITMAP64");
 if (capabilities & RC_DI_BITMAP)
-console_printf(" RC_DI_BITMAP");
+	console_printf(" RC_DI_BITMAP");
 if (capabilities & RC_DIBTODEV)
-console_printf(" RC_DIBTODEV");
+	console_printf(" RC_DIBTODEV");
 if (capabilities & RC_FLOODFILL)
-console_printf(" RC_FLOODFILL");
+	console_printf(" RC_FLOODFILL");
 if (capabilities & RC_PALETTE)
-console_printf(" RC_PALETTE");
+	console_printf(" RC_PALETTE");
 if (capabilities & RC_SCALING)
-console_printf(" RC_SCALING");
+	console_printf(" RC_SCALING");
 if (capabilities & RC_STRETCHBLT)
-console_printf(" RC_STRETCHBLT");
+	console_printf(" RC_STRETCHBLT");
 if (capabilities & RC_STRETCHDIB)
-console_printf(" RC_STRETCHDIB");
+	console_printf(" RC_STRETCHDIB");
 console_printf("\n");
 console_printf("cursor size %d %d\n", GetSystemMetrics(SM_CXCURSOR), GetSystemMetrics(SM_CYCURSOR));
 #endif
 __INST(visualType) = @symbol(TrueColor);
 __INST(redShift) = __MKSMALLINT(0);
 __INST(greenShift) = __MKSMALLINT(8);
 __INST(blueShift) = __MKSMALLINT(16);
 switch (__realDepth) {
-case 15:
+	case 15:
-case 16:
+	case 16:
-__INST(bitsPerRGB) = __MKSMALLINT(5);
+	    __INST(bitsPerRGB) = __MKSMALLINT(5);
-break;
+	    break;
-default:
+	default:
-__INST(bitsPerRGB) = __MKSMALLINT(8);
+	    __INST(bitsPerRGB) = __MKSMALLINT(8);
 }
 __INST(bitsRed) = __INST(bitsGreen) = __INST(bitsBlue) = __MKSMALLINT(8);
 __INST(redMask) = __MKSMALLINT(0xFF);
 __INST(greenMask) = __MKSMALLINT(0xFF00);
 __INST(blueMask) = __MKSMALLINT(0xFF0000);
 #else
 if (! (capabilities & RC_PALETTE)) {
-DPRINTF(("no palette\n"));
+	DPRINTF(("no palette\n"));
-if (__depth == 1) {
+	if (__depth == 1) {
-__INST(hasColors) = false;
+	    __INST(hasColors) = false;
-__INST(hasGreyscales) = false;
+	    __INST(hasGreyscales) = false;
-__INST(visualType) = @symbol(GrayScale);
+	    __INST(visualType) = @symbol(GrayScale);
-__INST(monitorType) = @symbol(monochrome);
+	    __INST(monitorType) = @symbol(monochrome);
-} else {
+	} else {
-__INST(hasColors) = true;
+	    __INST(hasColors) = true;
-__INST(hasGreyscales) = true;
+	    __INST(hasGreyscales) = true;
-if ((__depth == 16) || (__depth == 15)) {
+	    if ((__depth == 16) || (__depth == 15)) {
-__INST(visualType) = @symbol(TrueColor);
+	      __INST(visualType) = @symbol(TrueColor);
-__INST(blueShift) = __MKSMALLINT(0);
+	      __INST(blueShift) = __MKSMALLINT(0);
-__INST(greenShift) = __MKSMALLINT(5);
+	      __INST(greenShift) = __MKSMALLINT(5);
-__INST(redShift) = __MKSMALLINT(11);
+	      __INST(redShift) = __MKSMALLINT(11);
-__INST(bitsPerRGB) = __MKSMALLINT(5);
+	      __INST(bitsPerRGB) = __MKSMALLINT(5);
-__INST(bitsRed) = __INST(bitsGreen) = __INST(bitsBlue) = __MKSMALLINT(5);
+	      __INST(bitsRed) = __INST(bitsGreen) = __INST(bitsBlue) = __MKSMALLINT(5);
-__INST(blueMask) = __MKSMALLINT(0x1f);
+	      __INST(blueMask) = __MKSMALLINT(0x1f);
-__INST(greenMask) = __MKSMALLINT(0x7e0);
+	      __INST(greenMask) = __MKSMALLINT(0x7e0);
-__INST(redMask) = __MKSMALLINT(0xf800);
+	      __INST(redMask) = __MKSMALLINT(0xf800);
-} else {
+	    } else {
-__INST(visualType) = @symbol(TrueColor);
+	      __INST(visualType) = @symbol(TrueColor);
-__INST(redShift) = __MKSMALLINT(0);
+	      __INST(redShift) = __MKSMALLINT(0);
-__INST(greenShift) = __MKSMALLINT(8);
+	      __INST(greenShift) = __MKSMALLINT(8);
-__INST(blueShift) = __MKSMALLINT(16);
+	      __INST(blueShift) = __MKSMALLINT(16);
-__INST(bitsPerRGB) = __MKSMALLINT(8);
+	      __INST(bitsPerRGB) = __MKSMALLINT(8);
-__INST(bitsRed) = __INST(bitsGreen) = __INST(bitsBlue) = __MKSMALLINT(8);
+	      __INST(bitsRed) = __INST(bitsGreen) = __INST(bitsBlue) = __MKSMALLINT(8);
-__INST(redMask) = __MKSMALLINT(0xFF);
+	      __INST(redMask) = __MKSMALLINT(0xFF);
-__INST(greenMask) = __MKSMALLINT(0xFF00);
+	      __INST(greenMask) = __MKSMALLINT(0xFF00);
-__INST(blueMask) = __MKSMALLINT(0xFF0000);
+	      __INST(blueMask) = __MKSMALLINT(0xFF0000);
-}
+	    }
-}
+	}
 } else {
-val = GetDeviceCaps(__rootDC, SIZEPALETTE); /* First two entries are black and white. */
+	val = GetDeviceCaps(__rootDC, SIZEPALETTE); /* First two entries are black and white. */
-// console_printf("SizeofPalette %d\n",val);
+	// console_printf("SizeofPalette %d\n",val);
-__INST(ncells) = __MKSMALLINT(val);
+	__INST(ncells) = __MKSMALLINT(val);
-__INST(blackpixel) = __MKSMALLINT(0);
+	__INST(blackpixel) = __MKSMALLINT(0);
-__INST(whitepixel) = __MKSMALLINT(1);
+	__INST(whitepixel) = __MKSMALLINT(1);
-__INST(hasColors) = true;
+	__INST(hasColors) = true;
-__INST(hasGreyscales) = true;
+	__INST(hasGreyscales) = true;
-// __INST(usingSystemPalette) = true;
+	// __INST(usingSystemPalette) = true;
-__INST(redShift) = __MKSMALLINT(0);
+	__INST(redShift) = __MKSMALLINT(0);
-__INST(greenShift) = __MKSMALLINT(2);
+	__INST(greenShift) = __MKSMALLINT(2);
-__INST(blueShift) = __MKSMALLINT(4);
+	__INST(blueShift) = __MKSMALLINT(4);
-__INST(bitsPerRGB) = __MKSMALLINT(2);
+	__INST(bitsPerRGB) = __MKSMALLINT(2);
-__INST(bitsRed) = __INST(bitsGreen) = __INST(bitsBlue) = __MKSMALLINT(2);
+	__INST(bitsRed) = __INST(bitsGreen) = __INST(bitsBlue) = __MKSMALLINT(2);
-__INST(redMask) = __MKSMALLINT(0x3);
+	__INST(redMask) = __MKSMALLINT(0x3);
-__INST(greenMask) = __MKSMALLINT(0xc);
+	__INST(greenMask) = __MKSMALLINT(0xc);
-__INST(blueMask) = __MKSMALLINT(0x30);
+	__INST(blueMask) = __MKSMALLINT(0x30);
 }
 #endif /* ! ALWAYSTRUECOLOR */
 %}
 !
 "Get a KeySymbol (a smalltalk symbol) from the keycode."
 ^ ''
 "
-Display stringFromKeycode:28
+	Display stringFromKeycode:28
 "
 ! !
 !WinWorkstation methodsFor:'misc'!
 %{
 unsigned int type;
 if (__isSmallInteger(aSymbolOrInteger)) {
-type = __smallIntegerVal(aSymbolOrInteger);
+	type = __smallIntegerVal(aSymbolOrInteger);
 } else if (aSymbolOrInteger == @symbol(iconAsterisk)) {
-type = MB_ICONASTERISK;
+	type = MB_ICONASTERISK;
 } else if (aSymbolOrInteger == @symbol(iconExclamation)) {
-type = MB_ICONEXCLAMATION;
+	type = MB_ICONEXCLAMATION;
 } else if (aSymbolOrInteger == @symbol(iconHand)) {
-type = MB_ICONHAND;
+	type = MB_ICONHAND;
 } else if (aSymbolOrInteger == @symbol(iconQuestion)) {
-type = MB_ICONQUESTION;
+	type = MB_ICONQUESTION;
 } else if (aSymbolOrInteger == @symbol(ok)) {
-type = MB_OK;
+	type = MB_OK;
 } else {
-type = 0xffffffff;
+	type = 0xffffffff;
 }
 #ifdef BEEP_IN_WINTHREAD
 PostThreadMessage(_dispatchThreadId, WM_THREAD_BEEP, 0, 0);
 #else
 pX := aPoint x.
 pY := aPoint y.
 %{
 if (__bothSmallInteger(pX, pY)) {
-POINT p;
+	POINT p;
-HMONITOR hMonitor;
+	HMONITOR hMonitor;
-p.x = __intVal(pX);
+	p.x = __intVal(pX);
-p.y = __intVal(pY);
+	p.y = __intVal(pY);
 #if 0
-/* the following is only needed when we want
+	/* the following is only needed when we want
-* to support very old NT/W95/W98 systems; we don't !
+	 * to support very old NT/W95/W98 systems; we don't !
-*/
+	 */
-static HMONITOR (__stdcall *P_MonitorFromPoint)(POINT, int);
+	static HMONITOR (__stdcall *P_MonitorFromPoint)(POINT, int);
-if (P_MonitorFromPoint == 0) {
+	if (P_MonitorFromPoint == 0) {
-HINSTANCE hUser = LoadLibrary("user32.dll");
+	    HINSTANCE hUser = LoadLibrary("user32.dll");
-// console_printf("hUser: %x\n", hUser);
+	    // console_printf("hUser: %x\n", hUser);
-if (hUser) {
+	    if (hUser) {
-P_MonitorFromPoint = (HMONITOR (__stdcall *)(POINT, int ))
+		P_MonitorFromPoint = (HMONITOR (__stdcall *)(POINT, int ))
-GetProcAddress(hUser, "MonitorFromPoint");
+				    GetProcAddress(hUser, "MonitorFromPoint");
-}
+	    }
-}
+	}
-// console_printf("P_MonitorFromPoint: %x\n", P_MonitorFromPoint);
+	// console_printf("P_MonitorFromPoint: %x\n", P_MonitorFromPoint);
-hMonitor = (*P_MonitorFromPoint)(p, MONITOR_DEFAULTTONULL);
+	hMonitor = (*P_MonitorFromPoint)(p, MONITOR_DEFAULTTONULL);
 #else
-hMonitor = MonitorFromPoint(p, MONITOR_DEFAULTTONULL);
+	hMonitor = MonitorFromPoint(p, MONITOR_DEFAULTTONULL);
 #endif
-if (hMonitor == 0) {
+	if (hMonitor == 0) {
-RETURN(nil);
+	    RETURN(nil);
-}
+	}
-RETURN ( __MKEXTERNALADDRESS(hMonitor) );
+	RETURN ( __MKEXTERNALADDRESS(hMonitor) );
 }
 %}
 "
 Screen current monitorHandleForPoint:(0@0)
 Screen current monitorHandleForPoint:(1500@0)
 monitorHandleForView:aWindowId
 "given a window ID, return a handle to the monitor"
 %{
 if (__isExternalAddress(aWindowId)) {
-HWND hWnd = _HWNDVal(aWindowId);
+	HWND hWnd = _HWNDVal(aWindowId);
-HMONITOR hMonitor;
+	HMONITOR hMonitor;
 #if 0
-/* the following is only needed when we want
+	/* the following is only needed when we want
-* to support very old NT/W95/W98 systems; we don't !
+	 * to support very old NT/W95/W98 systems; we don't !
-*/
+	 */
-static HMONITOR (__stdcall *P_MonitorFromWindow)(HWND, int);
+	static HMONITOR (__stdcall *P_MonitorFromWindow)(HWND, int);
-if (P_MonitorFromWindow == 0) {
+	if (P_MonitorFromWindow == 0) {
-HINSTANCE hUser = LoadLibrary("user32.dll");
+	    HINSTANCE hUser = LoadLibrary("user32.dll");
-// console_printf("hUser: %x\n", hUser);
+	    // console_printf("hUser: %x\n", hUser);
-if (hUser) {
+	    if (hUser) {
-P_MonitorFromWindow = (HMONITOR (__stdcall *)(HWND, int ))
+		P_MonitorFromWindow = (HMONITOR (__stdcall *)(HWND, int ))
-GetProcAddress(hUser, "MonitorFromWindow");
+				    GetProcAddress(hUser, "MonitorFromWindow");
-}
+	    }
-}
+	}
-// console_printf("P_MonitorFromWindow: %x\n", P_MonitorFromWindow);
+	// console_printf("P_MonitorFromWindow: %x\n", P_MonitorFromWindow);
-hMonitor = (*P_MonitorFromWindow)(hWnd, MONITOR_DEFAULTTONULL);
+	hMonitor = (*P_MonitorFromWindow)(hWnd, MONITOR_DEFAULTTONULL);
 #else
-hMonitor = MonitorFromWindow(hWnd, MONITOR_DEFAULTTONULL);
+	hMonitor = MonitorFromWindow(hWnd, MONITOR_DEFAULTTONULL);
 #endif
-if (hMonitor == 0) {
+	if (hMonitor == 0) {
-RETURN(nil);
+	    RETURN(nil);
-}
+	}
-RETURN ( __MKEXTERNALADDRESS(hMonitor) );
+	RETURN ( __MKEXTERNALADDRESS(hMonitor) );
 }
 %}
 "
 Screen current monitorHandleForView:(Transcript topView id)
 Screen current monitorHandleForPoint:(0@0)
 passing one of #parent, #root or nil specifies that the focus should be
 given to the parent view, the root view or no view."
 %{
 if (__isExternalAddress(aWindowId)) {
-HWND hWnd = _HWNDVal(aWindowId);
+	HWND hWnd = _HWNDVal(aWindowId);
-int r = 0;
+	int r = 0;
-if (revertSymbol == @symbol(parent)) {
+	if (revertSymbol == @symbol(parent)) {
-r = 1;
+	    r = 1;
-} else if (revertSymbol == @symbol(root)) {
+	} else if (revertSymbol == @symbol(root)) {
-r = 2;
+	    r = 2;
-}
+	}
-if (hWnd) {
+	if (hWnd) {
-if (GetFocus() != hWnd) {
+	    if (GetFocus() != hWnd) {
-DPRINTFIF(__debug_WM_FOCUS__ , ("setInputFocusTo %x revertTo %d\n",hWnd,r));
+		DPRINTFIF(__debug_WM_FOCUS__ , ("setInputFocusTo %x revertTo %d\n",hWnd,r));
 #ifdef SET_FOCUS_IN_WINTHREAD
-PostMessage(hWnd, WM_THREAD_SETFOCUS, (INT)hWnd, GetCurrentThreadId());
+		PostMessage(hWnd, WM_THREAD_SETFOCUS, (INT)hWnd, GetCurrentThreadId());
 #else
-if (SetFocus(hWnd) == 0) {
+		if (SetFocus(hWnd) == 0) {
-PRINTF(("SetFocus to %x failed.\n",hWnd));
+		    PRINTF(("SetFocus to %x failed.\n",hWnd));
-}
+		}
 #endif
-} else {
+	    } else {
-CPRINTF(("setInputFocusTo %x revertTo %d\n",hWnd,r));
+		CPRINTF(("setInputFocusTo %x revertTo %d\n",hWnd,r));
-}
+	    }
-}
+	}
-RETURN ( self );
+	RETURN ( self );
 }
 %}
 ! !
 !WinWorkstation methodsFor:'native dialogs'!
 nativeConfirm:aString title:titleString flags:flags initialAnswer:trueOrFalse
 ^ self
-nativeMessageBoxFor:nil
+	    nativeMessageBoxFor:nil
-text:aString asString string
+	    text:aString asString string
-title:titleString
+	    title:titleString
-flags:flags
+	    flags:flags
-blocking:false
+	    blocking:false
 "
 Screen current
-nativeConfirm:'please confirm'
+	nativeConfirm:'please confirm'
-title:'Confirm'
+	title:'Confirm'
-flags:#( APPLMODAL ICONQUESTION OKCANCEL)
+	flags:#( APPLMODAL ICONQUESTION OKCANCEL)
-initialAnswer:true
+	initialAnswer:true
 "
 "
 Screen current
-nativeConfirm:'Yes or No'
+	nativeConfirm:'Yes or No'
-title:'Confirm'
+	title:'Confirm'
-flags:#( APPLMODAL ICONQUESTION YESNO)
+	flags:#( APPLMODAL ICONQUESTION YESNO)
-initialAnswer:true
+	initialAnswer:true
 "
 "Modified: / 02-03-2007 / 15:37:57 / cg"
 "Modified: / 24-08-2010 / 16:17:29 / sr"
 !
 nativeConfirmOKCancel:aString title:titleString initialAnswer:trueOrFalse
 ^ (self
-nativeConfirm:aString
+	    nativeConfirm:aString
-title:titleString
+	    title:titleString
-flags:#( APPLMODAL ICONQUESTION OKCANCEL)
+	    flags:#( APPLMODAL ICONQUESTION OKCANCEL)
-initialAnswer:trueOrFalse) == #IDOK
+	    initialAnswer:trueOrFalse) == #IDOK
 "
 Screen current
-nativeConfirmOKCancel:'please confirm' title:'Confirm' initialAnswer:true
+	nativeConfirmOKCancel:'please confirm' title:'Confirm' initialAnswer:true
 "
 "Modified: / 02-03-2007 / 15:37:32 / cg"
 !
 nativeConfirmYesNo:aString title:titleString initialAnswer:trueOrFalse
 ^ (self
-nativeConfirm:aString
+	    nativeConfirm:aString
-title:titleString
+	    title:titleString
-flags:#( APPLMODAL ICONQUESTION YESNO)
+	    flags:#( APPLMODAL ICONQUESTION YESNO)
-initialAnswer:trueOrFalse) == #IDYES
+	    initialAnswer:trueOrFalse) == #IDYES
 "
 Screen current
-nativeConfirmYesNo:'please confirm' title:'Confirm' initialAnswer:true
+	nativeConfirmYesNo:'please confirm' title:'Confirm' initialAnswer:true
 "
 "Modified: / 02-03-2007 / 15:12:49 / cg"
 !
 nativeFileDialogFor:ownerId save:isSaveDialog title:titleOrNil inDirectory:dirPathOrNil
-initialAnswer:initialOrNil
+	     initialAnswer:initialOrNil
-filter:filterArrayOrNil extension:extensionOrNil
+	     filter:filterArrayOrNil extension:extensionOrNil
 <resource: #obsolete>
 "sr: replaced by:
-nativeFileDialogWithTitle:dialogTitleArg
+	nativeFileDialogWithTitle:dialogTitleArg
-defaultFilename:defaultFilenameArg
+	defaultFilename:defaultFilenameArg
-owningTopView:owningTopView
+	owningTopView:owningTopView
-filter:filterStringOrArrayOfPairs
+	filter:filterStringOrArrayOfPairs
-filterIndex:filterIndexArg
+	filterIndex:filterIndexArg
-doSave:doSave"
+	doSave:doSave"
 "start a native open-file dialog.
 If not cancelled, the selected fileName is returned; nil otherwise.
 Of course, this one looks like the
 Windows file dialog - no matter which viewStyle settings are active.
 Notice: if no ownerId is given, the dialog pops up at 0@0.
 filterArrayOrNil: if non nil, must be an array of 2-element arrays,
-each element specifying filter commnet and filter
+		       each element specifying filter commnet and filter
-i.e. #( 'bitmap files (*.bmp)' '*.bmp' )
+		       i.e. #( 'bitmap files (*.bmp)' '*.bmp' )
-i.e. #( 'smalltalk files' '*.st' )
+		       i.e. #( 'smalltalk files' '*.st' )
 EXPERIMENTAL & non-portable: use with caution"
 "/
 "/        extension:extensionOrNil
 "/        blocking:false
 "
 Display
-nativeFileDialogFor:nil save:false
+	nativeFileDialogFor:nil save:false
-title:'Test OpenFile Dialog'
+	title:'Test OpenFile Dialog'
-inDirectory:nil
+	inDirectory:nil
-initialAnswer:nil
+	initialAnswer:nil
-filter:nil
+	filter:nil
-extension:nil
+	extension:nil
 Display
-nativeFileDialogFor:nil save:true
+	nativeFileDialogFor:nil save:true
-title:'Test SaveFile Dialog'
+	title:'Test SaveFile Dialog'
-inDirectory:nil
+	inDirectory:nil
-initialAnswer:nil
+	initialAnswer:nil
-filter:nil
+	filter:nil
-extension:nil
+	extension:nil
 Display
-nativeFileDialogFor:nil save:true
+	nativeFileDialogFor:nil save:true
-title:'Test SaveFile Dialog'
+	title:'Test SaveFile Dialog'
-inDirectory:nil
+	inDirectory:nil
-initialAnswer:'newFile.bmp'
+	initialAnswer:'newFile.bmp'
-filter:nil
+	filter:nil
-extension:'bmp'
+	extension:'bmp'
 Display
-nativeFileDialogFor:nil save:false
+	nativeFileDialogFor:nil save:false
-title:'Test OpenFile Dialog'
+	title:'Test OpenFile Dialog'
-inDirectory:nil
+	inDirectory:nil
-initialAnswer:nil
+	initialAnswer:nil
-filter:#(
+	filter:#(
-#( 'all files'       '*.*' )
+		    #( 'all files'       '*.*' )
-#( 'smalltalk files' '*.st' )
+		    #( 'smalltalk files' '*.st' )
-#( 'change files'    '*.chg' )
+		    #( 'change files'    '*.chg' )
-#( 'image files'     '*.img' )
+		    #( 'image files'     '*.img' )
-)
+		)
-extension:nil
+	extension:nil
 "
 "Modified: / 26-10-2010 / 17:08:04 / cg"
 "Modified: / 22-10-2018 / 16:23:43 / sr"
 "Modified (comment): / 23-10-2018 / 10:03:59 / sr"
 !
 nativeFileDialogFor:ownerId save:isSaveDialog title:titleOrNil inDirectory:dirPathOrNil
-initialAnswer:initialOrNil flags:flagArray
+	     initialAnswer:initialOrNil flags:flagArray
-filter:filterArrayOrNil extension:extensionOrNil
+	     filter:filterArrayOrNil extension:extensionOrNil
-blocking:blocking
+	     blocking:blocking
 <resource: #obsolete>
 "sr: replaced by:
-nativeFileDialogWithTitle:dialogTitleArg
+	nativeFileDialogWithTitle:dialogTitleArg
-defaultFilename:defaultFilenameArg
+	defaultFilename:defaultFilenameArg
-owningTopView:owningTopView
+	owningTopView:owningTopView
-filter:filterStringOrArrayOfPairs
+	filter:filterStringOrArrayOfPairs
-filterIndex:filterIndexArg
+	filterIndex:filterIndexArg
-doSave:doSave"
+	doSave:doSave"
 "start a native open-file dialog.
 If not cancelled, the selected fileName is returned; nil otherwise.
 Of course, this one looks like the
 Windows file dialog - no matter which viewStyle settings are active.
 Notice: if no ownerId is given, the dialog pops up at 0@0.
 filterArrayOrNil: if non nil, must be an array of 2-element arrays,
-each element specifying filter commnet and filter
+		       each element specifying filter commnet and filter
-i.e. #( 'bitmap files (*.bmp)' '*.bmp' )
+		       i.e. #( 'bitmap files (*.bmp)' '*.bmp' )
-i.e. #( 'smalltalk files' '*.st' )
+		       i.e. #( 'smalltalk files' '*.st' )
 EXPERIMENTAL & non-portable: use with caution"
 |rslt errorCode fileName|
 BOOL __rslt;
 jmp_buf exitJmpBuf;
 extern void __setAtExitLongJmp(jmp_buf);
 if (__isExternalAddress(ownerId)) {
-hWndOwner = _HWNDVal(ownerId);
+	hWndOwner = _HWNDVal(ownerId);
 }
 # ifdef OPENFILENAME_SIZE_VERSION_400
 ofn.lStructSize = OPENFILENAME_SIZE_VERSION_400; // sizeof(ofn);
 # else
 # endif
 ofn.hwndOwner = hWndOwner;
 ofn.hInstance = NULL;
 if ((filterArrayOrNil != nil) && __isArrayLike(filterArrayOrNil)) {
-char *dst = filterBuffer;
+	char *dst = filterBuffer;
-unsigned int idx;
+	unsigned int idx;
-for (idx=0; idx<__arraySize(filterArrayOrNil); idx++) {
+	for (idx=0; idx<__arraySize(filterArrayOrNil); idx++) {
-OBJ el = __ArrayInstPtr(filterArrayOrNil)->a_element[idx];
+	    OBJ el = __ArrayInstPtr(filterArrayOrNil)->a_element[idx];
-// console_printf("idx = %d\n", idx);
+	    // console_printf("idx = %d\n", idx);
-if (__isArrayLike(el) && (__arraySize(el) == 2)) {
+	    if (__isArrayLike(el) && (__arraySize(el) == 2)) {
-OBJ descr, filter;
+		OBJ descr, filter;
-descr = __ArrayInstPtr(el)->a_element[0];
+		descr = __ArrayInstPtr(el)->a_element[0];
-filter = __ArrayInstPtr(el)->a_element[1];
+		filter = __ArrayInstPtr(el)->a_element[1];
-if (__isStringLike(descr) && __isStringLike(filter)) {
+		if (__isStringLike(descr) && __isStringLike(filter)) {
-char *src = __stringVal(descr);
+		    char *src = __stringVal(descr);
-// console_printf("descr: %s filter: %s\n", __stringVal(descr), __stringVal(filter));
+		    // console_printf("descr: %s filter: %s\n", __stringVal(descr), __stringVal(filter));
-// append (incl 0-byte)
+		    // append (incl 0-byte)
-while (*src) {
+		    while (*src) {
-*dst++ = *src++;
+			*dst++ = *src++;
-}
+		    }
-*dst++ = '\0';
+		    *dst++ = '\0';
-src = __stringVal(filter);
+		    src = __stringVal(filter);
-// append (incl 0-byte)
+		    // append (incl 0-byte)
-while (*src) {
+		    while (*src) {
-*dst++ = *src++;
+			*dst++ = *src++;
-}
+		    }
-*dst++ = '\0';
+		    *dst++ = '\0';
-}
+		}
-}
+	    }
-}
+	}
-*dst++ = '\0';
+	*dst++ = '\0';
-*dst = '\0';
+	*dst = '\0';
-ofn.lpstrFilter = filterBuffer;
+	ofn.lpstrFilter = filterBuffer;
-ofn.nFilterIndex = 1;
+	ofn.nFilterIndex = 1;
 } else {
-ofn.lpstrFilter = NULL;
+	ofn.lpstrFilter = NULL;
-ofn.nFilterIndex = 0;
+	ofn.nFilterIndex = 0;
 }
 ofn.lpstrCustomFilter = NULL;
 ofn.nMaxCustFilter = 0;
 if (__isStringLike(initialOrNil)) {
-strcpy(fileNameBuffer, __stringVal(initialOrNil));
+	strcpy(fileNameBuffer, __stringVal(initialOrNil));
 }
 ofn.lpstrFile = fileNameBuffer;
 ofn.nMaxFile = sizeof(fileNameBuffer);
 ofn.lpstrFileTitle = NULL;
 ofn.nMaxFileTitle = 0;
 if (__isStringLike(dirPathOrNil)) {
-ofn.lpstrInitialDir = __stringVal(dirPathOrNil);
+	ofn.lpstrInitialDir = __stringVal(dirPathOrNil);
 } else {
-ofn.lpstrInitialDir = NULL;
+	ofn.lpstrInitialDir = NULL;
 }
 if (__isStringLike(titleOrNil)) {
-ofn.lpstrTitle = __stringVal(titleOrNil);
+	ofn.lpstrTitle = __stringVal(titleOrNil);
 } else {
-ofn.lpstrTitle = "";
+	ofn.lpstrTitle = "";
 }
 ofn.nFileOffset = 0;
 ofn.nFileExtension = 0;
 if (__isStringLike(extensionOrNil)) {
-ofn.lpstrDefExt = __stringVal(extensionOrNil);
+	ofn.lpstrDefExt = __stringVal(extensionOrNil);
 } else {
-ofn.lpstrDefExt = NULL;
+	ofn.lpstrDefExt = NULL;
 }
 ofn.lCustData = (INT)NULL;
 ofn.lpfnHook = NULL;
 ofn.lpTemplateName = NULL;
 ofn.Flags = 0;
 if (__isNonNilObject(flagArray) && __isArrayLike(flagArray)) {
-unsigned int i;
+	unsigned int i;
-for (i=0; i<__arraySize(flagArray); i++) {
+	for (i=0; i<__arraySize(flagArray); i++) {
-OBJ flag = __ArrayInstPtr(flagArray)->a_element[i];
+	    OBJ flag = __ArrayInstPtr(flagArray)->a_element[i];
-int flagVal = 0;
+	    int flagVal = 0;
-if (__isSmallInteger(flag)) {
+	    if (__isSmallInteger(flag)) {
-flagVal = __intVal(flag);
+		flagVal = __intVal(flag);
-} else if (flag == @symbol(READONLY)) {
+	    } else if (flag == @symbol(READONLY)) {
-flagVal = OFN_READONLY;
+		flagVal = OFN_READONLY;
-} else if (flag == @symbol(OVERWRITEPROMPT)) {
+	    } else if (flag == @symbol(OVERWRITEPROMPT)) {
-flagVal = OFN_OVERWRITEPROMPT;
+		flagVal = OFN_OVERWRITEPROMPT;
-} else if (flag == @symbol(HIDEREADONLY)) {
+	    } else if (flag == @symbol(HIDEREADONLY)) {
-flagVal = OFN_HIDEREADONLY;
+		flagVal = OFN_HIDEREADONLY;
-} else if (flag == @symbol(NOCHANGEDIR)) {
+	    } else if (flag == @symbol(NOCHANGEDIR)) {
-flagVal = OFN_NOCHANGEDIR;
+		flagVal = OFN_NOCHANGEDIR;
-} else if (flag == @symbol(SHOWHELP)) {
+	    } else if (flag == @symbol(SHOWHELP)) {
-flagVal = OFN_SHOWHELP;
+		flagVal = OFN_SHOWHELP;
-} else if (flag == @symbol(ENABLEHOOK)) {
+	    } else if (flag == @symbol(ENABLEHOOK)) {
-flagVal = OFN_ENABLEHOOK;
+		flagVal = OFN_ENABLEHOOK;
-} else if (flag == @symbol(ENABLETEMPLATE)) {
+	    } else if (flag == @symbol(ENABLETEMPLATE)) {
-flagVal = OFN_ENABLETEMPLATE;
+		flagVal = OFN_ENABLETEMPLATE;
-} else if (flag == @symbol(ENABLETEMPLATEHANDLE)) {
+	    } else if (flag == @symbol(ENABLETEMPLATEHANDLE)) {
-flagVal = OFN_ENABLETEMPLATEHANDLE;
+		flagVal = OFN_ENABLETEMPLATEHANDLE;
-} else if (flag == @symbol(NOVALIDATE)) {
+	    } else if (flag == @symbol(NOVALIDATE)) {
-flagVal = OFN_NOVALIDATE;
+		flagVal = OFN_NOVALIDATE;
-} else if (flag == @symbol(ALLOWMULTISELECT)) {
+	    } else if (flag == @symbol(ALLOWMULTISELECT)) {
-flagVal = OFN_ALLOWMULTISELECT;
+		flagVal = OFN_ALLOWMULTISELECT;
-} else if (flag == @symbol(EXTENSIONDIFFERENT)) {
+	    } else if (flag == @symbol(EXTENSIONDIFFERENT)) {
-flagVal = OFN_EXTENSIONDIFFERENT;
+		flagVal = OFN_EXTENSIONDIFFERENT;
-} else if (flag == @symbol(PATHMUSTEXIST)) {
+	    } else if (flag == @symbol(PATHMUSTEXIST)) {
-flagVal = OFN_PATHMUSTEXIST;
+		flagVal = OFN_PATHMUSTEXIST;
-} else if (flag == @symbol(FILEMUSTEXIST)) {
+	    } else if (flag == @symbol(FILEMUSTEXIST)) {
-flagVal = OFN_FILEMUSTEXIST;
+		flagVal = OFN_FILEMUSTEXIST;
-} else if (flag == @symbol(CREATEPROMPT)) {
+	    } else if (flag == @symbol(CREATEPROMPT)) {
-flagVal = OFN_CREATEPROMPT;
+		flagVal = OFN_CREATEPROMPT;
-} else if (flag == @symbol(SHAREAWARE)) {
+	    } else if (flag == @symbol(SHAREAWARE)) {
-flagVal = OFN_SHAREAWARE;
+		flagVal = OFN_SHAREAWARE;
-} else if (flag == @symbol(NOREADONLYRETURN)) {
+	    } else if (flag == @symbol(NOREADONLYRETURN)) {
-flagVal = OFN_NOREADONLYRETURN;
+		flagVal = OFN_NOREADONLYRETURN;
-} else if (flag == @symbol(NOTESTFILECREATE)) {
+	    } else if (flag == @symbol(NOTESTFILECREATE)) {
-flagVal = OFN_NOTESTFILECREATE;
+		flagVal = OFN_NOTESTFILECREATE;
-} else if (flag == @symbol(NONETWORKBUTTON)) {
+	    } else if (flag == @symbol(NONETWORKBUTTON)) {
-flagVal = OFN_NONETWORKBUTTON;
+		flagVal = OFN_NONETWORKBUTTON;
-} else if (flag == @symbol(NOLONGNAMES)) {
+	    } else if (flag == @symbol(NOLONGNAMES)) {
-flagVal = OFN_NOLONGNAMES;
+		flagVal = OFN_NOLONGNAMES;
 # ifdef OFN_EXPLORER
-} else if (flag == @symbol(EXPLORER)) {
+	    } else if (flag == @symbol(EXPLORER)) {
-flagVal = OFN_EXPLORER;
+		flagVal = OFN_EXPLORER;
 # endif
 # ifdef OFN_NODEREFERENCELINKS
-} else if (flag == @symbol(NODEREFERENCELINKS)) {
+	    } else if (flag == @symbol(NODEREFERENCELINKS)) {
-flagVal = OFN_NODEREFERENCELINKS;
+		flagVal = OFN_NODEREFERENCELINKS;
 # endif
 # ifdef OFN_LONGNAMES
-} else if (flag == @symbol(LONGNAMES)) {
+	    } else if (flag == @symbol(LONGNAMES)) {
-flagVal = OFN_LONGNAMES;
+		flagVal = OFN_LONGNAMES;
 # endif
 # ifdef OFN_ENABLEINCLUDENOTIFY
-} else if (flag == @symbol(ENABLEINCLUDENOTIFY)) {
+	    } else if (flag == @symbol(ENABLEINCLUDENOTIFY)) {
-flagVal = OFN_ENABLEINCLUDENOTIFY;
+		flagVal = OFN_ENABLEINCLUDENOTIFY;
 # endif
 # ifdef OFN_ENABLESIZING
-} else if (flag == @symbol(ENABLESIZING)) {
+	    } else if (flag == @symbol(ENABLESIZING)) {
-flagVal = OFN_ENABLESIZING;
+		flagVal = OFN_ENABLESIZING;
 # endif
-}
+	    }
-ofn.Flags |= flagVal;
+	    ofn.Flags |= flagVal;
-}
+	}
 }
 if (isSaveDialog == true) {
-if (blocking == true) {
+	if (blocking == true) {
-__rslt = GetSaveFileName(&ofn);
+	    __rslt = GetSaveFileName(&ofn);
-} else {
+	} else {
-do {
+	    do {
-__threadErrno = 0;
+		__threadErrno = 0;
-__rslt = (BOOL)((INT) __STX_API_CALL1( "GetSaveFileName", (voidFUNC)GetSaveFileName, (void *)(&ofn)));
+		__rslt = (BOOL)((INT) __STX_API_CALL1( "GetSaveFileName", (voidFUNC)GetSaveFileName, (void *)(&ofn)));
-} while ((__rslt < 0) && (__threadErrno == EINTR));
+	    } while ((__rslt < 0) && (__threadErrno == EINTR));
-}
+	}
 } else {
-if (blocking == true) {
+	if (blocking == true) {
-__rslt = GetOpenFileName(&ofn);
+	    __rslt = GetOpenFileName(&ofn);
-} else {
+	} else {
-do {
+	    do {
-__threadErrno = 0;
+		__threadErrno = 0;
-__rslt = (BOOL)((INT) __STX_API_CALL1( "GetOpenFileName", (voidFUNC)GetOpenFileName, (void *)(&ofn)));
+		__rslt = (BOOL)((INT) __STX_API_CALL1( "GetOpenFileName", (voidFUNC)GetOpenFileName, (void *)(&ofn)));
-} while ((__rslt < 0) && (__threadErrno == EINTR));
+	    } while ((__rslt < 0) && (__threadErrno == EINTR));
-}
+	}
 }
 if ( @global(WinWorkstation:VerboseNativeDialogs) == true) {
-console_fprintf(stderr, "WinWorkstation [info]: after GetOpenFileName\n");
+	console_fprintf(stderr, "WinWorkstation [info]: after GetOpenFileName\n");
 }
 if (setjmp(exitJmpBuf)) {
-__setAtExitLongJmp(0);
+	__setAtExitLongJmp(0);
-if ( @global(WinWorkstation:VerboseNativeDialogs) == true) {
+	if ( @global(WinWorkstation:VerboseNativeDialogs) == true) {
-console_fprintf(stderr, "WinWorkstation [warning]: exit longjmp\n");
+	    console_fprintf(stderr, "WinWorkstation [warning]: exit longjmp\n");
-}
+	}
-rslt = false;
+	rslt = false;
-errorCode = __MKSMALLINT(0);
+	errorCode = __MKSMALLINT(0);
-goto getOutOfHere;
+	goto getOutOfHere;
 }
 __setAtExitLongJmp(exitJmpBuf);
 if (__rslt == TRUE) {
-rslt = true;
+	rslt = true;
-fileName = __MKSTRING(fileNameBuffer);
+	fileName = __MKSTRING(fileNameBuffer);
 } else {
-rslt = false;
+	rslt = false;
-errorCode = __MKSMALLINT(CommDlgExtendedError());
+	errorCode = __MKSMALLINT(CommDlgExtendedError());
 }
 __setAtExitLongJmp(0);
 #else
 errorCode = __MKSMALLINT(-1);
 #endif /* NO_NATIVE_DIALOGS */
 getOutOfHere: ;
 %}.
 (errorCode notNil) ifTrue:[
-errorCode ~~ 0 ifTrue:[
+	errorCode ~~ 0 ifTrue:[
-self primitiveFailed.
+	    self primitiveFailed.
-].
+	].
-^ nil
+	^ nil
 ].
 ^ fileName
 "
 Display
-nativeFileDialogFor:nil save:false
+	nativeFileDialogFor:nil save:false
-title:'Test OpenFile Dialog'
+	title:'Test OpenFile Dialog'
-inDirectory:nil
+	inDirectory:nil
-initialAnswer:nil
+	initialAnswer:nil
-flags:#( ENABLESIZING HIDEREADONLY EXPLORER ENABLESIZING )
+	flags:#( ENABLESIZING HIDEREADONLY EXPLORER ENABLESIZING )
-filter:#(
+	filter:#(
-#( 'all files'       '*.*' )
+		    #( 'all files'       '*.*' )
-#( 'smalltalk files' '*.st' )
+		    #( 'smalltalk files' '*.st' )
-#( 'change files'    '*.chg' )
+		    #( 'change files'    '*.chg' )
-#( 'image files'     '*.img' )
+		    #( 'image files'     '*.img' )
-)
+		)
-extension:nil
+	extension:nil
-blocking:false
+	blocking:false
 "
 "
 Display
-nativeFileDialogFor:nil save:false
+	nativeFileDialogFor:nil save:false
-title:'Test OpenFile Dialog'
+	title:'Test OpenFile Dialog'
-inDirectory:nil
+	inDirectory:nil
-initialAnswer:nil
+	initialAnswer:nil
-flags:#( ENABLESIZING HIDEREADONLY EXPLORER ENABLESIZING )
+	flags:#( ENABLESIZING HIDEREADONLY EXPLORER ENABLESIZING )
-filter:#(
+	filter:#(
-#( 'all files'       '*.*' )
+		    #( 'all files'       '*.*' )
-#( 'smalltalk files' '*.st' )
+		    #( 'smalltalk files' '*.st' )
-#( 'change files'    '*.chg' )
+		    #( 'change files'    '*.chg' )
-#( 'image files'     '*.img' )
+		    #( 'image files'     '*.img' )
-)
+		)
-extension:nil
+	extension:nil
-blocking:true
+	blocking:true
 "
 "Modified: / 23-10-2018 / 10:04:05 / sr"
 !
 memset(&pdsetup, 0, sizeof(pdsetup));
 pdsetup.lStructSize = sizeof(pdsetup);
 pdsetup.Flags = PD_RETURNDEFAULT | PD_RETURNDC;
 if (! PrintDlg(&pdsetup)) {
-RETURN (nil);
+	RETURN (nil);
 }
 if ( pdsetup.hDC ) {
-newDCHandle = __MKOBJ( pdsetup.hDC );
+	newDCHandle = __MKOBJ( pdsetup.hDC );
 }
 #else
 errorCode = __MKSMALLINT(-1);
 #endif /* NO_NATIVE_PRINT_DIALOGS */
 %}.
 (errorCode notNil) ifTrue:[
-self primitiveFailed.
+	self primitiveFailed.
-^ nil
+	^ nil
 ].
 ^ newDCHandle
 "
 memset(&pdsetup, 0, sizeof(pdsetup));
 pdsetup.lStructSize = sizeof(pdsetup);
 pdsetup.Flags = PD_RETURNDC;
 if (defaultBoolean == true) {
-pdsetup.Flags |= PD_RETURNDEFAULT;
+	pdsetup.Flags |= PD_RETURNDEFAULT;
 }
 # ifdef BLOCKING
 answer = PrintDlg(&pdsetup);
 # else
 answer = __STX_API_CALL1( "PrintDlg",
-(voidFUNC)PrintDlg,
+					(voidFUNC)PrintDlg,
-(void *)&pdsetup );
+					(void *)&pdsetup );
 # endif
 if (! answer) {
-RETURN (nil);
+	RETURN (nil);
 }
 if ( pdsetup.hDC ) {
-newDCHandle = __MKOBJ( pdsetup.hDC );
+	newDCHandle = __MKOBJ( pdsetup.hDC );
 }
 #else
 errorCode = __MKSMALLINT(-1);
 #endif /* NO_NATIVE_PRINT_DIALOGS */
 %}.
 (errorCode notNil) ifTrue:[
-self primitiveFailed.
+	self primitiveFailed.
-^ nil
+	^ nil
 ].
 ^ newDCHandle
 "
 "
 !
 nativeInformationOK:aString title:titleString
 ^ self
-nativeConfirm:aString
+	    nativeConfirm:aString
-title:titleString
+	    title:titleString
-flags:#( APPLMODAL ICONINFORMATION OK)
+	    flags:#( APPLMODAL ICONINFORMATION OK)
-initialAnswer:nil
+	    initialAnswer:nil
 "
 Screen current
-nativeInformationOK:'Some Info' title:'Info'
+	nativeInformationOK:'Some Info' title:'Info'
 "
 "Modified: / 02-03-2007 / 15:37:40 / cg"
 !
 char *__title;
 char *__text;
 INT __answer;
 if (__isExternalAddress(ownerId)) {
-hWndOwner = _HWNDVal(ownerId);
+	hWndOwner = _HWNDVal(ownerId);
 }
 if (__isStringLike(titleOrNil)) {
-__title = __stringVal(titleOrNil);
+	__title = __stringVal(titleOrNil);
 } else {
-__title = "";
+	__title = "";
 }
 if (__isStringLike(textOrNil)) {
-__text = __stringVal(textOrNil);
+	__text = __stringVal(textOrNil);
 } else {
-__text = "";
+	__text = "";
 }
 if (__isNonNilObject(flagArray) && __isArrayLike(flagArray)) {
-unsigned int i;
+	unsigned int i;
-for (i=0; i<__arraySize(flagArray); i++) {
+	for (i=0; i<__arraySize(flagArray); i++) {
-OBJ flag = __ArrayInstPtr(flagArray)->a_element[i];
+	    OBJ flag = __ArrayInstPtr(flagArray)->a_element[i];
-int flagVal = 0;
+	    int flagVal = 0;
-if (__isSmallInteger(flag)) {
+	    if (__isSmallInteger(flag)) {
-flagVal = __intVal(flag);
+		flagVal = __intVal(flag);
-} else if (flag == @symbol(ABORTRETRYIGNORE)) {
+	    } else if (flag == @symbol(ABORTRETRYIGNORE)) {
-flagVal = MB_ABORTRETRYIGNORE;
+		flagVal = MB_ABORTRETRYIGNORE;
-} else if (flag == @symbol(APPLMODAL)) {
+	    } else if (flag == @symbol(APPLMODAL)) {
-flagVal = MB_APPLMODAL;
+		flagVal = MB_APPLMODAL;
-} else if (flag == @symbol(DEFAULT_DESKTOP_ONLY)) {
+	    } else if (flag == @symbol(DEFAULT_DESKTOP_ONLY)) {
-flagVal = MB_DEFAULT_DESKTOP_ONLY;
+		flagVal = MB_DEFAULT_DESKTOP_ONLY;
-} else if (flag == @symbol(DEFBUTTON1)) {
+	    } else if (flag == @symbol(DEFBUTTON1)) {
-flagVal = MB_DEFBUTTON1;
+		flagVal = MB_DEFBUTTON1;
-} else if (flag == @symbol(DEFBUTTON2)) {
+	    } else if (flag == @symbol(DEFBUTTON2)) {
-flagVal = MB_DEFBUTTON2;
+		flagVal = MB_DEFBUTTON2;
-} else if (flag == @symbol(DEFBUTTON3)) {
+	    } else if (flag == @symbol(DEFBUTTON3)) {
-flagVal = MB_DEFBUTTON3;
+		flagVal = MB_DEFBUTTON3;
-} else if (flag == @symbol(ICONASTERISK)) {
+	    } else if (flag == @symbol(ICONASTERISK)) {
-flagVal = MB_ICONASTERISK;
+		flagVal = MB_ICONASTERISK;
-} else if (flag == @symbol(ICONHAND)) {
+	    } else if (flag == @symbol(ICONHAND)) {
-flagVal = MB_ICONHAND;
+		flagVal = MB_ICONHAND;
-} else if (flag == @symbol(ICONINFORMATION)) {
+	    } else if (flag == @symbol(ICONINFORMATION)) {
-flagVal = MB_ICONINFORMATION;
+		flagVal = MB_ICONINFORMATION;
-} else if (flag == @symbol(ICONQUESTION)) {
+	    } else if (flag == @symbol(ICONQUESTION)) {
-flagVal = MB_ICONQUESTION;
+		flagVal = MB_ICONQUESTION;
-} else if (flag == @symbol(ICONSTOP)) {
+	    } else if (flag == @symbol(ICONSTOP)) {
-flagVal = MB_ICONSTOP;
+		flagVal = MB_ICONSTOP;
-} else if (flag == @symbol(OK)) {
+	    } else if (flag == @symbol(OK)) {
-flagVal = MB_OK;
+		flagVal = MB_OK;
-} else if (flag == @symbol(OKCANCEL)) {
+	    } else if (flag == @symbol(OKCANCEL)) {
-flagVal = MB_OKCANCEL;
+		flagVal = MB_OKCANCEL;
-} else if (flag == @symbol(RETRYCANCEL)) {
+	    } else if (flag == @symbol(RETRYCANCEL)) {
-flagVal = MB_RETRYCANCEL;
+		flagVal = MB_RETRYCANCEL;
-} else if (flag == @symbol(SETFOREGROUND)) {
+	    } else if (flag == @symbol(SETFOREGROUND)) {
-flagVal = MB_SETFOREGROUND;
+		flagVal = MB_SETFOREGROUND;
-} else if (flag == @symbol(SYSTEMMODAL)) {
+	    } else if (flag == @symbol(SYSTEMMODAL)) {
-flagVal = MB_SYSTEMMODAL;
+		flagVal = MB_SYSTEMMODAL;
-} else if (flag == @symbol(TASKMODAL)) {
+	    } else if (flag == @symbol(TASKMODAL)) {
-flagVal = MB_TASKMODAL;
+		flagVal = MB_TASKMODAL;
-} else if (flag == @symbol(YESNO)) {
+	    } else if (flag == @symbol(YESNO)) {
-flagVal = MB_YESNO;
+		flagVal = MB_YESNO;
-} else if (flag == @symbol(YESNOCANCEL)) {
+	    } else if (flag == @symbol(YESNOCANCEL)) {
-flagVal = MB_YESNOCANCEL;
+		flagVal = MB_YESNOCANCEL;
-}
+	    }
-boxFlags |= flagVal;
+	    boxFlags |= flagVal;
-}
+	}
 }
 if (blocking == true) {
-__answer = MessageBox(hWndOwner,
+	__answer = MessageBox(hWndOwner,
-__text,
+			      __text,
-__title,
+			      __title,
-boxFlags);
+			      boxFlags);
 } else {
-do {
+	do {
-__threadErrno = 0;
+	    __threadErrno = 0;
-__answer = (INT) __STX_API_CALL4(
+	    __answer = (INT) __STX_API_CALL4(
-"MessageBox",
+					"MessageBox",
-(voidFUNC)MessageBox,
+					(voidFUNC)MessageBox,
-(void *)hWndOwner,
+					(void *)hWndOwner,
-(void *)__text,
+					(void *)__text,
-(void *)__title,
+					(void *)__title,
-(void *)((INT)boxFlags));
+					(void *)((INT)boxFlags));
-} while ((__answer < 0) && (__threadErrno == EINTR));
+	} while ((__answer < 0) && (__threadErrno == EINTR));
 }
 switch (__answer) {
-case IDABORT:
+	case IDABORT:
-answer = @symbol(IDABORT);
+	    answer = @symbol(IDABORT);
-break;
+	    break;
-case IDCANCEL:
+	case IDCANCEL:
-answer = @symbol(IDCANCEL);
+	    answer = @symbol(IDCANCEL);
-break;
+	    break;
-case IDIGNORE:
+	case IDIGNORE:
-answer = @symbol(IDIGNORE);
+	    answer = @symbol(IDIGNORE);
-break;
+	    break;
-case IDNO:
+	case IDNO:
-answer = @symbol(IDNO);
+	    answer = @symbol(IDNO);
-break;
+	    break;
-case IDOK:
+	case IDOK:
-answer = @symbol(IDOK);
+	    answer = @symbol(IDOK);
-break;
+	    break;
-case IDRETRY:
+	case IDRETRY:
-answer = @symbol(IDRETRY);
+	    answer = @symbol(IDRETRY);
-break;
+	    break;
-case IDYES:
+	case IDYES:
-answer = @symbol(IDYES);
+	    answer = @symbol(IDYES);
-break;
+	    break;
-default:
+	default:
-answer = __MKSMALLINT(__answer);
+	    answer = __MKSMALLINT(__answer);
-break;
+	    break;
 }
 #else
 errorCode = __MKSMALLINT(-1);
 #endif /* NO_NATIVE_DIALOGS */
 %}.
 (errorCode notNil) ifTrue:[
-self primitiveFailed.
+	self primitiveFailed.
-^ nil
+	^ nil
 ].
 ^ answer
 "
 Display
-nativeMessageBoxFor:nil
+	nativeMessageBoxFor:nil
-text:'Hello world'
+	text:'Hello world'
-title:'Message'
+	title:'Message'
-flags:#( OK APPLMODAL ICONSTOP )
+	flags:#( OK APPLMODAL ICONSTOP )
-blocking:true
+	blocking:true
 Display
-nativeMessageBoxFor:nil
+	nativeMessageBoxFor:nil
-text:'Hello world'
+	text:'Hello world'
-title:'Message'
+	title:'Message'
-flags:#( OK APPLMODAL ICONSTOP )
+	flags:#( OK APPLMODAL ICONSTOP )
-blocking:false
+	blocking:false
 Display
-nativeMessageBoxFor:nil
+	nativeMessageBoxFor:nil
-text:'Hello world'
+	text:'Hello world'
-title:'Message'
+	title:'Message'
-flags:#( ABORTRETRYIGNORE ICONSTOP )
+	flags:#( ABORTRETRYIGNORE ICONSTOP )
-blocking:false
+	blocking:false
 "
 !
 nativeWarnOK:aString title:titleString
 ^ self
-nativeConfirm:aString
+	    nativeConfirm:aString
-title:titleString
+	    title:titleString
-flags:#( APPLMODAL ICONSTOP OK)
+	    flags:#( APPLMODAL ICONSTOP OK)
-initialAnswer:nil
+	    initialAnswer:nil
 "
 Screen current
-nativeWarnOK:'some warning' title:'Warning'
+	nativeWarnOK:'some warning' title:'Warning'
 "
 "Modified: / 02-03-2007 / 15:37:47 / cg"
 ! !
 "opens a native windows file dialog,
 supports unicode 16 strings (like windows does it for filenames)
 returns nil or the full path to the selected file
 see example at the end of the method code"
 |dialogTitle defaultBaseName defaultDirectory owningViewId windowGroup filterString null
 dataAddressAndThreadAddress dataAddress returnValue|
 dialogTitleArg notEmptyOrNil ifTrue:[
-dialogTitle := dialogTitleArg asUnicode16String.
+	dialogTitle := dialogTitleArg asUnicode16String.
 ].
 defaultFilenameArg notNil ifTrue:[
-|defaultFilename|
+	|defaultFilename|
-defaultFilename := defaultFilenameArg asFilename.
+	defaultFilename := defaultFilenameArg asFilename.
-defaultFilename isDirectory ifTrue:[
+	defaultFilename isDirectory ifTrue:[
-defaultDirectory := defaultFilename.
+	    defaultDirectory := defaultFilename.
-] ifFalse:[
+	] ifFalse:[
-defaultDirectory := defaultFilename directory.
+	    defaultDirectory := defaultFilename directory.
-defaultBaseName := defaultFilename baseName asUnicode16String.
+	    defaultBaseName := defaultFilename baseName asUnicode16String.
-].
+	].
-defaultDirectory := defaultDirectory pathName asUnicode16String.
+	defaultDirectory := defaultDirectory pathName asUnicode16String.
 ].
 owningTopView notNil ifTrue:[
-owningViewId := owningTopView id.
+	owningViewId := owningTopView id.
-windowGroup := owningTopView windowGroup.
+	windowGroup := owningTopView windowGroup.
 ].
 filterStringOrArrayOfPairs notEmptyOrNil ifTrue:[
-filterStringOrArrayOfPairs isString ifTrue:[
+	filterStringOrArrayOfPairs isString ifTrue:[
-filterString := filterStringOrArrayOfPairs.
+	    filterString := filterStringOrArrayOfPairs.
-] ifFalse:[
+	] ifFalse:[
-null := (Character codePoint:0) asString.
+	    null := (Character codePoint:0) asString.
-filterString := ((filterStringOrArrayOfPairs
+	    filterString := ((filterStringOrArrayOfPairs
-collect:[:eachPair |
+		collect:[:eachPair |
-eachPair first, null, eachPair second, null
+		    eachPair first, null, eachPair second, null
-])
+		])
-asStringWith:''), null.
+		    asStringWith:''), null.
-].
+	].
-filterString := filterString asUnicode16String.
+	filterString := filterString asUnicode16String.
 ].
 [
-dataAddressAndThreadAddress := self
+	dataAddressAndThreadAddress := self
-primNativeFileDialogWithTitle:dialogTitle
+	    primNativeFileDialogWithTitle:dialogTitle
-defaultBaseName:defaultBaseName
+	    defaultBaseName:defaultBaseName
-defaultDirectory:defaultDirectory
+	    defaultDirectory:defaultDirectory
-owningViewId:owningViewId
+	    owningViewId:owningViewId
-filterString:filterString
+	    filterString:filterString
-filterIndex:filterIndexArg ? 1
+	    filterIndex:filterIndexArg ? 1
-doSave:doSave
+	    doSave:doSave
-allowMultiSelect:false. "/ not yet implemented
+	    allowMultiSelect:false. "/ not yet implemented
-dataAddress := dataAddressAndThreadAddress first.
+	dataAddress := dataAddressAndThreadAddress first.
-[
+	[
-windowGroup notNil ifTrue:[
+	    windowGroup notNil ifTrue:[
-windowGroup sensor eventSemaphore waitWithTimeout:100 milliseconds.
+		windowGroup sensor eventSemaphore waitWithTimeout:100 milliseconds.
-"sr: we can process all events (also redraws),
+		"sr: we can process all events (also redraws),
-because the operating system handles the modal,
+		 because the operating system handles the modal,
-user events are blocked by operating system"
+		 user events are blocked by operating system"
-windowGroup processEvents.
+		windowGroup processEvents.
-] ifFalse:[
+	    ] ifFalse:[
-Delay waitForMilliseconds:100.
+		Delay waitForMilliseconds:100.
-].
+	    ].
-returnValue := self primGetNativeFileDialogResultByDataAddress:dataAddress.
+	    returnValue := self primGetNativeFileDialogResultByDataAddress:dataAddress.
-] doWhile:[
+	] doWhile:[
-returnValue isNil
+	    returnValue isNil
-].
+	].
 ] ensure:[
-(dataAddressAndThreadAddress notNil
+	(dataAddressAndThreadAddress notNil
-"/ if #returnValue is not nil, we already finished and did the memory free
+	"/ if #returnValue is not nil, we already finished and did the memory free
-and:[returnValue isNil]) ifTrue:[
+	and:[returnValue isNil]) ifTrue:[
-Display
+	    Display
-primCloseNativeFileDialogByDataAddress:dataAddressAndThreadAddress first
+		primCloseNativeFileDialogByDataAddress:dataAddressAndThreadAddress first
-threadHandleAddress:dataAddressAndThreadAddress second.
+		threadHandleAddress:dataAddressAndThreadAddress second.
-].
+	].
 ].
 returnValue isEmptyOrNil ifTrue:[
-^ nil
+	^ nil
 ].
 ^ returnValue
 "
 ########### example1 without owning view ##########
-|null|
+	|null|
-null := (Character codePoint:0) asString.
+	null := (Character codePoint:0) asString.
-Display
+	Display
-nativeFileDialogWithTitle:'Hello World'
+	    nativeFileDialogWithTitle:'Hello World'
-defaultFilename:'C:\users\sr\desktop'
+	    defaultFilename:'C:\users\sr\desktop'
-owningTopView:nil
+	    owningTopView:nil
-filter:
+	    filter:
-'expecco Testsuite', null, '*.ets', null,
+		'expecco Testsuite', null, '*.ets', null,
-'expecco Logfile', null, '*.elf', null,
+		'expecco Logfile', null, '*.elf', null,
-'All', null, '*.*', null,
+		'All', null, '*.*', null,
-null
+		null
-filterIndex:3
+	    filterIndex:3
-doSave:false.
+	    doSave:false.
 ########### example2 without owning view and termination ##########
-|null p|
+	|null p|
-null := (Character codePoint:0) asString.
+	null := (Character codePoint:0) asString.
-p :=
+	p :=
-[
+	    [
-Display
+		Display
-nativeFileDialogWithTitle:'Hello World'
+		    nativeFileDialogWithTitle:'Hello World'
-defaultFilename:'D:\sadasdsad'
+		    defaultFilename:'D:\sadasdsad'
-owningTopView:nil
+		    owningTopView:nil
-filter:
+		    filter:
-'expecco Testsuite', null, '*.ets', null,
+			'expecco Testsuite', null, '*.ets', null,
-'expecco Logfile', null, '*.elf', null,
+			'expecco Logfile', null, '*.elf', null,
-null
+			null
-filterIndex:2
+		    filterIndex:2
-doSave:false.
+		    doSave:false.
-] fork.
+	    ] fork.
-Delay waitForSeconds:5.
+	Delay waitForSeconds:5.
-p terminate.
+	p terminate.
 ########### example3 with owning view (makes the launcher modal) ##########
-|owningTopView|
+	|owningTopView|
-owningTopView := NewLauncher open window topView.
+	owningTopView := NewLauncher open window topView.
-Delay waitForSeconds:1.
+	Delay waitForSeconds:1.
-Display
+	Display
-nativeFileDialogWithTitle:'Hello World'
+	    nativeFileDialogWithTitle:'Hello World'
-defaultFilename:'D:\sadasdsad'
+	    defaultFilename:'D:\sadasdsad'
-owningTopView:owningTopView
+	    owningTopView:owningTopView
-filter:#(
+	    filter:#(
-#('expecco Testsuite' '*.ets')
+			#('expecco Testsuite' '*.ets')
-#('expecco Logfile' '*.elf')
+			#('expecco Logfile' '*.elf')
-)
+		    )
-filterIndex:2
+	    filterIndex:2
-doSave:false.
+	    doSave:false.
 ########### example4 with owning view (makes the launcher modal) and termination ##########
-|owningTopView p|
+	|owningTopView p|
-owningTopView := NewLauncher open window topView.
+	owningTopView := NewLauncher open window topView.
-Delay waitForSeconds:1.
+	Delay waitForSeconds:1.
-p :=
+	p :=
-[
+	    [
-Display
+		Display
-nativeFileDialogWithTitle:'Hello World'
+		    nativeFileDialogWithTitle:'Hello World'
-defaultFilename:'D:\sadasdsad'
+		    defaultFilename:'D:\sadasdsad'
-owningTopView:owningTopView
+		    owningTopView:owningTopView
-filter:#(
+		    filter:#(
-#('expecco Testsuite' '*.ets')
+			#('expecco Testsuite' '*.ets')
-#('expecco Logfile' '*.elf')
+			#('expecco Logfile' '*.elf')
-)
+		    )
-filterIndex:2
+		    filterIndex:2
-doSave:false.
+		    doSave:false.
-] fork.
+	    ] fork.
-Delay waitForSeconds:5.
+	Delay waitForSeconds:5.
-p terminate.
+	p terminate.
 "
 "Created: / 23-10-2018 / 09:58:25 / sr"
 "Modified (comment): / 23-10-2018 / 13:25:11 / sr"
 !
 "this method can cleanly close/destroy an open native file dialog.
 this is called as an ensure, when the native file dialog process gets terminated
 this is required because windows does not cleanup the dialog by itself when its thread gets terminated"
 %{  /* STACK: 100000 */
 if (__isExternalAddress(dataAddress)) {
-fileDialogData *pFdd = __externalAddressVal(dataAddress);
+	fileDialogData *pFdd = __externalAddressVal(dataAddress);
-DWORD fileDialogThreadId = pFdd->fileDialogThreadId;
+	DWORD fileDialogThreadId = pFdd->fileDialogThreadId;
-if (fileDialogThreadId != 0) {
+	if (fileDialogThreadId != 0) {
-EnumWindows(enumWindowsToFindAndDestroyFileDialogProc, fileDialogThreadId);
+	    EnumWindows(enumWindowsToFindAndDestroyFileDialogProc, fileDialogThreadId);
-}
+	}
-if (__isExternalAddress(threadHandleAddress)) {
+	if (__isExternalAddress(threadHandleAddress)) {
-HANDLE fileDialogThread = _HWNDVal(threadHandleAddress);
+	    HANDLE fileDialogThread = _HWNDVal(threadHandleAddress);
-TerminateThread(fileDialogThread, 0);
+	    TerminateThread(fileDialogThread, 0);
-CloseHandle(fileDialogThread);
+	    CloseHandle(fileDialogThread);
-};
+	};
-free(pFdd);
+	free(pFdd);
 }
 %}.
 "Created: / 22-10-2018 / 13:53:02 / sr"
 "Modified: / 22-10-2018 / 15:07:54 / sr"
 returns an empty string if the file dialog was canceled
 returns the full path to the user selected file"
 |targetFileOrNil multiSelectValues|
 %{  /* STACK: 100000 */
 if (__isExternalAddress(dataAddress)) {
-fileDialogData *pFdd = __externalAddressVal(dataAddress);
+	fileDialogData *pFdd = __externalAddressVal(dataAddress);
-if (pFdd->fileDialogDidReturn) {
+	if (pFdd->fileDialogDidReturn) {
-targetFileOrNil = __MKU16STRING(pFdd->filename);
+	    targetFileOrNil = __MKU16STRING(pFdd->filename);
-if ((!pFdd->trueForSave) && pFdd->trueForMultiSelect) {
+	    if ((!pFdd->trueForSave) && pFdd->trueForMultiSelect) {
-wchar_t buffer[1000 * MAX_PATH]; // big buffer to support multiselect
+		wchar_t buffer[1000 * MAX_PATH]; // big buffer to support multiselect
-ZeroMemory(buffer, sizeof(buffer));
+		int pos = wcslen(pFdd->filename);
+		BYTE *b = &pFdd->filename[pos + 1];
-int pos = wcslen(pFdd->filename);
-BYTE *b = &pFdd->filename[pos + 1];
+		ZeroMemory(buffer, sizeof(buffer));
-if ((*b + *(b + 1)) != 0) {
+		if ((*b + *(b + 1)) != 0) {
-multiSelectValues = __MKU16STRING(&pFdd->filename[pos + 1]);
+		    multiSelectValues = __MKU16STRING(&pFdd->filename[pos + 1]);
-}
+		}
-multiSelectValues = __MKU16STRING(buffer);
+		multiSelectValues = __MKU16STRING(buffer);
-/*
+#if 0
-do {
+		do {
-printf("pos: %d\n", pos);
+		    printf("pos: %d\n", pos);
-*b = &pFdd->filename[pos];
+		    *b = &pFdd->filename[pos];
-pos++;
+		    pos++;
-} while((*b + *(b + 1)) != 0);
+		} while((*b + *(b + 1)) != 0);
-wprintf(L"bytes next char '%d'\n", *b + *(b + 1));
+		wprintf(L"bytes next char '%d'\n", *b + *(b + 1));
-if (*b + *(b + 1))
+		if (*b + *(b + 1))
-wprintf(L"pos '%d'\n", pos);
+		wprintf(L"pos '%d'\n", pos);
-wchar_t buff[5];
+		wchar_t buff[5];
-wcsncpy(buff, &pFdd->filename[pos], 1);
+		wcsncpy(buff, &pFdd->filename[pos], 1);
-wprintf(L"char '%ls'\n", buff);
+		wprintf(L"char '%ls'\n", buff);
-BYTE *b;
+		BYTE *b;
-b = &pFdd->filename[pos];
+		b = &pFdd->filename[pos];
-wprintf(L"char byte1 '%d'\n", *b);
+		wprintf(L"char byte1 '%d'\n", *b);
-wprintf(L"char byte2 '%d'\n", *(b + 1));  */
+		wprintf(L"char byte2 '%d'\n", *(b + 1));
-}
+#endif
+	    }
-free(pFdd);
-}
+	    free(pFdd);
+	}
 }
 %}.
 ^ targetFileOrNil
 "/    targetFileOrNil isNil ifTrue:[
 "do not call this directly, use #nativeFileDialogWithTitle:..."
 |fileDialogDataAddress fileDialogThreadHandle|
 %{  /* STACK: 100000 */
 int i;
 fileDialogData *pFdd = malloc(sizeof(fileDialogData));
 ZeroMemory(pFdd, sizeof(fileDialogData));
 if (__isUnicode16String(defaultBaseName)) {
-for (i = 0; i < __unicode16StringSize(defaultBaseName); i++) {
+	for (i = 0; i < __unicode16StringSize(defaultBaseName); i++) {
-pFdd->filename[i] = __unicode16StringVal(defaultBaseName)[i];
+	    pFdd->filename[i] = __unicode16StringVal(defaultBaseName)[i];
-}
+	}
-pFdd->filename[i] = 0;
+	pFdd->filename[i] = 0;
 };
 if (__isUnicode16String(defaultDirectory)) {
-for (i = 0; i < __unicode16StringSize(defaultDirectory); i++) {
+	for (i = 0; i < __unicode16StringSize(defaultDirectory); i++) {
-pFdd->directory[i] = __unicode16StringVal(defaultDirectory)[i];
+	    pFdd->directory[i] = __unicode16StringVal(defaultDirectory)[i];
-}
+	}
-pFdd->directory[i] = 0;
+	pFdd->directory[i] = 0;
 };
 if (__isUnicode16String(dialogTitle)) {
-for (i = 0; i < __unicode16StringSize(dialogTitle); i++) {
+	for (i = 0; i < __unicode16StringSize(dialogTitle); i++) {
-pFdd->title[i] = __unicode16StringVal(dialogTitle)[i];
+	    pFdd->title[i] = __unicode16StringVal(dialogTitle)[i];
-}
+	}
-pFdd->title[i] = 0;
+	pFdd->title[i] = 0;
 };
 if (__isExternalAddress(owningViewId)) {
-pFdd->owningWindow = _HWNDVal(owningViewId);
+	pFdd->owningWindow = _HWNDVal(owningViewId);
 };
 if (__isUnicode16String(filterString)) {
-for (i = 0; i < __unicode16StringSize(filterString); i++) {
+	for (i = 0; i < __unicode16StringSize(filterString); i++) {
-pFdd->filter[i] = __unicode16StringVal(filterString)[i];
+	    pFdd->filter[i] = __unicode16StringVal(filterString)[i];
-}
+	}
-pFdd->filter[i] = 0;
+	pFdd->filter[i] = 0;
 };
 if (__isInteger(filterIndexArg)) {
-pFdd->filterIndex = __intVal(filterIndexArg);
+	pFdd->filterIndex = __intVal(filterIndexArg);
 }
 pFdd->trueForSave = doSave == true;
 pFdd->trueForMultiSelect = allowMultiSelectArg == true;
 pFdd->fileDialogDidReturn = FALSE;
 fileDialogDataAddress = __MKEXTERNALADDRESS(pFdd);
 fileDialogThreadHandle = __MKEXTERNALADDRESS(openFileDialogInNewThread(pFdd));
 %}.
 ^ Array
-with:fileDialogDataAddress
+	with:fileDialogDataAddress
-with:fileDialogThreadHandle
+	with:fileDialogThreadHandle
 "Created: / 23-10-2018 / 10:59:50 / sr"
 ! !
 !WinWorkstation methodsFor:'native widget support'!
 int modifiers = 0;
 int b1m = Button1Mask;
 int b3m = Button3Mask;
 if (GetSystemMetrics(SM_SWAPBUTTON)) {
-b3m = Button1Mask;
+	b3m = Button1Mask;
-b1m = Button3Mask;
+	b1m = Button3Mask;
 }
 if (GetAsyncKeyState(VK_LBUTTON) & 0x8000)
-modifiers |= b1m;
+	modifiers |= b1m;
 if (GetAsyncKeyState(VK_MBUTTON) & 0x8000)
-modifiers |= Button2Mask;
+	modifiers |= Button2Mask;
 if (GetAsyncKeyState(VK_RBUTTON) & 0x8000)
-modifiers |= b3m;
+	modifiers |= b3m;
 RETURN (__MKSMALLINT(modifiers));
 %}
 "
 %{  /* NOCONTEXT */
 POINT p;
 if (! GetCursorPos(&p)) {
-p.x = 0;
+	p.x = 0;
-p.y = 0;
+	p.y = 0;
 }
 RETURN (__MKPOINT_INT(p.x, p.y));
 %}
 !
 setPointerPosition:newPosition
 "change the pointer position in root-window coordinates."
 %{  /* NOCONTEXT */
 if (__isPoint(newPosition)) {
-OBJ xpos, ypos;
+	OBJ xpos, ypos;
-xpos = __point_X(newPosition);
+	xpos = __point_X(newPosition);
-ypos = __point_Y(newPosition);
+	ypos = __point_Y(newPosition);
-if (__bothSmallInteger(xpos, ypos)) {
+	if (__bothSmallInteger(xpos, ypos)) {
-SetCursorPos(__intVal(xpos), __intVal(ypos));
+	    SetCursorPos(__intVal(xpos), __intVal(ypos));
-}
+	}
 }
 %}
 !
 setPointerPosition:newPosition in:aWindowId
 in advance, since the Workstation is free to return whatever it thinks is a good padding."
 |error bytesPerLine bitmapPad bitsPerPixel|
 ((w <= 0) or:[h <= 0]) ifTrue:[
-^ self primitiveFailed:'zero width or height'.
+	^ self primitiveFailed:'zero width or height'.
 ].
 %{
 int     height, width;
 unsigned int numBytes;
 HWND    hWnd;
 HBITMAP hBitmap = 0;
 HGDIOBJ hPrevious = 0;
 HDC     bDC = 0;
 struct {
-BITMAPINFOHEADER bmiHeader;
+	BITMAPINFOHEADER bmiHeader;
-DWORD r;
+	DWORD r;
-DWORD g;
+	DWORD g;
-DWORD b;
+	DWORD b;
 } bitmap;
 if (! __isExternalAddress(aDrawableId)) {
-error = __MKSTRING("externalAddress arg");
+	error = __MKSTRING("externalAddress arg");
-goto out;
+	goto out;
 }
 if (! __bothSmallInteger(srcX, srcY)) {
-error = __MKSTRING("x,y args");
+	error = __MKSTRING("x,y args");
-goto out;
+	goto out;
 }
 if (! __bothSmallInteger(w, h)) {
-error = __MKSTRING("w,h args");
+	error = __MKSTRING("w,h args");
-goto out;
+	goto out;
 }
 if (! __isByteArray(imageBits)) {
-error = __MKSTRING("imageBits arg");
+	error = __MKSTRING("imageBits arg");
-goto out;
+	goto out;
 }
 {
-hWnd = _HWNDVal( aDrawableId );
+	hWnd = _HWNDVal( aDrawableId );
-BMDPRINTF(("primGetBits %x\n",hWnd));
+	BMDPRINTF(("primGetBits %x\n",hWnd));
-if ( hWnd != 0 ) {
+	if ( hWnd != 0 ) {
-HDC wDC;
+	    HDC wDC;
-HANDLE prevBitmap;
+	    HANDLE prevBitmap;
-int widthRoundedUpToNextMultipleOf4 = ((width + 3 ) / 4) * 4;
+	    int widthRoundedUpToNextMultipleOf4 = ((width + 3 ) / 4) * 4;
-int widthUsed;
+	    int widthUsed;
-bDC = CreateCompatibleDC(__rootDC);
+	    bDC = CreateCompatibleDC(__rootDC);
-BMDPRINTF(("primGetBits srcX %d srcY %d w %d h %d\n",__intVal(srcX),__intVal(srcY),__intVal(w),__intVal(h)));
+	    BMDPRINTF(("primGetBits srcX %d srcY %d w %d h %d\n",__intVal(srcX),__intVal(srcY),__intVal(w),__intVal(h)));
-height =  __intVal(h);
+	    height =  __intVal(h);
-width  =  __intVal(w);
+	    width  =  __intVal(w);
-widthUsed = widthRoundedUpToNextMultipleOf4;
+	    widthUsed = widthRoundedUpToNextMultipleOf4;
-widthUsed = width;
+	    widthUsed = width;
-BMDPRINTF(("width %d height %d\n",width,height));
+	    BMDPRINTF(("width %d height %d\n",width,height));
-hBitmap = CreateCompatibleBitmap(__rootDC, widthUsed, height);
+	    hBitmap = CreateCompatibleBitmap(__rootDC, widthUsed, height);
-if (!hBitmap) {
+	    if (!hBitmap) {
-error = __MKSTRING("CreateCompatibleBitmap failed");
+		error = __MKSTRING("CreateCompatibleBitmap failed");
-goto out;
+		goto out;
-}
+	    }
-bitmap.bmiHeader.biSize = sizeof(BITMAPINFOHEADER);
+	    bitmap.bmiHeader.biSize = sizeof(BITMAPINFOHEADER);
-bitmap.bmiHeader.biPlanes = 1;
+	    bitmap.bmiHeader.biPlanes = 1;
 #ifdef ALWAYSTRUECOLOR
-bitmap.bmiHeader.biCompression = BI_RGB;
+	    bitmap.bmiHeader.biCompression = BI_RGB;
-bytesPerRow = (((width*3) + 3 ) / 4) * 4;
+	    bytesPerRow = (((width*3) + 3 ) / 4) * 4;
 #else
-if (__depth == 24) {
+	    if (__depth == 24) {
-bitmap.bmiHeader.biCompression = BI_RGB;
+		bitmap.bmiHeader.biCompression = BI_RGB;
-bytesPerRow = (((width*3) + 3 ) / 4) * 4;
+		bytesPerRow = (((width*3) + 3 ) / 4) * 4;
-} else if (__depth == 16) {
+	    } else if (__depth == 16) {
 # if 0
-bitmap.bmiHeader.biCompression = BI_BITFIELDS;
+		bitmap.bmiHeader.biCompression = BI_BITFIELDS;
-bitmap.b = 0x001f;
+		bitmap.b = 0x001f;
-bitmap.g = 0x07e0;
+		bitmap.g = 0x07e0;
-bitmap.r = 0xf800;
+		bitmap.r = 0xf800;
-bytesPerRow = (((width*2) + 1 ) / 4) * 4;
+		bytesPerRow = (((width*2) + 1 ) / 4) * 4;
 # else
-bitmap.b = 0;
+		bitmap.b = 0;
-bitmap.g = 0;
+		bitmap.g = 0;
-bitmap.r = 0;
+		bitmap.r = 0;
-bitmap.bmiHeader.biCompression = BI_RGB;
+		bitmap.bmiHeader.biCompression = BI_RGB;
-bytesPerRow = (((width*3) + 3 ) / 4) * 4;
+		bytesPerRow = (((width*3) + 3 ) / 4) * 4;
 # endif
-}
+	    }
 #endif /* ALWAYSTRUECOLOR */
-bitmap.bmiHeader.biSizeImage = 0;
+	    bitmap.bmiHeader.biSizeImage = 0;
-bitmap.bmiHeader.biXPelsPerMeter = 0;
+	    bitmap.bmiHeader.biXPelsPerMeter = 0;
-bitmap.bmiHeader.biYPelsPerMeter = 0;
+	    bitmap.bmiHeader.biYPelsPerMeter = 0;
-bitmap.bmiHeader.biClrUsed = 0;
+	    bitmap.bmiHeader.biClrUsed = 0;
-bitmap.bmiHeader.biClrImportant = 0;
+	    bitmap.bmiHeader.biClrImportant = 0;
-bitmap.bmiHeader.biBitCount = __depth;
+	    bitmap.bmiHeader.biBitCount = __depth;
-bitmap.bmiHeader.biWidth = widthUsed;
+	    bitmap.bmiHeader.biWidth = widthUsed;
-bitmap.bmiHeader.biHeight = -height;
+	    bitmap.bmiHeader.biHeight = -height;
-wDC = GetDC(hWnd);
+	    wDC = GetDC(hWnd);
-hPrevious = SelectObject(bDC, hBitmap);
+	    hPrevious = SelectObject(bDC, hBitmap);
-if (BitBlt(bDC,
+	    if (BitBlt(bDC,
-0,0,
+		   0,0,
-width,height,
+		   width,height,
-wDC,
+		   wDC,
-__intVal(srcX), __intVal(srcY),
+		   __intVal(srcX), __intVal(srcY),
-SRCCOPY|CAPTUREBLT)
+		   SRCCOPY|CAPTUREBLT)
-== 0
+		 == 0
-)
+		)
-{
+	    {
-INFOFPRINTF((stderr, "WinWorkstation [warning]: in primGetBitsFrom: BitBlt\n"));
+		INFOFPRINTF((stderr, "WinWorkstation [warning]: in primGetBitsFrom: BitBlt\n"));
-}
+	    }
 #ifdef CACHE_LAST_DC
-if (lastGcData && (lastGcData->_hDC == wDC)) {
+	    if (lastGcData && (lastGcData->_hDC == wDC)) {
 # ifdef DEBUG_DC_REUSE
-console_fprintf(stderr, "WinWorkstation [info]: Oops - dont release - cachedDC reuse\n", __LINE__);
+		console_fprintf(stderr, "WinWorkstation [info]: Oops - dont release - cachedDC reuse\n", __LINE__);
 # endif
-} else
+	    } else
 #endif
-{
+	    {
 #ifdef CACHE_LAST_WM_PAINT_DC
-if (last_wm_paint_dc && (last_wm_paint_dc == wDC)) {
+		if (last_wm_paint_dc && (last_wm_paint_dc == wDC)) {
 # ifdef DEBUG_DC_REUSE
-console_fprintf(stderr, "WinWorkstation [info]: Oops - dont release - last_wm_paint_dc reuse\n", __LINE__);
+		    console_fprintf(stderr, "WinWorkstation [info]: Oops - dont release - last_wm_paint_dc reuse\n", __LINE__);
 # endif
-} else
+		} else
 #endif
-{
+		{
-ReleaseDC(hWnd, wDC);
+		    ReleaseDC(hWnd, wDC);
-}
+		}
-}
+	    }
-if (GetDIBits(bDC,hBitmap,0,height,0,(struct tagBITMAPINFO *)&bitmap,DIB_RGB_COLORS) == 0)
+	    if (GetDIBits(bDC,hBitmap,0,height,0,(struct tagBITMAPINFO *)&bitmap,DIB_RGB_COLORS) == 0)
-{
+	    {
-error = __MKSTRING("noinfo returned in primGetBits");
+		error = __MKSTRING("noinfo returned in primGetBits");
-goto out;
+		goto out;
-}
+	    }
-BMDPRINTF(("bitmap info:%d %d %d %d\n",
+	    BMDPRINTF(("bitmap info:%d %d %d %d\n",
-bitmap.bmiHeader.biWidth, bitmap.bmiHeader.biHeight,
+			bitmap.bmiHeader.biWidth, bitmap.bmiHeader.biHeight,
-bitmap.bmiHeader.biBitCount, bitmap.bmiHeader.biSizeImage));
+			bitmap.bmiHeader.biBitCount, bitmap.bmiHeader.biSizeImage));
-numBytes = bitmap.bmiHeader.biSizeImage;
+	    numBytes = bitmap.bmiHeader.biSizeImage;
-if ( numBytes != 0 ) {
+	    if ( numBytes != 0 ) {
-if (numBytes > __byteArraySize(imageBits)) {
+		if (numBytes > __byteArraySize(imageBits)) {
-/* imageBits too small */
+		    /* imageBits too small */
-INFOFPRINTF((stderr, "WinWorkstation [warning]: primGetBits - byteArray too small (is:%d need:%d; w:%d h:%d)\n",
+		    INFOFPRINTF((stderr, "WinWorkstation [warning]: primGetBits - byteArray too small (is:%d need:%d; w:%d h:%d)\n",
-__byteArraySize(imageBits), numBytes,
+				__byteArraySize(imageBits), numBytes,
-bitmap.bmiHeader.biWidth, -bitmap.bmiHeader.biHeight
+				bitmap.bmiHeader.biWidth, -bitmap.bmiHeader.biHeight
-));
+			     ));
-error = __MKSTRING("byteArray too small");
+		    error = __MKSTRING("byteArray too small");
-goto out;
+		    goto out;
-}
+		}
-BMDPRINTF(("numBytes %d\n",numBytes));
+		BMDPRINTF(("numBytes %d\n",numBytes));
-bitmap.bmiHeader.biHeight = -height;
+		bitmap.bmiHeader.biHeight = -height;
-if (GetDIBits(bDC,hBitmap,0,height,__ByteArrayInstPtr(imageBits)->ba_element,(struct tagBITMAPINFO *)&bitmap,DIB_RGB_COLORS) == 0)
+		if (GetDIBits(bDC,hBitmap,0,height,__ByteArrayInstPtr(imageBits)->ba_element,(struct tagBITMAPINFO *)&bitmap,DIB_RGB_COLORS) == 0)
-{
+		{
-error = __MKSTRING("zero bits returned in primGetBits");
+		    error = __MKSTRING("zero bits returned in primGetBits");
-goto out;
+		    goto out;
-}
+		}
-/* swap red and blue (windows delivers BGR) */
+		/* swap red and blue (windows delivers BGR) */
-{
+		{
-char *cp = __ByteArrayInstPtr(imageBits)->ba_element;
+		    char *cp = __ByteArrayInstPtr(imageBits)->ba_element;
-int _h;
+		    int _h;
-char *rowp = cp;
+		    char *rowp = cp;
-for (_h=height; _h>0; _h--) {
+		    for (_h=height; _h>0; _h--) {
-int _w;
+			int _w;
-char *pixel = rowp;
+			char *pixel = rowp;
-for (_w=width; _w>0; _w--) {
+			for (_w=width; _w>0; _w--) {
-char b;
+			    char b;
-b = pixel[0];
+			    b = pixel[0];
-pixel[0] = pixel[2];
+			    pixel[0] = pixel[2];
-pixel[2] = b;
+			    pixel[2] = b;
-pixel += 3;
+			    pixel += 3;
-};
+			};
-rowp += bytesPerRow;
+			rowp += bytesPerRow;
-};
+		    };
-}
+		}
-} else {
+	    } else {
-error = __MKSTRING("unacceptable bitmap in primGetBits");
+		error = __MKSTRING("unacceptable bitmap in primGetBits");
-goto out;
+		goto out;
-}
+	    }
-} else {
+	} else {
-error = __MKSTRING("unacceptable HWND in primGetBits");
+	    error = __MKSTRING("unacceptable HWND in primGetBits");
-goto out;
+	    goto out;
-}
+	}
-bytesPerLine = __MKSMALLINT(bytesPerRow);
+	bytesPerLine = __MKSMALLINT(bytesPerRow);
-bitmapPad = __MKSMALLINT(WIN32PADDING);
+	bitmapPad = __MKSMALLINT(WIN32PADDING);
-bitsPerPixel = __MKSMALLINT(bitmap.bmiHeader.biBitCount);
+	bitsPerPixel = __MKSMALLINT(bitmap.bmiHeader.biBitCount);
 }
 out:
 if ((hPrevious != NULL) && (bDC != NULL))
-SelectObject(bDC, hPrevious);
+	SelectObject(bDC, hPrevious);
 if (bDC)
-DeleteDC(bDC);
+	DeleteDC(bDC);
 if (hBitmap)
-_DeleteObject(hBitmap, __LINE__);
+	_DeleteObject(hBitmap, __LINE__);
 %}.
 error notNil ifTrue:[
-^ self primitiveFailed:error.
+	^ self primitiveFailed:error.
 ].
 ^ IdentityDictionary new
-at:#bitOrder put:#msbFirst;
+	    at:#bitOrder put:#msbFirst;
-at:#depth put:1;
+	    at:#depth put:1;
-at:#bytesPerLine put:bytesPerLine;
+	    at:#bytesPerLine put:bytesPerLine;
-at:#byteOrder put:#lsbFirst;
+	    at:#byteOrder put:#lsbFirst;
-at:#format put:#XYPixmap;
+	    at:#format put:#XYPixmap;
-at:#bitmapUnit put:0;
+	    at:#bitmapUnit put:0;
-at:#bitmapPad put:bitmapPad;
+	    at:#bitmapPad put:bitmapPad;
-at:#bitsPerPixel put:bitsPerPixel;
+	    at:#bitsPerPixel put:bitsPerPixel;
-at:#redMask put:16rFF0000;
+	    at:#redMask put:16rFF0000;
-at:#greenMask put:16r00FF00;
+	    at:#greenMask put:16r00FF00;
-at:#blueMask put:16r0000FF;
+	    at:#blueMask put:16r0000FF;
-yourself.
+	    yourself.
 "Modified (comment): / 28-03-2017 / 14:28:39 / stefan"
 !
 getBitsFromPixmapId:aDrawableId x:srcX y:srcY width:w height:h into:imageBits
 in advance, since the Workstation is free to return whatever it thinks is a good padding."
 |rawInfo error bytesPerLine format bitmapPad bitsPerPixel|
 ((w <= 0) or:[h <= 0]) ifTrue:[
-self primitiveFailed:'zero width or height'.
+	self primitiveFailed:'zero width or height'.
-^ nil
+	^ nil
 ].
 rawInfo := Array new:11.
 %{
 HBITMAP hBitmap = 0;
 HDC bDC = 0;
 HDC xDC = 0;
 struct
 {
-BITMAPINFOHEADER bmiHeader;
+	BITMAPINFOHEADER bmiHeader;
-DWORD rgb[2];
+	DWORD rgb[2];
 } bitmap;
 BITMAP bitmapInfo;
 if (__isExternalAddress(aDrawableId)
 && __bothSmallInteger(srcX, srcY)
 && __bothSmallInteger(w, h)
 && __isArray(rawInfo) && __arraySize(rawInfo) >= 11
 && __isByteArray(imageBits))
 {
-xBitmap = _HBITMAPVAL( aDrawableId );
+	xBitmap = _HBITMAPVAL( aDrawableId );
-BMDPRINTF(("primGetBitsFromPixmap %x\n",xBitmap));
+	BMDPRINTF(("primGetBitsFromPixmap %x\n",xBitmap));
-if (xBitmap != 0) {
+	if (xBitmap != 0) {
-xDC = GetDC(0);
+	    xDC = GetDC(0);
-SelectObject(xDC, xBitmap);
+	    SelectObject(xDC, xBitmap);
-GetObject(xBitmap,sizeof(bitmapInfo),&bitmapInfo);
+	    GetObject(xBitmap,sizeof(bitmapInfo),&bitmapInfo);
-bDC = CreateCompatibleDC(__rootDC);
+	    bDC = CreateCompatibleDC(__rootDC);
-BMDPRINTF(("srcX %d srcY %d w %d h %d\n",__intVal(srcX),__intVal(srcY),__intVal(w),__intVal(h)));
+	    BMDPRINTF(("srcX %d srcY %d w %d h %d\n",__intVal(srcX),__intVal(srcY),__intVal(w),__intVal(h)));
-height =  __intVal(h);
+	    height =  __intVal(h);
-width  =  __intVal(w);
+	    width  =  __intVal(w);
-BMDPRINTF(("width %d height %d\n",width,height));
+	    BMDPRINTF(("width %d height %d\n",width,height));
-hBitmap = CreateCompatibleBitmap(xDC, width, height);
+	    hBitmap = CreateCompatibleBitmap(xDC, width, height);
-if (!hBitmap) {
+	    if (!hBitmap) {
-error = __MKSTRING("create bitmap failed");
+		error = __MKSTRING("create bitmap failed");
-goto out;
+		goto out;
-}
+	    }
-SelectObject(bDC,hBitmap);
+	    SelectObject(bDC,hBitmap);
-if (BitBlt(bDC,
+	    if (BitBlt(bDC,
-0,0,
+		   0,0,
-width,height,
+		   width,height,
-xDC,
+		   xDC,
-__intVal(srcX), __intVal(srcY),
+		   __intVal(srcX), __intVal(srcY),
-SRCCOPY)
+		   SRCCOPY)
-== 0
+		 == 0
-)
+		)
-{
+	    {
-error = __MKSTRING("BitBlt failed");
+		error = __MKSTRING("BitBlt failed");
-goto out;
+		goto out;
-}
+	    }
-bitmap.bmiHeader.biSize = sizeof(BITMAPINFOHEADER);
+	    bitmap.bmiHeader.biSize = sizeof(BITMAPINFOHEADER);
-bitmap.bmiHeader.biPlanes = 1;
+	    bitmap.bmiHeader.biPlanes = 1;
 #ifdef ALWAYSTRUECOLOR
-bitmap.bmiHeader.biCompression = BI_RGB;
+	    bitmap.bmiHeader.biCompression = BI_RGB;
 #else
-if (__depth == 24) {
+	    if (__depth == 24) {
-/*bitmap.bmiHeader.biCompression = BI_BITFIELDS;
+		/*bitmap.bmiHeader.biCompression = BI_BITFIELDS;
-bitmap.r = 0xff0000;
+		bitmap.r = 0xff0000;
-bitmap.g = 0x00ff00;
+		bitmap.g = 0x00ff00;
-bitmap.b = 0x0000ff;*/
+		bitmap.b = 0x0000ff;*/
-bitmap.bmiHeader.biCompression = BI_RGB;
+		bitmap.bmiHeader.biCompression = BI_RGB;
-} else if (__depth == 16) {
+	    } else if (__depth == 16) {
-bitmap.b = 0x001f;
+		bitmap.b = 0x001f;
-bitmap.g = 0x07e0;
+		bitmap.g = 0x07e0;
-bitmap.r = 0xf800;*/
+		bitmap.r = 0xf800;*/
-bitmap.bmiHeader.biCompression = BI_RGB;
+		bitmap.bmiHeader.biCompression = BI_RGB;
-} else {
+	    } else {
-error = __MKSTRING("primGetBitsFromPixmap: unsupported depth");
+		error = __MKSTRING("primGetBitsFromPixmap: unsupported depth");
-got fail;
+		got fail;
-}
+	    }
 #endif /* ALWAYSTRUECOLOR */
-bitmap.bmiHeader.biSizeImage = 0;
+	    bitmap.bmiHeader.biSizeImage = 0;
-bitmap.bmiHeader.biXPelsPerMeter = 0;
+	    bitmap.bmiHeader.biXPelsPerMeter = 0;
-bitmap.bmiHeader.biYPelsPerMeter = 0;
+	    bitmap.bmiHeader.biYPelsPerMeter = 0;
-bitmap.bmiHeader.biClrUsed = 0;
+	    bitmap.bmiHeader.biClrUsed = 0;
-bitmap.bmiHeader.biClrImportant = 0;
+	    bitmap.bmiHeader.biClrImportant = 0;
-bitmap.bmiHeader.biWidth = width;
+	    bitmap.bmiHeader.biWidth = width;
-bitmap.bmiHeader.biHeight = -height;
+	    bitmap.bmiHeader.biHeight = -height;
-bitmap.bmiHeader.biBitCount = bitmapInfo.bmBitsPixel;
+	    bitmap.bmiHeader.biBitCount = bitmapInfo.bmBitsPixel;
-if (GetDIBits(bDC,hBitmap,0,height,0,(struct tagBITMAPINFO *)&bitmap,DIB_RGB_COLORS) == 0)
+	    if (GetDIBits(bDC,hBitmap,0,height,0,(struct tagBITMAPINFO *)&bitmap,DIB_RGB_COLORS) == 0)
-{
+	    {
-error = __MKSTRING("GetDIBits failed");
+		error = __MKSTRING("GetDIBits failed");
-goto out;
+		goto out;
-}
+	    }
-BMDPRINTF(("bitmap info:%d %d %d %d\n",bitmap.bmiHeader.biWidth,bitmap.bmiHeader.biHeight,bitmap.bmiHeader.biBitCount,bitmap.bmiHeader.biSizeImage));
+	    BMDPRINTF(("bitmap info:%d %d %d %d\n",bitmap.bmiHeader.biWidth,bitmap.bmiHeader.biHeight,bitmap.bmiHeader.biBitCount,bitmap.bmiHeader.biSizeImage));
-numBytes = bitmap.bmiHeader.biSizeImage;
+	    numBytes = bitmap.bmiHeader.biSizeImage;
-if ( numBytes != 0 ) {
+	    if ( numBytes != 0 ) {
-if (numBytes > __byteArraySize(imageBits)) {
+		if (numBytes > __byteArraySize(imageBits)) {
-/* imageBits too small */
+		    /* imageBits too small */
-error = __MKSTRING("provided byteArray too small");
+		    error = __MKSTRING("provided byteArray too small");
-goto out;
+		    goto out;
-}
+		}
-BMDPRINTF(("numBytes %d\n",numBytes));
+		BMDPRINTF(("numBytes %d\n",numBytes));
-bitmap.bmiHeader.biHeight = -height;
+		bitmap.bmiHeader.biHeight = -height;
-bitmap.bmiHeader.biBitCount = bitmapInfo.bmBitsPixel; /*__depth;*/
+		bitmap.bmiHeader.biBitCount = bitmapInfo.bmBitsPixel; /*__depth;*/
-bitmap.rgb[0] = 0;
+		bitmap.rgb[0] = 0;
-bitmap.rgb[1] = 0xffffff;
+		bitmap.rgb[1] = 0xffffff;
-if (GetDIBits(xDC,xBitmap,0,height,__ByteArrayInstPtr(imageBits)->ba_element,(struct tagBITMAPINFO *)&bitmap,DIB_RGB_COLORS) == 0)
+		if (GetDIBits(xDC,xBitmap,0,height,__ByteArrayInstPtr(imageBits)->ba_element,(struct tagBITMAPINFO *)&bitmap,DIB_RGB_COLORS) == 0)
-{
+		{
-BMDPRINTF(("zero bits returned\n"));
+		    BMDPRINTF(("zero bits returned\n"));
-error = __MKSTRING("zero bits returned");
+		    error = __MKSTRING("zero bits returned");
-goto out;
+		    goto out;
-}
+		}
 #if 0
-{
+		{
-/* swap red and blue (windows delivers BGR) */
+		    /* swap red and blue (windows delivers BGR) */
-char *cp = __ByteArrayInstPtr(imageBits)->ba_element;
+		    char *cp = __ByteArrayInstPtr(imageBits)->ba_element;
-int n = numBytes;
+		    int n = numBytes;
-for ( ;n > 0; n -= 3, cp += 3) {
+		    for ( ;n > 0; n -= 3, cp += 3) {
-char b = cp[0];
+			  char b = cp[0];
-cp[0] = cp[2];
+			  cp[0] = cp[2];
-cp[2] = b;
+			  cp[2] = b;
-}
+		    }
-}
+		}
 #endif
-} else {
+	    } else {
-error = __MKSTRING("unacceptable bitmap (size is 0 bytes)");
+		error = __MKSTRING("unacceptable bitmap (size is 0 bytes)");
-goto out;
+		goto out;
-}
+	    }
-} else {
+	} else {
-error = __MKSTRING("unacceptable bitmap (null xBitmap)");
+	    error = __MKSTRING("unacceptable bitmap (null xBitmap)");
-goto out;
+	    goto out;
-}
+	}
-bytesPerLine = __MKSMALLINT(numBytes/height);
+	bytesPerLine = __MKSMALLINT(numBytes/height);
-format = (bitmap.bmiHeader.biBitCount == 1) ? @symbol(ZPixmap) : @symbol(XYPixmap);
+	format = (bitmap.bmiHeader.biBitCount == 1) ? @symbol(ZPixmap) : @symbol(XYPixmap);
-bitmapPad = __MKSMALLINT(WIN32PADDING);
+	bitmapPad = __MKSMALLINT(WIN32PADDING);
-bitsPerPixel = __MKSMALLINT(bitmap.bmiHeader.biBitCount);
+	bitsPerPixel = __MKSMALLINT(bitmap.bmiHeader.biBitCount);
 }
 out:
 if (bDC)
-DeleteDC(bDC);
+	DeleteDC(bDC);
 if (xDC)
-ReleaseDC(0, xDC); //DeleteDC(xDC);
+	ReleaseDC(0, xDC); //DeleteDC(xDC);
 if (hBitmap)
-DeleteObject(hBitmap);
+	DeleteObject(hBitmap);
 %}.
 error notNil ifTrue:[
-self primitiveFailed:error.
+	self primitiveFailed:error.
 ].
 ^ IdentityDictionary new
-at:#bitOrder put:#msbFirst;
+	    at:#bitOrder put:#msbFirst;
-at:#depth put:1;
+	    at:#depth put:1;
-at:#bytesPerLine put:bytesPerLine;
+	    at:#bytesPerLine put:bytesPerLine;
-at:#byteOrder put:#lsbFirst;
+	    at:#byteOrder put:#lsbFirst;
-at:#format put:format;
+	    at:#format put:format;
-at:#bitmapUnit put:0;
+	    at:#bitmapUnit put:0;
-at:#bitmapPad put:bitmapPad;
+	    at:#bitmapPad put:bitmapPad;
-at:#bitsPerPixel put:bitsPerPixel;
+	    at:#bitsPerPixel put:bitsPerPixel;
-at:#redMask put:16rFF0000;
+	    at:#redMask put:16rFF0000;
-at:#greenMask put:16r00FF00;
+	    at:#greenMask put:16r00FF00;
-at:#blueMask put:16r0000FF;
+	    at:#blueMask put:16r0000FF;
-yourself.
+	    yourself.
 "Modified (comment): / 28-03-2017 / 14:28:46 / stefan"
 !
 getPixelX:px y:py from:ignoredDrawableId with:aGCId
 Nil is returned for invalid coordinates or if any other problem arises."
 %{  /* NOCONTEXT */
 if (__isExternalAddress(aGCId)
 && __bothSmallInteger(px, py)) {
-struct gcData *gcData = _GCDATA(aGCId);
+	struct gcData *gcData = _GCDATA(aGCId);
-HDC hDC;
+	HDC hDC;
-int __x = __intVal(px), __y = __intVal(py);
+	int __x = __intVal(px), __y = __intVal(py);
-int pixel;
+	int pixel;
-hDC = _getDC(gcData);
+	hDC = _getDC(gcData);
-pixel = GetPixel(hDC, __x, __y);
+	pixel = GetPixel(hDC, __x, __y);
 #ifndef CACHE_LAST_DC
-_releaseDC(gcData);
+	_releaseDC(gcData);
 #endif
-/*
+	/*
-* for compatibility, returns the pixelValue
+	 * for compatibility, returns the pixelValue
-* from a monochrome bitmap
+	 * from a monochrome bitmap
-*/
+	 */
-if (gcData->hBitmap) {
+	if (gcData->hBitmap) {
-if (gcData->bitmapColorBitCount == 1) {
+	    if (gcData->bitmapColorBitCount == 1) {
-pixel = (pixel == 0) ? 0 : 1;
+		pixel = (pixel == 0) ? 0 : 1;
-}
+	    }
-}
+	}
-RETURN ( __MKSMALLINT(pixel & 0xFFFFFF) );
+	RETURN ( __MKSMALLINT(pixel & 0xFFFFFF) );
 }
 %}.
 ^ nil
 ! !
 "/    aKey == #lightColor ifTrue:[
 "/        ^ Color white
 "/    ].
 aKey == #viewBackgroundColor ifTrue:[
-clr := self getSystemColor:#COLOR_WINDOW.
+	clr := self getSystemColor:#COLOR_WINDOW.
 ].
 aKey == #textForegroundColor ifTrue:[
-clr := self getSystemColor:#COLOR_WINDOWTEXT
+	clr := self getSystemColor:#COLOR_WINDOWTEXT
 ].
 "/    aKey == #scrollerViewBackgroundColor ifTrue:[
 "/        ^ Color white
 ! !
 !WinWorkstation methodsFor:'tray access'!
 addTrayIconFor:aView
-icon:wicon iconMask:wiconMaskArg
+	icon:wicon iconMask:wiconMaskArg
-toolTipMessage:toolTipMessageArg
+	toolTipMessage:toolTipMessageArg
 "add an icon to the tray for aView (which will receive tray-events in the future.
 The icon, mask and toolTopText are optional.
 Windows places a limit of 63 characters to the tooltip - so dont be to chatty here..."
 |windowId wiconId wiconMask invertedWiconMask wiconMaskId
 wiconWidth wiconHeight toolTipMessage|
 "/ the toolTop string cannot be longer than 64 characters including the NULL terminator
 toolTipMessageArg size > 63 ifTrue:[
-toolTipMessage := toolTipMessageArg copyTo:63
+	toolTipMessage := toolTipMessageArg copyTo:63
 ] ifFalse:[
-toolTipMessage := toolTipMessageArg.
+	toolTipMessage := toolTipMessageArg.
 ].
 windowId := aView id.
 wicon notNil ifTrue:[
-wiconId := (wicon asFormOn:self) id.
+	wiconId := (wicon asFormOn:self) id.
-wiconHeight := wicon height.
+	wiconHeight := wicon height.
-wiconWidth  := wicon width.
+	wiconWidth  := wicon width.
-wiconMask := wiconMaskArg.
+	wiconMask := wiconMaskArg.
-wiconMask isNil ifTrue:[
+	wiconMask isNil ifTrue:[
-wiconMask := wicon mask.
+	    wiconMask := wicon mask.
-].
+	].
-wiconMask notNil ifTrue:[
+	wiconMask notNil ifTrue:[
-"/ WIN32's mask has zeros for opaque pixels
+	    "/ WIN32's mask has zeros for opaque pixels
-invertedWiconMask := wiconMask copy.
+	    invertedWiconMask := wiconMask copy.
-invertedWiconMask bits invert.
+	    invertedWiconMask bits invert.
-invertedWiconMask := invertedWiconMask onDevice:self.
+	    invertedWiconMask := invertedWiconMask onDevice:self.
-wiconMaskId := invertedWiconMask id
+	    wiconMaskId := invertedWiconMask id
-].
+	].
 ].
 %{  /* STACK: 20000 */
 #ifndef WM_TRAY_MESSAGE
 # define WM_TRAY_MESSAGE (WM_USER+0x200)
 NOTIFYICONDATA nid;
 unsigned char fastBits[10000];
 /* get bitmap for icon */
 if ( __isExternalAddress(wiconId) ) {
-xBitMap = _HBITMAPVAL( wiconId );
+	xBitMap = _HBITMAPVAL( wiconId );
-if ( xBitMap != 0 ) {
+	if ( xBitMap != 0 ) {
-BITMAP bm;
+	    BITMAP bm;
-if (GetObject(xBitMap, sizeof(bm), (LPSTR)&bm)) {
+	    if (GetObject(xBitMap, sizeof(bm), (LPSTR)&bm)) {
-int d = bm.bmPlanes * bm.bmBitsPixel;
+		int d = bm.bmPlanes * bm.bmBitsPixel;
-BYTE *ep;
+		BYTE *ep;
-int height, width;
+		int height, width;
-int nBytes;
+		int nBytes;
-unsigned char *allocatedBits = 0;
+		unsigned char *allocatedBits = 0;
-int privateMask = 0;
+		int privateMask = 0;
-if ( __isExternalAddress(wiconMaskId) ) {
+		if ( __isExternalAddress(wiconMaskId) ) {
-maskBitmap = _HBITMAPVAL( wiconMaskId );
+		    maskBitmap = _HBITMAPVAL( wiconMaskId );
-} else {
+		} else {
-if (wiconMaskId != nil) {
+		    if (wiconMaskId != nil) {
-PRINTF(("WinWorkstat [warning]: wiconMaskId is not an external address\n"));
+			PRINTF(("WinWorkstat [warning]: wiconMaskId is not an external address\n"));
-}
+		    }
-maskBitmap = 0;
+		    maskBitmap = 0;
-}
+		}
-/*
+		/*
-* if there is no mask, generate one
+		 * if there is no mask, generate one
-*/
+		 */
-if (maskBitmap == 0) {
+		if (maskBitmap == 0) {
-DPRINTF(("Bitmap w:%d h:%d p:%d d:%d\n",bm.bmWidth,bm.bmHeight,bm.bmPlanes,bm.bmBitsPixel));
+		    DPRINTF(("Bitmap w:%d h:%d p:%d d:%d\n",bm.bmWidth,bm.bmHeight,bm.bmPlanes,bm.bmBitsPixel));
-height = __intVal( wiconHeight );
+		    height = __intVal( wiconHeight );
-width  = __intVal( wiconWidth  );
+		    width  = __intVal( wiconWidth  );
-nBytes = ( width + 15 ) / 8;
+		    nBytes = ( width + 15 ) / 8;
-nBytes = height * nBytes;
+		    nBytes = height * nBytes;
-if (nBytes < sizeof(fastBits)) {
+		    if (nBytes < sizeof(fastBits)) {
-ep = fastBits;
+			ep = fastBits;
-} else {
+		    } else {
-ep = allocatedBits = (unsigned char *) malloc(nBytes);
+			ep = allocatedBits = (unsigned char *) malloc(nBytes);
-}
+		    }
-if ( ep == 0 ) {
+		    if ( ep == 0 ) {
-PRINTF(( "WinWorkstat [warning]: malloc failed\n" ));
+			PRINTF(( "WinWorkstat [warning]: malloc failed\n" ));
-} else {
+		    } else {
-memset(ep, 0, nBytes);
+			memset(ep, 0, nBytes);
-maskBitmap = CreateBitmap(width, height, 1, 1, ep );
+			maskBitmap = CreateBitmap(width, height, 1, 1, ep );
-if ( maskBitmap == NULL ) {
+			if ( maskBitmap == NULL ) {
-PRINTF(( "WinWorkstat [warning]: mask CREATION failed\n" ));
+			    PRINTF(( "WinWorkstat [warning]: mask CREATION failed\n" ));
-} else {
+			} else {
-privateMask = 1;
+			    privateMask = 1;
-}
+			}
-}
+		    }
-}
+		}
-if ( maskBitmap != NULL ) {
+		if ( maskBitmap != NULL ) {
-DPRINTF(( "BITMAP mask CREATED!!!\n" ));
+		    DPRINTF(( "BITMAP mask CREATED!!!\n" ));
-iconInfo.fIcon = TRUE;
+		    iconInfo.fIcon = TRUE;
-iconInfo.hbmMask  = maskBitmap;
+		    iconInfo.hbmMask  = maskBitmap;
-iconInfo.hbmColor = xBitMap;
+		    iconInfo.hbmColor = xBitMap;
-xIcon = CreateIconIndirect( &iconInfo );
+		    xIcon = CreateIconIndirect( &iconInfo );
-if (privateMask) {
+		    if (privateMask) {
-DeleteObject( maskBitmap );
+			DeleteObject( maskBitmap );
-}
+		    }
-} else {
+		} else {
-PRINTF(( "WinWorkstat [warning]: no mask for icon !\n" ));
+		    PRINTF(( "WinWorkstat [warning]: no mask for icon !\n" ));
-}
+		}
-if (allocatedBits) {
+		if (allocatedBits) {
-free(allocatedBits);
+		    free(allocatedBits);
-}
+		}
-}
+	    }
-} else {
+	} else {
-DPRINTF(("WinWorkstat [warning]: xBitMap is zero \n" ));
+	    DPRINTF(("WinWorkstat [warning]: xBitMap is zero \n" ));
-}
+	}
 } else {
-if (wiconId != nil) {
+	if (wiconId != nil) {
-PRINTF(("WinWorkstat [warning]: wiconId is not an external address\n"));
+	    PRINTF(("WinWorkstat [warning]: wiconId is not an external address\n"));
-}
+	}
 }
 ZeroMemory(&nid, sizeof(NOTIFYICONDATA));
 nid.cbSize = sizeof(NOTIFYICONDATA);
 if (__isExternalAddress(windowId)) {
-HWND hwnd = _HWNDVal(windowId);
+	HWND hwnd = _HWNDVal(windowId);
-if (hwnd && IsWindow(hwnd)) {
+	if (hwnd && IsWindow(hwnd)) {
-nid.hWnd = hwnd; //the hWnd and uID members allow the OS to uniquely identify your icon.
+	    nid.hWnd = hwnd; //the hWnd and uID members allow the OS to uniquely identify your icon.
-// One window (the hWnd) can have more than one icon, as long as they have unique uIDs.
+			     // One window (the hWnd) can have more than one icon, as long as they have unique uIDs.
-nid.uFlags =
+	    nid.uFlags =
-NIF_ICON        //we're adding an icon
+		NIF_ICON        //we're adding an icon
-| NIF_MESSAGE   //we want the tray to send a message to the window identified by hWnd when something happens to our icon (see uCallbackMesage member below).
+		| NIF_MESSAGE   //we want the tray to send a message to the window identified by hWnd when something happens to our icon (see uCallbackMesage member below).
-| NIF_TIP;      //our icon has a tooltip.
+		| NIF_TIP;      //our icon has a tooltip.
-nid.uCallbackMessage = WM_TRAY_MESSAGE; //this message must be handled in hwnd's window procedure. more info below.
+	    nid.uCallbackMessage = WM_TRAY_MESSAGE; //this message must be handled in hwnd's window procedure. more info below.
-if (xIcon) {
+	    if (xIcon) {
-nid.hIcon   = xIcon;
+		nid.hIcon   = xIcon;
-/* wc.hIconSm = wiconId; In 4.x there are large and small icons */
+		/* wc.hIconSm = wiconId; In 4.x there are large and small icons */
-} else {
+	    } else {
-nid.hIcon = NULL;        /* THIS MUST BE NULL TO DELETE ICONS */
+		nid.hIcon = NULL;        /* THIS MUST BE NULL TO DELETE ICONS */
-}
+	    }
-if (__isStringLike(toolTipMessage)) {
+	    if (__isStringLike(toolTipMessage)) {
-strcpy(nid.szTip, __stringVal(toolTipMessage));
+		strcpy(nid.szTip, __stringVal(toolTipMessage));
-}
+	    }
-Shell_NotifyIcon(NIM_ADD, &nid);
+	    Shell_NotifyIcon(NIM_ADD, &nid);
-}
+	}
 }
 %}
 "
 |v icon|
 v := StandardSystemView new.
 v openAndWait.
 icon := Icon stxIcon.
 Screen current
-addTrayIconFor:v
+	  addTrayIconFor:v
-icon:icon iconMask:nil
+	  icon:icon iconMask:nil
-toolTipMessage:'Hi There'
+	  toolTipMessage:'Hi There'
 "
 "Created: / 31-10-2007 / 01:51:49 / cg"
 "Modified: / 05-11-2007 / 12:18:54 / cg"
 !
 ZeroMemory(&nid, sizeof(NOTIFYICONDATA));
 nid.cbSize = sizeof(NOTIFYICONDATA);
 if (__isExternalAddress(windowId)) {
-HWND hwnd = _HWNDVal(windowId);
+	HWND hwnd = _HWNDVal(windowId);
-if (hwnd && IsWindow(hwnd)) {
+	if (hwnd && IsWindow(hwnd)) {
-nid.hWnd = hwnd;
+	    nid.hWnd = hwnd;
-Shell_NotifyIcon(NIM_DELETE, &nid);
+	    Shell_NotifyIcon(NIM_DELETE, &nid);
-}
+	}
 }
 %}
 "
 |v icon|
 v := StandardSystemView new.
 v openAndWait.
 icon := Icon stxIcon.
 Screen current
-addTrayIconFor:v
+	  addTrayIconFor:v
-icon:icon iconMask:nil
+	  icon:icon iconMask:nil
-toolTipMessage:'Hi There'.
+	  toolTipMessage:'Hi There'.
 Delay waitForSeconds:3.
 icon := Tools::NewSystemBrowser defaultIcon.
 Screen current
-setTrayIconFor:v
+	  setTrayIconFor:v
-icon:icon iconMask:nil.
+	  icon:icon iconMask:nil.
 Delay waitForSeconds:3.
 Screen current
-removeTrayIconFor:v.
+	    removeTrayIconFor:v.
 "
 "Created: / 05-11-2007 / 12:17:17 / cg"
 !
 wiconWidth wiconHeight|
 windowId := aView id.
 wicon notNil ifTrue:[
-wiconId := (wicon asFormOn:self) id.
+	wiconId := (wicon asFormOn:self) id.
-wiconHeight := wicon height.
+	wiconHeight := wicon height.
-wiconWidth  := wicon width.
+	wiconWidth  := wicon width.
-wiconMask := wiconMaskArg.
+	wiconMask := wiconMaskArg.
-wiconMask isNil ifTrue:[
+	wiconMask isNil ifTrue:[
-wiconMask := wicon mask.
+	    wiconMask := wicon mask.
-].
+	].
-wiconMask notNil ifTrue:[
+	wiconMask notNil ifTrue:[
-"/ WIN32's mask has zeros for opaque pixels
+	    "/ WIN32's mask has zeros for opaque pixels
-invertedWiconMask := wiconMask copy.
+	    invertedWiconMask := wiconMask copy.
-invertedWiconMask bits invert.
+	    invertedWiconMask bits invert.
-invertedWiconMask := invertedWiconMask onDevice:self.
+	    invertedWiconMask := invertedWiconMask onDevice:self.
-wiconMaskId := invertedWiconMask id
+	    wiconMaskId := invertedWiconMask id
-].
+	].
 ].
 %{  /* STACK: 20000 */
 #ifndef WM_TRAY_MESSAGE
 # define WM_TRAY_MESSAGE (WM_USER+0x200)
 NOTIFYICONDATA nid;
 unsigned char fastBits[10000];
 /* get bitmap for icon */
 if ( __isExternalAddress(wiconId) ) {
-xBitMap = _HBITMAPVAL( wiconId );
+	xBitMap = _HBITMAPVAL( wiconId );
-if ( xBitMap != 0 ) {
+	if ( xBitMap != 0 ) {
-BITMAP bm;
+	    BITMAP bm;
-if (GetObject(xBitMap, sizeof(bm), (LPSTR)&bm)) {
+	    if (GetObject(xBitMap, sizeof(bm), (LPSTR)&bm)) {
-int d = bm.bmPlanes * bm.bmBitsPixel;
+		int d = bm.bmPlanes * bm.bmBitsPixel;
-BYTE *ep;
+		BYTE *ep;
-int height, width;
+		int height, width;
-int nBytes;
+		int nBytes;
-unsigned char *allocatedBits = 0;
+		unsigned char *allocatedBits = 0;
-int privateMask = 0;
+		int privateMask = 0;
-if ( __isExternalAddress(wiconMaskId) ) {
+		if ( __isExternalAddress(wiconMaskId) ) {
-maskBitmap = _HBITMAPVAL( wiconMaskId );
+		    maskBitmap = _HBITMAPVAL( wiconMaskId );
-} else {
+		} else {
-if (wiconMaskId != nil) {
+		    if (wiconMaskId != nil) {
-PRINTF(("WinWorkstat [warning]: wiconMaskId is not an external address\n"));
+			PRINTF(("WinWorkstat [warning]: wiconMaskId is not an external address\n"));
-}
+		    }
-maskBitmap = 0;
+		    maskBitmap = 0;
-}
+		}
-/*
+		/*
-* if there is no mask, generate one
+		 * if there is no mask, generate one
-*/
+		 */
-if (maskBitmap == 0) {
+		if (maskBitmap == 0) {
-DPRINTF(("Bitmap w:%d h:%d p:%d d:%d\n",bm.bmWidth,bm.bmHeight,bm.bmPlanes,bm.bmBitsPixel));
+		    DPRINTF(("Bitmap w:%d h:%d p:%d d:%d\n",bm.bmWidth,bm.bmHeight,bm.bmPlanes,bm.bmBitsPixel));
-height = __intVal( wiconHeight );
+		    height = __intVal( wiconHeight );
-width  = __intVal( wiconWidth  );
+		    width  = __intVal( wiconWidth  );
-nBytes = ( width + 15 ) / 8;
+		    nBytes = ( width + 15 ) / 8;
-nBytes = height * nBytes;
+		    nBytes = height * nBytes;
-if (nBytes < sizeof(fastBits)) {
+		    if (nBytes < sizeof(fastBits)) {
-ep = fastBits;
+			ep = fastBits;
-} else {
+		    } else {
-ep = allocatedBits = (unsigned char *) malloc(nBytes);
+			ep = allocatedBits = (unsigned char *) malloc(nBytes);
-}
+		    }
-if ( ep == 0 ) {
+		    if ( ep == 0 ) {
-PRINTF(( "WinWorkstat [warning]: malloc failed\n" ));
+			PRINTF(( "WinWorkstat [warning]: malloc failed\n" ));
-} else {
+		    } else {
-memset(ep, 0, nBytes);
+			memset(ep, 0, nBytes);
-maskBitmap = CreateBitmap(width, height, 1, 1, ep );
+			maskBitmap = CreateBitmap(width, height, 1, 1, ep );
-if ( maskBitmap == NULL ) {
+			if ( maskBitmap == NULL ) {
-PRINTF(( "WinWorkstat [warning]: mask CREATION failed\n" ));
+			    PRINTF(( "WinWorkstat [warning]: mask CREATION failed\n" ));
-} else {
+			} else {
-privateMask = 1;
+			    privateMask = 1;
-}
+			}
-}
+		    }
-}
+		}
-if ( maskBitmap != NULL ) {
+		if ( maskBitmap != NULL ) {
-DPRINTF(( "BITMAP mask CREATED!!!\n" ));
+		    DPRINTF(( "BITMAP mask CREATED!!!\n" ));
-iconInfo.fIcon = TRUE;
+		    iconInfo.fIcon = TRUE;
-iconInfo.hbmMask  = maskBitmap;
+		    iconInfo.hbmMask  = maskBitmap;
-iconInfo.hbmColor = xBitMap;
+		    iconInfo.hbmColor = xBitMap;
-xIcon = CreateIconIndirect( &iconInfo );
+		    xIcon = CreateIconIndirect( &iconInfo );
-if (privateMask) {
+		    if (privateMask) {
-DeleteObject( maskBitmap );
+			DeleteObject( maskBitmap );
-}
+		    }
-} else {
+		} else {
-PRINTF(( "WinWorkstat [warning]: no mask for icon !\n" ));
+		    PRINTF(( "WinWorkstat [warning]: no mask for icon !\n" ));
-}
+		}
-if (allocatedBits) {
+		if (allocatedBits) {
-free(allocatedBits);
+		    free(allocatedBits);
-}
+		}
-}
+	    }
-} else {
+	} else {
-DPRINTF(("WinWorkstat [warning]: xBitMap is zero \n" ));
+	    DPRINTF(("WinWorkstat [warning]: xBitMap is zero \n" ));
-}
+	}
 } else {
-if (wiconId != nil) {
+	if (wiconId != nil) {
-PRINTF(("WinWorkstat [warning]: wiconId is not an external address\n"));
+	    PRINTF(("WinWorkstat [warning]: wiconId is not an external address\n"));
-}
+	}
 }
 ZeroMemory(&nid, sizeof(NOTIFYICONDATA));
 nid.cbSize = sizeof(NOTIFYICONDATA);
 if (__isExternalAddress(windowId)) {
-HWND hwnd = _HWNDVal(windowId);
+	HWND hwnd = _HWNDVal(windowId);
-if (hwnd && IsWindow(hwnd)) {
+	if (hwnd && IsWindow(hwnd)) {
-nid.hWnd = hwnd; //the hWnd and uID members allow the OS to uniquely identify your icon.
+	    nid.hWnd = hwnd; //the hWnd and uID members allow the OS to uniquely identify your icon.
-// One window (the hWnd) can have more than one icon, as long as they have unique uIDs.
+			     // One window (the hWnd) can have more than one icon, as long as they have unique uIDs.
-nid.uFlags = NIF_ICON;      //our icon has a tooltip.
+	    nid.uFlags = NIF_ICON;      //our icon has a tooltip.
-if (xIcon) {
+	    if (xIcon) {
-nid.hIcon   = xIcon;
+		nid.hIcon   = xIcon;
-/* wc.hIconSm = wiconId; In 4.x there are large and small icons */
+		/* wc.hIconSm = wiconId; In 4.x there are large and small icons */
-} else {
+	    } else {
-nid.hIcon = NULL;        /* THIS MUST BE NULL TO DELETE ICONS */
+		nid.hIcon = NULL;        /* THIS MUST BE NULL TO DELETE ICONS */
-}
+	    }
-Shell_NotifyIcon(NIM_MODIFY, &nid);
+	    Shell_NotifyIcon(NIM_MODIFY, &nid);
-}
+	}
 }
 %}
 "
 |v icon|
 v := StandardSystemView new.
 v openAndWait.
 icon := Icon stxIcon.
 Screen current
-addTrayIconFor:v
+	  addTrayIconFor:v
-icon:icon iconMask:nil
+	  icon:icon iconMask:nil
-toolTipMessage:'Hi There'.
+	  toolTipMessage:'Hi There'.
 Delay waitForSeconds:3.
 icon := Tools::NewSystemBrowser defaultIcon.
 Screen current
-setTrayIconFor:v
+	  setTrayIconFor:v
-icon:icon iconMask:nil.
+	  icon:icon iconMask:nil.
 "
 "Created: / 31-10-2007 / 11:41:33 / cg"
 "Modified: / 05-11-2007 / 12:19:12 / cg"
 |windowId wiconId wiconMask invertedWiconMask wiconMaskId
 wiconWidth wiconHeight toolTipMessage|
 "/ the toolTop string cannot be longer than 64 characters including the NULL terminator
 toolTipMessageArg size > 63 ifTrue:[
-toolTipMessage := toolTipMessageArg copyTo:63
+	toolTipMessage := toolTipMessageArg copyTo:63
 ] ifFalse:[
-toolTipMessage := toolTipMessageArg.
+	toolTipMessage := toolTipMessageArg.
 ].
 windowId := aView id.
 %{  /* STACK: 20000 */
 ZeroMemory(&nid, sizeof(NOTIFYICONDATA));
 nid.cbSize = sizeof(NOTIFYICONDATA);
 if (__isExternalAddress(windowId)) {
-HWND hwnd = _HWNDVal(windowId);
+	HWND hwnd = _HWNDVal(windowId);
-if (hwnd && IsWindow(hwnd)) {
+	if (hwnd && IsWindow(hwnd)) {
-nid.hWnd = hwnd; //the hWnd and uID members allow the OS to uniquely identify your icon.
+	    nid.hWnd = hwnd; //the hWnd and uID members allow the OS to uniquely identify your icon.
-// One window (the hWnd) can have more than one icon, as long as they have unique uIDs.
+			     // One window (the hWnd) can have more than one icon, as long as they have unique uIDs.
-nid.uFlags = NIF_TIP;    //change the tooltip.
+	    nid.uFlags = NIF_TIP;    //change the tooltip.
-if (__isStringLike(toolTipMessage)) {
+	    if (__isStringLike(toolTipMessage)) {
-strcpy(nid.szTip, __stringVal(toolTipMessage));
+		strcpy(nid.szTip, __stringVal(toolTipMessage));
-}
+	    }
-Shell_NotifyIcon(NIM_MODIFY, &nid);
+	    Shell_NotifyIcon(NIM_MODIFY, &nid);
-}
+	}
 }
 %}
 "
 |v icon|
 v := StandardSystemView new.
 v openAndWait.
 icon := Icon stxIcon.
 Screen current
-addTrayIconFor:v
+	  addTrayIconFor:v
-icon:icon iconMask:nil
+	  icon:icon iconMask:nil
-toolTipMessage:'Hi There'.
+	  toolTipMessage:'Hi There'.
 1 to:5 do:[:i |
-Delay waitForSeconds:2.
+	 Delay waitForSeconds:2.
-Screen current
+	 Screen current
-setTrayIconsToolTipMessageFor:v
+	      setTrayIconsToolTipMessageFor:v
-to:(i printString).
+	      to:(i printString).
 ].
 v destroy.
 "
 "Created: / 31-10-2007 / 11:25:49 / cg"
 activateWindow1:aWindowId
 "make a window active (so that it gets the focus)"
 %{  /* NOCONTEXT */
 if (__isExternalAddress(aWindowId)) {
-HWND win = _HWNDVal(aWindowId);
+	HWND win = _HWNDVal(aWindowId);
-if (win) {
+	if (win) {
-CPRINTF(("activateWindow %x\n",win));
+	    CPRINTF(("activateWindow %x\n",win));
 #if 0
-ShowWindowAsync(win, SW_SHOW);
+	    ShowWindowAsync(win, SW_SHOW);
 #else
-ShowWindow(win, SW_SHOW);
+	    ShowWindow(win, SW_SHOW);
 #endif
-}
+	}
 }
 %}
 !
 activateWindow2:aWindowId
 "make a window active (so that it gets the focus).
 Paranoid implementation."
 %{  /* NOCONTEXT */
 if (__isExternalAddress(aWindowId)) {
-HWND win = _HWNDVal(aWindowId);
+	HWND win = _HWNDVal(aWindowId);
-if (win) {
+	if (win) {
-DWORD activeThreadID, activeProcessID;
+	    DWORD activeThreadID, activeProcessID;
-DWORD myThreadID;
+	    DWORD myThreadID;
-HWND foregroundWindow = GetForegroundWindow();
+	    HWND foregroundWindow = GetForegroundWindow();
-if (foregroundWindow) {
+	    if (foregroundWindow) {
-activeThreadID = GetWindowThreadProcessId(foregroundWindow, &activeProcessID);
+		activeThreadID = GetWindowThreadProcessId(foregroundWindow, &activeProcessID);
-myThreadID = GetCurrentThreadId();
+		myThreadID = GetCurrentThreadId();
-AttachThreadInput(activeThreadID, myThreadID, TRUE);
+		AttachThreadInput(activeThreadID, myThreadID, TRUE);
-}
+	    }
-// Do our stuff here ;-)
+	    // Do our stuff here ;-)
-ShowWindow(win, SW_SHOW);
+	    ShowWindow(win, SW_SHOW);
-SetForegroundWindow(win);
+	    SetForegroundWindow(win);
-SetFocus(win);
+	    SetFocus(win);
-if (foregroundWindow) {
+	    if (foregroundWindow) {
-AttachThreadInput(activeThreadID, myThreadID, FALSE);
+		AttachThreadInput(activeThreadID, myThreadID, FALSE);
-}
+	    }
-}
+	}
 }
 %}
 !
 activateWindow:aWindowId
 !
 animateWindow:aWindowId show:doShow animation:animationSymbolorNil time:timeInMillisOrNil
 "make a window visible/invisible with animation effect.
 CAVEAT:
-This does not work yet correctly, as we do not handle WM_PRINT messages correctly."
+	This does not work yet correctly, as we do not handle WM_PRINT messages correctly."
 %{
 if (__isExternalAddress(aWindowId)) {
-HWND hWnd = _HWNDVal(aWindowId);
+	HWND hWnd = _HWNDVal(aWindowId);
-if (hWnd) {
+	if (hWnd) {
-DWORD how = (doShow == true) ? AW_ACTIVATE : AW_HIDE;
+	    DWORD how = (doShow == true) ? AW_ACTIVATE : AW_HIDE;
-DWORD time = 0;
+	    DWORD time = 0;
-CPRINTF(("mapWindowAnimated %x\n", hWnd));
+	    CPRINTF(("mapWindowAnimated %x\n", hWnd));
-if (animationSymbolorNil != nil) {
+	    if (animationSymbolorNil != nil) {
-if (__isSmallInteger(timeInMillisOrNil)) {
+		if (__isSmallInteger(timeInMillisOrNil)) {
-time = __intVal(timeInMillisOrNil);
+		    time = __intVal(timeInMillisOrNil);
-}
+		}
-if (animationSymbolorNil == @symbol(SLIDE)) {
+		if (animationSymbolorNil == @symbol(SLIDE)) {
-how |= AW_SLIDE;
+		    how |= AW_SLIDE;
-} else if (animationSymbolorNil == @symbol(BLEND)) {
+		} else if (animationSymbolorNil == @symbol(BLEND)) {
-how |= AW_BLEND;
+		    how |= AW_BLEND;
-} else if (animationSymbolorNil == @symbol(CENTER)) {
+		} else if (animationSymbolorNil == @symbol(CENTER)) {
-how |= AW_CENTER;
+		    how |= AW_CENTER;
-} else if (animationSymbolorNil == @symbol(HOR_POSITIVE)) {
+		} else if (animationSymbolorNil == @symbol(HOR_POSITIVE)) {
-how |= AW_HOR_POSITIVE;
+		    how |= AW_HOR_POSITIVE;
-} else if (animationSymbolorNil == @symbol(HOR_NEGATIVE)) {
+		} else if (animationSymbolorNil == @symbol(HOR_NEGATIVE)) {
-how |= AW_HOR_NEGATIVE;
+		    how |= AW_HOR_NEGATIVE;
-} else if (animationSymbolorNil == @symbol(VER_POSITIVE)) {
+		} else if (animationSymbolorNil == @symbol(VER_POSITIVE)) {
-how |= AW_VER_POSITIVE;
+		    how |= AW_VER_POSITIVE;
-} else if (animationSymbolorNil == @symbol(VER_NEGATIVE)) {
+		} else if (animationSymbolorNil == @symbol(VER_NEGATIVE)) {
-how |= AW_VER_NEGATIVE;
+		    how |= AW_VER_NEGATIVE;
-}
+		}
-}
+	    }
-AnimateWindow(hWnd, time, how);
+	    AnimateWindow(hWnd, time, how);
-}
+	}
-RETURN ( self );
+	RETURN ( self );
 }
 %}
 !
 configureWindow:aWindowId sibling:siblingId stackMode:modeSymbol
 "window accept Files from Shell"
 %{  /*  */
 if (__isExternalAddress(aWindowId)) {
-HWND hWnd = _HWNDVal(aWindowId);
+	HWND hWnd = _HWNDVal(aWindowId);
-if (hWnd) {
+	if (hWnd) {
-if (doAccept == true)
+	    if (doAccept == true)
-DragAcceptFiles(hWnd, (doAccept == true) ? TRUE : FALSE);
+	    DragAcceptFiles(hWnd, (doAccept == true) ? TRUE : FALSE);
-}
+	}
-RETURN ( self );
+	RETURN ( self );
 }
 %}
 !
 findWindow:lpClassName windowName:lpWindowName
 "If the function succeeds, the return value is a handle to the window that has the specified class name
 and window name. If the function fails, the return value is NULL."
 ((lpClassName notNil and:[lpClassName isWideString])
 or:[lpWindowName notNil and:[lpWindowName isWideString]]) ifTrue:[
-^ self
+	^ self
-primFindWindowW:(lpClassName isNil
+	    primFindWindowW:(lpClassName isNil
-ifTrue:[nil]
+				    ifTrue:[nil]
-ifFalse:[lpClassName asUnicode16StringZ])
+				    ifFalse:[lpClassName asUnicode16StringZ])
-windowName:(lpWindowName isNil
+	    windowName:(lpWindowName isNil
-ifTrue:[nil]
+				    ifTrue:[nil]
-ifFalse:[lpWindowName asUnicode16StringZ])
+				    ifFalse:[lpWindowName asUnicode16StringZ])
 ].
 ^ self primFindWindowA:lpClassName windowName:lpWindowName
 "
 |h|
 getParentWindowIdOfWindowId:aChildWindowId
 %{  /* NOCONTEXT */
 if (__isExternalAddress(aChildWindowId)) {
-HWND wChild = _HWNDVal(aChildWindowId);
+	HWND wChild = _HWNDVal(aChildWindowId);
-HWND wParent;
+	HWND wParent;
-if (wChild) {
+	if (wChild) {
-wParent = GetParent(wChild);
+	    wParent = GetParent(wChild);
-if (wParent) {
+	    if (wParent) {
-RETURN ( __MKEXTERNALADDRESS(wParent) );
+		RETURN ( __MKEXTERNALADDRESS(wParent) );
-}
+	    }
-}
+	}
 }
 %}.
 ^ nil
 "
 getThreadIdOfWindowId:windowId
 %{  /* NOCONTEXT */
 if (__isExternalAddress(windowId)) {
-HWND hwnd = _HWNDVal(windowId);
+	HWND hwnd = _HWNDVal(windowId);
-DWORD id;
+	DWORD id;
-if (hwnd) {
+	if (hwnd) {
-id = GetWindowThreadProcessId(hwnd, &id);
+	    id = GetWindowThreadProcessId(hwnd, &id);
-RETURN ( __MKEXTERNALADDRESS(id) );
+	    RETURN ( __MKEXTERNALADDRESS(id) );
-}
+	}
 }
 %}.
 ^ nil
 "
 |buffer n|
 buffer := Unicode16String new:200.
 n := self primGetWindowClassW:aWindowId into:buffer size:200.
 n >= 0 ifTrue:[
-^ (buffer copyTo:n) asSingleByteStringIfPossible
+	^ (buffer copyTo:n) asSingleByteStringIfPossible
 ].
 self primitiveFailed.
 "
 |h|
 |l|
 l := OrderedCollection new.
 self primEnumWindowsInto:l.
 l do:[:eachWindowId |
-(self getParentWindowIdOfWindowId:eachWindowId) isNil ifTrue:[
+	(self getParentWindowIdOfWindowId:eachWindowId) isNil ifTrue:[
-"/ a topView
+	    "/ a topView
-(self getThreadIdOfWindowId:eachWindowId) = id ifTrue:[
+	    (self getThreadIdOfWindowId:eachWindowId) = id ifTrue:[
-^ eachWindowId
+		^ eachWindowId
-].
+	    ].
-]
+	]
 ].
 ^ nil
 "
 Display getWindowIdFromThreadId:(OperatingSystem getProcessId)
 (aWindowId isNil or:[aWindowId address == 0]) ifTrue:[^ self].
 bytes := ByteArray new:(ExternalBytes sizeofLong*4).
 self primGetWindowRect:aWindowId lpRect:bytes.
 ^ Rectangle
-left:(bytes longAt:1)
+	left:(bytes longAt:1)
-top:(bytes longAt:5)
+	top:(bytes longAt:5)
-right:(bytes longAt:9)
+	right:(bytes longAt:9)
-bottom:(bytes longAt:13)
+	bottom:(bytes longAt:13)
 "
 |handle|
 handle := Display findWindow: nil windowName: 'ST/X Launcher'.
 |buffer n|
 buffer := Unicode16String new:200.
 n := self primGetWindowTextW:aWindowId into:buffer size:200.
 n >= 0 ifTrue:[
-^ (buffer copyTo:n) asSingleByteStringIfPossible
+	^ (buffer copyTo:n) asSingleByteStringIfPossible
 ].
 self primitiveFailed.
 "
 |h|
 Especially useful, if the passed windowID is
 an alien (external) windows id."
 %{  /* NOCONTEXT */
 if (__isExternalAddress(aWindowId)) {
-HWND win = _HWNDVal(aWindowId);
+	HWND win = _HWNDVal(aWindowId);
-DWORD threadID, processID = 0;
+	DWORD threadID, processID = 0;
-if (! IsWindow(win)) {
+	if (! IsWindow(win)) {
-RETURN (false);
+	    RETURN (false);
-}
+	}
-threadID = GetWindowThreadProcessId(win, &processID);
+	threadID = GetWindowThreadProcessId(win, &processID);
-if ((threadID==0) || (processID==0)) {
+	if ((threadID==0) || (processID==0)) {
-RETURN (false);
+	    RETURN (false);
-}
+	}
-RETURN (true);
+	RETURN (true);
 }
 %}.
 self primitiveFailed.
 ^ false
 "bring a window to back"
 %{  /* NOCONTEXT */
 if (__isExternalAddress(aWindowId)) {
-HWND win = _HWNDVal(aWindowId);
+	HWND win = _HWNDVal(aWindowId);
-if (win) {
+	if (win) {
-CPRINTF(("lowerWindow %x\n",win));
+	    CPRINTF(("lowerWindow %x\n",win));
-SetWindowPos(win, HWND_BOTTOM, 0, 0, 0, 0,
+	    SetWindowPos(win, HWND_BOTTOM, 0, 0, 0, 0,
-SWP_NOSENDCHANGING |
+			 SWP_NOSENDCHANGING |
-SWP_NOACTIVATE | SWP_NOMOVE | SWP_NOSIZE);
+			 SWP_NOACTIVATE | SWP_NOMOVE | SWP_NOSIZE);
-}
+	}
-RETURN ( self );
+	RETURN ( self );
 }
 %}
 !
 mapView:aView id:aWindowId iconified:aBoolean atX:x y:y width:w height:h minExtent:minExt maxExtent:maxExt
 and to collaps/expand windows."
 |minW minH maxW maxH|
 minExt notNil ifTrue:[
-minW := minExt x.
+	minW := minExt x.
-minH := minExt y.
+	minH := minExt y.
 ].
 maxExt notNil ifTrue:[
-maxW := maxExt x.
+	maxW := maxExt x.
-maxH := maxExt y.
+	maxH := maxExt y.
 ].
 %{
 if (__isExternalAddress(aWindowId)) {
-HWND win = _HWNDVal(aWindowId);
+	HWND win = _HWNDVal(aWindowId);
-if (win) {
+	if (win) {
-int bw = 0;
+	    int bw = 0;
-int flag = 0;
+	    int flag = 0;
-int __left, __top, __width, __height;
+	    int __left, __top, __width, __height;
-int winStyleBits;
+	    int winStyleBits;
-int winExStyleBits;
+	    int winExStyleBits;
-localWindowInfo *lI;
+	    localWindowInfo *lI;
-bw = GetWindow_bw(win);
+	    bw = GetWindow_bw(win);
-winStyleBits = GetWindowLong(win, GWL_STYLE);
+	    winStyleBits = GetWindowLong(win, GWL_STYLE);
-winExStyleBits = GetWindowLong(win, GWL_EXSTYLE);
+	    winExStyleBits = GetWindowLong(win, GWL_EXSTYLE);
-lI = GETLOCALWINDOWINFOPTR(win);
+	    lI = GETLOCALWINDOWINFOPTR(win);
-if (! lI) {
+	    if (! lI) {
-console_fprintf(stderr, "WinWorkstation [info]: oops - no localInfo in mapView\n");
+		console_fprintf(stderr, "WinWorkstation [info]: oops - no localInfo in mapView\n");
-RETURN (self);
+		RETURN (self);
-}
+	    }
-if (__bothSmallInteger(x, y)) {
+	    if (__bothSmallInteger(x, y)) {
-__left = __intVal(x) + bw;
+		__left = __intVal(x) + bw;
-__top = __intVal(y) + bw;
+		__top = __intVal(y) + bw;
-} else {
+	    } else {
-__left = __top = 0;
+		__left = __top = 0;
-flag |= SWP_NOMOVE;
+		flag |= SWP_NOMOVE;
-}
+	    }
-if (__bothSmallInteger(w, h)) {
+	    if (__bothSmallInteger(w, h)) {
-__width = __intVal(w) - bw - bw;
+		__width = __intVal(w) - bw - bw;
-__height = __intVal(h) - bw - bw;
+		__height = __intVal(h) - bw - bw;
-} else {
+	    } else {
-__width = __height = 100;
+		__width = __height = 100;
-flag |= SWP_NOSIZE;
+		flag |= SWP_NOSIZE;
-}
+	    }
-if (__bothSmallInteger(minW, minH)) {
+	    if (__bothSmallInteger(minW, minH)) {
-RECT rec;
+		RECT rec;
-rec.left = 0;
+		rec.left = 0;
-rec.top = 0;
+		rec.top = 0;
-rec.right = __intVal(minW);
+		rec.right = __intVal(minW);
-rec.bottom = __intVal(minH);
+		rec.bottom = __intVal(minH);
 #ifdef ADJUSTWINDOW
-AdjustWindowRectEx(&rec, winStyleBits, 0, winExStyleBits);
+		AdjustWindowRectEx(&rec, winStyleBits, 0, winExStyleBits);
 #endif
-lI->minWidth = rec.right - rec.left;
+		lI->minWidth = rec.right - rec.left;
-lI->minHeight = rec.bottom - rec.top;
+		lI->minHeight = rec.bottom - rec.top;
-}
+	    }
-if (__bothSmallInteger(maxW, maxH)) {
+	    if (__bothSmallInteger(maxW, maxH)) {
-RECT rec;
+		RECT rec;
-rec.left = 0;
+		rec.left = 0;
-rec.top = 0;
+		rec.top = 0;
-rec.right = __intVal(maxW);
+		rec.right = __intVal(maxW);
-rec.bottom = __intVal(maxH);
+		rec.bottom = __intVal(maxH);
 #ifdef ADJUSTWINDOW
-AdjustWindowRectEx(&rec, winStyleBits, 0, winExStyleBits);
+		AdjustWindowRectEx(&rec, winStyleBits, 0, winExStyleBits);
 #endif
-lI->maxWidth = rec.right - rec.left;
+		lI->maxWidth = rec.right - rec.left;
-lI->maxHeight = rec.bottom - rec.top;
+		lI->maxHeight = rec.bottom - rec.top;
-}
+	    }
 #ifdef ADJUSTWINDOW
-if (flag != (SWP_NOMOVE | SWP_NOSIZE)) {
+	    if (flag != (SWP_NOMOVE | SWP_NOSIZE)) {
-RECT rec;
+		RECT rec;
-int __left0, __top0, __width0, __height0;
+		int __left0, __top0, __width0, __height0;
-__left0   = __left;
+		__left0   = __left;
-__top0    = __top;
+		__top0    = __top;
-__width0  = __width;
+		__width0  = __width;
-__height0 = __height;
+		__height0 = __height;
-rec.left = __left;
+		rec.left = __left;
-// rec.left = __left-2;
+		// rec.left = __left-2;
-rec.top = __top;
+		rec.top = __top;
-// rec.top = __top-2;
+		// rec.top = __top-2;
-rec.right = rec.left + __width;
+		rec.right = rec.left + __width;
-rec.bottom = rec.top + __height;
+		rec.bottom = rec.top + __height;
-AdjustWindowRectEx(&rec, winStyleBits, 0, winExStyleBits);
+		AdjustWindowRectEx(&rec, winStyleBits, 0, winExStyleBits);
-__left = rec.left;
+		__left = rec.left;
-__top = rec.top;
+		__top = rec.top;
-__width = rec.right - rec.left;
+		__width = rec.right - rec.left;
-__height = rec.bottom - rec.top;
+		__height = rec.bottom - rec.top;
-CPRINTF(("mapView %x %d/%d %d/%d -> %d/%d %d/%d\n",
+		CPRINTF(("mapView %x %d/%d %d/%d -> %d/%d %d/%d\n",
-win,
+			 win,
-__left0, __top0, __width0, __height0,
+			 __left0, __top0, __width0, __height0,
-__left, __top, __width, __height));
+			 __left, __top, __width, __height));
-}
+	    }
 #else
-CPRINTF(("mapView %x %d/%d %d/%d\n",
+	    CPRINTF(("mapView %x %d/%d %d/%d\n",
-win,
+		     win,
-__left, __top, __width, __height));
+		     __left, __top, __width, __height));
 #endif
-flag |= SWP_NOACTIVATE | SWP_NOSENDCHANGING | SWP_NOZORDER | SWP_NOOWNERZORDER;
+	    flag |= SWP_NOACTIVATE | SWP_NOSENDCHANGING | SWP_NOZORDER | SWP_NOOWNERZORDER;
-if (aBoolean == true) {
+	    if (aBoolean == true) {
-/* iconified */
+		/* iconified */
 //              SetWindowPos(win, (HWND)0,
 //                           __left, __top, __width, __height,
 //                           flag);
 //                ShowWindow(win, SW_SHOWMINIMIZED);
-ShowWindowAsync(win, SW_SHOWMINNOACTIVE);
+		ShowWindowAsync(win, SW_SHOWMINNOACTIVE);
 /*
-enqEvent(0, win, WM_SHOWWINDOW, FALSE, 0, 0, 0, 0, EV_NOTIME);
+		enqEvent(0, win, WM_SHOWWINDOW, FALSE, 0, 0, 0, 0, EV_NOTIME);
 */
-} else {
+	    } else {
-/* normal */
+		/* normal */
-SetWindowPos(win, (HWND)0,
+		SetWindowPos(win, (HWND)0,
-__left, __top, __width, __height,
+			     __left, __top, __width, __height,
-flag);
+			     flag);
 /*
-enqEvent(0, win, WM_SHOWWINDOW, TRUE, 0, 0, 0, 0, EV_NOTIME);
+		enqEvent(0, win, WM_SHOWWINDOW, TRUE, 0, 0, 0, 0, EV_NOTIME);
 */
-//ShowWindow(win, SW_RESTORE);
+		//ShowWindow(win, SW_RESTORE);
-// ShowWindowAsync(win, SW_RESTORE);
+		// ShowWindowAsync(win, SW_RESTORE);
-ShowWindowAsync(win, SW_SHOWNOACTIVATE);
+		ShowWindowAsync(win, SW_SHOWNOACTIVATE);
-}
+	    }
-}
+	}
-RETURN ( self );
+	RETURN ( self );
 }
 %}
 !
 mapWindow:aWindowId
 "make a window visible"
 %{  /* NOCONTEXT */
 if (__isExternalAddress(aWindowId)) {
-HWND hWnd = _HWNDVal(aWindowId);
+	HWND hWnd = _HWNDVal(aWindowId);
-if (hWnd) {
+	if (hWnd) {
-CPRINTF(("mapWindow %x\n", hWnd));
+	    CPRINTF(("mapWindow %x\n", hWnd));
-if (GetParent(hWnd) == 0) {
+	    if (GetParent(hWnd) == 0) {
-ShowWindowAsync(hWnd, SW_SHOWNOACTIVATE);
+		ShowWindowAsync(hWnd, SW_SHOWNOACTIVATE);
-} else {
+	    } else {
-ShowWindowAsync(hWnd, SW_SHOWNORMAL);
+		ShowWindowAsync(hWnd, SW_SHOWNORMAL);
-}
+	    }
-}
+	}
-RETURN ( self );
+	RETURN ( self );
 }
 %}
 !
 mapWindow:aWindowId animation:animationSymbolorNil time:timeInMillisOrNil
 %{  /* NOCONTEXT */
 RECT rec;
 if (__isExternalAddress(aWindowId)
 && __bothSmallInteger(x, y)
 && __bothSmallInteger(w, h)) {
-HWND win = _HWNDVal(aWindowId);
+	HWND win = _HWNDVal(aWindowId);
-int bw = 0;
+	int bw = 0;
-if (win) {
+	if (win) {
-bw = GetWindow_bw(win);
+	    bw = GetWindow_bw(win);
-rec.left = __intVal(x) + bw;
+	    rec.left = __intVal(x) + bw;
-rec.top = __intVal(y) + bw;
+	    rec.top = __intVal(y) + bw;
-rec.right = rec.left + __intVal(w) - bw - bw;
+	    rec.right = rec.left + __intVal(w) - bw - bw;
-rec.bottom = rec.top + __intVal(h) - bw - bw;
+	    rec.bottom = rec.top + __intVal(h) - bw - bw;
-if (GetParent(win) == 0) {
+	    if (GetParent(win) == 0) {
 #ifdef ADJUSTWINDOW
-AdjustWindowRectEx(&rec,GetWindowLong(win,GWL_STYLE),0,GetWindowLong(win,GWL_EXSTYLE));
+		AdjustWindowRectEx(&rec,GetWindowLong(win,GWL_STYLE),0,GetWindowLong(win,GWL_EXSTYLE));
 #endif
-}
+	    }
-CPRINTF(("moveresize %x x:%d y:%d w:%d h:%d -> x:%d y:%d w:%d h:%d\n",win,__intVal(x),__intVal(y),__intVal(w),__intVal(h),rec.left,rec.top,
+	    CPRINTF(("moveresize %x x:%d y:%d w:%d h:%d -> x:%d y:%d w:%d h:%d\n",win,__intVal(x),__intVal(y),__intVal(w),__intVal(h),rec.left,rec.top,
-rec.right - rec.left, rec.bottom - rec.top));
+			 rec.right - rec.left, rec.bottom - rec.top));
-SetWindowPos(win, (HWND)0,
+	    SetWindowPos(win, (HWND)0,
-rec.left, rec.top,
+			 rec.left, rec.top,
-rec.right - rec.left, rec.bottom - rec.top,
+			 rec.right - rec.left, rec.bottom - rec.top,
-SWP_NOSENDCHANGING | SWP_NOACTIVATE | SWP_NOZORDER | SWP_NOOWNERZORDER);
+			 SWP_NOSENDCHANGING | SWP_NOACTIVATE | SWP_NOZORDER | SWP_NOOWNERZORDER);
-}
+	}
-RETURN ( self );
+	RETURN ( self );
 }
 %}
 !
 moveWindow:aWindowId x:x y:y
 %{  /* NOCONTEXT */
 RECT rec;
 if (__isExternalAddress(aWindowId)
 && __bothSmallInteger(x, y)) {
-HWND win = _HWNDVal(aWindowId);
+	HWND win = _HWNDVal(aWindowId);
-int bw = 0;
+	int bw = 0;
-if (win) {
+	if (win) {
-bw = GetWindow_bw(win);
+	    bw = GetWindow_bw(win);
-rec.left = __intVal(x) + bw;
+	    rec.left = __intVal(x) + bw;
-rec.top = __intVal(y) + bw;
+	    rec.top = __intVal(y) + bw;
-if (GetParent(win) == 0) {
+	    if (GetParent(win) == 0) {
-rec.right = rec.left + 10;  /* only needed to give adjust some valid numbers */
+		rec.right = rec.left + 10;  /* only needed to give adjust some valid numbers */
-rec.bottom = rec.top + 10;
+		rec.bottom = rec.top + 10;
 #ifdef ADJUSTWINDOW
-AdjustWindowRectEx(&rec, GetWindowLong(win,GWL_STYLE), 0, GetWindowLong(win,GWL_EXSTYLE));
+		AdjustWindowRectEx(&rec, GetWindowLong(win,GWL_STYLE), 0, GetWindowLong(win,GWL_EXSTYLE));
 #endif
-}
+	    }
-CPRINTF(("move %x x:%d y:%d -> x:%d y:%d\n", win,
+	    CPRINTF(("move %x x:%d y:%d -> x:%d y:%d\n", win,
-__intVal(x), __intVal(y), rec.left, rec.top));
+			__intVal(x), __intVal(y), rec.left, rec.top));
-SetWindowPos(win, (HWND)0,
+	    SetWindowPos(win, (HWND)0,
-rec.left, rec.top,
+			 rec.left, rec.top,
-0, 0,
+			 0, 0,
-SWP_NOSENDCHANGING | SWP_NOACTIVATE | SWP_NOSIZE | SWP_NOZORDER | SWP_NOOWNERZORDER);
+			 SWP_NOSENDCHANGING | SWP_NOACTIVATE | SWP_NOSIZE | SWP_NOZORDER | SWP_NOOWNERZORDER);
-}
+	}
-RETURN ( self );
+	RETURN ( self );
 }
 %}
 !
 primEnumChildWindowsOf:aWindowId into:handleList
 %{
 if (__isExternalAddress(aWindowId)) {
-HWND hwParent = _HWNDVal(aWindowId);
+	HWND hwParent = _HWNDVal(aWindowId);
-if ( EnumChildWindows( hwParent, EnumWindowsProc, (INT)&(handleList))) {
+	if ( EnumChildWindows( hwParent, EnumWindowsProc, (INT)&(handleList))) {
-DPRINTF(("EnumChildWindows successful\n"));
+	    DPRINTF(("EnumChildWindows successful\n"));
-}
+	}
 }
 %}
 !
 primEnumWindowsInto:handleList
 %{
 if ( EnumWindows( EnumWindowsProc, (INT)&(handleList))) {
-DPRINTF(("EnumWindows successful\n"));
+	DPRINTF(("EnumWindows successful\n"));
 }
 %}
 !
 primEnumWindowsOf:threadId into:handleList
 %{
 if (__isSmallInteger(threadId)) {
-if ( EnumThreadWindows( __intVal(threadId), EnumWindowsProc, (INT)&(handleList))) {
+	if ( EnumThreadWindows( __intVal(threadId), EnumWindowsProc, (INT)&(handleList))) {
-DPRINTF(("EnumThreadWindows successful\n"));
+	    DPRINTF(("EnumThreadWindows successful\n"));
-}
+	}
 }
 %}
 !
 primFindWindowA:lpClassName windowName:lpWindowName
 DPRINTF(("primSetWindowIconId\n"));
 if (__isExternalAddress(aWindowId)
 && __isExternalAddress(wiconId)
 && __bothSmallInteger(wiconWidth, wiconHeight)) {
-HWND win = _HWNDVal(aWindowId);
+	HWND win = _HWNDVal(aWindowId);
-xBitMap = _HBITMAPVAL( wiconId );
+	xBitMap = _HBITMAPVAL( wiconId );
-if ( xBitMap != 0 ) {
+	if ( xBitMap != 0 ) {
-BITMAP bm;
+	    BITMAP bm;
-if (GetObject(xBitMap, sizeof(bm), (LPSTR)&bm)) {
+	    if (GetObject(xBitMap, sizeof(bm), (LPSTR)&bm)) {
-BYTE *ep;
+		BYTE *ep;
-int privateMask = 0;
+		int privateMask = 0;
-unsigned char  *allocatedBits = 0;
+		unsigned char  *allocatedBits = 0;
-DPRINTF(("Bitmap w:%d h:%d p:%d d:%d\n",bm.bmWidth,bm.bmHeight,bm.bmPlanes,bm.bmBitsPixel));
+		DPRINTF(("Bitmap w:%d h:%d p:%d d:%d\n",bm.bmWidth,bm.bmHeight,bm.bmPlanes,bm.bmBitsPixel));
-height = __intVal( wiconHeight );
+		height = __intVal( wiconHeight );
-width  = __intVal( wiconWidth  );
+		width  = __intVal( wiconWidth  );
-if ( __isExternalAddress(wmaskId) ) {
+		if ( __isExternalAddress(wmaskId) ) {
-maskBitmap = _HBITMAPVAL( wmaskId );
+		    maskBitmap = _HBITMAPVAL( wmaskId );
-} else {
+		} else {
-if (wmaskId != nil) {
+		    if (wmaskId != nil) {
-PRINTF(("WinWorkstat [warning]: wmaskId is not an external address\n"));
+			PRINTF(("WinWorkstat [warning]: wmaskId is not an external address\n"));
-}
+		    }
-maskBitmap = 0;
+		    maskBitmap = 0;
-}
+		}
-/*
+		/*
-* if there is no mask, generate one
+		 * if there is no mask, generate one
-*/
+		 */
-if (maskBitmap == 0) {
+		if (maskBitmap == 0) {
-int nBytes;
+		    int nBytes;
-nBytes = ( width + 31 ) / 8;
+		    nBytes = ( width + 31 ) / 8;
-nBytes = height * nBytes;
+		    nBytes = height * nBytes;
-if (nBytes < sizeof(fastBits)) {
+		    if (nBytes < sizeof(fastBits)) {
-ep = fastBits;
+			ep = fastBits;
-} else {
+		    } else {
-ep = allocatedBits = (unsigned char *) malloc(nBytes);
+			ep = allocatedBits = (unsigned char *) malloc(nBytes);
-}
+		    }
-if ( ep == 0 ) {
+		    if ( ep == 0 ) {
-PRINTF(( "WinWorkstat [warning]: malloc failed\n" ));
+			PRINTF(( "WinWorkstat [warning]: malloc failed\n" ));
-} else {
+		    } else {
-memset(ep, 0, nBytes);
+			memset(ep, 0, nBytes);
-maskBitmap = CreateBitmap(width, height, 1, 1, ep );
+			maskBitmap = CreateBitmap(width, height, 1, 1, ep );
-if ( maskBitmap == NULL ) {
+			if ( maskBitmap == NULL ) {
-PRINTF(( "WinWorkstat [warning]: mask CREATION failed\n" ));
+			    PRINTF(( "WinWorkstat [warning]: mask CREATION failed\n" ));
-} else {
+			} else {
-privateMask = 1;
+			    privateMask = 1;
-}
+			}
-}
+		    }
-}
+		}
-if ( maskBitmap != NULL ) {
+		if ( maskBitmap != NULL ) {
-DPRINTF(( "BITMAP mask CREATED!!!\n" ));
+		    DPRINTF(( "BITMAP mask CREATED!!!\n" ));
-iconInfo.fIcon = TRUE;
+		    iconInfo.fIcon = TRUE;
-iconInfo.hbmMask  =maskBitmap;
+		    iconInfo.hbmMask  =maskBitmap;
-iconInfo.hbmColor = xBitMap;
+		    iconInfo.hbmColor = xBitMap;
-xIcon = CreateIconIndirect( &iconInfo );
+		    xIcon = CreateIconIndirect( &iconInfo );
-DPRINTF(( "ICON CREATED!!!\n" ));
+		    DPRINTF(( "ICON CREATED!!!\n" ));
-if (privateMask) {
+		    if (privateMask) {
-_DeleteObject( maskBitmap, __LINE__ );
+			_DeleteObject( maskBitmap, __LINE__ );
-}
+		    }
-} else {
+		} else {
-PRINTF(( "WinWorkstat [warning]: no mask for icon !\n" ));
+		    PRINTF(( "WinWorkstat [warning]: no mask for icon !\n" ));
-}
+		}
-if (allocatedBits) {
+		if (allocatedBits) {
-free(allocatedBits);
+		    free(allocatedBits);
-}
+		}
-}
+	    }
-} else {
+	} else {
-DPRINTF(("WinWorkstat [warning]: xBitMap is zero \n" ));
+	    DPRINTF(("WinWorkstat [warning]: xBitMap is zero \n" ));
-}
+	}
-if (xIcon) {
+	if (xIcon) {
 #ifndef TOPWINDOWCLASS
-HICON oldIcon = (HICON)0;
+	    HICON oldIcon = (HICON)0;
 # ifdef _WIN64
-oldIcon = (HICON) GetClassLongPtr(win, GCLP_HICON);
+	    oldIcon = (HICON) GetClassLongPtr(win, GCLP_HICON);
-SetClassLongPtr(win, GCLP_HICON, (INT)xIcon);
+	    SetClassLongPtr(win, GCLP_HICON, (INT)xIcon);
 # else
-oldIcon = (HICON) GetClassLong(win, GCL_HICON);
+	    oldIcon = (HICON) GetClassLong(win, GCL_HICON);
-SetClassLong(win, GCL_HICON, (DWORD)xIcon);
+	    SetClassLong(win, GCL_HICON, (DWORD)xIcon);
 # endif
 /* It has to be checked whether this can be deleted!!!!! */
-if ( oldIcon ) {
+	    if ( oldIcon ) {
-if (DestroyIcon( oldIcon )) {
+		if (DestroyIcon( oldIcon )) {
-DPRINTF(( "Old icon deleted\n" ));
+		    DPRINTF(( "Old icon deleted\n" ));
-} else {
+		} else {
-console_fprintf(stderr, "failed to delete old icon\n");
+		    console_fprintf(stderr, "failed to delete old icon\n");
-}
+		}
-}
+	    }
 #else
-SendMessage(win, WM_SETICON, (WPARAM)ICON_SMALL, (LPARAM)xIcon);
+	    SendMessage(win, WM_SETICON, (WPARAM)ICON_SMALL, (LPARAM)xIcon);
-SendMessage(win, WM_SETICON, (WPARAM)ICON_BIG, (LPARAM)xIcon);
+	    SendMessage(win, WM_SETICON, (WPARAM)ICON_BIG, (LPARAM)xIcon);
 #endif
-}
+	}
-RETURN (self);
+	RETURN (self);
 }
 %}
 !
 raiseWindow:aWindowId
 as topmost, when it gets the focus)"
 %{  /* NOCONTEXT */
 if (__isExternalAddress(aWindowId)) {
-HWND hWnd = _HWNDVal(aWindowId);
+	HWND hWnd = _HWNDVal(aWindowId);
-if (hWnd) {
+	if (hWnd) {
-CPRINTF(("raiseWindow %x\n",hWnd));
+	    CPRINTF(("raiseWindow %x\n",hWnd));
-SetWindowPos(hWnd, HWND_TOP, 0, 0, 0, 0,
+	    SetWindowPos(hWnd, HWND_TOP, 0, 0, 0, 0,
-/* SWP_NOOWNERZORDER |*/
+			 /* SWP_NOOWNERZORDER |*/
-SWP_NOSENDCHANGING | SWP_NOACTIVATE |
+			SWP_NOSENDCHANGING | SWP_NOACTIVATE |
-SWP_NOMOVE | SWP_NOSIZE);
+			SWP_NOMOVE | SWP_NOSIZE);
-}
+	}
 }
 %}
 !
 raiseWindowToTop:aWindowId
 Q: is this a windows-specific thing ?"
 %{  /* NOCONTEXT */
 if (__isExternalAddress(aWindowId)) {
-HWND hWnd = _HWNDVal(aWindowId);
+	HWND hWnd = _HWNDVal(aWindowId);
-if (hWnd) {
+	if (hWnd) {
-CPRINTF(("raiseWindow %x\n",hWnd));
+	    CPRINTF(("raiseWindow %x\n",hWnd));
-SetWindowPos(hWnd, HWND_TOPMOST, 0, 0, 0, 0,
+	    SetWindowPos(hWnd, HWND_TOPMOST, 0, 0, 0, 0,
-/* SWP_NOOWNERZORDER |*/
+			 /* SWP_NOOWNERZORDER |*/
-SWP_NOSENDCHANGING | SWP_NOACTIVATE |
+			SWP_NOSENDCHANGING | SWP_NOACTIVATE |
-SWP_NOMOVE | SWP_NOSIZE);
+			SWP_NOMOVE | SWP_NOSIZE);
-SetWindowPos(hWnd, HWND_NOTOPMOST, 0, 0, 0, 0,
+	    SetWindowPos(hWnd, HWND_NOTOPMOST, 0, 0, 0, 0,
-/* SWP_NOOWNERZORDER |*/
+			 /* SWP_NOOWNERZORDER |*/
-SWP_NOSENDCHANGING | SWP_NOACTIVATE |
+			SWP_NOSENDCHANGING | SWP_NOACTIVATE |
-SWP_NOMOVE | SWP_NOSIZE);
+			SWP_NOMOVE | SWP_NOSIZE);
-SetWindowPos(hWnd, HWND_TOP, 0, 0, 0, 0,
+	    SetWindowPos(hWnd, HWND_TOP, 0, 0, 0, 0,
-/* SWP_NOOWNERZORDER | */
+			/* SWP_NOOWNERZORDER | */
-/* SWP_NOSENDCHANGING | SWP_NOACTIVATE | */
+			/* SWP_NOSENDCHANGING | SWP_NOACTIVATE | */
-SWP_NOMOVE | SWP_NOSIZE);
+			SWP_NOMOVE | SWP_NOSIZE);
-SetWindowPos(hWnd, HWND_TOP, 0, 0, 0, 0,
+	    SetWindowPos(hWnd, HWND_TOP, 0, 0, 0, 0,
-/* SWP_NOOWNERZORDER | */
+			/* SWP_NOOWNERZORDER | */
-/* SWP_NOSENDCHANGING | SWP_NOACTIVATE | */
+			/* SWP_NOSENDCHANGING | SWP_NOACTIVATE | */
-SWP_NOMOVE | SWP_NOSIZE);
+			SWP_NOMOVE | SWP_NOSIZE);
-}
+	}
 }
 %}
 !
 raiseWindowToTopMost:aWindowId
 Q: is this a windows-specific thing ?"
 %{  /* NOCONTEXT */
 if (__isExternalAddress(aWindowId)) {
-HWND hWnd = _HWNDVal(aWindowId);
+	HWND hWnd = _HWNDVal(aWindowId);
-if (hWnd) {
+	if (hWnd) {
-CPRINTF(("raiseWindow %x\n",hWnd));
+	    CPRINTF(("raiseWindow %x\n",hWnd));
-SetWindowPos(hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE | SWP_NOSIZE);
+	    SetWindowPos(hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE | SWP_NOSIZE);
-}
+	}
 }
 %}
 !
 reparentWindow:windowId to:newParentWindowId
 "change a windows parent (an optional interface)"
 %{  /* NOCONTEXT */
 if (__isExternalAddress(windowId)
 && __isExternalAddress(newParentWindowId)) {
-HWND hWnd = _HWNDVal(windowId);
+	HWND hWnd = _HWNDVal(windowId);
-HWND hWndNewParent = _HWNDVal(newParentWindowId);
+	HWND hWndNewParent = _HWNDVal(newParentWindowId);
-SetParent(hWnd, hWndNewParent);
+	SetParent(hWnd, hWndNewParent);
-RETURN ( true );
+	RETURN ( true );
 }
 %}.
 self primitiveFailed
 !
 %{  /* NOCONTEXT */
 RECT rec;
 if (__isExternalAddress(aWindowId)
 && __bothSmallInteger(w, h)) {
-HWND hWnd = _HWNDVal(aWindowId);
+	HWND hWnd = _HWNDVal(aWindowId);
-int bw;
+	int bw;
-if (hWnd) {
+	if (hWnd) {
-bw = GetWindow_bw(hWnd);
+	    bw = GetWindow_bw(hWnd);
-rec.left = 0;  /* only needed to have a valid origin in adjust */
+	    rec.left = 0;  /* only needed to have a valid origin in adjust */
-rec.top = 0;   /* only needed to have a valid origin in adjust */
+	    rec.top = 0;   /* only needed to have a valid origin in adjust */
-rec.right = __intVal(w) - bw - bw;
+	    rec.right = __intVal(w) - bw - bw;
-rec.bottom = __intVal(h) - bw - bw;
+	    rec.bottom = __intVal(h) - bw - bw;
 #ifdef ADJUSTWINDOW
-AdjustWindowRectEx(&rec, GetWindowLong(hWnd, GWL_STYLE), 0, GetWindowLong(hWnd, GWL_EXSTYLE));
+	    AdjustWindowRectEx(&rec, GetWindowLong(hWnd, GWL_STYLE), 0, GetWindowLong(hWnd, GWL_EXSTYLE));
 #endif
-CPRINTF(("resize %x w:%d h:%d -> w:%d h:%d\n",hWnd,__intVal(w),__intVal(h),rec.right - rec.left, rec.bottom - rec.top));
+	    CPRINTF(("resize %x w:%d h:%d -> w:%d h:%d\n",hWnd,__intVal(w),__intVal(h),rec.right - rec.left, rec.bottom - rec.top));
-SetWindowPos(hWnd, (HWND)0,
+	    SetWindowPos(hWnd, (HWND)0,
-0, 0,
+			 0, 0,
-rec.right - rec.left, rec.bottom - rec.top,
+			 rec.right - rec.left, rec.bottom - rec.top,
-SWP_NOSENDCHANGING | SWP_NOACTIVATE |
+			 SWP_NOSENDCHANGING | SWP_NOACTIVATE |
-SWP_NOMOVE | SWP_NOZORDER | SWP_NOOWNERZORDER);
+			 SWP_NOMOVE | SWP_NOZORDER | SWP_NOOWNERZORDER);
-}
+	}
-RETURN ( self );
+	RETURN ( self );
 }
 %}
 !
 sendButtonMessageType:messageType at:aPoint toWindowId:aWindowId
 |messageType|
 self assert:(button between:1 and:3).
 messageType := #(   16r0201 "WM_LBUTTONDOWN"
-16r0207 "WM_MBUTTONDOWN"
+			16r0207 "WM_MBUTTONDOWN"
-16r0204 "WM_RBUTTONDOWN"  ) at:button.
+			16r0204 "WM_RBUTTONDOWN"  ) at:button.
 self sendButtonMessageType:messageType at:aPoint toWindowId:aWindowId
 "
 |v b externalAddress handle|
 |messageType|
 self assert:(button between:1 and:3).
 messageType := #(   16r0202 "WM_LBUTTONUP"
-16r0208 "WM_MBUTTONUP"
+			16r0208 "WM_MBUTTONUP"
-16r0205 "WM_RBUTTONUP"  ) at:button.
+			16r0205 "WM_RBUTTONUP"  ) at:button.
 self sendButtonMessageType:messageType at:aPoint toWindowId:aWindowId
 "
 |v b externalAddress handle|
 messageType := 74 "WM_COPYDATA".
 externalBytes := aByteArrayOrString asExternalBytesUnprotected.
 copyDataStruct := CopyDataStructStructure new.
 copyDataStruct
-cbData:externalBytes size;
+	cbData:externalBytes size;
-lpData:externalBytes address.
+	lpData:externalBytes address.
 lParam := copyDataStruct asExternalBytesUnprotected.
 ^ self primSendMessage:aWindowId message:messageType wParam:nil lParam:lParam.
 "
 |handle|
 HCURSOR newCursor;
 if (ISCONNECTED
 && __isExternalAddress(aWindowId)
 && __isExternalAddress(aCursorId)) {
-HWND win = _HWNDVal(aWindowId);
+	HWND win = _HWNDVal(aWindowId);
 //        POINT p;
 //        GUITHREADINFO info;
-SetWindow_Cursor(win, _HCURSORVal(aCursorId));
+	SetWindow_Cursor(win, _HCURSORVal(aCursorId));
-/*
+	/*
-* The window's cursor has been set. When the mouse moves into
+	 * The window's cursor has been set. When the mouse moves into
-* the window, the new cursor will be shown when the WM_SETCURSOR event is handled.
+	 * the window, the new cursor will be shown when the WM_SETCURSOR event is handled.
-* If the window contains the mouse pointer, or the window has captured the mousem
+	 * If the window contains the mouse pointer, or the window has captured the mousem
-* no WM_SETCURSOR event is generated, so we have to set the cursor here.
+	 * no WM_SETCURSOR event is generated, so we have to set the cursor here.
-*/
+	 */
 // forget about the GetGUIThreadInfo stuff (although it works) - __currentPointerView is easier
 //        info.cbSize = sizeof(info);
 //        if (GetGUIThreadInfo(0, &info) == 0) {
 //            info.hwndCapture = 0;               // set to defined value on failure
 //        }
 //        if (info.hwndCapture == win
 //            || (GetCursorPos(&p), WindowFromPoint(p) == win)) {
-if (win == __currentPointerView) {
+	if (win == __currentPointerView) {
 #if defined(SET_CURSOR_IN_WINTHREAD)
-PostMessage(win, WM_THREAD_SETCURSOR, (WPARAM)0, (INT)_HCURSORVal(aCursorId));
+	    PostMessage(win, WM_THREAD_SETCURSOR, (WPARAM)0, (INT)_HCURSORVal(aCursorId));
 #else
-SetCursor(_HCURSORVal(aCursorId));
+	    SetCursor(_HCURSORVal(aCursorId));
 #endif
-}
+	}
 }
 %}
 !
 setForegroundWindow2:aWindowId
 "make a window the foreground window"
 %{  /* NOCONTEXT */
 if (__isExternalAddress(aWindowId)) {
-HWND win = _HWNDVal(aWindowId);
+	HWND win = _HWNDVal(aWindowId);
-if (win) {
+	if (win) {
-ShowWindow(win, SW_SHOW);
+	    ShowWindow(win, SW_SHOW);
-SetForegroundWindow(win);
+	    SetForegroundWindow(win);
-BringWindowToTop(win);
+	    BringWindowToTop(win);
-}
+	}
-RETURN ( self );
+	RETURN ( self );
 }
 %}
 !
 setForegroundWindow:aWindowId
 %{  /* NOCONTEXT */
 #if 0
 if (__isExternalAddress(aWindowId)
 && (__isStringLike(aString))) {
-HWND win = _HWNDVal(aWindowId);
+	HWND win = _HWNDVal(aWindowId);
-SetWindowText(win, __stringVal(aString));
+	SetWindowText(win, __stringVal(aString));
-RETURN (self);
+	RETURN (self);
 }
 #endif
 %}
 !
 setParentWindowIdOf:aChildWindowId to:newParentWindowId
 %{  /* NOCONTEXT */
 if (__isExternalAddress(aChildWindowId)
 && __isExternalAddress(newParentWindowId)) {
-HWND wChild = _HWNDVal(aChildWindowId);
+	HWND wChild = _HWNDVal(aChildWindowId);
-HWND wNewParent = _HWNDVal(newParentWindowId);
+	HWND wNewParent = _HWNDVal(newParentWindowId);
-if (wChild && wNewParent) {
+	if (wChild && wNewParent) {
-SetParent(wChild, wNewParent);
+	    SetParent(wChild, wNewParent);
-}
+	}
 }
 %}
 !
 setSaveUnder:yesOrNo in:aWindowId
 "turn on/off save-under for a window"
 %{  /* NOCONTEXT */
 if (yesOrNo != false) {
-DPRINTF(("WinWorkstation [info]: setSaveUnder:in: not (yet) implemented\n"));
+	DPRINTF(("WinWorkstation [info]: setSaveUnder:in: not (yet) implemented\n"));
 }
 %}.
 !
 setTransient:aWindowId for:aMainWindowId
 %{  /* NOCONTEXT */
 #ifdef NOT_YET_SUPPORTED
 if (__isExternalAddress(aWindowId)) {
-HWND w;
+	HWND w;
-HWND cw = _HWNDVal(aWindowId);
+	HWND cw = _HWNDVal(aWindowId);
-if ((aMainWindowId == nil) || (aMainWindowId == __MKSMALLINT(0))) {
+	if ((aMainWindowId == nil) || (aMainWindowId == __MKSMALLINT(0))) {
-w = (HWND) 0;
+	    w = (HWND) 0;
-} else {
+	} else {
-if (__isExternalAddress(aMainWindowId)) {
+	    if (__isExternalAddress(aMainWindowId)) {
-w = _HWNDVal(aMainWindowId);
+		w = _HWNDVal(aMainWindowId);
-} else {
+	    } else {
-goto getOutOfHere;
+		goto getOutOfHere;
-}
+	    }
-}
+	}
-CPRINTF(("setTransient:%x for:%x\n",cw,w));
+	CPRINTF(("setTransient:%x for:%x\n",cw,w));
-//SetParent(cw, w);
+	//SetParent(cw, w);
-RETURN ( self );
+	RETURN ( self );
 }
 getOutOfHere: ;
 #else
 RETURN (self);
 #endif
 %{  /* NOCONTEXT */
 if (__isExternalAddress(aWindowId)
 && (__isSmallInteger(aColorIndex))) {
-HWND hWnd = _HWNDVal(aWindowId);
+	HWND hWnd = _HWNDVal(aWindowId);
-int clr;
+	int clr;
-HBRUSH oldBrush;
+	HBRUSH oldBrush;
-oldBrush = GetWindow_viewBgBrush(hWnd);
+	oldBrush = GetWindow_viewBgBrush(hWnd);
-if (oldBrush) {
+	if (oldBrush) {
-SetWindow_viewBgBrush(hWnd, 0);
+	    SetWindow_viewBgBrush(hWnd, 0);
-_DeleteBrushIfNotInCache(oldBrush, __LINE__);
+	    _DeleteBrushIfNotInCache(oldBrush, __LINE__);
-}
+	}
-clr = st2RGB(__intVal(aColorIndex), 0);
+	clr = st2RGB(__intVal(aColorIndex), 0);
-SetWindow_viewBgColor(hWnd, clr);
+	SetWindow_viewBgColor(hWnd, clr);
-RETURN (self);
+	RETURN (self);
 }
 %}
 !
 setWindowBackgroundPixmap:aPixmapId in:aWindowId
 "set the windows background pattern to be a form.
 This is the pattern with which the view is filled whenever exposed.
 Do not confuse this with the background drawing color, which is used
 with opaque drawing.
 NOTICE: due to the limitations of WIN95,
-background pixmaps which are not 8x8 pixels in size,
+	     background pixmaps which are not 8x8 pixels in size,
-are handled by smalltalk code in the WIN95 version."
+	     are handled by smalltalk code in the WIN95 version."
 %{
 if (__isExternalAddress(aWindowId)) {
-HWND hWnd = _HWNDVal(aWindowId);
+	HWND hWnd = _HWNDVal(aWindowId);
-HBITMAP pixmap;
+	HBITMAP pixmap;
-HBRUSH oldBrush, newBrush;
+	HBRUSH oldBrush, newBrush;
-if (__isExternalAddress(aPixmapId))
+	if (__isExternalAddress(aPixmapId))
-pixmap = _HBITMAPVAL(aPixmapId);
+	    pixmap = _HBITMAPVAL(aPixmapId);
-else
+	else
-pixmap = 0;
+	    pixmap = 0;
-oldBrush = GetWindow_viewBgBrush(hWnd);
+	oldBrush = GetWindow_viewBgBrush(hWnd);
-if (oldBrush) {
+	if (oldBrush) {
-SetWindow_viewBgBrush(hWnd, 0);
+	    SetWindow_viewBgBrush(hWnd, 0);
-_DeleteBrushIfNotInCache(oldBrush, __LINE__);
+	    _DeleteBrushIfNotInCache(oldBrush, __LINE__);
-}
+	}
-if (pixmap) {
+	if (pixmap) {
-newBrush = CreatePatternBrush(pixmap);
+	    newBrush = CreatePatternBrush(pixmap);
-SetWindow_viewBgBrush(hWnd, newBrush);
+	    SetWindow_viewBgBrush(hWnd, newBrush);
 /*
 *            SetBrushOrgEx(hDC, gcData->maskOrgX, gcData->maskOrgY, 0);
 */
-}
+	}
-RETURN (self);
+	RETURN (self);
 }
 %}.
 !
 setWindowBorderColor:aColorIndex in:aWindowId
 %{  /* NOCONTEXT */
 DPRINTF(("WinWorkstation [info]: setWindowBorderColor:in: not (yet) implemented\n"));
 if (__isExternalAddress(aWindowId)
 && __isSmallInteger(aColorIndex)) {
-HWND win = _HWNDVal(aWindowId);
+	HWND win = _HWNDVal(aWindowId);
-int clr;
+	int clr;
-if (GetParent(win) != 0) {
+	if (GetParent(win) != 0) {
-clr = st2RGB(__intVal(aColorIndex), 0);
+	    clr = st2RGB(__intVal(aColorIndex), 0);
-SetWindow_bdColor(win, clr);
+	    SetWindow_bdColor(win, clr);
-{
+	    {
-/*
+		/*
-* force a redraw - even if we do not support
+		 * force a redraw - even if we do not support
-* border colors ... (see UIPainter code)
+		 * border colors ... (see UIPainter code)
-*/
+		 */
-RECT rect;
+		RECT rect;
-HRGN rgn;
+		HRGN rgn;
-GetWindowRect(win, &rect);
+		GetWindowRect(win, &rect);
-rgn = CreateRectRgn(rect.left, rect.top, rect.right, rect.bottom);
+		rgn = CreateRectRgn(rect.left, rect.top, rect.right, rect.bottom);
-DefWindowProcW(win, WM_NCPAINT, (WPARAM)rgn, 0);
+		DefWindowProcW(win, WM_NCPAINT, (WPARAM)rgn, 0);
-_DeleteObject(rgn, __LINE__);
+		_DeleteObject(rgn, __LINE__);
-}
+	    }
-}
+	}
 }
 %}.
 !
 setWindowBorderPixmap:aPixmapId in:aWindowId
 %{  /* NOCONTEXT */
 int bw = (aNumber == __MKSMALLINT(0)) ? 0 : 1;
 if (__isExternalAddress(aWindowId)) {
-HWND win = _HWNDVal(aWindowId);
+	HWND win = _HWNDVal(aWindowId);
-int gwl;
+	int gwl;
-gwl = GetWindowLong(win, GWL_STYLE);
+	gwl = GetWindowLong(win, GWL_STYLE);
-if (gwl & WS_CHILD) {
+	if (gwl & WS_CHILD) {
-SetWindow_bw(win, bw);
+	    SetWindow_bw(win, bw);
-if (bw) {
+	    if (bw) {
-gwl |= WS_BORDER;
+		gwl |= WS_BORDER;
-} else {
+	    } else {
-gwl &= ~WS_BORDER;
+		gwl &= ~WS_BORDER;
-}
+	    }
-SetWindowLong(win, GWL_STYLE, gwl);
+	    SetWindowLong(win, GWL_STYLE, gwl);
-/*
+	    /*
-* force a redraw - even if we do not support
+	     * force a redraw - even if we do not support
-* border colors ... (see UIPainter code)
+	     * border colors ... (see UIPainter code)
-*/
+	     */
 #if 0
-PostMessage(win, WM_NCPAINT, 0, 0);
+	    PostMessage(win, WM_NCPAINT, 0, 0);
 #endif
-{
+	    {
-RECT rect;
+		RECT rect;
-HRGN rgn;
+		HRGN rgn;
-GetWindowRect(win, &rect);
+		GetWindowRect(win, &rect);
-rgn = CreateRectRgn(rect.left, rect.top, rect.right, rect.bottom);
+		rgn = CreateRectRgn(rect.left, rect.top, rect.right, rect.bottom);
-DefWindowProcW(win, WM_NCPAINT, (WPARAM)rgn, 0);
+		DefWindowProcW(win, WM_NCPAINT, (WPARAM)rgn, 0);
-_DeleteObject(rgn, __LINE__);
+		_DeleteObject(rgn, __LINE__);
-}
+	    }
-}
+	}
 }
 %}.
 !
 setWindowClass:wClass name:wName in:aWindowId
 %{  /* NOCONTEXT */
 int gr = GRAVITY_NONE;
 if (__isExternalAddress(aWindowId)) {
-HWND hWnd = _HWNDVal(aWindowId);
+	HWND hWnd = _HWNDVal(aWindowId);
-localWindowInfo *lI;
+	localWindowInfo *lI;
-if (how == @symbol(South)) {
+	if (how == @symbol(South)) {
-gr = GRAVITY_S;
+	    gr = GRAVITY_S;
-} else if (how == @symbol(SouthWest)) {
+	} else if (how == @symbol(SouthWest)) {
-gr = GRAVITY_SW;
+	    gr = GRAVITY_SW;
-} else if (how == @symbol(SouthEast)) {
+	} else if (how == @symbol(SouthEast)) {
-gr = GRAVITY_SE;
+	    gr = GRAVITY_SE;
-} else if (how == @symbol(North)) {
+	} else if (how == @symbol(North)) {
-gr = GRAVITY_N;
+	    gr = GRAVITY_N;
-} else if (how == @symbol(NorthWest)) {
+	} else if (how == @symbol(NorthWest)) {
-gr = GRAVITY_NW;
+	    gr = GRAVITY_NW;
-} else if (how == @symbol(NorthEast)) {
+	} else if (how == @symbol(NorthEast)) {
-gr = GRAVITY_NE;
+	    gr = GRAVITY_NE;
-} else if (how == @symbol(East)) {
+	} else if (how == @symbol(East)) {
-gr = GRAVITY_E;
+	    gr = GRAVITY_E;
-} else if (how == @symbol(West)) {
+	} else if (how == @symbol(West)) {
-gr = GRAVITY_W;
+	    gr = GRAVITY_W;
-}
+	}
-lI = GETLOCALWINDOWINFOPTR(hWnd);
+	lI = GETLOCALWINDOWINFOPTR(hWnd);
-if (lI) {
+	if (lI) {
-lI->viewGravity = gr;
+	    lI->viewGravity = gr;
-}
+	}
 }
 %}.
 !
 setWindowIcon:aForm mask:aMaskForm in:aWindowId
 "set a windows icon & iconMask"
 |wiconId wmaskId wiconHeight wiconWidth|
 aForm notNil ifTrue:[
-wiconId := aForm id.
+	wiconId := aForm id.
-wiconHeight := aForm height.
+	wiconHeight := aForm height.
-wiconWidth  := aForm width.
+	wiconWidth  := aForm width.
-aMaskForm notNil ifTrue:[
+	aMaskForm notNil ifTrue:[
-wmaskId := aMaskForm id
+	    wmaskId := aMaskForm id
-].
+	].
-self
+	self
-primSetWindowIconId:wiconId
+	    primSetWindowIconId:wiconId
-maskId:wmaskId
+	    maskId:wmaskId
-width:wiconWidth
+	    width:wiconWidth
-height:wiconHeight
+	    height:wiconHeight
-in:aWindowId
+	    in:aWindowId
 ].
 !
 setWindowIconWindow:aView in:aWindowId
 "define a window to be used as icon.
 nil arguments are ignored."
 |minW minH maxW maxH|
 minExt notNil ifTrue:[
-minW := minExt x.
+	minW := minExt x.
-minH := minExt y.
+	minH := minExt y.
 ].
 maxExt notNil ifTrue:[
-maxW := maxExt x.
+	maxW := maxExt x.
-maxH := maxExt y.
+	maxH := maxExt y.
 ].
 %{
 if (__isExternalAddress(aWindowId)) {
-HWND win = _HWNDVal(aWindowId);
+	HWND win = _HWNDVal(aWindowId);
-RECT rec;
+	RECT rec;
-int winStyleBits;
+	int winStyleBits;
-int winExStyleBits;
+	int winExStyleBits;
-localWindowInfo *lI;
+	localWindowInfo *lI;
-if (win) {
+	if (win) {
-winStyleBits = GetWindowLong(win, GWL_STYLE);
+	    winStyleBits = GetWindowLong(win, GWL_STYLE);
-winExStyleBits = GetWindowLong(win, GWL_EXSTYLE);
+	    winExStyleBits = GetWindowLong(win, GWL_EXSTYLE);
-lI = GETLOCALWINDOWINFOPTR(win);
+	    lI = GETLOCALWINDOWINFOPTR(win);
-if (! lI) {
+	    if (! lI) {
-console_fprintf(stderr, "WinWorkstation [info]: oops - no localInfo in setMinMaxExt\n");
+		console_fprintf(stderr, "WinWorkstation [info]: oops - no localInfo in setMinMaxExt\n");
-RETURN (self);
+		RETURN (self);
-}
+	    }
-if (__bothSmallInteger(minW, minH)) {
+	    if (__bothSmallInteger(minW, minH)) {
-RECT rec;
+		RECT rec;
-rec.left = 0;
+		rec.left = 0;
-rec.top = 0;
+		rec.top = 0;
-rec.right = __intVal(minW);
+		rec.right = __intVal(minW);
-rec.bottom = __intVal(minH);
+		rec.bottom = __intVal(minH);
 #ifdef ADJUSTWINDOW
-AdjustWindowRectEx(&rec, winStyleBits, 0, winExStyleBits);
+		AdjustWindowRectEx(&rec, winStyleBits, 0, winExStyleBits);
 #endif
-lI->minWidth = rec.right - rec.left;
+		lI->minWidth = rec.right - rec.left;
-lI->minHeight = rec.bottom - rec.top;
+		lI->minHeight = rec.bottom - rec.top;
-}
+	    }
-if (__bothSmallInteger(maxW, maxH)) {
+	    if (__bothSmallInteger(maxW, maxH)) {
-RECT rec;
+		RECT rec;
-rec.left = 0;
+		rec.left = 0;
-rec.top = 0;
+		rec.top = 0;
-rec.right = __intVal(maxW);
+		rec.right = __intVal(maxW);
-rec.bottom = __intVal(maxH);
+		rec.bottom = __intVal(maxH);
 #ifdef ADJUSTWINDOW
-AdjustWindowRectEx(&rec, winStyleBits, 0, winExStyleBits);
+		AdjustWindowRectEx(&rec, winStyleBits, 0, winExStyleBits);
 #endif
-lI->maxWidth = rec.right - rec.left;
+		lI->maxWidth = rec.right - rec.left;
-lI->maxHeight = rec.bottom - rec.top;
+		lI->maxHeight = rec.bottom - rec.top;
-}
+	    }
-}
+	}
 }
 %}
 !
 setWindowName:aString in:aWindowId
 "define a windows name"
 %{  /* NOCONTEXT */
 if (__isExternalAddress(aWindowId)) {
-HWND win = _HWNDVal(aWindowId);
+	HWND win = _HWNDVal(aWindowId);
-wchar_t nameBuffer[ MAX_LABEL_SIZE ];
+	wchar_t nameBuffer[ MAX_LABEL_SIZE ];
-if (__isStringLike(aString)) {
+	if (__isStringLike(aString)) {
-ch2wch((char *)__stringVal(aString), nameBuffer, MAX_LABEL_SIZE);
+	    ch2wch((char *)__stringVal(aString), nameBuffer, MAX_LABEL_SIZE);
-SetWindowTextW(win, nameBuffer);
+	    SetWindowTextW(win, nameBuffer);
-RETURN (self);
+	    RETURN (self);
-}
+	}
-if (__isUnicode16String(aString)) {
+	if (__isUnicode16String(aString)) {
-int l = __unicode16StringSize(aString);
+	    int l = __unicode16StringSize(aString);
-if (l >= MAX_LABEL_SIZE) l = MAX_LABEL_SIZE-1;
+	    if (l >= MAX_LABEL_SIZE) l = MAX_LABEL_SIZE-1;
-memmove(nameBuffer, __unicode16StringVal(aString), l*sizeof(wchar_t));
+	    memmove(nameBuffer, __unicode16StringVal(aString), l*sizeof(wchar_t));
-nameBuffer[ l ] = 0;
+	    nameBuffer[ l ] = 0;
-SetWindowTextW(win, nameBuffer);
+	    SetWindowTextW(win, nameBuffer);
-RETURN (self);
+	    RETURN (self);
-}
+	}
 }
 %}
 "
 (StandardSystemView new label:'äöü') open
 "
 %{
 if (__isExternalAddress(aWindowId)
 && __bothSmallInteger(x, y)
 && __bothSmallInteger(w, h)) {
-HWND win = _HWNDVal(aWindowId);
+	HWND win = _HWNDVal(aWindowId);
-int left = __intVal(x);
+	int left = __intVal(x);
-int top = __intVal(y);
+	int top = __intVal(y);
-int right = left + __intVal(w);
+	int right = left + __intVal(w);
-int bottom = top + __intVal(h);
+	int bottom = top + __intVal(h);
-HRGN rgn;
+	HRGN rgn;
-HDC winDC;
+	HDC winDC;
-rgn = CreateEllipticRgn(left, top, right, bottom);
+	rgn = CreateEllipticRgn(left, top, right, bottom);
-if (rgn) {
+	if (rgn) {
-winDC = GetDCEx(win, 0, DCX_WINDOW);
+	    winDC = GetDCEx(win, 0, DCX_WINDOW);
-if (winDC) {
+	    if (winDC) {
 #ifdef GDIFLUSH_WHEN_CHANGING_CLIP
-GdiFlush();
+		GdiFlush();
 #endif
-if (SelectClipRgn(winDC, rgn) == ERROR ) {
+		if (SelectClipRgn(winDC, rgn) == ERROR ) {
-console_fprintf(stderr, "select clipping region failed\n");
+		    console_fprintf(stderr, "select clipping region failed\n");
-}
+		}
-ReleaseDC(win, winDC);
+		ReleaseDC(win, winDC);
-}
+	    }
-else
+	    else
-console_fprintf(stderr, "getDC failed\n");
+		console_fprintf(stderr, "getDC failed\n");
-_DeleteObject(rgn, __LINE__);
+	    _DeleteObject(rgn, __LINE__);
-}
+	}
-else
+	else
-console_fprintf(stderr, "region creation failed\n");
+	    console_fprintf(stderr, "region creation failed\n");
-RETURN ( self );
+	RETURN ( self );
 }
 %}.
 self primitiveFailed
 !
 |l|
 l := OrderedCollection new.
 self primEnumWindowsInto:l.
 l do:[:eachWindowId |
-(self getParentWindowIdOfWindowId:eachWindowId) isNil ifTrue:[
+	(self getParentWindowIdOfWindowId:eachWindowId) isNil ifTrue:[
-"/ a topView
+	    "/ a topView
-aBlock value:eachWindowId
+	    aBlock value:eachWindowId
-]
+	]
 ].
 ^ nil
 "
 Display topWindowIdsDo:[:id |
-|nm|
+	|nm|
-nm := String new:100.
+	nm := String new:100.
-Transcript showCR:id.
+	Transcript showCR:id.
-Display primGetWindowText:id into:nm size:nm size-1.
+	Display primGetWindowText:id into:nm size:nm size-1.
-Transcript showCR:nm.
+	Transcript showCR:nm.
 ].
 "
 "
 |w|
 Display topWindowIdsDo:[:id |
-|nm|
+	|nm|
-nm := String new:100.
+	nm := String new:100.
-Display primGetWindowText:id into:nm size:nm size-1.
+	Display primGetWindowText:id into:nm size:nm size-1.
-(nm includesString:'Mortal') ifTrue:[
+	(nm includesString:'Mortal') ifTrue:[
-w := id.
+	    w := id.
-]
+	]
 ].
 Display resizeWindow:w width:1024 height:1024
 "
 !
 "make a window invisible"
 %{  /* NOCONTEXT */
 if (__isExternalAddress(aWindowId)) {
-HWND win = _HWNDVal(aWindowId);
+	HWND win = _HWNDVal(aWindowId);
-if (win) {
+	if (win) {
-CPRINTF(("unmapWindow %x\n",win));
+	    CPRINTF(("unmapWindow %x\n",win));
-SetWindow_unmapping(win, 1);
+	    SetWindow_unmapping(win, 1);
-ShowWindowAsync(win, SW_HIDE);
+	    ShowWindowAsync(win, SW_HIDE);
-}
+	}
-RETURN ( self );
+	RETURN ( self );
 }
 %}
 !
 unmapWindow:aWindowId animation:animationSymbolorNil time:timeInMillisOrNil
 windowIsIconified:aWindowId
 "return true, if some window is iconified."
 %{  /* NOCONTEXT */
 if (__isExternalAddress(aWindowId)) {
-HWND win = _HWNDVal(aWindowId);
+	HWND win = _HWNDVal(aWindowId);
-if (win) {
+	if (win) {
-if (GetWindow_iconified(win)) {
+	    if (GetWindow_iconified(win)) {
-RETURN (true);
+		RETURN (true);
-}
+	    }
-}
+	}
 }
 %}.
 ^ false
 ! !
 enableScrollBar:howSymbol in:aWindowId
 "native scrollBar widget access"
 %{
 if (__isExternalAddress(aWindowId)) {
-HWND win = _HWNDVal(aWindowId);
+	HWND win = _HWNDVal(aWindowId);
-int how;
+	int how;
-if (howSymbol == @symbol(ENABLE_BOTH)) {
+	if (howSymbol == @symbol(ENABLE_BOTH)) {
-how = ESB_ENABLE_BOTH;
+	    how = ESB_ENABLE_BOTH;
-} else if (howSymbol == @symbol(DISABLE_LTUP)) {
+	} else if (howSymbol == @symbol(DISABLE_LTUP)) {
-how = ESB_DISABLE_LTUP;
+	    how = ESB_DISABLE_LTUP;
-} else if (howSymbol == @symbol(DISABLE_RTDN)) {
+	} else if (howSymbol == @symbol(DISABLE_RTDN)) {
-how = ESB_DISABLE_RTDN;
+	    how = ESB_DISABLE_RTDN;
-} else if (howSymbol == @symbol(DISABLE_BOTH)) {
+	} else if (howSymbol == @symbol(DISABLE_BOTH)) {
-how = ESB_DISABLE_BOTH;
+	    how = ESB_DISABLE_BOTH;
-} else {
+	} else {
-RETURN ( self );
+	    RETURN ( self );
-}
+	}
-NDPRINTF(("EnableScrollBar(%d)\n", how));
+	NDPRINTF(("EnableScrollBar(%d)\n", how));
-EnableScrollBar(win, SB_CTL, how);
+	EnableScrollBar(win, SB_CTL, how);
-RETURN ( self );
+	RETURN ( self );
 }
 %}.
 self primitiveFailed
 !
 "native scrollBar widget access"
 %{
 if (__isExternalAddress(aWindowId)
 && __isSmallInteger(sz)) {
-HWND win = _HWNDVal(aWindowId);
+	HWND win = _HWNDVal(aWindowId);
-SCROLLINFO info;
+	SCROLLINFO info;
-info.cbSize = sizeof(SCROLLINFO);
+	info.cbSize = sizeof(SCROLLINFO);
-info.nPage = __intVal(sz);
+	info.nPage = __intVal(sz);
-info.fMask = SIF_PAGE;
+	info.fMask = SIF_PAGE;
-NDPRINTF2(("SetScrollPage(%d)\n", __intVal(sz)));
+	NDPRINTF2(("SetScrollPage(%d)\n", __intVal(sz)));
-SetScrollInfo(win, SB_CTL, &info, redraw==true ? 1 : 0);
+	SetScrollInfo(win, SB_CTL, &info, redraw==true ? 1 : 0);
-RETURN ( self );
+	RETURN ( self );
 }
 %}.
 self primitiveFailed
 !
 "native scrollBar widget access"
 %{
 if (__isExternalAddress(aWindowId)
 && __isSmallInteger(newPosition)) {
-HWND win = _HWNDVal(aWindowId);
+	HWND win = _HWNDVal(aWindowId);
-NDPRINTF2(("SetScrollPos(%d)\n", __intVal(newPosition)));
+	NDPRINTF2(("SetScrollPos(%d)\n", __intVal(newPosition)));
-SetScrollPos(win, SB_CTL, __intVal(newPosition), redraw==true ? 1 : 0);
+	SetScrollPos(win, SB_CTL, __intVal(newPosition), redraw==true ? 1 : 0);
-RETURN ( self );
+	RETURN ( self );
 }
 %}.
 self primitiveFailed
 !
 "native scrollBar widget access"
 %{
 if (__isExternalAddress(aWindowId)
 && __bothSmallInteger(min, max)) {
-HWND win = _HWNDVal(aWindowId);
+	HWND win = _HWNDVal(aWindowId);
-NDPRINTF2(("SetScrollRange(%d..%d)\n", __intVal(min), __intVal(max)));
+	NDPRINTF2(("SetScrollRange(%d..%d)\n", __intVal(min), __intVal(max)));
-SetScrollRange(win, SB_CTL, __intVal(min), __intVal(max), redraw==true ? 1 : 0);
+	SetScrollRange(win, SB_CTL, __intVal(min), __intVal(max), redraw==true ? 1 : 0);
-RETURN ( self );
+	RETURN ( self );
 }
 %}.
 self primitiveFailed
 ! !
 !WinWorkstation::CopyDataStructStructure class methodsFor:'accessing'!
 sizeInBytes
 ExternalAddress pointerSize == 8 ifTrue:[
-^ 24.
+	^ 24.
 ].
 ^ 12
 ! !
 !WinWorkstation::CopyDataStructStructure class methodsFor:'instance creation'!
 !WinWorkstation::CopyDataStructStructure methodsFor:'accessing'!
 cbData
 ExternalAddress pointerSize == 8 ifTrue:[
-^ self unsignedInt32At: 8 + 1.
+	^ self unsignedInt32At: 8 + 1.
 ].
 ^ self unsignedInt32At: 4 + 1.
 !
 cbData: cbData
 ExternalAddress pointerSize == 8 ifTrue:[
-self unsignedInt32At: 8 + 1  put: cbData.
+	self unsignedInt32At: 8 + 1  put: cbData.
 ] ifFalse:[
-self unsignedInt32At: 4 + 1  put: cbData.
+	self unsignedInt32At: 4 + 1  put: cbData.
 ].
 !
 dwData
 ExternalAddress pointerSize == 8 ifTrue:[
-^ self unsignedInt64At: 0 + 1.
+	^ self unsignedInt64At: 0 + 1.
 ].
 ^ self unsignedInt32At: 0 + 1.
 !
 dwData: dwData
 ExternalAddress pointerSize == 8 ifTrue:[
-self unsignedInt64At: 0 + 1 put:dwData.
+	self unsignedInt64At: 0 + 1 put:dwData.
 ] ifFalse:[
-self unsignedInt32At: 0 + 1 put:dwData.
+	self unsignedInt32At: 0 + 1 put:dwData.
 ].
 !
 lpData
 ExternalAddress pointerSize == 8 ifTrue:[
-^ self unsignedInt64At: 16 + 1.
+	^ self unsignedInt64At: 16 + 1.
 ].
 ^ self unsignedInt32At: 8 + 1.
 !
 lpData: lpData
 ExternalAddress pointerSize == 8 ifTrue:[
-self unsignedInt64At: 16 + 1  put: lpData.
+	self unsignedInt64At: 16 + 1  put: lpData.
 ] ifFalse:[
-self unsignedInt32At: 8 + 1  put: lpData.
+	self unsignedInt32At: 8 + 1  put: lpData.
 ].
 ! !
 !WinWorkstation::MonitorInfo methodsFor:'accessing'!
 "return a rectangle representing the displays bounding box of the monitor"
 "/ ******* MULTI SCREEN ******
 ^ Rectangle
-left:screenX
+	left:screenX
-top:screenY
+	top:screenY
-width:workW - 1
+	width:workW - 1
-height:workH - 1
+	height:workH - 1
 !
 isPrimary
 ^ isPrimary
 !
 documentation
 "
 This is used as a finalization handle for printer contexts
 [see also:]
-DeviceHandle
+	DeviceHandle
 [author:]
-Claus Gittinger
+	Claus Gittinger
 "
 ! !
 !WinWorkstation::PrinterDeviceContextHandle methodsFor:'finalization'!
 "the PrintingContext for which I am a handle has been collected - tell it to Windows"
 |id|
 (id := gcId) notNil ifTrue:[
-gcId := nil.
+	gcId := nil.
-device destroyPrinterDC:id.
+	device destroyPrinterDC:id.
 ]
 ! !
 !WinWorkstation class methodsFor:'documentation'!

changeset 8538	23138b66fe48
parent 8536	130cc50076b4
child 8540	294088ce62be