tcl - 如何在 tcl/tk 中制作可停靠窗口？

Question

tcl/Tk 中有没有办法使窗口可停靠，以便它可以独立存在，或者作为小部件嵌入另一个窗口中？

我正在使用 Tcl 8.4，升级不是一个选项。

Answer 1

您只能从 Tk 8.5 开始，它在命令中引入了wm manageandwm forget子wm命令。

有关详细信息，请参阅TIP #125或最近的 Tk 联机帮助页。

Tcl 8.4 在 11 年后报废，最后一个版本是 8.4.20，该行将不再有更新。

wm manage和的一个简单示例wm forget：

package require Tk 8.5

proc undock {b widget} {
    wm manage $widget
    $b configure -command [list dock $widget] -text "Dock"
}

proc dock {b widget} {
    wm forget $widget
    grid $widget -sticky news
    $b configure -command [list undock $widget] -text "Undock"    
}

frame .docked
button .docked.undock -command { undock .docked.undock .docked } -text "Undock"
grid .docked -sticky news
grid .docked.undock -sticky news