Hello,

Certainly I miss some basic experience, but I can't create a 
bitmap-window which
responds to a mouse-left-down event ...  The environment is acl501lite 
for windows.

Here are the few steps I have done, could you please tell me where is 
(are) the error(s) ?

The main form of the project is a bitmap-window.

In the inspector of the form are the following settings
name :my-window
device my-window

Of course for my-window to be recognize as a class there is in 
my-window.cl the code:

(in-package :common-graphics-user)

(defclass my-window (bitmap-window) ())

Now I am a little confuse.  To avoid to alter the behavior of a 
bitmap-window, there
seems to be two things to do:

precisely to set device to my-window in the inspector.

add the following lines in my-window.cl:

(defclass my-window-pane (bitmap-pane) ())
(defmethod default-pane-class ((window my-window)) 'my-window-pane)

Finally to test the event is the code:

(defmethod mouse-left-down ((window my-window) buttons data)
   (declare (ignore buttons data))
   (print "click ..."))

But when running nothing appears in the debug-window ...

Thank you very much for your help.


Antoine

<iprolink.ch at antoine.zahnd>