From 2026b1a28bcc481a4589589dc043b10b93a384cd Mon Sep 17 00:00:00 2001 From: Viktor Szakats Date: Sat, 30 Apr 2011 23:05:13 +0000 Subject: [PATCH] 2011-05-01 01:04 UTC+0200 Viktor Szakats (harbour.01 syenar.hu) * src/rtl/tpopuphb.prg ! non-c53 mode fix --- harbour/ChangeLog | 4 ++++ harbour/src/rtl/tpopuphb.prg | 4 ++++ 2 files changed, 8 insertions(+) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index df67f546a6..a40610bbb4 100644 --- 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? diff --git a/harbour/src/rtl/tpopuphb.prg b/harbour/src/rtl/tpopuphb.prg index f3d6b832d8..5f37eed592 100644 --- 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