summaryrefslogtreecommitdiffstats
path: root/perl-install/ugtk2.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-01-26 15:40:09 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-01-26 15:40:09 +0000
commita2cb914c49a504da8c960e737a0c898688c4b64b (patch)
tree1872ac8eeb3db80c6d2b843f1be0ee1d8f1b58ff /perl-install/ugtk2.pm
parent3b76821ca701429c285d3dea2f7daf3af6e5abdc (diff)
downloaddrakx-backup-do-not-use-a2cb914c49a504da8c960e737a0c898688c4b64b.tar
drakx-backup-do-not-use-a2cb914c49a504da8c960e737a0c898688c4b64b.tar.gz
drakx-backup-do-not-use-a2cb914c49a504da8c960e737a0c898688c4b64b.tar.bz2
drakx-backup-do-not-use-a2cb914c49a504da8c960e737a0c898688c4b64b.tar.xz
drakx-backup-do-not-use-a2cb914c49a504da8c960e737a0c898688c4b64b.zip
add gtk_set_treelist
Diffstat (limited to 'perl-install/ugtk2.pm')
-rw-r--r--perl-install/ugtk2.pm7
1 files changed, 7 insertions, 0 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index 50a426b44..2f07efb3d 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -1414,6 +1414,13 @@ sub ask_browse_tree_info_given_widgets {
$w->{w}->main;
}
+sub gtk_set_treelist {
+ my ($treelist, $l) = @_;
+
+ my $list = $treelist->get_model;
+ $list->clear;
+ $list->append_set([ 0 => $_ ]) foreach @$l;
+}
# misc helpers: