summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_gtk.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-04-17 15:42:29 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-04-17 15:42:29 +0000
commitdddfb90059117e6dde52c09e79ba0c8672942b53 (patch)
tree351bfc56411ea5e33782e579e7291ed783023b4c /perl-install/install_steps_gtk.pm
parente2ab672b87d900beabb21632833e2f97d475b09a (diff)
downloaddrakx-dddfb90059117e6dde52c09e79ba0c8672942b53.tar
drakx-dddfb90059117e6dde52c09e79ba0c8672942b53.tar.gz
drakx-dddfb90059117e6dde52c09e79ba0c8672942b53.tar.bz2
drakx-dddfb90059117e6dde52c09e79ba0c8672942b53.tar.xz
drakx-dddfb90059117e6dde52c09e79ba0c8672942b53.zip
no_comment
Diffstat (limited to 'perl-install/install_steps_gtk.pm')
-rw-r--r--perl-install/install_steps_gtk.pm12
1 files changed, 7 insertions, 5 deletions
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index 651259c84..2c61db33b 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -122,7 +122,7 @@ sub new($$) {
sub enteringStep {
my ($o, $step) = @_;
- print _("Entering step `%s'\n", $o->{steps}{$step}{text});
+ print _("Entering step `%s'\n", translate($o->{steps}{$step}{text}));
$o->SUPER::enteringStep($step);
create_steps_window($o);
create_help_window($o);
@@ -189,9 +189,11 @@ sub doPartitionDisks {
if ($o->{lnx4win}) {
eval { install_steps::doPartitionDisks(@_) };
- $@ =~ /no fat/ or return;
-
- $o->ask_warn('', _("You don't have any windows partitions!"));
+ if ($@ =~ /no fat/) {
+ $o->ask_warn('', _("You don't have any windows partitions!"));
+ } elsif ($@ =~ /not enough room/) {
+ $o->ask_warn('', _("You don't have any enough room for Lnx4win"));
+ } else { return }
delete $o->{lnx4win};
}
if ($::beginner && fsedit::is_one_big_fat($hds)) {
@@ -201,7 +203,7 @@ sub doPartitionDisks {
my $min_freewin = 300 << 11;
my ($part) = fsedit::get_fstab(@{$o->{hds}});
- my $w = $o->wait_message(_("Resizing"), _("Computing fat filesystem bounds"));
+ my $w = $o->wait_message(_("Resizing"), _("Computing FAT filesystem bounds"));
my $resize_fat = eval { resize_fat::main->new($part->{device}, devices::make($part->{device})) };
$@ and goto diskdrake;
my $min_win = $resize_fat->min_size;