From 3d711ad83a69b23a27fc51fda608e2591618f0e2 Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graeme@mastermaths.co.za>
Date: Mon, 19 Sep 2011 19:48:56 +0200
Subject: textedit: bug fix with the caretpos variable. X / Y typo.

---
 examples/apps/ide/src/fpg_textedit.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/examples/apps/ide/src/fpg_textedit.pas b/examples/apps/ide/src/fpg_textedit.pas
index 38a86a23..c99297cb 100644
--- a/examples/apps/ide/src/fpg_textedit.pas
+++ b/examples/apps/ide/src/fpg_textedit.pas
@@ -754,7 +754,7 @@ begin
             begin
               if CaretPos.Y <= (FLines.Count-1) then
                 if CaretPos.X > UTF8Length(FLines[CaretPos.Y]) then
-                  CaretPos.Y := UTF8Length(FLines[CaretPos.Y]) - 1;
+                  CaretPos.X := UTF8Length(FLines[CaretPos.Y]) - 1;
               FSelected := True;
               FSelStartNo := CaretPos.Y;
               FSelStartOffs := CaretPos.X + 1;
-- 
cgit v1.2.3-70-g09d2