'encoding UTF-8 Do not remove or change this line! '************************************************************************** ' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. ' ' Copyright 2000, 2010 Oracle and/or its affiliates. ' ' OpenOffice.org - a multi-platform office productivity suite ' ' This file is part of OpenOffice.org. ' ' OpenOffice.org is free software: you can redistribute it and/or modify ' it under the terms of the GNU Lesser General Public License version 3 ' only, as published by the Free Software Foundation. ' ' OpenOffice.org is distributed in the hope that it will be useful, ' but WITHOUT ANY WARRANTY; without even the implied warranty of ' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ' GNU Lesser General Public License version 3 for more details ' (a copy is included in the LICENSE file that accompanied this code). ' ' You should have received a copy of the GNU Lesser General Public License ' version 3 along with OpenOffice.org. If not, see ' ' for a copy of the LGPLv3 License. ' '/************************************************************************ '* '* owner : wolfram.garten@oracle.com '* '* short description : Global Required/resource test: Checking the gallery '* '******************************************************************* '* ' #1 tGallery_DialogTest ' Open gallery, pin - unpin, dock - undock, close gallery ' #1 tGallery_ActivateAndUpdateAllThemes ' Activate all gallery-themes and update this theme ' #1 tGallery_CheckNames ' Check the names for all themes depends on language ' #1 tGallery_CheckContextMenuForGalleryThemes ' Test the context menu on themes window ' #1 tGallery_CreateAndWorkWithANewGalleryThemes ' Create a new theme, add graphics and work with it ' #1 tGallery_GalleryView_Preview ' Preview-feature in Gallery Beamer-window ' #1 tGallery_GalleryView_Insert ' Insert gallery objects in all applications ' #1 tGallery_GalleryView_Delete ' Delete gallery objects out of Beamer window ' #0 hOpenGallery ' Open the gallery ' #1 tGallery_Quick_check '* '\****************************************************************** testcase tGallery_DialogTest printlog "- Working with Gallery-Beamer!" gApplication = "WRITER" call hNewDocument call hOpenGallery Kontext "DocumentWriter" printlog "- undock the Gallery Beamer" Kontext "Gallery" Gallery.Undock ( AlignTop ) sleep(2) printlog " - move the gallery window" Gallery.move ( 20, 20 ) sleep(2) printlog "- dock the Gallery Beamer" Gallery.Dock ( AlignTop ) sleep(2) printlog "- close the Gallery Beamer" ToolsGallery call hCloseDocument endcase '------------------------------------------------------------------------- testcase tGallery_ActivateAndUpdateAllThemes Dim iThemeCount as Integer Dim i as Integer Dim j as Integer Dim Gallerytext as string printlog "activate and update all gallery-themes" gApplication = "WRITER" call hNewDocument Kontext call hOpenGallery Kontext "Gallery" iThemeCount = Gallerys.GetItemCount for i=1 to iThemeCount if gNetzInst = FALSE then Kontext "Gallery" Gallerytext = Gallerys.GetItemText(i) printlog "- " + i + ". entry (" & Gallerytext & ")" Gallerys.Select i Gallerys.MouseMove ( 10, 10 ) Gallerys.OpenContextMenu sleep (3) printlog " - update" hMenuSelectNr (1) sleep (3) Kontext "Messagebox" if Messagebox.Exists(3) then if Messagebox.getRT=304 then printlog "- 'MyTheme' is the " & i & "'s entry." Messagebox.No end if else for j = 1 to 800 Kontext "AktualisierenGallery" if AktualisierenGallery.Exists then printlog "DEBUG (j): " & j sleep (1) else printlog "DEBUG: 800 reached!" j=801 end if next j end if end if next i call hCloseDocument endcase '------------------------------------------------------------------------- testcase tGallery_CheckNames Dim iThemeCount as Integer Dim i as Integer Dim j as Integer Dim ssList (100) as String Dim siList (100) as String Dim sFileName as String Dim iGalleryThemes as integer if gOOO = true then sFileName = ConvertPath ( gTesttoolPath + "graphics\required\input\gallery\gal_oo_" + iSprache + ".txt" ) else sFileName = ConvertPath ( gTesttoolPath + "graphics\required\input\gallery\gal_" + iSprache + ".txt" ) end if gApplication = "WRITER" call hNewDocument Kontext call hOpenGallery printlog "- check the number of gallery-themes" Kontext "Gallery" if NOT gOOO then if bAsianLan then iGalleryThemes = 29 ' Flags are not allowed! else iGalleryThemes = 30 end if else if bAsianLan then iGalleryThemes = 6 ' Flags are not allowed! else iGalleryThemes = 6 end if end if iThemeCount = Gallerys.GetItemCount if (iThemeCount <> iGalleryThemes) then warnlog "Difference in count of gallery themes; found: '" + iThemeCount + "'; expected: '"+ iGalleryThemes +"'" end if for i=1 to iThemeCount Gallerys.Select i ListAppend ( siList(), Gallerys.GetSelText ) next i printlog "- check the names of gallery-themes" if Dir ( sFilename ) = "" then warnlog "The file for comparison does not exists. The file will be written!" warnlog "Please control : " + sFilename ListWrite ( siList(), sFilename, "utf8" ) else printlog " file for comparison is : " + sFilename ListRead ( ssList (), sFilename, "uft8" ) gCompare2Lists ( siList(), ssList () ) end if ToolsGallery call hCloseDocument endcase '------------------------------------------------------------------------- testcase tGallery_CheckContextMenuForGalleryThemes Dim iForBidden as Integer Dim iMenuEntries as Integer Dim i as Integer Dim iThemeCount as Integer printlog "check the contextmenu for the gallery-themes" gApplication = "WRITER" call hNewDocument call hOpenGallery Kontext "Gallery" iThemeCount = Gallerys.GetItemCount Gallerys.MouseMove ( 10, 10 ) for i=1 to iThemeCount Kontext "Gallery" printlog "- " + i + ". entry" sleep 1 Gallerys.Select 1 sleep (1) Gallerys.Select i sleep (1) Gallerys.OpenContextMenu sleep (2) iMenuEntries = hMenuItemGetCount if iMenuEntries <> 3 then if gNetzInst = FALSE then warnlog "There are not 3 entries! => no test on the contextmenu!" else if iMenuEntries <> 1 then warnlog "Net-Inst : There are not 1 entries! => no test on the contextmenu!" else sleep (3) hMenuSelectNr(1) Kontext if Active.GetPageCount <> 1 then warnlog "There are more than 1 Tabpage in Net-Installation ( perhaps no root-installation )!" end if Active.SetPage TabAllgemeinGallery Kontext "TabAllgemeinGallery" TabAllgemeinGallery.Cancel sleep (1) end if end if else sleep (1) hMenuSelectNr(2) Kontext "GalleryNewTitle" GalleryNewTitle.Cancel sleep(1) Kontext "Gallery" Gallerys.OpenContextMenu sleep (3) hMenuSelectNr (3) Kontext Active.SetPage TabAllgemeinGallery Active.SetPage TabDateien Kontext "TabDateien" TabDateien.Cancel sleep(1) end if next i ToolsGallery call hCloseDocument endcase '------------------------------------------------------------------------- testcase tGallery_CreateAndWorkWithANewGalleryThemes Dim iMenuEntries as Integer Dim j as Integer printlog "Open a new Writer document" printlog "Tools / Gallery" printlog "create a new gallery-theme ( TT-theme )" gApplication = "WRITER" call hNewDocument call hOpenGallery iMenuEntries = Gallerys.GetItemCount printlog "- Clicking on 'New Theme' and creating a new theme" NewTheme.Click printlog "+Activate General tabpage and insert TT-theme as name" Kontext Active.SetPage TabAllgemeinGallery Kontext "TabAllgemeinGallery" NeuesThema.SetText "TT-theme" sleep (1) printlog " - named the new theme 'TT-theme' on the general-page" printlog " - insert all files out of '[gTestToolpath]\global\input\graf_inp' in the files-page" printlog "+Activate Files tabpage" Kontext Active.SetPage TabDateien Kontext "TabDateien" printlog " - click 'add' without a selected file => insert-graphic-dialog has to be be visible" printlog "+Click on Add (If no file is selected the Graphic-Insert dialog has to be be opened -> close it)" Hinzufuegen.Click sleep (1) Kontext "GrafikEinfuegenDlg" GrafikEinfuegenDlg.Cancel sleep (1) printlog " - click 'find files' to insert the path for graphics" printlog "+Click on Find Files => select-path dialog will be visible" Kontext "TabDateien" Suche.Click sleep (1) printlog "+Insert [gTesttoolPath]/input/global/graf_inp as path-name as click on Select" Kontext "OeffnenDlg" Pfad.SetText ( convertPath ( gTesttoolPath + "global\input\graf_inp" ) ) sleep (1) Auswaehlen.Click sleep (10) printlog "+Click on Add for some graphics" printlog " - 'add' one by one" Kontext "TabDateien" DateiListe.Select 1 WaitSlot(1000) Hinzufuegen.Click printlog "Checking if Apply window is closed" Kontext "ApplyGallery" for j=1 to 100 if ApplyGallery.Exists then sleep (1) else j=101 endif next j sleep (1) Kontext "TabDateien" printlog "add the 2nd one" DateiListe.Select 1 Hinzufuegen.Click printlog "Checking if Apply window is closed" Kontext "ApplyGallery" for j=1 to 100 if ApplyGallery.Exists then sleep (1) else j=101 endif next j sleep (1) Kontext "TabDateien" printlog "+Click on Add all for rest of the graphics" printlog " - 'add all' for the rest of the files" DateiListe.Select 1 HinzufuegenAlle.Click sleep (8) printlog " - apply-dialog -> cancel" Kontext "ApplyGallery" for j=1 to 100 if ApplyGallery.Exists then sleep (1) else j=101 endif next j sleep (1) Kontext "TabDateien" if DateiListe.GetItemCount > 1 then printlog " - 'add all' for the rest of the files" DateiListe.Select 1 HinzufuegenAlle.Click sleep (8) Kontext "ApplyGallery" for j=1 to 100 If ApplyGallery.Exists then sleep (1) else j=101 end if next j end if Kontext "TabDateien" printlog " - click 'OK' for the tabpages" TabDateien.OK printlog "+Check if the new entry is inserted and select it" printlog " - check if the new entrie is inserted and select it" Kontext "Gallery" if Gallerys.GetItemCount <> ( iMenuEntries + 1 ) then warnlog "No new theme was created => the test ends here" ToolsGallery call hCloseDocument else printlog "make mouseclick to set focus" gMouseClick 50,50 Kontext "Gallery" Gallerys.Select "TT-theme" Gallerys.MouseMove ( 10, 10 ) sleep (1) Gallerys.OpenContextMenu printlog "+Update the entry (1. entry in context menu ) => cancel it" sleep (3) hMenuSelectNr (1) sleep (1) Kontext "AktualisierenGallery" if AktualisierenGallery.Exists <> TRUE then AktualisierenGallery.Cancel end if do sleep 1 loop while AktualisierenGallery.Exists Kontext "Gallery" Gallerys.Select "TT-theme" Gallerys.OpenContextMenu printlog "+Update it (1. entry in context menu )" sleep (3) hMenuSelectNr (1) for j=1 to 100 Kontext "AktualisierenGallery" if AktualisierenGallery.Exists <> TRUE then j=101 else sleep (1) end if next j printlog " - rename ( 3. entry in context-menu )" Kontext "Gallery" Gallerys.OpenContextMenu sleep (3) hMenuSelectNr (3) Kontext "GalleryNewTitle" Title.SetText "New TT-theme" GalleryNewTitle.OK Kontext "Gallery" Gallerys.Select "New TT-theme" printlog " - add new graphics in properties ( 4. entry in context-menu )" Kontext "Gallery" Gallerys.OpenContextMenu sleep (3) hMenuSelectNr (4) Kontext Active.SetPage TabDateien Kontext "TabDateien" Suche.Click Kontext "OeffnenDlg" Pfad.SetText ( convertPath ( gTesttoolPath + "global\input\graf_inp" ) ) Auswaehlen.Click sleep (10) Kontext "TabDateien" DateiListe.Select 1 Hinzufuegen.Click TabDateien.OK printlog " - delete the entry ( 2. entry in context-menu )" printlog " - messagebox -> no" Kontext "Gallery" Gallerys.Select "New TT-theme" sleep (5) Gallerys.OpenContextMenu sleep (3) hMenuSelectNr (2) Kontext "Active" sleep (1) Active.No printlog " - messagebox -> yes" Kontext "Gallery" sleep (1) Gallerys.Select "New TT-theme" sleep (1) Gallerys.OpenContextMenu sleep (3) hMenuSelectNr (2) Kontext "Active" Active.Yes try Kontext "Gallery" Gallerys.Select "New TT-theme" warnlog "The entry isn't deleted!" catch endcatch end if sleep 10 ToolsGallery call hCloseDocument endcase '------------------------------------------------------------------------- testcase tGallery_GalleryView_Preview Dim jpeg_bkg as Integer Dim iAnimation as Integer Dim iSound as Integer Dim i as Integer Dim iPreview as Integer Dim iTitle as Integer if NOT gOOO then select case iSprache case 01 : jpeg_bkg = 3 : iAnimation = 1 : iSound = 28 case 07 : jpeg_bkg = 29 : iAnimation = 1 : iSound = 6 case 31 : jpeg_bkg = 3 : iAnimation = 3 : iSound = 11 case 33 : jpeg_bkg = 13 : iAnimation = 1 : iSound = 29 case 34 : jpeg_bkg = 11 : iAnimation = 1 : iSound = 28 case 36 : jpeg_bkg = 12 : iAnimation = 1 : iSound = 10 case 39 : jpeg_bkg = 10 : iAnimation = 1 : iSound = 27 case 46 : jpeg_bkg = 2 : iAnimation = 1 : iSound = 17 case 48 : jpeg_bkg = 2 : iAnimation = 1 : iSound = 17 case 49 : jpeg_bkg = 12 : iAnimation = 1 : iSound = 16 case 50 : jpeg_bkg = 12 : iAnimation = 1 : iSound = 16 case 55 : jpeg_bkg = 21 : iAnimation = 1 : iSound = 28 case 81 : jpeg_bkg = 21 : iAnimation = 1 : iSound = 10 'FHA TODO: Find out the right numbers for Asian languages. case 82 : jpeg_bkg = 1 : iAnimation = 17 : iSound = 12 case 86 : jpeg_bkg = 1 : iAnimation = 9 : iSound = 13 case 88 : jpeg_bkg = 1 : iAnimation = 7 : iSound = 20 case else : jpeg_bkg = 10 : iAnimation = 1 : iSound = 17 warnlog "Please insert the entrienumbers for 'Backgrounds', 'Sounds' and one with normal files ( Animations )" end select else ' Testing OOO select case iSprache case 01 : jpeg_bkg = 1 : iAnimation = 5 : iSound = 2 case 07 : jpeg_bkg = 1 : iAnimation = 5 : iSound = 2 case 31 : jpeg_bkg = 3 : iAnimation = 1 : iSound = 1 case 33 : jpeg_bkg = 3 : iAnimation = 1 : iSound = 2 case 34 : jpeg_bkg = 1 : iAnimation = 1 : iSound = 2 case 36 : jpeg_bkg = 2 : iAnimation = 1 : iSound = 2 case 39 : jpeg_bkg = 2 : iAnimation = 1 : iSound = 2 case 46 : jpeg_bkg = 2 : iAnimation = 5 : iSound = 2 case 48 : jpeg_bkg = 2 : iAnimation = 5 : iSound = 2 case 49 : jpeg_bkg = 2 : iAnimation = 5 : iSound = 2 case 50 : jpeg_bkg = 2 : iAnimation = 5 : iSound = 2 case 55 : jpeg_bkg = 2 : iAnimation = 5 : iSound = 2 case 81 : jpeg_bkg = 2 : iAnimation = 5 : iSound = 2 'FHA TODO: Find out the right numbers for Asian languages. case 82 : jpeg_bkg = 1 : iAnimation = 5 : iSound = 2 case 86 : jpeg_bkg = 1 : iAnimation = 5 : iSound = 3 case 88 : jpeg_bkg = 1 : iAnimation = 5 : iSound = 2 case else : jpeg_bkg = 1 : iAnimation = 5 : iSound = 2 warnlog "Please insert the entrienumbers for 'Backgrounds', 'Sounds' and one with normal files ( Animations )" end select end if printlog "open a writer and the gallery" gApplication = "WRITER" call hNewDocument Kontext call hOpenGallery for i=1 to 3 if i=1 then Gallerys.Select jpeg_bkg printlog "selected gallery-theme : Backgrounds (Jpeg-files)" end if if i=2 then Gallerys.Select iAnimation printlog "selected gallery-theme : Animation" end if if i=3 then Gallerys.Select iSound printlog "selected gallery-theme : Sound" end if if gNetzInst = FALSE then iPreview = 2 : iTitle = 3 else iPreview = 2 : iTitle = 0 end if printlog "- list-view" printlog " - open the list-view" ListView.Click sleep (1) printlog " - Press Home + Enter to focus and enter Preview-mode." View.TypeKeys "" View.TypeKeys "" sleep (2) View.TypeKeys "" sleep (2) printlog " - preview out of context menu on/off" View.TypeKeys "" Sleep (2) View.OpenContextMenu true sleep (3) hMenuSelectNr ( iPreview ) sleep (3) kontext "Gallery" Sleep (2) View.OpenContextMenu true sleep (2) hMenuSelectNr ( iPreview ) sleep (3) if gNetzInst = FALSE then printlog " - title" Kontext "Gallery" sleep (2) View.OpenContextMenu true sleep (3) hMenuSelectNr ( iTitle ) Kontext "GalleryNewTitle" sleep (1) GalleryNewTitle.Cancel sleep (1) Kontext "Gallery" end if View.OpenContextMenu true sleep (3) hMenuSelectNr ( iPreview ) sleep (3) View.OpenContextMenu true sleep (3) printlog MenuIsItemChecked (MenuGetItemID(iPreview+1)) if MenuIsItemChecked (MenuGetItemID(iPreview+1)) then Printlog " Entered Preview-mode correctly" sleep (1) else Warnlog " Didnt seem to enter preview-mode correctly." end if MenuSelect (0) sleep (1) printlog "- icon-view" if IconView.isEnabled then IconView.Click qaErrorLog "The bug 64543 has been fixed! Please report to FHA." end if sleep (1) View.TypeKeys "" printlog " - Enter to get out of Preview-mode" View.TypeKeys "" sleep (2) View.TypeKeys "" sleep (2) printlog " - preview out of context menu on/off" View.TypeKeys "" sleep (3) View.OpenContextMenu true sleep (3) hMenuSelectNr ( iPreview ) sleep (3) View.OpenContextMenu true sleep (3) hMenuSelectNr ( iPreview ) sleep (3) if gNetzInst = FALSE then printlog " - title" try View.OpenContextMenu true sleep (3) catch warnlog "Could not open Contextmenu for Title nr:" +iTitle endcatch hMenuSelectNr ( iTitle ) Kontext "GalleryNewTitle" GalleryNewTitle.Cancel Kontext "Gallery" end if next i sleep 1 ' else crash ToolsGallery kontext "Mplayer" if Mplayer.Exists then if (gApplication = "IMPRESS") then kontext "DocumentImpress" else kontext "DocumentDraw" end if ToolsMediaPlayer else if (gApplication = "IMPRESS") then kontext "DocumentImpress" else kontext "DocumentDraw" end if end if call hCloseDocument endcase '------------------------------------------------------------------------- testcase tGallery_GalleryView_Insert Dim jpeg_bkg as Integer Dim iAnimation as Integer Dim i as Integer Dim j as Integer Dim k as Integer if NOT gOOO then select case iSprache case 01 : jpeg_bkg = 3 : iAnimation = 1 case 07 : jpeg_bkg = 29 : iAnimation = 1 case 31 : jpeg_bkg = 3 : iAnimation = 3 case 33 : jpeg_bkg = 13 : iAnimation = 1 case 34 : jpeg_bkg = 7 : iAnimation = 1 case 36 : jpeg_bkg = 12 : iAnimation = 1 case 39 : jpeg_bkg = 10 : iAnimation = 1 case 46 : jpeg_bkg = 1 : iAnimation = 2 case 48 : jpeg_bkg = 3 : iAnimation = 1 case 49 : jpeg_bkg = 1 : iAnimation = 2 case 50 : jpeg_bkg = 1 : iAnimation = 2 case 55 : jpeg_bkg = 8 : iAnimation = 1 case 81 : jpeg_bkg = 1 : iAnimation = 3 case 82 : jpeg_bkg = 1 : iAnimation = 17 case 86 : jpeg_bkg = 17 : iAnimation = 15 case 88 : jpeg_bkg = 17 : iAnimation = 15 case else : jpeg_bkg = 1 : iAnimation = 2 warnlog "Please insert the entrienumbers for 'Backgrounds' and one with normal files ( Animations )" end select else ' Testing OOO select case iSprache case 01 : jpeg_bkg = 3 : iAnimation = 1 case 07 : jpeg_bkg = 5 : iAnimation = 1 case 31 : jpeg_bkg = 3 : iAnimation = 3 case 33 : jpeg_bkg = 5 : iAnimation = 1 case 34 : jpeg_bkg = 6 : iAnimation = 1 case 36 : jpeg_bkg = 5 : iAnimation = 1 case 39 : jpeg_bkg = 5 : iAnimation = 1 case 46 : jpeg_bkg = 1 : iAnimation = 2 case 48 : jpeg_bkg = 3 : iAnimation = 1 case 49 : jpeg_bkg = 1 : iAnimation = 2 case 50 : jpeg_bkg = 1 : iAnimation = 2 case 55 : jpeg_bkg = 6 : iAnimation = 1 case 81 : jpeg_bkg = 1 : iAnimation = 3 case 82 : jpeg_bkg = 1 : iAnimation = 1 case 86 : jpeg_bkg = 5 : iAnimation = 5 case 88 : jpeg_bkg = 5 : iAnimation = 1 case else : jpeg_bkg = 1 : iAnimation = 2 warnlog "Please insert the entrienumbers for 'Backgrounds' and one with normal files ( Animations )" end select end if for i=1 to 4 ' each application if i=1 then gApplication = "WRITER" if i=2 then gApplication = "CALC" if i=3 then gApplication = "IMPRESS" if i=4 then gApplication = "DRAW" printlog gApplication 'Chr(13) call hNewDocument call hOpenGallery ' kontext "GraphicObjectbar" ' if GraphicObjectbar.Exists then GraphicObjectbar.Close for j=1 to 2 ' the two gallery-theme if j=1 then Gallerys.Select jpeg_bkg printlog " selected gallery-theme : Backgrounds" end if if j=2 then Gallerys.Select iAnimation printlog " selected gallery-theme : Animation" end if if i=1 then ' test for writer for k=1 to 2 if k=1 then ListView.Click printlog " - insert on list view" else IconView.Click printlog " - insert on icon view" end if sleep (2) View.Mousedown ( 5, 18 ) View.Mouseup ( 5, 18 ) View.typekeys "," sleep (3) View.TypeKeys "" ' OpenContextMenu sleep (3) hMenuSelectNr ( 1 ) if j=1 then printlog " - copy" sleep (1) hMenuSelectNr ( 1 ) sleep (2) else printlog " - copy" sleep (1) hMenuSelectNr ( 1 ) sleep (3) printlog " - link" View.TypeKeys "" 'OpenContextMenu sleep (1) hMenuSelectNr ( 1 ) hMenuSelectNr ( 2 ) sleep (3) printlog " - background -> page" View.TypeKeys "" 'OpenContextMenu sleep (2) hMenuSelectNr ( 1 ) hMenuSelectNr ( 3 ) hMenuSelectNr ( 1 ) sleep (3) printlog " - background -> paragraph" View.TypeKeys "" 'OpenContextMenu sleep (2) hMenuSelectNr ( 1 ) hMenuSelectNr ( 3 ) hMenuSelectNr ( 2 ) sleep (3) end if kontext "GraphicObjectbar" if GraphicObjectbar.Exists then if GraphicObjectbar.isDocked = False then GraphicObjectbar.Move 900,900 end if end if kontext "Gallery" next k else ' test for other applications ( calc, impress, draw ) kontext "GraphicObjectbar" if GraphicObjectbar.Exists then if GraphicObjectbar.isDocked = False then GraphicObjectbar.Move 900,900 end if end if kontext "Gallery" kontext "Gluepointsobjectbar" if Gluepointsobjectbar.Exists then if Gluepointsobjectbar.isDocked = false then Gluepointsobjectbar.Move 900,900 end if end if kontext "Gallery" kontext "Optionsbar" if Optionsbar.Exists then if Optionsbar.isDocked = false then Optionsbar.Move 900,900 end if end if kontext "Gallery" for k=1 to 2 if k=1 then ListView.Click printlog " - insert on list view" else IconView.Click printlog " - insert on icon view" end if sleep (1) View.Mousedown ( 5, 18 ) View.Mouseup ( 5, 18 ) View.typekeys "," sleep (1) View.TypeKeys "" 'OpenContextMenu printlog " - copy" sleep (3) hMenuSelectNr ( 1 ) hMenuSelectNr ( 1 ) sleep (3) if j=2 then View.TypeKeys "" 'OpenContextMenu printlog " - link" sleep (3) hMenuSelectNr ( 1 ) hMenuSelectNr ( 2 ) sleep (2) end if next k end if next j ToolsGallery WaitSlot (2000) call hCloseDocument WaitSlot (2000) next i endcase '------------------------------------------------------------------------- testcase tGallery_GalleryView_Delete Dim jpeg_bkg as Integer Dim iAnimation as Integer Dim iSound as Integer Dim i as Integer Dim j as Integer Dim k as Integer if gNetzInst = TRUE then ' TODO: since we now only know net- installations, make it work! printlog "No test for 'net' installations, because there are no rights to delete objects out of Gallery!" 'NOTE: Jump to NotForNetInst... Goto NotForNetInst end if select case iSprache case 01 : jpeg_bkg = 1 : iAnimation = 2 : iSound = 28 case 07 : jpeg_bkg = 29 : iAnimation = 1 : iSound = 6 case 31 : jpeg_bkg = 1 : iAnimation = 2 : iSound = 28 case 33 : jpeg_bkg = 13 : iAnimation = 1 : iSound = 29 case 34 : jpeg_bkg = 7 : iAnimation = 1 : iSound = 28 case 36 : jpeg_bkg = 12 : iAnimation = 1 : iSound = 10 case 39 : jpeg_bkg = 10 : iAnimation = 1 : iSound = 27 case 46 : jpeg_bkg = 1 : iAnimation = 2 : iSound = 18 case 49 : jpeg_bkg = 1 : iAnimation = 2 : iSound = 17 case 50 : jpeg_bkg = 1 : iAnimation = 2 : iSound = 17 case 55 : jpeg_bkg = 8 : iAnimation = 1 : iSound = 30 case 81 : jpeg_bkg = 1 : iAnimation = 3 : iSound = 10 case 82 : jpeg_bkg = 1 : iAnimation = 17 : iSound = 12 case 86 : jpeg_bkg = 1 : iAnimation = 9 : iSound = 13 case 88 : jpeg_bkg = 1 : iAnimation = 7 : iSound = 20 case else : jpeg_bkg = 1 : iAnimation = 2 : iSound = 17 warnlog "Please insert the entrienumbers for '3D-graphics', 'Sounds' and one with normal files ( Animations )" end select gApplication = "WRITER" call hNewDocument call hOpenGallery for i=1 to 3 Kontext "Gallery" if i=1 then Gallerys.Select jpeg_bkg printlog " selected gallery-theme : Backgrounds" end if if i=2 then Gallerys.Select iAnimation printlog " selected gallery-theme : Animation" end if if i=3 then Gallerys.Select iSound printlog " selected gallery-theme : Sound" end if for j=1 to 2 Kontext "Gallery" if j=1 then IconView.Click printlog " Icon view" sleep 1 end if if j=2 then ListView.Click printlog " List view" end if for k=1 to 2 Kontext "Gallery" sleep (1) View.MouseMove ( 5, 15 ) View.TypeKeys "" 'OpenContextMenu true hMenuSelectNr ( 4 ) kontext "Active" if k=1 then Active.No printlog " delete one object => no" else Active.Yes printlog " delete one object => yes" end if next k next j next i ToolsGallery call hCloseDocument 'NOTE: Jump End NotForNetInst NotForNetInst: endcase '------------------------------------------------------------------------- testcase tGallery_Quick_check dim sFile(1) as string dim i as integer sFile(0) = ConvertPath ( gOfficeBasisPath + "share/gallery/apples.gif" ) ' sFile(1) = ConvertPath ( gOfficeBasisPath + "share/gallery/bullets/coffee_1.gif" ) ' call hNewDocument for i = 0 to 1 gMouseclick 1, 50 if FileExists(sFile(i)) then if (FileLen(sFile(i)) > 0 ) then call hGrafikEinfuegen ( sFile(i) ) else warnlog "File lenght is 0: '" + sFile(i) + "'" end if else warnlog "File doesn't exist: '" + sFile(i) + "'" end if next i call hCloseDocument endcase