scsh-conservatory
/
scx
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

first implementation.

This commit is contained in:
frese 2001-08-22 11:50:05 +00:00
parent d4d7f0c759
commit 04a91a751e
1 changed files with 69 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

69
scheme/xlib/key.scm Normal file
View File

@ -0,0 +1,69 @@
(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")