cage
/
tinmop
mirror of https://codeberg.org/cage/tinmop/
1
0
Fork 0
Code Issues

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

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 () (defun init ()
"Initialize a complete window" "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 (high-level-window (make-instance 'complete-window
:croatoan-window low-level-window))) :croatoan-window low-level-window)))
(refresh-config high-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 () (defun init ()
"Initialize the window" "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 (high-level-window (make-instance 'keybindings-window
:key-config swconf:+key-keybindings-window+ :key-config swconf:+key-keybindings-window+
:croatoan-window low-level-window))) :croatoan-window low-level-window)))

2
src/notify-window.lisp
View File

@ -84,7 +84,7 @@
window) window)
(defun make-notification-window (message life &key (pending 0) (hidep nil) (notify-error nil)) (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 (high-level-window (make-instance 'notify-window
:life life :life life
:pending pending :pending pending

6
src/windows.lisp
View File

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