ViewVC Help

View File | Revision Log | View Changeset | Root Listing

root/Oni2/oup/current/Tools/MetaEditor.pas

Comparing oup/current/Tools/MetaEditor.pas (file contents):
Revision 238 by alloc, Sat Jul 14 16:50:55 2007 UTC vs.
Revision 239 by alloc, Sat Jul 14 20:22:05 2007 UTC

#	Line 51 | Line 51 | type
51		Column: TColumnIndex; const P: TPoint; var AskParent: Boolean;
52		var PopupMenu: TPopupMenu);
53		procedure vst_setRootClick(Sender: TObject);
54	+	procedure vst_newRootClick(Sender: TObject);
55		private
56		root: TTreeElement;
57		procedure NewCon(ID: Integer);
#	Line 61 | Line 62 | type
62
63		implementation
64		{$R *.dfm}
65	<	uses _MetaManager, _MetaTypes, ConnectionManager, Data, _FileTypes;
65	>	uses _MetaManager, _MetaTypes, ConnectionManager, Data, _FileTypes, Main;
66
67		type
68		PNodeData = ^TNodeData;
#	Line 271 | Line 272 | begin
272		end;
273		end;
274
275	+	procedure TForm_Meta.vst_newRootClick(Sender: TObject);
276	+	var
277	+	data: PNodeData;
278	+	form: TForm_BaseTemplate;
279	+	begin
280	+	inherited;
281	+	data := VST.GetNodeData(VST.FocusedNode);
282	+	form := nil;
283	+	form := Form_Main.open_child('meta');
284	+	if form is TForm_Meta then
285	+	TForm_Meta(form).SetRoot(data.Field);
286	+	end;
287	+
288		procedure TForm_Meta.vst_setRootClick(Sender: TObject);
289		var
290		data: PNodeData;

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines (old)
>	Changed lines (new)