fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2010-05-26 00:36 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)

Browse Source 
* contrib/hbwin/tests/oletst2.prg
    ! Fixed little typo causing asyncronity with one server msg.
This commit is contained in:
Viktor Szakats
2010-05-25 22:37:11 +00:00
parent 38224e4dac
commit 11ad9802c7
2 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

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

4
harbour/contrib/hbwin/tests/oletst2.prg
View File

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