網頁鏈接
對於確認信息的簡單對話框，如“您確定嗎？”可以參考Dialog.pm的內容，我們會在後面的問題中討論細節。
如果妳不想使用Tk::Dialog模塊，或者妳需要更復雜的函數，或者妳只想用基本組件獨立構建自己的窗口，那麽妳必須先在Perl/Tk中創建壹個頂層組件。UserGuide.pod中的第四個示例給出了如何調用Toplevel的簡單示例。)。以下是腳本中語句:
my $ main = new MainWindow
fill_window($main，' Main ')；
my $ top 1 = $ main-& gt；頂層；
這裏的fill_window子例程是在MainLoop語句之後定義的。運行這個腳本時，請特別註意這裏先彈出哪個窗口。哪個窗口當前在輸入設備的熱點中(即當前窗口)？並且三個窗口都打開後，當前窗口中的哪個組件是鍵盤鼠標的焦點？
使用Toplevel之後，不可避免的會引入使用grab的問題，也就是說，在那些獨立的窗口中，哪壹個是當前的活動窗口？又能激活什麽？要激活頂層窗口，可以使用以下grab語句:
$ Top _ widget-& gt；grap(grab _ option)；
這裏$Top_widget指的是要激活的頂層窗口(在上面的例子中可以是$top1或$top2)。Grap_option可以是全局的，但是從“分布式編程風格”()的角度來看，我們並不鼓勵。要將頂層設置為“本地熱點”，可以使用以下方法:
$ Top _ widget-& gt；搶；
即沒有任何參數。
使用Toplevel還會引入關於焦點的問題，即哪個窗口甚至窗口中的哪個組件是當前的“熱點”。您可以對整個頂層調用使用focus方法:
$ Top _ widget-& gt；專註；
然而，事實上，焦點更多地用於單個組件，而不是整個頂層。
要恢復最小化的窗口組件，實際上可以使用Popup方法，如下所示:
$ Top _ widget-& gt；popup()；