Ignore:
Timestamp:
Jul 17, 2009, 10:01:40 AM (11 years ago)
Author:
gb
Message:

command.lisp: define a "System Default Behavior" command.
interp.lisp: GET-SYSTEM-DEFAULT-BEHAVIOR-COMMAND returns the "System Default Behavior" command.
main.lisp: define a Hemlock variable that contains the name of the "System Default Behavior" command.
views.lisp: SYSTEM-DEFAULT-BEHAVIOR-P: returns T if Hemlock key event is bound to "System Default Behavior" command.
cocoa-editor.lisp: if Hemlock key event is bound to You Know What, pass the
NSEvent to the Cocoa text system.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/cocoa-ide/hemlock/src/views.lisp

    r12315 r12422  
    208208             (invoke-command binding *last-prefix-argument*))
    209209           (invoke-command main-binding *last-prefix-argument*)))))))
     210
     211(defmethod bound-to-system-default-behavior-p ((view hemlock-view)
     212                                               key)
     213  (eq (get-command-binding-for-key view key)
     214      (hi::get-system-default-behavior-command)))
     215
    210216
    211217(defmethod update-echo-area-after-command ((view hemlock-view))
Note: See TracChangeset for help on using the changeset viewer.