例如在下面的腳本:選擇時會發生這樣我就可以使用下面的代碼 $popup->entryconfigure(1, -state=>'normal');
改變菜單項狀態 use Tk;
my $mw = new MainWindow;
my $t = $mw->Scrolled("Text")->pack;
my $popup = $mw->Menu(
-menuitems =>
我試圖添加標準文件打開,保存和新選項的菜單欄。 然而,處理打開,保存和新操作的子例程不是按照預期運行,而是在創建框架時啓動。但是,當我實際點擊它們時,事實並非如此。 以下是我正在使用的代碼。 (主窗口只包含菜單欄) #!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
use Data::Dumper;
use Tk 8
我開發了一個使用Perl/Tk的小應用程序。當應用程序中的其中一個按鈕被按下時,應用程序將從網絡獲取數據。但問題在於GUI在控制返回之前會變得懸而未決。我知道這是由於延遲導致主窗口無響應。我使用了update()函數,但問題仍然存在。所以我谷歌周圍,並知道我們可以使用線程來克服這個問題。但我不確定如何在Perl/Tk中使用線程。這裏是我的示例代碼 use warnings;
use Tk;
我想隱藏一段時間的主窗口然後再顯示它。 實施例: use Tk;
my $mw = new MainWindow;
my $lblMsg = $mw -> Label(-text=>"blabla")-> grid();
my $btnPostpone = $mw -> Button(-text=>"Postpone for (min): ",
-command =>\&p