[Win32forth-cvs] win32forth/src w32fMsg.f,1.14,1.15

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

Update of /cvsroot/win32forth/win32forth/src
In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv12391

Modified Files:
	w32fMsg.f 
Log Message:
Added code to increase timing delays for older processors. Modofied console to use dummy message rather than paint which was causing excess flicker on older processors.

Index: w32fMsg.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/w32fMsg.f,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -d -r1.14 -r1.15
*** w32fMsg.f	5 Jun 2010 07:47:03 -0000	1.14
--- w32fMsg.f	15 Jun 2010 23:49:21 -0000	1.15
***************
*** 75,79 ****
  \ ** application's inter-process identification & communication capabilities.
  
! \ *P The default action is using none of these lines, the result in this case is:
  \ *B While developping, your program is considered to be win32Forth itself.
  \ ** It is able to communicate with Help and IDE, for example for using the debugger.
--- 75,79 ----
  \ ** application's inter-process identification & communication capabilities.
  
! \ *P The default action is using none of theese lines, the result in this case is:
  \ *B While developping, your program is considered to be win32Forth itself.
  \ ** It is able to communicate with Help and IDE, for example for using the debugger.
***************
*** 325,329 ****
  
  \ *P Each application can create a set of win32forth-specific messages, identified
! \ ** by custom messages numbers. These message identifiers must be loaded in both
  \ ** applications so that they understand each other.
  
--- 325,329 ----
  
  \ *P Each application can create a set of win32forth-specific messages, identified
! \ ** by custom messages numbers. Theese message identifiers must be loaded in both
  \ ** applications so that they understand each other.
  
***************
*** 517,520 ****
--- 517,528 ----
  \ ------------------------------------------------------------------------------
  
+ \ Added to increase delays for older (i.e. slower) machines GAH Wednesday, June 16 2010
+ 
+ 60 value time-taken
+ 
+ : Set-time-taken ms@ 5000000 0 do loop ms@ - negate to time-taken ;
+ 
+ initialization-chain chain-add Set-time-taken
+ 
  \ *P To launch a win32forth application from another one use :
  
***************
*** 534,543 ****
                  else >r [createprocess]              \ launch the w32fapp
                       if   r>drop -1
!                      else 3000 ( ms) ProcInfo @      \ give the launched process a..
                            call WaitForInputIdle drop \ ..chance to set its hwnd..
                            CloseThread                \ ..in shared memory
                            CloseProcess
                            r>
! drop \               begin dup SharedHwnd 0= while repeat drop ( *)
                       500 ms
                            0
--- 542,552 ----
                  else >r [createprocess]              \ launch the w32fapp
                       if   r>drop -1
!                      else 16500  30 time-taken * + ( ms) ProcInfo @      \ give the launched process a..
                            call WaitForInputIdle drop \ ..chance to set its hwnd..
                            CloseThread                \ ..in shared memory
                            CloseProcess
                            r>
!                 drop
! \               begin dup SharedHwnd 0= while repeat drop ( *)
                       500 ms
                            0