Update of /cvsroot/win32forth/win32forth/demos/AccelDemo
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv27125/demos/AccelDemo
Modified Files:
Accel.f
Log Message:
Minor tweeks
Index: Accel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/demos/AccelDemo/Accel.f,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** Accel.f 20 Aug 2008 00:20:54 -0000 1.4
--- Accel.f 21 Aug 2008 23:39:37 -0000 1.5
***************
*** 171,178 ****
ACCEL-HNDL
pMsg @ \ get the message's HWND
! Call TranslateAccelerator 0=
! if pMsg Call TranslateMessage drop
! pMsg Call DispatchMessage drop
! then
pMsg flag ;
--- 171,178 ----
ACCEL-HNDL
pMsg @ \ get the message's HWND
! Call TranslateAccelerator 0= to flag
! \ if pMsg Call TranslateMessage drop
! \ pMsg Call DispatchMessage drop
! \ then
pMsg flag ;
|
