summaryrefslogtreecommitdiff
path: root/extensions/test
diff options
context:
space:
mode:
authorJens-Heiner Rechtien <hr@openoffice.org>2003-03-25 15:04:55 +0000
committerJens-Heiner Rechtien <hr@openoffice.org>2003-03-25 15:04:55 +0000
commit29a4847890f529dad10e2d9f0334eeb6c919f0c7 (patch)
tree04acdb6805ad502ad7fca3c8ad1b920b5dd4512f /extensions/test
parente12f3a21a4e45ace5596f29e477d447c6ac51238 (diff)
MWS_SRX644: migrate branch mws_srx644 -> HEAD
Diffstat (limited to 'extensions/test')
-rw-r--r--extensions/test/ole/DCOM/Clients/WriterDemo/Module1.bas8
-rw-r--r--extensions/test/ole/DCOM/Clients/WriterDemo/client_writerdemo.vbp33
-rw-r--r--extensions/test/ole/DCOM/Clients/WriterDemo/client_writerdemo.vbw1
-rw-r--r--extensions/test/ole/DCOM/Clients/WriterDemo/readme.txt4
-rw-r--r--extensions/test/ole/DCOM/dcom_test/Module1.bas38
-rw-r--r--extensions/test/ole/DCOM/dcom_test/dcom_test.vbp37
-rw-r--r--extensions/test/ole/DCOM/dcom_test/dcom_test.vbw1
-rw-r--r--extensions/test/ole/DCOM/dcom_test/readme.txt5
-rw-r--r--extensions/test/ole/DCOM/scriptComponents/WriterDemo.wsc186
-rw-r--r--extensions/test/ole/DCOM/scriptComponents/readme.txt13
-rw-r--r--extensions/test/ole/EventListenerSample/EventListener/EventListener.cpp72
-rw-r--r--extensions/test/ole/EventListenerSample/EventListener/EventListener.dsp323
-rw-r--r--extensions/test/ole/EventListenerSample/EventListener/EventListener.dsw29
-rw-r--r--extensions/test/ole/EventListenerSample/EventListener/EventListener.idl39
-rw-r--r--extensions/test/ole/EventListenerSample/EventListener/EventListener.rc136
-rw-r--r--extensions/test/ole/EventListenerSample/EventListener/EvtListener.cpp19
-rw-r--r--extensions/test/ole/EventListenerSample/EventListener/EvtListener.h35
-rw-r--r--extensions/test/ole/EventListenerSample/EventListener/EvtListener.rgs26
-rw-r--r--extensions/test/ole/EventListenerSample/EventListener/StdAfx.cpp12
-rw-r--r--extensions/test/ole/EventListenerSample/EventListener/StdAfx.h27
-rw-r--r--extensions/test/ole/EventListenerSample/EventListener/resource.h17
-rw-r--r--extensions/test/ole/EventListenerSample/VBEventListener/Module1.bas9
-rw-r--r--extensions/test/ole/EventListenerSample/VBEventListener/VBEventListener.cls51
-rw-r--r--extensions/test/ole/EventListenerSample/events.htm98
-rw-r--r--extensions/test/ole/EventListenerSample/readme.txt18
-rw-r--r--extensions/test/ole/StarBasic_OleClient/oleclient.bas209
-rw-r--r--extensions/test/ole/StarBasic_OleClient/readme.txt10
-rw-r--r--extensions/test/ole/VisualBasic/Form1.frm349
-rw-r--r--extensions/test/ole/VisualBasic/Module1.bas743
-rw-r--r--extensions/test/ole/VisualBasic/Project1.vbp34
-rw-r--r--extensions/test/ole/VisualBasic/Project1.vbw1
-rw-r--r--extensions/test/ole/VisualBasic/readme.txt18
-rw-r--r--extensions/test/ole/cpptest/cpptest.cpp54
-rw-r--r--extensions/test/ole/cpptest/cpptest.cxx163
-rw-r--r--extensions/test/ole/cpptest/makefile.mk137
35 files changed, 348 insertions, 2607 deletions
diff --git a/extensions/test/ole/DCOM/Clients/WriterDemo/Module1.bas b/extensions/test/ole/DCOM/Clients/WriterDemo/Module1.bas
deleted file mode 100644
index e9bb197ed692..000000000000
--- a/extensions/test/ole/DCOM/Clients/WriterDemo/Module1.bas
+++ /dev/null
@@ -1,8 +0,0 @@
-Attribute VB_Name = "Module1"
-Option Explicit
-
-Sub main()
- Dim obj As Object
- Set obj = CreateObject("dcomtest.writerdemo.wsc")
- obj.run
-End Sub
diff --git a/extensions/test/ole/DCOM/Clients/WriterDemo/client_writerdemo.vbp b/extensions/test/ole/DCOM/Clients/WriterDemo/client_writerdemo.vbp
deleted file mode 100644
index ca477cff6b66..000000000000
--- a/extensions/test/ole/DCOM/Clients/WriterDemo/client_writerdemo.vbp
+++ /dev/null
@@ -1,33 +0,0 @@
-Type=Exe
-Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\System32\stdole2.tlb#OLE Automation
-Module=Module1; Module1.bas
-Startup="Sub Main"
-HelpFile=""
-Command32=""
-Name="client_writerdemo"
-HelpContextID="0"
-CompatibleMode="0"
-MajorVer=1
-MinorVer=0
-RevisionVer=0
-AutoIncrementVer=0
-ServerSupportFiles=0
-VersionCompanyName="StarOffice"
-CompilationType=0
-OptimizationType=0
-FavorPentiumPro(tm)=0
-CodeViewDebugInfo=0
-NoAliasing=0
-BoundsCheck=0
-OverflowCheck=0
-FlPointCheck=0
-FDIVCheck=0
-UnroundedFP=0
-StartMode=0
-Unattended=0
-Retained=0
-ThreadPerObject=0
-MaxNumberOfThreads=1
-
-[MS Transaction Server]
-AutoRefresh=1
diff --git a/extensions/test/ole/DCOM/Clients/WriterDemo/client_writerdemo.vbw b/extensions/test/ole/DCOM/Clients/WriterDemo/client_writerdemo.vbw
deleted file mode 100644
index 067d7529ee0b..000000000000
--- a/extensions/test/ole/DCOM/Clients/WriterDemo/client_writerdemo.vbw
+++ /dev/null
@@ -1 +0,0 @@
-Module1 = 108, 108, 685, 544,
diff --git a/extensions/test/ole/DCOM/Clients/WriterDemo/readme.txt b/extensions/test/ole/DCOM/Clients/WriterDemo/readme.txt
deleted file mode 100644
index cc16cd810e3c..000000000000
--- a/extensions/test/ole/DCOM/Clients/WriterDemo/readme.txt
+++ /dev/null
@@ -1,4 +0,0 @@
-Visual Basic client that instantiates a Windows Script Component
-,dcomtest.writerdemo.wsc. That component is located in
-extensions/test/ole/DCOM/scriptComponents/WriterDemo.wsc.
-Don't forget to register that component (right-click,select register). \ No newline at end of file
diff --git a/extensions/test/ole/DCOM/dcom_test/Module1.bas b/extensions/test/ole/DCOM/dcom_test/Module1.bas
deleted file mode 100644
index c41c3a073967..000000000000
--- a/extensions/test/ole/DCOM/dcom_test/Module1.bas
+++ /dev/null
@@ -1,38 +0,0 @@
-Attribute VB_Name = "Module1"
-Option Explicit
-
-Sub main()
-
-MsgBox "hallo"
-
-'The service manager is always the starting point
-'If there is no office running then an office is started up
-Dim objServiceManager As Object
-Set objServiceManager = CreateObject("com.sun.star.ServiceManager")
-
-'Create the CoreReflection service that is later used to create structs
-Set objCoreReflection = objServiceManager.createInstance("com.sun.star.reflection.CoreReflection")
-
-'Create the Desktop
-Set objDesktop = objServiceManager.createInstance("com.sun.star.frame.Desktop")
-
-'Open a new empty writer document
-
-Set objCoreReflection = objServiceManager.createInstance("com.sun.star.reflection.CoreReflection")
-'get a type description class for Size
-Set propClass = objCoreReflection.forName("com.sun.star.beans.PropertyValue")
-
-Dim prop
-propClass.CreateObject prop
-prop.Name = "Hidden"
-prop.Value = True
-
-'create the actual object
-Dim args(0)
-Set args(0) = prop
-
-Dim args2()
-'Set objDocument= objDesktop.loadComponentFromURL("private:factory/swriter", "_blank", 0, args)
-Set objDocument = objDesktop.loadComponentFromURL("private:factory/swriter", "_blank", 0, args2)
-
-End Sub
diff --git a/extensions/test/ole/DCOM/dcom_test/dcom_test.vbp b/extensions/test/ole/DCOM/dcom_test/dcom_test.vbp
deleted file mode 100644
index 5b896434fb6d..000000000000
--- a/extensions/test/ole/DCOM/dcom_test/dcom_test.vbp
+++ /dev/null
@@ -1,37 +0,0 @@
-Type=Exe
-Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\System32\stdole2.tlb#OLE Automation
-Module=Module1; ..\..\..\..\..\..\Projects\VBasic\dcom_test\Module1.bas
-Startup="Sub Main"
-HelpFile=""
-Title="dcom_test"
-ExeName32="dcom_test.exe"
-Path32="..\..\..\..\..\..\Projects\VBasic\dcom_test"
-Command32=""
-Name="dcom_test"
-HelpContextID="0"
-CompatibleMode="0"
-MajorVer=1
-MinorVer=0
-RevisionVer=0
-AutoIncrementVer=0
-ServerSupportFiles=0
-VersionCompanyName="StarOffice"
-CompilationType=0
-OptimizationType=0
-FavorPentiumPro(tm)=0
-CodeViewDebugInfo=0
-NoAliasing=0
-BoundsCheck=0
-OverflowCheck=0
-FlPointCheck=0
-FDIVCheck=0
-UnroundedFP=0
-StartMode=0
-Unattended=0
-Retained=0
-ThreadPerObject=0
-MaxNumberOfThreads=1
-DebugStartupOption=0
-
-[MS Transaction Server]
-AutoRefresh=1
diff --git a/extensions/test/ole/DCOM/dcom_test/dcom_test.vbw b/extensions/test/ole/DCOM/dcom_test/dcom_test.vbw
deleted file mode 100644
index dfe34e0d1de2..000000000000
--- a/extensions/test/ole/DCOM/dcom_test/dcom_test.vbw
+++ /dev/null
@@ -1 +0,0 @@
-Module1 = 1, 1, 849, 604, Z
diff --git a/extensions/test/ole/DCOM/dcom_test/readme.txt b/extensions/test/ole/DCOM/dcom_test/readme.txt
deleted file mode 100644
index 215d6f409f2c..000000000000
--- a/extensions/test/ole/DCOM/dcom_test/readme.txt
+++ /dev/null
@@ -1,5 +0,0 @@
-The program creates the com.sun.star.Servicemanager on a remote machine:
-
-Set objServiceManager = CreateObject("com.sun.star.ServiceManager", "\\jl-1036")
-
-creates a document and writes in it. \ No newline at end of file
diff --git a/extensions/test/ole/DCOM/scriptComponents/WriterDemo.wsc b/extensions/test/ole/DCOM/scriptComponents/WriterDemo.wsc
deleted file mode 100644
index bb331779397e..000000000000
--- a/extensions/test/ole/DCOM/scriptComponents/WriterDemo.wsc
+++ /dev/null
@@ -1,186 +0,0 @@
-<?xml version="1.0"?>
-<component>
-
-<?component error="true" debug="true"?>
-
-<registration
- description="writerdemo script component"
- progid="dcomtest.writerdemo.WSC"
- version="1.00"
- classid="{90c5ca1a-5e38-4c6d-9634-b0c740c569ad}"
- remotable="true"
->
-</registration>
-
-<public>
- <method name="run">
- </method>
-</public>
-
-<script language="JScript">
-<![CDATA[
-
-var description = new jscripttest;
-
-function jscripttest()
-{
-
- this.run = run;
-}
-
-function run()
-{
-//The service manager is always the starting point
-//If there is no office running then an office is started up
-
-var objServiceManager= new ActiveXObject("com.sun.star.ServiceManager","\\jl-1036");
-
-//Create the CoreReflection service that is later used to create structs
-var objCoreReflection= objServiceManager.createInstance("com.sun.star.reflection.CoreReflection");
-
-//Create the Desktop
-var objDesktop= objServiceManager.createInstance("com.sun.star.frame.Desktop");
-
-//Open a new empty writer document
-var objCoreReflection= objServiceManager.createInstance("com.sun.star.reflection.CoreReflection");
-
-//get a type description class for Size
-//var propClass = objCoreReflection.forName( "com.sun.star.beans.PropertyValue" );
-
-//var propParam= new Array();
-//propClass.createObject(propParam);
-//var prop= propParam[0];
-//prop.Name= "Hidden";
-//prop.Value= true;
-
-//create the actual object
-var args= new Array();
-var objDocument= objDesktop.loadComponentFromURL("private:factory/swriter", "_blank", 0, args);
-
-//Create a text object
-var objText= objDocument.getText();
-
-//Create a cursor object
-var objCursor= objText.createTextCursor();
-
-//Inserting some Text
-objText.insertString( objCursor, "The first line in the newly created text document.\n", false);
-
-//Inserting a second line
-objText.insertString( objCursor, "Now we're in the second line", false);
-
-//Create instance of a text table with 4 columns and 4 rows
-var objTable= objDocument.createInstance( "com.sun.star.text.TextTable");
-objTable.initialize( 4, 4);
-
-//Insert the table
-objText.insertTextContent( objCursor, objTable, false);
-
-//Get first row
-var objRows= objTable.getRows();
-var objRow= objRows.getByIndex( 0);
-
-//Set the table background color
-objTable.setPropertyValue( "BackTransparent", false);
-objTable.setPropertyValue( "BackColor", 13421823);
-
-//Set a different background color for the first row
-objRow.setPropertyValue( "BackTransparent", false);
-objRow.setPropertyValue( "BackColor", 6710932);
-
-//Fill the first table row
-insertIntoCell( "A1","FirstColumn", objTable);
-insertIntoCell( "B1","SecondColumn", objTable);
-insertIntoCell( "C1","ThirdColumn", objTable);
-insertIntoCell( "D1","SUM", objTable);
-
-
-objTable.getCellByName("A2").setValue( 22.5);
-objTable.getCellByName("B2").setValue( 5615.3);
-objTable.getCellByName("C2").setValue( -2315.7);
-objTable.getCellByName("D2").setFormula("sum <A2:C2>");
-
-objTable.getCellByName("A3").setValue( 21.5);
-objTable.getCellByName("B3").setValue( 615.3);
-objTable.getCellByName("C3").setValue( -315.7);
-objTable.getCellByName("D3").setFormula( "sum <A3:C3>");
-
-objTable.getCellByName("A4").setValue( 121.5);
-objTable.getCellByName("B4").setValue( -615.3);
-objTable.getCellByName("C4").setValue( 415.7);
-objTable.getCellByName("D4").setFormula( "sum <A4:C4>");
-
-//Change the CharColor and add a Shadow
-objCursor.setPropertyValue( "CharColor", 255);
-objCursor.setPropertyValue( "CharShadowed", true);
-
-//Create a paragraph break
-//The second argument is a com::sun::star::text::ControlCharacter::PARAGRAPH_BREAK constant
-objText.insertControlCharacter( objCursor, 0 , false);
-
-//Inserting colored Text.
-objText.insertString( objCursor, " This is a colored Text - blue with shadow\n", false);
-
-//Create a paragraph break ( ControlCharacter::PARAGRAPH_BREAK).
-objText.insertControlCharacter( objCursor, 0, false );
-
-//Create a TextFrame.
-var objTextFrame= objDocument.createInstance("com.sun.star.text.TextFrame");
-
-//Create a Size struct.
-var objSize= createStruct("com.sun.star.awt.Size");
-objSize.Width= 15000;
-objSize.Height= 400;
-objTextFrame.setSize( objSize);
-
-//TextContentAnchorType.AS_CHARACTER = 1
-objTextFrame.setPropertyValue( "AnchorType", 1);
-
-//insert the frame
-objText.insertTextContent( objCursor, objTextFrame, false);
-
-//Get the text object of the frame
-var objFrameText= objTextFrame.getText();
-
-//Create a cursor object
-var objFrameTextCursor= objFrameText.createTextCursor();
-
-//Inserting some Text
-objFrameText.insertString( objFrameTextCursor, "The first line in the newly created text frame.",
- false);
-objFrameText.insertString(objFrameTextCursor,
- "With this second line the height of the frame raises.", false );
-
-//Create a paragraph break
-//The second argument is a com::sun::star::text::ControlCharacter::PARAGRAPH_BREAK constant
-objFrameText.insertControlCharacter( objCursor, 0 , false);
-
-//Change the CharColor and add a Shadow
-objCursor.setPropertyValue( "CharColor", 65536);
-objCursor.setPropertyValue( "CharShadowed", false);
-
-//Insert another string
-objText.insertString( objCursor, " That's all for now !!", false );
-
-function insertIntoCell( strCellName, strText, objTable)
-{
- var objCellText= objTable.getCellByName( strCellName);
- var objCellCursor= objCellText.createTextCursor();
- objCellCursor.setPropertyValue( "CharColor",16777215);
- objCellText.insertString( objCellCursor, strText, false);
-}
-function createStruct( strTypeName)
-{
- var classSize= objCoreReflection.forName( strTypeName);
- var aStruct= new Array();
- classSize.createObject( aStruct);
- return aStruct[0];
-}
-
-
-}
-
-]]>
-</script>
-
-</component>
diff --git a/extensions/test/ole/DCOM/scriptComponents/readme.txt b/extensions/test/ole/DCOM/scriptComponents/readme.txt
deleted file mode 100644
index 81dff56b47f4..000000000000
--- a/extensions/test/ole/DCOM/scriptComponents/readme.txt
+++ /dev/null
@@ -1,13 +0,0 @@
-WriterDemo.wsc
-=================================================================================
-Register the component by right-clicking on the file in the file explorer and select
-register.
-The component registered as being remotable.That is, it has got an AppID entry (with
-a DllSurrogate subkey).That enables us to use dcomcnfg.exe in order to set AccessPermissions,etc.
-which is necessary because of the use of the JScript Array object. The automation
-bridge will query for IDispatchEx,which is a call from server to client.Hence the server
-needs the proper right within the client.
-
-The component implements a run function, which runs the demo example that is written
-in JScript.
-
diff --git a/extensions/test/ole/EventListenerSample/EventListener/EventListener.cpp b/extensions/test/ole/EventListenerSample/EventListener/EventListener.cpp
deleted file mode 100644
index 02dc541c1bc2..000000000000
--- a/extensions/test/ole/EventListenerSample/EventListener/EventListener.cpp
+++ /dev/null
@@ -1,72 +0,0 @@
-// EventListener.cpp : Implementation of DLL Exports.
-
-
-// Note: Proxy/Stub Information
-// To build a separate proxy/stub DLL,
-// run nmake -f EventListenerps.mk in the project directory.
-
-#include "stdafx.h"
-#include "resource.h"
-#include <initguid.h>
-#include "EventListener.h"
-
-#include "EventListener_i.c"
-#include "EvtListener.h"
-
-
-CComModule _Module;
-
-BEGIN_OBJECT_MAP(ObjectMap)
-OBJECT_ENTRY(CLSID_EvtListener, CEvtListener)
-END_OBJECT_MAP()
-
-/////////////////////////////////////////////////////////////////////////////
-// DLL Entry Point
-
-extern "C"
-BOOL WINAPI DllMain(HINSTANCE hInstance, DWORD dwReason, LPVOID /*lpReserved*/)
-{
- if (dwReason == DLL_PROCESS_ATTACH)
- {
- _Module.Init(ObjectMap, hInstance, &LIBID_EVENTLISTENERLib);
- DisableThreadLibraryCalls(hInstance);
- }
- else if (dwReason == DLL_PROCESS_DETACH)
- _Module.Term();
- return TRUE; // ok
-}
-
-/////////////////////////////////////////////////////////////////////////////
-// Used to determine whether the DLL can be unloaded by OLE
-
-STDAPI DllCanUnloadNow(void)
-{
- return (_Module.GetLockCount()==0) ? S_OK : S_FALSE;
-}
-
-/////////////////////////////////////////////////////////////////////////////
-// Returns a class factory to create an object of the requested type
-
-STDAPI DllGetClassObject(REFCLSID rclsid, REFIID riid, LPVOID* ppv)
-{
- return _Module.GetClassObject(rclsid, riid, ppv);
-}
-
-/////////////////////////////////////////////////////////////////////////////
-// DllRegisterServer - Adds entries to the system registry
-
-STDAPI DllRegisterServer(void)
-{
- // registers object, typelib and all interfaces in typelib
- return _Module.RegisterServer(TRUE);
-}
-
-/////////////////////////////////////////////////////////////////////////////
-// DllUnregisterServer - Removes entries from the system registry
-
-STDAPI DllUnregisterServer(void)
-{
- return _Module.UnregisterServer(TRUE);
-}
-
-
diff --git a/extensions/test/ole/EventListenerSample/EventListener/EventListener.dsp b/extensions/test/ole/EventListenerSample/EventListener/EventListener.dsp
deleted file mode 100644
index 08aac8247c0a..000000000000
--- a/extensions/test/ole/EventListenerSample/EventListener/EventListener.dsp
+++ /dev/null
@@ -1,323 +0,0 @@
-# Microsoft Developer Studio Project File - Name="EventListener" - Package Owner=<4>
-# Microsoft Developer Studio Generated Build File, Format Version 6.00
-# ** NICHT BEARBEITEN **
-
-# TARGTYPE "Win32 (x86) Dynamic-Link Library" 0x0102
-
-CFG=EventListener - Win32 Debug
-!MESSAGE Dies ist kein gültiges Makefile. Zum Erstellen dieses Projekts mit NMAKE
-!MESSAGE verwenden Sie den Befehl "Makefile exportieren" und führen Sie den Befehl
-!MESSAGE
-!MESSAGE NMAKE /f "EventListener.mak".
-!MESSAGE
-!MESSAGE Sie können beim Ausführen von NMAKE eine Konfiguration angeben
-!MESSAGE durch Definieren des Makros CFG in der Befehlszeile. Zum Beispiel:
-!MESSAGE
-!MESSAGE NMAKE /f "EventListener.mak" CFG="EventListener - Win32 Debug"
-!MESSAGE
-!MESSAGE Für die Konfiguration stehen zur Auswahl:
-!MESSAGE
-!MESSAGE "EventListener - Win32 Debug" (basierend auf "Win32 (x86) Dynamic-Link Library")
-!MESSAGE "EventListener - Win32 Unicode Debug" (basierend auf "Win32 (x86) Dynamic-Link Library")
-!MESSAGE "EventListener - Win32 Release MinSize" (basierend auf "Win32 (x86) Dynamic-Link Library")
-!MESSAGE "EventListener - Win32 Release MinDependency" (basierend auf "Win32 (x86) Dynamic-Link Library")
-!MESSAGE "EventListener - Win32 Unicode Release MinSize" (basierend auf "Win32 (x86) Dynamic-Link Library")
-!MESSAGE "EventListener - Win32 Unicode Release MinDependency" (basierend auf "Win32 (x86) Dynamic-Link Library")
-!MESSAGE
-
-# Begin Project
-# PROP AllowPerConfigDependencies 0
-# PROP Scc_ProjName ""
-# PROP Scc_LocalPath ""
-CPP=cl.exe
-MTL=midl.exe
-RSC=rc.exe
-
-!IF "$(CFG)" == "EventListener - Win32 Debug"
-
-# PROP BASE Use_MFC 0
-# PROP BASE Use_Debug_Libraries 1
-# PROP BASE Output_Dir "Debug"
-# PROP BASE Intermediate_Dir "Debug"
-# PROP BASE Target_Dir ""
-# PROP Use_MFC 0
-# PROP Use_Debug_Libraries 1
-# PROP Output_Dir "Debug"
-# PROP Intermediate_Dir "Debug"
-# PROP Target_Dir ""
-# ADD BASE CPP /nologo /MTd /W3 /Gm /ZI /Od /D "WIN32" /D "_DEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /Yu"stdafx.h" /FD /GZ /c
-# ADD CPP /nologo /MTd /W3 /Gm /ZI /Od /D "WIN32" /D "_DEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /Yu"stdafx.h" /FD /GZ /c
-# ADD BASE RSC /l 0x407 /d "_DEBUG"
-# ADD RSC /l 0x407 /d "_DEBUG"
-BSC32=bscmake.exe
-# ADD BASE BSC32 /nologo
-# ADD BSC32 /nologo
-LINK32=link.exe
-# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:windows /dll /debug /machine:I386 /pdbtype:sept
-# ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:windows /dll /debug /machine:I386 /pdbtype:sept
-# Begin Custom Build - Performing registration
-OutDir=.\Debug
-TargetPath=.\Debug\EventListener.dll
-InputPath=.\Debug\EventListener.dll
-SOURCE="$(InputPath)"
-
-"$(OutDir)\regsvr32.trg" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
- regsvr32 /s /c "$(TargetPath)"
- echo regsvr32 exec. time > "$(OutDir)\regsvr32.trg"
-
-# End Custom Build
-
-!ELSEIF "$(CFG)" == "EventListener - Win32 Unicode Debug"
-
-# PROP BASE Use_MFC 0
-# PROP BASE Use_Debug_Libraries 1
-# PROP BASE Output_Dir "DebugU"
-# PROP BASE Intermediate_Dir "DebugU"
-# PROP BASE Target_Dir ""
-# PROP Use_MFC 0
-# PROP Use_Debug_Libraries 1
-# PROP Output_Dir "DebugU"
-# PROP Intermediate_Dir "DebugU"
-# PROP Target_Dir ""
-# ADD BASE CPP /nologo /MTd /W3 /Gm /ZI /Od /D "WIN32" /D "_DEBUG" /D "_WINDOWS" /D "_USRDLL" /D "_UNICODE" /Yu"stdafx.h" /FD /GZ /c
-# ADD CPP /nologo /MTd /W3 /Gm /ZI /Od /D "WIN32" /D "_DEBUG" /D "_WINDOWS" /D "_USRDLL" /D "_UNICODE" /Yu"stdafx.h" /FD /GZ /c
-# ADD BASE RSC /l 0x407 /d "_DEBUG"
-# ADD RSC /l 0x407 /d "_DEBUG"
-BSC32=bscmake.exe
-# ADD BASE BSC32 /nologo
-# ADD BSC32 /nologo
-LINK32=link.exe
-# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:windows /dll /debug /machine:I386 /pdbtype:sept
-# ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:windows /dll /debug /machine:I386 /pdbtype:sept
-# Begin Custom Build - Performing registration
-OutDir=.\DebugU
-TargetPath=.\DebugU\EventListener.dll
-InputPath=.\DebugU\EventListener.dll
-SOURCE="$(InputPath)"
-
-"$(OutDir)\regsvr32.trg" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
- if "%OS%"=="" goto NOTNT
- if not "%OS%"=="Windows_NT" goto NOTNT
- regsvr32 /s /c "$(TargetPath)"
- echo regsvr32 exec. time > "$(OutDir)\regsvr32.trg"
- goto end
- :NOTNT
- echo Warning : Cannot register Unicode DLL on Windows 95
- :end
-
-# End Custom Build
-
-!ELSEIF "$(CFG)" == "EventListener - Win32 Release MinSize"
-
-# PROP BASE Use_MFC 0
-# PROP BASE Use_Debug_Libraries 0
-# PROP BASE Output_Dir "ReleaseMinSize"
-# PROP BASE Intermediate_Dir "ReleaseMinSize"
-# PROP BASE Target_Dir ""
-# PROP Use_MFC 0
-# PROP Use_Debug_Libraries 0
-# PROP Output_Dir "ReleaseMinSize"
-# PROP Intermediate_Dir "ReleaseMinSize"
-# PROP Target_Dir ""
-# ADD BASE CPP /nologo /MT /W3 /O1 /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /D "_ATL_DLL" /D "_ATL_MIN_CRT" /Yu"stdafx.h" /FD /c
-# ADD CPP /nologo /MT /W3 /O1 /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /D "_ATL_DLL" /D "_ATL_MIN_CRT" /Yu"stdafx.h" /FD /c
-# ADD BASE RSC /l 0x407 /d "NDEBUG"
-# ADD RSC /l 0x407 /d "NDEBUG"
-BSC32=bscmake.exe
-# ADD BASE BSC32 /nologo
-# ADD BSC32 /nologo
-LINK32=link.exe
-# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:windows /dll /machine:I386
-# ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:windows /dll /machine:I386
-# Begin Custom Build - Performing registration
-OutDir=.\ReleaseMinSize
-TargetPath=.\ReleaseMinSize\EventListener.dll
-InputPath=.\ReleaseMinSize\EventListener.dll
-SOURCE="$(InputPath)"
-
-"$(OutDir)\regsvr32.trg" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
- regsvr32 /s /c "$(TargetPath)"
- echo regsvr32 exec. time > "$(OutDir)\regsvr32.trg"
-
-# End Custom Build
-
-!ELSEIF "$(CFG)" == "EventListener - Win32 Release MinDependency"
-
-# PROP BASE Use_MFC 0
-# PROP BASE Use_Debug_Libraries 0
-# PROP BASE Output_Dir "ReleaseMinDependency"
-# PROP BASE Intermediate_Dir "ReleaseMinDependency"
-# PROP BASE Target_Dir ""
-# PROP Use_MFC 0
-# PROP Use_Debug_Libraries 0
-# PROP Output_Dir "ReleaseMinDependency"
-# PROP Intermediate_Dir "ReleaseMinDependency"
-# PROP Target_Dir ""
-# ADD BASE CPP /nologo /MT /W3 /O1 /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /D "_ATL_STATIC_REGISTRY" /D "_ATL_MIN_CRT" /Yu"stdafx.h" /FD /c
-# ADD CPP /nologo /MT /W3 /O1 /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /D "_ATL_STATIC_REGISTRY" /D "_ATL_MIN_CRT" /Yu"stdafx.h" /FD /c
-# ADD BASE RSC /l 0x407 /d "NDEBUG"
-# ADD RSC /l 0x407 /d "NDEBUG"
-BSC32=bscmake.exe
-# ADD BASE BSC32 /nologo
-# ADD BSC32 /nologo
-LINK32=link.exe
-# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:windows /dll /machine:I386
-# ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:windows /dll /machine:I386
-# Begin Custom Build - Performing registration
-OutDir=.\ReleaseMinDependency
-TargetPath=.\ReleaseMinDependency\EventListener.dll
-InputPath=.\ReleaseMinDependency\EventListener.dll
-SOURCE="$(InputPath)"
-
-"$(OutDir)\regsvr32.trg" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
- regsvr32 /s /c "$(TargetPath)"
- echo regsvr32 exec. time > "$(OutDir)\regsvr32.trg"
-
-# End Custom Build
-
-!ELSEIF "$(CFG)" == "EventListener - Win32 Unicode Release MinSize"
-
-# PROP BASE Use_MFC 0
-# PROP BASE Use_Debug_Libraries 0
-# PROP BASE Output_Dir "ReleaseUMinSize"
-# PROP BASE Intermediate_Dir "ReleaseUMinSize"
-# PROP BASE Target_Dir ""
-# PROP Use_MFC 0
-# PROP Use_Debug_Libraries 0
-# PROP Output_Dir "ReleaseUMinSize"
-# PROP Intermediate_Dir "ReleaseUMinSize"
-# PROP Target_Dir ""
-# ADD BASE CPP /nologo /MT /W3 /O1 /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /D "_USRDLL" /D "_UNICODE" /D "_ATL_DLL" /D "_ATL_MIN_CRT" /Yu"stdafx.h" /FD /c
-# ADD CPP /nologo /MT /W3 /O1 /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /D "_USRDLL" /D "_UNICODE" /D "_ATL_DLL" /D "_ATL_MIN_CRT" /Yu"stdafx.h" /FD /c
-# ADD BASE RSC /l 0x407 /d "NDEBUG"
-# ADD RSC /l 0x407 /d "NDEBUG"
-BSC32=bscmake.exe
-# ADD BASE BSC32 /nologo
-# ADD BSC32 /nologo
-LINK32=link.exe
-# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:windows /dll /machine:I386
-# ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:windows /dll /machine:I386
-# Begin Custom Build - Performing registration
-OutDir=.\ReleaseUMinSize
-TargetPath=.\ReleaseUMinSize\EventListener.dll
-InputPath=.\ReleaseUMinSize\EventListener.dll
-SOURCE="$(InputPath)"
-
-"$(OutDir)\regsvr32.trg" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
- if "%OS%"=="" goto NOTNT
- if not "%OS%"=="Windows_NT" goto NOTNT
- regsvr32 /s /c "$(TargetPath)"
- echo regsvr32 exec. time > "$(OutDir)\regsvr32.trg"
- goto end
- :NOTNT
- echo Warning : Cannot register Unicode DLL on Windows 95
- :end
-
-# End Custom Build
-
-!ELSEIF "$(CFG)" == "EventListener - Win32 Unicode Release MinDependency"
-
-# PROP BASE Use_MFC 0
-# PROP BASE Use_Debug_Libraries 0
-# PROP BASE Output_Dir "ReleaseUMinDependency"
-# PROP BASE Intermediate_Dir "ReleaseUMinDependency"
-# PROP BASE Target_Dir ""
-# PROP Use_MFC 0
-# PROP Use_Debug_Libraries 0
-# PROP Output_Dir "ReleaseUMinDependency"
-# PROP Intermediate_Dir "ReleaseUMinDependency"
-# PROP Target_Dir ""
-# ADD BASE CPP /nologo /MT /W3 /O1 /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /D "_USRDLL" /D "_UNICODE" /D "_ATL_STATIC_REGISTRY" /D "_ATL_MIN_CRT" /Yu"stdafx.h" /FD /c
-# ADD CPP /nologo /MT /W3 /O1 /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /D "_USRDLL" /D "_UNICODE" /D "_ATL_STATIC_REGISTRY" /D "_ATL_MIN_CRT" /Yu"stdafx.h" /FD /c
-# ADD BASE RSC /l 0x407 /d "NDEBUG"
-# ADD RSC /l 0x407 /d "NDEBUG"
-BSC32=bscmake.exe
-# ADD BASE BSC32 /nologo
-# ADD BSC32 /nologo
-LINK32=link.exe
-# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:windows /dll /machine:I386
-# ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:windows /dll /machine:I386
-# Begin Custom Build - Performing registration
-OutDir=.\ReleaseUMinDependency
-TargetPath=.\ReleaseUMinDependency\EventListener.dll
-InputPath=.\ReleaseUMinDependency\EventListener.dll
-SOURCE="$(InputPath)"
-
-"$(OutDir)\regsvr32.trg" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
- if "%OS%"=="" goto NOTNT
- if not "%OS%"=="Windows_NT" goto NOTNT
- regsvr32 /s /c "$(TargetPath)"
- echo regsvr32 exec. time > "$(OutDir)\regsvr32.trg"
- goto end
- :NOTNT
- echo Warning : Cannot register Unicode DLL on Windows 95
- :end
-
-# End Custom Build
-
-!ENDIF
-
-# Begin Target
-
-# Name "EventListener - Win32 Debug"
-# Name "EventListener - Win32 Unicode Debug"
-# Name "EventListener - Win32 Release MinSize"
-# Name "EventListener - Win32 Release MinDependency"
-# Name "EventListener - Win32 Unicode Release MinSize"
-# Name "EventListener - Win32 Unicode Release MinDependency"
-# Begin Group "Source Files"
-
-# PROP Default_Filter "cpp;c;cxx;rc;def;r;odl;idl;hpj;bat"
-# Begin Source File
-
-SOURCE=.\EventListener.cpp
-# End Source File
-# Begin Source File
-
-SOURCE=.\EventListener.def
-# End Source File
-# Begin Source File
-
-SOURCE=.\EventListener.idl
-# ADD MTL /tlb ".\EventListener.tlb" /h "EventListener.h" /iid "EventListener_i.c" /Oicf
-# End Source File
-# Begin Source File
-
-SOURCE=.\EventListener.rc
-# End Source File
-# Begin Source File
-
-SOURCE=.\EvtListener.cpp
-# End Source File
-# Begin Source File
-
-SOURCE=.\StdAfx.cpp
-# ADD CPP /Yc"stdafx.h"
-# End Source File
-# End Group
-# Begin Group "Header Files"
-
-# PROP Default_Filter "h;hpp;hxx;hm;inl"
-# Begin Source File
-
-SOURCE=.\EvtListener.h
-# End Source File
-# Begin Source File
-
-SOURCE=.\Resource.h
-# End Source File
-# Begin Source File
-
-SOURCE=.\StdAfx.h
-# End Source File
-# End Group
-# Begin Group "Resource Files"
-
-# PROP Default_Filter "ico;cur;bmp;dlg;rc2;rct;bin;rgs;gif;jpg;jpeg;jpe"
-# Begin Source File
-
-SOURCE=.\EvtListener.rgs
-# End Source File
-# End Group
-# End Target
-# End Project
diff --git a/extensions/test/ole/EventListenerSample/EventListener/EventListener.dsw b/extensions/test/ole/EventListenerSample/EventListener/EventListener.dsw
deleted file mode 100644
index 20f5e80a4ee6..000000000000
--- a/extensions/test/ole/EventListenerSample/EventListener/EventListener.dsw
+++ /dev/null
@@ -1,29 +0,0 @@
-Microsoft Developer Studio Workspace File, Format Version 6.00
-# WARNING: DO NOT EDIT OR DELETE THIS WORKSPACE FILE!
-
-###############################################################################
-
-Project: "EventListener"=.\EventListener.dsp - Package Owner=<4>
-
-Package=<5>
-{{{
-}}}
-
-Package=<4>
-{{{
-}}}
-
-###############################################################################
-
-Global:
-
-Package=<5>
-{{{
-}}}
-
-Package=<3>
-{{{
-}}}
-
-###############################################################################
-
diff --git a/extensions/test/ole/EventListenerSample/EventListener/EventListener.idl b/extensions/test/ole/EventListenerSample/EventListener/EventListener.idl
deleted file mode 100644
index 6272173a24d9..000000000000
--- a/extensions/test/ole/EventListenerSample/EventListener/EventListener.idl
+++ /dev/null
@@ -1,39 +0,0 @@
-// EventListener.idl : IDL source for EventListener.dll
-//
-
-// This file will be processed by the MIDL tool to
-// produce the type library (EventListener.tlb) and marshalling code.
-
-import "oaidl.idl";
-import "ocidl.idl";
- [
- object,
- uuid(86653399-24C6-4C2B-9E8A-564175250CB2),
- dual,
- helpstring("IEvtListener-Schnittstelle"),
- pointer_default(unique)
- ]
- interface IEvtListener : IDispatch
- {
- [id(1), helpstring("Methode disposing")] HRESULT disposing([in] IDispatch* source);
- };
-
-[
- uuid(E3E61535-3262-45E6-BFD9-EE8AED051BD1),
- version(1.0),
- helpstring("EventListener 1.0 Type Library")
-]
-library EVENTLISTENERLib
-{
- importlib("stdole32.tlb");
- importlib("stdole2.tlb");
-
- [
- uuid(830E0743-87C1-4C99-A77A-5FBA0C2EBD9A),
- helpstring("EvtListener Class")
- ]
- coclass EvtListener
- {
- [default] interface IEvtListener;
- };
-};
diff --git a/extensions/test/ole/EventListenerSample/EventListener/EventListener.rc b/extensions/test/ole/EventListenerSample/EventListener/EventListener.rc
deleted file mode 100644
index 90f0c7bd2ce5..000000000000
--- a/extensions/test/ole/EventListenerSample/EventListener/EventListener.rc
+++ /dev/null
@@ -1,136 +0,0 @@
-//Microsoft Developer Studio generated resource script.
-//
-#include "resource.h"
-
-#define APSTUDIO_READONLY_SYMBOLS
-/////////////////////////////////////////////////////////////////////////////
-//
-// Generated from the TEXTINCLUDE 2 resource.
-//
-#include "winres.h"
-
-/////////////////////////////////////////////////////////////////////////////
-#undef APSTUDIO_READONLY_SYMBOLS
-
-/////////////////////////////////////////////////////////////////////////////
-// Deutsch (Deutschland) resources
-
-#if !defined(AFX_RESOURCE_DLL) || defined(AFX_TARG_DEU)
-#ifdef _WIN32
-LANGUAGE LANG_GERMAN, SUBLANG_GERMAN
-#pragma code_page(1252)
-#endif //_WIN32
-
-#ifdef APSTUDIO_INVOKED
-/////////////////////////////////////////////////////////////////////////////
-//
-// TEXTINCLUDE
-//
-
-1 TEXTINCLUDE DISCARDABLE
-BEGIN
- "resource.h\0"
-END
-
-2 TEXTINCLUDE DISCARDABLE
-BEGIN
- "#include ""winres.h""\r\n"
- "\0"
-END
-
-3 TEXTINCLUDE DISCARDABLE
-BEGIN
- "1 TYPELIB ""EventListener.tlb""\r\n"
- "\0"
-END
-
-#endif // APSTUDIO_INVOKED
-
-
-#ifndef _MAC
-/////////////////////////////////////////////////////////////////////////////
-//
-// Version
-//
-
-VS_VERSION_INFO VERSIONINFO
- FILEVERSION 1,0,0,1
- PRODUCTVERSION 1,0,0,1
- FILEFLAGSMASK 0x3fL
-#ifdef _DEBUG
- FILEFLAGS 0x1L
-#else
- FILEFLAGS 0x0L
-#endif
- FILEOS 0x4L
- FILETYPE 0x2L
- FILESUBTYPE 0x0L
-BEGIN
- BLOCK "StringFileInfo"
- BEGIN
- BLOCK "040904B0"
- BEGIN
- VALUE "CompanyName", "\0"
- VALUE "FileDescription", "EventListener Module\0"
- VALUE "FileVersion", "1, 0, 0, 1\0"
- VALUE "InternalName", "EventListener\0"
- VALUE "LegalCopyright", "Copyright 2001\0"
- VALUE "OriginalFilename", "EventListener.DLL\0"
- VALUE "ProductName", "EventListener Module\0"
- VALUE "ProductVersion", "1, 0, 0, 1\0"
- VALUE "OLESelfRegister", "\0"
- END
- END
- BLOCK "VarFileInfo"
- BEGIN
- VALUE "Translation", 0x409, 1200
- END
-END
-
-#endif // !_MAC
-
-
-/////////////////////////////////////////////////////////////////////////////
-//
-// String Table
-//
-
-STRINGTABLE DISCARDABLE
-BEGIN
- IDS_PROJNAME "EventListener"
-END
-
-#endif // Deutsch (Deutschland) resources
-/////////////////////////////////////////////////////////////////////////////
-
-
-/////////////////////////////////////////////////////////////////////////////
-// Englisch (USA) resources
-
-#if !defined(AFX_RESOURCE_DLL) || defined(AFX_TARG_ENU)
-#ifdef _WIN32
-LANGUAGE LANG_ENGLISH, SUBLANG_ENGLISH_US
-#pragma code_page(1252)
-#endif //_WIN32
-
-/////////////////////////////////////////////////////////////////////////////
-//
-// REGISTRY
-//
-
-IDR_EVTLISTENER REGISTRY DISCARDABLE "EvtListener.rgs"
-#endif // Englisch (USA) resources
-/////////////////////////////////////////////////////////////////////////////
-
-
-
-#ifndef APSTUDIO_INVOKED
-/////////////////////////////////////////////////////////////////////////////
-//
-// Generated from the TEXTINCLUDE 3 resource.
-//
-1 TYPELIB "EventListener.tlb"
-
-/////////////////////////////////////////////////////////////////////////////
-#endif // not APSTUDIO_INVOKED
-
diff --git a/extensions/test/ole/EventListenerSample/EventListener/EvtListener.cpp b/extensions/test/ole/EventListenerSample/EventListener/EvtListener.cpp
deleted file mode 100644
index 9a469cbfcfc1..000000000000
--- a/extensions/test/ole/EventListenerSample/EventListener/EvtListener.cpp
+++ /dev/null
@@ -1,19 +0,0 @@
-// EvtListener.cpp : Implementierung von CEvtListener
-#include "stdafx.h"
-#include "EventListener.h"
-#include "EvtListener.h"
-
-/////////////////////////////////////////////////////////////////////////////
-// CEvtListener
-
-STDMETHODIMP CEvtListener::disposing( IDispatch* source)
-{
- ::MessageBox(NULL,_T("XEventListener::disposing"),
- _T("EventListener.EvtListener component"), MB_OK);
- return S_OK;
-}
-
-CEvtListener::~CEvtListener()
-{
-
-} \ No newline at end of file
diff --git a/extensions/test/ole/EventListenerSample/EventListener/EvtListener.h b/extensions/test/ole/EventListenerSample/EventListener/EvtListener.h
deleted file mode 100644
index 7b9b6a1f8df7..000000000000
--- a/extensions/test/ole/EventListenerSample/EventListener/EvtListener.h
+++ /dev/null
@@ -1,35 +0,0 @@
-// EvtListener.h : Deklaration von CEvtListener
-
-#ifndef __EVTLISTENER_H_
-#define __EVTLISTENER_H_
-
-#include "resource.h" // Hauptsymbole
-
-/////////////////////////////////////////////////////////////////////////////
-// CEvtListener
-class ATL_NO_VTABLE CEvtListener :
- public CComObjectRootEx<CComSingleThreadModel>,
- public CComCoClass<CEvtListener, &CLSID_EvtListener>,
- public IDispatchImpl<IEvtListener, &IID_IEvtListener, &LIBID_EVENTLISTENERLib>
-{
-public:
- CEvtListener()
- {
- }
- ~CEvtListener();
-
-DECLARE_REGISTRY_RESOURCEID(IDR_EVTLISTENER)
-
-DECLARE_PROTECT_FINAL_CONSTRUCT()
-
-BEGIN_COM_MAP(CEvtListener)
- COM_INTERFACE_ENTRY(IEvtListener)
- COM_INTERFACE_ENTRY(IDispatch)
-END_COM_MAP()
-
-// IEvtListener
-public:
- STDMETHOD(disposing)(IDispatch* source);
-};
-
-#endif //__EVTLISTENER_H_
diff --git a/extensions/test/ole/EventListenerSample/EventListener/EvtListener.rgs b/extensions/test/ole/EventListenerSample/EventListener/EvtListener.rgs
deleted file mode 100644
index e0aa9bbb7c37..000000000000
--- a/extensions/test/ole/EventListenerSample/EventListener/EvtListener.rgs
+++ /dev/null
@@ -1,26 +0,0 @@
-HKCR
-{
- EventListener.EvtListener.1 = s 'EvtListener Class'
- {
- CLSID = s '{830E0743-87C1-4C99-A77A-5FBA0C2EBD9A}'
- }
- EventListener.EvtListener = s 'EvtListener Class'
- {
- CLSID = s '{830E0743-87C1-4C99-A77A-5FBA0C2EBD9A}'
- CurVer = s 'EventListener.EvtListener.1'
- }
- NoRemove CLSID
- {
- ForceRemove {830E0743-87C1-4C99-A77A-5FBA0C2EBD9A} = s 'EvtListener Class'
- {
- ProgID = s 'EventListener.EvtListener.1'
- VersionIndependentProgID = s 'EventListener.EvtListener'
- ForceRemove 'Programmable'
- InprocServer32 = s '%MODULE%'
- {
- val ThreadingModel = s 'Apartment'
- }
- 'TypeLib' = s '{E3E61535-3262-45E6-BFD9-EE8AED051BD1}'
- }
- }
-}
diff --git a/extensions/test/ole/EventListenerSample/EventListener/StdAfx.cpp b/extensions/test/ole/EventListenerSample/EventListener/StdAfx.cpp
deleted file mode 100644
index a5eea178f78b..000000000000
--- a/extensions/test/ole/EventListenerSample/EventListener/StdAfx.cpp
+++ /dev/null
@@ -1,12 +0,0 @@
-// stdafx.cpp : source file that includes just the standard includes
-// stdafx.pch will be the pre-compiled header
-// stdafx.obj will contain the pre-compiled type information
-
-#include "stdafx.h"
-
-#ifdef _ATL_STATIC_REGISTRY
-#include <statreg.h>
-#include <statreg.cpp>
-#endif
-
-#include <atlimpl.cpp>
diff --git a/extensions/test/ole/EventListenerSample/EventListener/StdAfx.h b/extensions/test/ole/EventListenerSample/EventListener/StdAfx.h
deleted file mode 100644
index 199640620e6e..000000000000
--- a/extensions/test/ole/EventListenerSample/EventListener/StdAfx.h
+++ /dev/null
@@ -1,27 +0,0 @@
-// stdafx.h : include file for standard system include files,
-// or project specific include files that are used frequently,
-// but are changed infrequently
-
-#if !defined(AFX_STDAFX_H__E275407A_804A_477E_9A28_F5CA84E711C3__INCLUDED_)
-#define AFX_STDAFX_H__E275407A_804A_477E_9A28_F5CA84E711C3__INCLUDED_
-
-#if _MSC_VER > 1000
-#pragma once
-#endif // _MSC_VER > 1000
-
-#define STRICT
-#ifndef _WIN32_WINNT
-#define _WIN32_WINNT 0x0400
-#endif
-#define _ATL_APARTMENT_THREADED
-
-#include <atlbase.h>
-//You may derive a class from CComModule and use it if you want to override
-//something, but do not change the name of _Module
-extern CComModule _Module;
-#include <atlcom.h>
-
-//{{AFX_INSERT_LOCATION}}
-// Microsoft Visual C++ will insert additional declarations immediately before the previous line.
-
-#endif // !defined(AFX_STDAFX_H__E275407A_804A_477E_9A28_F5CA84E711C3__INCLUDED)
diff --git a/extensions/test/ole/EventListenerSample/EventListener/resource.h b/extensions/test/ole/EventListenerSample/EventListener/resource.h
deleted file mode 100644
index 9446ddd2fca7..000000000000
--- a/extensions/test/ole/EventListenerSample/EventListener/resource.h
+++ /dev/null
@@ -1,17 +0,0 @@
-//{{NO_DEPENDENCIES}}
-// Microsoft Developer Studio generated include file.
-// Used by EventListener.rc
-//
-#define IDS_PROJNAME 100
-#define IDR_EVTLISTENER 101
-
-// Next default values for new objects
-//
-#ifdef APSTUDIO_INVOKED
-#ifndef APSTUDIO_READONLY_SYMBOLS
-#define _APS_NEXT_RESOURCE_VALUE 201
-#define _APS_NEXT_COMMAND_VALUE 32768
-#define _APS_NEXT_CONTROL_VALUE 201
-#define _APS_NEXT_SYMED_VALUE 102
-#endif
-#endif
diff --git a/extensions/test/ole/EventListenerSample/VBEventListener/Module1.bas b/extensions/test/ole/EventListenerSample/VBEventListener/Module1.bas
deleted file mode 100644
index aafd265a0d48..000000000000
--- a/extensions/test/ole/EventListenerSample/VBEventListener/Module1.bas
+++ /dev/null
@@ -1,9 +0,0 @@
-Attribute VB_Name = "Module1"
-Option Explicit
-
-
-Sub Main()
-
-End Sub
-
-
diff --git a/extensions/test/ole/EventListenerSample/VBEventListener/VBEventListener.cls b/extensions/test/ole/EventListenerSample/VBEventListener/VBEventListener.cls
deleted file mode 100644
index 9fd9cc46f4f8..000000000000
--- a/extensions/test/ole/EventListenerSample/VBEventListener/VBEventListener.cls
+++ /dev/null
@@ -1,51 +0,0 @@
-VERSION 1.0 CLASS
-BEGIN
- MultiUse = -1 'True
- Persistable = 0 'NotPersistable
- DataBindingBehavior = 0 'vbNone
- DataSourceBehavior = 0 'vbNone
- MTSTransactionMode = 0 'NotAnMTSObject
-END
-Attribute VB_Name = "VBEventListener"
-Attribute VB_GlobalNameSpace = False
-Attribute VB_Creatable = True
-Attribute VB_PredeclaredId = False
-Attribute VB_Exposed = True
-Option Explicit
-Private interfaces(0) As String
-Private bDisposingCalled As Boolean
-Private bQuiet As Boolean
-
-Public Property Get Bridge_ImplementedInterfaces() As Variant
- Bridge_ImplementedInterfaces = interfaces
-End Property
-
-Private Sub Class_Initialize()
-interfaces(0) = "com.sun.star.lang.XEventListener"
-bDisposingCalled = False
-bQuiet = False
-End Sub
-
-Private Sub Class_Terminate()
- On Error Resume Next
- Debug.Print "Terminate VBEventListener"
-End Sub
-
-Public Sub disposing(ByVal source As Object)
- If bQuiet = False Then
- MsgBox "disposing called"
- End If
- bDisposingCalled = True
-End Sub
-
-Public Sub setQuiet(quiet As Boolean)
- bQuiet = quiet
-End Sub
-
-Public Sub resetDisposing()
- bDisposingCalled = False
-End Sub
-
-Public Function disposingCalled()
- disposingCalled = bDisposingCalled
-End Function
diff --git a/extensions/test/ole/EventListenerSample/events.htm b/extensions/test/ole/EventListenerSample/events.htm
deleted file mode 100644
index a9ac88bd11ec..000000000000
--- a/extensions/test/ole/EventListenerSample/events.htm
+++ /dev/null
@@ -1,98 +0,0 @@
-<HTML>
-<HEAD>
-<META NAME="GENERATOR" Content="Microsoft Developer Studio">
-<META HTTP-EQUIV="Content-Type" content="text/html; charset=iso-8859-1">
-<TITLE>Document Title</TITLE>
-</HEAD>
-<BODY id=theBody>
-
-<script language="JScript">
-function Main( id)
-{
-var objServiceManager= new ActiveXObject("com.sun.star.ServiceManager");
-
-var objDesktop= objServiceManager.createInstance("com.sun.star.frame.Desktop");
-
-var args= new Array();
-
-var objDocument= objDesktop.loadComponentFromURL("private:factory/swriter", "_blank", 0, args);
-
-var listener;
-if( id == 0)
- listener= new XEventListener_Impl();
-else if(id == 1)
- listener= new ActiveXObject("EventListener.EvtListener");
-objDocument.addEventListener( listener);
-}
-
-
-function XEventListener_Impl()
-{
- this._environment= "JScript";
- this._implementedInterfaces= new Array( "com.sun.star.lang.XEventListener");
-
- //XEventListener
- this.disposing= XEventListener_disposing;
-}
-
-function XEventListener_disposing( source)
-{
- alert("JScript Event Listener \n The document was closed");
-}
-</script>
-
-<script language="VBScript">
-SUB MainVB( id)
-Set objServiceManager= CreateObject("com.sun.star.ServiceManager")
-
-Set objCoreReflection= objServiceManager.createInstance("com.sun.star.reflection.CoreReflection")
-
-Set objDesktop= objServiceManager.createInstance("com.sun.star.frame.Desktop")
-
-'Open a new empty writer document
-Dim args()
-Set objDocument= objDesktop.loadComponentFromURL("private:factory/swriter", "_blank", 0, args)
-
-Dim eventListener
-select case id
- case 0
- Set eventListener= CreateObject("EventListener.EvtListener")
- case 1
- Set eventListener= CreateObject("VBasicEventListener.VBEventListener")
-end select
-
-objDocument.addEventListener eventlistener
-END SUB
-
-</script>
-<p>
-The script on this page creates a new StarOffice document and connects an event listener
-to it. When the document is closed then the XEventListener::disposing method is called on the
-listener object. How the listener is set up depends on the button being clicked.
-</p>
-<p>
-The button will run JScript code that and adds an JScript event listener to the document.
-The listener is also implemented in JScript an is on this page..
-</p>
-<button onclick='Main(0)'>JScript go</Button>
-<p>
-
-The button runs JScript code that creates the ActiveX component EventListener.EvtListener that
-is written in C++ and housed in a dll. Then the event listener is added to the document.
-</p>
-<button onclick='Main( 1)'>JScript go</Button>
-<p>
-The button runs VBScript code that creates the components EventListener.EvtListener and adds it
-to the document.
-</p>
-<button onclick='MainVB(0)'>VBScript</Button>
-<p>
-Runs VBScript code that creates VBasicEventListener.VBEventListener ActiveX component which was
-written with VB
-</p>
-<button onclick='MainVB(1)'>VBScript</Button>
-
-</body>
-</html>
-
-
diff --git a/extensions/test/ole/EventListenerSample/readme.txt b/extensions/test/ole/EventListenerSample/readme.txt
deleted file mode 100644
index 46c674153ab7..000000000000
--- a/extensions/test/ole/EventListenerSample/readme.txt
+++ /dev/null
@@ -1,18 +0,0 @@
-EventListener
-________________________________________________________
-
-The folder EventListener contains an MSDEV project that builds a dll that contains
-the EventListener.EvtListener ActiveX component. The component implements the XEventListener
-interface according to the rules of the OleBridge. The component will be used from the
-HTML page events.htm.
-
-VBEventListener:
-_________________________________________________________
-Contains a Visual Basic project that builds an ActiveX component that implements
-com.sun.star.lang.XEventListener. Its ProgId is VBasicEventListener.VBEventListener
-The dll should also be checked in. VB needs its TLB, so it uses the same CLSIDs on
-the next build. The component will create a message box when its disposing function
-has been called.
-
-The project also contains a client that builds a Project1.exe (in the same folder)
-that creates VBEventListener and adds it to a StarOffice document
diff --git a/extensions/test/ole/StarBasic_OleClient/oleclient.bas b/extensions/test/ole/StarBasic_OleClient/oleclient.bas
deleted file mode 100644
index 17b75e3c94e0..000000000000
--- a/extensions/test/ole/StarBasic_OleClient/oleclient.bas
+++ /dev/null
@@ -1,209 +0,0 @@
-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
deleted file mode 100644
index 8e129dddddcd..000000000000
--- a/extensions/test/ole/StarBasic_OleClient/readme.txt
+++ /dev/null
@@ -1,10 +0,0 @@
-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
diff --git a/extensions/test/ole/VisualBasic/Form1.frm b/extensions/test/ole/VisualBasic/Form1.frm
deleted file mode 100644
index c2ed1f6a11f5..000000000000
--- a/extensions/test/ole/VisualBasic/Form1.frm
+++ /dev/null
@@ -1,349 +0,0 @@
-VERSION 5.00
-Begin VB.Form Form1
- Caption = "Form1"
- ClientHeight = 4572
- ClientLeft = 48
- ClientTop = 336
- ClientWidth = 8460
- LinkTopic = "Form1"
- ScaleHeight = 4572
- ScaleWidth = 8460
- StartUpPosition = 3 'Windows Default
- Begin VB.CommandButton ctrInParamStart
- Caption = "Start"
- Height = 252
- Left = 240
- TabIndex = 20
- Top = 480
- Width = 732
- End
- Begin VB.TextBox tareaResult
- Height = 1932
- Left = 4920
- TabIndex = 19
- Top = 480
- Width = 3372
- End
- Begin VB.CommandButton Command20
- Caption = "Command20"
- Height = 252
- Left = 3000
- TabIndex = 18
- Top = 2640
- Width = 492
- End
- Begin VB.CommandButton Command19
- Caption = "string"
- Height = 252
- Left = 2280
- TabIndex = 17
- Top = 2640
- Width = 492
- End
- Begin VB.CommandButton Command18
- Caption = "long"
- Height = 252
- Left = 1560
- TabIndex = 16
- Top = 2640
- Width = 492
- End
- Begin VB.CommandButton Command17
- Caption = "short"
- Height = 252
- Left = 840
- TabIndex = 15
- Top = 2640
- Width = 492
- End
- Begin VB.CommandButton Command16
- Caption = "byte"
- Height = 252
- Left = 120
- TabIndex = 14
- Top = 2640
- Width = 492
- End
- Begin VB.CommandButton Command15
- Caption = "array"
- Height = 252
- Left = 3000
- TabIndex = 12
- Top = 1920
- Width = 612
- End
- Begin VB.CommandButton Command14
- Caption = "string"
- Height = 252
- Left = 2280
- TabIndex = 11
- Top = 1920
- Width = 492
- End
- Begin VB.CommandButton Command13
- Caption = "long"
- Height = 252
- Left = 1440
- TabIndex = 10
- Top = 1920
- Width = 612
- End
- Begin VB.CommandButton Command12
- Caption = "short"
- Height = 252
- Left = 720
- TabIndex = 9
- Top = 1920
- Width = 612
- End
- Begin VB.CommandButton Command11
- Caption = "byte"
- Height = 252
- Left = 120
- TabIndex = 8
- Top = 1920
- Width = 492
- End
- Begin VB.CommandButton Command10
- Caption = "array"
- Height = 252
- Left = 3000
- TabIndex = 6
- Top = 1200
- Width = 612
- End
- Begin VB.CommandButton Command9
- Caption = "string"
- Height = 252
- Left = 2280
- TabIndex = 5
- Top = 1200
- Width = 612
- End
- Begin VB.CommandButton Command8
- Caption = "long"
- Height = 252
- Left = 1560
- TabIndex = 4
- Top = 1200
- Width = 612
- End
- Begin VB.CommandButton Command7
- Caption = "short"
- Height = 252
- Left = 840
- TabIndex = 3
- Top = 1200
- Width = 612
- End
- Begin VB.CommandButton Command6
- Caption = "byte"
- Height = 252
- Left = 120
- TabIndex = 2
- Top = 1200
- Width = 612
- End
- Begin VB.Label Label4
- Caption = "Properties"
- Height = 252
- Left = 120
- TabIndex = 13
- Top = 2280
- Width = 1212
- End
- Begin VB.Label Label3
- Caption = "In Out Parameter"
- Height = 252
- Left = 120
- TabIndex = 7
- Top = 1560
- Width = 1332
- End
- Begin VB.Label Label2
- Caption = "Out Parameter"
- Height = 252
- Left = 120
- TabIndex = 1
- Top = 840
- Width = 1332
- End
- Begin VB.Label Label1
- Caption = "In Parameter"
- Height = 252
- Left = 240
- TabIndex = 0
- Top = 120
- Width = 1212
- End
-End
-Attribute VB_Name = "Form1"
-Attribute VB_GlobalNameSpace = False
-Attribute VB_Creatable = False
-Attribute VB_PredeclaredId = True
-Attribute VB_Exposed = False
-Option Explicit
-Private objServiceManager
-Private objCoreReflection
-Private objOleTest
-
-Private Sub ctrInParamStart_Click()
-Dim ret As Variant
-
-' In Parameter, simple types
-'============================================
-ret = objOleTest.in_methodByte(10)
-Debug.Print TypeName(ret) & " " & CStr(ret)
-ret = objOleTest.in_methodFloat(3.14)
-Debug.Print TypeName(ret) & " " & CStr(ret)
-
-Dim d As Double 'try conversion
-d = 3.14
-ret = objOleTest.in_methodFloat(3.14)
-Debug.Print TypeName(ret) & " " & CStr(ret)
-ret = objOleTest.in_methodDouble(4.14)
-Debug.Print TypeName(ret) & " " & CStr(ret)
-Dim s As Single
-s = 4.14
-ret = objOleTest.in_methodDouble(s)
-Debug.Print TypeName(ret) & " " & CStr(ret)
-ret = objOleTest.in_methodBool(True)
-Debug.Print TypeName(ret) & " " & CStr(ret)
-ret = objOleTest.in_methodBool(False)
-Debug.Print TypeName(ret) & " " & CStr(ret)
-ret = objOleTest.in_methodShort(-10)
-Debug.Print TypeName(ret) & " " & CStr(ret)
-ret = objOleTest.in_methodUShort(10)
-Debug.Print TypeName(ret) & " " & CStr(ret)
-ret = objOleTest.in_methodLong(-1000000)
-Debug.Print TypeName(ret) & " " & CStr(ret)
-ret = objOleTest.in_methodULong(1000000)
-Debug.Print TypeName(ret) & " " & CStr(ret)
-ret = objOleTest.in_methodString("This is a String")
-Debug.Print TypeName(ret) & " " & CStr(ret)
-ret = objOleTest.in_methodChar("A")
-Debug.Print TypeName(ret) & " " & CStr(ret)
-ret = objOleTest.in_methodAny("This is a String in an any")
-Debug.Print TypeName(ret) & " " & CStr(ret)
-
-Call objOleTest.in_methodAll(10, 10.1, 10.111, True, 10, 11, 12, 13, _
- "A String", "A", "A String in an Any")
-
-'Out Parameter simple types
-'================================================
-Dim outByte As Byte
-objOleTest.testout_methodByte outByte
-Debug.Print "out byte " & CStr(outByte)
-Dim outFloat As Single
-objOleTest.testout_methodFloat outFloat
-Debug.Print "out float " & CStr(outFloat)
-Dim outDouble As Double
-objOleTest.testout_methodDouble outDouble
-Debug.Print "out double " & CStr(outDouble)
-Dim outBool As Boolean
-objOleTest.testout_methodBool outBool
-Debug.Print "out bool " & CStr(outBool)
-Dim outInt As Integer
-objOleTest.testout_methodShort outInt
-Debug.Print "out short " & CStr(outInt)
-objOleTest.testout_methodUShort outInt
-Debug.Print "out unsignedshort " & CStr(outInt)
-Dim outLong As Long
-objOleTest.testout_methodLong outLong
-Debug.Print "out long " & CStr(outInt)
-objOleTest.testout_methodULong outLong
-Debug.Print "out unsigned long " & CStr(outInt)
-Dim outString As String
-objOleTest.testout_methodString outString
-Debug.Print "out string " & CStr(outString)
-Dim outChar As Integer
-objOleTest.testout_methodChar outChar
-Debug.Print "out char " & CStr(outChar)
-Dim outCharS As String
-objOleTest.testout_methodChar outCharS
-Debug.Print "out char (String) " & CStr(outCharS)
-objOleTest.testout_methodAny outString
-Debug.Print "out Any " & CStr(outString)
-'Out Parameter simple types (VARIANT var)
-Dim outVar As Variant
-objOleTest.testout_methodByte outVar
-Debug.Print "out Byte (VARIANT) " & CStr(outVar)
-objOleTest.testout_methodFloat outVar
-Debug.Print "out float (VARIANT) " & CStr(outVar)
-objOleTest.testout_methodDouble outVar
-Debug.Print "out double (VARIANT) " & CStr(outVar)
-objOleTest.testout_methodBool outVar
-Debug.Print "out bool (VARIANT) " & CStr(outVar)
-objOleTest.testout_methodShort outVar
-Debug.Print "out short (VARIANT) " & CStr(outVar)
-objOleTest.testout_methodUShort outVar
-Debug.Print "out unsigned short (VARIANT) " & CStr(outVar)
-objOleTest.testout_methodLong outVar
-Debug.Print "out long (VARIANT) " & CStr(outVar)
-objOleTest.testout_methodULong outVar
-Debug.Print "out unsigned long (VARIANT) " & CStr(outVar)
-objOleTest.testout_methodString outVar
-Debug.Print "out string (VARIANT) " & CStr(outVar)
-objOleTest.testout_methodChar outVar
-Debug.Print "out char (VARIANT) " & CStr(outVar)
-objOleTest.testout_methodAny outVar
-Debug.Print "out any (VARIANT) " & CStr(outVar)
-
-'In/Out simple types
-outByte = 10
-objOleTest.testinout_methodByte outByte
-Debug.Print "inout byte " & CStr(outByte)
-outFloat = 3.14
-objOleTest.testinout_methodFloat outFloat
-Debug.Print "inout float " & CStr(outFloat)
-outDouble = 4.14
-objOleTest.testinout_methodDouble outDouble
-Debug.Print "inout double " & CStr(outDouble)
-outBool = True
-objOleTest.testinout_methodBool outBool
-Debug.Print "inout bool " & CStr(outBool)
-outInt = 10
-objOleTest.testinout_methodShort outInt
-Debug.Print "inout short " & CStr(outInt)
-outInt = 20
-objOleTest.testinout_methodUShort outInt
-Debug.Print "inout unsignedshort " & CStr(outInt)
-outLong = 30
-objOleTest.testinout_methodLong outLong
-Debug.Print "inout long " & CStr(outLong)
-outLong = 40
-objOleTest.testinout_methodULong outLong
-Debug.Print "inout unsigned long " & CStr(outLong)
-outString = "this is an in string"
-objOleTest.testinout_methodString outString
-Debug.Print "inout string " & CStr(outString)
-
-outString = "this is an in String"
-objOleTest.testout_methodChar outString
-Debug.Print "out char " & CStr(outString)
-outString = "this is another in out string"
-objOleTest.testout_methodAny outString
-Debug.Print "out Any " & CStr(outString)
-
-
-
-
-
-Dim var As Boolean
-var = True
-Debug.Print CStr(var)
-
-
-End Sub
-
-Private Sub Form_Load()
- Set objServiceManager = CreateObject("com.sun.star.ServiceManager")
- Set objCoreReflection = objServiceManager.createInstance("com.sun.star.reflection.CoreReflection")
-
- Set objOleTest = objServiceManager.createInstance("oletest.OleTest")
- Debug.Print TypeName(objOleTest)
-End Sub
-
-Private Sub Text1_Change()
-
-End Sub
diff --git a/extensions/test/ole/VisualBasic/Module1.bas b/extensions/test/ole/VisualBasic/Module1.bas
deleted file mode 100644
index e3ab7b34e46e..000000000000
--- a/extensions/test/ole/VisualBasic/Module1.bas
+++ /dev/null
@@ -1,743 +0,0 @@
-Attribute VB_Name = "Module1"
-Option Explicit
-
-Private objServiceManager
-Private objCoreReflection
-Private objOleTest
-Private objEventListener
-
-Sub Main()
- Set objServiceManager = CreateObject("com.sun.star.ServiceManager")
- Set objCoreReflection = objServiceManager.createInstance("com.sun.star.reflection.CoreReflection")
- ' extensions/test/ole/cpnt
- Set objOleTest = objServiceManager.createInstance("oletest.OleTest")
- ' extensions/test/ole/EventListenerSample/VBEventListener
- Set objEventListener = CreateObject("VBasicEventListener.VBEventListener")
- Debug.Print TypeName(objOleTest)
-
-' In Parameter, simple types
-'============================================
-Dim tmpVar As Variant
-Dim ret As Variant
-Dim bError As Boolean
-ret = objOleTest.in_methodByte(10)
-Debug.Print TypeName(ret) & " " & CStr(ret)
-If ret <> 10 Then
- MsgBox "error"
-End If
-
-ret = objOleTest.in_methodFloat(3.14)
-Debug.Print TypeName(ret) & " " & CStr(ret)
-If ret <> 3.14 Then
- MsgBox "error"
-End If
-Dim d As Double 'try conversion
-d = 3.14
-ret = objOleTest.in_methodFloat(3.14)
-Debug.Print TypeName(ret) & " " & CStr(ret)
-If ret <> 3.14 Then
- MsgBox "error"
-End If
-
-ret = objOleTest.in_methodDouble(4.14)
-Debug.Print TypeName(ret) & " " & CStr(ret)
-If ret <> 4.14 Then
- MsgBox "error"
-End If
-Dim s As Single
-s = 4.14
-ret = objOleTest.in_methodDouble(s)
-Debug.Print TypeName(ret) & " " & CStr(ret)
-If (ret < 4.13) And (ret > 4.15) Then
- MsgBox "error"
-End If
-
-ret = objOleTest.in_methodBool(True)
-Debug.Print TypeName(ret) & " " & CStr(ret)
-If ret <> True Then
- MsgBox "error"
-End If
-
-ret = objOleTest.in_methodBool(False)
-Debug.Print TypeName(ret) & " " & CStr(ret)
-If ret <> False Then
- MsgBox "error"
-End If
-
-ret = objOleTest.in_methodShort(-10)
-Debug.Print TypeName(ret) & " " & CStr(ret)
-If ret <> -10 Then
- MsgBox "error"
-End If
-ret = objOleTest.in_methodUShort(10)
-Debug.Print TypeName(ret) & " " & CStr(ret)
-If ret <> 10 Then
- MsgBox "error"
-End If
-ret = objOleTest.in_methodLong(-1000000)
-Debug.Print TypeName(ret) & " " & CStr(ret)
-If ret <> -1000000 Then
- MsgBox "error"
-End If
-
-ret = objOleTest.in_methodULong(1000000)
-Debug.Print TypeName(ret) & " " & CStr(ret)
-If ret <> 1000000 Then
- MsgBox "error"
-End If
-
-ret = objOleTest.in_methodString("This is a String")
-Debug.Print TypeName(ret) & " " & CStr(ret)
-If CStr(ret) <> "This is a String" Then
- MsgBox "error"
-End If
-
-'different character tests
-ret = objOleTest.in_methodChar("A")
-Debug.Print TypeName(ret) & " " & CStr(ret)
-If ret <> 65 Then
- MsgBox "error"
-End If
-'!!!Function returns char, i.e sal_Unicode which VB converts to String
-Dim ret1 As String
-ret1 = objOleTest.in_methodChar("A")
-Debug.Print TypeName(ret1) & " " & CStr(ret1)
-If ret <> 65 Then
- MsgBox "error"
-End If
-
-ret1 = objOleTest.in_methodChar(65)
-Debug.Print TypeName(ret1) & " " & CStr(ret1)
-If ret <> 65 Then
- MsgBox "error"
-End If
-
-ret = objOleTest.in_methodAny("input string")
-Debug.Print TypeName(ret) & " " & CStr(ret)
-If ret <> "input string" Then
- MsgBox "error"
-End If
-
-'Call objOleTest.in_methodAll(10, 10.1, 10.111, True, 10, 11, 12, 13, _
-' "A String", "A", "A String in an Any")
-
-'Out Parameter simple types
-'================================================
-Dim outByte As Byte
-objOleTest.testout_methodByte outByte
-Debug.Print "out byte " & CStr(outByte)
-If outByte <> 111 Then
- MsgBox "error"
-End If
-
-Dim outFloat As Single
-objOleTest.testout_methodFloat outFloat
-Debug.Print "out float " & CStr(outFloat)
-If outFloat <> 3.14 Then
- MsgBox "error"
-End If
-
-Dim outDouble As Double
-objOleTest.testout_methodDouble outDouble
-Debug.Print "out double " & CStr(outDouble)
-If outDouble <> 3.14 Then
- MsgBox "error"
-End If
-
-Dim outBool As Boolean
-objOleTest.testout_methodBool outBool
-Debug.Print "out bool " & CStr(outBool)
-If outBool <> True Then
- MsgBox "error"
-End If
-
-Dim outInt As Integer
-objOleTest.testout_methodShort outInt
-Debug.Print "out short " & CStr(outInt)
-If outInt <> 222 Then
- MsgBox "error"
-End If
-
-objOleTest.testout_methodUShort outInt
-Debug.Print "out unsignedshort " & CStr(outInt)
-If outInt <> 333 Then
- MsgBox "error"
-End If
-
-Dim outLong As Long
-objOleTest.testout_methodLong outLong
-Debug.Print "out long " & CStr(outLong)
-If outLong <> 444 Then
- MsgBox "error"
-End If
-
-objOleTest.testout_methodULong outLong
-Debug.Print "out unsigned long " & CStr(outLong)
-If outLong <> 555 Then
- MsgBox "error"
-End If
-
-Dim outString As String
-objOleTest.testout_methodString outString
-Debug.Print "out string " & CStr(outString)
-If outString <> "a little string" Then
- MsgBox "error"
-End If
-
-Dim outChar As Integer
-objOleTest.testout_methodChar outChar
-Debug.Print "out char " & CStr(outChar)
-If outChar <> 65 Then
- MsgBox "error"
-End If
-
-Dim outCharS As String
-objOleTest.testout_methodChar outCharS
-Debug.Print "out char (String) " & CStr(outCharS)
-If outCharS <> "A" Then
- MsgBox "error"
-End If
-
-objOleTest.testout_methodAny outString
-Debug.Print "out Any " & CStr(outString)
-
-'Out Parameter simple types (VARIANT var)
-Dim outVar As Variant
-objOleTest.testout_methodByte outVar
-Debug.Print "out Byte (VARIANT) " & CStr(outVar)
-If outVar <> 111 Then
- MsgBox "error"
-End If
-
-objOleTest.testout_methodFloat outVar
-Debug.Print "out float (VARIANT) " & CStr(outVar)
-If outVar <> 3.14 Then
- MsgBox "error"
-End If
-
-objOleTest.testout_methodDouble outVar
-Debug.Print "out double (VARIANT) " & CStr(outVar)
-If outVar <> 3.14 Then
- MsgBox "error"
-End If
-
-objOleTest.testout_methodBool outVar
-Debug.Print "out bool (VARIANT) " & CStr(outVar)
-If outVar <> True Then
- MsgBox "error"
-End If
-
-objOleTest.testout_methodShort outVar
-Debug.Print "out short (VARIANT) " & CStr(outVar)
-If outVar <> 222 Then
- MsgBox "error"
-End If
-
-objOleTest.testout_methodUShort outVar
-Debug.Print "out unsigned short (VARIANT) " & CStr(outVar)
-If outVar <> 333 Then
- MsgBox "error"
-End If
-
-objOleTest.testout_methodLong outVar
-Debug.Print "out long (VARIANT) " & CStr(outVar)
-If outVar <> 444 Then
- MsgBox "error"
-End If
-
-objOleTest.testout_methodULong outVar
-Debug.Print "out unsigned long (VARIANT) " & CStr(outVar)
-If outVar <> 555 Then
- MsgBox "error"
-End If
-
-objOleTest.testout_methodString outVar
-Debug.Print "out string (VARIANT) " & CStr(outVar)
-If outVar <> "a little string" Then
- MsgBox "error"
-End If
-
-objOleTest.testout_methodChar outVar
-Debug.Print "out char (VARIANT) " & CStr(outVar)
-If outVar <> 65 Then
- MsgBox "error"
-End If
-
-objOleTest.testout_methodAny outVar
-Debug.Print "out any (VARIANT) " & CStr(outVar)
-If outVar <> "I am a string in an any" Then
- MsgBox "error"
-End If
-
-'In/Out simple types
-'============================================
-outByte = 10
-objOleTest.testinout_methodByte outByte
-Debug.Print "inout byte " & CStr(outByte)
-If outByte <> 11 Then
- MsgBox "error"
-End If
-
-outFloat = 3.14
-objOleTest.testinout_methodFloat outFloat
-Debug.Print "inout float " & CStr(outFloat)
-If (outFloat > 4.15) And (outFloat < 4.13) Then
- MsgBox "error"
-End If
-
-outDouble = 4.14
-objOleTest.testinout_methodDouble outDouble
-Debug.Print "inout double " & CStr(outDouble)
-If outDouble <> 5.14 Then
- MsgBox "error"
-End If
-
-outBool = True
-objOleTest.testinout_methodBool outBool
-Debug.Print "inout bool " & CStr(outBool)
-If outBool <> False Then
- MsgBox "error"
-End If
-
-outInt = 10
-objOleTest.testinout_methodShort outInt
-Debug.Print "inout short " & CStr(outInt)
-If outInt <> 11 Then
- MsgBox "error"
-End If
-
-outInt = 20
-objOleTest.testinout_methodUShort outInt
-Debug.Print "inout unsignedshort " & CStr(outInt)
-If outInt <> 21 Then
- MsgBox "error"
-End If
-
-outLong = 30
-objOleTest.testinout_methodLong outLong
-Debug.Print "inout long " & CStr(outLong)
-If outLong <> 31 Then
- MsgBox "error"
-End If
-
-outLong = 40
-objOleTest.testinout_methodULong outLong
-Debug.Print "inout unsigned long " & CStr(outLong)
-If outLong <> 41 Then
- MsgBox "error"
-End If
-
-outString = "this is an in string"
-objOleTest.testinout_methodString outString
-Debug.Print "inout string " & CStr(outString)
-If outString <> "this is an in string out string" Then
- MsgBox "error"
-End If
-
-'different Char conversions
-objOleTest.testout_methodChar outString
-Debug.Print "out char (in: String)" & CStr(outString)
-If outString <> "A" Then
- MsgBox "error"
-End If
-
-objOleTest.testout_methodChar outInt
-Debug.Print "out char (in: Int)" & CStr(outInt)
-If outInt <> 65 Then
- MsgBox "error"
-End If
-
-'--
-outString = "this is another in out string"
-objOleTest.testout_methodAny outString
-Debug.Print "out Any " & CStr(outString)
-If outString <> "I am a string in an any" Then
- MsgBox "error"
-End If
-
-'Objects
-'
-'==========================================================
-' COM obj
-Dim retObj As Object
-'OleTest receives a COM object that implements XEventListener
-'OleTest then calls a disposing on the object. The object then will be
-'asked if it has been called
-objEventListener.setQuiet True
-objEventListener.resetDisposing
-Set retObj = objOleTest.in_methodInvocation(objEventListener)
-ret = objEventListener.disposingCalled
-If ret = False Then
- MsgBox "Error"
-End If
-
-'The returned object should be objEventListener, test it by calling disposing
-' takes an IDispatch as Param ( EventObject).To provide a TypeMismatch
-'we put in another IDispatch
-retObj.resetDisposing
-retObj.disposing objEventListener
-If retObj.disposingCalled = False Then
- MsgBox "Error"
-End If
-
-
-' out param gives out the OleTestComponent
-objOleTest.testout_methodXInterface retObj
-outVar = Null
-retObj.testout_methodAny outVar
-Debug.Print "test out Interface " & CStr(outVar)
-If outVar <> "I am a string in an any" Then
- MsgBox "error"
-End If
-
-'in out
-' in: UNO object, the same is expected as out param
-' the function expects OleTest as parameter and sets a value
-Dim objOleTest2 As Object
-Set objOleTest2 = objServiceManager.createInstance("oletest.OleTest")
-'Set a value
-objOleTest2.AttrAny2 = "VBString "
-objOleTest.testinout_methodXInterface2 objOleTest2
-tmpVar = Null
-tmpVar = objOleTest2.AttrAny2
-Debug.Print "in: Uno out: the same object // " & CStr(tmpVar)
-If tmpVar <> "VBString this string was written in the UNO component to the inout pararmeter" Then
- MsgBox "error"
-End If
-
-
-'create a struct
-Dim structClass As Object
-Set structClass = objCoreReflection.forName("oletest.SimpleStruct")
-Dim structInstance As Object
-structClass.CreateObject structInstance
-structInstance.message = "Now we are in VB"
-Debug.Print "struct out " & structInstance.message
-If structInstance.message <> "Now we are in VB" Then
- MsgBox "error"
-End If
-
-'put the struct into OleTest. The same struct will be returned with an added String
-Dim structRet As Object
-Set structRet = objOleTest.in_methodStruct(structInstance)
-Debug.Print "struct in - return " & structRet.message
-If structRet.message <> "Now we are in VBThis string was set in OleTest" Then
- MsgBox "error"
-End If
-
-'inout later
-
-'Arrays
-'========================================
-Dim arrLong(2) As Long
-Dim arrObj(2) As Object
-Dim countvar As Long
-For countvar = 0 To 2
- arrLong(countvar) = countvar + 10
- Debug.Print countvar
- Set arrObj(countvar) = CreateObject("VBasicEventListener.VBEventListener")
- arrObj(countvar).setQuiet True
-Next
-
-'Arrays always contain VARIANTS
-Dim seq() As Variant
-seq = objOleTest.methodLong(arrLong)
-
-For countvar = 0 To 2
- Debug.Print CStr(seq(countvar))
- If arrLong(countvar) <> seq(countvar) Then
- MsgBox "error"
- End If
-Next
-seq = objOleTest.methodXInterface(arrObj)
-For countvar = 0 To 2
- Dim tmp As Object
- seq(countvar).resetDisposing
- seq(countvar).disposing tmp
- If seq(countvar).disposingCalled = False Then
- MsgBox "Error"
- End If
-Next
-
-'Array containing interfaces (element type is VT_DISPATCH)
-Dim arEventListener(2) As Object
-For countvar = 0 To 2
- Set arEventListener(countvar) = CreateObject("VBasicEventListener.VBEventListener")
- arEventListener(countvar).setQuiet True
-Next
-
-'The function calls disposing on the listeners
-seq = objOleTest.methodXEventListeners(arEventListener)
-Dim count
-For countvar = 0 To 2
- If arEventListener(countvar).disposingCalled = False Then
- MsgBox "Error"
- End If
-Next
-'Array containing interfaces (element type is VT_VARIANT which contains VT_DISPATCH
-Dim arEventListener2(2) As Variant
-For countvar = 0 To 2
- Set arEventListener2(countvar) = CreateObject("VBasicEventListener.VBEventListener")
- arEventListener2(countvar).setQuiet True
-Next
-seq = objOleTest.methodXEventListeners(arEventListener2)
-For countvar = 0 To 2
- If arEventListener2(countvar).disposingCalled = False Then
- MsgBox "Error"
- End If
-Next
-
-'Variant containing Array containing interfaces (element type is VT_VARIANT which contains VT_DISPATCH
-Dim arEventListener3(2) As Variant
-For countvar = 0 To 2
- Dim var As Variant
- Set arEventListener3(countvar) = CreateObject("VBasicEventListener.VBEventListener")
- arEventListener3(countvar).setQuiet True
-Next
-Dim varContAr As Variant
-varContAr = arEventListener3
-seq = objOleTest.methodXEventListeners(varContAr)
-For countvar = 0 To 2
- If arEventListener3(countvar).disposingCalled = False Then
- MsgBox "Error"
- End If
-Next
-
-'Get a sequence created in UNO, out param is Variant ( VT_BYREF|VT_VARIANT)
-Dim seqX As Variant
-
-objOleTest.testout_methodSequence seqX
-Dim key
-For Each key In seqX
- Debug.Print CStr(seqX(key))
- If seqX(key) <> key Then
- MsgBox "error"
- End If
-Next
-'Get a sequence created in UNO, out param is array Variant ( VT_BYREF|VT_VARIANT|VT_ARRAY)
-Dim seqX2() As Variant
-objOleTest.testout_methodSequence seqX2
-
-For Each key In seqX2
- Debug.Print CStr(seqX2(key))
-Next
-
-'pass it to UNO and get it back
-Dim seq7() As Variant
-seq7 = objOleTest.methodLong(seqX)
-Dim key2
-For Each key2 In seq7
- Debug.Print CStr(seq7(key2))
- If seqX2(key) <> key Then
- MsgBox "error"
- End If
-Next
-
-'in out Array
-' arrLong is Long Array
-Dim inoutVar(2) As Variant
-
-For countvar = 0 To 2
- inoutVar(countvar) = countvar + 10
-Next
-
-objOleTest.testinout_methodSequence inoutVar
-
-countvar = 0
-For countvar = 0 To 2
- Debug.Print CStr(inoutVar(countvar))
- If inoutVar(countvar) <> countvar + 11 Then
- MsgBox "error"
- End If
-Next
-
-'Multidimensional array
-'============================================================
-' Sequence< Sequence<long> > methodSequence( Sequence< Sequence long> >)
-' Real multidimensional array Array
-' 9 is Dim 1 (least significant) with C API
-Dim mulAr(9, 1) As Long
-Dim i As Long, j As Long
-For i = 0 To 1
- For j = 0 To 9
- mulAr(j, i) = i * 10 + j
- Next j
-Next i
-
-Dim resMul As Variant
-resMul = objOleTest.methodSequence(mulAr)
-
-Dim countDim1 As Long
-Dim countDim2 As Long
-For countDim2 = 0 To 1
- Dim arr
- arr = resMul(countDim2)
- For countDim1 = 0 To 9
- Debug.Print arr(countDim1)
- If arr(countDim1) <> mulAr(countDim1, countDim2) Then
- MsgBox "Error Multidimensional Array"
- End If
- Next countDim1
-Next countDim2
-IsArray (resMul)
-
-'Array of VARIANTs containing arrays
-Dim mulAr2(1) As Variant
-Dim arr2(9) As Long
-For i = 0 To 1
- ' Dim arr(9) As Long
- For j = 0 To 9
- arr2(j) = i * 10 + j
- Next j
- mulAr2(i) = arr2
-Next i
-
-resMul = 0
-resMul = objOleTest.methodSequence(mulAr2)
-arr = 0
-For countDim2 = 0 To 1
- arr = resMul(countDim2)
- tmpVar = mulAr2(countDim2)
- For countDim1 = 0 To 9
- Debug.Print arr(countDim1)
- If arr(countDim1) <> tmpVar(countDim1) Then
- MsgBox "Error Multidimensional Array"
- End If
- Next countDim1
-Next countDim2
-
-'Array containing interfaces (element type is VT_DISPATCH)
-Dim arArEventListener(1, 2) As Object
-For i = 0 To 1
- For j = 0 To 2
- Set arArEventListener(i, j) = CreateObject("VBasicEventListener.VBEventListener")
- arArEventListener(i, j).setQuiet True
- Next
-Next
-'The function calls disposing on the listeners
-seq = objOleTest.methodXEventListenersMul(arArEventListener)
-For i = 0 To 1
- For j = 0 To 2
- If arArEventListener(i, j).disposingCalled = False Then
- MsgBox "Error"
- End If
- Next
-Next
-
-'Array containing interfaces (element type is VT_VARIANT containing VT_DISPATCH)
-Dim arArEventListener2(1, 2) As Variant
-For i = 0 To 1
- For j = 0 To 2
- Set arArEventListener2(i, j) = CreateObject("VBasicEventListener.VBEventListener")
- arArEventListener2(i, j).setQuiet True
- Next
-Next
-'The function calls disposing on the listeners
-seq = objOleTest.methodXEventListenersMul(arArEventListener2)
-For i = 0 To 1
- For j = 0 To 2
- If arArEventListener2(i, j).disposingCalled = False Then
- MsgBox "Error"
- End If
- Next
-Next
-
-' SAFEARRAY of VARIANTS containing SAFEARRAYs
-'The ultimate element type is VT_DISPATCH ( XEventListener)
-Dim arEventListener4(1) As Variant
-Dim seq1(2) As Object
-Dim seq2(2) As Object
-For i = 0 To 2
- Set seq1(i) = CreateObject("VBasicEventListener.VBEventListener")
- Set seq2(i) = CreateObject("VBasicEventListener.VBEventListener")
- seq1(i).setQuiet True
- seq2(i).setQuiet True
-Next
-arEventListener4(0) = seq1
-arEventListener4(1) = seq2
-'The function calls disposing on the listeners
-seq = objOleTest.methodXEventListenersMul(arEventListener4)
-For i = 0 To 2
- If seq1(i).disposingCalled = False Or seq2(i).disposingCalled = False Then
- MsgBox "Error"
- End If
-Next
-
-'Bridge_GetStruct
-'========================================================
-'Try to create a hidden document
-Dim objPropValue
-Set objPropValue = objOleTest.Bridge_GetStruct("com.sun.star.beans.PropertyValue")
-'Set the members. If this fails then there is an Error
-objPropValue.Name = "hidden"
-objPropValue.Handle = -1
-objPropValue.Value = True
-
-'create a hidden document
-'Create the Desktop
-Dim objDesktop As Object
-Set objDesktop = objServiceManager.createInstance("com.sun.star.frame.Desktop")
-'Open a new empty writer document
-Dim args(0) As Object
-Set args(0) = objPropValue
-Dim objDocument As Object
-Set objDocument = objDesktop.loadComponentFromURL("private:factory/swriter", "_blank", 0, args())
-'Create a text object
-Dim objText As Object
-Set objText = objDocument.GetText
-
-'Bridge_ImplementedInterfaces
-'=================================================
-' call an UNO function that takes an XEventListener interface
-'We provide a COM implementation (IDispatch) as EventListener
-objEventListener.resetDisposing
-objDocument.addEventListener objEventListener
-objDocument.dispose
-If objEventListener.disposingCalled = False Then
- MsgBox "Error"
-End If
-
-
-'Bridge_GetValueObject
-'==================================================
-Dim objVal As Object
-Set objVal = objOleTest.Bridge_GetValueObject()
-Dim arrByte(9) As Byte
-For countvar = 0 To 9
- arrByte(countvar) = countvar
-Next countvar
-
-objVal.Set "[]byte", arrByte
-ret = 0
-ret = objOleTest.methodByte(objVal)
-'Test if ret is the same array
-
-key = 0
-For Each key In ret
- If ret(key) <> arrByte(key) Then
- MsgBox "Error"
- End If
- Debug.Print ret(key)
-Next key
-
-
-objVal.InitInOutParam "byte", 10
-objOleTest.testinout_methodByte objVal
-
-ret = 0
-ret = objVal.Get()
-Debug.Print ret
-If ret <> 11 Then
- MsgBox "error"
-End If
-
-objVal.InitOutParam
-objOleTest.testout_methodChar objVal 'Returns 'A' (65)
-ret = 0
-ret = objVal.Get()
-Debug.Print ret
-If ret <> 65 Then
- MsgBox "error"
-End If
-
-End Sub
diff --git a/extensions/test/ole/VisualBasic/Project1.vbp b/extensions/test/ole/VisualBasic/Project1.vbp
deleted file mode 100644
index ff4e083abae0..000000000000
--- a/extensions/test/ole/VisualBasic/Project1.vbp
+++ /dev/null
@@ -1,34 +0,0 @@
-Type=Exe
-Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\System32\stdole2.tlb#OLE Automation
-Module=Module1; Module1.bas
-Startup="Sub Main"
-HelpFile=""
-ExeName32="Project1.exe"
-Command32=""
-Name="Project1"
-HelpContextID="0"
-CompatibleMode="0"
-MajorVer=1
-MinorVer=0
-RevisionVer=0
-AutoIncrementVer=0
-ServerSupportFiles=0
-VersionCompanyName="StarOffice"
-CompilationType=0
-OptimizationType=0
-FavorPentiumPro(tm)=0
-CodeViewDebugInfo=0
-NoAliasing=0
-BoundsCheck=0
-OverflowCheck=0
-FlPointCheck=0
-FDIVCheck=0
-UnroundedFP=0
-StartMode=0
-Unattended=0
-Retained=0
-ThreadPerObject=0
-MaxNumberOfThreads=1
-
-[MS Transaction Server]
-AutoRefresh=1
diff --git a/extensions/test/ole/VisualBasic/Project1.vbw b/extensions/test/ole/VisualBasic/Project1.vbw
deleted file mode 100644
index ee3bf20e4e2b..000000000000
--- a/extensions/test/ole/VisualBasic/Project1.vbw
+++ /dev/null
@@ -1 +0,0 @@
-Module1 = 27, 27, 882, 898,
diff --git a/extensions/test/ole/VisualBasic/readme.txt b/extensions/test/ole/VisualBasic/readme.txt
deleted file mode 100644
index 22add1fb2141..000000000000
--- a/extensions/test/ole/VisualBasic/readme.txt
+++ /dev/null
@@ -1,18 +0,0 @@
-Runs a test written in VisualBasic. If no error message appears then the test was ok.
-
-Requirements:
-Installed office
-Component oletest.Oletest (extensions/test/ole/cpnt)
-Component VBasicEventListener.VBEventListener (extensions/test/ole/EventListenerSample/VBEventListener
-
-
-OleTest is a UNO component. It needs to be registered with the office rdb. Also there are additional
-types (oletest.rdb in wntmsci7/bin/) which must be merged with the rdb.
-VBEventListener is an ActiveX component. The directory contains a Visual Basic Project and also
-the binary VBasicEventListener.dll. This is necessary because the dll contains the type library
-which is needed by VB. Otherwise VB would generate a new CLSID on a new build.
-The dll must be registered on the system. This is done by
-regsvr32 VBasicEventListener.dll
-or
-by a rebuild of the project.
-
diff --git a/extensions/test/ole/cpptest/cpptest.cpp b/extensions/test/ole/cpptest/cpptest.cpp
index 055255e35502..28f6db1fba6e 100644
--- a/extensions/test/ole/cpptest/cpptest.cpp
+++ b/extensions/test/ole/cpptest/cpptest.cpp
@@ -2,9 +2,9 @@
*
* $RCSfile: cpptest.cpp,v $
*
- * $Revision: 1.2 $
+ * $Revision: 1.3 $
*
- * last change: $Author: jl $ $Date: 2000-10-12 14:29:52 $
+ * last change: $Author: hr $ $Date: 2003-03-25 16:04:52 $
*
* The Contents of this file are made available subject to the terms of
* either of the following licenses
@@ -101,13 +101,55 @@ HRESULT doTest()
CComPtr<IUnknown> spUnkMgr;
-// GUID idOffice= {0x3ECF78F0,0xB149,0x11D2,{0x8E,0xBE,0x00,0x10,0x5A,0xD8,0x48,0xAF}};
-// IUnknown * pUnk;
-// hr= CoCreateInstance( idOffice, NULL, CLSCTX_ALL, __uuidof(IUnknown), (void**) &pUnk);
-
if( FAILED(hr= spUnkMgr.CoCreateInstance(L"com.sun.star.ServiceManager")))
return hr;
+ IDispatchPtr starManager;
+ // var starManager=new ActiveXObject("com.sun.star.ServiceManager");
+ hr= starManager.CreateInstance(_T("com.sun.star.ServiceManager"));
+ // var starDesktop=starManager.createInstance("com.sun.star.frame.Desktop");
+ _variant_t varP1(L"com.sun.star.frame.Desktop");
+ _variant_t varRet;
+ CComDispatchDriver dispMgr(starManager);
+ hr= dispMgr.Invoke1(L"createInstance", &varP1, &varRet);
+ CComDispatchDriver dispDesk(varRet.pdispVal);
+ varP1.Clear();
+ varRet.Clear();
+ // var bOK=new Boolean(true);
+
+ // var noArgs=new Array();
+ // var oDoc=starDesktop.loadComponentFromURL("private:factory/swriter", "Test", 40, noArgs);
+ IDispatchPtr oDoc;
+ SAFEARRAY* ar= SafeArrayCreateVector(VT_DISPATCH, 0, 0);
+ _variant_t args[4];
+ args[3]= _variant_t(L"private:factory/swriter");
+ args[2]= _variant_t(L"Test");
+ args[1]= _variant_t((long) 40);
+ args[0].vt= VT_ARRAY | VT_DISPATCH;;
+ args[0].parray= ar;
+ hr= dispDesk.InvokeN(L"loadComponentFromURL", args, 4, &varRet);
+ CComDispatchDriver dispDoc(varRet.pdispVal);
+ varRet.Clear();
+
+ //var oFieldMaster = oDoc.createInstance("com.sun.star.text.FieldMaster.Database");
+ varP1= _variant_t(L"com.sun.star.text.FieldMaster.Database");
+ hr= dispDoc.Invoke1(L"createInstance", &varP1, &varRet);
+ CComDispatchDriver dispFieldMaster(varRet.pdispVal);
+ varP1.Clear();
+ varRet.Clear();
+
+ //var oObj = oDoc.createInstance("com.sun.star.text.TextField.Database");
+ varP1= _variant_t(L"com.sun.star.text.TextField.Database");
+ hr= dispDoc.Invoke1(L"createInstance", &varP1, &varRet);
+ CComDispatchDriver dispField(varRet.pdispVal);
+ varP1.Clear();
+ varRet.Clear();
+
+ //oObj.attachTextFieldMaster(oFieldMaster);
+ varP1= _variant_t(dispFieldMaster);
+ hr= dispField.Invoke1(L"attachTextFieldMaster", &varP1);
+
+
return S_OK;
}
diff --git a/extensions/test/ole/cpptest/cpptest.cxx b/extensions/test/ole/cpptest/cpptest.cxx
new file mode 100644
index 000000000000..36187252bfd7
--- /dev/null
+++ b/extensions/test/ole/cpptest/cpptest.cxx
@@ -0,0 +1,163 @@
+/*************************************************************************
+ *
+ * $RCSfile: cpptest.cxx,v $
+ *
+ * $Revision: 1.2 $
+ *
+ * last change: $Author: hr $ $Date: 2003-03-25 16:04:53 $
+ *
+ * The Contents of this file are made available subject to the terms of
+ * either of the following licenses
+ *
+ * - GNU Lesser General Public License Version 2.1
+ * - Sun Industry Standards Source License Version 1.1
+ *
+ * Sun Microsystems Inc., October, 2000
+ *
+ * GNU Lesser General Public License Version 2.1
+ * =============================================
+ * Copyright 2000 by Sun Microsystems, Inc.
+ * 901 San Antonio Road, Palo Alto, CA 94303, USA
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License version 2.1, as published by the Free Software Foundation.
+ *
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+ *
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 59 Temple Place, Suite 330, Boston,
+ * MA 02111-1307 USA
+ *
+ *
+ * Sun Industry Standards Source License Version 1.1
+ * =================================================
+ * The contents of this file are subject to the Sun Industry Standards
+ * Source License Version 1.1 (the "License"); You may not use this file
+ * except in compliance with the License. You may obtain a copy of the
+ * License at http://www.openoffice.org/license.html.
+ *
+ * Software provided under this License is provided on an "AS IS" basis,
+ * WITHOUT WARRUNTY OF ANY KIND, EITHER EXPRESS OR IMPLIED, INCLUDING,
+ * WITHOUT LIMITATION, WARRUNTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
+ * MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
+ * See the License for the specific provisions governing your rights and
+ * obligations concerning the Software.
+ *
+ * The Initial Developer of the Original Code is: Sun Microsystems, Inc..
+ *
+ * Copyright: 2000 by Sun Microsystems, Inc.
+ *
+ * All Rights Reserved.
+ *
+ * Contributor(s): _______________________________________
+ *
+ *
+ ************************************************************************/
+// cpptest.cpp : Defines the entry point for the console application.
+//
+
+#if _MSC_VER > 1000
+#pragma once
+#endif // _MSC_VER > 1000
+#include <comdef.h>
+#include <tchar.h>
+#include<atlbase.h>
+CComModule _Module;
+#include<atlcom.h>
+#include<atlimpl.cpp>
+
+//CComModule _Module;
+BEGIN_OBJECT_MAP(ObjectMap)
+END_OBJECT_MAP()
+
+
+HRESULT doTest();
+
+int main(int argc, char* argv[])
+{
+ HRESULT hr;
+ if( FAILED( hr=CoInitialize(NULL)))
+ {
+ _tprintf(_T("CoInitialize failed \n"));
+ return -1;
+ }
+
+
+ _Module.Init( ObjectMap, GetModuleHandle( NULL));
+
+ if( FAILED(hr=doTest()))
+ {
+ _com_error err( hr);
+ const TCHAR * errMsg= err.ErrorMessage();
+ MessageBox( NULL, errMsg, "Test failed", MB_ICONERROR);
+ }
+
+
+ _Module.Term();
+ CoUninitialize();
+ return 0;
+}
+
+HRESULT doTest()
+{
+ HRESULT hr;
+ CComPtr<IUnknown> spUnkMgr;
+
+
+ if( FAILED(hr= spUnkMgr.CoCreateInstance(L"com.sun.star.ServiceManager")))
+ return hr;
+
+ IDispatchPtr starManager;
+ // var starManager=new ActiveXObject("com.sun.star.ServiceManager");
+ hr= starManager.CreateInstance(_T("com.sun.star.ServiceManager"));
+ // var starDesktop=starManager.createInstance("com.sun.star.frame.Desktop");
+ _variant_t varP1(L"com.sun.star.frame.Desktop");
+ _variant_t varRet;
+ CComDispatchDriver dispMgr(starManager);
+ hr= dispMgr.Invoke1(L"createInstance", &varP1, &varRet);
+ CComDispatchDriver dispDesk(varRet.pdispVal);
+ varP1.Clear();
+ varRet.Clear();
+ // var bOK=new Boolean(true);
+
+ // var noArgs=new Array();
+ // var oDoc=starDesktop.loadComponentFromURL("private:factory/swriter", "Test", 40, noArgs);
+ IDispatchPtr oDoc;
+ SAFEARRAY* ar= SafeArrayCreateVector(VT_DISPATCH, 0, 0);
+ _variant_t args[4];
+ args[3]= _variant_t(L"private:factory/swriter");
+ args[2]= _variant_t(L"Test");
+ args[1]= _variant_t((long) 40);
+ args[0].vt= VT_ARRAY | VT_DISPATCH;;
+ args[0].parray= ar;
+ hr= dispDesk.InvokeN(L"loadComponentFromURL", args, 4, &varRet);
+ CComDispatchDriver dispDoc(varRet.pdispVal);
+ varRet.Clear();
+
+ //var oFieldMaster = oDoc.createInstance("com.sun.star.text.FieldMaster.Database");
+ varP1= _variant_t(L"com.sun.star.text.FieldMaster.Database");
+ hr= dispDoc.Invoke1(L"createInstance", &varP1, &varRet);
+ CComDispatchDriver dispFieldMaster(varRet.pdispVal);
+ varP1.Clear();
+ varRet.Clear();
+
+ //var oObj = oDoc.createInstance("com.sun.star.text.TextField.Database");
+ varP1= _variant_t(L"com.sun.star.text.TextField.Database");
+ hr= dispDoc.Invoke1(L"createInstance", &varP1, &varRet);
+ CComDispatchDriver dispField(varRet.pdispVal);
+ varP1.Clear();
+ varRet.Clear();
+
+ //oObj.attachTextFieldMaster(oFieldMaster);
+ varP1= _variant_t(dispFieldMaster);
+ hr= dispField.Invoke1(L"attachTextFieldMaster", &varP1);
+
+
+ return S_OK;
+
+}
diff --git a/extensions/test/ole/cpptest/makefile.mk b/extensions/test/ole/cpptest/makefile.mk
new file mode 100644
index 000000000000..65e6824ab459
--- /dev/null
+++ b/extensions/test/ole/cpptest/makefile.mk
@@ -0,0 +1,137 @@
+#*************************************************************************
+#
+# $RCSfile: makefile.mk,v $
+#
+# $Revision: 1.2 $
+#
+# last change: $Author: hr $ $Date: 2003-03-25 16:04:53 $
+#
+# The Contents of this file are made available subject to the terms of
+# either of the following licenses
+#
+# - GNU Lesser General Public License Version 2.1
+# - Sun Industry Standards Source License Version 1.1
+#
+# Sun Microsystems Inc., October, 2000
+#
+# GNU Lesser General Public License Version 2.1
+# =============================================
+# Copyright 2000 by Sun Microsystems, Inc.
+# 901 San Antonio Road, Palo Alto, CA 94303, USA
+#
+# This library is free software; you can redistribute it and/or
+# modify it under the terms of the GNU Lesser General Public
+# License version 2.1, as published by the Free Software Foundation.
+#
+# This library is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+# Lesser General Public License for more details.
+#
+# You should have received a copy of the GNU Lesser General Public
+# License along with this library; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston,
+# MA 02111-1307 USA
+#
+#
+# Sun Industry Standards Source License Version 1.1
+# =================================================
+# The contents of this file are subject to the Sun Industry Standards
+# Source License Version 1.1 (the "License"); You may not use this file
+# except in compliance with the License. You may obtain a copy of the
+# License at http://www.openoffice.org/license.html.
+#
+# Software provided under this License is provided on an "AS IS" basis,
+# WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
+# WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
+# MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
+# See the License for the specific provisions governing your rights and
+# obligations concerning the Software.
+#
+# The Initial Developer of the Original Code is: Sun Microsystems, Inc.
+#
+# Copyright: 2000 by Sun Microsystems, Inc.
+#
+# All Rights Reserved.
+#
+# Contributor(s): _______________________________________
+#
+#
+#
+#*************************************************************************
+
+PRJ=..$/..$/..$/
+
+PRJNAME=extensions
+TARGET=cppTest
+TARGETTYPE=CUI
+LIBTARGET=NO
+
+#USE_DEFFILE= TRUE
+NO_BSYMBOLIC= TRUE
+ENABLE_EXCEPTIONS=TRUE
+BOOTSTRAP_SERVICE=FALSE
+
+# --- Settings ---
+
+.INCLUDE : svpre.mk
+.INCLUDE : settings.mk
+.INCLUDE : sv.mk
+
+# --- Files ---
+
+#UNOUCRDEP= $(SOLARBINDIR)$/applicat.rdb
+#UNOUCRRDB= $(SOLARBINDIR)$/applicat.rdb
+
+.IF "$(BOOTSTRAP_SERVICE)" == "TRUE"
+UNOUCROUT= $(OUT)$/inc$/comprehensive
+INCPRE+= $(OUT)$/inc$/comprehensive
+CPPUMAKERFLAGS += -C
+.ELSE
+UNOUCROUT= $(OUT)$/inc
+INCPRE+= $(OUT)$/inc -I$(SOLARINCDIR)$/external$/atl
+.ENDIF
+
+UNOTYPES= com.sun.star.bridge.ModelDependent \
+ com.sun.star.lang.XMultiServiceFactory \
+ com.sun.star.bridge.XBridgeSupplier2
+
+
+
+.IF "$(depend)" != ""
+
+.ENDIF # depend
+
+APP1TARGET= $(TARGET)
+APP1OBJS= $(OBJ)$/cppTest.obj
+LIBCMT=msvcrt.lib
+
+
+APP1STDLIBS= \
+ $(SALLIB) \
+ $(CPPUHELPERLIB) \
+ $(CPPULIB) \
+ user32.lib \
+ kernel32.lib \
+ ole32.lib \
+ oleaut32.lib \
+ uuid.lib \
+ comdlg32.lib \
+ comsupp.lib
+
+
+
+#gdi32.lib winspool.lib advapi32.lib shell32.lib odbc32.lib odbccp32.lib
+
+
+.IF "$(GUI)"=="WNT"
+APP1STDLIBS += $(LIBCIMT)
+APP2STDLIBS += $(LIBCIMT)
+.ENDIF
+
+APP1DEF= $(MISC)\$(APP1TARGET).def
+
+# --- Targets ---
+
+.INCLUDE : target.mk
+