From c593d02c018ce4227129f341283b9d19b7943f85 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sun, 29 Apr 2007 21:21:33 +0000
Subject: [PATCH] codetools: fixed addmethod example

git-svn-id: trunk@11035 -
---
 .../codetools/examples/addeventmethod.lpi     | 23 ++-----------------
 components/codetools/examples/addmethod.lpi   | 19 ---------------
 components/codetools/examples/addmethod.lpr   |  2 +-
 3 files changed, 3 insertions(+), 41 deletions(-)

diff --git a/components/codetools/examples/addeventmethod.lpi b/components/codetools/examples/addeventmethod.lpi
index aec8943db5..59c3285473 100644
--- a/components/codetools/examples/addeventmethod.lpi
+++ b/components/codetools/examples/addeventmethod.lpi
@@ -10,25 +10,6 @@
       <TargetFileExt Value=""/>
       <Title Value="addeventmethod"/>
     </General>
-    <VersionInfo>
-      <UseVersionInfo Value="False"/>
-      <AutoIncrementBuild Value="False"/>
-      <CurrentVersionNr Value="0"/>
-      <CurrentMajorRevNr Value="0"/>
-      <CurrentMinorRevNr Value="0"/>
-      <CurrentBuildNr Value="0"/>
-      <ProjectVersion Value="1.0.0.0"/>
-      <Language Value="0409"/>
-      <CharSet Value="04E4"/>
-      <Comments Value=""/>
-      <CompanyName Value=""/>
-      <FileDescription Value=""/>
-      <InternalName Value=""/>
-      <LegalCopyright Value=""/>
-      <LegalTrademarks Value=""/>
-      <OriginalFilename Value=""/>
-      <ProductName Value=""/>
-    </VersionInfo>
     <PublishOptions>
       <Version Value="2"/>
       <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
@@ -42,10 +23,10 @@
     </RunParams>
     <RequiredPackages Count="2">
       <Item1>
-        <PackageName Value="CodeTools"/>
+        <PackageName Value="LCL"/>
       </Item1>
       <Item2>
-        <PackageName Value="LCL"/>
+        <PackageName Value="CodeTools"/>
       </Item2>
     </RequiredPackages>
     <Units Count="3">
diff --git a/components/codetools/examples/addmethod.lpi b/components/codetools/examples/addmethod.lpi
index 0732258c78..546a0a8be6 100644
--- a/components/codetools/examples/addmethod.lpi
+++ b/components/codetools/examples/addmethod.lpi
@@ -9,25 +9,6 @@
       <IconPath Value="./"/>
       <TargetFileExt Value=""/>
     </General>
-    <VersionInfo>
-      <UseVersionInfo Value="False"/>
-      <AutoIncrementBuild Value="False"/>
-      <CurrentVersionNr Value="0"/>
-      <CurrentMajorRevNr Value="0"/>
-      <CurrentMinorRevNr Value="0"/>
-      <CurrentBuildNr Value="0"/>
-      <ProjectVersion Value="1.0.0.0"/>
-      <Language Value="0409"/>
-      <CharSet Value="04E4"/>
-      <Comments Value=""/>
-      <CompanyName Value=""/>
-      <FileDescription Value=""/>
-      <InternalName Value=""/>
-      <LegalCopyright Value=""/>
-      <LegalTrademarks Value=""/>
-      <OriginalFilename Value=""/>
-      <ProductName Value=""/>
-    </VersionInfo>
     <PublishOptions>
       <Version Value="2"/>
       <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
diff --git a/components/codetools/examples/addmethod.lpr b/components/codetools/examples/addmethod.lpr
index b985a6dcd9..c2c63f9540 100644
--- a/components/codetools/examples/addmethod.lpr
+++ b/components/codetools/examples/addmethod.lpr
@@ -83,7 +83,7 @@ begin
                              ncpPublishedProcs);
   end;
 
-  if not Tool.ApplyClassCompletion then
+  if not Tool.ApplyClassCompletion(true) then
     raise Exception.Create('Explore failed');
   writeln('Method added: ');
   writeln(Code.Source);