From 57752f19db0ddd5106a12c66d99767ed0afe91d9 Mon Sep 17 00:00:00 2001 From: Przemyslaw Czerpak Date: Sun, 5 Aug 2007 13:10:32 +0000 Subject: [PATCH] 2007-08-05 15:10 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl) * harbour/contrib/libct/screen3.prg ! fixed typo ISNUMERIC was used instead of ISNUMBER --- harbour/ChangeLog | 4 ++++ harbour/contrib/libct/screen3.prg | 4 ++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 04432c175e..e6cbf0063f 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -8,6 +8,10 @@ 2002-12-01 13:30 UTC+0100 Foo Bar */ +2007-08-05 15:10 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl) + * harbour/contrib/libct/screen3.prg + ! fixed typo ISNUMERIC was used instead of ISNUMBER + 2007-08-05 15:00 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl) * harbour/contrib/libct/Makefile + harbour/contrib/libct/keysec.prg diff --git a/harbour/contrib/libct/screen3.prg b/harbour/contrib/libct/screen3.prg index fd1a4c5f04..c2c2778215 100644 --- a/harbour/contrib/libct/screen3.prg +++ b/harbour/contrib/libct/screen3.prg @@ -56,13 +56,13 @@ #include "common.ch" FUNCTION CLEAREOL( nRow, nCol, xAttr, xChar ) - IF !ISNUMERIC( nRow ) + IF !ISNUMBER( nRow ) nRow := ROW() ENDIF RETURN CLEARWIN( nRow, nCol, nRow, /*MAXCOL()*/, xAttr, xChar ) FUNCTION CLEOL( nRow, nCol ) - IF !ISNUMERIC( nRow ) + IF !ISNUMBER( nRow ) nRow := ROW() ENDIF RETURN CLEARWIN( nRow, nCol, nRow, /*MAXCOL()*/, 7 /*"W/N"*/, " " )