From 3e9bd507d9c17a8c740ece9a32885ca8f47fd4bd Mon Sep 17 00:00:00 2001
From: ck <ck@5c9d2617-0215-0410-a2ee-e80e04d1c6d8>
Date: Wed, 19 May 2010 10:18:57 +0000
Subject: [PATCH] The OnProcessUnknownDirective and OnProcessDirective we're
 switched when using them in TPSScript. (Raymond van Venentie)

git-svn-id: http://code.remobjects.com/svn/pascalscript@228 5c9d2617-0215-0410-a2ee-e80e04d1c6d8
---
 Source/uPSComponent.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Source/uPSComponent.pas b/Source/uPSComponent.pas
index 65fb564..a540ffb 100644
--- a/Source/uPSComponent.pas
+++ b/Source/uPSComponent.pas
@@ -447,7 +447,7 @@ procedure callObjectOnProcessDirective (
   const DirectiveName, DirectiveParam: tbtstring;
   Var Continue: Boolean);
 begin
-  TPSScript (Sender.ID).DoOnProcessUnknowDirective(Sender, Parser, Active, DirectiveName, DirectiveParam, Continue);
+  TPSScript (Sender.ID).DoOnProcessDirective(Sender, Parser, Active, DirectiveName, DirectiveParam, Continue);
 end;
 
 procedure callObjectOnProcessUnknowDirective (
@@ -457,7 +457,7 @@ procedure callObjectOnProcessUnknowDirective (
   const DirectiveName, DirectiveParam: tbtstring;
   Var Continue: Boolean);
 begin
-  TPSScript (Sender.ID).DoOnProcessDirective(Sender, Parser, Active, DirectiveName, DirectiveParam, Continue);
+  TPSScript (Sender.ID).DoOnProcessUnknowDirective(Sender, Parser, Active, DirectiveName, DirectiveParam, Continue);
 end;