minor fix to prev

2007-09-13 02:55:22 +00:00
parent ff151929c6
commit 175821531e
1 changed files with 8 additions and 0 deletions
--- a/harbour/source/rtl/tgetlist.prg
+++ b/harbour/source/rtl/tgetlist.prg
@@ -576,9 +576,13 @@ METHOD GetPostValidate( oGet, aMsg ) CLASS HBGetList
      ::lUpdated := .T.
   ENDIF

+#ifdef HB_COMPAT_C53
   nOldCursor := SetCursor()
+#endif
   oGet:Reset()
+#ifdef HB_COMPAT_C53
   SetCursor( nOldCursor )
+#endif

   IF oGet:PostBlock != NIL

@@ -593,7 +597,11 @@ METHOD GetPostValidate( oGet, aMsg ) CLASS HBGetList
      ::ShowScoreBoard()
      oGet:UpdateBuffer()
      
+#ifdef HB_COMPAT_C53
      ::lUpdated := iif( oGet:changed, .T., lUpdated )
+#else
+      ::lUpdated := lUpdated
+#endif

      __GetListLast( Self )