From 11ad9802c71c2ab3202ef3a3eaec2474a5106384 Mon Sep 17 00:00:00 2001 From: Viktor Szakats Date: Tue, 25 May 2010 22:37:11 +0000 Subject: [PATCH] 2010-05-26 00:36 UTC+0200 Viktor Szakats (harbour.01 syenar.hu) * contrib/hbwin/tests/oletst2.prg ! Fixed little typo causing asyncronity with one server msg. --- harbour/ChangeLog | 4 ++++ harbour/contrib/hbwin/tests/oletst2.prg | 4 ++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index ef0cdcdfe5..0665133209 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -17,6 +17,10 @@ past entries belonging to author(s): Viktor Szakats. */ +2010-05-26 00:36 UTC+0200 Viktor Szakats (harbour.01 syenar.hu) + * contrib/hbwin/tests/oletst2.prg + ! Fixed little typo causing asyncronity with one server msg. + 2010-05-26 00:21 UTC+0200 Viktor Szakats (harbour.01 syenar.hu) * contrib/hbwin/tests/oletst1.hbp * contrib/hbwin/tests/olesrv1.hbp diff --git a/harbour/contrib/hbwin/tests/oletst2.prg b/harbour/contrib/hbwin/tests/oletst2.prg index 33a8b75b82..fa12b282c3 100644 --- a/harbour/contrib/hbwin/tests/oletst2.prg +++ b/harbour/contrib/hbwin/tests/oletst2.prg @@ -22,10 +22,10 @@ PROCEDURE Main() ? "TIME:", oObject:time() ? "DATTIME:", oObject:datetime() ? "VALUE:", oObject:value - ? "GETVALUE:", oObject:getvalue() + ? "GETDATA:", oObject:getdata() oObject:value := "hello" ? "VALUE:", oObject:value - ? "GETVALUE:", oObject:getvalue() + ? "GETDATA:", oObject:getdata() ELSE ? "Can not access 'MyOleTimeServer' OLE server." ENDIF