recreated tag libreoffice-3.3.3.1 which had these commits:

commit aec86c5680a68c65de8537b8a83a16e8d90cfdd9 (tag: refs/tags/libreoffice-3.3.3.1)
Author: Petr Mladek <pmladek@suse.cz>
Date:   Tue May 31 17:39:08 2011 +0200

Version 3.3.3.1, tag libreoffice-3.3.3.1 (3.3.3-rc1)

1 files changed, 142 insertions, 142 deletions

diff --git a/smoketestoo_native/data/Test_10er.xml b/smoketestoo_native/data/Test_10er.xml
index 636dc2129120..5563ce1b4894 100644
--- a/smoketestoo_native/data/Test_10er.xml
+++ b/smoketestoo_native/data/Test_10er.xml
@@ -91,7 +91,7 @@ Sub DeleteAllSavedFiles()
     sFileName = sWorkPath+cTempFileName+"."+GetDocEndings(frmDraw or cFltXML)
     If FileExists (sFileName) then
         Kill (sFileName)
-    End If
+    End If	
     sFileName = sWorkPath+cTempFileName+"."+GetDocEndings(frmWriter or cFlt50)
     If FileExists (sFileName) then
         Kill (sFileName)
@@ -119,22 +119,22 @@ Sub DeleteAllLogFiles()
     End If
     If FileExists (sWorkPath+sSCLogFileName) then
         Kill (sWorkPath+sSCLogFileName)
-    End If
+    End If	
     If FileExists (sWorkPath+sSDLogFileName) then
         Kill (sWorkPath+sSDLogFileName)
-    End If
+    End If	
     If FileExists (sWorkPath+sSMathLogFileName) then
         Kill (sWorkPath+sSMathLogFileName)
-    End If
+    End If	
     If FileExists (sWorkPath+sSImDLogFileName) then
         Kill (sWorkPath+sSImDLogFileName)
-    End If
+    End If	
     If FileExists (sWorkPath+sSChartLogFileName) then
         Kill (sWorkPath+sSChartLogFileName)
-    End If
+    End If	
     If FileExists (sWorkPath+sSHptLogFileName) then
         Kill (sWorkPath+sSHptLogFileName)
-    End If
+    End If	
     If FileExists (sWorkPath+sSMessageLogFileName) then
         Kill (sWorkPath+sSMessageLogFileName)
     End If
@@ -156,8 +156,8 @@ Function OpenLogDat (sFileName as String) as Integer
     Dim LocaleFileChannel%
     If FileExists (sWorkPath+sFileName) then
         Kill (sWorkPath+sFileName)
-    End If
-    LocaleFileChannel% = Freefile
+    End If	
+    LocaleFileChannel% = Freefile 
     Open sWorkPath+sFileName For Output As LocaleFileChannel%
     OpenLogDat = LocaleFileChannel%
 end Function
@@ -201,11 +201,11 @@ DIM nStrPos as Long
 
     sWorkPath = GetWorkPath
     sWorkPathURL = GetWorkURL
-
+    
     if GetSystem (sWorkPath) = "windows" then
         sWorkPath = ConvertPathToWin (sWorkPath)
     end if
-
+    
     'search ExtensionURL
     sDocURL = gOutPutDoc.URL
     CompatibilityMode(true)
@@ -234,7 +234,7 @@ DIM nStrPos as Long
     end if
     if bMakeChartTest then
         call MakeChartTest (frmChart)
-    end if
+    end if	
     if bMakeMathTest then
         call MakeNewDoc (frmMath)
     end if
@@ -247,13 +247,13 @@ DIM nStrPos as Long
     if bMakeExtensionTest then
         call Test_Ext.TestExtensions (frmExtension)
     end if
-
+    
     Close #MainFileChannel
 end Sub
 
 Sub WriteTestSequence (FileChannel as integer)
     Print #FileChannel, "Sequence of testing"
-
+    
     if bMakeWriterTest then
         WriteTests ("writer  : ", true, FileChannel)
     end if
@@ -271,7 +271,7 @@ Sub WriteTestSequence (FileChannel as integer)
     end if
     if bMakeChartTest then
         WriteTests ("chart   : ", false, FileChannel)
-    end if
+    end if	
     if bMakeMathTest then
         WriteTests ("math    : ", false, FileChannel)
     end if
@@ -284,13 +284,13 @@ Sub WriteTestSequence (FileChannel as integer)
     if bMakeExtensionTest then
         WriteExtensionTests ("Extension    : ", FileChannel)
     end if
-
+        
     Print #FileChannel
 end Sub
 
 Sub WriteTests (sText as string, bTestAll as boolean, nFileChannel as integer)
     Dim sWriteStr as string
-
+    
     sWriteStr = sText
     sWriteStr = sWriteStr + "new"
     if bTestAll then
@@ -319,33 +319,33 @@ Sub WriteTests (sText as string, bTestAll as boolean, nFileChannel as integer)
         sWriteStr = sWriteStr + ", open 5.0"
     end if
     end if
-
+    
     sWriteStr = sWriteStr + ", close"
-
+    
     Print #nFileChannel, sWriteStr
 end Sub
 
 Sub WriteDBTests (sText as string, nFileChannel as integer)
     Dim sWriteStr as string
-
+    
     sWriteStr = sText
     sWriteStr = sWriteStr + "open / services"
     sWriteStr = sWriteStr + ", insert"
     sWriteStr = sWriteStr + ", delete"
     sWriteStr = sWriteStr + ", seek"
     sWriteStr = sWriteStr + ", close"
-
+    
     Print #nFileChannel, sWriteStr
 end Sub
 
 Sub WriteExtensionTests (sText as string, nFileChannel as integer)
     Dim sWriteStr as string
-
+    
     sWriteStr = sText
     sWriteStr = sWriteStr + "services"
     sWriteStr = sWriteStr + ", install"
     sWriteStr = sWriteStr + ", uninstall"
-
+    
     Print #nFileChannel, sWriteStr
 end Sub
 
@@ -354,7 +354,7 @@ Sub MakeDocTest (FilterType as Integer)
     Dim sFileNameXML$, sFileName50$, sFileName8$
     Dim bError as Boolean
     Dim nCurrentAction as Integer
-
+    
     On Local Error GoTo DOCTESTERROR
     nCurrentAction = cLogfileFailed
     FileChannel% = OpenLogDat (GetLogFileName(FilterType))
@@ -366,7 +366,7 @@ Sub MakeDocTest (FilterType as Integer)
     if not IsNull (oDoc) then
         nCurrentAction = cDocCut
         call CutAndPaste(FilterType, oDoc)
-'      bError = oDoc.CurrentController.frame.close
+'		bError = oDoc.CurrentController.frame.close
         nCurrentAction = cDocSaveOpen8
         if bMakeSaveOpen8Test and IsFilterAvailable (FilterType or cFlt8) then
             sFileName8 = sWorkPathURL+cTempFileName+"."+GetDocEndings(FilterType or cFlt8)
@@ -381,68 +381,68 @@ Sub MakeDocTest (FilterType as Integer)
         if bMakeSaveOpen50Test and IsFilterAvailable (FilterType or cFlt50) then
             sFileName50 = sWorkPathURL+cTempFileName+"."+GetDocEndings(FilterType or cFlt50)
             SaveDoc (sFileName50, oDoc, GetDocFilter(FilterType or cFlt50))
-        end if
-'      oDoc.dispose
+        end if	
+'		oDoc.dispose
         nCurrentAction = cDocClose
         oDoc.close (true)
-'      bError = true ' nur zum ¦bergang, weil bError = oDoc.CurrentController.frame.close nicht geht
-'      LogState (bError, GetDocFilter(FilterType)+" "+ cMessageCloseDoc, FileChannel)
-'      LogState (bError, GetDocFilter(FilterType)+" "+ cMessageCloseDoc, MainFileChannel)
-'      SetStatus (FilterType, cDocClose, bError)
+'		bError = true ' nur zum ¦bergang, weil bError = oDoc.CurrentController.frame.close nicht geht
+'		LogState (bError, GetDocFilter(FilterType)+" "+ cMessageCloseDoc, FileChannel)
+'		LogState (bError, GetDocFilter(FilterType)+" "+ cMessageCloseDoc, MainFileChannel)
+'		SetStatus (FilterType, cDocClose, bError)
         nCurrentAction = cDocSaveOpen8
         if bMakeSaveOpen8Test and IsFilterAvailable (FilterType or cFlt8) then
             oDoc = LoadDoc (sFileName8)
-
-'          oDoc = Documents.open(sFileName)
+            
+'			oDoc = Documents.open(sFileName)
             LogState (not IsNull (oDoc),GetDocFilter(FilterType or cFltNewDoc)+" "+ cMessageSaveOpen8Doc, FileChannel)
             LogState (not IsNull (oDoc),GetDocFilter(FilterType or cFltNewDoc)+" "+ cMessageSaveOpen8Doc, MainFileChannel)
             SetStatus (FilterType, cDocSaveOpen8, not IsNull (oDoc))
-
+            
             if not IsNull (oDoc) then
-'              oDoc.dispose
+'				oDoc.dispose
                 nCurrentAction = cDocClose
                 oDoc.close (true)
-            end If
+            end If	
         end if
-
+        
         nCurrentAction = cDocSaveOpenXML
         if bMakeSaveOpenXMLTest and IsFilterAvailable (FilterType or cFltXML) then
             oDoc = LoadDoc (sFileNameXML)
-
-'          oDoc = Documents.open(sFileName)
+            
+'			oDoc = Documents.open(sFileName)
             LogState (not IsNull (oDoc),GetDocFilter(FilterType or cFltNewDoc)+" "+ cMessageSaveOpenXMLDoc, FileChannel)
             LogState (not IsNull (oDoc),GetDocFilter(FilterType or cFltNewDoc)+" "+ cMessageSaveOpenXMLDoc, MainFileChannel)
             SetStatus (FilterType, cDocSaveOpenXML, not IsNull (oDoc))
-
+            
             if not IsNull (oDoc) then
-'              oDoc.dispose
+'				oDoc.dispose
                 nCurrentAction = cDocClose
                 oDoc.close (true)
-            end If
+            end If	
         end if
-
+        
         nCurrentAction = cDocSaveOpen50
         if bMakeSaveOpen50Test and IsFilterAvailable (FilterType or cFlt50) then
             oDoc = LoadDoc (sFileName50)
-
-'          oDoc = Documents.open(sFileName)
+            
+'			oDoc = Documents.open(sFileName)
             LogState (not IsNull (oDoc),GetDocFilter(FilterType or cFltNewDoc)+" "+ cMessageSaveOpen50Doc, FileChannel)
             LogState (not IsNull (oDoc),GetDocFilter(FilterType or cFltNewDoc)+" "+ cMessageSaveOpen50Doc, MainFileChannel)
             SetStatus (FilterType, cDocSaveOpen50, not IsNull (oDoc))
-
+            
             if not IsNull (oDoc) then
-'              oDoc.dispose
+'				oDoc.dispose
                 nCurrentAction = cDocClose
                 oDoc.close (true)
-            end If
+            end If	
         end if
-    end If
+    end If		
     Print #FileChannel, "---"
     Close #FileChannel%
     Exit Sub ' Without error
-
+    
     DOCTESTERROR:
-    If  (nCurrentAction = cLogfileFailed) then
+    If 	(nCurrentAction = cLogfileFailed) then
         SetStatus (FilterType, cDocNew, False)
         Exit Sub
     else
@@ -450,7 +450,7 @@ Sub MakeDocTest (FilterType as Integer)
         LogState (False, GetDocFilter(FilterType or cFltNewDoc)+" "+ GetErrorMessage(nCurrentAction), MainFileChannel)
         SetStatus (FilterType, nCurrentAction, False)
         Close #FileChannel%
-    End If
+    End If	
     Exit Sub ' With error
 End Sub
 
@@ -462,26 +462,26 @@ Sub MakeNewDoc (FilterType as Integer)
     nCurrentAction = cLogfileFailed
     FileChannel% = OpenLogDat (GetLogFileName(FilterType))
     nCurrentAction = cDocNew
-'  oDoc = Documents.Add(GetDocFilter(FilterType))
+'	oDoc = Documents.Add(GetDocFilter(FilterType))
     oDoc = LoadDoc ("private:factory/" + GetDocFilter(FilterType or cFltNewDoc))
     LogState (not IsNull (oDoc), GetDocFilter(FilterType or cFltNewDoc)+" "+ cMessageNewDoc, FileChannel)
     LogState (not IsNull (oDoc), GetDocFilter(FilterType or cFltNewDoc)+" "+ cMessageNewDoc, MainFileChannel)
     SetStatus (FilterType, cDocNew, not IsNull (oDoc))
     if not IsNull (oDoc) then
         nCurrentAction = cDocClose
-'      oDoc.dispose
+'		oDoc.dispose
         oDoc.close (true)
-'      bError = true ' nur zum ¦bergang, weil bError = oDoc.CurrentController.frame.close nicht geht
-'      LogState (bError, GetDocFilter(FilterType)+" "+ cMessageCloseDoc, FileChannel)
-'      LogState (bError, GetDocFilter(FilterType)+" "+ cMessageCloseDoc, MainFileChannel)
-'      SetStatus (FilterType, cDocClose, bError)
-    end If
+'		bError = true ' nur zum ¦bergang, weil bError = oDoc.CurrentController.frame.close nicht geht
+'		LogState (bError, GetDocFilter(FilterType)+" "+ cMessageCloseDoc, FileChannel)
+'		LogState (bError, GetDocFilter(FilterType)+" "+ cMessageCloseDoc, MainFileChannel)
+'		SetStatus (FilterType, cDocClose, bError)
+    end	If
     Print #FileChannel, "---"
     Close #FileChannel%
     Exit Sub ' Without error
-
+    
     DOCTESTERROR2:
-    If  (nCurrentAction = cLogfileFailed) then
+    If 	(nCurrentAction = cLogfileFailed) then
         SetStatus (FilterType, cDocNew, False)
         Exit Sub
     else
@@ -489,7 +489,7 @@ Sub MakeNewDoc (FilterType as Integer)
         LogState (False, GetDocFilter(FilterType or cFltNewDoc)+" "+ GetErrorMessage(nCurrentAction), MainFileChannel)
         SetStatus (FilterType, nCurrentAction, False)
         Close #FileChannel%
-    End If
+    End If	
     Exit Sub ' With error
 End Sub
 
@@ -513,7 +513,7 @@ Sub MakeChartTest (FilterType as Integer)
         LogState (bError, GetDocFilter(FilterType or cFltNewDoc)+" "+ cMessageNewDoc, FileChannel)
         LogState (bError, GetDocFilter(FilterType or cFltNewDoc)+" "+ cMessageNewDoc, MainFileChannel)
         SetStatus (FilterType, cDocNew, bError)
-'      oDoc.dispose
+'		oDoc.dispose
         nCurrentAction = cDocClose
         oDoc.close (true)
     else
@@ -524,9 +524,9 @@ Sub MakeChartTest (FilterType as Integer)
     Print #FileChannel, "---"
     Close #FileChannel%
     Exit Sub ' Without error
-
+    
     CHARTTESTERROR:
-    If  (nCurrentAction = cLogfileFailed) then
+    If 	(nCurrentAction = cLogfileFailed) then
         SetStatus (FilterType, cDocNew, False)
         Exit Sub
     else
@@ -534,7 +534,7 @@ Sub MakeChartTest (FilterType as Integer)
         LogState (False, GetDocFilter(FilterType or cFltNewDoc)+" "+ GetErrorMessage(nCurrentAction), MainFileChannel)
         SetStatus (FilterType, nCurrentAction, False)
         Close #FileChannel%
-    End If
+    End If	
     Exit Sub ' With error
 End Sub
 
@@ -543,17 +543,17 @@ Sub LogState (bState as Boolean, sText as String, nLocaleFileChannel as integer)
         Print #nLocaleFileChannel, sText+" -> ok"
     else
         Print #nLocaleFileChannel, sText+" -> error"
-    end If
+    end If	
 end Sub
 
 Function GetDocEndings (DocType as Integer) as String
     Select Case ( DocType )
         case frmWriter or cFlt8
-            GetDocEndings = "odt" ' Textdokument
+            GetDocEndings = "odt" ' Textdokument 
         case frmCalc or cFlt8
-            GetDocEndings = "ods" 'Tabellendokument
+            GetDocEndings = "ods" 'Tabellendokument 
         case frmImpress or cFlt8
-            GetDocEndings = "odp" 'PrÕsentation
+            GetDocEndings = "odp" 'PrÕsentation 
         case frmDraw or cFlt8
             GetDocEndings = "odg" 'Zeichen
         case frmHyperText, frmHyperText or cFlt50, frmHyperText or cFltXML
@@ -567,42 +567,42 @@ Function GetDocEndings (DocType as Integer) as String
         case frmDraw or cFlt50
             GetDocEndings = "sda" 'Zeichen 5.0
         case frmWriter or cFltXML
-            GetDocEndings = "sxw" ' Textdokument
+            GetDocEndings = "sxw" ' Textdokument 
         case frmCalc or cFltXML
-            GetDocEndings = "sxc" 'Tabellendokument
+            GetDocEndings = "sxc" 'Tabellendokument 
         case frmImpress or cFltXML
-            GetDocEndings = "sxi" 'PrÕsentation
+            GetDocEndings = "sxi" 'PrÕsentation 
         case frmDraw or cFltXML
             GetDocEndings = "sxd" 'Zeichen
         case else
             GetDocEndings = ""
-    end Select
+    end Select		
 end Function
 
 Function GetDocFilter (DocType as Integer) as String
     Select Case ( DocType )
-        case frmWriter or cFlt8
-            GetDocFilter = "writer8" ' Textdokument
+        case frmWriter or cFlt8 
+            GetDocFilter = "writer8" ' Textdokument 
         case frmCalc or cFlt8
-            GetDocFilter = "calc8" 'Tabellendokument
+            GetDocFilter = "calc8" 'Tabellendokument 
         case frmImpress or cFlt8
-            GetDocFilter = "impress8" 'Präsentation
+            GetDocFilter = "impress8" 'Präsentation 
         case frmDraw or cFlt8
             GetDocFilter = "draw8" 'Zeichen
         case frmMath or cFlt8
             GetDocFilter = "math8" 'Formel
-
+            
         case frmWriter or cFltXML
-            GetDocFilter = "StarOffice XML (Writer)" ' Textdokument
+            GetDocFilter = "StarOffice XML (Writer)" ' Textdokument 
         case frmCalc or cFltXML
-            GetDocFilter = "StarOffice XML (Calc)" 'Tabellendokument
+            GetDocFilter = "StarOffice XML (Calc)" 'Tabellendokument 
         case frmImpress or cFltXML
-            GetDocFilter = "StarOffice XML (Impress)" 'Präsentation
+            GetDocFilter = "StarOffice XML (Impress)" 'Präsentation 
         case frmDraw or cFltXML
             GetDocFilter = "StarOffice XML (Draw)" 'Zeichen
         case frmMath or cFltXML
-            GetDocFilter = "StarOffice XML (Math)" 'Formel
-
+            GetDocFilter = "StarOffice XML (Math)" 'Formel 
+            
         case frmHyperText, frmHyperText or cFlt50, frmHyperText or cFltXML
             GetDocFilter = "HTML" 'Hypertext-Dokument
         case frmWriter or cFlt50
@@ -615,69 +615,69 @@ Function GetDocFilter (DocType as Integer) as String
             GetDocFilter = "StarDraw 5.0" 'Zeichen 5.0
         case frmMath or cFlt50
             GetDocFilter = "StarMath 5.0" 'Formel 5.0
-
+            
         case frmWriter or cFltNewDoc
-            GetDocFilter = "swriter" ' Textdokument
+            GetDocFilter = "swriter" ' Textdokument 
         case frmCalc or cFltNewDoc
-            GetDocFilter = "scalc" 'Tabellendokument
+            GetDocFilter = "scalc" 'Tabellendokument 
         case frmMessage or cFltNewDoc
-            GetDocFilter = "Message" 'Nachricht
+            GetDocFilter = "Message" 'Nachricht 
         case frmImpress or cFltNewDoc
-            GetDocFilter = "simpress" 'Präsentation
+            GetDocFilter = "simpress" 'Präsentation 
         case frmDraw or cFltNewDoc
             GetDocFilter = "sdraw" 'Zeichen
         case frmMath or cFltNewDoc
-            GetDocFilter = "smath" 'Formel
+            GetDocFilter = "smath" 'Formel 
         case frmImage or cFltNewDoc
-            GetDocFilter = "simage" 'Bild
+            GetDocFilter = "simage" 'Bild 
         case frmHyperText or cFltNewDoc
             GetDocFilter = "swriter/web" 'Hypertext-Dokument
         case frmChart or cFltNewDoc
-            GetDocFilter = "schart" 'Diagramm
+            GetDocFilter = "schart" 'Diagramm 			
         case else
             GetDocFilter = ""
-    end Select
+    end Select		
 end Function
 
 Function GetLogFileName (DocType as Integer) as String
     Select Case ( DocType )
-        case frmWriter
-            GetLogFileName = sSWLogFileName ' Textdokument
+        case frmWriter 
+            GetLogFileName = sSWLogFileName ' Textdokument 
         case frmCalc
-            GetLogFileName = sSCLogFileName 'Tabellendokument
+            GetLogFileName = sSCLogFileName 'Tabellendokument 
         case frmMessage
-            GetLogFileName = sSMessageLogFileName 'Nachricht
+            GetLogFileName = sSMessageLogFileName 'Nachricht 
         case frmImpress
-            GetLogFileName = sSDLogFileName 'PrÕsentation
+            GetLogFileName = sSDLogFileName 'PrÕsentation 
         case frmDraw
             GetLogFileName = sSDrawLogFileName 'Zeichnen
         case frmMath
-            GetLogFileName = sSMathLogFileName 'Formel
+            GetLogFileName = sSMathLogFileName 'Formel 
         case frmImage
-            GetLogFileName = sSImDLogFileName 'Bild
+            GetLogFileName = sSImDLogFileName 'Bild 
         case frmHyperText
-            GetLogFileName = sSHptLogFileName 'Hypertext-Dokument
+            GetLogFileName = sSHptLogFileName 'Hypertext-Dokument 
         case frmChart
-            GetLogFileName = sSChartLogFileName 'Diagramm
+            GetLogFileName = sSChartLogFileName 'Diagramm 
         case frmJava
             GetLogFileName = sJavaLogFileName 'Java
         case frmDataBase
-            GetLogFileName = sSDBLogFileName 'Database
+            GetLogFileName = sSDBLogFileName 'Database	
         case frmExtension
-            GetLogFileName = sExtLogFileName 'Extension
+            GetLogFileName = sExtLogFileName 'Extension	
         case else
             GetLogFileName = ""
-    end Select
+    end Select		
 end Function
 
 Function GetErrorMessageOnAction (nAction as Integer) as String
     Select Case ( nAction )
-        case cDocNew
-            GetErrorMessageOnAction = cMessageNewDoc
+        case cDocNew 
+            GetErrorMessageOnAction = cMessageNewDoc 
         case cDocCut
-            GetErrorMessageOnAction = cMessageCutObj
+            GetErrorMessageOnAction = cMessageCutObj 
         case cDocPaste
-            GetErrorMessageOnAction = cMessagePasteObj
+            GetErrorMessageOnAction = cMessagePasteObj 
         case cDocSaveOpen8
             GetErrorMessageOnAction = cMessageSaveOpen8Doc
         case cDocSaveOpenXML
@@ -688,7 +688,7 @@ Function GetErrorMessageOnAction (nAction as Integer) as String
             GetErrorMessageOnAction = cMessageCloseDoc
         case else
             GetErrorMessageOnAction = ""
-    end Select
+    end Select		
 end Function
 
 Function IsFilterAvailable (FilterType as Integer) as boolean
@@ -705,10 +705,10 @@ Function TestJava (FilterType as Integer) as boolean
     LogState (not IsNull (oObj), "Java "+ cMessageNewDoc, FileChannel)
     LogState (not IsNull (oObj), "Java "+ cMessageNewDoc, MainFileChannel)
     SetStatus (FilterType, cDocNew, not IsNull (oObj))
-
+    
     Print #FileChannel, "---"
     Close #FileChannel%
-
+    
     TestJava = not IsNull (oObj)
 End Function
 
@@ -721,17 +721,17 @@ Sub CutAndPaste (DocType as Integer, oDoc as Object)
     Select Case ( DocType )
         case frmWriter
             Dim oCursor as Object
-
+            
             sText = "AutomaticText"
             oText = oDoc.GetText
             oCursor = oText.CreateTextCursor
             oText.InsertString(oCursor, sText, true) ' Cursor selektiert den Text
             oView = oDoc.getCurrentController
             oView.Select(oCursor)
-
+            
             if bMakeCutTest then
             call CutText (oDoc)
-
+            
             if oText.GetString = "" Then
                 bCutState = True
             else
@@ -741,10 +741,10 @@ Sub CutAndPaste (DocType as Integer, oDoc as Object)
             LogState (bCutState, GetDocFilter(DocType or cFltNewDoc)+" "+ cMessageCutObj, FileChannel)
             LogState (bCutState, GetDocFilter(DocType or cFltNewDoc)+" "+ cMessageCutObj, MainFileChannel)
             end if
-
+            
             if bMakePasteTest and bMakeCutTest then
             call PasteText (oDoc)
-
+            
             if oText.GetString = sText Then
                 bPasteState = True
             else
@@ -757,16 +757,16 @@ Sub CutAndPaste (DocType as Integer, oDoc as Object)
 
         case frmCalc
             DIM oCell as Object
-
+            
             sText = "AutomaticText"
             oCell = oDoc.Sheets(0).GetCellByPosition(0, 0)
             oCell.String = sText
             oView = oDoc.getCurrentController
             oView.Select(oCell)
-
+            
             if bMakeCutTest then
             call CutText (oDoc)
-
+            
             if oCell.String = "" Then
                 bCutState = True
             else
@@ -776,10 +776,10 @@ Sub CutAndPaste (DocType as Integer, oDoc as Object)
             LogState (bCutState, GetDocFilter(DocType or cFltNewDoc)+" "+ cMessageCutObj, FileChannel)
             LogState (bCutState, GetDocFilter(DocType or cFltNewDoc)+" "+ cMessageCutObj, MainFileChannel)
             end if
-
+            
             if bMakePasteTest and bMakeCutTest then
             call PasteText (oDoc)
-
+            
             if oCell.String = sText Then
                 bPasteState = True
             else
@@ -796,7 +796,7 @@ Sub CutAndPaste (DocType as Integer, oDoc as Object)
             Dim xSize as Object
             Dim xPoint as Object
             Dim bObjState as Boolean
-
+            
             xSize = CreateUnoStruct ("com.sun.star.awt.Size")
             xPoint = CreateUnoStruct ("com.sun.star.awt.Point")
             xSize.Width = 2000
@@ -804,29 +804,29 @@ Sub CutAndPaste (DocType as Integer, oDoc as Object)
             xPoint.x = 10000
             xPoint.y = 10000
             oPage = oDoc.DrawPages(0)
-
+            
             if DocType = frmImpress Then
                 oPage.Layout = 20 ' set page layot to none
             end If
-
+                
             oRect = oDoc.CreateInstance("com.sun.star.drawing.RectangleShape")
             oRect.Size = xSize
             oRect.Position = xPoint
             oPage.add(oRect)
-
+            
             oView = oDoc.getCurrentController
             oView.Select(oRect)
-
+            
             ' Prüft ob überhaupt ein Object angelegt wurde
             if oPage.count = 1 Then
                 bObjState = True
             else
                 bObjState = False
             end If
-
-            if bMakeCutTest then
+            
+            if bMakeCutTest then			
             call CutText (oDoc)
-
+            
             if (oPage.count = 0) and bObjState Then
                 bCutState = True
             else
@@ -835,13 +835,13 @@ Sub CutAndPaste (DocType as Integer, oDoc as Object)
             SetStatus (DocType, cDocCut, bCutState)
             LogState (bCutState, GetDocFilter(DocType or cFltNewDoc)+" "+ cMessageCutObj, FileChannel)
             LogState (bCutState, GetDocFilter(DocType or cFltNewDoc)+" "+ cMessageCutObj, MainFileChannel)
-            end if
+            end if 
 
             wait (1000) 'wait after cut
-
+            
             if bMakePasteTest and bMakeCutTest then
             call PasteText (oDoc)
-
+            
             if (oPage.count = 1) and bObjState Then
                 bPasteState = True
             else
@@ -855,17 +855,17 @@ Sub CutAndPaste (DocType as Integer, oDoc as Object)
         case frmImage
         case frmHyperText
         case frmChart
-    end Select
+    end Select		
 end Sub
 
 Sub LoadLibrary( LibName as String )
-
+    
     dim args(1)
     dim arg as new com.sun.star.beans.PropertyValue
     arg.Name = "LibraryName"
     arg.Value = LibName
     args(0) = arg
-
+    
     dim url as new com.sun.star.util.URL
     dim trans as object
     trans = createUnoService("com.sun.star.util.URLTransformer" )
@@ -875,7 +875,7 @@ Sub LoadLibrary( LibName as String )
     dim disp as object
     disp = StarDesktop.currentFrame.queryDispatch( url, "", 0 )
     disp.dispatch( url, args() )
-
+    
 End Sub
 
 Sub LoadDoc (DocName as String) as Object
@@ -886,7 +886,7 @@ Sub LoadDoc (DocName as String) as Object
     if Left(DocName, 5 ) <> "file:" then
     trans.parsestrict( url )
     endif
-
+    
     Dim aPropArray(0) as Object
     aPropArray(0) = CreateUnoStruct("com.sun.star.beans.PropertyValue")
     aPropArray(0).Name = "OpenFlags"
@@ -894,7 +894,7 @@ Sub LoadDoc (DocName as String) as Object
 
     dim doc as object
     dim noargs()
-    doc = StarDesktop.loadComponentFromURL( url.Complete, "_blank", 0, aPropArray() ) ' XModel
+    doc = StarDesktop.loadComponentFromURL( url.Complete, "_blank", 0, aPropArray() )	' XModel
     LoadDoc = doc
 End Sub
 
@@ -906,16 +906,16 @@ Sub SaveDoc (DocName as String, oDoc as Object, sFilterName as string )
     if Left(DocName, 5 ) <> "file:" then
     trans.parsestrict( url )
     endif
-
+    
     if not (sFilterName = "") then
         Dim aPropArray(0) as Object
         aPropArray(0) = CreateUnoStruct("com.sun.star.beans.PropertyValue")
         aPropArray(0).Name = "FilterName"
         aPropArray(0).Value = sFilterName
-
+    
         oDoc.storeAsURL( url.Complete, aPropArray() )
     else
         MessageBox "Filtername is unknown!"
-    end if
+    end if	
 end Sub
 </script:module>