From f0b965fdebde8542da2cce756b32db7ce26a8f31 Mon Sep 17 00:00:00 2001
From: Pascal Terjan <pterjan@mandriva.org>
Date: Thu, 8 Oct 2009 15:40:39 +0000
Subject: add separator between solutions

---
 perl-install/fs/partitioning_wizard.pm | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'perl-install/fs/partitioning_wizard.pm')

diff --git a/perl-install/fs/partitioning_wizard.pm b/perl-install/fs/partitioning_wizard.pm
index f10e26f37..dad5e9d09 100644
--- a/perl-install/fs/partitioning_wizard.pm
+++ b/perl-install/fs/partitioning_wizard.pm
@@ -404,6 +404,7 @@ sub display_choices {
     
     my $choicesbox = ugtk2::gtknew('VBox');
     my $button;
+    my $sep;
     foreach my $s (@solutions) {
         my $item;
         if($s eq 'free_space') {
@@ -434,7 +435,10 @@ sub display_choices {
                                 $button?(group=>$button->get_group):());
         $button->signal_connect('pressed', sub {$mainw->{sol} = $solutions{$s}; });
         ugtk2::gtkpack2__($choicesbox, $button);
+        $sep = ugtk2::gtknew('HSeparator');
+        ugtk2::gtkpack2__($choicesbox, $sep);
     }
+    $choicesbox->remove($sep);
     ugtk2::gtkadd($contentbox, $choicesbox);
     $mainw->{sol} = $solutions{@solutions[0]}
 }
-- 
cgit v1.2.1