diff options
Diffstat (limited to 'perl-install/fs')
| -rw-r--r-- | perl-install/fs/partitioning_wizard.pm | 9 |
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; |