From 7d4cbf8b0197443cd0c0b446c0122d15f2ed9405 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Fri, 16 Jan 2004 19:06:15 +0000
Subject: - set a meaningfull window title when called from mcc for
 explanations - upcase default window title

---
 perl-install/standalone/logdrake | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'perl-install/standalone/logdrake')

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);
-- 
cgit v1.2.1