Fixes
This commit is contained in:
parent
75fd6c8192
commit
eca9f9f41b
6 changed files with 37 additions and 9 deletions
|
|
@ -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 mark43
|
||||
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Clean" script:language="StarBasic">Sub mark44
|
||||
|
||||
End Sub
|
||||
|
||||
|
|
|
|||
|
|
@ -71,10 +71,13 @@ Private Sub quietStartDialog
|
|||
Dim buttonNameOk As String
|
||||
Dim buttonNameStop As String
|
||||
Dim buttonNameLoad As String
|
||||
Dim dialogTitle As String
|
||||
description = getTranslation(lang,"startQuietCleaningDescription")
|
||||
buttonNameOk = getTranslation(lang,"buttonOk")
|
||||
buttonNameStop = getTranslation(lang,"buttonStop")
|
||||
buttonNameLoad = getTranslation(lang,"buttonLoad")
|
||||
dialogTitle = getTranslation(lang,"quietStartCleaningTitle")
|
||||
dialog.Title = dialogTitle
|
||||
dialog.getControl("Description").setText(description)
|
||||
dialog.getControl("buttonOk").Label = buttonNameOk
|
||||
dialog.getControl("buttonStop").Label = buttonNameStop
|
||||
|
|
@ -102,14 +105,20 @@ Private Sub noStylesFileDialog
|
|||
lang = GetStarOfficeLocale().Language
|
||||
Dim description As String
|
||||
Dim buttonName As String
|
||||
Dim dialogTitle As String
|
||||
Dim buttonTemplateNotFoundSkip As String
|
||||
dialogTitle = getTranslation(lang,"noStylesFileDialogTitle")
|
||||
description = getTranslation(lang,"noFileWithStylesFound")
|
||||
buttonName = getTranslation(lang,"buttonNameToSelectFileWithStyles")
|
||||
buttonTemplateNotFoundSkip = getTranslation(lang,"buttonTemplateNotFoundSkip")
|
||||
dialog.Title = dialogTitle
|
||||
dialog.getControl("Description").setText(description)
|
||||
dialog.getControl("FileSelection").Label = buttonName
|
||||
dialog.setVisible(true)
|
||||
dialog.getControl("buttonOk").Label = buttonTemplateNotFoundSkip
|
||||
dialog.setVisible(true)
|
||||
Select Case dialog.Execute()
|
||||
Case 1
|
||||
setDeafultTemplate(selectedTemplate)
|
||||
setDeafultTemplate()
|
||||
Case 0
|
||||
|
||||
End Select
|
||||
|
|
@ -123,9 +132,10 @@ End Sub
|
|||
Sub setDeafultTemplate()
|
||||
Dim selectedTemplate As String
|
||||
selectedTemplate = getFileURLDialog()
|
||||
If IsEmpty(selectedTemplate) Then
|
||||
Exit sub
|
||||
EndIf
|
||||
oSimpleFileAccess = CreateUnoService( "com.sun.star.ucb.SimpleFileAccess" )
|
||||
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()
|
||||
|
|
|
|||
|
|
@ -2,9 +2,9 @@
|
|||
<!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="NoStyleFile" dlg:left="140" dlg:top="101" dlg:width="239" dlg:height="98" dlg:help-text="&5.NoStyleFile.HelpText" dlg:closeable="true" dlg:moveable="true" dlg:title="&6.NoStyleFile.Title">
|
||||
<dlg:bulletinboard>
|
||||
<dlg:button dlg:id="CommandButton1" dlg:tab-index="0" dlg:left="138" dlg:top="75" dlg:width="60" dlg:height="13" dlg:help-text="&13.NoStyleFile.CommandButton1.HelpText" dlg:value="&14.NoStyleFile.CommandButton1.Label" dlg:button-type="cancel"/>
|
||||
<dlg:button dlg:id="CommandButton2" dlg:tab-index="1" dlg:left="167" dlg:top="139" dlg:width="1" dlg:height="0" dlg:help-text="&15.NoStyleFile.CommandButton2.HelpText" dlg:value="&16.NoStyleFile.CommandButton2.Label"/>
|
||||
<dlg:button dlg:id="FileSelection" dlg:tab-index="2" dlg:left="46" dlg:top="75" dlg:width="60" dlg:height="13" dlg:help-text="&19.NoStyleFile.FileSelection.HelpText" dlg:value="&20.NoStyleFile.FileSelection.Label" dlg:button-type="ok"/>
|
||||
<dlg:text dlg:id="Description" dlg:tab-index="3" dlg:left="23" dlg:top="13" dlg:width="192" dlg:height="52" dlg:help-text="&27.NoStyleFile.Description.HelpText" dlg:value="&28.NoStyleFile.Description.Label"/>
|
||||
<dlg:button dlg:id="buttonOk" dlg:tab-index="0" dlg:left="138" dlg:top="75" dlg:width="60" dlg:height="13" dlg:help-text="&13.NoStyleFile.CommandButton1.HelpText" dlg:value="ok" dlg:button-type="cancel"/>
|
||||
</dlg:bulletinboard>
|
||||
</dlg:window>
|
||||
|
|
@ -6,7 +6,7 @@
|
|||
<dlg:button dlg:id="buttonOk" dlg:tab-index="1" dlg:left="15" dlg:top="71" dlg:width="52" dlg:height="17" dlg:help-text="&55.StartQuietCleaning.buttonOk.HelpText" dlg:value="&56.StartQuietCleaning.buttonOk.Label" dlg:button-type="ok"/>
|
||||
<dlg:button dlg:id="buttonStop" dlg:tab-index="3" dlg:left="84" dlg:top="71" dlg:width="52" dlg:height="17" dlg:help-text="&57.StartQuietCleaning.buttonStop.HelpText" dlg:value="&58.StartQuietCleaning.buttonStop.Label" dlg:button-type="cancel"/>
|
||||
<dlg:button dlg:id="buttonLoad" dlg:tab-index="2" dlg:left="156" dlg:top="71" dlg:width="52" dlg:height="17" dlg:help-text="&59.StartQuietCleaning.buttonLoad.HelpText" dlg:value="&60.StartQuietCleaning.buttonLoad.Label">
|
||||
<script:event script:event-name="on-performaction" script:macro-name="vnd.sun.star.script:Redaction.Configuration.noStylesFileDialog?language=Basic&location=application" script:language="Script"/>
|
||||
<script:event script:event-name="on-performaction" script:macro-name="vnd.sun.star.script:Redaction.Configuration.setDeafultTemplate?language=Basic&location=application" script:language="Script"/>
|
||||
</dlg:button>
|
||||
</dlg:bulletinboard>
|
||||
</dlg:window>
|
||||
|
|
@ -23,6 +23,15 @@ Function getRussian(identifier As String) As String
|
|||
Case "buttonOk"
|
||||
getRussian = "Да"
|
||||
Exit Function
|
||||
Case "quietStartCleaningTitle"
|
||||
getRussian = "Подтверждение запуска чистки"
|
||||
Exit Function
|
||||
Case "noStylesFileDialogTitle"
|
||||
getRussian = "Файл со стилями не найден"
|
||||
Exit Function
|
||||
Case "buttonTemplateNotFoundSkip"
|
||||
getRussian = "Продолжить"
|
||||
Exit Function
|
||||
Case "buttonStop"
|
||||
getRussian = "Нет"
|
||||
Exit Function
|
||||
|
|
@ -46,6 +55,15 @@ Function getEnglish(identifier As String) As String
|
|||
Case "startQuietCleaningDescription"
|
||||
getEnglish = "Do you want to start document cleaning?" & chr(10) & "You can choose template with styles to load them in process of the cleaning."
|
||||
Exit Function
|
||||
Case "noStylesFileDialogTitle"
|
||||
getEnglish = "Template file not found"
|
||||
Exit Function
|
||||
Case "quietStartCleaningTitle"
|
||||
getEnglish = "Confirmation"
|
||||
Exit Function
|
||||
Case "buttonTemplateNotFoundSkip"
|
||||
getRussian = "Proceed"
|
||||
Exit Function
|
||||
Case "buttonOk"
|
||||
getEnglish = "Ok"
|
||||
Exit Function
|
||||
|
|
|
|||
|
|
@ -3,7 +3,7 @@
|
|||
xmlns:dep="http://openoffice.org/extensions/description/2006"
|
||||
xmlns:xlink="http://www.w3.org/1999/xlink">
|
||||
<identifier value="pro.litvinovg.Redaction" />
|
||||
<version value="0.7.1" />
|
||||
<version value="0.7.2" />
|
||||
<platform value="all" />
|
||||
<display-name>
|
||||
<name lang="en">Cleaning and validation documents for publishing in html and epub with pagination</name>
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue