From 4cd1fca0628e0962422a0572bcd525714e9da95c Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sun, 10 Dec 2000 14:15:02 +0000
Subject: [PATCH]   * fixed

---
 tests/webtbs/tw1203.pp | 22 ++++++++++++----------
 1 file changed, 12 insertions(+), 10 deletions(-)

diff --git a/tests/webtbs/tw1203.pp b/tests/webtbs/tw1203.pp
index 45f3cc7ee6..51cc9165fe 100644
--- a/tests/webtbs/tw1203.pp
+++ b/tests/webtbs/tw1203.pp
@@ -3,18 +3,20 @@
 { e-mail: marco@freepascal.org }
 {$mode Delphi}
 type
-     someprocedureofobjectype=procedure (sender:tobject) OF
-OBJECT;
-
+     someprocedureofobjectype=procedure (sender:tobject) OF OBJECT;
      a=class
-                  protected
-                    fondisplay : someprocedureofobjectype;
-                  end;
+     protected
+        fondisplay : someprocedureofobjectype;
+     public
+        a:longint;
+     end;
 
-       b=class(A)
-                  protected
-                    fondisplay : someprocedureofobjectype;
-                  end;
+     b=class(A)
+     protected
+        fondisplay : someprocedureofobjectype;
+     public
+        a:longint;
+     end;
 
 begin
 end.