Update of /cvsroot/win32forth/win32forth/src/console
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv985/win32forth/src/console
Modified Files:
ConsoleMenu.f
Log Message:
gah: Reverted to push-keys version, which works correctly with the latest console (since the line wrapping problem has been solved) so loading doesn't occur within the callback, which could produce funny results due to extra values on the stack.
Index: ConsoleMenu.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/console/ConsoleMenu.f,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** ConsoleMenu.f 20 Dec 2005 18:02:03 -0000 1.5
--- ConsoleMenu.f 1 Jun 2006 08:12:35 -0000 1.6
***************
*** 29,44 ****
\ changed to work with blanks in file name
\ January 31st, 2004 - 20:38 dbu
! \ corrected to allow very long filenames that wrap on the console
! \ James Boyd June 10th, 2004 - 1:02
! : load-forth ( -- ) \ load and compile a forth file
! conhndl start: LoadForth count dup
! if
! s" FLOAD '" type \ FLOAD '
! 2dup type \ filename
! [char] ' emit \ '
! \in-system-ok nostack1 included cr \ use \in-system-ok nostack1 to avoid warnings
! 0x0D pushkey \ to prompt OK
! else 2drop
! then ;
: print-forth ( -- ) \ print a forth file
--- 29,41 ----
\ changed to work with blanks in file name
\ January 31st, 2004 - 20:38 dbu
! : load-forth ( -- )
! conhndl start: LoadForth dup c@
! IF count pocket place
! s" FLOAD '" "pushkeys
! pocket count "pushkeys
! s" '" "pushkeys
! 0x0D pushkey
! ELSE drop
! THEN ;
: print-forth ( -- ) \ print a forth file
***************
*** 56,60 ****
THEN ;
! : edit-log ( -- ) \ edit a makro file
conhndl start: EditLog dup c@
IF count pocket place
--- 53,57 ----
THEN ;
! : edit-log ( -- ) \ edit a macro file
conhndl start: EditLog dup c@
IF count pocket place
|
