[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 <mseidel at apache.org>
AuthorDate: Mon Aug 20 22:37:02 2018 +0000
Commit:     Matthias Seidel <mseidel at 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("com.sun.star.drawing.TextShape")
 	oTextShape.LineStyle = 1
@@ -180,7 +180,7 @@ Dim aPoint As New com.sun.star.awt.Point
 	oTextShape.TextAutoGrowHeight = TRUE
 	oTextShape.String = FileName
 
-	' Configure Size And Position of the TextShape  according to its Scripting
+	' 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()) <> -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 > Ubound(DirList()
+	Loop Until m > 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 > (oPage.Height - lBorders) Then
-		oPage.Height = lNecHeight + lBorders + 500 
+		oPage.Height = lNecHeight + lBorders + 500
 	End If
-	oDocument.UnlockControllers	
+	oDocument.UnlockControllers
 End Sub