summaryrefslogtreecommitdiffstats
path: root/perl-install
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
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')
-rw-r--r--perl-install/NEWS2
-rw-r--r--perl-install/fs/partitioning_wizard.pm9
-rw-r--r--perl-install/install/NEWS2
3 files changed, 10 insertions, 3 deletions
diff --git a/perl-install/NEWS b/perl-install/NEWS
index 74fecd0df..94c770847 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -4,6 +4,8 @@
- partitioning wizard:
o initialize correctly labels for windows resizing
o fix labels for windows resizing when getting back to the screen
+ o offer to resize last big enough windows partition instead
+ of the first one, until user can chose
Version 12.65 - 14 October 2009
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;
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index b37607080..4a85ac570 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -2,6 +2,8 @@
- partitioning wizard:
o initialize correctly labels for windows resizing
o fix labels for windows resizing when getting back to the screen
+ o offer to resize last big enough windows partition instead
+ of the first one, until user can chose
Version 12.65 - 14 October 2009