tinmop/src/gui/client/menu-command.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*))
    (client-certificates-window:init-window master)))