diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-01-26 15:40:09 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-01-26 15:40:09 +0000 |
| commit | a2cb914c49a504da8c960e737a0c898688c4b64b (patch) | |
| tree | 1872ac8eeb3db80c6d2b843f1be0ee1d8f1b58ff /perl-install | |
| parent | 3b76821ca701429c285d3dea2f7daf3af6e5abdc (diff) | |
| download | drakx-a2cb914c49a504da8c960e737a0c898688c4b64b.tar drakx-a2cb914c49a504da8c960e737a0c898688c4b64b.tar.gz drakx-a2cb914c49a504da8c960e737a0c898688c4b64b.tar.bz2 drakx-a2cb914c49a504da8c960e737a0c898688c4b64b.tar.xz drakx-a2cb914c49a504da8c960e737a0c898688c4b64b.zip | |
add gtk_set_treelist
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/ugtk2.pm | 7 |
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: |