[Win32forth-cvs] win32forth/src/lib AcceleratorTables.f,1.3,1.4

[Dirk B. <db...@us...>]

Update of /cvsroot/win32forth/win32forth/src/lib
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv22929/src/lib

Modified Files:
	AcceleratorTables.f 
Log Message:
Changed to call TranslateAccelerator() before any other functions within the message-loop.

Index: AcceleratorTables.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/AcceleratorTables.f,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** AcceleratorTables.f	13 Jan 2006 17:50:33 -0000	1.3
--- AcceleratorTables.f	21 May 2006 10:07:05 -0000	1.4
***************
*** 57,61 ****
  \ *G Close a table and assign it to the given window.
          \ adds the code in #DOES> to the message chain
!         here  DOVAR ,  CurrentTable ,  swap ( Window ) ,  dup  msg-chain noop-chain-add  !
          #DOES> ( pMsg f pfa -- pMsg f )
          2@ @ swap @ 2>r   \ handle of table and handle of Window that will process the commands
--- 57,66 ----
  \ *G Close a table and assign it to the given window.
          \ adds the code in #DOES> to the message chain
! 
!         \ Changed to add it on the start of the chain instead of the end, because
!         \ accelerator keys bust be handled before any other things happen in the
!         \ massage loop, to work correctly (Sonntag, Mai 21 2006 dbu).
!         here  DOVAR ,  CurrentTable ,  swap ( Window ) ,  dup  msg-chain noop-chain-add-before !
! 
          #DOES> ( pMsg f pfa -- pMsg f )
          2@ @ swap @ 2>r   \ handle of table and handle of Window that will process the commands
***************
*** 67,78 ****
  : DisableAccelerators   ( a -- )                        \ W32F
  \ *G Destroys the Windows Accelerator Table.
! \ ** It does not matter trying to destroy a table more than once
          dup @ Call DestroyAcceleratorTable drop  off ;
  
  : EnableAccelerators    ( a -- )                        \ W32F
  \ *G Creates the Windows Accelerator Table.
! \ ** It does not matter creating the same table again as long as it is destroyed first
          dup DisableAccelerators
!         dup  cell+ 2@ swap Call CreateAcceleratorTable  swap ! ;
  
  MODULE
--- 72,83 ----
  : DisableAccelerators   ( a -- )                        \ W32F
  \ *G Destroys the Windows Accelerator Table.
!         \ It does not matter trying to destroy a table more than once.
          dup @ Call DestroyAcceleratorTable drop  off ;
  
  : EnableAccelerators    ( a -- )                        \ W32F
  \ *G Creates the Windows Accelerator Table.
!         \ It does not matter creating the same table again as long as it is destroyed first.
          dup DisableAccelerators
!         dup cell+ 2@ swap Call CreateAcceleratorTable  swap ! ;
  
  MODULE