From 942d527f74b8f79e1edbdd2f5244c56807dd2554 Mon Sep 17 00:00:00 2001
From: fdbozzo <fdbozzo@.(none)>
Date: Wed, 27 Aug 2014 20:50:21 +0200
Subject: [PATCH] =?UTF-8?q?Changeset:=20428=20fdbozzo=20-=2027/08/2014=202?=
 =?UTF-8?q?0:40:37:=20-=20Agregado=20caso=20cuando=20#Bar=20es=20la=20?=
 =?UTF-8?q?=C3=BAltima=20opci=C3=B3n?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 foxbin2prg.prg | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/foxbin2prg.prg b/foxbin2prg.prg
index 584a2f5..6a883db 100644
--- a/foxbin2prg.prg
+++ b/foxbin2prg.prg
@@ -19011,8 +19011,8 @@ DEFINE CLASS CL_MENU_OPTION AS CL_MENU_COL_BASE
 						CASE EMPTY( tcLine )
 							LOOP
 
-						CASE LEFT( tcLine, 11 ) == 'DEFINE BAR '
-							*-- Se encontró el siguiente DEFNE BAR, por lo que el analizado es de tipo #BAR vacío
+						CASE INLIST( LEFT( tcLine, 11 ), 'DEFINE BAR ', 'DEFINE PAD ' )
+							*-- Se encontró el siguiente DEFINE BAR/PAD, por lo que el analizado es de tipo #BAR vacío
 							*-- y no tiene ON BAR ni nada más.
 							loReg.OBJCODE	= 78	&& Bar#
 							EXIT