d/freebsd-skq
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix an oversight that cyclic menu items actually are zero-based and can

Browse Source 
accommodate 10 different states.

Reviewed by:	eadler, adrian (co-mentor)
Approved by:	adrian (co-mentor)
This commit is contained in:
Devin Teske 2012-10-09 03:11:15 +00:00
parent 8d9cadfb22
commit 09bc77f513
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
sys/boot/forth/menu.4th
View File

@ -935,23 +935,23 @@ create init_text8 255 allot
s" menu_caption[x][y]" \ cycle_menuitem caption s" menu_caption[x][y]" \ cycle_menuitem caption
-rot 2dup 13 + c! rot \ replace 'x' -rot 2dup 13 + c! rot \ replace 'x'
49 -rot 48 -rot
begin begin
16 2over rot + c! \ replace 'y' 16 2over rot + c! \ replace 'y'
2dup unsetenv 2dup unsetenv
rot 1+ dup 56 > 2swap rot rot 1+ dup 57 > 2swap rot
until until
2drop drop 2drop drop
s" ansi_caption[x][y]" \ cycle_menuitem ANSI caption s" ansi_caption[x][y]" \ cycle_menuitem ANSI caption
-rot 2dup 13 + c! rot \ replace 'x' -rot 2dup 13 + c! rot \ replace 'x'
49 -rot 48 -rot
begin begin
16 2over rot + c! \ replace 'y' 16 2over rot + c! \ replace 'y'
2dup unsetenv 2dup unsetenv
rot 1+ dup 56 > 2swap rot rot 1+ dup 57 > 2swap rot
until until
2drop drop 2drop drop