mirror of https://codeberg.org/cage/tinmop/
- changed ':draw-border' to ':border' to track the new croatoan API.
This commit is contained in:
parent
ae178546b9
commit
cc146a652c
|
@ -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)
|
||||||
|
|
|
@ -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)))
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue