From 0f0dbfcb17a01ccfaa85e3dd70436857f048677a Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 2 Sep 2008 13:18:41 +0000 Subject: (create_boxradio) do not size right aligned radio buttons --- perl-install/interactive/gtk.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/interactive/gtk.pm') diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm index b37f1e98d..61e38b37f 100644 --- a/perl-install/interactive/gtk.pm +++ b/perl-install/interactive/gtk.pm @@ -50,7 +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->child->set_size_request(mygtk2::get_label_width(), -1) if $e->{alignment} ne 'right'; $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