From 9a6f9d11dec579bd605f5f167dbb6b2722c5ccf6 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Fri, 20 Dec 2013 23:14:42 +0100
Subject: use expanders for clarity

---
 perl-install/NEWS               | 3 +++
 perl-install/standalone/draksec | 8 +++-----
 2 files changed, 6 insertions(+), 5 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/NEWS b/perl-install/NEWS
index 57c20609d..fee6909ff 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,3 +1,6 @@
+- draksec:
+  o use expanders for clarity
+
 Version 16.17 - 20 December 2013
 
 - drakfont:
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