cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-02-16 08:00:35 +01:00
Code Issues

- [GUI] added confirmation from user before deleting a certificate.

Browse Source
This commit is contained in:
cage 2024-02-15 16:21:23 +01:00
parent 07d9c4aea9
commit 8a2ba82b0d
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/gui/client/certificates-window.lisp
View File

@ -45,6 +45,7 @@
(defun delete-certificates-clsr (certificate-frame) (defun delete-certificates-clsr (certificate-frame)
(lambda () (lambda ()
(a:when-let* ((selections (gui:treeview-get-selection (gui-goodies:tree certificate-frame)))) (a:when-let* ((selections (gui:treeview-get-selection (gui-goodies:tree certificate-frame))))
(when (gui-goodies:confirm-deletion certificate-frame (length selections))
(loop for selection in selections do (loop for selection in selections do
(let ((url (gui:id selection))) (let ((url (gui:id selection)))
(ev:with-enqueued-process-and-unblock () (ev:with-enqueued-process-and-unblock ()
@ -52,7 +53,7 @@
1 1
url)) url))
(let ((new-rows (all-rows))) (let ((new-rows (all-rows)))
(resync-rows certificate-frame new-rows))))))) (resync-rows certificate-frame new-rows))))))))
(defun contextual-menu-clrs (treeview-widget) (defun contextual-menu-clrs (treeview-widget)
(labels ((row-values () (labels ((row-values ()