如何在perl Tk中以選中模式創建菜單檢查按鈕？

Question

我想創建一個菜單欄「check」狀態的checkbutton。

似乎根據文檔創建菜單欄檢查按鈕將創建一個「未選中」狀態。

我怎樣才能創建一個「檢查」狀態（或onvalue狀態）？

Answer 1

檢查widget演示，點擊菜單/ 1.菜單和級聯（子菜單）。當您點擊級聯那裏，點擊檢查按鈕 - 檢查兩個檢查按鈕。相關的代碼位於menus.pl：

my $cc = $c->cascade(-label => '~Check buttons', -tearoff => 0); 

$cc->checkbutton(-label => 'Oil checked', -variable => \$OIL); 
$cc->checkbutton(-label => 'Transmission checked', -variable => \$TRANS); 
$cc->checkbutton(-label => 'Brakes checked', -variable => \$BRAKES); 
$cc->checkbutton(-label => 'Lights checked', -variable => \$LIGHTS); 
# ... 
my $cc_menu = $cc->cget(-menu); 
$cc_menu->invoke(1); 
$cc_menu->invoke(3); 

將變量設置爲相應的值也有效。