From 99c29f73d5453eef75b4f8f13cb1209a679423ca Mon Sep 17 00:00:00 2001 From: Antonio Linares Date: Tue, 22 Oct 2002 03:10:55 +0000 Subject: [PATCH] minor fix --- harbour/source/rtl/achoice.prg | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/harbour/source/rtl/achoice.prg b/harbour/source/rtl/achoice.prg index 55d53b7e07..4f8e756796 100644 --- a/harbour/source/rtl/achoice.prg +++ b/harbour/source/rtl/achoice.prg @@ -57,7 +57,7 @@ FUNCTION AChoice( nTop, nLeft, nBottom, nRight, acItems, xSelect, xUserFunc, nPo DEFAULT nLeft TO 0 // The leftmost column of the window DEFAULT nBottom TO MaxRow() // The bottommost row of the window DEFAULT nRight TO MaxCol() // The rightmost column of the window - + DEFAULT acItems TO {} // The items from which to choose DEFAULT xSelect TO .T. // Array or logical, what is selectable DEFAULT nPos TO 1 // The number of the selected item @@ -69,7 +69,7 @@ FUNCTION AChoice( nTop, nLeft, nBottom, nRight, acItems, xSelect, xUserFunc, nPo ENDIF IF nBottom > MaxRow() - nBorrom := MaxRow() + nBottom := MaxRow() ENDIF nNumRows := nBottom - nTop + 1