在Perl/Tk中隱藏窗口並再次顯示。所有部件

Question

我想隱藏一段時間的主窗口然後再顯示它。 實施例：

use Tk; 

my $mw = new MainWindow; 
my $lblMsg = $mw -> Label(-text=>"blabla")-> grid(); 
my $btnPostpone = $mw -> Button(-text=>"Postpone for (min): ", 
       -command =>\&postpone)-> grid(); 

MainLoop; 

sub postpone{ 
$mw-> withdraw(); 
sleep(1); 
$mw->deiconify(); 
$mw->raise(); 
sleep(1); 
exit; 
} 

與上面的代碼在主窗口將再次出現，但沒有所述窗口小部件被顯示。 我必須做些什麼才能讓所有東西看起來完全像隱藏前的樣子？

任何提示讚賞。

Answer 1

您需要先撥$mw->update();後raise()的主窗口。

Tcl Tk Wiki解釋了爲什麼在一個細節。