[Win32forth-cvs] win32forth/apps/Win32ForthIDE Main.f,1.77,1.78

[Jos v.d.V. <jo...@us...>]

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