From 3abbaff18aa5575da74e6444facb31d3644cb6ee Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 12 Jan 2004 11:51:14 +0000 Subject: fix unstalling fonts --- perl-install/standalone/drakfont | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/standalone/drakfont') 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(); -- cgit v1.2.1