Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv3028/win32forth/src
Modified Files:
GENERIC.F
Log Message:
gah: Modified Show: to prevent hanging/deadlocking in multitasking apps.
Index: GENERIC.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/GENERIC.F,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** GENERIC.F 6 Jun 2006 17:22:15 -0000 1.11
--- GENERIC.F 8 Jun 2006 07:54:07 -0000 1.12
***************
*** 183,188 ****
\ *| SW_SHOWNOACTIVATE | Displays a window in its most recent size and position. This value is similar to SW_SHOWNORMAL, except the window is not actived. |
\ *| SW_SHOWNORMAL | Activates and displays a window. If the window is minimized or maximized, the system restores it to its original size and position. An application should specify this flag when displaying the window for the first time. |
hWnd
! if hWnd Call ShowWindow
then drop ;M
--- 183,195 ----
\ *| SW_SHOWNOACTIVATE | Displays a window in its most recent size and position. This value is similar to SW_SHOWNORMAL, except the window is not actived. |
\ *| SW_SHOWNORMAL | Activates and displays a window. If the window is minimized or maximized, the system restores it to its original size and position. An application should specify this flag when displaying the window for the first time. |
+ \ *P If the window belongs to a different task or application the WM_SHOW is posted to the
+ \ ** the message queue to prevent the current task hanging. If the window belongs to the
+ \ ** current task the message is sent.
hWnd
! if 0 hWnd call GetWindowThreadProcessId
! call GetCurrentThreadId =
! if hWnd Call ShowWindow
! else hWnd call ShowWindowAsync
! then
then drop ;M
|
