[Win32forth-cvs] win32forth/demos taskdemo.f,1.6,1.7

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

Update of /cvsroot/win32forth/win32forth/demos
In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv17719

Modified Files:
	taskdemo.f 
Log Message:
Jos: Preventing a locked console in demo2 when it is ready or stopped.

Index: taskdemo.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/demos/taskdemo.f,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** taskdemo.f	25 Oct 2008 23:24:27 -0000	1.6
--- taskdemo.f	26 Oct 2008 23:35:01 -0000	1.7
***************
*** 73,77 ****
            WAIT_OBJECT_0 +
            dup>r taskblocks +cells @ task>id @   \ get the task id
!           \ console-lock lock                 \ locking here wil lock the whole system
            ." Task " . ." completed"  cr
            console-lock unlock                 \ Unlock here.( was locked at the task exit )
--- 73,77 ----
            WAIT_OBJECT_0 +
            dup>r taskblocks +cells @ task>id @   \ get the task id
! \         console-lock lock                   \ locking here wil lock the whole system
            ." Task " . ." completed"  cr
            console-lock unlock                 \ Unlock here.( was locked at the task exit )
***************
*** 118,122 ****
          begin
            pad 256 fhndl @ read-line abort" IO Error!"
!           tcb @  task-stop? not and
          while
            console-lock lock
--- 118,122 ----
          begin
            pad 256 fhndl @ read-line abort" IO Error!"
!         tcb @  task-stop? not and
          while
            console-lock lock
***************
*** 126,130 ****
            speed ms
          repeat
!         fhndl @ close-file ;
  
  0 value task-slow
--- 126,130 ----
            speed ms
          repeat
!          fhndl @ close-file ;
  
  0 value task-slow
***************
*** 140,143 ****
--- 140,144 ----
    task-fast run-task drop
    key drop
+   console-lock unlock \ To be sure the console is unlocked
    task-slow stop-task
    task-fast stop-task