summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/ugtk2.pm6
1 files changed, 6 insertions, 0 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index cb21fccf7..260d3e597 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -1511,6 +1511,12 @@ sub get_path_str {
$path->to_string;
}
+sub iter_each_children {
+ my ($model, $iter, $f) = @_;
+ for (my $child = $model->iter_children($iter); $child; $child = $model->iter_next($child)) {
+ $f->($child);
+ }
+}
package Gtk2::TreeView;
# likewise gtk-1.2 function