mirror of https://codeberg.org/cage/tinmop/
- made 'about' help window, modal.
This commit is contained in:
parent
801a7e8b3f
commit
81868075b4
|
@ -24,7 +24,7 @@
|
|||
(define-constant +help-about-message+
|
||||
(format nil
|
||||
"~a
|
||||
Copyright (C) 2019 cage
|
||||
Copyright (C) 2019,2020,2021,2022,2023 cage
|
||||
|
||||
This program is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
|
|
|
@ -2,6 +2,8 @@
|
|||
|
||||
(cl-syntax:use-syntax 'gui-utils:nodgui-color-syntax)
|
||||
|
||||
(defparameter *toplevel* gui:*tk*)
|
||||
|
||||
(a:define-constant +font-h1+ "sans 20 bold" :test #'string=)
|
||||
|
||||
(a:define-constant +font-h2+ "sans 15 bold" :test #'string=)
|
||||
|
|
|
@ -1,10 +1,16 @@
|
|||
(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))))
|
||||
(let ((master gui-goodies:*toplevel*))
|
||||
(gui:with-modal-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 ()
|
||||
(comm:close-server)
|
||||
|
|
|
@ -3310,6 +3310,7 @@
|
|||
(:gui-utils :nodgui.utils)
|
||||
(:gui-shapes :nodgui.shapes))
|
||||
(:export
|
||||
:*toplevel*
|
||||
:gui-resize-grid-all
|
||||
:confirm-deletion
|
||||
:info-operation-completed
|
||||
|
|
Loading…
Reference in New Issue