2011-05-01 01:04 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)

* src/rtl/tpopuphb.prg ! non-c53 mode fix
2011-04-30 23:05:13 +00:00
parent f7aa719cd5
commit 2026b1a28b
2 changed files with 8 additions and 0 deletions
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -16,6 +16,10 @@
   The license applies to all entries newer than 2009-04-28.
 */

+2011-05-01 01:04 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
+  * src/rtl/tpopuphb.prg
+    ! non-c53 mode fix
+
 2011-05-01 00:57 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
  * src/rtl/tpopuphb.prg
    ! typo?
--- a/harbour/src/rtl/tpopuphb.prg
+++ b/harbour/src/rtl/tpopuphb.prg
@@ -53,6 +53,8 @@

 #include "hbclass.ch"

+#ifdef HB_COMPAT_C53
+
 CREATE CLASS hb_POPUPMENU INHERIT hbPOPUPMENU

   EXPORTED:
@@ -197,3 +199,5 @@ METHOD isQuick( nKey, nID ) CLASS hb_POPUPMENU
   ENDIF

   RETURN .F.
+
+#endif