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
|
