2023-02-05 14:07:13 +01:00
|
|
|
(in-package :client-menu-command)
|
|
|
|
|
|
|
|
|
|
(defun help-about ()
|
2023-02-17 15:05:09 +01:00
|
|
|
(let ((master gui-goodies:*toplevel*))
|
2023-04-09 10:05:59 +02:00
|
|
|
(gui:with-toplevel (toplevel :master master :title (_ "About"))
|
2023-02-17 15:05:09 +01:00
|
|
|
(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)))))
|
2023-02-05 14:07:13 +01:00
|
|
|
|
|
|
|
|
(defun quit ()
|
2023-02-19 12:57:10 +01:00
|
|
|
(gui:break-mainloop)
|
2023-02-09 16:28:53 +01:00
|
|
|
(client-events:stop-events-loop)
|
2023-02-19 12:57:10 +01:00
|
|
|
(comm:close-server))
|
2023-03-21 17:49:58 +01:00
|
|
|
|
|
|
|
|
(defun show-certificates ()
|
2023-03-24 10:46:54 +01:00
|
|
|
(let ((master gui-goodies:*toplevel*))
|
|
|
|
|
(client-certificates-window:init-window master)))
|
2023-03-29 18:13:46 +02:00
|
|
|
|
|
|
|
|
(defun show-streams ()
|
|
|
|
|
(let ((master gui-goodies:*toplevel*))
|
|
|
|
|
(client-stream-window:init-window master)))
|
2023-04-09 11:29:01 +02:00
|
|
|
|
|
|
|
|
(defun show-bookmarks-clsr (main-window)
|
|
|
|
|
(lambda ()
|
2023-04-09 11:47:41 +02:00
|
|
|
(client-main-window:show-bookmarks-page main-window)))
|
2023-04-09 14:00:15 +02:00
|
|
|
|
|
|
|
|
(defun manage-bookmarks-clsr (main-window)
|
|
|
|
|
(lambda ()
|
|
|
|
|
(client-bookmark-window:manage-bookmarks main-window)))
|
