/[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.1.1.1.1 by wlott, Fri Aug 3 10:17:13 1990 UTC revision 1.1.1.1.1.2 by wlott, Fri Sep 7 16:16:37 1990 UTC
# Line 111  Line 111 
111    
112  ;;; TRANSLATE-KEY-EVENT -- Public.  ;;; TRANSLATE-KEY-EVENT -- Public.
113  ;;;  ;;;
114  #+nil  #+clx
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 472  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 738  Line 738 
738    (define-key-event-modifier "Control" "C")    (define-key-event-modifier "Control" "C")
739    (define-key-event-modifier "Shift" "Shift")    (define-key-event-modifier "Shift" "Shift")
740    (define-key-event-modifier "Lock" "Lock")    (define-key-event-modifier "Lock" "Lock")
741  #|  
742    (define-clx-modifier (xlib:make-state-mask :shift) "Shift")    #+clx (define-clx-modifier (xlib:make-state-mask :shift) "Shift")
743    (define-clx-modifier (xlib:make-state-mask :mod-1) "Meta")    #+clx (define-clx-modifier (xlib:make-state-mask :mod-1) "Meta")
744    (define-clx-modifier (xlib:make-state-mask :control) "Control")    #+clx (define-clx-modifier (xlib:make-state-mask :control) "Control")
745    (define-clx-modifier (xlib:make-state-mask :lock) "Lock")    #+clx (define-clx-modifier (xlib:make-state-mask :lock) "Lock"))
 |#  
 )  

Legend:
Removed from v.1.1.1.1.1.1  
changed lines
  Added in v.1.1.1.1.1.2

  ViewVC Help
Powered by ViewVC 1.1.5