69 lines
2.0 KiB
Scheme
69 lines
2.0 KiB
Scheme
|
(define (display-min-keycode display)
|
||
|
|
(%display-min-keycode (display-Xdisplay display)))
|
||
|
|
|
||
|
|
(import-lambda-definition %display-min-keycode (Xdisplay)
|
||
|
|
"scx_Display_Min_Keycode")
|
||
|
|
|
||
|
|
(define (display-max-keycode display)
|
||
|
|
(%display-max-keycode (display-Xdisplay display)))
|
||
|
|
|
||
|
|
(import-lambda-definition %display-max-keycode (Xdisplay)
|
||
|
|
"scx_Display_Max_Keycode")
|
||
|
|
|
||
|
|
(define (display-keysyms-per-keycode display)
|
||
|
|
(%display-keysyms-per-keycode (display-Xdisplay display)))
|
||
|
|
|
||
|
|
(import-lambda-definition %display-keysyms-per-keycode (Xdisplay)
|
||
|
|
"scx_Display_Keysyms_Per_Keycode")
|
||
|
|
|
||
|
|
(define (string->keysym string)
|
||
|
|
(%string->keysym (if (symbol? string)
|
||
|
|
(symbol->string string)
|
||
|
|
string)))
|
||
|
|
|
||
|
|
(import-lambda-definition %string->keysym (s)
|
||
|
|
"scx_String_To_Keysym")
|
||
|
|
|
||
|
|
(define (keysym->string keysym)
|
||
|
|
(%keysym->string keysym))
|
||
|
|
|
||
|
|
(import-lambda-definition %keysym->string (k)
|
||
|
|
"scx_Keysym_To_String")
|
||
|
|
|
||
|
|
(define (keycode->keysym display keycode index)
|
||
|
|
(%keycode->keysym (display-Xdisplay display)
|
||
|
|
keycode index))
|
||
|
|
|
||
|
|
(import-lambda-definition %keycode->keysym (Xdisplay kc i)
|
||
|
|
"scx_Keycode_To_Keysym")
|
||
|
|
|
||
|
|
(define (keysym->keycode display keysym)
|
||
|
|
(%keysym->keycode (display-Xdisplay display)
|
||
|
|
keysym))
|
||
|
|
|
||
|
|
(import-lambda-definition %keysym->keycode (Xdisplay ks)
|
||
|
|
"scx_Keysym_To_Keycode")
|
||
|
|
|
||
|
|
(define (lookup-string display keycode mask)
|
||
|
|
(%lookup-string (display-Xdisplay display)
|
||
|
|
keycode mask))
|
||
|
|
|
||
|
|
(import-lambda-definition %lookup-string (Xdisplay kc m)
|
||
|
|
"scx_Lookup_String")
|
||
|
|
|
||
|
|
(define (rebind-keysym display keysym modifiers string)
|
||
|
|
(%rebind-keysym (display-Xdisplay display)
|
||
|
|
keysym
|
||
|
|
(list->vector modifiers)
|
||
|
|
string))
|
||
|
|
|
||
|
|
(import-lambda-definition %rebind-keysym (Xdisplay ks mods str)
|
||
|
|
"scx_Rebind_Keysym")
|
||
|
|
|
||
|
|
(define (refresh-keyboard-mapping window type)
|
||
|
|
(%refresh-keyboard-mapping (display-Xdisplay (window-display window))
|
||
|
|
(window-Xwindow window)
|
||
|
|
type))
|
||
|
|
|
||
|
|
(import-lambda-definition %refresh-keyboard-mapping (Xdisplay Xwindow type)
|
||
|
|
"scx_Refresh_Keyboard_Mapping")
|