From 30b5ba68e6c8b0c021dfca344a597639223e8c5f Mon Sep 17 00:00:00 2001
From: fernando <fernando@.(none)>
Date: Sun, 29 Dec 2013 04:11:16 +0100
Subject: [PATCH] =?UTF-8?q?Changeset:=20118=20Adaptaci=C3=B3n=20para=20sop?=
 =?UTF-8?q?ortar=20los=20men=C3=BAs=20Top=20Level=20Form?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 foxbin2prg.prg | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/foxbin2prg.prg b/foxbin2prg.prg
index d692cc7..ba22c5d 100644
--- a/foxbin2prg.prg
+++ b/foxbin2prg.prg
@@ -14122,7 +14122,7 @@ DEFINE CLASS CL_MENU AS CL_MENU_COL_BASE
 			loBarPop	= THIS.ITEM(1).oReg
 
 			DO CASE
-			CASE loHeader.ObjType = 1
+			CASE loHeader.ObjType = 1 OR loHeader.ObjType = 5
 				*-- Propecimiento principal de _MSYSMENU (ObjType:1, ObjCode:22)
 				IF NOT EMPTY(loReg.PROCEDURE)
 					TEXT TO lcText ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2
@@ -14141,7 +14141,7 @@ DEFINE CLASS CL_MENU AS CL_MENU_COL_BASE
 				*-- Propecimiento principal de _MSYSMENU (ObjType:1, ObjCode:22)
 				IF NOT EMPTY(loReg.PROCEDURE)
 					TEXT TO lcText ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2
-						ON SELECTION POPUP <<loBarPop.Name>> <<loReg.Procedure>>
+						ON SELECTION POPUP <<THIS.Item(1).Item(1).Item(1).oReg.Name>> <<loReg.Procedure>>
 					ENDTEXT
 				ENDIF
 
@@ -14446,7 +14446,7 @@ DEFINE CLASS CL_MENU_OPTION AS CL_MENU_COL_BASE
 					<<THIS.get_DefineBarText(loReg, loBarPop, tnNivel, toHeader)>>
 				ENDTEXT
 
-			CASE toParentReg.ObjType = 2 AND toParentReg.OBJCODE = 1 AND toHeader.ObjType = 1
+			CASE toParentReg.ObjType = 2 AND toParentReg.OBJCODE = 1 AND (toHeader.ObjType = 1 OR toHeader.ObjType = 5)
 				*-- Define Pad
 				TEXT TO lcText ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2
 					<<THIS.get_DefinePadText(loReg, loBarPop, tnNivel, toHeader)>>