From 8fa17d8189391e61e00d85587a963515f41d36a5 Mon Sep 17 00:00:00 2001
From: Merlijn Wajer <merlijn@wajer.org>
Date: Tue, 8 Jun 2010 00:17:47 +0200
Subject: [PATCH] Made WalkToNode public.

---
 Units/MMLAddon/settings.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Units/MMLAddon/settings.pas b/Units/MMLAddon/settings.pas
index 21c135b..ffc61e5 100644
--- a/Units/MMLAddon/settings.pas
+++ b/Units/MMLAddon/settings.pas
@@ -60,7 +60,6 @@ type
   private
     Nodes: TTreeNodes;
     function KeyNameToKeys(KeyName: String): TStringArray;
-    function WalkToNode(KeyName: String): TTreeNode;
 
     procedure InternalLoadFromXML(XMLDoc: TXMLDocument);
     procedure WriteXMLData(n: TTreeNode;
@@ -72,6 +71,8 @@ type
   public
     constructor Create(aNodes: TTreeNodes);
     destructor Destroy; override;
+
+    function WalkToNode(KeyName: String): TTreeNode;
     function GetNodePath(Node: TTreeNode): String;
     function ListKeys(KeyName: String; out Keys :TStringArray) : boolean;