Use fg/b/me from screen.4th instead of literals

MFC after:	3 days
X-MFC-to:	stable/10
This commit is contained in:
Devin Teske 2015-04-02 01:46:17 +00:00
parent 1d549750c9
commit 011ac1b05a
Notes: svn2git 2020-12-20 02:59:44 +00:00
svn path=/head/; revision=280974
2 changed files with 7 additions and 11 deletions

View file

@ -216,13 +216,10 @@ also menu-infrastructure definitions
dup menuX @ swap at-xy
\ Print the value of menuidx
loader_color? if
." " (  )
then
loader_color? dup ( -- bool bool )
if b then
menuidx @ .
loader_color? if
." " (  )
then
if me then
\ Move the cursor forward 1 column
dup menuX @ 1+ swap at-xy

View file

@ -85,11 +85,10 @@ only forth definitions also version-processing
dup versionX @ swap - versionY @ at-xy
\ Print the version (optionally in cyan)
loader_color? if
." " type ." "
else
type
then
loader_color? dup ( -- bool bool )
if 6 fg then
type
if me then
;
only forth definitions