mirror of https://codeberg.org/cage/tinmop/
26 lines
1.0 KiB
Common Lisp
26 lines
1.0 KiB
Common Lisp
(in-package :client-menu-command)
|
|
|
|
(defun help-about ()
|
|
(let ((master gui-goodies:*toplevel*))
|
|
(gui:with-modal-toplevel (toplevel :master master :title (_ "About"))
|
|
(gui:transient toplevel master)
|
|
(let* ((editor (make-instance 'gui:scrolled-text
|
|
:master toplevel
|
|
:cursor gui:+standard-cursor+
|
|
:use-horizontal-scrolling-p nil
|
|
:read-only t)))
|
|
(setf (gui:text editor) (format nil +help-about-message+))
|
|
(gui:pack editor :fill :both)))))
|
|
|
|
(defun quit ()
|
|
(gui:break-mainloop)
|
|
(client-events:stop-events-loop)
|
|
(comm:close-server))
|
|
|
|
(defun show-certificates ()
|
|
(let ((master gui-goodies:*toplevel*)
|
|
(rows (cev:enqueue-request-and-wait-results :gemini-certificates
|
|
1
|
|
ev:+maximum-event-priority+)))
|
|
(client-certificates-window:init-window master rows)))
|