cMenuItem = "LifeCyle - Build" lFound = .F. FOR m=1 TO CNTBAR("_MTOOLS") lnBarNum = GETBAR('_MTOOLS', m) lFound = lFound or (PRMBAR("_MTOOLS",lnBarNum)=cMenuItem) NEXT IF NOT lFound DEFINE BAR (CNTBAR("_MTOOLS")+1) OF _MTOOLS PROMPT cMenuItem KEY ALT+L MESSAGE "Open LifeCycle - Build Cycle" ON SELECTION BAR (CNTBAR("_MTOOLS")) OF _MTOOLS DO "&cAppPath.lcBuild" ENDIF>I am trying something like that.
>cMenuItem = "LifeCyle - Build" >lFound = .F. >FOR m=1 TO CNTBAR("_MTOOLS") > lFound = lFound or (PRMBAR("_MTOOLS",m)=cMenuItem) >NEXT >IF NOT lFound > DEFINE BAR (CNTBAR("_MTOOLS")+1) OF _MTOOLS PROMPT cMenuItem KEY ALT+L MESSAGE "Open LifeCycle - Build Cycle" > ON SELECTION BAR (CNTBAR("_MTOOLS")) OF _MTOOLS DO "&cAppPath.lcBuild" >ENDIF >>