diff options
Diffstat (limited to 'logdrake')
| -rwxr-xr-x | logdrake | 16 |
1 files changed, 11 insertions, 5 deletions
@@ -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 # |