extensions/test/ole/VisualBasic/Module1.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-)
New commits: commit c8eb695574986fdda5147adf958432c31a354592 Author: Andrea Gelmini <andrea.gelm...@gelma.net> AuthorDate: Tue Jun 27 14:35:12 2023 +0200 Commit: Julien Nabet <serval2...@yahoo.fr> CommitDate: Wed Jun 28 07:05:10 2023 +0200 Fix typo Change-Id: I41ca7f8c9b998436f0b2810236161697e9f501c8 Reviewed-on: https://gerrit.libreoffice.org/c/core/+/153675 Tested-by: Jenkins Reviewed-by: Julien Nabet <serval2...@yahoo.fr> diff --git a/extensions/test/ole/VisualBasic/Module1.vb b/extensions/test/ole/VisualBasic/Module1.vb index 63b8bbdeb17f..56b83beb3cea 100644 --- a/extensions/test/ole/VisualBasic/Module1.vb +++ b/extensions/test/ole/VisualBasic/Module1.vb @@ -477,14 +477,14 @@ Public Sub Main() objOleTest2.AttrAny2 = "VBString " 'testinout_methodXInterfaces substitutes the argument with the object set in in_methodXInterface - objOleTest.AttrAny2 = "VBString this string was written in the UNO component to the inout pararmeter" + objOleTest.AttrAny2 = "VBString this string was written in the UNO component to the inout parameter" objOleTest.in_methodXInterface(objOleTest) objOleTest.testinout_methodXInterface2(objOleTest2) Dim tmpVar As Object tmpVar = System.DBNull.Value 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 + If tmpVar <> "VBString this string was written in the UNO component to the inout parameter" Then MsgBox("error") End If