summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/fs/partitioning_wizard.pm10
1 files changed, 5 insertions, 5 deletions
diff --git a/perl-install/fs/partitioning_wizard.pm b/perl-install/fs/partitioning_wizard.pm
index 455226735..b25c614cf 100644
--- a/perl-install/fs/partitioning_wizard.pm
+++ b/perl-install/fs/partitioning_wizard.pm
@@ -154,7 +154,7 @@ sub partitionWizardSolutions {
[ 20 - @ok_for_resize_fat, N("Use the free space on a Microsoft Windows® partition"),
sub {
my $part;
- if ($in->{interactive} ne 'gtk') {
+ if (!$in->isa('interactive::gtk')) {
$part = $in->ask_from_listf_raw({ messages => N("Which partition do you want to resize?"),
interactive_help_id => 'resizeFATChoose',
}, \&partition_table::description, \@ok_for_resize_fat) or return;
@@ -164,7 +164,7 @@ sub partitionWizardSolutions {
my $resize_fat = $part->{resize_fat} ;
my $min_win = $part->{min_win};
my $hd = fs::get::part2hd($part, $all_hds);
- if ($in->{interactive} ne 'gtk') {
+ if (!$in->isa('interactive::gtk')) {
$part->{size} > $min_linux + $min_swap + $min_freewin + $min_win or die N("Your Microsoft Windows® partition is too fragmented. Please reboot your computer under Microsoft Windows®, run the ``defrag'' utility, then restart the Mandriva Linux installation.");
}
$in->ask_okcancel('', formatAlaTeX(
@@ -181,7 +181,7 @@ Be careful: this operation is dangerous. If you have not already done so, you fi
When sure, press %s.", N("Next")))) or return;
my $oldsize = $part->{size};
- if($in->{interactive} ne 'gtk') {
+ if (!$in->isa('interactive::gtk')) {
my $mb_size = to_Mb($part->{size});
$in->ask_from(N("Partitionning"), N("Which size do you want to keep for Microsoft Windows® on partition %s?", partition_table::description($part)), [
{ label => N("Size"), val => \$mb_size, min => to_Mb($min_win), max => to_Mb($part->{size} - $min_linux - $min_swap), type => 'range' },
@@ -223,7 +223,7 @@ filesystem checks will be run on your next boot into Microsoft Windows®")) if $
[ 10, fsedit::is_one_big_fat_or_NT($hds) ? N("Remove Microsoft Windows®") : N("Erase and use entire disk"),
sub {
my $hd;
- if($in->{interactive} ne 'gtk') {
+ if (!$in->isa('interactive::gtk')) {
$hd = $in->ask_from_listf_raw({ messages => N("You have more than one hard drive, which one do you install linux on?"),
title => N("Partitioning"),
interactive_help_id => 'takeOverHdChoose',
@@ -462,7 +462,7 @@ sub main {
my $sol;
- if ($o->{interactive} eq 'gtk') {
+ if ($o->isa('interactive::gtk')) {
use ugtk2;
my $mainw = ugtk2->new(N("Partitioning"), %$o, if__($::main_window, transient => $::main_window));