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

- shown an error dialog window when the credential to log on the 

instance are no more valids;
- close a menu dialog window after an entry was choosen.
This commit is contained in:
cage 2020-05-10 11:21:19 +02:00
parent b229787044
commit f64f45c5d1
2 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/api-client.lisp
View File

@ -170,11 +170,13 @@ authorizations was performed with success."
(progn
(copy-credentials-to-client)
(tooter:authorize *client*)
(when (null (application-credentials))
(ui:error-dialog-immediate
(format nil
(_ "Credential invalid. Try to remove ~a and restart the software to authenticate again.")
(res:get-data-file +credentials-filename+)))))
(handler-case
(application-credentials)
(error ()
(ui:error-dialog-immediate
(format nil
(_ "Credential invalid. Try to remove ~a and restart the software to authenticate again.")
(res:get-data-file +credentials-filename+))))))
(multiple-value-bind (server-socket server-port)
(open-catch-code-socket)
(setf *client* (make-default-client))

7
src/windows.lisp
View File

@ -128,7 +128,11 @@ height, position and so on)"
(gen-simple-win->croatoan-specialized-wrapper touch win)
(gen-simple-win->croatoan-specialized-wrapper select menu)
(defun menu-select (window)
(with-croatoan-window (croatoan-window window)
(prog1
(select croatoan-window)
(win-close window))))
(defun win-visible-p (win)
(with-croatoan-window (croatoan-window win)
@ -441,6 +445,7 @@ list of strings (the text lines)."
4))
(message (join-with-strings lines (format nil "~%")))
(dialog-window (make-instance 'dialog-window
:stacked nil
:center t
:message-text message
:input-blocking t