diff options
| author | Ben Spencer <dangerous.ben@gmail.com> | 2010-12-28 14:40:32 +0000 |
|---|---|---|
| committer | Ben Spencer <dangerous.ben@gmail.com> | 2010-12-28 14:40:32 +0000 |
| commit | 14bdbc96563ced1cd0c79c8a638763842162bdcb (patch) | |
| tree | 0ebfdf7f7e3271d71cf38ac32de6e9c427f95e5b /core.lisp | |
| parent | 0a745aecbdc50285a50350510d0cf0ed0696b02d (diff) | |
Check X server supports XTEST before using it.
Diffstat (limited to 'core.lisp')
| -rw-r--r-- | core.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -71,7 +71,7 @@ (defun send-fake-click (win button) "Send a fake click (button press + button release) to win." - (if (find-package :xtest) + (if (and (find-package :xtest) (xlib:query-extension *display* "XTEST")) (progn (xtest:fake-button-event *display* button t) (xtest:fake-button-event *display* button nil)) |