Rearranging menus

2020-03-12 14:03:24 +01:00 · 2020-03-12 14:03:24 +01:00 · 6b9701952a
commit 6b9701952a
parent 9fa7e795a3
3 changed files with 83 additions and 35 deletions
--- a/Addons.xcu
+++ b/Addons.xcu
@ -10,21 +10,38 @@
          <value xml:lang="en">ePublishing</value>
        </prop>
        <node oor:name="Submenu">
-          <node oor:name="HyphenationsConversion" oor:op="replace">
+          <node oor:name="cleanConfigure" oor:op="replace">
            <prop oor:name="Context" oor:type="xs:string">
-              <value>com.sun.star.text.GlobalDocument,com.sun.star.text.TextDocument,com.sun.star.text.WebDocument</value>
+              <value>com.sun.star.text.TextDocument,com.sun.star.text.WebDocument</value>
            </prop>
            <prop oor:name="Title" oor:type="xs:string">
-              <value xml:lang="en">Convert authHyphenations to manual</value>
-              <value xml:lang="ru">Конвертация автоматических переносов в ручные</value>
+              <value xml:lang="en">Configure clean</value>
+              <value xml:lang="ru">Настройка чистки</value>
            </prop>
            <prop oor:name="URL" oor:type="xs:string">
-              <value>macro:///ePublishing.Hyphenations.convertAutoHyphToManual</value>
+              <value>macro:///Redaction.Configuration.ConfigurationDialog</value>
            </prop>
            <prop oor:name="Target" oor:type="xs:string">
              <value>_self</value>
            </prop>
          </node>
+          <node oor:name="convertHyphens" oor:op="replace">
+            <prop oor:name="Context" oor:type="xs:string">
+              <value>com.sun.star.text.TextDocument,com.sun.star.text.WebDocument</value>
+            </prop>
+            <prop oor:name="Title" oor:type="xs:string">
+              <value xml:lang="en">Convert auto hyphenations to manual</value>
+              <value xml:lang="ru">Конвертация автоматических переносов в ручные</value>
+            </prop>
+            <prop oor:name="URL" oor:type="xs:string">
+              <value>macro:///ePublishing.Hyphenations.convertHyphInDoc</value>
+            </prop>
+            <prop oor:name="Target" oor:type="xs:string">
+              <value>_self</value>
+            </prop>
+          </node>
+
+        </node>
      </node>
    </node>
 </node>
--- a/description.xml
+++ b/description.xml
@ -3,7 +3,7 @@
             xmlns:dep="http://openoffice.org/extensions/description/2006"
             xmlns:xlink="http://www.w3.org/1999/xlink">
  <identifier value="pro.litvinovg.epublishing" />
-  <version value="0.0.1" />
+  <version value="0.0.3" />
  <platform value="all" />
  <display-name>
    <name lang="ru">Инструменты для создания электронных изданий</name>
--- a/ePublishing/Hyphenations.xba
+++ b/ePublishing/Hyphenations.xba
@ -1,15 +1,25 @@
 <?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="Hyphenations" script:language="StarBasic">sub markHyph1
+<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Hyphenations" script:language="StarBasic">Private Sub markHyph2
 End sub
-Sub convertHyphInDoc()
+
+Private Sub convertHyphInDoc()
+
+	Dim description As String
+	Dim allNotes As Object
+	dim aNote As Object
+	description = &quot;Запустить конвертацию автоматических переносов в ручные?&quot;
+	If NOT confirm(description) Then
+		Exit Sub
+	EndIf
 	Dim statusIndicator as Object
 	statusIndicator = ThisComponent.getCurrentController.StatusIndicator
-	statusIndicator.Start(&quot;Конвертация переносов, подождите&quot;,10)
+	statusIndicator.Start(&quot;Произвожу конвертацию, подождите&quot;,10)
+    turnOffTracking
 	AcceptAllTrackedChanges
 	convertHyphInText(ThisComponent.Text)
 &apos;	Globalscope.BasicLibraries.LoadLibrary( &quot;MRILib&quot; )
-	statusIndicator.Start(&quot;Конвертация переносов, подождите&quot;,70)
+	statusIndicator.Start(&quot;Произвожу конвертацию, подождите&quot;,70)
 	allNotes = ThisComponent.FootNotes
 	For x = 0 to allNotes.Count -1
 	  aNote = allNotes.getByIndex(x)
@ -18,9 +28,10 @@ Sub convertHyphInDoc()
 	&apos;disableAutoHyph()
 	statusIndicator.end()
 	MsgBox &quot;Конвертация переносов успешно завершена.&quot;
+
 End Sub

-sub disableAutoHyph()
+Private sub disableAutoHyph()
 	Dim propertySetInfo As Object
 	Dim oPositionOfMatch As Long
 	oFamilies = ThisComponent.StyleFamilies
@ -35,7 +46,7 @@ sub disableAutoHyph()
 	  Next
 End Sub

-Sub convertHyphInText(textElement)
+Private Sub convertHyphInText(textElement)
 	Dim enum1Element As Object
 	Dim enum1 As Object
 	Dim i As Integer
@ -57,7 +68,7 @@ Sub convertHyphInText(textElement)
 	Wend 
 End Sub

-Sub convertParaHyphens(para)
+Private Sub convertParaHyphens(para)
 	Dim lineEnd As String
 	Dim autoHyphens() As Object
 	Dim autoBreaks() As Object
@ -121,23 +132,24 @@ Sub convertParaHyphens(para)

 End Sub

-Sub	insertBreak(tCursor As Object)
+Private Sub	insertBreak(tCursor As Object)
 	&apos;U+200B Zero length space
 	tCursor.String = &quot;&quot;
 End Sub

-Function getPrevChar(tCurs As Object)
+Private Function getPrevChar(tCurs As Object)
 	tCurs.goLeft(1,true)
 	getPrevChar = tCurs.getString()
 	tCurs.goRight(1,false)
 End Function

-Function getNextChar(tCurs As Object)
+Private Function getNextChar(tCurs As Object)
 	tCurs.goRight(1,true)
 	getNextChar = tCurs.getString()
 	tCurs.goLeft(1,false)
 End Function
-Sub replaceHyphen(tCurs As Object,lineNumber As Integer)
+
+Private Sub replaceHyphen(tCurs As Object,lineNumber As Integer)
 	Dim curLineNum As Integer
 	Dim vCurs As Object
 	Dim tLine As Object
@ -160,7 +172,7 @@ Sub replaceHyphen(tCurs As Object,lineNumber As Integer)
 	EndIf
 End Sub

-Sub compressLine(tCurs As Object)
+Private Sub compressLine(tCurs As Object)
 	Dim vCurs As Object
 	Dim tLine As Object
 	Dim kerning As Integer
@ -222,7 +234,7 @@ Sub compressLine(tCurs As Object)

 End Sub

-Sub stretchLine(tCurs As Object)
+Private Sub stretchLine(tCurs As Object)
 	Dim vCurs As Object
 	Dim tLine As Object
 	Dim kerning As Integer
@ -244,7 +256,7 @@ Sub stretchLine(tCurs As Object)

 End Sub

-Function getParaLineNumber(vCursor As Object)
+Private Function getParaLineNumber(vCursor As Object)
 	Dim lineNumber As Integer
 	Dim oSavePosition As Object
 	Dim tCursor As Object
@ -263,7 +275,7 @@ Function getParaLineNumber(vCursor As Object)
 	getParaLineNumber = lineNumber
 End Function

-Function needLineBreak(before,after)
+Private Function needLineBreak(before,after)
 	needLineBreak = false
 	If before = &quot;/&quot; Then
 		If after &lt;&gt; &quot; &quot; AND after &lt;&gt; Chr(10) Then
@ -278,7 +290,7 @@ End Sub



-Function needHyphen(before As String, after As String,lineLength As Integer)
+Private Function needHyphen(before As String, after As String,lineLength As Integer)
 Dim charNumBefore as Integer
 Dim charNumAfter as Integer
 	needHyphen = true
@ -338,7 +350,7 @@ Dim charNumAfter as Integer
 End Function


-sub AcceptAllTrackedChanges
+Private sub AcceptAllTrackedChanges
 	rem ----------------------------------------------------------------------
 	rem define variables
 	dim document   as object
@ -352,5 +364,24 @@ rem ----------------------------------------------------------------------
 	dispatcher.executeDispatch(document, &quot;.uno:AcceptAllTrackedChanges&quot;, &quot;&quot;, 0, Array())
 	

-end sub
+End sub
+
+Private Sub turnOffTracking
+	document   = ThisComponent.CurrentController.Frame
+	dispatcher = createUnoService(&quot;com.sun.star.frame.DispatchHelper&quot;)
+	Dim args(0) as new com.sun.star.beans.PropertyValue
+	args(0).Name = &quot;TrackChanges&quot;
+	args(0).Value = false
+	dispatcher.executeDispatch(document, &quot;.uno:TrackChanges&quot;, &quot;&quot;, 0, args())
+	
+End Sub
+
+Private Function confirm(description)
+	If MsgBox (description, 4) =6 Then
+		confirm = true
+	Else
+		confirm = false
+	EndIf
+	
+End Function
 </script:module>