From: Jos v.d.V. <jo...@us...> - 2014-02-04 12:01:50
|
Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv13548 Modified Files: Main.f Log Message: Jos Updating the OpbjectPointer in the various tasks. Index: Main.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/Main.f,v retrieving revision 1.77 retrieving revision 1.78 diff -C2 -d -r1.77 -r1.78 *** Main.f 9 Dec 2013 21:34:03 -0000 1.77 --- Main.f 4 Feb 2014 12:01:47 -0000 1.78 *************** *** 403,407 **** 1 proc CloseHandle ! : Below ( -- ) THREAD_PRIORITY_BELOW_NORMAL GetCurrentThread SetThreadPriority drop ; 0 :NoName ( -- ) Below InitVocBrowser: cTabWindow ; Task-Block Constant VocInitTask --- 403,411 ---- 1 proc CloseHandle ! 0 value OpbjectPointer ! ! : Below ( -- ) ! OpbjectPointer op ! ! THREAD_PRIORITY_BELOW_NORMAL GetCurrentThread SetThreadPriority drop ; 0 :NoName ( -- ) Below InitVocBrowser: cTabWindow ; Task-Block Constant VocInitTask *************** *** 409,413 **** --- 413,419 ---- 0 :NoName ( -- ) Below UpDateFiles: TheDirectory ; Task-Block Constant UpdateTask + : InitClassBrowsers ( -- ) + op @ to OpbjectPointer VocInitTask dup run-task 0= abort" Failed to start background Task" task>handle @ call CloseHandle drop |