[Win32forth-cvs] win32forth/demos/AccelDemo Accel.f,1.4,1.5

SourceForge Headquarters 225 Broadway Suite 1600 San Diego, CA 92101 +1 (858) 422-6466

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 ;