[Win32forth-cvs] win32forth/src Keysave.f,1.1,1.2

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

Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3900/src

Modified Files:
	Keysave.f 
Log Message:
dbu: Fixed console line wraping bug

Index: Keysave.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Keysave.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Keysave.f	21 Dec 2004 00:19:08 -0000	1.1
--- Keysave.f	16 Jan 2005 13:09:04 -0000	1.2
***************
*** 473,500 ****
  
  : paste-load    ( -- )
!                 conhndl call OpenClipboard 0=
!         if      beep
!         else    CF_TEXT call GetClipboardData ?dup
!            if   to paste-hdl
!                 paste-hdl call GlobalLock abs>rel to paste-ptr       \ lock memory
!                 paste-ptr 1000000 2dup 0 scan nip - to paste-len to paste-ptr
!                 paste-len
!                 if      0 to paste-off
!                         0 to play0cnt
!                         0x0 pushkey                     \ kick start playkeys
!                         ['] paste1key  is auto_key
!                         ['] paste1key? is auto_key?
!                         paste1key
!                 else    beep
!                         0 to paste-ptr
!                         0 to paste-len
!                         0 to paste-off
!                         paste-hdl call GlobalUnlock drop \ unlock it, done
!                         call CloseClipboard ?win-error
!                 then                                    \ cleanup for clipboard
!           else  beep
!                 Call CloseClipboard ?win-error
!           then
!         then    ;
  
  : win-paste-load ( wParam lParam -- wParam lParam )
--- 473,499 ----
  
  : 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
!                        0x0 pushkey                     \ kick start playkeys
!                        ['] paste1key  is auto_key
!                        ['] paste1key? is auto_key?
!                        paste1key
!                   else beep
!                        0 to paste-ptr
!                        0 to paste-len
!                        0 to paste-off
!                        paste-hdl call GlobalUnlock drop \ unlock it, done
!                        call CloseClipboard ?win-error
!                   then                                    \ cleanup for clipboard
!              else beep
!                   Call CloseClipboard ?win-error
!              then
!         then ;
  
  : win-paste-load ( wParam lParam -- wParam lParam )
***************
*** 518,522 ****
                  GMEM_MOVEABLE GMEM_DDESHARE or          \ flags
                  call GlobalAlloc to gblhndl             \ allocate a buffer
!                 gblhndl call GlobalLock abs>rel to gblptr \ lock memory
  
                  getxy nip getrowoff + l/s min to l/s    \ adjust to lines needed
--- 517,521 ----
                  GMEM_MOVEABLE GMEM_DDESHARE or          \ flags
                  call GlobalAlloc to gblhndl             \ allocate a buffer
!                 gblhndl call GlobalLock to gblptr \ lock memory
  
                  getxy nip getrowoff + l/s min to l/s    \ adjust to lines needed
***************
*** 573,574 ****
--- 572,574 ----
  MODULE          \ finish up the module
  
+