From 333f45b517b8371a19bffc7b1119598967fa1303 Mon Sep 17 00:00:00 2001
From: Lutz <Lutz@Scheffler-Software.de>
Date: Thu, 22 Apr 2021 07:59:45 +0200
Subject: [PATCH] Bar # 2

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

diff --git a/foxbin2prg.prg b/foxbin2prg.prg
index 648b142..8c333b4 100644
--- a/foxbin2prg.prg
+++ b/foxbin2prg.prg
@@ -28482,8 +28482,10 @@ Define Class CL_MENU_OPTION As CL_MENU_COL_BASE
 
  
  						Do Case
- 							Case m.lcBarName = '"'
- 								loReg.Name	= Substr( m.lcBarName, 2, Len( m.lcBarName ) - 2 )
+ 							Case LEFT ( m.lcBarName, 1 ) = '"'
+	 							lcBarName   	= Substr( m.lcBarName, 2, Len( m.lcBarName ) - 2 )
+ 								loReg.Name		= m.lcBarName
+ 								loReg.OBJCODE	= C_OBJCODE_MENUOPTION_BARNUM
  							Case Isdigit( m.lcBarName )
  						*-- Bar#
  								loReg.OBJCODE	= C_OBJCODE_MENUOPTION_BARNUM