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/NEWS               | 1 +
 perl-install/install/NEWS       | 1 +
 perl-install/interactive/gtk.pm | 5 +++++
 3 files changed, 7 insertions(+)

diff --git a/perl-install/NEWS b/perl-install/NEWS
index 682f3d246..45ec642d9 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,6 +1,7 @@
 - libDrakX:
   o make all windows are "dialog", so that gurpmi.addmedia during install
     displays nicely
+  o fix alignment of check buttons
 
 Version 11.29 - 29 August 2008
 
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 861b37668..9b37066a6 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -2,6 +2,7 @@
 - hack /tmp/.X11-unix to allow accessing X in chroot
 - if network access, configure urpmi with --mirrorlist --distrib,
   and install updates. This replaces the previous "Install Updates" step.
+- fix alignment of check buttons
 
 Version 11.29 - 29 August 2008
 
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