fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Minor fix to allow new Class inherited from this one

Browse Source
This commit is contained in:
Antonio Linares
2003-05-30 07:34:43 +00:00
parent bbfa409c72
commit 99fd9a3cee
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
harbour/source/debug/dbgtmenu.prg
View File

@@ -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