#!/bin/sh ../../scx <<EOF ,batch on ,open xlib ,batch off (define (scxev) (let* ((dpy (open-display)) (black (black-pixel dpy)) (white (white-pixel dpy)) (win (create-window (display-default-root-window dpy) 300 200 'event-mask '(all-events) 'background-pixel white)) ) (set-wm-name! win '("scx Event Listener")) (map-window win) (let event-loop () (display-flush-output dpy) (let ((e (wait-event dpy))) (display (event-type e)) (display " Event, Data:\n") (display (event-args e)) (newline) (newline) (event-loop)) (close-display dpy)))) (scxev) ,exit y EOF