[Libreoffice-commits] core.git: wizards/source

[Libreoffice Gerrit user]

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

New commits:
commit cd025065505d57ad4f6db96d7dd2bbb4384ccdf6
Author:     Matthias Seidel <msei...@apache.org>
AuthorDate: Mon Aug 20 22:37:02 2018 +0000
Commit:     Caolán McNamara <caol...@redhat.com>
CommitDate: Tue Aug 21 14:58:09 2018 +0200

    Deleted whitespace, fixed missing paranthesis
    
    (cherry picked from commit 3d3594a2c542fef7c78936f8528eba4595f2768e)
    
    Change-Id: I5fc099b7b2677a3615f92aff738ae6958744e64b
    Reviewed-on: https://gerrit.libreoffice.org/59381
    Tested-by: Jenkins
    Reviewed-by: Caolán McNamara <caol...@redhat.com>
    Tested-by: Caolán McNamara <caol...@redhat.com>

diff --git a/wizards/source/gimmicks/ReadDir.xba 
b/wizards/source/gimmicks/ReadDir.xba
index fdd725ba5a8c..b604695082b2 100644
--- a/wizards/source/gimmicks/ReadDir.xba
+++ b/wizards/source/gimmicks/ReadDir.xba
@@ -87,7 +87,7 @@ Dim FileNames() as String
        ToggleDialogControls(False)
        oProgressBar.ProgressValueMin = 0
        oProgressBar.ProgressValueMax = 100
-       bStartUpRun  = True
+       bStartUpRun = True
        nOldHeight = 200
        nOldY = SBPAGEY
        nOldX = SBPAGEX
@@ -156,7 +156,7 @@ Dim FileNames() as String
                nOldLevel = iCurLevel
        Next i
        ToggleDialogControls(True)
-       DlgReadDir.Model.cmdGoOn.Enabled = False        
+       DlgReadDir.Model.cmdGoOn.Enabled = False
 End Sub
 
 
@@ -166,7 +166,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
@@ -177,7 +177,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
@@ -246,7 +246,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
@@ -274,16 +274,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