From 0ea0e5d8c953323e4cffe325d92fdb93c6f894c8 Mon Sep 17 00:00:00 2001
From: John Peel <john@dgby.org>
Date: Sun, 31 Aug 2014 01:02:16 -0400
Subject: [PATCH] Fixed a bug in the settings with Paths

---
 Projects/Simba/newsimbasettings.pas | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/Projects/Simba/newsimbasettings.pas b/Projects/Simba/newsimbasettings.pas
index b1e2056d3..6819107a8 100644
--- a/Projects/Simba/newsimbasettings.pas
+++ b/Projects/Simba/newsimbasettings.pas
@@ -111,6 +111,8 @@     TPathSetting = class(TFileSetting)
     private
       procedure SetValue(val: string);
     public
+      function GetDefValue(val: string): string; virtual;
+
       property Value: string read GetValue write SetValue;
     end;
 
@@ -638,6 +640,14 @@ procedure TFileSetting.SetValue(val: string);
     OnChange(Self);
 end;
 
+function TPathSetting.GetDefValue(val: String): String;
+begin
+  if (not (FValueSet)) then
+    Value := val;
+
+  Result := Value;
+end;
+
 procedure TPathSetting.SetValue(val: string);
 begin
   {$IFNDEF NOTPORTABLE}