https://bugs.documentfoundation.org/show_bug.cgi?id=162094

--- Comment #2 from Corneloup <[email protected]> ---
I have finally identified the origin, which is connected with the ScriptForge
Library. Here is the code to get the bug.

Sub Test
'If the ScriptForge Library is not loaded, the variable "properties"
'is an array of 15 com.sun.star.beans.Property => normal behaviour
'If the library is loaded, "properties" is an array of 5 strings :
'      "sfCR", "sfCRLF", "srLF", "sfNEWLINE", "sfTAB"

'Uncomment the following line to get the bug
'GlobalScope.BasicLibraries.LoadLibrary("ScriptForge")

URL         = "file:///C:/Users/Public"
ucbBroker   = CreateUnoService("com.sun.star.ucb.UniversalContentBroker")
fileID      = ucbBroker.createContentIdentifier(URL)
ucbContent  = ucbBroker.queryContent(fileID)            

Dim command as new com.sun.star.ucb.Command
command.Name     = "getPropertySetInfo"
command.Argument = Nothing
propSet          = ucbContent.execute(command, 0, Nothing) 
properties       = propSet.getProperties()

MsgBox("Number of Properties : " & (UBOUND(properties)+1))
End Sub

I first thought it was connected with an exception for I use a personal tool to
debug exceptions, and this tool uses the ScriptForge library.

-- 
You are receiving this mail because:
You are the assignee for the bug.

Reply via email to