Tcl 如何在Linux中禁用鼠标滚轮事件

我想在某些情况下禁用combobox的鼠标滚轮事件，因此我使用以下示例代码：

ttk::combobox .cb -values {a b c} 
bind .cb <MouseWheel> break
pack .cb

---

这段代码在Windows下很好，但在Linux下不工作，而tcl/tk版本是相同的，如何修改它并在Linux下正常工作

在X11上，鼠标滚轮被映射到伪按钮事件，而不是因为X11中实际上没有类似的事件，这与Windows或OSX不同

if {[tk windowingsystem] eq "x11"} {
    bind .cb <4> break
    bind .cb <5> break
} else {
    bind .cb <MouseWheel> break
}

---

人们告诉我MouseWheel应该是仅限Windows的活动，并且您需要使用X下的扩展按钮。感谢您的帮助。