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