- made 'about' help window, modal.

src/constants.lisp

@@ -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

src/gui/client/gui-goodies.lisp

@@ -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=)

src/gui/client/menu-command.lisp

@@ -1,10 +1,16 @@
 (in-package :client-menu-command)
 
 (defun help-about ()
-  (gui:with-modal-toplevel (toplevel :master nil :title (_ "About"))
+  (let ((master gui-goodies:*toplevel*))
-    (let* ((editor  (gui:make-text toplevel)))
+    (gui:with-modal-toplevel (toplevel :master master :title (_ "About"))
-      (setf (gui:text editor) (format nil +help-about-message+))
+      (gui:transient toplevel master)
-      (gui:pack editor))))
+      (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)

src/package.lisp

@@ -3310,6 +3310,7 @@
                     (:gui-utils  :nodgui.utils)
                     (:gui-shapes :nodgui.shapes))
   (:export
+   :*toplevel*
    :gui-resize-grid-all
    :confirm-deletion
    :info-operation-completed