Private Declare Sub DiagAdapterMenuWLL Lib "Diagonal_adapter_helper.wll" ()

Private Declare Sub ButtonDispatch Lib "Diagonal_adapter_helper.wll" (ByVal id As Long)

Private Declare Function GetToolTipsText Lib "Diagonal_adapter_helper.wll" (ByVal toolTipsText As String, ByVal actionName As String) As Boolean

Sub DiagAdapterMenu()
DiagAdapterMenuWLL
End Sub
                           

Sub Analyse orthographique()
ButtonDispatch (1)
End Sub

Sub Analyse typographique()
ButtonDispatch (2)
End Sub

Sub Analyse grammaticale()
ButtonDispatch (3)
End Sub

Sub Myriade()
ButtonDispatch (4)
End Sub

Sub Chartes typographiques()
ButtonDispatch (5)
End Sub

Sub Dictionnaires personnels()
ButtonDispatch (6)
End Sub

Sub Préférences de Pro Lexis()
ButtonDispatch (7)
End Sub

Sub ChangeToolTips()
    Dim rc As Boolean
    Dim actionName As String
    Dim toolTipsText As String * 256
    
    Set toolPalette = CommandBars("Pro Lexis")
    For i = 1 To toolPalette.Controls.Count
        actionName = toolPalette.Controls.Item(i).OnAction
        rc = GetToolTipsText(toolTipsText, actionName)
        If rc Then
            toolPalette.Controls.Item(i).TooltipText = toolTipsText
        End If
    Next i
End Sub