improved cursor management on ShowScoreBoard method

1999-08-04 13:32:12 +00:00
parent 07833823e6
commit 2dfc2a6ab6
1 changed files with 2 additions and 1 deletions
--- 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