openoffice-commits mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From msei...@apache.org
Subject svn commit: r1838508 - /openoffice/trunk/main/wizards/source/gimmicks/ReadDir.xba
Date Mon, 20 Aug 2018 22:37:02 GMT
Author: mseidel
Date: Mon Aug 20 22:37:02 2018
New Revision: 1838508

URL: http://svn.apache.org/viewvc?rev=1838508&view=rev
Log:
Deleted whitespace, fixed missing paranthesis

Modified:
    openoffice/trunk/main/wizards/source/gimmicks/ReadDir.xba

Modified: openoffice/trunk/main/wizards/source/gimmicks/ReadDir.xba
URL: http://svn.apache.org/viewvc/openoffice/trunk/main/wizards/source/gimmicks/ReadDir.xba?rev=1838508&r1=1838507&r2=1838508&view=diff
==============================================================================
--- openoffice/trunk/main/wizards/source/gimmicks/ReadDir.xba (original)
+++ openoffice/trunk/main/wizards/source/gimmicks/ReadDir.xba Mon Aug 20 22:37:02 2018
@@ -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
 
 



Mime
View raw message