perl Tkでチェックモードでメニューチェックボタンを作成するには？

Question

「チェックされた」状態でメニューバーのチェックボタンを作成したいと思います。

マニュアルに従ってメニューバーのチェックボタンを作成すると、チェックされていない状態で作成されるようです。

「チェック済み」状態（またはオン値状態）で作成するにはどうすればよいですか？

Answer 1

widgetデモを確認し、メニュー/ 1.メニューとカスケード（サブメニュー）をクリックします。カスケードをクリックすると、チェックボタン - チェックボタンの2つがチェックされています。関連コードは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); 

変数をそれぞれのオン値に設定することもできます。