* source/rtl/getsys.prg

! Fix RETURN in Accelerator() and HitTest() functions.
2002-06-14 17:52:39 +00:00
parent 07de0bf9e6
commit 854d5f63bd
1 changed files with 3 additions and 4 deletions
--- a/harbour/source/rtl/getsys.prg
+++ b/harbour/source/rtl/getsys.prg
@@ -424,9 +424,8 @@ FUNCTION HitTest( aGetList, MouseRow, MouseCol, aMsg ) // Removed STATIC

   IF oGetList != NIL
      RETURN oGetlist:Hittest( aGetList, MouseRow, MouseCol, aMsg ) // Removed STATIC
-   ELSE
-      RETURN 0
   ENDIF
+   RETURN 0

 /***
 *
@@ -440,8 +439,8 @@ FUNCTION Accelerator( aGetList, nKey, aMsg ) // Removed STATIC

   IF oGetList != NIL
      RETURN oGetlist:Accelerator( aGetList, nKey, aMsg ) // Removed STATIC
-   ELSE
-      RETURN 0
   ENDIF
+   RETURN 0

 #endif
+