From 905873b17513eb7be49be60b78b47d7cc64aaf12 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Tue, 2 Sep 2008 13:17:16 +0000
Subject: (gtkradio,create_boxradio) move label sizing one level upper (needed
 for next commit)

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

(limited to 'perl-install/interactive')

diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm
index e575de132..b37f1e98d 100644
--- a/perl-install/interactive/gtk.pm
+++ b/perl-install/interactive/gtk.pm
@@ -50,6 +50,7 @@ sub create_boxradio {
     my $tips = Gtk2::Tooltips->new;
     mapn {
 	my ($txt, $w) = @_;
+	$w->child->set_size_request(mygtk2::get_label_width(), -1);
 	$w->signal_connect(button_press_event => $double_click) if $double_click;
 
 	$w->signal_connect(key_press_event => $e->{may_go_to_next});
-- 
cgit v1.2.1