Delphi/pascalscript
Delphi/pascalscript
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

The OnProcessUnknownDirective and OnProcessDirective

Browse Source 
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
This commit is contained in:
ck 2010-05-19 10:18:57 +00:00
parent 0c720187dc
commit 3e9bd507d9
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Source/uPSComponent.pas
View File

@ -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;