[ 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