From 2dfc2a6ab62e103258f82dc5efa3ba6f26537691 Mon Sep 17 00:00:00 2001
From: Antonio Linares <alinares@fivetechsoft.com>
Date: Wed, 4 Aug 1999 13:32:12 +0000
Subject: [PATCH] improved cursor management on ShowScoreBoard method

---
 harbour/source/rtl/tgetlist.prg | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/harbour/source/rtl/tgetlist.prg b/harbour/source/rtl/tgetlist.prg
index a861f22c69..829e35e0ec 100644
--- a/harbour/source/rtl/tgetlist.prg
+++ b/harbour/source/rtl/tgetlist.prg
@@ -467,7 +467,7 @@ return oOldGet
 
 METHOD ShowScoreboard() CLASS TGetList
 
-   local nRow, nCol
+   local nRow, nCol, nOldCursor := SetCursor( 0 )
 
    if Set( _SET_SCOREBOARD )
       nRow = Row()
@@ -475,6 +475,7 @@ METHOD ShowScoreboard() CLASS TGetList
       SetPos( SCORE_ROW, SCORE_COL )
       DispOut( If( Set( _SET_INSERT ), "Ins", "   " ) )
       SetPos( nRow, nCol )
+      SetCursor( nOldCursor )
    endif
 
 return nil