summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakfont
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-05-13 19:11:46 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-05-13 19:11:46 +0000
commit3083354455ba72029917d8d6e7cf6c9d96ce1584 (patch)
treecbb4b671b79a4bf580826622c8e31082cf59dfa9 /perl-install/standalone/drakfont
parentb055b48b8c6f484cb49f705f27a2e51b641b16bc (diff)
downloaddrakx-3083354455ba72029917d8d6e7cf6c9d96ce1584.tar
drakx-3083354455ba72029917d8d6e7cf6c9d96ce1584.tar.gz
drakx-3083354455ba72029917d8d6e7cf6c9d96ce1584.tar.bz2
drakx-3083354455ba72029917d8d6e7cf6c9d96ce1584.tar.xz
drakx-3083354455ba72029917d8d6e7cf6c9d96ce1584.zip
better use s/_get/get/ and {get,set}_fraction instead of ->fraction
helper
Diffstat (limited to 'perl-install/standalone/drakfont')
-rwxr-xr-xperl-install/standalone/drakfont9
1 files changed, 3 insertions, 6 deletions
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();
}