From dc4b8e37d0aba7e659f4e807cc494c6ce71eee59 Mon Sep 17 00:00:00 2001
From: graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>
Date: Thu, 17 Jul 2008 08:50:54 +0000
Subject: * Minor fix to get GUI Test Runner to compile with FPC 2.3.1

---
 examples/apps/fpcunit/fpg_guitestrunner.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'examples/apps')

diff --git a/examples/apps/fpcunit/fpg_guitestrunner.pas b/examples/apps/fpcunit/fpg_guitestrunner.pas
index cafc92be..a2fded47 100644
--- a/examples/apps/fpcunit/fpg_guitestrunner.pas
+++ b/examples/apps/fpcunit/fpg_guitestrunner.pas
@@ -189,7 +189,7 @@ procedure TGUITestRunnerForm.StartTest(ATest: TTest);
 
 procedure TGUITestRunnerForm.EndTest(ATest: TTest);
 begin
-  inc(pbName1.Position, 1);
+  pbName1.Position := pbName1.Position + 1;
   pbName1.Invalidate;
   fpgApplication.ProcessMessages;
 end;
-- 
cgit v1.2.3-54-g00ecf