Set-accelerator

提供:GizmoLabs - だいたい CAD LISP なサイト
構文
(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")