Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv1031/win32forth/apps/Win32ForthIDE
Modified Files:
Main.f
Log Message:
gah: Set priority of background tasks to Idle
Index: Main.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/Main.f,v
retrieving revision 1.19
retrieving revision 1.20
diff -C2 -d -r1.19 -r1.20
*** Main.f 1 Jul 2006 11:59:04 -0000 1.19
--- Main.f 8 Jul 2006 10:09:20 -0000 1.20
***************
*** 107,112 ****
Needs Task.f
! 0 :NoName ( -- ) InitVocBrowser: cTabWindow ; Task-Block Constant VocInitTask
! 0 :NoName ( -- ) InitClassBrowser: cTabWindow ; Task-Block Constant ClassInitTask
: InitClassBrowsers ( -- )
--- 107,117 ----
Needs Task.f
! 0 proc GetCurrentThread
! 2 proc SetThreadPriority
!
! : Idle ( -- ) THREAD_PRIORITY_IDLE GetCurrentThread SetThreadPriority drop ;
!
! 0 :NoName ( -- ) Idle InitVocBrowser: cTabWindow ; Task-Block Constant VocInitTask
! 0 :NoName ( -- ) Idle InitClassBrowser: cTabWindow ; Task-Block Constant ClassInitTask
: InitClassBrowsers ( -- )
|
