--- oup/current/Tools/MetaEditor.pas	2007/07/14 16:50:55	238
+++ oup/current/Tools/MetaEditor.pas	2007/07/14 20:22:05	239
@@ -51,6 +51,7 @@ type
       Column: TColumnIndex; const P: TPoint; var AskParent: Boolean;
       var PopupMenu: TPopupMenu);
     procedure vst_setRootClick(Sender: TObject);
+    procedure vst_newRootClick(Sender: TObject);
   private
     root: TTreeElement;
     procedure NewCon(ID: Integer);
@@ -61,7 +62,7 @@ type
 
 implementation
 {$R *.dfm}
-uses _MetaManager, _MetaTypes, ConnectionManager, Data, _FileTypes;
+uses _MetaManager, _MetaTypes, ConnectionManager, Data, _FileTypes, Main;
 
 type
   PNodeData = ^TNodeData;
@@ -271,6 +272,19 @@ begin
   end;
 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
   data: PNodeData;