Merge pull request #1724 from SequentialDesign/add-F13-to-F24-keys-to…

…-SLD2-frontend make `F13` to `F24` keys available in SDL2 frontend
lem-project · Dec 31, 2024 · 52f8c5c · 52f8c5c
2 parents b3fb68c + c0195a9
commit 52f8c5c
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 2 deletions.
diff --git a/frontends/sdl2/keyboard.lisp b/frontends/sdl2/keyboard.lisp
@@ -40,7 +40,19 @@
     (,sdl2-ffi:+sdlk-f9+ "F9" nil)
     (,sdl2-ffi:+sdlk-f10+ "F10" nil)
     (,sdl2-ffi:+sdlk-f11+ "F11" nil)
-    (,sdl2-ffi:+sdlk-f12+ "F12" nil)))
+    (,sdl2-ffi:+sdlk-f12+ "F12" nil)
+    (,sdl2-ffi:+sdlk-f13+ "F13" nil)
+    (,sdl2-ffi:+sdlk-f14+ "F14" nil)
+    (,sdl2-ffi:+sdlk-f15+ "F15" nil)
+    (,sdl2-ffi:+sdlk-f16+ "F16" nil)
+    (,sdl2-ffi:+sdlk-f17+ "F17" nil)
+    (,sdl2-ffi:+sdlk-f18+ "F18" nil)
+    (,sdl2-ffi:+sdlk-f19+ "F19" nil)
+    (,sdl2-ffi:+sdlk-f20+ "F20" nil)
+    (,sdl2-ffi:+sdlk-f21+ "F21" nil)
+    (,sdl2-ffi:+sdlk-f22+ "F22" nil)
+    (,sdl2-ffi:+sdlk-f23+ "F23" nil)
+    (,sdl2-ffi:+sdlk-f24+ "F24" nil)))
 
 (defun convert-to-sym (code)
   (let ((keyinfo (assoc code *code-name-table*)))

diff --git a/src/key.lisp b/src/key.lisp
@@ -1,7 +1,7 @@
 (in-package :lem-core)
 
 (defvar *named-key-syms*
-  '("Backspace" "Insert" "Delete" "Down" "End" "Escape" "F0" "F1" "F10" "F11" "F12" "F2" "F3" "F4" "F5" "F6" "F7" "F8" "F9"
+  '("Backspace" "Insert" "Delete" "Down" "End" "Escape" "F0" "F1" "F10" "F11" "F12" "F13" "F14" "F15" "F16" "F17" "F18" "F19" "F2" "F20" "F21" "F22" "F23" "F24" "F3" "F4" "F5" "F6" "F7" "F8" "F9"
     "Home" "Left" "NopKey" "PageDown" "PageUp" "Return" "Right" "Space" "Tab" "Up"))
 
 (defun named-key-sym-p (key-sym)