/* * tkWinInt.h -- * * This file contains declarations that are shared among the * Windows-specific parts of Tk, but aren't used by the rest of Tk. * * Copyright (c) 1995-1997 Sun Microsystems, Inc. * Copyright (c) 1998-2000 by Scriptics Corporation. * * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * * RCS: @(#) $Id: tkWinInt.h,v 1.31.2.1 2009/12/02 22:20:02 nijtmans Exp $ */ #ifndef _TKWININT #define _TKWININT #ifndef _TKINT #include "tkInt.h" #endif /* * Include platform specific public interfaces. */ #ifndef _TKWIN #include "tkWin.h" #endif #ifndef _TKPORT #include "tkPort.h" #endif /* * Define constants missing from older Win32 SDK header files. */ #ifndef WS_EX_TOOLWINDOW #define WS_EX_TOOLWINDOW 0x00000080L #endif /* * The TkWinDCState is used to save the state of a device context so that it * can be restored later. */ typedef struct TkWinDCState { HPALETTE palette; int bkmode; } TkWinDCState; /* * The TkWinDrawable is the internal implementation of an X Drawable (either a * Window or a Pixmap). The following constants define the valid Drawable * types. */ #define TWD_BITMAP 1 #define TWD_WINDOW 2 #define TWD_WINDC 3 typedef struct { int type; HWND handle; TkWindow *winPtr; } TkWinWindow; typedef struct { int type; HBITMAP handle; Colormap colormap; int depth; } TkWinBitmap; typedef struct { int type; HDC hdc; }TkWinDC; typedef union { int type; TkWinWindow window; TkWinBitmap bitmap; TkWinDC winDC; } TkWinDrawable; /* * The following macros are used to retrieve internal values from a Drawable. */ #define TkWinGetHWND(w) (((TkWinDrawable *) w)->window.handle) #define TkWinGetWinPtr(w) (((TkWinDrawable *) w)->window.winPtr) #define TkWinGetHBITMAP(w) (((TkWinDrawable *) w)->bitmap.handle) #define TkWinGetColormap(w) (((TkWinDrawable *) w)->bitmap.colormap) #define TkWinGetHDC(w) (((TkWinDrawable *) w)->winDC.hdc) /* * The following structure is used to encapsulate palette information. */ typedef struct { HPALETTE palette; /* Palette handle used when drawing. */ UINT size; /* Number of entries in the palette. */ int stale; /* 1 if palette needs to be realized, * otherwise 0. If the palette is stale, then * an idle handler is scheduled to realize the * palette. */ Tcl_HashTable refCounts; /* Hash table of palette entry reference * counts indexed by pixel value. */ } TkWinColormap; /* * The following macro retrieves the Win32 palette from a colormap. */ #define TkWinGetPalette(colormap) (((TkWinColormap *) colormap)->palette) /* * The following macros define the class names for Tk Window types. */ #define TK_WIN_TOPLEVEL_CLASS_NAME "TkTopLevel" #define TK_WIN_CHILD_CLASS_NAME "TkChild" /* * The following variable is a translation table between X gc functions and * Win32 raster and BitBlt op modes. */ MODULE_SCOPE int tkpWinRopModes[]; MODULE_SCOPE int tkpWinBltModes[]; /* * The following defines are used with TkWinGetBorderPixels to get the extra 2 * border colors from a Tk_3DBorder. */ #define TK_3D_LIGHT2 TK_3D_DARK_GC+1 #define TK_3D_DARK2 TK_3D_DARK_GC+2 /* * Internal functions used by more than one source file. */ #include "tkIntPlatDecls.h" #ifdef BUILD_tk #undef TCL_STORAGE_CLASS #define TCL_STORAGE_CLASS DLLEXPORT #endif /* * Special proc needed as tsd accessor function between * tkWinX.c:GenerateXEvent and tkWinClipboard.c:UpdateClipboard */ EXTERN void TkWinUpdatingClipboard(int mode); /* * Used by tkWinDialog.c to associate the right icon with tk_messageBox */ EXTERN HICON TkWinGetIcon(Tk_Window tkw, DWORD iconsize); /* * Used by tkWinX.c on for certain system display change messages and cleanup * up containers */ EXTERN void TkWinDisplayChanged(Display *display); MODULE_SCOPE void TkWinCleanupContainerList(void); /* * Used by tkWinWm.c for embedded menu handling. May become public. */ EXTERN HWND Tk_GetMenuHWND(Tk_Window tkwin); EXTERN HWND Tk_GetEmbeddedMenuHWND(Tk_Window tkwin); /* * The following structure keeps track of whether we are using the multi-byte * or the wide-character interfaces to the operating system. System calls * should be made through the following function table. * * While some system calls need to use this A/W jump-table, it is not * necessary for all calls to do it, which is why you won't see this used * throughout the Tk code, but only in key areas. -- hobbs */ typedef struct TkWinProcs { int useWide; LRESULT (WINAPI *callWindowProc)(WNDPROC lpPrevWndFunc, HWND hWnd, UINT Msg, WPARAM wParam, LPARAM lParam); LRESULT (WINAPI *defWindowProc)(HWND hWnd, UINT Msg, WPARAM wParam, LPARAM lParam); ATOM (WINAPI *registerClass)(const WNDCLASS *lpWndClass); BOOL (WINAPI *setWindowText)(HWND hWnd, LPCTSTR lpString); HWND (WINAPI *createWindowEx)(DWORD dwExStyle, LPCTSTR lpClassName, LPCTSTR lpWindowName, DWORD dwStyle, int x, int y, int nWidth, int nHeight, HWND hWndParent, HMENU hMenu, HINSTANCE hInstance, LPVOID lpParam); BOOL (WINAPI *insertMenu)(HMENU hMenu, UINT uPosition, UINT uFlags, UINT uIDNewItem, LPCTSTR lpNewItem); int (WINAPI *getWindowText)(HWND hWnd, LPCTSTR lpString, int nMaxCount); } TkWinProcs; EXTERN TkWinProcs *tkWinProcs; #undef TCL_STORAGE_CLASS #define TCL_STORAGE_CLASS DLLIMPORT /* * The following allows us to cache these encoding for multiple functions. */ MODULE_SCOPE Tcl_Encoding TkWinGetKeyInputEncoding(void); MODULE_SCOPE Tcl_Encoding TkWinGetUnicodeEncoding(void); MODULE_SCOPE void TkWinSetupSystemFonts(TkMainInfo *mainPtr); /* * Values returned by TkWinGetPlatformTheme. */ #define TK_THEME_WIN_CLASSIC 1 #define TK_THEME_WIN_XP 2 /* * The following is implemented in tkWinWm and used by tkWinEmbed.c */ void TkpWinToplevelWithDraw(TkWindow *winPtr); void TkpWinToplevelIconify(TkWindow *winPtr); void TkpWinToplevelDeiconify(TkWindow *winPtr); long TkpWinToplevelIsControlledByWm(TkWindow *winPtr); long TkpWinToplevelMove(TkWindow *winPtr, int x, int y); long TkpWinToplevelOverrideRedirect(TkWindow *winPtr, int reqValue); void TkpWinToplevelDetachWindow(TkWindow *winPtr); int TkpWmGetState(TkWindow *winPtr); /* * The following functions are not present in old versions of Windows * API headers but are used in the Tk source to ensure 64bit * compatability. */ #ifndef GetClassLongPtr # define GetClassLongPtrA GetClassLongA # define GetClassLongPtrW GetClassLongW # define SetClassLongPtrA SetClassLongA # define SetClassLongPtrW SetClassLongW # ifdef UNICODE # define GetClassLongPtr GetClassLongPtrW # define SetClassLongPtr SetClassLongPtrW # else # define GetClassLongPtr GetClassLongPtrA # define SetClassLongPtr SetClassLongPtrA # endif /* !UNICODE */ #endif /* !GetClassLongPtr */ #ifndef GCLP_HICON # define GCLP_HICON GCL_HICON #endif /* !GCLP_HICON */ #ifndef GCLP_HICONSM # define GCLP_HICONSM (-34) #endif /* !GCLP_HICONSM */ #ifndef GetWindowLongPtr # define GetWindowLongPtrA GetWindowLongA # define GetWindowLongPtrW GetWindowLongW # define SetWindowLongPtrA SetWindowLongA # define SetWindowLongPtrW SetWindowLongW # ifdef UNICODE # define GetWindowLongPtr GetWindowLongPtrW # define SetWindowLongPtr SetWindowLongPtrW # else # define GetWindowLongPtr GetWindowLongPtrW # define SetWindowLongPtr SetWindowLongPtrW # endif /* !UNICODE */ #endif /* !GetWindowLongPtr */ #ifndef GWLP_WNDPROC #define GWLP_WNDPROC GWL_WNDPROC #define GWLP_HINSTANCE GWL_HINSTANCE #define GWLP_HWNDPARENT GWL_HWNDPARENT #define GWLP_USERDATA GWL_USERDATA #define GWLP_ID GWL_ID #endif /* !GWLP_WNDPROC */ #endif /* _TKWININT */