summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/fs/partitioning_wizard.pm5
-rw-r--r--perl-install/install/NEWS1
2 files changed, 4 insertions, 2 deletions
diff --git a/perl-install/fs/partitioning_wizard.pm b/perl-install/fs/partitioning_wizard.pm
index f8030d83d..5c1e81b36 100644
--- a/perl-install/fs/partitioning_wizard.pm
+++ b/perl-install/fs/partitioning_wizard.pm
@@ -12,6 +12,7 @@ use fs::mount_point;
use partition_table;
use partition_table::raw;
use partition_table::dos;
+use POSIX qw(ceil);
#- unit of $mb is mega bytes, min and max are in sectors, this
#- function is used to convert back to sectors count the size of
@@ -310,7 +311,7 @@ sub create_display_box {
}
if($resize && $part && !$desc) {
$ev->set_name("PART_vfat");
- $w->set_size_request($ratio * $part->{min_win}, 0);
+ $w->set_size_request(ceil($ratio * $part->{min_win}), 0);
my $ev2 = Gtk2::EventBox->new();
my $b2 = Gtk2::Label->new("");
$ev2->add($b2);
@@ -322,7 +323,7 @@ sub create_display_box {
$hpane->child1_shrink(0);
$hpane->add2($ev2);
$hpane->child2_shrink(0);
- $hpane->set_position($ratio * $part->{min_win});
+ $hpane->set_position(ceil($ratio * $part->{min_win}));
ugtk2::gtkset_size_request($hpane, $ratio * $part->{size}, 30);
ugtk2::gtkpack__($display_box, $hpane);
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 1e13a808f..b05058ea2 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -2,6 +2,7 @@
o do not fail when a windows partition is corrupted
o add separator between solutions
o give more space between header and solutions
+ o prevent cursor to go under needed size because of rounding
Version 12.60.1 - 7 October 2009