summaryrefslogtreecommitdiffstats
path: root/logdrake
diff options
context:
space:
mode:
Diffstat (limited to 'logdrake')
-rwxr-xr-xlogdrake16
1 files changed, 11 insertions, 5 deletions
diff --git a/logdrake b/logdrake
index 0a01f6b0..10fe3e60 100755
--- a/logdrake
+++ b/logdrake
@@ -53,16 +53,14 @@ if ($::isEmbedded) {
print "mcc pid\t$::CCPID\n";
}
-my $in = vnew interactive('su');
+my $in = 'interactive'->vnew('su', 'default');
local $_ = join '', @ARGV;
/-h/ and die sprintf( _("usage: logdrake [--version]\n"));
/-version/ and die 'version: $Id$ '."\n";
-my $h=`hostname -s`;
-chop($h);
-
+my $h=chomp_(`hostname -s`);
my $window = $::isEmbedded ? new Gtk::Plug ($::XID) : new Gtk::Window -toplevel;
$window->signal_connect( delete_event => sub { $::isEmbedded ? kill(USR1, $::CCPID) : Gtk->exit(0) });
@@ -162,9 +160,14 @@ gtkadd($window,
),
1, gtkadd(new Gtk::Frame(_("Content of the file")),
createScrolledWindow(my $log_text = new Gtk::Text(undef, undef))
- )
+ ),
+ 0, gtkadd (gtkset_layout(new Gtk::HButtonBox,-end),
+ gtksignal_connect(new Gtk::Button (_("OK")), clicked=>sub{updateInit();updateAutologin();updateAurora();$::isEmbedded ? kill(USR1,$::CCPID) : Gtk->exit(0)}),
+ gtksignal_connect(new Gtk::Button ($::isEmbedded ? _("Cancel") : _("Quit")), clicked => sub {$::isEmbedded ? kill(USR1, $::CCPID) : Gtk->exit(0)})
+ )
)
+
);
$window->realize;
@@ -337,6 +340,9 @@ sub destroy_window {
# log
# $Log$
+# Revision 1.15 2001/08/10 01:46:05 yduret
+# corrected vnew usage (thc gc)
+#
# Revision 1.14 2001/08/06 14:58:12 yduret
# added isFile mode for daminounet
#