alx/ueforth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix windows start to be delayed correctly.

Browse Source
This commit is contained in:
Brad Nelson
2022-02-11 20:45:57 -08:00
parent b64e43f701
commit 3ae415b513
2 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
ueforth/common/ansi.fs
View File

@ -30,5 +30,4 @@ forth definitions ansi
: at-xy ( x y -- ) esc ." [" 1+ n. ." ;" 1+ n. ." H" ; : at-xy ( x y -- ) esc ." [" 1+ n. ." ;" 1+ n. ." H" ;
: page esc ." [2J" esc ." [H" ; : page esc ." [2J" esc ." [H" ;
: set-title ( a n -- ) esc ." ]0;" type bel ; : set-title ( a n -- ) esc ." ]0;" type bel ;
s" uEforth" set-title
forth forth

7
ueforth/common/desktop.fs
View File

@ -17,4 +17,9 @@ forth definitions internals
: argc ( -- n ) 'argc @ ; : argc ( -- n ) 'argc @ ;
: argv ( n -- a n ) cells 'argv @ + @ z>s ; : argv ( n -- a n ) cells 'argv @ + @ z>s ;
forth internals definitions also ansi
: boot-set-title s" uEforth" set-title ;
' boot-set-title boot-prompt !
only forth definitions