summaryrefslogtreecommitdiff
path: root/testtools
diff options
context:
space:
mode:
authorCaolán McNamara <cmc@openoffice.org>2009-10-13 08:17:40 +0000
committerCaolán McNamara <cmc@openoffice.org>2009-10-13 08:17:40 +0000
commiteff1950b3e7871a9a186dc2d6efe1c0c55a8a858 (patch)
tree158ae626d65b3ada559d1525f4160062dc98f19f /testtools
parentf98b1af577cb875edd04ef02f6ed08454b451eba (diff)
#i105680# add struct returning bridge tests to vb as well
Diffstat (limited to 'testtools')
-rw-r--r--testtools/source/bridgetest/cli/cli_vb_testobj.vb38
1 files changed, 37 insertions, 1 deletions
diff --git a/testtools/source/bridgetest/cli/cli_vb_testobj.vb b/testtools/source/bridgetest/cli/cli_vb_testobj.vb
index 1d9482a07b58..78942280b11b 100644
--- a/testtools/source/bridgetest/cli/cli_vb_testobj.vb
+++ b/testtools/source/bridgetest/cli/cli_vb_testobj.vb
@@ -200,7 +200,43 @@ Public Class VBBridgeTestObject
Return m_testDataElements
End Function
-
+
+ Public Overridable Function echoSmallStruct( _
+ ByRef i_Struct As SmallStruct) As SmallStruct _
+ Implements XBridgeTest2.echoSmallStruct
+#if DEBUG
+ 'Console.WriteLine( "##### " + GetType().FullName + ".echoSmallStruct" )
+#endif
+ Return i_Struct
+ End Function
+
+ Public Overridable Function echoMediumStruct( _
+ ByRef i_Struct As MediumStruct) As MediumStruct _
+ Implements XBridgeTest2.echoMediumStruct
+#if DEBUG
+ 'Console.WriteLine( "##### " + GetType().FullName + ".echoMediumStruct" )
+#endif
+ Return i_Struct
+ End Function
+
+ Public Overridable Function echoBigStruct( _
+ ByRef i_Struct As BigStruct) As BigStruct _
+ Implements XBridgeTest2.echoBigStruct
+#if DEBUG
+ 'Console.WriteLine( "##### " + GetType().FullName + ".echoBigStruct" )
+#endif
+ Return i_Struct
+ End Function
+
+ Public Overridable Function echoAllFloats( _
+ ByRef i_Struct As AllFloats) As AllFloats _
+ Implements XBridgeTest2.echoAllFloats
+#if DEBUG
+ 'Console.WriteLine( "##### " + GetType().FullName + ".echoAllFloats" )
+#endif
+ Return i_Struct
+ End Function
+
' Attributes ---------------------------------------------------------
Public Overridable Property Bool As Boolean _
Implements XBridgeTest2.Bool