summaryrefslogtreecommitdiff
path: root/extensions/test
diff options
context:
space:
mode:
Diffstat (limited to 'extensions/test')
-rw-r--r--extensions/test/ole/OleTest.htm74
-rw-r--r--extensions/test/ole/StarBasic_OleClient/oleclient.bas209
-rw-r--r--extensions/test/ole/StarBasic_OleClient/readme.txt10
3 files changed, 287 insertions, 6 deletions
diff --git a/extensions/test/ole/OleTest.htm b/extensions/test/ole/OleTest.htm
index 5aaad3322cd1..93d0fdc4ee52 100644
--- a/extensions/test/ole/OleTest.htm
+++ b/extensions/test/ole/OleTest.htm
@@ -7,6 +7,39 @@
<BODY id=theBody>
<script language="JScript">
+// XEventListener implementation in JScript --------------------------------------------------
+function XEventListener_Impl()
+{
+ this._environment= "JScript";
+ this._implementedInterfaces= new Array( "com.sun.star.lang.XEventListener");
+
+ //XEventListener
+ this.disposing= XEventListener_disposing;
+
+ this.bdisposingCalled= false;
+ this.bQuiet= true;
+ this.resetDisposing= XEventListener_resetDisposing;
+ this.disposingCalled= XEventListener_disposingCalled;
+}
+
+function XEventListener_disposing( source)
+{
+ if( !this.bQuiet)
+ alert("JScript Event Listener \n disposing is being called");
+ this.bdisposingCalled= true;
+}
+
+function XEventListener_resetDisposing()
+{
+ this.bdisposingCalled= false;
+}
+
+function XEventListener_disposingCalled()
+{
+ return this.bdisposingCalled;
+}
+
+//--------------------------------------------------------------------------------------------
function callOleTest( id)
{
var factory= new ActiveXObject("com.sun.star.ServiceManager");
@@ -29,6 +62,11 @@ function callOleTest( id)
var ret, i;
var sfarray, sfarray1, sfarray2, sfarray3;
+ var arEventListener= new Array( new XEventListener_Impl(), new XEventListener_Impl(),
+ new XEventListener_Impl());
+ var arEventListener2= new Array( new XEventListener_Impl(), new XEventListener_Impl(),
+ new XEventListener_Impl());
+ var arArEventListener= new Array( arEventListener, arEventListener2);
switch( id)
{
// Array in-params
@@ -148,8 +186,31 @@ function callOleTest( id)
document.writeln( "Param: " + arrDouble.toString() +"<br>");
document.writeln( "Returns a Sequence&lt float&gt <br>" + sfarray.toArray()) ; break;
-
-
+ case 15:
+ ret= oletest.methodXEventListeners( arEventListener);
+ sfarray= new VBArray(ret);
+ _ret= sfarray.toArray();
+ for ( key in _ret)
+ {
+ if( ! _ret[key].disposingCalled())
+ alert("Error! oletest.methodXEventListeners")
+ }
+ break;
+ case 16:
+ ret= oletest.methodXEventListenersMul( arArEventListener);
+ sfarray= new VBArray(ret);
+ _ret= sfarray.toArray();
+ for( key in _ret)
+ {
+ sfarray2= new VBArray(_ret[key]);
+ _ret2= sfarray2.toArray();
+ for( key2 in _ret2)
+ {
+ if( ! _ret2[key2].disposingCalled())
+ alert("Error! oletest.methodXEventListeners")
+ }
+ }
+ break;
@@ -844,10 +905,11 @@ All methods receive a Sequence as Parameter. The element type of the Sequence is
<button onclick='callOleTest( 8)'>char</Button>
<button onclick='callOleTest( 9)'>string</Button>
<button onclick='callOleTest( 10)'>any</Button>
-<button onclick='callOleTest( 11)'>sequence&ltlong&gt </Button>
-<button onclick='callOleTest( 12)'>sequence&ltsequence&ltlong&gt &gt </Button>
-<button onclick='callOleTest( 13)'>XInterface</Button>
-
+<button onclick='callOleTest( 11)'>sequence&lt;long&gt; </Button>
+<button onclick='callOleTest( 12)'>sequence&lt;sequence&lt;long&gt; &gt; </Button>
+<button onclick='callOleTest( 13)' id=button2 name=button2>XInterface</Button>
+<button onclick='callOleTest( 15)'>XEventListener</Button>
+<button onclick='callOleTest( 16)'>sequence&lt;XEventListener&gt;</Button>
<p>
<p>
diff --git a/extensions/test/ole/StarBasic_OleClient/oleclient.bas b/extensions/test/ole/StarBasic_OleClient/oleclient.bas
new file mode 100644
index 000000000000..17b75e3c94e0
--- /dev/null
+++ b/extensions/test/ole/StarBasic_OleClient/oleclient.bas
@@ -0,0 +1,209 @@
+REM ***** BASIC *****
+
+
+Sub Main
+factory= createUnoService("com.sun.star.bridge.OleObjectFactory")
+obj= factory.createInstance("AxTestComponents.Basic")
+
+
+obj.prpObject= obj
+prpObject= obj.prpObject
+'identity of objects, mapped from COM to UNO, is not given currently
+if NOT equalUnoObjects(obj,prpObject) then
+ MsgBox "error"
+end if
+
+'properties -------------------------------------------------------------------------
+Dim ar1(1)
+ar1(0)= "1"
+ar1(1)= "2"
+obj.prpArray= ar1()
+prpArray= obj.prpArray
+if (prpArray(0) <> "1") OR (prpArray(1) <> "2") then
+ MsgBox "error"
+end if
+
+obj.prpVariant="string"
+prpVariant= obj.prpVariant
+if prpVariant <> "string" then
+ MsgBox "error"
+end if
+
+obj.prpDouble=3.145
+prpDouble= obj.prpDouble
+if NOT ((prpDouble >3.144) AND (prpDouble < 3.146)) then
+ MsgBox "error"
+end if
+
+
+obj.prpFloat= 3.14
+prpFloat= obj.prpFloat
+if NOT ((prpFloat >3.13) AND (prpFloat < 3.15)) then
+ MsgBox "error"
+end if
+
+obj.prpString= "string"
+prpString= obj.prpString
+if prpString <> "string" then
+ MsgBox "error"
+end if
+
+obj.prpLong= 1000
+prpLong= obj.prpLong
+if prpLong <> 1000 then
+ MsgBox "error"
+end if
+
+obj.prpShort= 127
+prpShort= obj.prpShort
+if prpShort <> 127 then
+ MsgBox "error"
+end if
+
+obj.prpByte= 11
+prpByte= obj.prpByte
+if prpByte <> 11 then
+ MsgBox "error"
+end if
+
+
+'out parameter -------------------------------------------------------------------------
+Dim outObject
+obj.outObject(outObject)
+if outObject.prpString <> "out" then
+ MsgBox "error"
+end if
+
+Dim outArray
+obj.outArray(outArray)
+if (outArray(0) <> "out1") OR (outArray(1) <> "out2") OR (outArray(2) <> "out3")then
+ MsgBox "error"
+end if
+Dim outVariant
+obj.outVariant(outVariant)
+if outVariant <> "out" then
+ MsgBox "error"
+end if
+Dim outDouble
+obj.outDouble(outDouble)
+if NOT ((outDouble >3.144) AND (outDouble < 3.146)) then
+ MsgBox "error"
+end if
+
+
+Dim outFloat
+obj.outFloat(outFloat)
+if NOT ((outFloat >3.13) AND (outFloat < 3.15)) then
+ MsgBox "error"
+end if
+
+Dim outString
+obj.outString(outString)
+if outString <> "out" then
+ MsgBox "error"
+end if
+Dim outLong
+obj.outLong(outLong)
+if outLong <> 111111 then
+ MsgBox "error"
+end if
+
+Dim outShort
+obj.outShort(outShort)
+if outShort <> 1111 then
+ MsgBox "error"
+end if
+
+Dim outByte
+obj.outByte(outByte)
+if outByte <> 111 then
+ MsgBox "error"
+end if
+
+
+'in-out parameter -------------------------------------------------------------
+obj2= factory.createInstance("AxTestComponents.Basic")
+inoutObj= obj2
+inoutObj.prpString="in"
+obj.inoutObject(inoutObj)
+if equalUnoObjects(inoutObj,obj) then
+ MsgBox "error"
+end if
+
+if inoutObj.prpString <> "out" then
+ MsgBox "error"
+end if
+
+
+Dim inoutAr(2)
+inoutAr(0)="1"
+inoutAr(1)="2"
+inoutAr(2)="3"
+obj.inoutArray(inoutAr())
+
+if (inoutAr(0) <> "1out") OR (inoutAr(1) <> "2out") OR (inoutAr(2) <> "3out") then
+ MsgBox "error"
+end if
+
+inoutVar= "in"
+obj.inoutVariant(inoutVar)
+if inoutVar <> "inout" then
+ MsgBox "error"
+end if
+
+inoutDouble= 3.14
+obj.inoutDouble(inoutDouble)
+if NOT ((inoutDouble >4.13) AND (inoutDouble < 4.15)) then
+ MsgBox "error"
+end if
+
+inoutFloat= 3.14
+obj.inoutFloat(inoutFloat)
+if NOT ((inoutFloat >4.13) AND (inoutFloat < 4.15)) then
+ MsgBox "error"
+end if
+
+inoutString= "in"
+obj.inoutString(inoutString)
+if inoutString <> "inout" then
+ MsgBox "error"
+end if
+
+
+inoutLong= 10
+obj.inoutLong(inoutLong)
+if inoutLong <> 11 then
+ MsgBox "error"
+end if
+
+inoutShort= 10
+obj.inoutShort(inoutShort)
+if inoutShort <> 11 then
+ MsgBox "error"
+end if
+
+
+inoutByte= 10
+obj.inoutByte(inoutByte)
+if inoutByte <> 11 then
+ MsgBox "error"
+end if
+
+
+'in parameter -------------------------------------------------------------------
+obj.inByte(11)
+obj.inShort(111)
+obj.inLong(11111)
+obj.inString("I am a string")
+obj.inFloat(3.14)
+obj.inDouble(3.145)
+obj.inVariant("I am a string in a variant")
+obj.prpString= "a string property"
+obj.inObject(obj)
+
+Dim arString(1) as String
+arString(0)= "String one"
+arString(1)= "String two"
+obj.inArray(arString())
+
+End Sub
diff --git a/extensions/test/ole/StarBasic_OleClient/readme.txt b/extensions/test/ole/StarBasic_OleClient/readme.txt
new file mode 100644
index 000000000000..8e129dddddcd
--- /dev/null
+++ b/extensions/test/ole/StarBasic_OleClient/readme.txt
@@ -0,0 +1,10 @@
+oleclient.bas is a StarBasic script that uses the
+"com.sun.star.bridge.OleObjectFactory" service to instantiate
+the ActiveX component "AxTestComponents.Basic" and calls
+functions on it.
+
+------------------------------------------------------------
+Requirements:
+
+ActiveX component: AxTestComponent.Basic must be registered.
+It is contained in extensions/test/ole/AxTestComponents \ No newline at end of file
generated by cgit v1.2.3 (git 2.39.1) at 2024-05-12 19:56:24 +0000