[Win32forth-cvs] win32forth/src GENERIC.F, 1.21, 1.22 Window.f, 1.21, 1.22

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

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

Modified Files:
	GENERIC.F Window.f 
Log Message:
Improved multi-tasking plus updated taskdemo (which hopefully now works for everybody).

Index: Window.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Window.f,v
retrieving revision 1.21
retrieving revision 1.22
diff -C2 -d -r1.21 -r1.22
*** Window.f	8 Oct 2008 09:15:07 -0000	1.21
--- Window.f	29 Oct 2008 23:20:55 -0000	1.22
***************
*** 932,936 ****
  : send-window   ( lParam wParam Message_ID hWnd -- ) \ w32f
  \ *G Send a message to a window.
!                 Call SendMessage drop ;
  
  : LoadIconFile  ( adr len -- hIcon ) \ w32f
--- 932,936 ----
  : send-window   ( lParam wParam Message_ID hWnd -- ) \ w32f
  \ *G Send a message to a window.
!                 Call SendNotifyMessage drop ;
  
  : LoadIconFile  ( adr len -- hIcon ) \ w32f

Index: GENERIC.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/GENERIC.F,v
retrieving revision 1.21
retrieving revision 1.22
diff -C2 -d -r1.21 -r1.22
*** GENERIC.F	16 Jul 2008 20:48:23 -0000	1.21
--- GENERIC.F	29 Oct 2008 23:20:55 -0000	1.22
***************
*** 144,148 ****
  : SendMessage:SelfDrop  ( lParam wParam message -- )
  \ *G Send a windows message to our self and discard the result.
!                 SendMessage:Self drop ;
  
  \ -----------------------------------------------------------------
--- 144,148 ----
  : SendMessage:SelfDrop  ( lParam wParam message -- )
  \ *G Send a windows message to our self and discard the result.
!                 hWnd call SendNotifyMessage drop ;
  
  \ -----------------------------------------------------------------
***************
*** 200,203 ****
--- 200,207 ----
                  0 swap WM_SETREDRAW hWnd call SendMessage drop ;M
  
+ : OwnedByTask  ( -- f )
+                      0 hWnd call GetWindowThreadProcessId
+                      call GetCurrentThreadId = ;
+ 
  :M Show:        ( state -- )
  \ *G The ShowWindow function sets the specified window's show state. \n
***************
*** 221,226 ****
  \ ** current task the message is sent.
                  hWnd
!                 if   0 hWnd call GetWindowThreadProcessId
!                      call GetCurrentThreadId =
                       if    hWnd Call ShowWindow
                       else  hWnd call ShowWindowAsync
--- 225,229 ----
  \ ** current task the message is sent.
                  hWnd
!                 if   OwnedByTask
                       if    hWnd Call ShowWindow
                       else  hWnd call ShowWindowAsync