Set-accelerator

構文: (gs:set-accelerator sym-menu-item str-keystroke)

機能: メニューアイテムにショートカット、アクセラレータをセットする。

引数

sym-menu-item ：アクセラレータキーをセットするメニューアイテム名
str-keystroke ：キーストロークの文字列

戻り値: なし

例.

; メニューをセット
(gs:menu 'Menu "Menu")
(gs:add-to 'Menu 'Open 'Save 'Close)
(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")