(in-package :client-menu-command)
(defun help-about ()
(gui:with-modal-toplevel (toplevel :master nil :title (_ "About"))
(let* ((editor (gui:make-text toplevel)))
(setf (gui:text editor) (format nil +help-about-message+))
(gui:pack editor))))
(defun quit ()
(comm:close-server)
(client-events:stop-events-loop)
(gui:break-mainloop))
