mirror of https://codeberg.org/cage/tinmop/
12 lines
326 B
Common Lisp
12 lines
326 B
Common Lisp
(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 ()
|
|
(serv:close-server)
|
|
(gui:break-mainloop))
|