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 ;
|
