From 9a6f9d11dec579bd605f5f167dbb6b2722c5ccf6 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Fri, 20 Dec 2013 23:14:42 +0100 Subject: use expanders for clarity --- perl-install/standalone/draksec | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) (limited to 'perl-install/standalone/draksec') diff --git a/perl-install/standalone/draksec b/perl-install/standalone/draksec index cda3a8705..1626e7d74 100755 --- a/perl-install/standalone/draksec +++ b/perl-install/standalone/draksec @@ -202,11 +202,10 @@ gtkpack_($vbox, ])), 1, gtkshow(create_scrolled_window( gtknew('VBox', children => [ - 1, create_packtable( - $common_opts, map { my ($title, $progs) = @$_; - ([ gtknew('Title2', label => $title), '' ], + (0, gtknew('Expander', use_markup => 1, text => mygtk3::title1_to_markup($title), child => create_packtable( + $common_opts, map { [ gtkshow(gtknew('Label_Left', line_wrap => 1, text => $descr{$_} || $_)), @@ -218,7 +217,7 @@ gtkpack_($vbox, ) ]; } split(' ', $progs) - ); + ))); } ( [ N("Software Management"), 'drakrpm drakrpm-update drakrpm-editmedia' ], [ N("Hardware"), 'drak3d drakx11 drakmouse drakkeyboard drakups' ], @@ -226,7 +225,6 @@ gtkpack_($vbox, [ N("System"), 'drakauth drakfont draklog drakxservices drakuser drakclock' ], [ N("Boot"), 'drakboot' ], ) - ) ]))), 0, create_okcancel(my $oc = -- cgit v1.2.1