fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2010-02-19 18:52 UTC+0100 Maurilio Longo (maurilio.longo@libero.it)

Browse Source 
* source/rtl/tthreadx.prg
     ! fixed ::active iVar to be .F. while thread is not running / has ended.
This commit is contained in:
Maurilio Longo
2010-02-19 17:53:09 +00:00
parent 6d7515142c
commit f13ea1836f
2 changed files with 10 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
harbour/ChangeLog
View File

@@ -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 <Edit><Find / Replace Ex> 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.

6
harbour/src/rtl/tthreadx.prg
View File

@@ -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