summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorYves Duret <yduret@mandriva.com>2002-02-01 22:59:27 +0000
committerYves Duret <yduret@mandriva.com>2002-02-01 22:59:27 +0000
commit0c41d811c8ec4471b9b35b2eb1a869f8b1394043 (patch)
tree57ef302655b253df06e58a5e99a12f24969ed5df /perl-install/standalone
parente081d5ca5ab76324a558043d368f1a0f87acc528 (diff)
downloaddrakx-backup-do-not-use-0c41d811c8ec4471b9b35b2eb1a869f8b1394043.tar
drakx-backup-do-not-use-0c41d811c8ec4471b9b35b2eb1a869f8b1394043.tar.gz
drakx-backup-do-not-use-0c41d811c8ec4471b9b35b2eb1a869f8b1394043.tar.bz2
drakx-backup-do-not-use-0c41d811c8ec4471b9b35b2eb1a869f8b1394043.tar.xz
drakx-backup-do-not-use-0c41d811c8ec4471b9b35b2eb1a869f8b1394043.zip
ergo fix thx dadou report
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/logdrake19
1 files changed, 12 insertions, 7 deletions
diff --git a/perl-install/standalone/logdrake b/perl-install/standalone/logdrake
index 7a15fbc8c..3bd2aac03 100755
--- a/perl-install/standalone/logdrake
+++ b/perl-install/standalone/logdrake
@@ -88,7 +88,7 @@ my (undef,undef,undef,$mday) = localtime(time);
$cal->select_day($mday);
my @months = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
my $cal_mode=0;
-my $cal_butt = gtksignal_connect(new Gtk::CheckButton(_("Show only for this day")), clicked =>sub{$cal_mode =!$cal_mode; gtkset_sensitive($cal,$cal_mode);});
+my $cal_butt = gtksignal_connect(new Gtk::CheckButton(_("Show only for the selected day")), clicked =>sub{$cal_mode =!$cal_mode; gtkset_sensitive($cal,$cal_mode);});
### menus definition
# the menus are not shown
@@ -165,13 +165,15 @@ my $col=$cyan;
######### font and colors end
my %files = (
- "auth" => { file => "/var/log/auth.log", desc => _("authentification") },
- "user" => { file => "/var/log/user.log", desc => _("user") },
- "messages" => { file => "/var/log/messages", desc => _("messages") },
- "syslog" => { file => "/var/log/syslog", desc => _("syslog") },
+ "auth" => { file => "/var/log/auth.log", desc => _("Authentication") },
+ "user" => { file => "/var/log/user.log", desc => _("User") },
+ "messages" => { file => "/var/log/messages", desc => _("Messages") },
+ "syslog" => { file => "/var/log/syslog", desc => _("Syslog") },
"explanations" => { file => "/var/log/explanations", desc => _("Mandrake Tools Explanations")}
);
+my $yy=gtkset_sensitive(gtksignal_connect(new Gtk::Button(_("search")) , clicked => \&search),0);
+my $refcount_search;
#### far from window
gtkadd($window,
gtkpack_(new Gtk::VBox(0,5),
@@ -188,7 +190,7 @@ gtkadd($window,
gtkpack_(new Gtk::HBox(0,0),
1, gtkadd(gtkset_border_width(new Gtk::Frame(_("Choose file")),2),
gtkpack (gtkset_border_width(new Gtk::VBox(0,0),0),
- map { ${"b_". $_} = new Gtk::CheckButton($files{$_}{desc}) } keys %files,
+ map { ${"b_". $_} = gtksignal_connect(new Gtk::CheckButton($files{$_}{desc}), clicked=> sub{$refcount_search++;gtkset_sensitive($yy,$refcount_search)}) } keys %files,
)
),
0, gtkadd(gtkset_border_width(new Gtk::Frame(_("Calendar")),2),
@@ -197,7 +199,7 @@ gtkadd($window,
)
)
),
- gtksignal_connect(new Gtk::Button(_("search")), clicked => \&search)
+ $yy,
)
)
),
@@ -509,6 +511,9 @@ sub destroy_window {
# log
# $Log$
+# Revision 1.7 2002/02/01 22:59:27 yduret
+# ergo fix thx dadou report
+#
# Revision 1.6 2002/02/01 18:10:06 yduret
# fix --explain=foo bug that prevent to show anything
#