I have ever reported that i cannot input digit in Evaling window using the
small keyboard before (NumLock is already on).
By hacking the input.lisp, i found the following result:
The #'read-key-and-selection will return different value for Main Keyboard
& Small Keyboard.
1 2 3 4 5
6 7 8 9
Main Keyboard (10 . 16) (11 . 16) (12 . 16) (13 . 16) (14 . 16) (15 .
16) (16 . 16) (17 . 16) (18 . 16)
Small Keyboard (87 . 16) (88 . 16) (89 . 16) (83 . 16) (84 . 16) (85 .
16) (79 . 16) (80 . 16) (81 . 16)
It causes #'process-input regard the Small Keyboard input is :error .
(defun read-key-or-selection ()
(loop for ev = (xlib:process-event *display* :handler
#'read-key-or-selection-handle-event :timeout nil) do
(cond ((stringp ev)
(return ev))
((and (consp ev)
(eq (first ev) :key-press))
(return (cdr ev))))))
(defun read-key-or-selection-handle-event (&rest event-slots &key display
event-key &allow-other-keys)
(declare (ignore display))
(case event-key
((or :key-release :key-press)
(apply 'input-handle-key-press-event event-slots))
(:selection-notify
(apply 'input-handle-selection-event event-slots))
(t nil)))
(defun input-handle-key-press-event (&rest event-slots &key event-key root
code state &allow-other-keys)
(declare (ignore event-slots root))
;; FIXME: don't use a cons
(list* event-key code state))
From above code, it seems there exists problem in #'xlib:process-event.
But i cannot know how to fix it ?
Please shed a light on me, thanks!
(defun input-handle-key-press-event (&rest event-slots &key event-key root code
state &allow-other-keys)
(declare (ignore event-slots root))
;; FIXME: don't use a cons
(list* event-key code state))
_______________________________________________
Stumpwm-devel mailing list
Stumpwm-devel@nongnu.org
https://lists.nongnu.org/mailman/listinfo/stumpwm-devel
