From 99fd9a3ceebda64fbaad7eb3ce3587fa515a1e27 Mon Sep 17 00:00:00 2001
From: Antonio Linares <alinares@fivetechsoft.com>
Date: Fri, 30 May 2003 07:34:43 +0000
Subject: [PATCH] Minor fix to allow new Class inherited from this one

---
 harbour/source/debug/dbgtmenu.prg | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/harbour/source/debug/dbgtmenu.prg b/harbour/source/debug/dbgtmenu.prg
index ab02da8e84..e6b20739be 100644
--- a/harbour/source/debug/dbgtmenu.prg
+++ b/harbour/source/debug/dbgtmenu.prg
@@ -180,7 +180,7 @@ METHOD ClosePopup( nPopup ) CLASS TDbMenu
 
    if nPopup != 0
       oPopup := ::aItems[ nPopup ]:bAction
-      if oPopup:ClassName() == "TDBMENU"
+      if ValType( oPopup ) == "O"
          RestScreen( oPopup:nTop, oPopup:nLeft, oPopup:nBottom + 1, oPopup:nRight + 2,;
                      oPopup:cBackImage )
          oPopup:cBackImage := nil