[JVCL-Checkins] SF.net SVN: jvcl: [10627] trunk/jvcl/examples/RaLib/Pas2Rai2/JvPasImportForm.pas

[<iv...@us...>]

Revision: 10627
Author:   ivan_ra
Date:     2006-05-30 03:16:03 -0700 (Tue, 30 May 2006)
ViewCVS:  http://svn.sourceforge.net/jvcl/?rev=10627&view=rev

Log Message:
-----------
Fixed adapter registration for procedures

Modified Paths:
--------------
    trunk/jvcl/examples/RaLib/Pas2Rai2/JvPasImportForm.pas
Modified: trunk/jvcl/examples/RaLib/Pas2Rai2/JvPasImportForm.pas
===================================================================
--- trunk/jvcl/examples/RaLib/Pas2Rai2/JvPasImportForm.pas	2006-05-29 22:50:40 UTC (rev 10626)
+++ trunk/jvcl/examples/RaLib/Pas2Rai2/JvPasImportForm.pas	2006-05-30 10:16:03 UTC (rev 10627)
@@ -629,7 +629,7 @@
     S := UnitNameStr;
     AdapterNames.Add(S);
     Adapter.Add('    AddFunction(c' + S + ', ''' + Name + ''', ' +
-      ClassName + 'JvInterpreter_' + Name + ', ' + IntToStr(Params.Count) + ', ' + ParamTypStr + ', ' + ResVar + ');');
+      'JvInterpreter_' + Name + ', ' + IntToStr(Params.Count) + ', ' + ParamTypStr + ', ' + ResVar + ');');
   end;
 
   procedure AddProp;


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.