Menu
▾
▴
[Win32forth-cvs] win32forth/src w32fMsg.f,1.13,1.13.2.1
|
From: George H. <geo...@us...> - 2010-06-15 23:48:19
|
Update of /cvsroot/win32forth/win32forth/src In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv12109 Modified Files: Tag: V614XX 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.13 retrieving revision 1.13.2.1 diff -C2 -d -r1.13 -r1.13.2.1 *** w32fMsg.f 20 Oct 2008 21:20:45 -0000 1.13 --- w32fMsg.f 15 Jun 2010 23:48:11 -0000 1.13.2.1 *************** *** 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 |
