cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-02-01 04:26:47 +01:00
Code Issues

- changed ':draw-border' to ':border' to track the new croatoan API.

Browse Source
This commit is contained in:
cage 2021-02-19 17:38:39 +01:00
parent ae178546b9
commit cc146a652c
4 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/complete-window.lisp
View File

@ -62,7 +62,7 @@
(defun init ()
"Initialize a complete window"
(let* ((low-level-window (make-croatoan-window :draw-border t))
(let* ((low-level-window (make-croatoan-window :border t))
(high-level-window (make-instance 'complete-window
:croatoan-window low-level-window)))
(refresh-config high-level-window)

2
src/keybindings-window.lisp
View File

@ -137,7 +137,7 @@ if tree is nil set the slot `keybindings-tree' to `tree'.
(defun init ()
"Initialize the window"
(let* ((low-level-window (make-croatoan-window :draw-border t))
(let* ((low-level-window (make-croatoan-window :border t))
(high-level-window (make-instance 'keybindings-window
:key-config swconf:+key-keybindings-window+
:croatoan-window low-level-window)))

2
src/notify-window.lisp
View File

@ -84,7 +84,7 @@
window)
(defun make-notification-window (message life &key (pending 0) (hidep nil) (notify-error nil))
(let* ((low-level-window (make-croatoan-window :draw-border t))
(let* ((low-level-window (make-croatoan-window :border t))
(high-level-window (make-instance 'notify-window
:life life
:pending pending

6
src/windows.lisp
View File

@ -461,7 +461,7 @@ list of strings (the text lines)."
:width (min (+ max-line-size 4)
(- (win-width parent)
4))
:draw-border t
:border t
:enable-function-keys t
:name title
:title t
@ -549,7 +549,7 @@ insetred by the user"
:height window-height
:position window-position
:insert-mode t
:draw-border t
:border t
:elements (list field
button-accept
button-cancel)
@ -600,7 +600,7 @@ insetred by the user"
:items options
:position window-position
:title title
:draw-border t
:border t
:input-blocking t
:enable-function-keys t
:menu-type :checklist