--- a/RegressionTests__Win32OLETests.st	Wed Mar 30 15:05:46 2016 +0200
+++ b/RegressionTests__Win32OLETests.st	Thu Mar 31 17:47:57 2016 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "{ Package: 'exept:regression' }"
 
 "{ NameSpace: RegressionTests }"
@@ -129,7 +127,7 @@
 
 test20_CreateInstance
     |guid iDispatch iWebBrowser iWebBrowserApp iWebBrowser2
-     ids visibleID params result|
+     ids visibleID params result specTable|
 
     guid := (GUID clsidFromProgID:'InternetExplorer.Application'). 
     self assert:(guid notNil).
@@ -145,6 +143,7 @@
     self assert:(iDispatch hasTypeInfo).
     iWebBrowser := iDispatch queryInterface: IWebBrowser iid.
     self assert:(iWebBrowser notNil).
+    specTable := OLEDispatchSpecificationTable constructSpecificationTable: iDispatch getTypeInfo.
     iDispatch release.
 
     iWebBrowserApp := iWebBrowser queryInterface: IWebBrowserApp iid.
@@ -156,14 +155,25 @@
     iWebBrowserApp release.
 
     "/ iWebBrowser2 setProperty:'Visible' value:true.
-self halt.
     ids := iWebBrowser2 getIDsOfNames:(Array with:'Visible').
     visibleID := ids first.
 
     params := OLE_DISPPARAMS new.
     params cArgs: 0.
-    result := iDispatch invokePropertyGet: visibleID with:params.
+    result := iWebBrowser2 invokePropertyGet: visibleID with:params.
+    self assert:(result == false).
+
+"/    params := OLEDispatchValueAdaptor new
+"/                parametersForPropertySet: aIDispatchSpecification arguments: valueArray
+"/                parameters parametersForPropertySet: aDispatchSpecification arguments: valueArray
+
+    params := OLE_DISPPARAMS new.
+    params cArgs: 1.
+    params arguments:(Array with:true).
 self halt.
+    result := iWebBrowser2 invokePropertyPut: visibleID with:params.
+self halt.
+    self assert:(result == false).
 
     iWebBrowser2 release.
 
@@ -173,6 +183,7 @@
     "
 
     "Created: / 30-03-2016 / 11:26:36 / cg"
+    "Modified: / 30-03-2016 / 20:08:04 / cg"
 ! !
 
 !Win32OLETests class methodsFor:'documentation'!