wizards/source/importwizard/DialogModul.xba | 2 +- wizards/source/importwizard/FilesModul.xba | 2 +- wizards/source/tools/ModuleControls.xba | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-)
New commits: commit ad00157b7b60fa1feb35d1e5a4f7a6d418d10f19 Author: Caolán McNamara <caol...@redhat.com> Date: Thu Jan 19 13:34:31 2017 +0000 Related: tdf#80731 bug in our own wizards revealed by new bracket test Change-Id: Iec49bf80794a4ba61a70b22d0fc1769349ca4508 (cherry picked from commit ecd82b5121899fe23f0ccbdd8a89c8b18436f027) Reviewed-on: https://gerrit.libreoffice.org/33313 Tested-by: Jenkins <c...@libreoffice.org> Reviewed-by: Michael Stahl <mst...@redhat.com> diff --git a/wizards/source/importwizard/DialogModul.xba b/wizards/source/importwizard/DialogModul.xba index 65fb1f2..e552669 100644 --- a/wizards/source/importwizard/DialogModul.xba +++ b/wizards/source/importwizard/DialogModul.xba @@ -375,7 +375,7 @@ Dim sPath as String ElseIf oCheckbox.State = 0 Then CheckControlPath = True Else - sPath = ConvertToUrl(Trim(oTextBox.Text) + sPath = ConvertToUrl(Trim(oTextBox.Text)) CheckControlPath = oUcb.Exists(sPath) End If End Function diff --git a/wizards/source/importwizard/FilesModul.xba b/wizards/source/importwizard/FilesModul.xba index c796cad..1e6363f 100644 --- a/wizards/source/importwizard/FilesModul.xba +++ b/wizards/source/importwizard/FilesModul.xba @@ -327,7 +327,7 @@ Dim sPrevMimeTypeorExtension as String CurFiltername = GetFilterName(sMimeTypeorExtension, sFilterName(), sExtension, FilterIndex) ApplIndex = FilesList(i,2) If sMimeTypeorExtension <> sPrevMimeTypeorExtension Then - CreateLogTable(ApplIndex, sMimeTypeOrExtension, sFiltername() + CreateLogTable(ApplIndex, sMimeTypeOrExtension, sFiltername()) End If If ApplIndex > Ubound(Applications) or (ApplIndex < 0) Then Msgbox "Applicationindex out of bounds:" & sSourcUrl diff --git a/wizards/source/tools/ModuleControls.xba b/wizards/source/tools/ModuleControls.xba index 96f23ad..300b6ee 100644 --- a/wizards/source/tools/ModuleControls.xba +++ b/wizards/source/tools/ModuleControls.xba @@ -311,7 +311,7 @@ Dim sProdName as String Filternames(i,0) = ReplaceString(Filternames(i,0), sProdName,"%productname%") oDialog.AppendFilter(FilterNames(i,0), FilterNames(i,1)) Next i - oDialog.SetCurrentFilter(FilterNames(0,0) + oDialog.SetCurrentFilter(FilterNames(0,0)) End Sub
_______________________________________________ Libreoffice-commits mailing list libreoffice-comm...@lists.freedesktop.org https://lists.freedesktop.org/mailman/listinfo/libreoffice-commits