「Set-accelerator」の版間の差分
編集の要約なし |
編集の要約なし |
||
20行目: | 20行目: | ||
; メニューをセット | ; メニューをセット | ||
(gs:menu 'Menu "Menu") | (gs:menu 'Menu "Menu") | ||
(gs:add-to 'Menu 'Open 'Save ' | (gs:add-to 'Menu 'Open 'Save 'Save_as) | ||
(gs:add-separator 'Menu) | (gs:add-separator 'Menu) | ||
(gs:add-to 'Menu 'Copy 'Cut 'Paste 'Select_All) | (gs:add-to 'Menu 'Copy 'Cut 'Paste 'Select_All) |
2011年6月14日 (火) 14:57時点における版
- 構文
- (gs:set-accelerator sym-menu-item str-keystroke)
- 機能
- メニューアイテムにショートカット、アクセラレータをセットする。
- 引数
-
- sym-menu-item : アクセラレータキーをセットするメニューアイテム名
- str-keystroke : キーストロークの文字列
- 戻り値
- なし
- 例.
; メニューをセット (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")