Tkx请教. [复制链接]

电梯直达

1楼 [收藏(0)] [报告]

发表于 2013-03-20 14:51 |只看该作者 |倒序浏览

@aa = qw/a b c d e f/;
use Tkx;
use Tkx::Scrolled;
my $mw = Tkx::widget->new(".");
my $lb = $mw->new_tkx_Scrolled("listbox", -scrollbars => "e", -selectmode => "multiple",-height => 10);
$lb->insert("end",@aa);
$lb->g_grid(-column => 0, -row => 0);
$l11 = $mw->new_ttk__button(-text=>'apply', -command=>\&yyk,);
$l11->g_grid(-column => 1, -row => 2);
Tkx::MainLoop();
sub yyk{
@idx = $lb->curselection; ##得到选择的所有
print"@idx";
}

复制代码

怎么样输出选中的列表？