From d12939e22c056345f5926595f0f5e7cc2b686077 Mon Sep 17 00:00:00 2001
From: dscho <dscho>
Date: Thu, 15 Jun 2006 12:32:37 +0000
Subject: [PATCH] no need for Time::HiRes to play back

---
 VisualNaCro/ChangeLog   | 3 +++
 VisualNaCro/NEWS        | 5 ++++-
 VisualNaCro/recorder.pl | 5 -----
 3 files changed, 7 insertions(+), 6 deletions(-)

diff --git a/VisualNaCro/ChangeLog b/VisualNaCro/ChangeLog
index 03bb9d2..9f22e04 100644
--- a/VisualNaCro/ChangeLog
+++ b/VisualNaCro/ChangeLog
@@ -1,3 +1,6 @@
+2006-06-15: Johannes Schindelin <Johannes.Schindelin@gmx.de>
+	* added timing: you can record the events with their timestamps now
+
 2005-01-13: Johannes Schindelin <Johannes.Schindelin@gmx.de>
 	* started the project
 
diff --git a/VisualNaCro/NEWS b/VisualNaCro/NEWS
index 838bb62..b6040b9 100644
--- a/VisualNaCro/NEWS
+++ b/VisualNaCro/NEWS
@@ -1 +1,4 @@
-No News yet
+With --timing, you can actually record action scripts which are meaningful...
+Earlier, the events just got garbled, because the GUI could not react as
+fast as the events were churned out.
+
diff --git a/VisualNaCro/recorder.pl b/VisualNaCro/recorder.pl
index 3b86e40..6621380 100644
--- a/VisualNaCro/recorder.pl
+++ b/VisualNaCro/recorder.pl
@@ -56,15 +56,10 @@ if($vnc<0) {
 	exit 1;
 }
 
-# TODO: timing
-
 open OUT, ">$output.pl";
 print OUT "#!/usr/bin/perl\n";
 print OUT "\n";
 print OUT "use nacro;\n";
-if ($timing) {
-	print OUT "use Time::HiRes;"
-}
 print OUT "\n";
 print OUT "\$x_origin=0; \$y_origin=0;\n";
 print OUT "\$vnc=nacro::initvnc(\"$server\",$port,$listen_port);\n";