Merged with delphi 2010 branch

[lcore.git] / wcore.pas

diff --git a/wcore.pas b/wcore.pas
index f88aa530c59d50e8bcbda25b48d90ae2415640a7..d15e803d40748b51547b8402b685cee4b891aa4b 100755 (executable)
--- a/wcore.pas
+++ b/wcore.pas
@@ -65,7 +65,7 @@ procedure exitmessageloop;
 procedure processmessages;\r
 \r
 var\r
 procedure processmessages;\r
 \r
 var\r

-  onshutdown:procedure(s:string);\r
+  onshutdown:procedure(s:ansistring);\r

 \r
 implementation\r
 \r
 \r
 implementation\r
 \r