From de4be8479d33276e6ba3d0eb952ac24f5d9badb1 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Fri, 18 Jul 2003 12:46:10 +0000 Subject: fix preferences loading & saving --- perl-install/standalone/draksec | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'perl-install/standalone/draksec') diff --git a/perl-install/standalone/draksec b/perl-install/standalone/draksec index e05e6552a..81b42fd93 100755 --- a/perl-install/standalone/draksec +++ b/perl-install/standalone/draksec @@ -84,7 +84,7 @@ sub new_nonedit_combo { sub new_wrapped_label { my ($label) = @_; - my $w = Gtk2::Label->new($label); + my $w = gtkset_justify(Gtk2::Label->new($label), 'left'); $w->set_line_wrap(1); $w; } @@ -106,7 +106,7 @@ my %inv_translations = map { translate($_) => $_ } N_("ALL"), N_("LOCAL"), N_("N my %translations = reverse %inv_translations; sub to_i18n { map { $translations{$_} || $_ } @_ } -sub from_i18n { $inv_translations{$_->[0]} } +sub from_i18n { $inv_translations{$_[0]} || $_[0] } ############################ MAIN WINDOW ################################### # Set different options to Gtk2::Window @@ -177,7 +177,7 @@ foreach ([ 'network', N("Network Options") ], [ 'system', N("System Options") ]) $values{$i} = new Gtk2::Entry(); $entry = $values{$i}; } - $entry->set_text($msec->get_function_value($i)); + $entry->set_text(to_i18n($msec->get_function_value($i))); set_help_tip($entry, $default, $i); [ new_wrapped_label($fields{$i} || $i), $values{$i} ]; } sort $msec->list_functions($domain))))), @@ -237,7 +237,7 @@ my $bok = gtksignal_connect(Gtk2::Button->new_from_stock('gtk-ok'), log::explanations("Setting msec functions related to $domain"); foreach my $key (keys %{$options_values{$domain}}) { my $opt = $options_values{$domain}{$key}; - $msec->set_function($key, from_i18n($opt =~ /Combo/ ? $opt->entry->get_text : $opt->get_text)); + $msec->set_function($key, from_i18n($opt->get_text)); } } $msec->apply_functions; -- cgit v1.2.1