python - tkinter - wm 协议(protocol)不处理 WM_HELP 消息

Question

tkinter 是否只处理已知的协议(protocol)？如果是这样，那对我来说似乎毫无用处。如果不是，我不确定为什么这段代码在微软下对我有用。

import tkinter as tk
def lol():
    print('hi')

root = tk.Tk()

menu = tk.Menu(root)
root.config(menu=menu)
filemenu = tk.Menu(menu)
menu.add_cascade(label="File", menu=filemenu)
filemenu.add_command(label="New")

root.wm_protocol('WM_HELP',lol)
root.mainloop()

据我了解this应通过切换 F1 发送消息，窗口应为 respond使用此协议(protocol)的命令。

Answer 1

X11

在 Tk(Tkinter 下的库)的 X11 实现的底部是 this code ，我在没有注释的情况下复制到这里:

void
TkWmProtocolEventProc(
    TkWindow *winPtr,
    XEvent *eventPtr)
{
    WmInfo *wmPtr;
    ProtocolHandler *protPtr;
    Atom protocol;
    int result;
    const char *protocolName;
    Tcl_Interp *interp;

    protocol = (Atom) eventPtr->xclient.data.l[0];

    if (protocol == Tk_InternAtom((Tk_Window) winPtr, "_NET_WM_PING")) {
        Window root = XRootWindow(winPtr->display, winPtr->screenNum);

        eventPtr->xclient.window = root;
        (void) XSendEvent(winPtr->display, root, False,
                (SubstructureNotifyMask|SubstructureRedirectMask), eventPtr);
        return;
    }

    wmPtr = winPtr->wmInfoPtr;
    if (wmPtr == NULL) {
        return;
    }

    protocolName = Tk_GetAtomName((Tk_Window) winPtr, protocol);
    for (protPtr = wmPtr->protPtr; protPtr != NULL;
            protPtr = protPtr->nextPtr) {
        if (protocol == protPtr->protocol) {
            Tcl_Preserve(protPtr);
            interp = protPtr->interp;
            Tcl_Preserve(interp);
            result = Tcl_EvalEx(interp, protPtr->command, -1, TCL_EVAL_GLOBAL);
            if (result != TCL_OK) {
                Tcl_AppendObjToErrorInfo(interp, Tcl_ObjPrintf(
                        "\n    (command for \"%s\" window manager protocol)",
                        protocolName));
                Tcl_BackgroundException(interp, result);
            }
            Tcl_Release(interp);
            Tcl_Release(protPtr);
            return;
        }
    }

    if (protocol == Tk_InternAtom((Tk_Window) winPtr, "WM_DELETE_WINDOW")) {
        Tk_DestroyWindow((Tk_Window) wmPtr->winPtr);
    }
}

基本上，Tk 只真正处理 _NET_WM_PING(它会为您响应——如果您在这个处理程序中，事件循环正在运行，这就是该协议(protocol)正在检查的内容)和 WM_DELETE_WINDOW，但它也可以处理任何协议(protocol)它与消息级别的 WM_DELETE_WINDOW 完全相同。 特别是，您无法访问事件的字段(隐式除外)，并且无法发送对任何内容的响应。这意味着它可以处理 WM_SAVE_YOURSELF(旧的 session 管理协议(protocol))但不能处理 WM_TAKE_FOCUS(并且不需要；Tk 有自己的焦点管理，就像现在的所有其他应用程序一样)。我们欢迎 _NET_WM_SYNC_REQUEST 的实现，但它不是一个高优先级。

Windows

在 Windows 上，有一些额外的处理。特别是， WM_HELP 看起来应该由 TkTranslateWinEvent 处理。

int
TkTranslateWinEvent(
    HWND hwnd,
    UINT message,
    WPARAM wParam,
    LPARAM lParam,
    LRESULT *resultPtr)
{
    *resultPtr = 0;
    switch (message) {
    case WM_RENDERFORMAT: {
        TkWindow *winPtr = (TkWindow *) Tk_HWNDToWindow(hwnd);

        if (winPtr) {
            TkWinClipboardRender(winPtr->dispPtr, wParam);
        }
        return 1;
    }

    case WM_RENDERALLFORMATS: {
        TkWindow *winPtr = (TkWindow *) Tk_HWNDToWindow(hwnd);

        if (winPtr && OpenClipboard(hwnd)) {
            if (GetClipboardOwner() == hwnd) {
                TkWinClipboardRender(winPtr->dispPtr, CF_TEXT);
            }
            CloseClipboard();
        }
        return 1;
    }

    case WM_COMMAND:
    case WM_NOTIFY:
    case WM_VSCROLL:
    case WM_HSCROLL: {
        HWND target = (message == WM_NOTIFY)
                ? ((NMHDR*)lParam)->hwndFrom : (HWND) lParam;

        if (target && target != hwnd) {
            *resultPtr = SendMessageW(target, message, wParam, lParam);
            return 1;
        }
        break;
    }

    case WM_LBUTTONDOWN:
    case WM_LBUTTONDBLCLK:
    case WM_MBUTTONDOWN:
    case WM_MBUTTONDBLCLK:
    case WM_RBUTTONDOWN:
    case WM_RBUTTONDBLCLK:
    case WM_XBUTTONDOWN:
    case WM_XBUTTONDBLCLK:
    case WM_LBUTTONUP:
    case WM_MBUTTONUP:
    case WM_RBUTTONUP:
    case WM_XBUTTONUP:
    case WM_MOUSEMOVE:
        TkWinPointerEvent(hwnd, (short) LOWORD(lParam), (short) HIWORD(lParam));
        return 1;

    case WM_SYSKEYDOWN:
    case WM_KEYDOWN:
        if (wParam == VK_PACKET) {
            *resultPtr =
                PostMessageW(hwnd, message, HIWORD(lParam), LOWORD(lParam));
            return 1;
        }
        /* fall through */
    case WM_CLOSE:
    case WM_SETFOCUS:
    case WM_KILLFOCUS:
    case WM_DESTROYCLIPBOARD:
    case WM_UNICHAR:
    case WM_CHAR:
    case WM_SYSKEYUP:
    case WM_KEYUP:
    case WM_MOUSEWHEEL:
    case WM_MOUSEHWHEEL:
        GenerateXEvent(hwnd, message, wParam, lParam);
        return 1;
    case WM_MENUCHAR:
        GenerateXEvent(hwnd, message, wParam, lParam);
        *resultPtr = MAKELONG (0, MNC_CLOSE);
        return 1;
    }
    return 0;
}

如您所见，它不处理它。如果是这样的话，映射它以生成 <KeyPress-Help> 事件可能是正确的方法(是的，这是一个真实的事件，由于标准键盘布局不同，您在 Windows 上永远看不到)。这还需要更改 GenerateXEvent(同一文件，就在下面)。

我不知道 DefWindowProcW 和 WM_HELP 有什么关系；这是 Windows 中事件的最后手段的功能，而这绝对是这些事件目前的去向。

---

可以更改其中的任何内容，但确实需要在 GUI 编程级别上进行一些 C 编程，而这几乎无人能及。可以在 https://core.tcl-lang.org/tk/tktnew 上提交补丁(在这种情况下，我建议针对 core-8-5-branch 进行开发，，因为我认为这是一个小的功能更改，可以添加到旧版本的补丁中)。