Index: /release/1.2/source/examples/cocoa/easygui/events.lisp
===================================================================
--- /release/1.2/source/examples/cocoa/easygui/events.lisp	(revision 11796)
+++ /release/1.2/source/examples/cocoa/easygui/events.lisp	(revision 11797)
@@ -1,3 +1,9 @@
 (in-package :easygui)
+
+;;; Changed by AWSC Feb 2009:
+;;; Modified define-chaining-responder-method to allow subclasses of easygui
+;;; views to inherit mouse handling behaviour.
+;;; Original work by an unknown author.
+;;; Permission to use the change is granted.
 
 ;;; Event handling basics
@@ -9,7 +15,8 @@
   `(objc:defmethod (,objc-name :void) ((,self-arg ,class-name)
                                        ,event-arg)
-     (let ((ev-class (class-name
-                      (class-of (easygui-view-of ,self-arg)))))
-       (if (find-method #',lisp-name nil `(,ev-class) nil) ; TODO: doesn't consider subclasses.
+     (let ((superclasses (ccl:class-precedence-list (class-of (easygui-view-of ,self-arg)))))
+       (if (some #'(lambda (super)
+                     (find-method #',lisp-name nil (list (class-name super)) nil))
+                 superclasses)
            (,lisp-name (easygui-view-of ,self-arg)
                      ,@arg-compute-forms)