GTK/Perl 中的 TreeModelFilter - 关于 set_visible_func 的问题

Question

我正在尝试使用 GTK2::TreeModelFilter 过滤列表存储。我似乎无法在网上找到使用 perl 的示例，并且出现语法错误。有人可以帮助我使用下面的语法吗？ $unfiltered_store 是一个列表存储。

$filtered_store = Gtk2::TreeModeFilter->new($unfiltered_store);
$filtered_store->set_visible_func(get_end_products, $unfiltered_store);
$combobox = Gtk2::ComboBoxEntry->new($filtered_store,1);

然后在下面的某个地方：

 sub get_end_products {
      my ($a, $b) = @_;

      warn(Dumper(\$a));
      warn(Dumper(\$b));
      return true;     # Return all rows for now
 }

最终我要做的是查看listore ($unfiltered_store) 的第14 列，如果它是某个值，那么它会过滤到$filtered_store。

有人可以帮我解决这个问题的语法吗？我检查了一堆站点，但它们使用其他语言并使用不同的语法（例如“new_filter”——Perl GTK 不存在）。 这是我需要修复的最优雅的解决方案，我更愿意学习如何使用它，而不是使用暴力方法来提取和保存过滤后的数据。

Answer 1

过滤存储的set_visible_func 方法应该获得一个子引用作为第一个参数，但你没有在这里传递一个子引用：

$filtered_store->set_visible_func(get_end_products, $unfiltered_store);

这将改为调用子例程get_end_products，然后传递其返回值（这不是子引用）。要修复它，请在子名称前添加引用运算符 \&：

$filtered_store->set_visible_func(\&get_end_products, $unfiltered_store);

关于您在 cmets 中的其他问题： According to the documentation用户数据参数作为第三个​​参数传递给get_end_products，所以你应该这样定义它：

sub get_end_products {
      my ($model, $iter, $user_data) = @_;
      # Do something with $user_data
      return TRUE;
 }

如果由于某种原因$unfiltered_store 没有传递给get_end_products，您可以尝试使用匿名sub 来传递它，如下所示：

$filtered_store->set_visible_func(
    sub { get_end_products( $unfiltered_store) });