/[cmucl]/src/hemlock/key-event.lisp
ViewVC logotype

Diff of /src/hemlock/key-event.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by ram, Fri Jul 13 15:12:52 1990 UTC revision 1.1.1.1 by ram, Fri Jul 20 16:05:22 1990 UTC
# Line 111  Line 111 
111    
112  ;;; TRANSLATE-KEY-EVENT -- Public.  ;;; TRANSLATE-KEY-EVENT -- Public.
113  ;;;  ;;;
114    #+nil
115  (defun translate-key-event (display scan-code bits)  (defun translate-key-event (display scan-code bits)
116    "Translates the X scan-code and X bits to a key-event.  First this maps    "Translates the X scan-code and X bits to a key-event.  First this maps
117     scan-code to an X keysym using XLIB:KEYCODE->KEYSYM looking at bits and     scan-code to an X keysym using XLIB:KEYCODE->KEYSYM looking at bits and
# Line 471  Line 472 
472    
473  ;;; DEFINE-CLX-MODIFIER -- Public.  ;;; DEFINE-CLX-MODIFIER -- Public.
474  ;;;  ;;;
475  (defun define-clx-modifier (clx-mask modifier-name)  (defun <define-clx-modifier (clx-mask modifier-name)
476    "This establishes a mapping from clx-mask to a define key-event modifier-name.    "This establishes a mapping from clx-mask to a define key-event modifier-name.
477     TRANSLATE-KEY-EVENT and TRANSLATE-MOUSE-KEY-EVENT can only return key-events     TRANSLATE-KEY-EVENT and TRANSLATE-MOUSE-KEY-EVENT can only return key-events
478     with bits defined by this routine."     with bits defined by this routine."
# Line 735  Line 736 
736    (define-key-event-modifier "Control" "C")    (define-key-event-modifier "Control" "C")
737    (define-key-event-modifier "Shift" "Shift")    (define-key-event-modifier "Shift" "Shift")
738    (define-key-event-modifier "Lock" "Lock")    (define-key-event-modifier "Lock" "Lock")
739    #|
740    (define-clx-modifier (xlib:make-state-mask :shift) "Shift")    (define-clx-modifier (xlib:make-state-mask :shift) "Shift")
741    (define-clx-modifier (xlib:make-state-mask :mod-1) "Meta")    (define-clx-modifier (xlib:make-state-mask :mod-1) "Meta")
742    (define-clx-modifier (xlib:make-state-mask :control) "Control")    (define-clx-modifier (xlib:make-state-mask :control) "Control")
743    (define-clx-modifier (xlib:make-state-mask :lock) "Lock"))    (define-clx-modifier (xlib:make-state-mask :lock) "Lock")
744    |#
745    )

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.1.1.1

  ViewVC Help
Powered by ViewVC 1.1.5