diff options
| author | Sebastien Dupont <sdupont@mandriva.com> | 2002-01-15 04:09:10 +0000 |
|---|---|---|
| committer | Sebastien Dupont <sdupont@mandriva.com> | 2002-01-15 04:09:10 +0000 |
| commit | d391a40b454b02bc4e69b002fb2bcc87d28814ae (patch) | |
| tree | 78d2bc3c3d7e803f93b6c56ac232f7dbff52d2ca /perl-install/standalone/drakfont | |
| parent | 564cf94a56903bbe191d92fb2c5b11cf8ce0765d (diff) | |
| download | drakx-backup-do-not-use-d391a40b454b02bc4e69b002fb2bcc87d28814ae.tar drakx-backup-do-not-use-d391a40b454b02bc4e69b002fb2bcc87d28814ae.tar.gz drakx-backup-do-not-use-d391a40b454b02bc4e69b002fb2bcc87d28814ae.tar.bz2 drakx-backup-do-not-use-d391a40b454b02bc4e69b002fb2bcc87d28814ae.tar.xz drakx-backup-do-not-use-d391a40b454b02bc4e69b002fb2bcc87d28814ae.zip | |
fix progress bar problem.
Diffstat (limited to 'perl-install/standalone/drakfont')
| -rwxr-xr-x | perl-install/standalone/drakfont | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont index 63d63753d..48487eced 100755 --- a/perl-install/standalone/drakfont +++ b/perl-install/standalone/drakfont @@ -219,9 +219,9 @@ sub chk_empty_xfs_path { sub search_installed_fonts { list_fontpath(); - $interactive and progress($pbar, 0.01, _("Search installed fonts")); + $interactive and progress($pbar, 0.1, _("Search installed fonts")); push @installed_fonts, all($_) foreach @installed_fonts_path; - $interactive and progress($pbar, 1/4, _("Unselect fonts installed")); + $interactive and progress($pbar, 0.1, _("Unselect fonts installed")); } sub search_installed_fonts_full_path { @@ -251,7 +251,7 @@ sub search_windows_font { grep ( /$i$/, @font_list) or push @font_list, "$win_dir/$_->[1]/fonts/$i"; } } - $interactive && $nb_dir and progress($pbar, 1/4, _("done")); + $interactive && $nb_dir and progress($pbar, 1, _("done")); } if(!@font_list) { print "[35mdrakfont:: could not find any font in /win*/fonts [0m\n"; @@ -293,7 +293,7 @@ sub search_dir_font { } $interactive and progress($pbar, 0.50/@install, _("Reselect correct fonts")); } - $interactive and progress($pbar, 1/3, _("done")); + $interactive and progress($pbar, 1, _("done")); !@font_list && $interactive and display_error(_("could not find any font.\n")); } |