cleanandvalidate/Redaction/Configuration.xba

<?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="Configuration" script:language="StarBasic" script:moduleType="normal">Public Const redactionExtensionName As String = &quot;cleanAndValidate&quot;
Public Const redactionExtensionVersion = &quot;0.9.17&quot;
Function initRedactionConfiguration()
	On Error Goto exceptionHandler
	Dim regFactory As Object
	Dim reg As Object
	Dim redactionProps As Object
    Dim props(2) As New com.sun.star.beans.PropertyValue
    Dim propSetInfo As Object
    regFactory = CreateUnoService(&quot;com.sun.star.ucb.Store&quot;)
    reg = regFactory.createPropertySetRegistry(redactionExtensionName)
   	redactionProps = reg.openPropertySet(redactionExtensionName, TRUE)
   	propSetInfo = redactionProps.getPropertySetInfo()
   	If Not propSetInfo.hasPropertyByName(&quot;fixes_russian_iph&quot;) Then
      redactionProps.addProperty(&quot;fixes_russian_iph&quot;, 128, &quot;true&quot;)
   	EndIf
   	If Not propSetInfo.hasPropertyByName(&quot;complexity&quot;) Then
      redactionProps.addProperty(&quot;complexity&quot;, 128, &quot;user&quot;)
   	EndIf
 	exceptionHandler:
    Resume Next
   	On Error Goto exceptionHandler2	
   	If Not propSetInfo.hasPropertyByName(&quot;complexity&quot;) Then
      redactionProps.addProperty(&quot;defaultTemplate&quot;, 128, &quot;Статья.ott&quot;)
   	EndIf 
   	exceptionHandler2:
    Resume Next  
	initRedactionConfiguration = redactionProps
End Function

Private Sub setConfigFromDialog(dialog As Object)
	Dim config As Object
	config = initRedactionConfiguration()
	
	If dialog.getControl(&quot;CB_complexity&quot;).state = 1 Then
        config.setPropertyValue(&quot;complexity&quot;, &quot;makerUp&quot;)
    Else
		config.setPropertyValue(&quot;complexity&quot;, &quot;user&quot;)
	EndIf
	
	If dialog.getControl(&quot;cb_russian_fixes_iph&quot;).state = 1 Then
        config.setPropertyValue(&quot;fixes_russian_iph&quot;, &quot;true&quot;)
    Else
		config.setPropertyValue(&quot;fixes_russian_iph&quot;, &quot;false&quot;)
	EndIf
	
End Sub

Private Sub loadConfigToDialog(dialog As Object)
	Dim config As Object
	config = initRedactionConfiguration()
	If config.getPropertyValue(&quot;complexity&quot;) = &quot;makerUp&quot; Then
        dialog.getControl(&quot;CB_complexity&quot;).state = 1
    Else
        dialog.getControl(&quot;CB_complexity&quot;).state = 0
    EndIf
    
    If config.getPropertyValue(&quot;fixes_russian_iph&quot;) = &quot;true&quot; Then
        dialog.getControl(&quot;cb_russian_fixes_iph&quot;).state = 1
    Else
        dialog.getControl(&quot;cb_russian_fixes_iph&quot;).state = 0
    EndIf


End Sub

Private Sub configurationDialog
	Dim dialog As Object
	DialogLibraries.LoadLibrary(&quot;Redaction&quot;)
	dialog = CreateUnoDialog(DialogLibraries.Redaction.ConfigDialog)
    loadConfigToDialog(dialog)
    dialog.getControl(&quot;CB_complexity&quot;).Label = getTranslation(&quot;dialogConfigComplexity&quot;)
    dialog.getControl(&quot;cb_russian_fixes_iph&quot;).Label = getTranslation(&quot;dialogRussianFixesIPH&quot;)
    dialog.Title = getTranslation(&quot;dialogConfigTitle&quot;)
    dialog.getControl(&quot;OK&quot;).Label = getTranslation(&quot;buttonYes&quot;)
    dialog.getControl(&quot;CANCEL&quot;).Label = getTranslation(&quot;buttonStop&quot;)
	dialog.setVisible(true)
	Select Case dialog.Execute()
    Case 1
        setConfigFromDialog(dialog)
    Case 0
    End Select
    dialog.setVisible(false)
    dialog.dispose()
    Exit sub
End Sub

Private Sub quietStartDialog
	Dim dialog As Object
	DialogLibraries.LoadLibrary(&quot;Redaction&quot;)
	dialog = CreateUnoDialog(DialogLibraries.Redaction.StartQuietCleaning)
	Dim description As String
	Dim buttonNameOk As String
	Dim buttonNameStop As String
	Dim buttonNameLoad As String
	Dim dialogTitle As String
	description = getTranslation(&quot;startQuietCleaningDescription&quot;)
	buttonNameOk = getTranslation(&quot;buttonYes&quot;)
	buttonNameStop = getTranslation(&quot;buttonStop&quot;)
	buttonNameLoad = getTranslation(&quot;buttonLoad&quot;)
	dialogTitle = getTranslation(&quot;quietStartCleaningTitle&quot;)
	dialog.Title = dialogTitle
	dialog.getControl(&quot;Description&quot;).setText(description)
	dialog.getControl(&quot;buttonOk&quot;).Label = buttonNameOk
	dialog.getControl(&quot;buttonStop&quot;).Label = buttonNameStop
	dialog.getControl(&quot;buttonLoad&quot;).Label = buttonNameLoad
	dialog.setVisible(true)
	Select Case dialog.Execute()
      Case 1
        dialog.setVisible(false)
        dialog.dispose()
		quietCleaning
      Case 0
      	dialog.setVisible(false)
        dialog.dispose()
    End Select

    Exit sub
End Sub

Private Sub noStylesFileDialog
	&apos;Globalscope.BasicLibraries.LoadLibrary( &quot;MRILib&quot; )
	Dim dialog As Object
	DialogLibraries.LoadLibrary(&quot;Redaction&quot;)
	dialog = CreateUnoDialog(DialogLibraries.Redaction.NoStyleFile)
	Dim description As String
	Dim buttonName As String
	Dim dialogTitle As String
	Dim buttonTemplateNotFoundSkip As String
	dialogTitle = getTranslation(&quot;noStylesFileDialogTitle&quot;)
	description = getTranslation(&quot;noFileWithStylesFound&quot;)
	buttonName = getTranslation(&quot;buttonNameToSelectFileWithStyles&quot;)
	buttonTemplateNotFoundSkip = getTranslation(&quot;buttonTemplateNotFoundSkip&quot;)
	dialog.Title = dialogTitle
	dialog.getControl(&quot;Description&quot;).setText(description)
	dialog.getControl(&quot;FileSelection&quot;).Label = buttonName
	dialog.getControl(&quot;buttonOk&quot;).Label = buttonTemplateNotFoundSkip
		dialog.setVisible(true)
	Select Case dialog.Execute()
    Case 1
		setDeafultTemplate()
    Case 0
    
    End Select
    dialog.setVisible(false)
    dialog.dispose()
    Exit sub
End Sub



Sub setDeafultTemplate()
	Dim selectedTemplate As String
    selectedTemplate = getFileURLDialog()
    oSimpleFileAccess = CreateUnoService( &quot;com.sun.star.ucb.SimpleFileAccess&quot; )
    If NOT (oSimpleFileAccess.exists( selectedTemplate ) AND NOT oSimpleFileAccess.isFolder( selectedTemplate ) ) Then
      Exit sub
    End If
	Dim fileName As String
	Dim config As Object
	config = initRedactionConfiguration()
	fileName = Dir(selectedTemplate)
	config.setPropertyValue(&quot;defaultTemplate&quot;,fileName)
	Dim templatePath As String
	templatePath = getTemplatePath()
	FileCopy(selectedTemplate, templatePath &amp; &quot;/&quot; &amp; fileName)	
End Sub

 Function getFileURLDialog() As String
      Dim oFilePicker As Object, oSimpleFileAccess As Object
      Dim oSettings As Object, oPathSettings As Object
      Dim oTextField As Object, oTextFieldModel As Object
      Dim sFileURL As String
      Dim sFiles As Variant
      oFilePicker = CreateUnoService( &quot;com.sun.star.ui.dialogs.FilePicker&quot; )
      oFilePicker.AppendFilter( &quot;All files (*.*)&quot;, &quot;*.*&quot; )
      oFilePicker.AppendFilter( &quot;Open Document Text&quot;, &quot;*.odt;*.ott&quot; )
      oFilePicker.SetCurrentFilter( &quot;Open Document Text&quot; )
      If sFileURL = &quot;&quot; Then
          oPathSettings = CreateUnoService( &quot;com.sun.star.util.PathSettings&quot; )
          sFileURL = oPathSettings.Work
      End If
      REM set display directory
      oSimpleFileAccess = CreateUnoService( &quot;com.sun.star.ucb.SimpleFileAccess&quot; )
      If oSimpleFileAccess.exists( sFileURL ) And oSimpleFileAccess.isFolder( sFileURL ) Then
          oFilePicker.setDisplayDirectory( sFileURL )
      End If

      If oFilePicker.execute() Then
          sFiles = oFilePicker.getFiles()
          sFileURL = sFiles(0)
          If oSimpleFileAccess.exists( sFileURL ) Then
              getFileURLDialog = sFileURL
              Exit Function
          End If
      End If
      getFileURLDialog = &quot;&quot;
  End Function
</script:module>