From 6a5907db93c577a957fb106ce5b3279adfe8d905 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Mon, 1 Sep 2008 15:14:15 +0000
Subject: (create_widget) fix alignment of check buttons

---
 perl-install/interactive/gtk.pm | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'perl-install/interactive/gtk.pm')

diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm
index c34630081..6d3f10c17 100644
--- a/perl-install/interactive/gtk.pm
+++ b/perl-install/interactive/gtk.pm
@@ -385,6 +385,11 @@ sub create_widget {
 	}
 	$w->signal_connect(clicked => $onchange->(sub { $w->get_active }));
 	$set = sub { $w->set_active($_[0]) };
+        $real_w = gtknew('HBox', children => [
+            0, gtknew('Alignment', width => $mygtk2::left_padding),
+            1, $w
+            ]);
+        
     } elsif ($e->{type} eq 'only_label') {
 	$w = $e->{title} ? 
 	         gtknew('Title2', label => escape_text_for_TextView_markup_format(${$e->{val}}),
-- 
cgit v1.2.1