fix window size in embedded mode

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
 #