diff options
author | Andrea Gelmini <andrea.gelmini@gelma.net> | 2023-06-27 14:35:12 +0200 |
---|---|---|
committer | Julien Nabet <serval2412@yahoo.fr> | 2023-06-28 07:05:10 +0200 |
commit | c8eb695574986fdda5147adf958432c31a354592 (patch) | |
tree | aedb4181ba9f10de45360dcdb28a94dc66cadb32 | |
parent | 56da3d41bbd2f7c48dc108a8697757b1493030e0 (diff) |
Fix typo
Change-Id: I41ca7f8c9b998436f0b2810236161697e9f501c8
Reviewed-on: https://gerrit.libreoffice.org/c/core/+/153675
Tested-by: Jenkins
Reviewed-by: Julien Nabet <serval2412@yahoo.fr>
-rw-r--r-- | extensions/test/ole/VisualBasic/Module1.vb | 4 |
1 files changed, 2 insertions, 2 deletions
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
|