#lang scheme

(require "../x11.ss")
(require "../xinput.ss")

(define display (XOpenDisplay #f))
(for-each (lambda (device)
            (printf "got device ~a\n" device)
            (printf " class is ~a\n" (XAnyClassInfo-class (XDeviceInfo-input-class-info device)))
            (printf " length is ~a\n" (XAnyClassInfo-length (XDeviceInfo-input-class-info device)))
            )
          (XListInputDevices display))