1 files changed, 8 insertions, 28 deletions

diff --git a/smoketestoo_native/data/Global.xml b/smoketestoo_native/data/Global.xml
index d38f271cc39b..20c6c108dde4 100644
--- a/smoketestoo_native/data/Global.xml
+++ b/smoketestoo_native/data/Global.xml
@@ -35,7 +35,7 @@ const cParagraphBreak = 0
 
 global const cExtensionFileName = "TestExtension.oxt"
 
-global const cDocNew = 0, cDocCut = 1, cDocPaste = 2, cDocSaveOpen8 = 3, cDocSaveOpenXML = 4, cDocOpen50 = 5, cDocClose = 6, cDocWrite = 7
+global const cDocNew = 0, cDocSaveOpen8 = 1, cDocSaveOpenXML = 2, cDocOpen50 = 3, cDocClose = 4, cDocWrite = 5
 global const cDBService = 0, cDBOpen = 1, cDBInsert = 2, cDBDelete = 3, cDBSeek = 4, cDBClose = 5
 global const cEXTService = 0, cEXTInstall = 1, cEXTUninstall = 2
 global const cLogfileFailed = 255
@@ -83,8 +83,8 @@ Global const cUserFieldTestWriter = "Writer", cUserFieldTestCalc = &qu
 Global const cUserFieldTestDraw = "Draw", cUserFieldTestMath = "Math", cUserFieldTestChart = "Chart"
 Global const cUserFieldTestHTML = "HTML", cUserFieldTestJava = "Java", cUserFieldTestDatabase = "Database"
 Global const cUserFieldTestExtension = "Extension"
-Global const cUserFieldTestOpenSaveXML = "SaveOpenXML", cUserFieldTestOpen50 = "Open50", cUserFieldTestCut = "Cut"
-Global const cUserFieldTestPaste = "Paste", cUserFieldTestTerminateAfterTest = "Terminate", cUserFieldTestOpenSave8 = "SaveOpen8"
+Global const cUserFieldTestOpenSaveXML = "SaveOpenXML", cUserFieldTestOpen50 = "Open50"
+Global const cUserFieldTestTerminateAfterTest = "Terminate", cUserFieldTestOpenSave8 = "SaveOpen8"
 
 Global const cOptionsDialogName = "OptionsDlg", cTest10Modul = "Standard"
 
@@ -100,8 +100,8 @@ Global bMakeWriterTest as boolean, bMakeCalcTest as  boolean, bMakeImpressTest a
 Global bMakeDrawTest as Boolean, bMakeMathTest as boolean, bMakeChartTest as boolean
 Global bMakeHTMLTest as boolean, bMakeJavaTest as boolean, bMakeDBTest as boolean
 Global bMakeExtensionTest as boolean
-Global bMakeSaveOpenXMLTest as boolean, bMakeOpen50Test as boolean, bMakeCutTest as boolean
-Global bMakePasteTest as boolean, bMakeTerminateAfterTest as boolean, bShowTable as boolean
+Global bMakeSaveOpenXMLTest as boolean, bMakeOpen50Test as boolean
+Global bMakeTerminateAfterTest as boolean, bShowTable as boolean
 Global bMakeSaveOpen8Test as boolean
 
 global sExtensionURL as string
@@ -156,10 +156,8 @@ Sub CreateStatusTable
     tableHeaders(cStHTML) = "HTML"
     tableHeaders(cStJava) = "Java"
 
-    dim tableColums(5) as string
+    dim tableColums(3) as string
     tableColums(cDocNew) = "new"
-    tableColums(cDocCut) = "cut"
-    tableColums(cDocPaste) = "paste"
     tableColums(cDocSaveOpen8) = "V8.0"
     tableColums(cDocSaveOpenXML) = "XML"
     tableColums(cDocOpen50) = "V5.0"
@@ -211,7 +209,7 @@ Sub CreateStatusTable
       xCell.BackTransparent = False
       xCell.BackColor = cCoGrey
 
-    for i% = 0 to 5
+    for i% = 0 to 3
         tableCursor.goDown(1,FALSE)
          cName = tableCursor.getRangeName()
           xCell = table.getCellByName(cName)
@@ -509,8 +507,6 @@ Sub SetOptions
     SetUserFieldState (cUserFieldTestOpenSaveXML, -(gOptionsDialog.getControl("cbSaveOpenXMLTest").getState), gOutPutDoc)
     SetUserFieldState (cUserFieldTestOpen50, -(gOptionsDialog.getControl("cbOpen50Test").getState), gOutPutDoc)
     SetUserFieldState (cUserFieldTestOpenSave8, -(gOptionsDialog.getControl("cbSaveOpen8Test").getState), gOutPutDoc)
-    SetUserFieldState (cUserFieldTestCut, -(gOptionsDialog.getControl("cbCutTest").getState), gOutPutDoc)
-    SetUserFieldState (cUserFieldTestPaste, -(gOptionsDialog.getControl("cbPasteTest").getState), gOutPutDoc)
     SetUserFieldState (cUserFieldTestTerminateAfterTest, -(gOptionsDialog.getControl("cbTerminateAfterTest").getState), gOutPutDoc)
 end Sub
 
@@ -529,8 +525,6 @@ Sub GetOptions
     gOptionsDialog.getControl("cbSaveOpenXMLTest").setState( -( GetUserFieldState (cUserFieldTestOpenSaveXML, gOutPutDoc)))
     gOptionsDialog.getControl("cbOpen50Test").setState( -( GetUserFieldState (cUserFieldTestOpen50, gOutPutDoc)))
     gOptionsDialog.getControl("cbSaveOpen8Test").setState( -( GetUserFieldState (cUserFieldTestOpenSave8, gOutPutDoc)))
-    gOptionsDialog.getControl("cbCutTest").setState( -( GetUserFieldState (cUserFieldTestCut, gOutPutDoc)))
-    gOptionsDialog.getControl("cbPasteTest").setState( -( GetUserFieldState (cUserFieldTestPaste, gOutPutDoc)))
     gOptionsDialog.getControl("cbTerminateAfterTest").setState( -( GetUserFieldState (cUserFieldTestTerminateAfterTest, gOutPutDoc)))
 End Sub
 
@@ -549,8 +543,6 @@ Sub ReadOptions
     bMakeSaveOpenXMLTest = GetUserFieldState (cUserFieldTestOpenSaveXML, gOutPutDoc)
     bMakeOpen50Test = GetUserFieldState (cUserFieldTestOpen50, gOutPutDoc)
     bMakeSaveOpen8Test = GetUserFieldState (cUserFieldTestOpenSave8, gOutPutDoc)
-    bMakeCutTest = GetUserFieldState (cUserFieldTestCut, gOutPutDoc)
-    bMakePasteTest = GetUserFieldState (cUserFieldTestPaste, gOutPutDoc)
     bMakeTerminateAfterTest = GetUserFieldState (cUserFieldTestTerminateAfterTest, gOutPutDoc)
 end Sub
 
@@ -579,8 +571,6 @@ Sub SetDefaultOptions
         bMakeOpen50Test = true
     End If
     bMakeSaveOpen8Test = true
-    bMakeCutTest = true
-    bMakePasteTest = true
     bMakeTerminateAfterTest = false
 end Sub
 
@@ -614,10 +604,8 @@ Function StartTestWithDefaultOptions
     component(cStJava) = "Java"
     component(cStDataBase) = "Base"
     component(cStExtension) = "Extensions"
-    dim action(5) as string
+    dim action(3) as string
     action(cDocNew) = "new"
-    action(cDocCut) = "cut"
-    action(cDocPaste) = "paste"
     action(cDocSaveOpen8) = "V8.0"
     action(cDocSaveOpenXML) = "XML"
     action(cDocOpen50) = "V5.0"
@@ -700,14 +688,6 @@ Sub ExecuteSlot( SlotNr As String, oDoc as Object )
 
 End Sub
 
-Sub CutText (oDoc as Object)
-    ExecuteSlot ("5710", oDoc)
-End Sub
-
-Sub PasteText (oDoc as Object)
-    ExecuteSlot ("5712", oDoc)
-End Sub
-
 Sub DelAllUserFields (aDoc as Object)
     Dim aFieldType as Object
     Dim aElements as Variant