Tkxtk——瞬态窗口

在Perl中使用Tkx模块调用tk

场景：当主窗口需要一个短期的窗口（如对话框、提示框、配置选项框等），而要求短期窗口暂时代表主窗口且能始终在主窗口之上。

实现：窗口管理器可以对窗口进行特别的处理。

## 配置高级选项 use Tkx; ## my $mw = Tkx::widget->new("."); ... ## sub advancedUI { my $parent = shift; my $adv = $parent->new_toplevel; ## toplevel 设置顶级窗口 $adv->g_wm_transient($parent); ## 设置$adv窗口是$parent窗口的瞬态窗口 ## 其他配置 ... ### }

关于toplevel建立顶级窗口，详见另一篇博文http://blog.csdn.net/aggressive_snail/article/details/54603216