如何在perl-Tk中以检查模式创建菜单检查按钮

Question

我想创建一个处于"已检查"状态的菜单栏检查按钮。

根据文档创建菜单栏检查按钮似乎会使其处于"未检查"状态。

如何在"已检查"状态（或onvalue状态）下创建它？

Answer 1

检查widget演示，单击菜单/1。菜单和级联（子菜单）当您点击级联时，点击Check Buttons-其中两个复选按钮被选中。相关代码位于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);

将变量设置为各自的onvalues也可以。