From 95f8ad6769adb3debd8d7365ef68149a5917e644 Mon Sep 17 00:00:00 2001
From: Georgy Litvinov <git@litvinovg.pro>
Date: Thu, 5 Mar 2020 20:55:14 +0100
Subject: [PATCH] Added configuration dialog

---
 Redaction/Clean.xba         |  5 ++++-
 Redaction/ConfigDialog.xdl  | 10 +++++++++
 Redaction/Configuration.xba | 44 ++++++++++++++++++++++++++++++++-----
 Redaction/dialog.xlb        |  4 +++-
 Redaction/script.xlb        |  2 +-
 5 files changed, 57 insertions(+), 8 deletions(-)
 create mode 100644 Redaction/ConfigDialog.xdl

diff --git a/Redaction/Clean.xba b/Redaction/Clean.xba
index b638190..eccd76d 100644
--- a/Redaction/Clean.xba
+++ b/Redaction/Clean.xba
@@ -1,6 +1,6 @@
 <?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="Clean" script:language="StarBasic">Sub mark23
+<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Clean" script:language="StarBasic">Sub mark24
 
 End Sub
 
@@ -15,6 +15,9 @@ Sub cleanButton
 		
 End Sub
 
+Sub makerUpMenu()
+End Sub
+
 Private Sub quietCleaning
 	Dim description As String
 	Dim statusIndicator as Object
diff --git a/Redaction/ConfigDialog.xdl b/Redaction/ConfigDialog.xdl
new file mode 100644
index 0000000..5e124fd
--- /dev/null
+++ b/Redaction/ConfigDialog.xdl
@@ -0,0 +1,10 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE dlg:window PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "dialog.dtd">
+<dlg:window xmlns:dlg="http://openoffice.org/2000/dialog" xmlns:script="http://openoffice.org/2000/script" dlg:id="ConfigDialog" dlg:left="196" dlg:top="109" dlg:width="157" dlg:height="64" dlg:closeable="true" dlg:moveable="true">
+ <dlg:bulletinboard>
+  <dlg:checkbox dlg:id="CB_complexity" dlg:tab-index="0" dlg:left="5" dlg:top="13" dlg:width="150" dlg:height="19" dlg:value="Включить расширенное управление чисткой" dlg:checked="false"/>
+  <dlg:button dlg:id="OK" dlg:tab-index="1" dlg:left="9" dlg:top="45" dlg:width="59" dlg:height="13" dlg:value="Сохранить" dlg:button-type="ok"/>
+  <dlg:button dlg:id="CommandButton1" dlg:tab-index="2" dlg:left="-132" dlg:top="41" dlg:width="2" dlg:height="0" dlg:value="CommandButton1"/>
+  <dlg:button dlg:id="CANCEL" dlg:tab-index="3" dlg:left="77" dlg:top="45" dlg:width="59" dlg:height="13" dlg:value="Отмена" dlg:button-type="cancel"/>
+ </dlg:bulletinboard>
+</dlg:window>
\ No newline at end of file
diff --git a/Redaction/Configuration.xba b/Redaction/Configuration.xba
index ac8eb0e..73f75fb 100644
--- a/Redaction/Configuration.xba
+++ b/Redaction/Configuration.xba
@@ -1,6 +1,6 @@
 <?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 redactionExtenstionName As String = &quot;cleanAndValidate&quot;
+<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;
 
 Function initRedactionConfiguration()
 	On Error Goto exceptionHandler
@@ -9,9 +9,9 @@ Function initRedactionConfiguration()
     Dim props(2) As New com.sun.star.beans.PropertyValue
 
     regFactory = CreateUnoService(&quot;com.sun.star.ucb.Store&quot;)
-    reg = regFactory.createPropertySetRegistry(redactionExtenstionName)
+    reg = regFactory.createPropertySetRegistry(redactionExtensionName)
 
-   	redactionProps = reg.openPropertySet(redactionExtenstionName, TRUE)
+   	redactionProps = reg.openPropertySet(redactionExtensionName, TRUE)
    	redactionProps.addProperty(&quot;complexity&quot;, 128, &quot;user&quot;)
 	initConfigureation = redactionProps
 	exceptionHandler:
@@ -19,9 +19,43 @@ Function initRedactionConfiguration()
 	initRedactionConfiguration = redactionProps
 End Function
 
-Sub setRedactionComplexity(complexityLevel)
+Private Sub setConfigFromDialog(dialog)
 	Dim config As Object
 	config = initRedactionConfiguration()
-	config.setPropertyValue(&quot;complexity&quot;, complexityLevel)
+	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
+End Sub
+
+Private Sub loadConfigToDialog(dialog)
+	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
+
+End Sub
+
+Private Sub configurationDialog
+	Dim dialog As Object
+	DialogLibraries.LoadLibrary(&quot;Redaction&quot;)
+	dialog = CreateUnoDialog(DialogLibraries.Redaction.ConfigDialog)
+	loadConfigToDialog(dialog)
+	dialog.setVisible(true)
+	Select Case dialog.Execute()
+    Case 1
+        setConfigFromDialog(dialog)
+    Case 0
+    End Select
+
+    dialog.setVisible(false)
+    dialog.dispose()
+    Exit sub
+
+	
 End Sub
 </script:module>
\ No newline at end of file
diff --git a/Redaction/dialog.xlb b/Redaction/dialog.xlb
index 31106b9..074778b 100644
--- a/Redaction/dialog.xlb
+++ b/Redaction/dialog.xlb
@@ -1,3 +1,5 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd">
-<library:library xmlns:library="http://openoffice.org/2000/library" library:name="Redaction" library:readonly="false" library:passwordprotected="false"/>
+<library:library xmlns:library="http://openoffice.org/2000/library" library:name="Redaction" library:readonly="false" library:passwordprotected="false">
+ <library:element library:name="ConfigDialog"/>
+</library:library>
\ No newline at end of file
diff --git a/Redaction/script.xlb b/Redaction/script.xlb
index e1daf7f..9cbed8d 100644
--- a/Redaction/script.xlb
+++ b/Redaction/script.xlb
@@ -4,4 +4,4 @@
  <library:element library:name="Validation"/>
  <library:element library:name="Clean"/>
  <library:element library:name="Configuration"/>
-</library:library>
+</library:library>
\ No newline at end of file