perl - Gtk2::SimpleList 的布尔列：如何捕获信号？

Question

如何在 Gtk2::SimpleList 中捕获布尔切换复选框的切换？

我知道复选框本身是一个 Gtk2::CellRendererToggle，它发出一个toggled信号，但我如何访问它并设置一个信号处理程序？

我什至如何在 SimpleList 小部件中捕获数据编辑事件？

use Glib qw(TRUE FALSE);
use Gtk2 '-init';
use Gtk2::SimpleList;

my $slist = Gtk2::SimpleList->new(
    'Bool Field'    => 'bool',
    'Text Field'    => 'text'
);
$slist->set_column_editable(1, TRUE);

@{$slist->{data}} = (
    [ TRUE, 'text' ],
    [ FALSE, 'more text' ]
);

my $window = Gtk2::Window->new;
$window->set_border_width(8);
$window->signal_connect(destroy => sub { exit(0); });
$window->add($slist);
$window->show_all;

Gtk2->main;

Answer 1

在深入到 SimpleList.pm 之后，我想出了下面的代码，它似乎可以工作。虽然它不是很直观。

# bool column
my $col = $slist->get_column(0);
my $r = $col->get_cell_renderers;
$r->signal_connect(toggled => sub {
    my ($widget, $value, $args) = @_;
    print "checkbox toggled to $value\n";
});

# text column
($slist->get_column(1))->get_cell_renderers->signal_connect(
    edited => sub {
        my ($widget, $text_path, $new_text, $args) = @_;
        print "new text is $new_text\n";
    }
);