summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/logdrake7
1 files changed, 4 insertions, 3 deletions
diff --git a/perl-install/standalone/logdrake b/perl-install/standalone/logdrake
index 7720293a6..97b7300aa 100755
--- a/perl-install/standalone/logdrake
+++ b/perl-install/standalone/logdrake
@@ -47,9 +47,10 @@ my $isTail = 1 if $isFile;
$| = 1 if $isTail;
my $h = chomp_(`hostname -s`);
-my $my_win = ugtk2->new('logdrake');
+my $explain_title = N("Mandrake Tools Explanation");
+my $my_win = ugtk2->new($isExplain ? $explain_title : N("Logdrake"));
+
unless ($::isEmbedded) {
- $my_win->{rwindow}->set_title(N("logdrake"));
$my_win->{window}->set_border_width(5);
#$my_win->{window}->set_default_size(540,460);
}
@@ -111,7 +112,7 @@ my %files = (
"user" => { file => "/var/log/user.log", desc => N("User") },
"messages" => { file => "/var/log/messages", desc => N("Messages") },
"syslog" => { file => "/var/log/syslog", desc => N("Syslog") },
- "explanations" => { file => "/var/log/explanations", desc => N("Mandrake Tools Explanation") }
+ "explanations" => { file => "/var/log/explanations", desc => $explain_title }
);
my $yy = gtkset_sensitive(gtksignal_connect(new Gtk2::Button(N("search")) , clicked => \&search),0);