Index: /oup/current/Main.pas
===================================================================
--- /oup/current/Main.pas	(revision 238)
+++ /oup/current/Main.pas	(revision 239)
@@ -813,10 +813,10 @@
 function TForm_Main.open_child(window_context: String; Connection: Integer): TForm_BaseTemplate;
 begin
-  open_child(window_context, Connection, -1);
+  Result := open_child(window_context, Connection, -1);
 end;
 
 function TForm_Main.open_child(window_context: String): TForm_BaseTemplate;
 begin
-  open_child(window_context, -1, -1);
+  Result := open_child(window_context, -1, -1);
 end;
 
Index: /oup/current/Tools/MetaEditor.dfm
===================================================================
--- /oup/current/Tools/MetaEditor.dfm	(revision 238)
+++ /oup/current/Tools/MetaEditor.dfm	(revision 239)
@@ -316,4 +316,5 @@
     object vst_newRoot: TMenuItem
       Caption = 'Set as root element in new window'
+      OnClick = vst_newRootClick
     end
     object vst_setRoot: TMenuItem
Index: /oup/current/Tools/MetaEditor.pas
===================================================================
--- /oup/current/Tools/MetaEditor.pas	(revision 238)
+++ /oup/current/Tools/MetaEditor.pas	(revision 239)
@@ -52,4 +52,5 @@
       var PopupMenu: TPopupMenu);
     procedure vst_setRootClick(Sender: TObject);
+    procedure vst_newRootClick(Sender: TObject);
   private
     root: TTreeElement;
@@ -62,5 +63,5 @@
 implementation
 {$R *.dfm}
-uses _MetaManager, _MetaTypes, ConnectionManager, Data, _FileTypes;
+uses _MetaManager, _MetaTypes, ConnectionManager, Data, _FileTypes, Main;
 
 type
@@ -272,4 +273,17 @@
 end;
 
+procedure TForm_Meta.vst_newRootClick(Sender: TObject);
+var
+  data: PNodeData;
+  form: TForm_BaseTemplate;
+begin
+  inherited;
+  data := VST.GetNodeData(VST.FocusedNode);
+  form := nil;
+  form := Form_Main.open_child('meta');
+  if form is TForm_Meta then
+    TForm_Meta(form).SetRoot(data.Field);
+end;
+
 procedure TForm_Meta.vst_setRootClick(Sender: TObject);
 var
