From e1bda05f7da9c638f8159e2ed8f793ca80a557f1 Mon Sep 17 00:00:00 2001
From: Henning Stahlke <github@henningstahlke.de>
Date: Sun, 24 May 2020 20:52:45 +0200
Subject: [PATCH] add dialogs/nasal-test.xml

---
 gui/dialogs/nasal-test.xml | 66 ++++++++++++++++++++++++++++++++++++++
 gui/menubar.xml            |  8 +++++
 2 files changed, 74 insertions(+)
 create mode 100644 gui/dialogs/nasal-test.xml

diff --git a/gui/dialogs/nasal-test.xml b/gui/dialogs/nasal-test.xml
new file mode 100644
index 000000000..b5e3cd707
--- /dev/null
+++ b/gui/dialogs/nasal-test.xml
@@ -0,0 +1,66 @@
+<?xml version="1.0" encoding="UTF-8" ?>
+
+<PropertyList>
+    <name>nasal-test</name>
+    <layout>vbox</layout>
+    <pref-width>180</pref-width>
+    <color>
+        <red>0.1</red>
+        <green>0.3</green>
+        <blue>0.7</blue>
+        <alpha>0.9</alpha>
+    </color>
+    <group>
+        <layout>hbox</layout>
+        <empty>
+            <stretch>1</stretch>
+        </empty>
+        <text>
+            <label>Run Nasal test</label>
+        </text>
+        <empty>
+            <stretch>1</stretch>
+        </empty>
+        <button>
+            <pref-width>16</pref-width>
+            <pref-height>16</pref-height>
+            <legend>X</legend>
+            <keynum>27</keynum>
+            <border>2</border>
+            <binding>
+                <command>dialog-close</command>
+            </binding>
+        </button>
+    </group>
+    <hrule />
+    <group>
+        <layout>vbox</layout>
+        <valign>top</valign>
+        <text>Specify .nut file in $FGROOT/Nasal</text>
+        <group>
+            <layout>hbox</layout>
+            <input>
+                <pref-width>100</pref-width>
+                <halign>left</halign>
+                <property>/_debug/nas/test/filename</property>
+                <label>.nut</label>
+                <binding>
+                    <command>dialog-apply</command>
+                </binding>
+                <live type="bool">true</live>
+            </input>
+        </group>
+        <button>
+            <legend>Run test</legend>
+            <binding>
+                <command>nasal</command>
+                <script>
+                var file = getprop("/sim/fg-root")~"/Nasal/"
+                    ~getprop("/_debug/nas/test/filename")~".nut";
+                print(file);
+                fgcommand("nasal-test", props.Node.new({"path": file}));
+                </script>
+            </binding>
+        </button>
+    </group>
+</PropertyList>
diff --git a/gui/menubar.xml b/gui/menubar.xml
index a605350ad..885f1346b 100644
--- a/gui/menubar.xml
+++ b/gui/menubar.xml
@@ -747,6 +747,14 @@
 				<script>console.CanvasPlacement.new()</script>
 			</binding>
 		</item>
+        
+        <item>
+			<name>nasal-test</name>
+			<binding>
+				<command>dialog-show</command>
+				<dialog-name>nasal-test</dialog-name>
+			</binding>
+        </item>
 
 		<item>
 			<name>development-keys</name>