back from chamonix

1 files changed, 21 insertions, 21 deletions

diff --git a/logdrake b/logdrake
index 78aecdae..346285fe 100755
--- a/logdrake
+++ b/logdrake
@@ -19,13 +19,6 @@
 # along with this program; if not, write to the Free Software
 # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 
-#$|= 1;
-#open F, $ARGV[0];
-#while (1) {
-#    print while <F>;
-#    seek F, 0, 1;
-#}
-
 
 use POSIX;
 use Gtk;
@@ -40,7 +33,6 @@ use my_gtk qw(:helpers :wrappers);
 
 use MDK::Common;
 
-
 #-------------------------------------------------------------
 # i18n routines
 # IMPORTANT: next two routines have to be redefined here to
@@ -103,18 +95,18 @@ my $cal_butt = gtksignal_connect(new Gtk::CheckButton("Show only for this day"),
 # the menus are not shown
 # but they provides shiny shortcut like C-q
 my @menu_items = ( 
-			   { path => _("/_File"), type => '<Branch>' },
-			   { path => _("/File/_New"), accelerator => _("<control>N"), callback    => \&print_hello },
-			   { path => _("/File/_Open"), accelerator => _("<control>O"),callback    => \&print_hello },
-			   { path => _("/File/_Save"), accelerator => _("<control>S"),callback => \&print_hello },
-			   { path => _("/File/Save _As") },
-			   { path => _("/File/-"),type => '<Separator>' },
-			   { path => _("/File/_Quit"), accelerator => _("<control>Q"), callback => sub { $::isEmbedded ? kill(USR1, $::CCPID) : Gtk->exit(0) } },
-			   { path => _("/_Options"), type => '<Branch>' },
-			   { path => _("/Options/Test") },
-			   { path => _("/_Help"),type => '<LastBranch>' },
-			   { path => _("/Help/_About...") } 
-			  );
+		  { path => _("/_File"), type => '<Branch>' },
+		  { path => _("/File/_New"), accelerator => _("<control>N"), callback => \&print_hello },
+		  { path => _("/File/_Open"), accelerator => _("<control>O"),callback => \&print_hello },
+		  { path => _("/File/_Save"), accelerator => _("<control>S"),callback => \&save },
+		  { path => _("/File/Save _As") },
+		  { path => _("/File/-"),type => '<Separator>' },
+		  { path => _("/File/_Quit"), accelerator => _("<control>Q"), callback => sub { $::isEmbedded ? kill(USR1, $::CCPID) : Gtk->exit(0) } },
+		  { path => _("/_Options"), type => '<Branch>' },
+		  { path => _("/Options/Test") },
+		  { path => _("/_Help"),type => '<LastBranch>' },
+		  { path => _("/Help/_About...") } 
+		 );
 my $menubar = get_main_menu( $window );
 ######### menus end
 
@@ -198,6 +190,7 @@ gtkadd($window,
 			  createScrolledWindow(my $log_text = new Gtk::Text(undef, undef))
 			 ),
 		0, gtkadd (gtkset_layout(new Gtk::HButtonBox,-end),
+			   gtksignal_connect(new Gtk::Button (_("Save")), clicked => \&save),
 			   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)})
 			  )
@@ -234,7 +227,6 @@ sub search {
 sub parse_file {
   my $file = $_[0];
 
-
   $file =~ s/\.gz$//;
   my $i=0;
   gtkadd(my $win_pb = (gtkset_modal new Gtk::Window(), 1),
@@ -344,6 +336,11 @@ sub log_output {
 # menu callback functions
 #-------------------------------------------------------------
 
+
+sub save {
+    print $log_text->get_length() . "\n";
+}
+
 sub print_hello {
   print( "mcdtg !\n" );
 }
@@ -395,6 +392,9 @@ sub destroy_window {
 
 # log
 # $Log$
+# Revision 1.22  2001/08/27 12:22:03  yduret
+# back from chamonix
+#
 # Revision 1.21  2001/08/20 15:04:55  siegel
 # added "Gtk->set_locale;"
 #