diff --git a/gui/dialogs/location-of-tower.xml b/gui/dialogs/location-of-tower.xml
new file mode 100644
index 000000000..e0ad016dc
--- /dev/null
+++ b/gui/dialogs/location-of-tower.xml
@@ -0,0 +1,152 @@
+<?xml version="1.0"?>
+<PropertyList>
+  <name>location-of-tower</name>
+  <layout>vbox</layout>
+
+  <text>
+    <label>Select tower for the Tower View</label>
+  </text>
+
+  <hrule>
+    <pref-height>2</pref-height>
+  </hrule>
+
+  <group>
+    <layout>table</layout>
+
+    <text>
+      <row>0</row><col>0</col>
+      <label>Airport ID</label>
+    </text>
+    <input>
+      <name>airport-id</name>
+      <row>0</row><col>1</col>
+      <property>/sim/tower/airport-id</property>
+    </input>
+    <empty>
+      <row>0</row><col>3</col>
+      <stretch>true</stretch>
+    </empty>
+
+    <!-- Commented out because the /instrumentation/comm[%d]/airport-id
+      are not filled in on the COM radio retuning...
+      I'm working on that part now.
+    <button>
+      <row>1</row><col>0</col>
+      <legend>COM1</legend>
+      <binding>
+       <command>property-assign</command>
+       <property>/sim/tower/airport-id</property>
+       <property>/instrumentation/comm[0]/airport-id</property>
+      </binding>
+      <binding>
+       <command>dialog-update</command>
+       <object-name>airport-id</object-name>
+      </binding>
+    </button>
+    <text>
+      <row>1</row><col>2</col>
+      <property>/instrumentation/comm[0]/frequencies/selected-mhz</property>
+      <label>MHz</label>
+      <format>%-0.2f</format>
+    </text>
+    <text>
+      <row>1</row><col>1</col>
+      <property>/instrumentation/comm[0]/airport-id</property>
+    </text>
+    <empty>
+      <row>1</row><col>3</col>
+      <stretch>true</stretch>
+    </empty>
+
+    <button>
+      <row>2</row><col>0</col>
+      <legend>COM2</legend>
+      <binding>
+       <command>property-assign</command>
+       <property>/sim/tower/airport-id</property>
+       <property>/instrumentation/comm[1]/airport-id</property>
+      </binding>
+      <binding>
+       <command>dialog-update</command>
+       <object-name>airport-id</object-name>
+      </binding>
+    </button>
+    <text>
+      <row>2</row><col>2</col>
+      <property>/instrumentation/comm[1]/frequencies/selected-mhz</property>
+      <label>MHz</label>
+      <format>%-0.2f</format>
+    </text>
+    <text>
+      <row>2</row><col>1</col>
+      <property>/instrumentation/comm[1]/airport-id</property>
+    </text>
+    <empty>
+      <row>2</row><col>3</col>
+      <stretch>true</stretch>
+    </empty>
+    -->
+
+    <button>
+      <legend>Preset</legend>
+      <row>3</row><col>0</col>
+      <!--
+        Is there a way in the GUI (other than via a dynamic
+	NASAL dialog) to assign text to the widget rather
+	than to the underlying property and doing an update?
+
+        The way it is now CANCEL doesn't undo PRESET  :-( 
+      -->
+      <binding>
+       <command>property-assign</command>
+       <property>/sim/tower/airport-id</property>
+       <property>/sim/presets/airport-id</property>
+      </binding>
+      <binding>
+       <command>dialog-update</command>
+       <object-name>airport-id</object-name>
+      </binding>
+    </button>
+    <text>
+      <row>3</row><col>1</col>
+      <property>/sim/presets/airport-id</property>
+    </text>
+    <empty>
+      <row>3</row><col>3</col>
+      <stretch>true</stretch>
+    </empty>
+
+
+  </group>
+
+  <group>
+    <layout>hbox</layout>
+    <default-padding>10</default-padding>
+    <empty><stretch>true</stretch></empty>
+
+    <button>
+      <legend>OK</legend>
+      <default>true</default>
+      <equal>true</equal>
+      <binding>
+	<command>dialog-apply</command>
+      </binding>
+      <binding>
+	<command>dialog-close</command>
+      </binding>
+    </button>
+
+    <empty><stretch>true</stretch></empty>
+
+    <button>
+      <legend>Cancel</legend>
+      <equal>true</equal>
+      <binding>
+	<command>dialog-close</command>
+      </binding>
+    </button>
+
+    <empty><stretch>true</stretch></empty>
+  </group>
+</PropertyList>
diff --git a/gui/menubar.xml b/gui/menubar.xml
index bff1c0856..115c94068 100644
--- a/gui/menubar.xml
+++ b/gui/menubar.xml
@@ -196,6 +196,14 @@
    </binding>
   </item>
 
+  <item>
+   <label>Tower position</label>
+   <binding>
+    <command>dialog-show</command>
+	<dialog-name>location-of-tower</dialog-name>
+   </binding>
+  </item>
+
  </menu>
 
  <menu>