From 48a4216ed9fd8c423b69a0e74bf2dc55ab2d1719 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Tom=C3=A1=C5=A1=20Brada?= <tomasbrod@azet.sk>
Date: Thu, 10 Sep 2015 17:57:51 +0200
Subject: [PATCH] Change in TestWatch.

---
 TestWatch.pas | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/TestWatch.pas b/TestWatch.pas
index 717bc9a..96b253b 100644
--- a/TestWatch.pas
+++ b/TestWatch.pas
@@ -17,21 +17,21 @@ procedure tObj.Init;
  assign(f,'');
  reset(f);
  h:=GetFileHandle(f);
- writeln('Input handle ',h);
+ writeln('TestWatch: Input handle ',h);
  WatchFD(h,@Event1);
- Shedule(3201,@Event2);
+ Shedule(32,@Event2);
 end;
 
 procedure tObj.Event1(ev:Word);
  begin
- writeln('Event1 ',IntToHex(ev,4));
+ writeln('TestWatch: Event1 ',IntToHex(ev,4));
  readln;
  WatchFD(h,nil);
  UnShedule(@Event2);
 end;
 procedure tObj.Event2;
  begin
- writeln('Event2 ');
+ writeln('TestWatch: Event2 ');
  WatchFD(h,nil);
 end;
 
-- 
2.11.4.GIT