[Scsh-checkins] CVS: scx/scheme/xlib key.scm,NONE,1.1

[David Frese <frese@users.sourceforge.net>]

Update of /cvsroot/scsh/scx/scheme/xlib
In directory usw-pr-cvs1:/tmp/cvs-serv2047

Added Files:
        key.scm 
Log Message:
first implementation.


--- NEW FILE ---
(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")