From d2273dc1edf633ee072b4b0fe6831f55bf7c457d Mon Sep 17 00:00:00 2001 From: Antonio Linares Date: Mon, 24 Jan 2000 13:06:41 +0000 Subject: [PATCH] 2000-01-23 13:34 GMT+1 Antonio Linares --- harbour/source/rtl/tgetlist.prg | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/harbour/source/rtl/tgetlist.prg b/harbour/source/rtl/tgetlist.prg index b5dd6c9591..718ff3ca66 100644 --- a/harbour/source/rtl/tgetlist.prg +++ b/harbour/source/rtl/tgetlist.prg @@ -38,6 +38,7 @@ #include "getexit.ch" #include "inkey.ch" #include "set.ch" +#include "setcurs.ch" #define SCORE_ROW 0 #define SCORE_COL 60 @@ -478,8 +479,10 @@ METHOD ShowScoreboard() CLASS TGetList if Set( _SET_SCOREBOARD ) nRow = Row() nCol = Col() + nOldCursor = SetCursor( SC_NONE ) DispOutAt( SCORE_ROW, SCORE_COL, If( Set( _SET_INSERT ), "Ins", " " ) ) SetPos( nRow, nCol ) + SetCursor( nOldCursor ) endif return nil @@ -521,4 +524,4 @@ FUNCTION ReadExit( lExit ) RETURN Set( _SET_EXIT, lExit ) FUNCTION ReadInsert( lInsert ) - RETURN Set( _SET_INSERT, lInsert ) + RETURN Set( _SET_INSERT, lInsert ) \ No newline at end of file