summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Terjan <pterjan@mandriva.org>2009-10-13 19:24:43 +0000
committerPascal Terjan <pterjan@mandriva.org>2009-10-13 19:24:43 +0000
commit56f6f9d3fc3a7d73cda942c7c2c9f6b2a360206a (patch)
tree7cb5725bcd12095f884f79882559f364a84a11f4 /perl-install
parent3f2f3079334bc9c776248ea7fb4b70b319ba669f (diff)
downloaddrakx-56f6f9d3fc3a7d73cda942c7c2c9f6b2a360206a.tar
drakx-56f6f9d3fc3a7d73cda942c7c2c9f6b2a360206a.tar.gz
drakx-56f6f9d3fc3a7d73cda942c7c2c9f6b2a360206a.tar.bz2
drakx-56f6f9d3fc3a7d73cda942c7c2c9f6b2a360206a.tar.xz
drakx-56f6f9d3fc3a7d73cda942c7c2c9f6b2a360206a.zip
o reduce drawings height
o fix windows resize width
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/NEWS2
-rw-r--r--perl-install/fs/partitioning_wizard.pm8
-rw-r--r--perl-install/install/NEWS2
3 files changed, 8 insertions, 4 deletions
diff --git a/perl-install/NEWS b/perl-install/NEWS
index 8808bc3a0..b5ec4d1dd 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,5 +1,7 @@
- partitioning wizard:
o allow using existing partition on all disks (#54478)
+ o reduce drawings height
+ o fix windows resize width
- use UTF-8 for zh_TW (#53976)
Version 12.64 - 12 October 2009
diff --git a/perl-install/fs/partitioning_wizard.pm b/perl-install/fs/partitioning_wizard.pm
index 1248f1171..6fe41bfa6 100644
--- a/perl-install/fs/partitioning_wizard.pm
+++ b/perl-install/fs/partitioning_wizard.pm
@@ -283,7 +283,7 @@ sub create_display_box {
$width -= 24 if $resize || $fill_empty;
my $minwidth = 40;
- my $display_box = ugtk2::gtkset_size_request(Gtk2::HBox->new(0,0), $width, 30);
+ my $display_box = ugtk2::gtkset_size_request(Gtk2::HBox->new(0,0), $width, 24);
my $ratio = $totalsectors ? ($width - @parts * ($minwidth+1)) / $totalsectors : 1;
while (1) {
@@ -321,8 +321,8 @@ sub create_display_box {
$hpane->child1_shrink(0);
$hpane->add2($ev2);
$hpane->child2_shrink(0);
- $hpane->set_position(ceil($ratio * $part->{min_win}));
- ugtk2::gtkset_size_request($hpane, $ratio * $part->{size}, 30);
+ $hpane->set_position(ceil($ratio * $part->{min_win} + $minwidth * $part->{min_win} / $part->{size}));
+ ugtk2::gtkset_size_request($hpane, $ratio * $part->{size} + $minwidth, 0);
ugtk2::gtkpack__($display_box, $hpane);
my $size = int($hpane->get_position / $ratio);
@@ -431,7 +431,7 @@ sub display_choices {
$item = Gtk2::EventBox->new;
my $b2 = Gtk2::Label->new("Mandriva");
$item->add($b2);
- $b2->set_size_request(516,30);
+ $b2->set_size_request(516,24);
$item->set_name("PART_ext4");
} elsif ($s eq 'diskdrake') {
} else {
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index a9c08ebda..9ac7d8c1b 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,6 +1,8 @@
- do not call obsolete Xconfig::default::config_keyboard function (#54541)
- partitioning wizard:
o allow using existing partition on all disks (#54478)
+ o reduce drawings height
+ o fix windows resize width
- make sure suggests are disabled in truly minimal install
- do not attempt to configure autologin if CAT_X is not selected
- use UTF-8 for zh_TW (#53976)