如何在tk中将所有小部件状态设置为禁用？

Question

有没有办法在单个proc中禁用tk窗口中的所有小部件？参数可以只是初始的顶级路径.

Answer 1

给定一个小部件,您可以使用[winfo children]获取该小部件的所有子节点.通过一个很小的递归过程,您可以对小部件树中的每个小部件进行操作.如果你想要懒惰,你通常也可以通过[info commands.*]获得所有小部件的列表.除非你的应用程序创建名称以"."开头的程序或图像,否则通常是足够好的.

大多数tk小部件都接受"-state"选项,而那些不支持的选项通常可以忽略,因为状态无关紧要(例如,框架小部件).因此,您可以迭代所有小部件并执行类似[catch {$ widget configure -state disabled}]的操作.如果您有异常的小部件需要通过其他方式启用或禁用(例如具有"state"子命令的ttk按钮),这将不起作用.

如果你有一个使用标准小部件的简单应用程序,这样的东西可能是足够好的:

proc disable_all {path} {
    catch {$path configure -state disabled}
    foreach child [winfo children $path] {
        disable_all $child
    }
}

为了精确控制,您可以使用"[winfo class $ widget]"来获取窗口小部件的类,并根据类执行不同的命令.