如何在Tkx中使用复选按钮打印选定值

Question

我正在使用Tkx模块创建一个用@list中的文本值填充的窗口。然后我选择一个或多个，然后选择一个带有复选按钮的。我想在按下'OK‘按钮后打印已经选中的变量，但不知道如何将变量传递给'OK’-command => sub {}。谢谢。

use autodie;
use strict;
use warnings;
use Tkx;

my $mw = Tkx::widget->new( "." );
$mw->g_wm_title( "Listbox" );
$mw->m_configure( -background => "#191919" );

my $width = '700';
my $height = '500';

Tkx::update('idletasks'); 
$width  ||= Tkx::winfo('reqwidth',  $mw); 
$height ||= Tkx::winfo('reqheight', $mw); 

my $x = int((Tkx::winfo('screenwidth',  $mw) / 2) - ($width / 2)); 
my $y = int((Tkx::winfo('screenheight', $mw) / 2) - ($height / 2)); 

$mw->g_wm_geometry($width . "x" . $height . "+" . $x . "+" . $y);

my @list = ('TEXT1', 'TEXT2', 'TEXT3', 'TEXT4', 'TEXT5');

for my $list (@list) {
    my $cb = $mw->new_ttk__checkbutton(
        -text => $list,
        -onvalue => 1,
        -offvalue => 0,
    );
    $cb->g_pack(
        -anchor=>'w',
        -side=>'top',
        -fill => 'x'
    );
 }

 my $ok = $mw->new_button(
    -text => "OK",
    -command => sub {       
        print "Selected Values";
        Tkx::after(500, sub { $mw->g_destroy });
    },
);

$ok->g_pack(
   -anchor=>'c',
   -side=>'bottom',
);

Tkx::MainLoop();

Answer 1

如果您只想了解选中了哪些复选框：

my $settings;
for my $list (@list) {
    my $cb = $mw->new_ttk__checkbutton(
        -text => $list,
        -onvalue => 1,
        -offvalue => 0,
        -variable => \$settings->{checkbuttons}->{$list},
    );
    $cb->g_pack(
        -anchor=>'w',
        -side=>'top',
        -fill => 'x'
    );
 }

 my $ok = $mw->new_button(
    -text => "OK",
    -command => sub {       
        print "Selected Values: [";

        print join( ", ", grep { $settings->{checkbuttons}->{$_} } @list ), "]\n";
        Tkx::after(500, sub { $mw->g_destroy });
    },
);