Implement the about dialog.

[rrace.git] / src / motif_ui.c

diff --git a/src/motif_ui.c b/src/motif_ui.c
index a49dfec0717bd58ca985bcebcb48ae8b4128b00b..05721e09a95b1515dcf79feb25b7f54320f43c04 100644 (file)
--- a/src/motif_ui.c
+++ b/src/motif_ui.c
@@ -25,6 +25,7 @@
 #include "motifstr.h"
 #include "motifgui.h"
 #include "xcounter.h"
+#include "version.h"
 
 #define SPLIT_NUMERATOR    75
 #define SPLIT_DENOMINATOR 100
@@ -42,7 +43,11 @@ enum {
        widgetMax,
 
        /* Pseudo-widgets */
-       widgetMenuBar = widgetMax
+       widgetMenuBar = widgetMax,
+       widgetMessageDialog,
+       widgetScrolledText,
+
+       widgetUnmanaged = 128
 };
 
 static WidgetClass * const widgets[widgetMax] = {
@@ -171,14 +176,19 @@ static Widget create_widget(const struct ui_widget *item, Widget parent,
                             ArgList args, Cardinal num_args)
 {
        String name = (void *)&tree_strtab[item->name];
-       WidgetClass class;
+       unsigned type = item->widget_type & widgetUnmanaged-1;
 
-       if (item->widget_type == widgetMenuBar)
+       switch (type) {
+       case widgetMenuBar:
                return XmCreateMenuBar(parent, name, args, num_args);
+       case widgetMessageDialog:
+               return XmCreateMessageDialog(parent, name, args, num_args);
+       case widgetScrolledText:
+               return XmCreateScrolledText(parent, name, args, num_args);
+       }
 
-       assert(item->widget_type < widgetMax);
-       class = *widgets[item->widget_type];
-       return XtCreateWidget(name, class, parent, args, num_args);
+       assert(type < widgetMax);
+       return XtCreateWidget(name, *widgets[type], parent, args, num_args);
 }
 
 static void
@@ -192,7 +202,8 @@ construct_widgets(const struct ui_widget *root, Widget parent, unsigned i)
                if (item->subtree)
                        construct_widgets(root, w, item->subtree);
 
-               XtManageChild(w);
+               if (!(item->widget_type & widgetUnmanaged))
+                       XtManageChild(w);
        }
 }
 
@@ -365,3 +376,63 @@ void ui_initialize(struct app_state *state, Widget shell)
        XtAddCallback(state->goal, XmNresizeCallback, goal_resize, state);
        XtAddCallback(state->goal, XmNexposeCallback, goal_expose, state);
 }
+
+static void dialog_close(Widget w, void *data, void *cb_data)
+{
+       XtDestroyWidget(w);
+}
+
+/*
+ * Expands to an XtVaSetValues argument list to set the given resource with
+ * a typed string value, which is internally converted to the appropriate
+ * resource type.
+ *
+ * Note that str is expanded twice and thus should not have side effects.
+ */
+#define STRING_ARG(resource, str) \
+       XtVaTypedArg, (resource), XtRString, (str), strlen((str))+1
+
+void ui_show_about(struct app_state *state, Widget shell)
+{
+       static const struct ui_widget dialog[] = { ABOUTDIALOG_INITIALIZER };
+       Widget w, l;
+       char *msg;
+
+       construct_widgets(dialog, shell, 0);
+
+       w = XtNameToWidget(shell, "*aboutDialog");
+       XtUnmanageChild(XmMessageBoxGetChild(w, XmDIALOG_CANCEL_BUTTON));
+
+       XtAddCallback(w, XmNunmapCallback, dialog_close, NULL);
+
+       XtVaSetValues(w, STRING_ARG(XmNokLabelString, "Close"), (char *)NULL);
+
+       msg = version_format_head("rrace-motif");
+       l = XmMessageBoxGetChild(w, XmDIALOG_MESSAGE_LABEL);
+       XtVaSetValues(l, XmNlabelType, XmPIXMAP_AND_STRING,
+                        XmNlabelPixmap, state->icon_pixmap,
+                        STRING_ARG(XmNlabelString, msg),
+                        (char *)NULL);
+       free(msg);
+
+       l = XtNameToWidget(w, "*licenseBlurb");
+       XmTextSetString(l,
+"This program is free software: you can redistribute it and/or modify\n"
+"it under the terms of the GNU General Public License as published by\n"
+"the Free Software Foundation, either version 3 of the License, or\n"
+"(at your option) any later version.\n\n"
+"This program is distributed in the hope that it will be useful,\n"
+"but WITHOUT ANY WARRANTY; without even the implied warranty of\n"
+"MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the\n"
+"GNU General Public License for more details.\n\n"
+"You should have received a copy of the GNU General Public License\n"
+"along with this program.  If not, see <https://www.gnu.org/licenses/>.");
+
+       XtVaSetValues(l, XmNeditMode, XmMULTI_LINE_EDIT,
+                        XmNeditable, FALSE,
+                        XmNresizeWidth, TRUE,
+                        XmNrows, 5,
+                        (char *)NULL);
+
+       XtManageChild(w);
+}