Plaster
New
List
Login
common-lisp
default
anonymous
2019.06.22 16:27:03
(defun perform-mouse-action (press? button) (ignore-errors (progn (xlib/xtest:fake-button-event *display* button press? :delay 0.5) (xlib:display-force-output *display*)))) ; (xlib:value-error () nil))) (defun up () (perform-mouse-action nil t)) (defun down () (unwind-protect (perform-mouse-action t 1) (up)))
Raw
Annotate
Repaste
Edit