From df1116b0e2d65882122c7cd8fe03242c5a8b0d89 Mon Sep 17 00:00:00 2001 From: chengyemao Date: Tue, 4 Jan 2005 02:09:45 +0000 Subject: Modified for separating an embedded menu's window handler from a normal popup menu window's handler; improved an embedded menu display in Windows/XP --- win/tkWinMenu.c | 124 +++++++++++++++++++++++++++++++++++++++++++++++++++++--- win/tkWinWm.c | 14 +++---- 2 files changed, 125 insertions(+), 13 deletions(-) diff --git a/win/tkWinMenu.c b/win/tkWinMenu.c index 7daa307..6babc9b 100644 --- a/win/tkWinMenu.c +++ b/win/tkWinMenu.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkWinMenu.c,v 1.37 2004/12/28 08:45:31 chengyemao Exp $ + * RCS: @(#) $Id: tkWinMenu.c,v 1.38 2005/01/04 02:09:45 chengyemao Exp $ */ #define OEMRESOURCE @@ -23,6 +23,7 @@ */ #define MENU_CLASS_NAME "MenuWindowClass" +#define EMBEDDED_MENU_CLASS_NAME "EmbeddedMenuWindowClass" /* * Used to align a windows bitmap inside a rectangle @@ -60,6 +61,7 @@ typedef struct ThreadSpecificData { WORD lastCommandID; /* The last command ID we allocated. */ HWND menuHWND; /* A window to service popup-menu messages * in. */ + HWND embeddedMenuHWND; /* A window to service embedded menu messages */ int oldServiceMode; /* Used while processing a menu; we need * to set the event mode specially when we * enter the menu processing modal loop @@ -164,7 +166,9 @@ static void SetDefaults _ANSI_ARGS_((int firstTime)); static LRESULT CALLBACK TkWinMenuProc _ANSI_ARGS_((HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam)); - +static LRESULT CALLBACK TkWinEmbeddedMenuProc _ANSI_ARGS_((HWND hwnd, + UINT message, WPARAM wParam, + LPARAM lParam)); /* @@ -889,6 +893,95 @@ TkWinMenuProc(hwnd, message, wParam, lParam) /* *---------------------------------------------------------------------- * + * UpdateEmbeddedMenu -- + * + * This function is used as work-around for updating the pull-down + * window of an embedded menu which may show as a blank popup window. + * + * Results: + * Invalidate the client area of the embedded pull-down menu and + * redraw it. + * + * Side effects: + * Redraw the embedded menu window. + * + *---------------------------------------------------------------------- + */ + +static void UpdateEmbeddedMenu(ClientData clientData) { + RECT rc; + HWND hMenuWnd = (HWND)clientData; + GetClientRect(hMenuWnd, &rc); + InvalidateRect(hMenuWnd, &rc, FALSE); + UpdateWindow(hMenuWnd); +} + +/* + *---------------------------------------------------------------------- + * + * TkWinEmbeddedMenuProc -- + * + * This window proc is for the embedded menu windows. It provides + * message services to an embedded menu in a different process. + * + * Results: + * Returns 1 if the message has been handled or 0 otherwise. + * + * Side effects: + * None. + * + *---------------------------------------------------------------------- + */ + +static LRESULT CALLBACK +TkWinEmbeddedMenuProc(hwnd, message, wParam, lParam) + HWND hwnd; + UINT message; + WPARAM wParam; + LPARAM lParam; +{ + static nPopupMenus = 0, nIdles = 0; + LRESULT lResult = 1; + ThreadSpecificData *tsdPtr = (ThreadSpecificData *) + Tcl_GetThreadData(&dataKey, sizeof(ThreadSpecificData)); + + switch(message) { + case WM_ENTERIDLE: + if((wParam == MSGF_MENU) && (nIdles < 1) && (hwnd == tsdPtr->embeddedMenuHWND)) { + Tcl_CreateTimerHandler(200, UpdateEmbeddedMenu, (ClientData)lParam); + nIdles++; + } + break; + + case WM_INITMENUPOPUP: + nIdles = 0; + nPopupMenus++; + break; + + case WM_UNINITMENUPOPUP: + nPopupMenus--; + break; + + case WM_INITMENU: + case WM_SYSCOMMAND: + case WM_COMMAND: + case WM_MENUCHAR: + case WM_MEASUREITEM: + case WM_DRAWITEM: + case WM_MENUSELECT: + lResult = TkWinHandleMenuEvent(&hwnd, &message, &wParam, &lParam, &lResult); + if(lResult || (GetCapture() != hwnd)) break; + + default: + lResult = DefWindowProc(hwnd, message, wParam, lParam); + break; + } + return lResult; +} + +/* + *---------------------------------------------------------------------- + * * TkWinHandleMenuEvent -- * * Filters out menu messages from messages passed to a top-level. @@ -1022,7 +1115,6 @@ TkWinHandleMenuEvent(phwnd, pMessage, pwParam, plParam, plResult) break; } - case WM_MENUCHAR: { unsigned char menuChar = (unsigned char) LOWORD(*pwParam); hashEntryPtr = Tcl_FindHashEntry(&tsdPtr->winMenuTable, @@ -2892,6 +2984,9 @@ MenuExitHandler( DestroyWindow(tsdPtr->menuHWND); UnregisterClass(MENU_CLASS_NAME, Tk_GetHINSTANCE()); + + DestroyWindow(tsdPtr->embeddedMenuHWND); + UnregisterClass(EMBEDDED_MENU_CLASS_NAME, Tk_GetHINSTANCE()); } /* @@ -3074,11 +3169,30 @@ TkpMenuInit() wndClass.hbrBackground = (HBRUSH)(COLOR_WINDOW + 1); wndClass.lpszMenuName = NULL; wndClass.lpszClassName = MENU_CLASS_NAME; - RegisterClass(&wndClass); + if(!RegisterClass(&wndClass)) { + panic("Failed to register menu window class."); + } tsdPtr->menuHWND = CreateWindow(MENU_CLASS_NAME, "MenuWindow", WS_POPUP, 0, 0, 10, 10, NULL, NULL, Tk_GetHINSTANCE(), NULL); + if(!tsdPtr->menuHWND) { + panic("Failed to create the menu window."); + } + + wndClass.lpfnWndProc = TkWinEmbeddedMenuProc; + wndClass.lpszClassName = EMBEDDED_MENU_CLASS_NAME; + if(!RegisterClass(&wndClass)) { + panic ("Failed to register embedded menu window class."); + } + + tsdPtr->embeddedMenuHWND = CreateWindow(EMBEDDED_MENU_CLASS_NAME, "EmbeddedMenuWindow", WS_POPUP, + 0, 0, 10, 10, NULL, NULL, Tk_GetHINSTANCE(), NULL); + + if(!tsdPtr->embeddedMenuHWND) { + panic("Failed to create the embedded menu window."); + } + TkCreateExitHandler(MenuExitHandler, (ClientData) NULL); SetDefaults(1); } @@ -3110,7 +3224,7 @@ Tk_GetMenuHWND(tkwin) ThreadSpecificData *tsdPtr = (ThreadSpecificData *) Tcl_GetThreadData(&dataKey, sizeof(ThreadSpecificData)); TkMenuInit(); - return tsdPtr->menuHWND; + return tsdPtr->embeddedMenuHWND; } /* diff --git a/win/tkWinWm.c b/win/tkWinWm.c index 82795b4..3f0d4f8 100644 --- a/win/tkWinWm.c +++ b/win/tkWinWm.c @@ -12,7 +12,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkWinWm.c,v 1.86 2005/01/04 01:29:12 hobbs Exp $ + * RCS: @(#) $Id: tkWinWm.c,v 1.87 2005/01/04 02:09:46 chengyemao Exp $ */ #include "tkWinInt.h" @@ -7430,11 +7430,6 @@ WmProc(hwnd, message, wParam, lParam) winPtr = GetTopLevel(hwnd); switch(message) { case WM_SYSCOMMAND: - if (TkWinHandleMenuEvent(&hwnd, &message, &wParam, &lParam, &result)) { - goto done; - } - break; - case WM_INITMENU: case WM_COMMAND: case WM_MENUCHAR: @@ -7442,11 +7437,14 @@ WmProc(hwnd, message, wParam, lParam) case WM_DRAWITEM: case WM_MENUSELECT: case WM_ENTERIDLE: + case WM_INITMENUPOPUP: + case WM_UNINITMENUPOPUP: { HWND hMenuHWnd = Tk_GetEmbeddedMenuHWND((Tk_Window)winPtr); if(hMenuHWnd) { - SendMessage(hMenuHWnd, message, wParam, lParam); - goto done; + if(SendMessage(hMenuHWnd, message, wParam, lParam)) { + goto done; + } } else { if (TkWinHandleMenuEvent(&hwnd, &message, &wParam, &lParam, &result)) { goto done; -- cgit v0.12