From ea267854e8a03232d3fcfb76b6ec2247afba4dd4 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Mon, 28 Mar 2005 15:23:16 +0000
Subject: [PATCH] fixed compile

---
 docs/typinfex/ex6.pp | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/docs/typinfex/ex6.pp b/docs/typinfex/ex6.pp
index b2c0c4689f..53213e43b2 100644
--- a/docs/typinfex/ex6.pp
+++ b/docs/typinfex/ex6.pp
@@ -65,8 +65,7 @@ begin
   Write('Get (propinfo)               : ');
   M:=GetMethodProp(O,PI);
   PrintMethod(M);
-  M.Data:=No;
-  M.Code:=Pointer(@NO.Notification2);
+  M:=TMethod(@NO.Notification2);
   SetMethodProp(O,'NotifyEvent',M);
   Write('Set (name,Notification2)     : ');
   M:=GetMethodProp(O,PI);
@@ -74,8 +73,7 @@ begin
   Write('Notifying                    : ');
   O.Notify;
   Write('Set (propinfo,Notification1) : ');
-  M.Data:=No;
-  M.Code:=Pointer(@NO.Notification1);
+  M:=TMethod(@NO.Notification1);
   SetMethodProp(O,PI,M);
   M:=GetMethodProp(O,PI);
   PrintMethod(M);