4 Replies Latest reply on May 24, 2015 7:12 PM by tehte

    Why Menu Bar does not work in Library Manager?


      I have a startup script below to preview a Symbol in Library Manager. Unfortunately, my custom &myMenu as below cannot work. Any reason? If I commented preview Symbol code (line 7), it works fine. Any advice?


      Dim appID, app, job, libObj, actLibInit, actPSymbol

      appID = "LibraryManager.Application"

      Set app = GetObject(, appID)

      job = "C:\Temp\Mentor-docs\AATK\1499\AATK_1499\AATK_Central_Lib\AATK_Central_Lib.lmc"

      Set libObj = app.OpenLibrary(job)

      Set actLibInit = app.ActiveLibrary

      actPSymbol = app.PreviewSymbolEx(job, "active_discrete", "crystal", kSYMBOL_DX)


      Dim docMenuBar, menupos, sMenu

      Set docMenuBar = CommandBars("Main Menu Bar")

      menupos = docMenuBar.Controls.Count()

      Set sMenu = docMenuBar.Controls.Add(cmdControlPopup,,,menupos)

      sMenu.Caption = "&myMenu"