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 | 6dd8b0a2247fe044fa4c42903902f6215137ad72 (patch) | |
| tree | be10ac684055754203cb9dd06250d0a72e2b5666 /testautomation | |
| parent | fadba4a81ec340f179e336c8c810318419ad6deb (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 23b3e02a7..714d708fc 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 -'******************************************************************************* |