amr/passepartout
1
0
Fork 0
Code Issues 15 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

fix(tui): Correct window constructor to make-instance 'window
Some checks failed
Deploy-Agent-V15-Stdin / JOB-V15-STDIN (push) Failing after 2s
Details

Browse Source
This commit is contained in:
Amr Gharbeia
2026-04-17 19:20:34 -04:00
parent a6fabbbc73
commit f4051f1244
2 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/tui-client.lisp
View File

@@ -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