Re: How to Change Defaults in Basic Tk Menu

Imitate a click on the radio button before starting the main loop:

my $wrap = $menu->entrycget(3, '-menu')->entrycget(3, '-menu');
$wrap->invoke(0);
[download]

Update: Another option is to set the associated variable to the expected value:

my $wrap = $menu->entrycget(3, '-menu')->entrycget(3, '-menu');
my $word = $wrap->entrycget(0, '-value');  # 'word'
${ $wrap->entrycget(0, '-variable') } = $word;
[download]

map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]

Comment on Re: How to Change Defaults in Basic Tk Menu Select or Download Code

Replies are listed 'Best First'.
Re^2: How to Change Defaults in Basic Tk Menu by haj (Vicar) on Aug 30, 2020 at 00:08 UTC
Note that for readability you can also use the labels instead of numerical indices: `my $wrap = $menu->entrycget('View','-menu')->entrycget('Wrap','-menu') +; $wrap->invoke('Word');` [download] @roho: I don't know how choroba did it, but I found out that you've been using a method `$more->menu` and failed to find documentation for it. This made me curious, and I found that this method gets you the hardcoded menu from the Tk::Text widget, only that you don't get a chance to set the `-wrap` option for this widget. The rest was a matter of digging through this menu and the Tk docs...	[reply] [d/l]
Re^3: How to Change Defaults in Basic Tk Menu by roho (Bishop) on Aug 30, 2020 at 04:57 UTC
Thanks for the follow-up info haj. This was indeed quite obscure. "It's not how hard you work, it's how much you get done."	[reply]
Re^2: How to Change Defaults in Basic Tk Menu by roho (Bishop) on Aug 29, 2020 at 23:29 UTC
Thank you choroba! I used your second option. It works perfectly. I searched but could not find anything remotely resembling the steps you laid out. How on earth (and from where) did you dig out those details? Thanks again. "It's not how hard you work, it's how much you get done."	[reply]
Re^3: How to Change Defaults in Basic Tk Menu by choroba (Cardinal) on Aug 30, 2020 at 14:01 UTC
Experience with Tk, documentation of Tk::Menu, plus Data::Dumper and a few lines like `print Dumper($menu->entrycget(0, '-menu')); print Dumper($menu->entrycget(0, '-menu')->entrycget(0, '-label'));` [download] `map{substr$_->[0],$_->[1]\|\|0,1}[\\|\|{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^ARGV,3]`	[reply] [d/l] [select]