Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20591/src
Modified Files:
Keysave.f
Log Message:
catch error if globallock fails; defer paste-load b/c it hangs my app when i vector key and do a ctrl-v
Index: Keysave.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Keysave.f,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** Keysave.f 3 May 2005 10:04:30 -0000 1.3
--- Keysave.f 29 Apr 2006 19:47:17 -0000 1.4
***************
*** 472,482 ****
then ;
! : paste-load ( -- )
! conhndl call OpenClipboard 0=
if beep
else CF_TEXT call GetClipboardData ?dup
! if dup to paste-hdl
! call GlobalLock to paste-ptr \ lock memory
! paste-ptr zcount nip dup to paste-len \ get len
if 0 to paste-off
0 to play0cnt
--- 472,484 ----
then ;
! defer paste-load
! : _paste-load ( -- )
! ( _conHndl) null call OpenClipboard 0=
if beep
else CF_TEXT call GetClipboardData ?dup
! if dup to paste-hdl
! call GlobalLock dup to paste-ptr \ lock memory
! 0= if call CloseClipboard drop exit then
! paste-ptr zcount nip dup to paste-len \ get len
if 0 to paste-off
0 to play0cnt
***************
*** 496,499 ****
--- 498,502 ----
then
then ;
+ ' _paste-load is paste-load
: win-paste-load ( wParam lParam -- wParam lParam )
***************
*** 572,574 ****
MODULE \ finish up the module
! |
