diff --git a/harbour/ChangeLog b/harbour/ChangeLog index e402a4f8f8..d436cabf72 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -17,6 +17,14 @@ past entries belonging to author(s): Viktor Szakats. */ +2010-05-31 13:25 UTC+0200 Viktor Szakats (harbour.01 syenar.hu) + + contrib/hbwin/tests/oletst2.vbs + + contrib/hbwin/tests/oletst2.js + + Added vbscript and jscript test code. + + * contrib/hbwin/tests/oletst3.bas + ! Fixed SVN props. + 2010-05-31 12:58 UTC+0200 Viktor Szakats (harbour.01 syenar.hu) * contrib/hbqt/hbqt.h * contrib/hbqt/hbqt_hbqtableview.h diff --git a/harbour/contrib/hbwin/tests/oletst2.js b/harbour/contrib/hbwin/tests/oletst2.js new file mode 100644 index 0000000000..8974e4b4f9 --- /dev/null +++ b/harbour/contrib/hbwin/tests/oletst2.js @@ -0,0 +1,16 @@ +/* + * $Id$ + */ + +/* + * Copyright 2010 Viktor Szakats (harbour.01 syenar.hu) + * www - http://www.harbour-project.org + * + * See COPYING for licensing terms. + */ + +{ + var tst2 = new ActiveXObject( "MyOleTimeServer" ); + + WScript.CreateObject("Wscript.Shell").Popup( ">" + tst2.TIME() + "<" ); +} diff --git a/harbour/contrib/hbwin/tests/oletst2.vbs b/harbour/contrib/hbwin/tests/oletst2.vbs new file mode 100644 index 0000000000..3c36606b6e --- /dev/null +++ b/harbour/contrib/hbwin/tests/oletst2.vbs @@ -0,0 +1,12 @@ +' +' $Id$ +' + +' Copyright 2010 Viktor Szakats (harbour.01 syenar.hu) +' www - http://www.harbour-project.org +' +' See COPYING for licensing terms. + +Dim tst2 : Set tst2 = WScript.CreateObject("MyOleTimeServer") + +WScript.CreateObject("Wscript.Shell").Popup tst2.Time()