https://bugs.freedesktop.org/show_bug.cgi?id=41128

           Summary: Hyphenation doesn't honour properties in Basic
           Product: LibreOffice
           Version: LibO 3.4.3 release
          Platform: x86-64 (AMD64)
        OS/Version: Windows (All)
            Status: NEW
          Severity: normal
          Priority: medium
         Component: Libreoffice
        AssignedTo: [email protected]
        ReportedBy: [email protected]


Symptoms:
The attached code returns 'ra=dio'.

Expected behaviour:
The word 'radio' shouldn't be hyphenated.

Steps to reproduce:
Execute the attached code.

Thanks,
Stephan Hennig

Sub Main
    Dim oHyphen As Object
    Dim oLocale As New com.sun.star.lang.Locale
    Dim emptyArgs(2) As New com.sun.star.beans.PropertyValue
    emptyArgs(0).Name = "HyphMinLeading"
    emptyArgs(0).Value = 4
    emptyArgs(1).Name = "HyphMinTrailing"
    emptyArgs(1).Value = 4
    emptyArgs(2).Name = "HyphMinWordLength"
    emptyArgs(2).Value = 9
    Dim vReturn
    Dim sWord, sHyphWord As String
    Dim msg As String

    oHyphen = createUnoService("com.sun.star.linguistic2.Hyphenator")
    oLocale.Language = "en"
    oLocale.Country = "US"
    sWord = "radio"

    vReturn = oHyphen.createPossibleHyphens(sWord, oLocale, emptyArgs())
    If IsNull(vReturn) Then
        sHyphWord = "Null"
    Else
        sHyphWord = vReturn.getPossibleHyphens()
    End If

    msg = "Hyphenating " & sWord & CHR$(10) & _
        "Result: " & sHyphWord & CHR$(10)
    MsgBox msg, 0, "Hyphenate Words"
End Sub

-- 
Configure bugmail: https://bugs.freedesktop.org/userprefs.cgi?tab=email
------- You are receiving this mail because: -------
You are the assignee for the bug.
_______________________________________________
Libreoffice-bugs mailing list
[email protected]
http://lists.freedesktop.org/mailman/listinfo/libreoffice-bugs

Reply via email to