mirror of https://codeberg.org/cage/tinmop/
43 lines
1.4 KiB
Common Lisp
43 lines
1.4 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)))
|
|
|
|
(defun manage-bookmarks-clsr (main-window)
|
|
(lambda ()
|
|
(client-bookmark-window:manage-bookmarks main-window)))
|
|
|
|
(defun show-search-frame-clsr (main-window)
|
|
(lambda ()
|
|
(gui:grid (client-main-window::search-frame main-window) 3 0 :sticky :news :columnspan 2)))
|
|
|
|
(defun show-tour ()
|
|
(let ((master gui-goodies:*toplevel*))
|
|
(client-tour-window:init-window master)))
|