validation status indicator

Redaction/Configuration.xba

@@ -1,7 +1,7 @@
 <?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.8.5&quot;
+Public Const redactionExtensionVersion = &quot;0.8.6&quot;
 Function initRedactionConfiguration()
 	On Error Goto exceptionHandler
 	Dim regFactory As Object

Redaction/Validation.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="Validation" script:language="StarBasic">Sub markval9
+<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Validation" script:language="StarBasic">Sub markval10
 
 End Sub
 
@@ -34,14 +34,25 @@ Sub validateButton
 	Dim needExtendedInfo As Boolean
 	Dim config As Object
  	config = initRedactionConfiguration()
+ 	
+ 	Dim statusIndicator as Object
+	statusIndicator = ThisComponent.getCurrentController.statusIndicator
+	statusIndicator.Start(getTranslation(&quot;validationStarted&quot;),100)
+	
 	badText = false
 	badNumberings = false
 	footnotesReport = noteSingsCheck
+	statusIndicator.setValue(10)
 	graphicsReport = checkGraphics
+	statusIndicator.setValue(20)
 	sectionsReport = checkSectionsInTables
+	statusIndicator.setValue(30)
 	outlineInNotesReport = checkNotesOutline()
+	statusIndicator.setValue(40)
 	outlinePageStylesReport = checkHeadingsInHeadersFooters
+	statusIndicator.setValue(50)
 	oulineInTablesReport = checkHeadingsInTextTables
+	statusIndicator.setValue(60)
 	If outlineInNotesReport &lt;&gt; &quot;&quot; Then
 		MsgBox outlineInNotesReport
 	EndIf
@@ -72,7 +83,7 @@ Sub validateButton
 	EndIf
 	
 	printNumberingSymbols(needExtendedInfo)
-	
+	statusIndicator.setValue(80)
 	If badText OR badNumberings OR footnotesReport &lt;&gt; &quot;&quot; OR graphicsReport &lt;&gt; &quot;&quot; Or outlineInNotesReport &lt;&gt; &quot;&quot; Or sectionsReport &lt;&gt; &quot;&quot; OR oulineInTablesReport &lt;&gt; &quot;&quot; OR outlinePageStylesReport &lt;&gt; &quot;&quot; Then
 		MsgBox getTranslation(&quot;validationWarning&quot;)	
 		If badText Then
@@ -82,6 +93,7 @@ Sub validateButton
 	Else
       MsgBox getTranslation(&quot;validationSuccess&quot;)
 	EndIf
+	statusIndicator.end()
 End Sub
 
 Private Function checkGraphics() As String

build.gradle

@@ -1,4 +1,4 @@
-def releaseVersion = "0.8.5"
+def releaseVersion = "0.8.6"
 task oxt(type: Zip) {
    dependsOn = [ 'setVersion','setVersionInBasicCode' ]
    from './'

description.xml

@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <description xmlns="http://openoffice.org/extensions/description/2006" xmlns:dep="http://openoffice.org/extensions/description/2006" xmlns:xlink="http://www.w3.org/1999/xlink">
   <identifier value="pro.litvinovg.Redaction"/>
-  <version value="0.8.5"/>
+  <version value="0.8.6"/>
   <platform value="all"/>
   <display-name>
     <name lang="en">Cleaning and validation documents for publishing in html and epub with pagination</name>