diff --git a/components/synedit/synedit.pp b/components/synedit/synedit.pp
index e229accea0..bf1b3e552e 100644
--- a/components/synedit/synedit.pp
+++ b/components/synedit/synedit.pp
@@ -1272,7 +1272,7 @@ end;
 
 function TCustomSynEdit.CaretYPix: Integer;
 begin
-  Result := RowColumnToPixels(Point(1, fCaretY)).Y;      
+  Result := RowColumnToPixels(Point(1, fCaretY)).Y;
 end;
 
 procedure TCustomSynEdit.FontChanged(Sender: TObject);
@@ -3625,7 +3625,7 @@ begin
       and (CY < ClientHeight{$IFDEF SYN_LAZARUS}-ScrollBarWidth{$ENDIF})
     then begin
       {$IFDEF SYN_LAZARUS}
-      SetCaretPosEx(Handle,CX, CY);
+      SetCaretPosEx(Handle,CX,CY);
       {$ELSE}
       SetCaretPos(CX, CY);
       {$ENDIF}
diff --git a/lcl/interfaces/gtk/gtkwinapi.inc b/lcl/interfaces/gtk/gtkwinapi.inc
index d7d7801415..e0376cc586 100644
--- a/lcl/interfaces/gtk/gtkwinapi.inc
+++ b/lcl/interfaces/gtk/gtkwinapi.inc
@@ -281,18 +281,17 @@ var
 begin
   Result := -1;
   if Handle = 0 then Exit;
-        Result := -1;
-        P := nil;
-        P := gtk_object_get_data(pgtkobject(Handle),'WNDPROC');
-        if P <> nil then Proc := TWndMethod(P^)
-           else
-            Exit;
-        Mess.msg := msg;
-        Mess.LParam := LParam;
-        Mess.WParam := WParam;
-        Proc(Mess);
-        Result := Mess.Result;
-
+  Result := -1;
+  P := nil;
+  P := gtk_object_get_data(pgtkobject(Handle),'WNDPROC');
+  if P <> nil then Proc := TWndMethod(P^)
+     else
+      Exit;
+  Mess.msg := msg;
+  Mess.LParam := LParam;
+  Mess.WParam := WParam;
+  Proc(Mess);
+  Result := Mess.Result;
 end;
 
 {------------------------------------------------------------------------------
@@ -4720,6 +4719,9 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.75  2002/06/04 19:28:17  lazarus
+  MG: cursor is now inverted and can be used with twilight color scheme
+
   Revision 1.74  2002/06/04 15:17:24  lazarus
   MG: improved TFont for XLFD font names