script AppDelegate
　　property parent : class "NSObject"
　　
　　— IBOutlets
　　property theWindow : missing value
　　
　　property NSMenu : a reference to current application’s NSMenu
　　property NSMenuItem : a reference to current application’s NSMenuItem
　　property NSStatusBar : a reference to current application’s NSStatusBar
　　property NSVariableStatusItemLength : a reference to current application’s NSVariableStatusItemLength
　　
　　
　　on applicationWillFinishLaunching:aNotification
　　　　my initializeMenu:(aNotification)
　　end applicationWillFinishLaunching:
　　
　　
　　on applicationShouldTerminate:sender
　　　　return current application’s NSTerminateNow
　　end applicationShouldTerminate:
　　
　　
　　on clicked:aSender
　　　　my activateMe:(me)
　　　　set aTag to (tag of aSender) as integer –Important!!
　　　　set aTitle to (title of aSender) as string
　　　　
　　　　if aTag is in {41, 42, 43, 44, 45, 46} then
　　　　　　–my activateMe:aSender
　　　　　　current application’s NSApplication’s |activate|
　　　　else if aTag = 100 then
　　　　　　display dialog "Clicked"
　　　　end if
　　　　
　　　　if aTitle = "Quit" then quit
　　end clicked:
　　
　　
　　on activateMe:aSender
　　　　–macOS 13から15.0あたりまでactivateができなかった（多分バグ）
　　　　–current application’s NSApplication’s |activate|
　　　　tell current application to activate
　　　　–theWindow’s makeKeyAndOrderFront:(me)
　　　　theWindow’s orderFrontRegardless()
　　end activateMe:
　　
　　
　　–Status Menu Structure
　　on initializeMenu:aSender
　　　　set aList to {"Piyomaru", "Software", "", "Function", {"1", "2", "3", "4", "5"}, "", "Quit"}
　　　　
　　　　set aStatusItem to current application’s NSStatusBar’s systemStatusBar()’s statusItemWithLength:(current application’s NSVariableStatusItemLength)
　　　　
　　　　aStatusItem’s setTitle:" TEST "
　　　　aStatusItem’s setHighlightMode:true
　　　　aStatusItem’s setMenu:(createMenu(aList) of me)
　　end initializeMenu:
　　
　　
　　
　　on createMenu(aList)
　　　　set aMenu to current application’s NSMenu’s alloc()’s init()
　　　　set aCount to 10
　　　　
　　　　set prevMenuItem to ""
　　　　
　　　　repeat with i in aList
　　　　　　set j to contents of i
　　　　　　set aClass to (class of j) as string
　　　　　　
　　　　　　if j is equal to "" then
　　　　　　　　set aMenuItem to (current application’s NSMenuItem’s separatorItem())
　　　　　　　　(aMenu’s addItem:aMenuItem)
　　　　　　else
　　　　　　　　if (aClass = "text") or (aClass = "string") then
　　　　　　　　　　
　　　　　　　　　　if j = "Quit" then
　　　　　　　　　　　　set aMenuItem to (current application’s NSMenuItem’s alloc()’s initWithTitle:j action:"clicked:" keyEquivalent:"")
　　　　　　　　　　else
　　　　　　　　　　　　set aMenuItem to (current application’s NSMenuItem’s alloc()’s initWithTitle:j action:"clicked:" keyEquivalent:"")
　　　　　　　　　　end if
　　　　　　　　　　
　　　　　　　　　　(aMenuItem’s setTag:aCount)
　　　　　　　　　　(aMenuItem’s setTarget:me)
　　　　　　　　　　(aMenu’s addItem:aMenuItem)
　　　　　　　　　　
　　　　　　　　　　set aCount to aCount + 10
　　　　　　　　　　copy aMenuItem to prevMenuItem
　　　　　　　　　　
　　　　　　　　　　
　　　　　　　　else if aClass = "list" then
　　　　　　　　　　–Generate Submenu
　　　　　　　　　　set subMenu to current application’s NSMenu’s new()
　　　　　　　　　　(aMenuItem’s setSubmenu:subMenu)
　　　　　　　　　　
　　　　　　　　　　set subCounter to 1
　　　　　　　　　　
　　　　　　　　　　repeat with ii in j
　　　　　　　　　　　　set jj to contents of ii
　　　　　　　　　　　　
　　　　　　　　　　　　set subMenuItem1 to (current application’s NSMenuItem’s alloc()’s initWithTitle:jj action:"clicked:" keyEquivalent:"")
　　　　　　　　　　　　(subMenuItem1’s setTarget:me)
　　　　　　　　　　　　(subMenuItem1’s setTag:(aCount + subCounter))
　　　　　　　　　　　　(subMenu’s addItem:subMenuItem1)
　　　　　　　　　　　　
　　　　　　　　　　　　set subCounter to subCounter + 1
　　　　　　　　　　end repeat
　　　　　　　　　　
　　　　　　　　end if
　　　　　　　　
　　　　　　end if
　　　　　　
　　　　end repeat
　　　　
　　　　return aMenu
　　end createMenu
　　
end script

★Click Here to Open This Script