From bc243c0dc8afe9d9e4ac1f21f937641a83fc0d0a Mon Sep 17 00:00:00 2001
From: Merlijn Wajer <merlijn@wajer.org>
Date: Mon, 4 Oct 2010 14:04:17 +0200
Subject: [PATCH] Simba: Fix funny name.

---
 Projects/Simba/simbasettings.pas | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/Projects/Simba/simbasettings.pas b/Projects/Simba/simbasettings.pas
index b1cd02f..d051578 100644
--- a/Projects/Simba/simbasettings.pas
+++ b/Projects/Simba/simbasettings.pas
@@ -35,7 +35,7 @@ type
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
     procedure SettingsTreeViewDblClick(Sender: TObject);
-    function LastStance: Boolean;
+    function FixSettingsFile: Boolean;
     { private declarations }
   public
     procedure SaveCurrent;
@@ -55,7 +55,7 @@ uses LCLtype;
 
 { TSettingsForm }
 
-function TSettingsForm.LastStance: Boolean;
+function TSettingsForm.FixSettingsFile: Boolean;
 begin
   result := true;
   mDebugLn('Could not load settings.xml!');
@@ -92,7 +92,7 @@ begin
 
   if not Settings.LoadFromXML(SimbaSettingsFile) then
   begin
-    if not LastStance then
+    if not FixSettingsFile() then
     begin
       mDebugLn('Could not create, move or delete settings.xml.');
       mDebugLn('***************** Giving up... ********************');