From: Ciske Busch

Subject: Missing NC-LEFT-MOUSE-UP event in ACL 5 for Windows?

Date: 1999-3-1 8:53

Hi,

it seems that the nc-left-mouse-up event only gets called after a
double-click.
Please verify this with the following code-fragment.

* on the opening window, if you click on any part of the frame, it prints
"down!" to the listener
* if you release the button nothing happens except for after a double-click:
only then "up!" is printed to the listener.


;;; begin code
(defclass test-window (non-refreshing-window)
    ())

(defmethod nc-mouse-left-down ((self test-window) bs data frame-section)
   (declare (ignore bs data frame-section))
   (format t "~%down!")
   (call-next-method)
   )

(defmethod nc-mouse-left-up ((self test-window) bs data frame-section)
   (declare (ignore bs data frame-section))
   (format t "~%up!")
   (call-next-method)
   )

(make-window :test :device 'test-window)
;;; end code

System-Specs:
*  ACL5.0, newest Patches, Windows NT 4 SP4, K6-200, 128 MB
*  ACL5.0, newest Patches, Windows 98, PII-266, 64 MB

Did I miss anything or is this a bug?

Any coments would be appreciated.

c.busch

-------------------------------------------------------------------
"Real stupidity beats artificial intelligence every time."
                                               M.Ridcully

Ciske Busch
Lehrstuhl fuer Kuenstliche Intelligenz und Angewandte Informatik
Universitaet Wuerzburg, Germany
http://ki-server.informatik.uni-wuerzburg.de/~ciske/
ICQ: #23765977

Vote against SPAM: http://www.politik-digital.de/spam/
-------------------------------------------------------------------