From 3083354455ba72029917d8d6e7cf6c9d96ce1584 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Tue, 13 May 2003 19:11:46 +0000
Subject: better use s/_get/get/ and {get,set}_fraction instead of ->fraction
 helper

---
 perl-install/standalone/drakfont | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

(limited to 'perl-install/standalone')

diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont
index 9ecfccee4..bf0fa6c1f 100755
--- a/perl-install/standalone/drakfont
+++ b/perl-install/standalone/drakfont
@@ -744,7 +744,7 @@ sub file_ok_sel {
 
 sub list_remove() { #- TODO : multi-selection
     my ($treeStore, $iter) = $list->get_selection->get_selected;
-    my $to_remove = $treeStore->_get($iter, 0);
+    my $to_remove = $treeStore->get($iter, 0);
     my ($index) = map_index { if_($_ eq $to_remove, $::i) } @install;
     splice @install, $index, 1;
     $treeStore->remove($iter);
@@ -783,7 +783,7 @@ 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
-    foreach (@tux) { my $iter = $tree->get_iter($_); push @uninstall, $tree->_get($iter, 0) }
+    push @uninstall, $tree->get($tree->get_iter($_), 0) foreach @tux;
     #push @uninstall, $current_path . "/" . $files_path[$_] foreach @number_to_remove; garbage ?
     $$central_widget->destroy();
     show_list_to_remove();
@@ -911,10 +911,7 @@ sub import_status_uninstall() {
 
 sub progress {
     my ($progressbar, $incr, $label_text) = @_;
-    my ($new_val) = $progressbar->fraction;
-    $new_val += $incr;
-    if ($new_val > 1) { $new_val = 1 }
-    $progressbar->fraction($new_val);
+    $progressbar->set_fraction(min(1, $progressbar->get_fraction + $incr));
     $progressbar->set_text($label_text);
     gtkflush();
 }
-- 
cgit v1.2.1