Changeset 14217


Ignore:
Timestamp:
Aug 26, 2010, 8:50:58 AM (9 years ago)
Author:
arthur
Message:

add shift-key entry to *key-to-mask-alist*, move in defn for *modifier-key-pattern* with doc string

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/examples/cocoa/easygui/new-cocoa-bindings.lisp

    r13742 r14217  
    9090              `((:control . ,#$NSControlKeyMask)
    9191                (:alt     . ,#$NSAlternateKeyMask)
    92                 (:command . ,#$NSCommandKeyMask)))
     92                (:command . ,#$NSCommandKeyMask)
     93                (:shift   . ,#$NSShiftKeyMask)))
    9394
    9495(defun key-mask (keyword)
    9596  (or (cdr (assoc keyword *key-to-mask-alist*)) 0))
     97
     98(defvar *modifier-key-pattern* 0
     99"Bound to the description of modifier keys pressed at the time of a mouse-down
     100on a view with an action, also a mouse-down mouse-up mouse-enter or mouse-exit on
     101a view with an associated method, to permit interrogation using the functions
     102shift-key-p control-p-key alt-key-p.")
    96103
    97104;;; Memory management helpers:
Note: See TracChangeset for help on using the changeset viewer.