From ebaebfea9131996ab40428b27b6f7415aa9ff309 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 30 Jan 2004 15:37:17 +0000
Subject: add help method ->iter_each_children for Gtk2::TreeModel

---
 perl-install/ugtk2.pm | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'perl-install/ugtk2.pm')

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
-- 
cgit v1.2.1