Set-accelerator
- 構文
- (gs:set-accelerator sym-menu-item str-keystroke)
- 機能
- メニューアイテムにショートカット、アクセラレータをセットする。
- 引数
-
- sym-menu-item ： アクセラレータキーをセットするメニューアイテム名
- str-keystroke ： キーストロークの文字列
- 戻り値
- なし
- 以下は、キーストロークスの文字を作成する規則
構文 : modifiers* (typedID | pressedReleasedID) modifiers := shift | control | ctrl | meta | alt | button1 | button2 | button3 typedID := typed typedKey typedKey := string of length 1 giving Unicode character. pressedReleasedID := (pressed | released) key key := KeyEvent key code name, i.e. the name following "VK_".
例:
"INSERT"
"control DELETE"
"alt shift X"
"alt shift released X"
"typed a"
MacOS X のアップルキーはメタキー、altキーはオプションキー。 レターは大文字で記述する。キーはすべてのプラットホームで自動的にメニュー項目の表示に追加される。
- 記述例.
; メニューをセット (gs:menu 'Menu "Menu") (gs:add-to 'Menu 'Open 'Save 'Save_as) (gs:add-separator 'Menu) (gs:add-to 'Menu 'Copy 'Cut 'Paste 'Select_All) (gs:add-separator 'Menu) (gs:add-to 'Menu 'GoHistory 'GoWork 'GoCalendar) (gs:menu-bar 'Frame 'Menu) ;メニューアイテムをセット (gs:menu-item 'Open 'load-handler "Open") (gs:menu-item 'Save 'save-handler "Save") (gs:menu-item 'Save_as 'saveas-handler "Save as") (gs:menu-item 'Copy 'copy-handler "Copy") (gs:menu-item 'Cut 'cut-handler "Cut") (gs:menu-item 'Paste 'paste-handler "Paste") (gs:menu-item 'Select_All 'salectall-handler "Select All") ; ショートカットをセット (gs:set-accelerator 'Open "ctrl O") (gs:set-accelerator 'Save "ctrl S") (gs:set-accelerator 'Save_as "ctrl shift S") (gs:set-accelerator 'Copy "ctrl C") (gs:set-accelerator 'Cut "ctrl X") (gs:set-accelerator 'Paste "ctrl V") (gs:set-accelerator 'Select_All "ctrl A")