From 91009ca615cee606c736da23c020c01e1b317b5c Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Sat, 27 Jun 2009 13:45:33 +0000
Subject: [PATCH]  * fixes for fields after classes also apply to TP objects.
 Fixed.

git-svn-id: trunk@13337 -
---
 ide/fpkeys.pas  | 6 +++---
 ide/fpviews.pas | 4 ++--
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/ide/fpkeys.pas b/ide/fpkeys.pas
index 30002e3405..13ce927db0 100644
--- a/ide/fpkeys.pas
+++ b/ide/fpkeys.pas
@@ -36,13 +36,13 @@ Const
 type
    PKeyDialog = ^TKeyDialog;
    TKeyDialog = object(TCenterDialog)
-     Constructor Init(Const ATitle : String);
-     {Procedure HandleEvent(var E : TEvent);virtual;}
-     function Execute : Word;Virtual;
       PSTL : Array [1..NumWantedKeys] of PLabel;
       PL : Array [1..NumWantedKeys] of PInputLine;
       KeyOK : Array [1..NumWantedKeys] of boolean;
       PST,PST2 : PAdvancedStaticText;
+      Constructor Init(Const ATitle : String);
+     {Procedure HandleEvent(var E : TEvent);virtual;}
+     function Execute : Word;Virtual;
    end;
 
 Procedure LoadKeys(var S : TStream);
diff --git a/ide/fpviews.pas b/ide/fpviews.pas
index 87f4181db8..07faf1e3c8 100644
--- a/ide/fpviews.pas
+++ b/ide/fpviews.pas
@@ -124,10 +124,10 @@ type
 
     PSourceEditor = ^TSourceEditor;
     TSourceEditor = object(TFileEditor)
-      constructor Init(var Bounds: TRect; AHScrollBar, AVScrollBar:
-          PScrollBar; AIndicator: PIndicator;const AFileName: string);
       CompileStamp : longint;
       CodeCompleteTip: PFPToolTip;
+      constructor Init(var Bounds: TRect; AHScrollBar, AVScrollBar:
+          PScrollBar; AIndicator: PIndicator;const AFileName: string);
 {$ifndef NODEBUG}
     private
       ShouldHandleBreakpoints : boolean;