summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xlogdrake22
1 files changed, 14 insertions, 8 deletions
diff --git a/logdrake b/logdrake
index 346285fe..03f2f5d2 100755
--- a/logdrake
+++ b/logdrake
@@ -81,8 +81,8 @@ my $window = $::isEmbedded ? new Gtk::Plug ($::XID) : new Gtk::Window -toplevel;
$window->signal_connect( delete_event => sub { $::isEmbedded ? kill(USR1, $::CCPID) : Gtk->exit(0) });
$window->set_title( _("logdrake") );
$window->set_policy(1, 1, 1);
-$window->border_width (5);
-
+$window->border_width (5) unless ($::isEmbedded);
+#$window->set_default_size( 540,460 );
my $cal = gtkset_sensitive(new Gtk::Calendar(),0);
my (undef,undef,undef,$mday) = localtime(time);
@@ -161,22 +161,22 @@ gtkadd($window,
gtkpack_(new Gtk::VBox(0,5),
0, _("A tool to monitor your logs"),
if_ (!$::isFile, 0, gtkadd(new Gtk::Frame(_("Settings")),
- gtkpack__(new Gtk::VBox(0,5),
- gtkpack__(new Gtk::VBox(0,5),
+ gtkpack__(new Gtk::VBox(0,2),
+ gtkpack__(new Gtk::VBox(0,2),
# _("Show lines"),
- gtkpack__(new Gtk::HBox(0,5),
+ gtkpack__(new Gtk::HBox(0,0),
_("matching"), $e_yes = new Gtk::Entry(),
_("but not matching"), $e_no = new Gtk::Entry()
)
),
# _("tips: you can use OR"),
gtkpack_(new Gtk::HBox(0,0),
- 1, gtkadd(gtkset_border_width(new Gtk::Frame(_("Choose file")),5),
+ 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,
)
),
- 0, gtkadd(gtkset_border_width(new Gtk::Frame(_("Calendar")),5),
+ 0, gtkadd(gtkset_border_width(new Gtk::Frame(_("Calendar")),2),
gtkpack__(gtkset_border_width(new Gtk::VBox(0,0),5),
$cal_butt, $cal
)
@@ -338,7 +338,10 @@ sub log_output {
sub save {
- print $log_text->get_length() . "\n";
+ #$file_dialog = new Gtk::FileSelection(_("Save as.."));
+ #$file_dialog->show();
+ $yy= $in->ask_file(_("Save as.."),"/root") or return;
+ output($yy,$log_text->get_chars(0,$log_text->get_length()));
}
sub print_hello {
@@ -392,6 +395,9 @@ sub destroy_window {
# log
# $Log$
+# Revision 1.23 2001/08/28 15:43:01 yduret
+# fix window size in embedded mode
+#
# Revision 1.22 2001/08/27 12:22:03 yduret
# back from chamonix
#