From 8529bbc6c83435b9c83b13fce6367727c2bec2df Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Thu, 30 May 2002 22:01:12 +0000
Subject: [PATCH]  * fix ResetCursor for fvision

---
 ide/weditor.pas | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/ide/weditor.pas b/ide/weditor.pas
index e6cd4b5e9d..3b1a356c4c 100644
--- a/ide/weditor.pas
+++ b/ide/weditor.pas
@@ -3896,8 +3896,13 @@ begin
 {$endif FVISION}
      while true do
       begin
+{$ifdef FVISION}
+        if (cur.x<p^.origin.x) or (cur.x>=p^.origin.x+p^.size.x) or
+           (cur.y<p^.origin.y) or (cur.y>=p^.origin.y+p^.size.y) then
+{$else not FVISION}
         if (cur.x<0) or (cur.x>=p^.size.x) or
            (cur.y<0) or (cur.y>=p^.size.y) then
+{$endif FVISION}
           break;
         p2:=p;
 {$ifndef FVISION}
@@ -7099,7 +7104,10 @@ end;
 END.
 {
   $Log$
-  Revision 1.18  2002-04-16 08:27:01  pierre
+  Revision 1.19  2002-05-30 22:01:12  pierre
+   * fix ResetCursor for fvision
+
+  Revision 1.18  2002/04/16 08:27:01  pierre
    * fix for bug report 1869
 
   Revision 1.17  2002/01/25 14:15:35  pierre