diff options
author | Caolán McNamara <cmc@openoffice.org> | 2009-10-13 08:17:40 +0000 |
---|---|---|
committer | Caolán McNamara <cmc@openoffice.org> | 2009-10-13 08:17:40 +0000 |
commit | eff1950b3e7871a9a186dc2d6efe1c0c55a8a858 (patch) | |
tree | 158ae626d65b3ada559d1525f4160062dc98f19f /testtools/source | |
parent | f98b1af577cb875edd04ef02f6ed08454b451eba (diff) |
#i105680# add struct returning bridge tests to vb as well
Diffstat (limited to 'testtools/source')
-rw-r--r-- | testtools/source/bridgetest/cli/cli_vb_testobj.vb | 38 |
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 |