summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-01-12 11:51:14 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-01-12 11:51:14 +0000
commit3abbaff18aa5575da74e6444facb31d3644cb6ee (patch)
tree88859e5f16ac33d1a76b0a73e0ae078404a27451 /perl-install/standalone
parent0f2d4ef3ac69951d2855a48e159bb4c6484ce805 (diff)
downloaddrakx-3abbaff18aa5575da74e6444facb31d3644cb6ee.tar
drakx-3abbaff18aa5575da74e6444facb31d3644cb6ee.tar.gz
drakx-3abbaff18aa5575da74e6444facb31d3644cb6ee.tar.bz2
drakx-3abbaff18aa5575da74e6444facb31d3644cb6ee.tar.xz
drakx-3abbaff18aa5575da74e6444facb31d3644cb6ee.zip
fix unstalling fonts
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/drakfont4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont
index 192e1d06d..3e6e10935 100755
--- a/perl-install/standalone/drakfont
+++ b/perl-install/standalone/drakfont
@@ -728,8 +728,8 @@ sub advanced_install() {
sub list_to_remove() {
#my @files_path = grep(!/fonts/, all($current_path)); garbage ?
gtkflush();
- my ($tree, @tux) = $left_list->get_selection->get_selected_rows; #- get tree & paths
- push @uninstall, map { $tree->get($tree->get_iter($_), 0) } @tux;
+ my (@tux) = $left_list->get_selection->get_selected_rows; #- get tree & paths
+ push @uninstall, map { $left_model->get($left_model->get_iter($_), 0) } @tux;
#push @uninstall, $current_path . "/" . $files_path[$_] foreach @number_to_remove; garbage ?
$$central_widget->destroy;
show_list_to_remove();