From c57eea38c00d04ad3025024045a15840c62a8806 Mon Sep 17 00:00:00 2001
From: Pascal Terjan <pterjan@gmail.com>
Date: Sun, 19 Apr 2015 23:37:53 +0000
Subject: Fix ugly separator between partitions

---
 perl-install/fs/partitioning_wizard.pm | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

(limited to 'perl-install/fs')

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"));
-- 
cgit v1.2.1