From 91c1c8287f5a63431289c8364ec710a17393854b Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Wed, 13 Aug 2008 09:08:52 +0000 Subject: (add_kind2notebook) add spacing --- perl-install/diskdrake/hd_gtk.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/diskdrake/hd_gtk.pm') diff --git a/perl-install/diskdrake/hd_gtk.pm b/perl-install/diskdrake/hd_gtk.pm index 2d2162b17..de3042a6e 100644 --- a/perl-install/diskdrake/hd_gtk.pm +++ b/perl-install/diskdrake/hd_gtk.pm @@ -130,14 +130,14 @@ sub add_kind2notebook { die if $kind->{main_box}; $kind->{display_box} = gtkset_size_request(Gtk2::HBox->new(0,0), $width, $height); - $kind->{action_box} = gtkset_size_request(Gtk2::VBox->new(0,0), $::isStandalone ? 165 : 150, $::isEmbedded ? 150 : 180); + $kind->{action_box} = gtkset_size_request(Gtk2::VBox->new(), $::isStandalone ? 165 : 150, $::isEmbedded ? 150 : 180); $kind->{info_box} = Gtk2::VBox->new(0,0); my $box = gtkpack_(Gtk2::VBox->new(0,7), 0, $kind->{display_box}, 0, filesystems_button_box(), 1, $kind->{info_box}); - $kind->{main_box} = gtknew('HBox', children => [ + $kind->{main_box} = gtknew('HBox', spacing => 5, children => [ 1, $box, 0, $kind->{action_box}, ]); -- cgit v1.2.1