[ Skill ] 鍵位不夠用之 Menu

https://www.cnblogs.com/yeungchie/

• code

;創建一個選項 A
A = hiCreateMenuItem(
    ?name       'A
    ?itemText   "A"
)

;創建一個選項 B
B = hiCreateMenuItem(
    ?name       'B
    ?itemText   "B"
)

;創建一個下拉菜單 C
C = hiCreatePulldownMenu(
    'C
    "C"
    list(B) ;下拉菜單中包含選項B
)

;創建一個側滑選項 D
D = hiCreateSliderMenuItem(
    ?name       'D
    ?itemText   "D"
    ?subMenu    C ;將下拉菜單 C 附加到選項 D 中
)

;創建一個下拉菜單 E
E = hiCreatePulldownMenu(
    'E
    "E"
    list(A D) ;下拉菜單中包含選項 A 和 D
)

;將菜單 E 追加到當前窗口
hiInsertBannerMenu(getCurrentWindow() E hiGetNumMenus(getCurrentWindow()))

;增加一個觸發機制（在 maskLayout 啟動時，將菜單 E 追加到對應窗口）。
procedure(ycAddMenu(\@optional arg(list(nil 'window hiGetCurrentWindow())))
    prog((win)
        win = arg->window
        hiInsertBannerMenu(win E hiGetNumMenus(win))
    )
)
deRegUserTriggers("maskLayout"  nil nil 'ycAddMenu)

• show