summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Terjan <pterjan@gmail.com>2015-04-19 23:37:53 +0000
committerPascal Terjan <pterjan@gmail.com>2015-04-20 20:45:56 +0000
commitc57eea38c00d04ad3025024045a15840c62a8806 (patch)
treee85d8229866c4d62caa1f677db4d8e23bc7e3fe4 /perl-install
parentf8eadc36b9826e8f703ca12ea0e2b9f929b05f0e (diff)
downloaddrakx-c57eea38c00d04ad3025024045a15840c62a8806.tar
drakx-c57eea38c00d04ad3025024045a15840c62a8806.tar.gz
drakx-c57eea38c00d04ad3025024045a15840c62a8806.tar.bz2
drakx-c57eea38c00d04ad3025024045a15840c62a8806.tar.xz
drakx-c57eea38c00d04ad3025024045a15840c62a8806.zip
Fix ugly separator between partitions
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/fs/partitioning_wizard.pm7
1 files changed, 1 insertions, 6 deletions
diff --git a/perl-install/fs/partitioning_wizard.pm b/perl-install/fs/partitioning_wizard.pm
index 316e2f1b9..72e3eb8f0 100644
--- a/perl-install/fs/partitioning_wizard.pm
+++ b/perl-install/fs/partitioning_wizard.pm
@@ -304,6 +304,7 @@ sub create_display_box {
my $minwidth = 40;
my $display_box = ugtk3::gtkset_size_request(Gtk3::HBox->new(0,0), -1, 26);
+ $display_box->set_spacing(1);
my $sep_count = @parts - 1;
#- ratio used to compute initial partition pixel width (each partition should be > min_width)
@@ -312,7 +313,6 @@ sub create_display_box {
my $vbox = Gtk3::VBox->new;
- my $part_sep;
my $desc;
if ($resize) {
@@ -411,12 +411,7 @@ sub create_display_box {
ugtk3::gtkpack($display_box, $part_widget);
}
$part_widget->add($part_info);
-
- $part_sep = gtkadd(Gtk3::EventBox->new,
- gtkset_size_request(Gtk3::Label->new("."), 1, 0));
- gtkpack__($display_box, $part_sep);
}
- $display_box->remove($part_sep) if $part_sep;
unless ($resize || $fill_empty) {
my @types = (N_("Ext2/3/4"), N_("XFS"), N_("Swap"), N_("Windows"),
N_("Other"), N_("Empty"));