From dddfb90059117e6dde52c09e79ba0c8672942b53 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 17 Apr 2000 15:42:29 +0000 Subject: no_comment --- perl-install/install_steps_gtk.pm | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) (limited to 'perl-install/install_steps_gtk.pm') 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; -- cgit v1.2.1