dev/null |binary
extras/Package_tplwizbitmap.mk | 6 ++---
extras/source/templates/wizard/bitmap/euro_1.png |binary
extras/source/templates/wizard/bitmap/euro_2.png |binary
extras/source/templates/wizard/bitmap/euro_3.png |binary
wizards/source/euro/AutoPilotRun.xba | 26 +++++++++++------------
wizards/source/euro/Init.xba | 20 +++++++----------
7 files changed, 25 insertions(+), 27 deletions(-)
New commits:
commit 0761fbdd146c306190e41d65b9d4eec03c39c1b8
Author: Matthias Seidel <msei...@apache.org>
AuthorDate: Thu Nov 8 15:06:51 2018 +0000
Commit: Caolán McNamara <caol...@redhat.com>
CommitDate: Mon Dec 10 13:29:43 2018 +0100
Cleaning up Euro Converter wizard, moving graphics from bmp to png
(cherry picked from commit 7364f1749a8e25959aa580d7a4c2bc710a52ccbe)
Change-Id: I2821ceaf00735fde1903fce27a01fda390b3a926
Reviewed-on: https://gerrit.libreoffice.org/64864
Reviewed-by: Caolán McNamara <caol...@redhat.com>
Tested-by: Caolán McNamara <caol...@redhat.com>
diff --git a/extras/Package_tplwizbitmap.mk b/extras/Package_tplwizbitmap.mk
index 6fdc3cb66340..043e6de0794a 100644
--- a/extras/Package_tplwizbitmap.mk
+++ b/extras/Package_tplwizbitmap.mk
@@ -14,9 +14,9 @@ $(eval $(call
gb_Package_add_files,extras_tplwizbitmap,$(LIBO_SHARE_FOLDER)/temp
cancel_up.bmp \
down.bmp \
end.bmp \
- euro_1.bmp \
- euro_2.bmp \
- euro_3.bmp \
+ euro_1.png \
+ euro_2.png \
+ euro_3.png \
ftpconnected.gif \
ftpconnecting.gif \
ftperror.gif \
diff --git a/extras/source/templates/wizard/bitmap/euro_1.bmp
b/extras/source/templates/wizard/bitmap/euro_1.bmp
deleted file mode 100644
index 81869151541f..000000000000
Binary files a/extras/source/templates/wizard/bitmap/euro_1.bmp and /dev/null
differ
diff --git a/extras/source/templates/wizard/bitmap/euro_1.png
b/extras/source/templates/wizard/bitmap/euro_1.png
new file mode 100644
index 000000000000..38a68c0a0caa
Binary files /dev/null and b/extras/source/templates/wizard/bitmap/euro_1.png
differ
diff --git a/extras/source/templates/wizard/bitmap/euro_2.bmp
b/extras/source/templates/wizard/bitmap/euro_2.bmp
deleted file mode 100644
index 34031d9efdda..000000000000
Binary files a/extras/source/templates/wizard/bitmap/euro_2.bmp and /dev/null
differ
diff --git a/extras/source/templates/wizard/bitmap/euro_2.png
b/extras/source/templates/wizard/bitmap/euro_2.png
new file mode 100644
index 000000000000..cc066dae2f52
Binary files /dev/null and b/extras/source/templates/wizard/bitmap/euro_2.png
differ
diff --git a/extras/source/templates/wizard/bitmap/euro_3.bmp
b/extras/source/templates/wizard/bitmap/euro_3.bmp
deleted file mode 100644
index 70f73b141d67..000000000000
Binary files a/extras/source/templates/wizard/bitmap/euro_3.bmp and /dev/null
differ
diff --git a/extras/source/templates/wizard/bitmap/euro_3.png
b/extras/source/templates/wizard/bitmap/euro_3.png
new file mode 100644
index 000000000000..bf544d2f61e1
Binary files /dev/null and b/extras/source/templates/wizard/bitmap/euro_3.png
differ
diff --git a/wizards/source/euro/AutoPilotRun.xba
b/wizards/source/euro/AutoPilotRun.xba
index 5c869459ebb8..77ca182df999 100644
--- a/wizards/source/euro/AutoPilotRun.xba
+++ b/wizards/source/euro/AutoPilotRun.xba
@@ -51,7 +51,7 @@ Dim oFactoryKey as Object
InitializeConverter(oLocale, 2)
ToggleGoOnButton()
oFactoryKey =
GetRegistryKeyContent("org.openoffice.Setup/Office/Factories")
- DialogModel.chkTextDocuments.Enabled =
oFactoryKey.hasbyName("com.sun.star.text.TextDocument")
+ DialogModel.chkTextDocuments.Enabled =
oFactoryKey.hasbyName("com.sun.star.text.TextDocument")
DialogModel.cmdGoOn.DefaultButton = True
DialogModel.lstCurrencies.TabIndex = 12
DialogConvert.GetControl("optWholeDir").SetFocus()
@@ -136,7 +136,7 @@ Dim sExtension as String
bIsReadOnly = False
RetrieveDocumentObjects()
sViewPath = CutPathView(SourceFile, 60)
- DialogModel.lblCurDocument.Label =
Str(DocIndex+1) & "/" & sTotDocCount & " ("
& sViewPath & ")"
+ DialogModel.lblCurDocument.Label =
Str(DocIndex+1) & "/" & sTotDocCount & " ("
& sViewPath & ")"
End If
InitializeDocument() = Not bIsReadOnly
Else
@@ -235,7 +235,7 @@ Dim TextBoxText as String
TextBoxText = TextBoxText &
DeleteStr(sInclusiveSubDir,"~") & chr(13)
End If
Else
- TextBoxText = sSOURCEFILE & " " &
ConvertFromUrl(Source) & chr(13)
+ TextBoxText = sSOURCEFILE & " " &
ConvertFromUrl(Source) & chr(13)
End If
TextBoxText = TextBoxText & sTARGETDIR & " "
& ConvertFromUrl(TargetDir) & chr(13)
If DialogModel.chkProtect.State = 1 Then
@@ -243,8 +243,8 @@ Dim TextBoxText as String
End If
DialogModel.txtConfig.Text = TextBoxText
ToggleProgressStep()
- DialogModel.cmdGoOn.Enabled = False
- InitializeThirdStep() = True
+ DialogModel.cmdGoOn.Enabled = False
+ InitializeThirdStep() = True
Else
InitializeThirdStep() = False
End If
@@ -265,7 +265,7 @@ Dim LocStep as Integer
DialogConvert.GetControl("lstCurrencies").Visible = Not
bMakeVisible
DialogConvert.GetControl("cmdBack").Visible = bMakeVisible
DialogConvert.GetControl("cmdGoOn").Visible = bMakeVisible
- DialogModel.imgPreview.ImageUrl = BitmapDir & "euro_"
& DialogModel.Step & ".bmp"
+ DialogModel.imgPreview.ImageUrl = BitmapDir & "euro_"
& DialogModel.Step & ".png"
End Sub
@@ -319,8 +319,8 @@ Dim sNoDirMessage as String
If DialogModel.chkTextDocuments.State = 1 Then
If (Instr(1, sLocMimeType,
"text") = 0) And (Instr(1, sLocMimeType, "calc") = 0) Then
Msgbox(sMsgFileInvalid, 48,
sMsgDLGTITLE)
- bIsValid = False
- End If
+ bIsValid = False
+ End If
Else
If (Instr(1, sLocMimeType,
"spreadsheet") = 0) And (Instr(1, sLocMimeType, "calc")) =
0 Then
Msgbox(sMsgFileInvalid, 48,
sMsgDLGTITLE)
@@ -339,7 +339,7 @@ Dim sNoDirMessage as String
End If
End if
Else
- Msgbox(HeaderString & " '" &
ConvertFromUrl(sPath) & "' " & sMsgNOTTHERE,48,
sMsgDLGTITLE)
+ Msgbox(HeaderString & " '" &
ConvertFromUrl(sPath) & "' " & sMsgNOTTHERE,48,
sMsgDLGTITLE)
End If
If bIsValid Then
AssignFileName() = sPath
@@ -350,7 +350,7 @@ End Function
Sub ToggleGoOnButton()
-Dim bDoEnable as Boolean
+Dim bDoEnable as Boolean
Dim sLocMimeType as String
Dim sPath as String
bDoEnable = Ubound(DialogModel.lstCurrencies.SelectedItems()) > -1
@@ -365,7 +365,7 @@ End Sub
Sub CallFolderPicker()
GetFolderName(DialogModel.txtTarget)
- ToggleGoOnButton()
+ ToggleGoOnButton()
End Sub
@@ -374,7 +374,7 @@ Sub CallFilePicker()
Dim oMasterKey as Object
Dim oTypes() as Object
Dim oUIKey() as Object
-
+
oMasterKey =
GetRegistryKeyContent("org.openoffice.TypeDetection.Types")
oTypes() = oMasterKey.Types
oUIKey =
GetRegistryKeyContent("org.openoffice.Office.UI/FilterClassification/LocalFilters")
@@ -409,7 +409,7 @@ End Sub
Sub PreviousStep()
DialogModel.Step = 2
- DialogModel.cmdGoOn.Label = sGOON
+ DialogModel.cmdGoOn.Label = sGOON
DialogModel.cmdCancel.Label = sCANCEL
End Sub
</script:module>
diff --git a/wizards/source/euro/Init.xba b/wizards/source/euro/Init.xba
index f8c2eac7e966..623a0a53be46 100644
--- a/wizards/source/euro/Init.xba
+++ b/wizards/source/euro/Init.xba
@@ -18,9 +18,7 @@
* the License at http://www.apache.org/licenses/LICENSE-2.0 .
-->
<script:module xmlns:script="http://openoffice.org/2000/script";
script:name="Init" script:language="StarBasic">Option Explicit
-REM ***** BASIC *****
-
-
+REM ***** BASIC *****
Public Const SBRANGEUBOUND = 20
Public StyleRangeAssignmentList(SBRANGEUBOUND)as String
@@ -255,7 +253,7 @@ Dim LocWorkPath as String
End If
.txtSource.Text = ConvertfromUrl(LocWorkPath)
-
+
SubstDir = .txtSource.Text
.txtTarget.Text = .txtSource.Text
.hlnProgress.Label =
GetResText("STEP_LASTPAGE_0")
@@ -289,7 +287,7 @@ Sub InitializeLanguages()
LangIDValue(3,0,0) = "es"
LangIDValue(3,0,1) = ""
LangIDValue(3,0,2) = "-40A"
-
+
'Spanish modern
LangIDValue(3,1,0) = "es"
LangIDValue(3,1,1) = ""
@@ -332,7 +330,7 @@ Sub InitializeLanguages()
LangIDValue(8,0,0) = "fr"
LangIDValue(8,0,1) = "LU"
LangIDValue(8,0,2) = "-140C"
-
+
LangIDValue(8,1,0) = "de"
LangIDValue(8,1,1) = "LU"
LangIDValue(8,1,2) = "-1007"
@@ -589,7 +587,7 @@ Sub InitializeControls()
EnableStep2DialogControls(True)
End If
End If
-End Sub
+End Sub
Sub InitializeConverter(oLocale, iDialogPage as Integer)
@@ -603,7 +601,7 @@ Dim Isthere as Boolean
If sDocType = "sCalc" Then
bDocHasProtectedSheets = CheckSheetProtection(oSheets)
End If
- oStatusline =
ThisComponent.GetCurrentController.GetFrame.CreateStatusIndicator()
+ oStatusline =
ThisComponent.GetCurrentController.GetFrame.CreateStatusIndicator()
End If
DialogConvert = LoadDialog("Euro", "DlgConvert")
DialogModel = DialogConvert.Model
@@ -620,9 +618,9 @@ Dim Isthere as Boolean
Stop
End If
FillUpCurrencyListbox()
- DialogModel.imgPreview.ImageUrl = BitmapDir & "euro_"
& DialogModel.Step & ".bmp"
+ DialogModel.imgPreview.ImageUrl = BitmapDir & "euro_"
& DialogModel.Step & ".png"
DialogConvert.Title = sMsgDLGTITLE
- DialogModel.cmdGoOn.DefaultButton = True
+ DialogModel.cmdGoOn.DefaultButton = True
If iDialogPage = 1 Then
ToggleWindow(True)
End If
@@ -637,7 +635,7 @@ Sub InitializeCurrencyValues(CurrIndex)
CurrSymbolList(1) = CurrValue(CurrIndex,4)
CurrSymbolList(2) = CurrValue(CurrIndex,5)
End If
-End Sub
+End Sub
Function InitializeLocales(oLocale) as Boolean
_______________________________________________
Libreoffice-commits mailing list
libreoffice-comm...@lists.freedesktop.org
https://lists.freedesktop.org/mailman/listinfo/libreoffice-commits
