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

- prevented crash when calling resync-rows-db of a null object.

This commit is contained in:
cage 2022-11-24 17:28:31 +01:00
parent 7416e3d881
commit 41a4787f16
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/line-oriented-window.lisp
View File

@ -493,6 +493,10 @@ this exact quantity would go beyond the length or rows or zero."
table in the database, if `redraw` is not nil redraw the object, if table in the database, if `redraw` is not nil redraw the object, if
possible")) possible"))
(defmethod resync-rows-db ((object null) &key redraw)
(declare (ignore redraw))
t)
(defun make-blocking-list-dialog-window (screen all-fields text-lines callback (defun make-blocking-list-dialog-window (screen all-fields text-lines callback
&optional (title (_ "Information"))) &optional (title (_ "Information")))
"Draw a window with a scrollable list of entries, pressing enter "Draw a window with a scrollable list of entries, pressing enter