diff options
| author | Kurt Zenker <kz@openoffice.org> | 2008-03-05 15:19:29 +0000 |
|---|---|---|
| committer | Kurt Zenker <kz@openoffice.org> | 2008-03-05 15:19:29 +0000 |
| commit | 6691d2d04e70d2ae4d188ac52fff2995f0bda156 (patch) | |
| tree | 81f0571bd5422b8a18799a6f9fd94608c8fd11d2 /smoketestoo_native | |
| parent | 64169b7b4709dd068bbcaee027dc29b9a9f65199 (diff) | |
INTEGRATION: CWS smoketest18 (1.6.30); FILE MERGED
2008/02/18 18:55:53 kz 1.6.30.1: #i75077# handle new quickstarter
Diffstat (limited to 'smoketestoo_native')
| -rwxr-xr-x | smoketestoo_native/data/scripts/Global.xba | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/smoketestoo_native/data/scripts/Global.xba b/smoketestoo_native/data/scripts/Global.xba index ed2b4da08ecc..c56b444cf030 100755 --- a/smoketestoo_native/data/scripts/Global.xba +++ b/smoketestoo_native/data/scripts/Global.xba @@ -562,11 +562,20 @@ Sub SetDefaultOptions bMakeTerminateAfterTest = true end Sub +Sub ShutdownQuickstarter + dim qs as Object + qs = createUnoService("com.sun.star.comp.desktop.QuickstartWrapper" ) + qs.setFastPropertyValue( 0, false ) +end Sub + Sub StartTestByOptions + call ShutdownQuickstarter bShowTable = true call ReadOptions call Main + if bMakeTerminateAfterTest then + ClearDocFull (gOutPutDoc) gOutPutDoc.dispose 'StarDesktop.Terminate @@ -578,11 +587,14 @@ Sub StartTestByOptions end Sub Sub StartTestWithDefaultOptions + call ShutdownQuickstarter bShowTable = false call SetDefaultOptions call Main + if bMakeTerminateAfterTest then stop + ClearDocFull (gOutPutDoc) gOutPutDoc.dispose 'StarDesktop.Terminate |