From f13ea1836f4aedbd7b312d025869078259153613 Mon Sep 17 00:00:00 2001 From: Maurilio Longo Date: Fri, 19 Feb 2010 17:53:09 +0000 Subject: [PATCH] 2010-02-19 18:52 UTC+0100 Maurilio Longo (maurilio.longo@libero.it) * source/rtl/tthreadx.prg ! fixed ::active iVar to be .F. while thread is not running / has ended. --- harbour/ChangeLog | 8 ++++++-- harbour/src/rtl/tthreadx.prg | 6 ++++-- 2 files changed, 10 insertions(+), 4 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index f272f72c96..801d511be9 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -17,6 +17,10 @@ past entries belonging to author(s): Viktor Szakats. */ +2010-02-19 18:52 UTC+0100 Maurilio Longo (maurilio.longo@libero.it) + * source/rtl/tthreadx.prg + ! fixed ::active iVar to be .F. while thread is not running / has ended. + 2010-02-18 19:52 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com) + contrib/hbide/resources/next.png ! Missed from prev commit. @@ -35,8 +39,8 @@ * contrib/hbide/idefindreplace.prg + Implemented ( partial ) extended search/replace panel like Qt itself. This can be activated via or Ctrl+Sh+F. - The panel is anchored beneth editor area and above status-bar, - or above any other dock-widget at the bottom area is open. + The panel is anchored beneth editor area and above status-bar, + or above any other dock-widget at the bottom area is open. It implements incremental search with visual color differentiation. Try typing in some text to find. Still other buttons are inactive. It may take a day to synchronize everything. diff --git a/harbour/src/rtl/tthreadx.prg b/harbour/src/rtl/tthreadx.prg index 7e38520a7d..ff1c6b02ed 100644 --- a/harbour/src/rtl/tthreadx.prg +++ b/harbour/src/rtl/tthreadx.prg @@ -200,14 +200,15 @@ METHOD start( xAction, ... ) CLASS TTHREAD IF ::active RETURN .F. ELSEIF xAction == NIL - ::active := .T. ::pThreadID := hb_threadStart( HB_THREAD_INHERIT_PUBLIC, ; { |...| WHILE .T. ::startTime := Seconds() + ::active := .T. ThreadObject( Self ) ::result := ::execute( ... ) ::startTime := NIL + ::active := .F. IF ISNUMBER( ::interval ) hb_idleSleep( ::interval / 100 ) LOOP @@ -217,11 +218,11 @@ METHOD start( xAction, ... ) CLASS TTHREAD RETURN NIL }, ... ) ELSEIF !Empty( xAction ) .AND. ValType( xAction ) $ "CBS" - ::active := .T. ::pThreadID := hb_threadStart( HB_THREAD_INHERIT_PUBLIC, ; { |...| WHILE .T. ::startTime := Seconds() + ::active := .T. ThreadObject( Self ) IF ::atStart != NIL EVAL( ::atStart, ... ) @@ -231,6 +232,7 @@ METHOD start( xAction, ... ) CLASS TTHREAD EVAL( ::atEnd, ... ) ENDIF ::startTime := NIL + ::active := .F. IF ISNUMBER( ::interval ) hb_idleSleep( ::interval / 100 ) LOOP