Tk Optionmenu

[zackiv31]

After putting in all the options, is there any way to put a specific element of the options as the one that is selected. For me I want to put in the @array[1,2,3] and have the default choice be 3.. It seems to be random.

 

[raklet]

Add a value to the -variable option

The following example sets "red4" as the default value even though "Black" is first in the array list.

use Tk;
my $mw = MainWindow->new;
my $palette = 'red4';
my @colors = qw/Black red4 DarkGreen NavyBlue gray75 Red Green Blue
gray50 Yellow Cyan Magenta White Brown DarkSeaGreen DarkViolet/;

my $om = $mw->Optionmenu(
-variable => \$palette,
-options => [@colors],
-command => [sub {print "args=@_.\n"}, 'First'],
);
$om->pack;
MainLoop;

 

[zackiv31]

Not working for me...

I have @nodes = qw/n1 n2/;
my $variable = "n" . scalar(@nodes) #= n2;
$om -> configure(-variable => \$variable, -options = [@nodes]);

When I run this bit of code, it still selects n1..

 

[raklet]

When you use the $om->configure command, you have to use

-textvariable instead of -variable

Hth,
Raklet

 

[zackiv31]

Ahhh... great! Thank you!