0bb042d442
+ workaround for setPosSize issue (LO 4.1) + "Sidebar" argument for RunCommand + Trace dialog layout revisit for cleaner display in Linux Change-Id: I0d5c4da5681ab1649d062a7133d507163163343e Reviewed-on: https://gerrit.libreoffice.org/6449 Reviewed-by: Lionel Elie Mamane <lionel@mamane.lu> Tested-by: Lionel Elie Mamane <lionel@mamane.lu>
52 lines
No EOL
2.1 KiB
XML
52 lines
No EOL
2.1 KiB
XML
<?xml version="1.0" encoding="UTF-8"?>
|
|
<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
|
|
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Compatible" script:language="StarBasic">REM =======================================================================================================================
|
|
REM === The Access2Base library is a part of the LibreOffice project. ===
|
|
REM === Full documentation is available on http://www.access2base.com ===
|
|
REM =======================================================================================================================
|
|
|
|
Option Compatible
|
|
Option Explicit
|
|
|
|
REM -----------------------------------------------------------------------------------------------------------------------
|
|
Public Sub DebugPrint(ParamArray pvArgs() As Variant)
|
|
|
|
'Print arguments unconditionnally in console
|
|
'Arguments are separated by a TAB (simulated by spaces)
|
|
'Some pvArgs might be missing: a TAB is still generated
|
|
|
|
Dim vVarTypes() As Variant, i As Integer
|
|
Const cstTab = 5
|
|
On Local Error Goto Exit_Sub ' Never interrupt processing
|
|
Utils._SetCalledSub("DebugPrint")
|
|
vVarTypes = Utils._AddNumeric(Array(vbEmpty, vbNull, vbDate, vbString, vbBoolean, vbObject, vbVariant))
|
|
|
|
If UBound(pvArgs) >= 0 Then
|
|
For i = 0 To UBound(pvArgs)
|
|
' If IsError(pvArgs(i)) Then ' IsError gives "Object variable not set" in LO 4,0 ?!?
|
|
' pvArgs(i) = "[ERROR]"
|
|
' Else
|
|
If Not Utils._CheckArgument(pvArgs(i), i + 1, vVarTypes(), , False) Then pvArgs(i) = "[TYPE?]"
|
|
' End If
|
|
Next i
|
|
End If
|
|
|
|
Dim sOutput As String, sArg As String
|
|
sOutput = ""
|
|
For i = 0 To UBound(pvArgs)
|
|
sArg = Utils._CStr(pvArgs(i))
|
|
' Add argument to output
|
|
If i = 0 Then
|
|
sOutput = sArg
|
|
Else
|
|
sOutput = sOutput & Space(cstTab - (Len(sOutput) Mod cstTab)) & sArg
|
|
End If
|
|
Next i
|
|
|
|
TraceLog(TRACEANY, sOutput, False)
|
|
|
|
Exit_Sub:
|
|
Utils._ResetCalledSub("DebugPrint")
|
|
Exit Sub
|
|
End Sub ' DebugPrint V0.9.5
|
|
</script:module> |