Tkx/tk——瞬态窗口

在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窗口的瞬态窗口
    ## 其他配置
    ...
    ###
}