From cbab27f90328f79b32af16277944d5ec92e987a3 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Wed, 13 Aug 2008 09:08:20 +0000
Subject: (add_kind2notebook) move action button box to right

---
 perl-install/diskdrake/hd_gtk.pm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/diskdrake/hd_gtk.pm b/perl-install/diskdrake/hd_gtk.pm
index d53b15030..ce3e0b5bf 100644
--- a/perl-install/diskdrake/hd_gtk.pm
+++ b/perl-install/diskdrake/hd_gtk.pm
@@ -132,13 +132,16 @@ sub add_kind2notebook {
     $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->{info_box} = Gtk2::VBox->new(0,0);
-    $kind->{main_box} =
+    my $box =
       gtkpack_(Gtk2::VBox->new(0,7),
 	       0, $kind->{display_box},
 	       0, filesystems_button_box(),
 	       1, gtkpack_(Gtk2::HBox->new(0,7),
-			   0, $kind->{action_box},
 			   1, $kind->{info_box}));
+    $kind->{main_box} = gtknew('HBox', children => [
+        1, $box,
+        0, $kind->{action_box},
+    ]);
     ugtk2::add2notebook($notebook_widget, $kind->{name}, $kind->{main_box});
     push @notebook, $kind;
     $kind;
-- 
cgit v1.2.1