mirror of https://codeberg.org/cage/tinmop/
31 lines
1.0 KiB
Common Lisp
31 lines
1.0 KiB
Common Lisp
(in-package :client-menu-command)
|
|
|
|
(defun help-about ()
|
|
(let ((master gui-goodies:*toplevel*))
|
|
(gui:with-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)))
|
|
|
|
(defun show-streams ()
|
|
(let ((master gui-goodies:*toplevel*))
|
|
(client-stream-window:init-window master)))
|
|
|
|
(defun show-bookmarks-clsr (main-window)
|
|
(lambda ()
|
|
(client-main-window:show-bookmarks-page main-window)))
|