first implementation.

2001-08-22 11:50:05 +00:00 · 2001-08-22 11:50:05 +00:00 · 04a91a751e
parent d4d7f0c759
commit 04a91a751e
1 changed files with 69 additions and 0 deletions
--- a/scheme/xlib/key.scm
+++ b/scheme/xlib/key.scm
@ -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")