From f4051f124466aa3dc87140f714061955ec2f5162 Mon Sep 17 00:00:00 2001 From: Amr Gharbeia Date: Fri, 17 Apr 2026 19:20:34 -0400 Subject: [PATCH] fix(tui): Correct window constructor to make-instance 'window --- literate/tui-client.org | 6 +++--- src/tui-client.lisp | 6 +++--- 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/literate/tui-client.org b/literate/tui-client.org index fe1a3c1..d7d6db3 100644 --- a/literate/tui-client.org +++ b/literate/tui-client.org @@ -86,9 +86,9 @@ The OpenCortex TUI Client is a standalone Common Lisp executable providing a ric (with-screen (scr :input-echoing nil :input-blocking nil :enable-colors t :cursor-visible t) (let* ((h (height scr)) (w (width scr)) - (chat-win (make-window (list (- h 2) w 0 0))) - (status-win (make-window (list 1 w (- h 2) 0))) - (input-win (make-window (list 1 w (- h 1) 0)))) + (chat-win (make-instance 'window :height (- h 2) :width w :position (list 0 0))) + (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)))) (loop while *is-running* do ;; Handle incoming messages diff --git a/src/tui-client.lisp b/src/tui-client.lisp index 56713c0..511068e 100644 --- a/src/tui-client.lisp +++ b/src/tui-client.lisp @@ -62,9 +62,9 @@ (with-screen (scr :input-echoing nil :input-blocking nil :enable-colors t :cursor-visible t) (let* ((h (height scr)) (w (width scr)) - (chat-win (make-window (list (- h 2) w 0 0))) - (status-win (make-window (list 1 w (- h 2) 0))) - (input-win (make-window (list 1 w (- h 1) 0)))) + (chat-win (make-instance 'window :height (- h 2) :width w :position (list 0 0))) + (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)))) (loop while *is-running* do ;; Handle incoming messages