| commit | 6bb6ca1fb30f786385c2357e5435077066a49f82 | [log] |
|---|---|---|
| author | Katarina Behrens <Katarina.Behrens@cib.de> | Tue Feb 28 16:31:49 2017 +0100 |
| committer | Katarina Behrens <Katarina.Behrens@cib.de> | Tue Feb 28 21:28:29 2017 +0000 |
| tree | 07cd77b7fa92c96788622818d38471b630d7bde7 | |
| parent | 7f0b3e90ad8cc6c16e2004cc0739150352c8d7e6 [diff] |
Related: tdf#80731 missing ')' breaks Gimmicks.Autotext macro Change-Id: Idbfcab663b5f4dbd97b49f2771c62564ca7d7972 Reviewed-on: https://gerrit.libreoffice.org/34725 Tested-by: Jenkins <ci@libreoffice.org> Reviewed-by: Katarina Behrens <Katarina.Behrens@cib.de>
diff --git a/wizards/source/gimmicks/ReadDir.xba b/wizards/source/gimmicks/ReadDir.xba index 0287f43..fdd725b 100644 --- a/wizards/source/gimmicks/ReadDir.xba +++ b/wizards/source/gimmicks/ReadDir.xba
@@ -263,7 +263,7 @@ Dim MaxFileIndex as Integer End If Next i End If Loop Until m > Ubound(DirList() Loop Until m > Ubound(DirList()) ReDim Preserve FileNameList(n-1,1) as String ReadSourceDirectory() = FileNameList() End Function @@ -319,4 +319,4 @@ Sub ToggleDialogControls(bDoEnable as Boolean) .Label2.Enabled = bDoEnable .TextField1.Enabled = bDoEnable End With End Sub</script:module> \ No newline at end of file End Sub</script:module>