[Win32forth-cvs] win32forth/apps/Win32ForthIDE Main.f,1.19,1.20

[George H. <geo...@us...>]

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 ( -- )