summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-01-30 15:37:17 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-01-30 15:37:17 +0000
commitebaebfea9131996ab40428b27b6f7415aa9ff309 (patch)
treed513976b963b43763c0e910246c885e00a749696 /perl-install
parent0c47488c21e816263a0167476c91fc259f07e830 (diff)
downloaddrakx-ebaebfea9131996ab40428b27b6f7415aa9ff309.tar
drakx-ebaebfea9131996ab40428b27b6f7415aa9ff309.tar.gz
drakx-ebaebfea9131996ab40428b27b6f7415aa9ff309.tar.bz2
drakx-ebaebfea9131996ab40428b27b6f7415aa9ff309.tar.xz
drakx-ebaebfea9131996ab40428b27b6f7415aa9ff309.zip
add help method ->iter_each_children for Gtk2::TreeModel
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