Set-accelerator

提供:GizmoLabs - だいたい CAD LISP なサイト
2011年6月14日 (火) 14:13時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成: {{NewLISP}} ; 構文 : : (gs:set-accelerator sym-menu-item str-keystroke) ; 機能 : メニューアイテムにショートカット、アクセラレータをセットする...)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(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")