diff --git a/literate/tui-client.org b/literate/tui-client.org index 598f77c..7d24597 100644 --- a/literate/tui-client.org +++ b/literate/tui-client.org @@ -74,7 +74,7 @@ The OpenCortex TUI Client is a standalone Common Lisp application built on **Cro (status-win (make-instance 'window :height 1 :width w :position (list (- h 2) 0))) (input-win (make-instance 'window :height 1 :width w :position (list (- h 1) 0)))) - (setf (keypad-p input-win) t) + (setf (function-keys-enabled-p input-win) t) (loop while *is-running* do ;; 1. Handle incoming messages diff --git a/src/tui-client.lisp b/src/tui-client.lisp index 35a74d9..a362421 100644 --- a/src/tui-client.lisp +++ b/src/tui-client.lisp @@ -61,7 +61,7 @@ (status-win (make-instance 'window :height 1 :width w :position (list (- h 2) 0))) (input-win (make-instance 'window :height 1 :width w :position (list (- h 1) 0)))) - (setf (keypad-p input-win) t) + (setf (function-keys-enabled-p input-win) t) (loop while *is-running* do ;; 1. Handle incoming messages