Leser: 2
6 Einträge, 1 Seite |
1
2
3
4
5
6
7
$config{Pulldown} = $mw->Menu(-tearoff => 0);
$config{Stat} = $config{Pulldown}->add(
'command',
-label => "Unterhaltung starten",
-command => sub {}
);
$config{Pulldown}->entryconfigure($config{Stat}, -state => 'disabled');
Quoteaus Perldoc Tk::Menu
The add method returns an empty string.
1
2
3
my $m = $mw->Menu;
$m->add('command', -label => 'foo');
$m->entryconfigure($m->index('foo'), -state => 'disabled');
6 Einträge, 1 Seite |