From: zoav1602
Subject: how to define handle-event for keyboard?
Date: 
Message-ID: <c2b170ee-8dfa-42ea-ba2e-543dfbf3197d@x16g2000prn.googlegroups.com>
Hello, group!

Assume I define and applicarion frame as follows:
(define-application-frame my-frame () ;superclass
  () ;slots
  (:panes (main-sheet :application :display-function #'display-sheet))
  (:layouts (default (vertically () main-sheet))))

CLIM docs say that main-sheet should be an intsance of application-
pane
So I define
(defmethod handle-event :after ((stream application-frame) (event key-
press-event))
  (princ (keyboard-event-character event)))
and it's not invoked when I press a key!
Inspecting running frame in slime shows that :panes has actually an
instance of vrack-pane, so I change the definition to
(defmethod handle-event :after ((stream vrack-frame) (event key-press-
event))
  (princ (keyboard-event-character event)))
without success.
Any suggestions on how to intercept keyboard events in my case?