From 8c9e45ade3b738d31ffbcdc4f43a39f37927971e Mon Sep 17 00:00:00 2001
From: Julian Smith <jules@op59.net>
Date: Sun, 3 Oct 2021 08:23:57 +0100
Subject: [PATCH] Added simple highlighting dialogue on the 'Help' menu.

gui/dialogs/highlighting.xml
    Enable/disable highlighting dialog, plus shows highlighted dialog names
    etc.

gui/menubar.xml
    Added link to highlight dialog to help menu.
---
 gui/dialogs/highlighting.xml | 88 ++++++++++++++++++++++++++++++++++++
 gui/menubar.xml              |  9 ++++
 2 files changed, 97 insertions(+)
 create mode 100644 gui/dialogs/highlighting.xml

diff --git a/gui/dialogs/highlighting.xml b/gui/dialogs/highlighting.xml
new file mode 100644
index 000000000..cedbc3d06
--- /dev/null
+++ b/gui/dialogs/highlighting.xml
@@ -0,0 +1,88 @@
+<?xml version="1.0"?>
+
+<PropertyList>
+    
+    <name>highlighting</name>
+    <layout>vbox</layout>
+    <resizable>true</resizable>
+    <default-padding>6</default-padding>
+    
+    <!-- titlebar -->
+    <group>
+        <layout>hbox</layout>
+        <empty><stretch>1</stretch></empty>
+
+        <text>
+            <label>Highlighting</label>
+        </text>
+
+        <empty><stretch>1</stretch></empty>
+
+        <button>
+            <pref-width>16</pref-width>
+            <pref-height>16</pref-height>
+            <legend></legend>
+            <keynum>27</keynum>
+            <border>2</border>
+            <binding>
+                <command>dialog-close</command>
+            </binding>
+        </button>
+    </group>
+
+    <hrule/>
+        
+    <!-- checkbox -->
+    <checkbox>
+        <row>0</row>
+        <col>0</col>
+        <property>sim/highlighting/enabled</property>
+        <label>Enable highlighting</label>
+        <binding>
+            <command>dialog-apply</command>
+        </binding>
+    </checkbox>
+    
+    <hrule/>
+
+    <!-- properties, dialogs, menus, keypresses. -->
+    <property-list>
+        <name>property-list</name>
+        <pref-height>200</pref-height>
+        <pref-width>200</pref-width>
+        <halign>fill</halign>
+        <valign>fill</valign>
+        <stretch>true</stretch>
+        <property>/sim/highlighting/current-ptr</property>
+        <readonly>true</readonly>
+        <binding>
+            <command>dialog-apply</command>
+            <object-name>property-list</object-name>
+        </binding>
+    </property-list>
+
+    <nasal>
+        <open>
+            printf("open");
+            var self = cmdarg();
+            var dlgname = self.getNode("name").getValue();
+            var dlg = props.globals.getNode("/sim/gui/dialogs/" ~ dlgname, 1);
+            var update_interval = 0.5;
+            
+            var update = func(w) {
+                self.setValues({ "dialog-name": dlgname, "object-name": w });
+                fgcommand("dialog-update", self);
+            }
+            var auto_update = func {
+                update("property-list");
+                if (update_interval)
+                    settimer(auto_update, update_interval, 1);
+            }
+            auto_update();
+        </open>
+        <close>
+            update_interval = 0;
+        </close>
+    </nasal>
+
+</PropertyList>
diff --git a/gui/menubar.xml b/gui/menubar.xml
index cc37ad4e4..a8a7c4b12 100644
--- a/gui/menubar.xml
+++ b/gui/menubar.xml
@@ -1049,6 +1049,15 @@
 			</binding>
 		</item>
 
+		<item>
+			<name>highlighting</name>
+			<label>Highlighting</label>
+			<binding>
+				<command>dialog-show</command>
+				<dialog-name>highlighting</dialog-name>
+			</binding>
+		</item>
+
 		<item>
 			<label>------------------</label>
 			<enabled>false</enabled>