diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-01-30 15:37:17 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-01-30 15:37:17 +0000 |
| commit | ebaebfea9131996ab40428b27b6f7415aa9ff309 (patch) | |
| tree | d513976b963b43763c0e910246c885e00a749696 /perl-install | |
| parent | 0c47488c21e816263a0167476c91fc259f07e830 (diff) | |
| download | drakx-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.pm | 6 |
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 |