Fluent 中的菜单和对话框基本都是用 Scheme 写的吧。
最近一段时间,终于学会了用 scheme 添加各种菜单 (GUI 和 TUI)。
通过打印出的 Fluent Scheme 命令和变量或网上流传的简单文档,可以用边试边猜。
首先,menubar 相关的一系列 procedure。
;; (rampant-menubar)
;; (update-menubar)
;; (client-update-menubar)
;; (cx-update-menubar)
;; (cx-clear-menubar)
然后是添加主菜单项
;; (cx-add-menu menuname mnemonic)
;; === (cx-add-menu "foo" #/F)
添加子菜单项
;; (cx-add-item menuname itemname #/H #f cx-client? callback)