diff options
Diffstat (limited to 'wizards/source/access2base/Utils.xba')
-rw-r--r-- | wizards/source/access2base/Utils.xba | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/wizards/source/access2base/Utils.xba b/wizards/source/access2base/Utils.xba index 65221aba3007..52ab91a7db58 100644 --- a/wizards/source/access2base/Utils.xba +++ b/wizards/source/access2base/Utils.xba @@ -209,7 +209,7 @@ End Function ' CStr V0.9.5 REM ----------------------------------------------------------------------------------------------------------------------- Public Function _CVar(ByRef psArg As String, ByVal Optional pbStrDate As Boolean) As Variant -' psArg is presumed an output of _CStr (stored in the mean time in a text file f.i.) +' psArg is presumed an output of _CStr (stored in the meantime in a text file f.i.) ' _CVar returns the corresponding original variant variable or Null/Nothing if not possible ' Return values may of types Array, Long, Double, Date, Boolean, String, Null or Empty ' pbStrDate = True keeps dates as strings @@ -1027,7 +1027,7 @@ Dim oEvents As Object, sEvent As String, sEventName As String, oEvent As Object _RegisterDialogEventScript = False If Not _hasUNOMethod(poObject, "getEvents") Then Exit Function -' Remove existing event, if any, than store new script code +' Remove existing event, if any, then store new script code Set oEvents = poObject.getEvents() sEvent = Utils._GetEventName(psEvent) sEventName = "com.sun.star.awt." & psListener & "::" & sEvent @@ -1356,4 +1356,4 @@ Private Function _UTF8Encode(ByVal psChar As String) As String End Function ' _UTF8Encode V1.4.0 -</script:module>
\ No newline at end of file +</script:module> |