From 20649b8aee281d00beef82fd7624f0f38babe57d Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 1 Mar 2004 08:15:19 +0000 Subject: sanitize main explanation text (resizable, weight, margin, ...) --- perl-install/standalone/draksec | 17 ++++++++++++++--- 1 file changed, 14 insertions(+), 3 deletions(-) diff --git a/perl-install/standalone/draksec b/perl-install/standalone/draksec index 250398b26..082bfa761 100755 --- a/perl-install/standalone/draksec +++ b/perl-install/standalone/draksec @@ -64,7 +64,18 @@ sub wait_msg { sub remove_wait_msg { $_[0]->destroy } sub basic_seclevel_explanations() { - my $text = gtkset_markup(Gtk2::WrappedLabel->new, + my $text = Gtk2::TextView->new; + use Gtk2::Pango; + my %common_opts = ('left-margin' => '10', 'right-margin' => '10'); + gtktext_insert($text, [ map { + if (my ($title, $str) = m!(.*)(.*)!) { + if_($title, [ $title, { 'foreground' => 'royalblue3', 'weight' => Gtk2::Pango->PANGO_WEIGHT_BOLD, %common_opts } ]), + if_($str, [ $str . "\n\n", \%common_opts ]); + } else { + if_($_, [ "$_\n\n", \%common_opts ]); + } + } split("\n", + #-PO Do not alter the and tags #-PO Translate the security levels (Poor, Standard, High, Higher and Paranoid) in the same way, you translated these individuals words formatAlaTeX(N("Here, you can setup the security level and administrator of your machine. @@ -100,8 +111,8 @@ your machine is only a client on the Internet, you should choose a lower level. Paranoid: This is similar to the previous level, but the system is entirely closed and security features are at their -maximum"))); - create_scrolled_window(gtkset_alignment($text, 0.5, 0.5), [ 'never', 'automatic' ]); +maximum"))) ]); + create_scrolled_window($text, [ 'never', 'automatic' ]); } sub new_nonedit_combo { -- cgit v1.2.1