[Win32forth-cvs] win32forth/src Keysave.f,1.5,1.6

[Jos v.d.V. <jo...@us...>]

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

Modified Files:
	Keysave.f 
Log Message:
Jos: Adapted for the old and new console.

Index: Keysave.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Keysave.f,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** Keysave.f	13 May 2007 07:52:26 -0000	1.5
--- Keysave.f	11 Nov 2007 01:02:40 -0000	1.6
***************
*** 501,505 ****
  ' _paste-load is paste-load
  
! : copy-console  { \ gblhndl gblptr b/l l/s len -- }
  \ *G Copy text to Windows clipboard
          marked? 0=
--- 501,505 ----
  ' _paste-load is paste-load
  
! : copy_console  { \ gblhndl gblptr b/l l/s len -- }
  \ *G Copy text to Windows clipboard
          marked? 0=
***************
*** 558,567 ****
          then    ;
  
! : cut-console   ( -- )
  \ *G Cut the complete text from the console window to the clipboard.
                  marked?
                  if      beep
!                 else    mark-all
!                         copy-console
                          cls
                  then    ;
--- 558,567 ----
          then    ;
  
! : cut_console   ( -- )
  \ *G Cut the complete text from the console window to the clipboard.
                  marked?
                  if      beep
!                 else    mark_all
!                         copy_console
                          cls
                  then    ;