TCL \ TK Resize窗口:绑定

时间:2017-03-09 18:19:46

标签: tcl tk

我在调整窗口大小时遇到​​问题,我不明白为什么,当我移动窗口时.我使用.c bind cir <1> [list window %x %y]创建的另一个窗口不跟随我的窗口{{1} } 我相信我可以使用.作为选项,但我不知道该怎么做

感谢您的帮助

我的代码如下:

<Configure>

1 个答案:

答案 0 :(得分:4)

一般来说,将一组窗户整体移动是一个糟糕的GUI设计;它让用户感到困惑。那说......

<Configure>事件会在“重新配置”时发送到窗口小部件,这些日子大部分都意味着它的位置相对于其父和大小会被更改。你必须使用主bind命令,如果你bind到一个顶层,你需要记住,toplevels也会默认监听他们的非顶级子项生成的事件;你通常需要一些过滤。

bind . <Configure> {
    if {"%W" eq [winfo toplevel %W]} {
        puts "reconfigured %W: (%x,%y) %wx%h"
    }
}

获得所需的过滤事件后,计算更新后的几何图形并将其应用于wm geometry