tinmop/src/gui/client/menu-command.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)))