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

[bob a. <rd...@us...>]

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
  
!