Tcl/Tk：最大化窗口/确定窗口是否最大化？

Question

我能否查明我的顶层窗口是否已最大化，以及是否可以通过编程方式将其最大化？我在 Windows XP 上使用 R 的 tcltk 包 8.5。

问题的原因是：我想通过先调用撤回然后取消图标来强制 事件。但是，如果窗口在这两个函数调用之前最大化，则在这两个函数调用之后窗口不会最大化。有没有更简单的方法来执行该事件？

Answer 1

您可以通过 wm state $toplevel 发现窗口是否最大化（查找 zoomed 作为返回值）。但是……

操作系统无法在 Windows 上正确生成 事件；你只能在被映射的窗口上获得它们，这是微妙的不同。 （与 X 相比，Windows 告诉您的有关堆栈顺序及其后果的信息要少得多；Tk 非常接近 X 的模型。）不过，您没有说明为什么想要此事件；也许还有其他东西可以满足您的真正目的？

Answer 2

编写了一个函数，将可见性事件传播到给定的小部件及其所有子部件。

tkevent.propagate <- function(w,e) {
  tkevent.generate(w, e)
  children <- as.character(tkwinfo("children", w))
  if(length(children)>0) lapply(children, function(c) tkevent.propagate(c,e))
}

这样，我不需要调用withdraw/deiconify并将我的事件发送到每个小部件。