fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Minor Code Change

Browse Source
This commit is contained in:
Andi Jahja
1999-07-31 08:50:24 +00:00
parent d3457b8776
commit d7bc995132
1 changed files with 1 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/source/rtl/menu.prg
View File

@@ -44,7 +44,7 @@ sayitem(nrow, ncol, citem, setcolor())
return nil
********************************************************************************
function __menuto(bvarblock, cvarname, anexits)
function __menuto(bvarblock, cvarname)
********************************************************************************
local athismenu := amenu
local nselect, ncurrent, nprevious := 0
@@ -83,9 +83,6 @@ do while ncurrent > 0
nkey := inkey(0)
do case
case anexits != nil .and. ascan(anexits, nkey) > 0
nselect := ncurrent
ncurrent := 0
case nkey == K_ENTER .or. nKey == K_PGUP .or. nKey == K_PGDN
nselect := ncurrent
ncurrent := 0