Added definitions for Shift,Ctrl,Alt special keys

Cleaned conditional: #+win32 -> #+windows (ccl does not define win32 on win 64)
3b · Jul 20, 2014 · cc663a1 · cc663a1 · mister-reg · Sep 25, 2014
1 parent c004fa3
commit cc663a1
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 4 deletions.
diff --git a/gl/bindings.lisp b/gl/bindings.lisp
@@ -106,14 +106,14 @@
 #+linux
 (defcfun ("glXGetProcAddress" glx-get-proc-address) :pointer
   (proc-name :string))
-#+win32
+#+windows
 (defcfun ("wglGetProcAddress" wgl-get-proc-address) :pointer
   (proc-name :string))
 
 (defun gl-get-proc-address (name)
   (funcall (or *gl-get-proc-address*
                #+linux #'glx-get-proc-address
-               #+win32 #'wgl-get-proc-address)
+               #+windows #'wgl-get-proc-address)
            name))
 
 (eval-when (:load-toplevel :execute)

diff --git a/glut/callbacks.lisp b/glut/callbacks.lisp
@@ -244,7 +244,14 @@
   :key-page-down
   :key-home
   :key-end
-  :key-insert)
+  :key-insert
+  ;; Modifiers keys
+  (:key-left-shift 112)
+  :key-right-shift
+  :key-left-ctrl
+  :key-right-ctrl
+  :key-left-alt
+  :key-right-alt)
 
 (defcenum visibility-state
   :not-visible
@@ -254,4 +261,4 @@
   :hidden
   :fully-retained
   :partially-retained
-  :fully-covered)
+  :fully-covered)