Author: dteske
Date: Thu Apr 2 01:46:17 2015
New Revision: 280974
URL: https://svnweb.freebsd.org/changeset/base/280974
Log:
Use fg/b/me from screen.4th instead of literals
MFC after: 3 days
X-MFC-to: stable/10
Modified:
head/sys/boot/forth/menu.4th
head/sys/boot/forth/version.4th
Modified: head/sys/boot/forth/menu.4th
==============================================================================
--- head/sys/boot/forth/menu.4th Thu Apr 2 01:02:42 2015
(r280973)
+++ head/sys/boot/forth/menu.4th Thu Apr 2 01:46:17 2015
(r280974)
@@ -216,13 +216,10 @@ also menu-infrastructure definitions
dup menuX @ swap at-xy
\ Print the value of menuidx
- loader_color? if
- ." [1m" ( [22m )
- then
+ loader_color? dup ( -- bool bool )
+ if b then
menuidx @ .
- loader_color? if
- ." [37m" ( [39m )
- then
+ if me then
\ Move the cursor forward 1 column
dup menuX @ 1+ swap at-xy
Modified: head/sys/boot/forth/version.4th
==============================================================================
--- head/sys/boot/forth/version.4th Thu Apr 2 01:02:42 2015
(r280973)
+++ head/sys/boot/forth/version.4th Thu Apr 2 01:46:17 2015
(r280974)
@@ -85,11 +85,10 @@ only forth definitions also version-proc
dup versionX @ swap - versionY @ at-xy
\ Print the version (optionally in cyan)
- loader_color? if
- ." [36m" type ." [37m"
- else
- type
- then
+ loader_color? dup ( -- bool bool )
+ if 6 fg then
+ type
+ if me then
;
only forth definitions
_______________________________________________
[email protected] mailing list
http://lists.freebsd.org/mailman/listinfo/svn-src-head
To unsubscribe, send any mail to "[email protected]"
