diff options
| author | Thorsten Bosbach <tbo@OpenOffice.org> | 2011-02-21 11:10:45 +0100 |
|---|---|---|
| committer | Thorsten Bosbach <tbo@OpenOffice.org> | 2011-02-21 11:10:45 +0100 |
| commit | 2337a032723a52d87c9e0acc847ba9b61e982bb9 (patch) | |
| tree | c158f0c2912261a7f5807b0639b675873bc89d75 /testautomation | |
| parent | 5ee2b0faf3562022a85f589a667eab40361d5a32 (diff) | |
#i116972# fix gOleOthers for win32 only
Diffstat (limited to 'testautomation')
| -rw-r--r-- | testautomation/global/tools/includes/optional/t_ole.inc | 22 |
1 files changed, 21 insertions, 1 deletions
diff --git a/testautomation/global/tools/includes/optional/t_ole.inc b/testautomation/global/tools/includes/optional/t_ole.inc index 23b3e02a7ae8..714d708fc4ee 100644 --- a/testautomation/global/tools/includes/optional/t_ole.inc +++ b/testautomation/global/tools/includes/optional/t_ole.inc @@ -126,6 +126,8 @@ end function '******************************************************************************* function GetOleDefaultNames() + dim sAllOle as string + dim j as integer const CFN = "global::tools::includes::optional::t_ole.inc::GetOleDefaultNames(): " if ( GVERBOSE ) then printlog( CFN & "Retrieving OLE names" ) @@ -138,6 +140,24 @@ function GetOleDefaultNames() gOLEDraw = hGetOleObjectName( "Draw" ) gOLEMath = hGetOleObjectName( "Math" ) + ' There is no programatical way to retrieve the word for 'further objects' + ' Only way to get it language independent is to retrieve all other words and take the last other entry that lasts + ' Only available on windows platform + if ( gPlatgroup = "w95" ) then + sAllOle = gOLEWriter & gOLECalc & gOLEChart & gOLEImpress & gOLEDraw & gOLEMath + Call hNewDocument + InsertObjectOLEObject + Kontext "OLEObjektEinfuegen" + NeuErstellen.Check + WaitSlot() + for j=1 to ObjektTyp.GetItemCount + ObjektTyp.Select j + if 0 = instr (sAllOle, ObjektTyp.GetSelText ) then + gOleOthers = ObjektTyp.GetSelText + endif + next j + OLEObjektEinfuegen.cancel + hCloseDocument + endif end function -'******************************************************************************* |