tkinter

Question

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

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 a message should be sent by toggle F1 and the window should respond 使用此协议的命令。

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（它会为您响应 — 如果您在此处理程序中，事件循环是运行，这就是该协议正在检查的内容）和 WM_DELETE_WINDOW，但它还可以处理任何与 WM_DELETE_WINDOW 在消息级别完全相同的协议。 特别是，您无权访问事件的字段（隐式除外），并且不能发送对任何内容的响应。这意味着它可以处理 WM_SAVE_YOURSELF （旧的会话管理协议）但不能处理 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 进行开发， 因为我认为这是一个可以忽略的小功能更改到旧版本的补丁中）。

tkinter - wm_protocol 发送处理 WM_HELP 消息

tkinter - wm_protocol dosent handle the WM_HELP message

python

windows

tcl

python-3.x

X11

Windows