summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-03-01 08:15:19 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-03-01 08:15:19 +0000
commit20649b8aee281d00beef82fd7624f0f38babe57d (patch)
tree6a85de06383b2cc0daa864a33b93aa0187edbc8e /perl-install
parentfd88ae7391f493b186a58854241a5afc18e76788 (diff)
downloaddrakx-backup-do-not-use-20649b8aee281d00beef82fd7624f0f38babe57d.tar
drakx-backup-do-not-use-20649b8aee281d00beef82fd7624f0f38babe57d.tar.gz
drakx-backup-do-not-use-20649b8aee281d00beef82fd7624f0f38babe57d.tar.bz2
drakx-backup-do-not-use-20649b8aee281d00beef82fd7624f0f38babe57d.tar.xz
drakx-backup-do-not-use-20649b8aee281d00beef82fd7624f0f38babe57d.zip
sanitize main explanation text (resizable, weight, margin, ...)
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/draksec17
1 files 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!<span foreground=\"royalblue3\">(.*)</span>(.*)!) {
+ 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 <span ..> and </span> 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.
<span foreground=\"royalblue3\">Paranoid</span>: 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 {