[Libreoffice-commits] core.git: Branch 'aoo/trunk' - wizards/source

[Libreoffice Gerrit user]

 wizards/source/gimmicks/ReadDir.xba |   18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

New commits:
commit 3d3594a2c542fef7c78936f8528eba4595f2768e
Author:     Matthias Seidel <msei...@apache.org>
AuthorDate: Mon Aug 20 22:37:02 2018 +0000
Commit:     Matthias Seidel <msei...@apache.org>
CommitDate: Mon Aug 20 22:37:02 2018 +0000

    Deleted whitespace, fixed missing paranthesis

diff --git a/wizards/source/gimmicks/ReadDir.xba 
b/wizards/source/gimmicks/ReadDir.xba
index 991d1e4dd1ed..8e5ae47e9e34 100644
--- a/wizards/source/gimmicks/ReadDir.xba
+++ b/wizards/source/gimmicks/ReadDir.xba
@@ -90,7 +90,7 @@ Dim FileNames() as String
        ToggleDialogControls(False)
        oProgressBar.ProgressValueMin = 0
        oProgressBar.ProgressValueMax = 100
-       bStartUpRun  = True
+       bStartUpRun = True
        nOldHeight = 200
        nOldY = SBPAGEY
        nOldX = SBPAGEX
@@ -159,7 +159,7 @@ Dim FileNames() as String
                nOldLevel = iCurLevel
        Next i
        ToggleDialogControls(True)
-       DlgReadDir.Model.cmdGoOn.Enabled = False        
+       DlgReadDir.Model.cmdGoOn.Enabled = False
 End Sub
 
 
@@ -169,7 +169,7 @@ Dim aPoint As New com.sun.star.awt.Point
 
        aPoint.X = CalculateXPoint()
        aPoint.Y = nOldY + SBRELDIST * nOldHeight
-       nOldY  = aPoint.Y
+       nOldY = aPoint.Y
 
        oTextShape = 
oDocument.createInstance(&quot;com.sun.star.drawing.TextShape&quot;)
        oTextShape.LineStyle = 1
@@ -180,7 +180,7 @@ Dim aPoint As New com.sun.star.awt.Point
        oTextShape.TextAutoGrowHeight = TRUE
        oTextShape.String = FileName
 
-       &apos; Configure Size And Position of the TextShape  according to its 
Scripting
+       &apos; Configure Size And Position of the TextShape according to its 
Scripting
        aPoint.X = iLevelPos(iCurLevel,SBBASEX)
        oTextShape.Position = aPoint
        CreateTextShape() = oTextShape
@@ -249,7 +249,7 @@ Dim MaxFileIndex as Integer
                m = m + 1
                DirContent() = oUcbObject.GetFolderContents(Source,True)
                If Ubound(DirContent()) &lt;&gt; -1 Then
-                       MaxFileIndex  = Ubound(DirContent()) 
+                       MaxFileIndex = Ubound(DirContent())
                        For i = 0 to MaxFileIndex
                                FileName = DirContent(i)
                                FileNameList(n,0) = FileName
@@ -266,7 +266,7 @@ Dim MaxFileIndex as Integer
                                End If
                        Next i
                End If
-       Loop Until m &gt; Ubound(DirList()
+       Loop Until m &gt; Ubound(DirList())
        ReDim Preserve FileNameList(n-1,1) as String
        ReadSourceDirectory() = FileNameList()
 End Function
@@ -277,16 +277,16 @@ Sub CloseDialog
 End Sub
 
 
-Sub    AdjustPageHeight(lShapeHeight, FileCount)
+Sub AdjustPageHeight(lShapeHeight, FileCount)
 Dim lNecHeight as Long
 Dim lBorders as Long
        oDocument.LockControllers
        lBorders = oPage.BorderTop + oPage.BorderBottom
        lNecHeight = SBPAGEY + (FileCount * SBRELDIST * lShapeHeight)
        If lNecHeight &gt; (oPage.Height - lBorders) Then
-               oPage.Height = lNecHeight + lBorders + 500 
+               oPage.Height = lNecHeight + lBorders + 500
        End If
-       oDocument.UnlockControllers     
+       oDocument.UnlockControllers
 End Sub
 
 
_______________________________________________
Libreoffice-commits mailing list
libreoffice-comm...@lists.freedesktop.org
https://lists.freedesktop.org/mailman/listinfo/libreoffice-commits