diff options
| -rw-r--r-- | perl-install/NEWS | 1 | ||||
| -rw-r--r-- | perl-install/install/NEWS | 1 | ||||
| -rw-r--r-- | perl-install/interactive/gtk.pm | 5 |
3 files changed, 7 insertions, 0 deletions
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}}), |