From 10e346d2f806c99af6fec1ecfa3d456d4b7ad4e3 Mon Sep 17 00:00:00 2001
From: Merlijn Wajer <merlijn@wizzup.org>
Date: Mon, 3 Jan 2011 22:51:18 +0100
Subject: [PATCH] Simba: Bump version to 800.

---
 Projects/Simba/simbaunit.pas | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/Projects/Simba/simbaunit.pas b/Projects/Simba/simbaunit.pas
index 80a7b49..db27da9 100644
--- a/Projects/Simba/simbaunit.pas
+++ b/Projects/Simba/simbaunit.pas
@@ -45,7 +45,7 @@ uses
   CastaliaSimplePasPar, v_AutoCompleteForm, PSDump, settings, updater;
 
 const
-  SimbaVersion = 750;
+  SimbaVersion = 800;
 
   interp_PS = 0; //PascalScript
   interp_RT = 1; //RUTIS
@@ -2917,6 +2917,8 @@ begin
           SetSetting('Settings/Fonts/Version',IntToStr(LatestVersion),true);
           if Assigned(self.OCR_Fonts) then
             self.OCR_Fonts.Free;
+          FormWriteln('Freeing the current fonts. Creating new ones now');
+          // XXX: Can this cause problems when running scripts?
           Self.OCR_Fonts := TMOCR.Create(nil);
           OCR_Fonts.InitTOCR(fontPath);
         end;