Ignore:
Timestamp:
Aug 31, 2009, 12:16:51 PM (10 years ago)
Author:
cater
Message:

Towards unified handling of control &c modifiers with keys and with mouse

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/examples/cocoa/easygui/events.lisp

    r11801 r12720  
    11(in-package :easygui)
    22
    3 ;;; Changed by AWSC Feb 2009:
     3;;; Changed by AWSC (arthur.cater@ucd.ie) Feb 2009:
    44;;; Modified define-chaining-responder-method to allow subclasses of easygui
    55;;; views to inherit mouse handling behaviour.
    6 ;;; Original work by an unknown author.
    7 ;;; Permission to use the change is granted.
     6;;; Changed by AWSC Apr 2009:
     7;;; Modified define-chaining-responder-method to bind *modifier-key-pattern*
     8;;; when Lisp mouse handlers are being called.
     9;;; The original work I changed is by an unknown author.
     10;;; Permission to use disseminate and further modify these changes is granted.
    811
    912;;; Event handling basics
     
    1922                     (find-method #',lisp-name nil (list (class-name super)) nil))
    2023                 superclasses)
    21            (,lisp-name (easygui-view-of ,self-arg)
    22                      ,@arg-compute-forms)
     24           (let ((*modifier-key-pattern* (#/modifierFlags ,event-arg)))
     25             (,lisp-name (easygui-view-of ,self-arg)
     26                         ,@arg-compute-forms))
    2327           (,objc-name (#/nextResponder ,self-arg) ,event-arg)))))
    2428
Note: See TracChangeset for help on using the changeset viewer.