summaryrefslogtreecommitdiffstats
path: root/perl-install/fs/partitioning_wizard.pm
diff options
context:
space:
mode:
authorPascal Terjan <pterjan@mandriva.org>2009-10-15 17:48:08 +0000
committerPascal Terjan <pterjan@mandriva.org>2009-10-15 17:48:08 +0000
commit33b710f83c1fe9e2e641383a22e48e1407dd47bb (patch)
treec480fa5bda6aa54ae7a3581566d07853dc0e8305 /perl-install/fs/partitioning_wizard.pm
parent3f7180214b0d40b825bb4d0bcb165252ec3a7ba1 (diff)
downloaddrakx-33b710f83c1fe9e2e641383a22e48e1407dd47bb.tar
drakx-33b710f83c1fe9e2e641383a22e48e1407dd47bb.tar.gz
drakx-33b710f83c1fe9e2e641383a22e48e1407dd47bb.tar.bz2
drakx-33b710f83c1fe9e2e641383a22e48e1407dd47bb.tar.xz
drakx-33b710f83c1fe9e2e641383a22e48e1407dd47bb.zip
offer to resize last big enough windows partition instead of the first one, until user can chose
Diffstat (limited to 'perl-install/fs/partitioning_wizard.pm')
-rw-r--r--perl-install/fs/partitioning_wizard.pm9
1 files changed, 6 insertions, 3 deletions
diff --git a/perl-install/fs/partitioning_wizard.pm b/perl-install/fs/partitioning_wizard.pm
index 3cbdb3e51..b1826f2be 100644
--- a/perl-install/fs/partitioning_wizard.pm
+++ b/perl-install/fs/partitioning_wizard.pm
@@ -297,6 +297,9 @@ sub create_display_box {
my $ev;
my $desc;
+ my $last;
+
+ $last = $resize->[-1] if $resize;
foreach my $entry (@parts) {
my $info = $entry->{device_LABEL};
my $w = Gtk2::Label->new($info);
@@ -304,10 +307,10 @@ sub create_display_box {
$ev = Gtk2::EventBox->new;
$ev->add($w);
my $part;
- if ($resize) {
- ($part) = grep { $_->{device} eq "$entry->{device}" } @$resize;
+ if ($last && $last->{device} eq "$entry->{device}") {
+ $part = $last;
}
- if ($resize && $part && !$desc) {
+ if ($part) {
$ev->set_name("PART_vfat");
$w->set_size_request(ceil($ratio * $part->{min_win}), 0);
my $ev2 = Gtk2::EventBox->new;