From 7a08acb4a208d713ca11110a62496e5e41ec931a Mon Sep 17 00:00:00 2001 From: Yves Duret Date: Tue, 28 Aug 2001 15:43:01 +0000 Subject: fix window size in embedded mode --- logdrake | 22 ++++++++++++++-------- 1 file changed, 14 insertions(+), 8 deletions(-) (limited to 'logdrake') 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 # -- cgit v1.2.1