From fabf21cf8d45ca9e3e67a2603959092f1fa047e8 Mon Sep 17 00:00:00 2001
From: mfranz <mfranz>
Date: Wed, 15 Feb 2006 10:33:38 +0000
Subject: [PATCH] add Nasal console to debug menu. Usage: enter Nasal code,
 press <TAB> to leave edit field!, press <Return> to execute;  as an example
 try screen.log.write("hello world"), or f16.canopy.open() in the F16, or
 bo105.doors[3].move(0.3) in the Bo105 etc.

---
 gui/dialogs/nasal-console.xml | 65 +++++++++++++++++++++++++++++++++++
 gui/menubar.xml               |  8 +++++
 2 files changed, 73 insertions(+)
 create mode 100644 gui/dialogs/nasal-console.xml

diff --git a/gui/dialogs/nasal-console.xml b/gui/dialogs/nasal-console.xml
new file mode 100644
index 000000000..ff968cce5
--- /dev/null
+++ b/gui/dialogs/nasal-console.xml
@@ -0,0 +1,65 @@
+<?xml version="1.0"?>
+
+<PropertyList>
+	<x>-20</x>
+	<y>-20</y>
+	<name>nasal-console</name>
+	<layout>vbox</layout>
+
+	<text>
+		<label>Nasal Console</label>
+	</text>
+
+	<hrule><dummy/></hrule>
+
+	<textbox>
+		<halign>fill</halign>
+		<pref-height>120</pref-height>
+		<pref-width>400</pref-width>
+		<slider>20</slider>
+		<editable>true</editable>
+		<property>/sim/gui/dialogs/nasal-console/code</property>
+	</textbox>
+
+	<group>
+		<layout>hbox</layout>
+		<default-padding>8</default-padding>
+
+		<text>
+			<label>TAB to leave edit field</label>
+			<halign>fill</halign>
+			<color>
+				<red>0.5</red>
+				<green>0.5</green>
+				<blue>0.5</blue>
+			</color>
+		</text>
+
+		<group>
+			<layout>hbox</layout>
+			<default-padding>0</default-padding>
+
+			<button>
+				<legend>Close</legend>
+				<key>Esc</key>
+				<equal>true</equal>
+				<binding>
+					<command>dialog-close</command>
+				</binding>
+			</button>
+
+			<button>
+				<legend>Execute</legend>
+				<default>true</default>
+				<equal>true</equal>
+				<binding>
+					<command>dialog-apply</command>
+				</binding>
+				<binding>
+					<command>nasal</command>
+					<script>compile(getprop("/sim/gui/dialogs/nasal-console/code"))()</script>
+				</binding>
+			</button>
+		</group>
+	</group>
+</PropertyList>
diff --git a/gui/menubar.xml b/gui/menubar.xml
index e03b34ac2..669bf14d1 100644
--- a/gui/menubar.xml
+++ b/gui/menubar.xml
@@ -403,6 +403,14 @@
    </binding>
   </item>
 
+  <item>
+   <label>Nasal Console</label>
+   <binding>
+    <command>dialog-show</command>
+    <dialog-name>nasal-console</dialog-name>
+   </binding>
+  </item>
+
   <item>
    <label>Development Keys</label>
    <binding>