如何在TopLevel窗口上打開並抓取窗口

Question

我想在頂層窗口中打開一個窗口，直到該窗口打開，我應該無法移回到以前打開的任何窗口。這裏是我的代碼：

$mw = MainWindow->new; # This will make my main Window 
$mw->title("Main Window"); 
$menubar = $mw->Menu; 
$mw->configure(-menu => $menubar); 

$sub_window=$menubar->cascade(-label => 'Menu',-tearoff => 0); 
$sub_window->command(-label => 'Sub_Menu_Window',-command=>\&Open_window); # I've placed a sub menu which will open new window on main window. 

sub Open_window 
{ 
$mw=shift; 
$new_wind =$mw->Toplevel(-title => "New Sub Window"); 
$new_wind->grab; #here i have opened a new window and I won't be able to go back to my main window unless I will close this because of grab. 

$new_wind ->Button(-text=>"another_window",-command =>\&AnotherWindow) ->pack(); 

    sub AnotherWindow 
    { 
        # What Code Should I enter here to open a new window when I press button "another_window". ALso I want that until this window is closed I should not be able to work with other window previously opened.(Same as grab used with toplevel window) 
    } 

} 
MainLoop; 

我想使這個AnotherWindow一樣喜歡頂層窗口，所以，當我按下按鈕，直到窗口將保持打開狀態，我不能與任何其他打開的窗口工作。

Answer 1

我們可以這樣做：

sub AnotherWindow 
{ 
    $window_over_top_level =$new_wind->Toplevel(-title => "Window Over Top Level With Grab"); 
$window_over_top_level->geometry("270x380"); 
$window_over_top_level->grab; 
}