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/install/NEWS | 2 ++ perl-install/interactive/gtk.pm | 2 +- 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS index 3c69114f1..ac050c1c6 100644 --- a/perl-install/install/NEWS +++ b/perl-install/install/NEWS @@ -1,3 +1,5 @@ +- do not size right aligned radio buttons + Version 11.31 - 2 September 2008 - fix "INTERNAL ERROR: ask_from_normalize" at end of installation 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