From 1870c5c65cb1d9795e3f556f57cbf45e7e6ee69f Mon Sep 17 00:00:00 2001 From: Maurilio Longo Date: Tue, 23 Feb 2010 16:42:42 +0000 Subject: [PATCH] 2010-02-23 17:40 UTC+0100 Maurilio Longo (maurilio.longo@libero.it) * source/contrib/hbxpp/tthreadx.prg ! while waiting for ::interval to expire, ::active has to be .T. --- harbour/ChangeLog | 4 ++++ harbour/contrib/hbxpp/tthreadx.prg | 2 -- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index d955c01f49..9db88e2459 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -17,6 +17,10 @@ past entries belonging to author(s): Viktor Szakats. */ +2010-02-23 17:40 UTC+0100 Maurilio Longo (maurilio.longo@libero.it) + * source/contrib/hbxpp/tthreadx.prg + ! while waiting for ::interval to expire, ::active has to be .T. + 2010-02-23 08:26 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com) * contrib/hbqt/hbqt_hbslots.cpp ! Applied patch provided by Francek. diff --git a/harbour/contrib/hbxpp/tthreadx.prg b/harbour/contrib/hbxpp/tthreadx.prg index 7b7de7fd84..e74ad271e1 100644 --- a/harbour/contrib/hbxpp/tthreadx.prg +++ b/harbour/contrib/hbxpp/tthreadx.prg @@ -229,9 +229,7 @@ METHOD start( xAction, ... ) CLASS TTHREAD ENDIF IF ISNUMBER( ::interval ) - ::active := .F. hb_idleSleep( ::interval / 100 ) - ::active := .T. LOOP ENDIF ::startTime := NIL