diff options
Diffstat (limited to 'testautomation/graphics/required/includes/global/gallery.inc')
-rw-r--r-- | testautomation/graphics/required/includes/global/gallery.inc | 987 |
1 files changed, 0 insertions, 987 deletions
diff --git a/testautomation/graphics/required/includes/global/gallery.inc b/testautomation/graphics/required/includes/global/gallery.inc deleted file mode 100644 index cfdac0029ec1..000000000000 --- a/testautomation/graphics/required/includes/global/gallery.inc +++ /dev/null @@ -1,987 +0,0 @@ -'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 -' <http://www.openoffice.org/license.html> -' for a copy of the LGPLv3 License. -' -'/************************************************************************ -'* -'* owner : wolfram.garten@oracle.com -'* -'* short description : Global Required/resource test: Checking the gallery -'* -'\****************************************************************************** -testcase tGallery_DialogTest - '///Open a new Writer document - '///Tools / Gallery - printlog "- Working with Gallery-Beamer!" - gApplication = "WRITER" - call hNewDocument - call hOpenGallery - Kontext "DocumentWriter" - '///+Undock the <i>Gallery Beamer</i> - printlog "- undock the Gallery Beamer" - Kontext "Gallery" - Gallery.Undock ( AlignTop ) - sleep(2) - '///+<ul><li>Move the gallery-window</li></ul> - printlog " - move the gallery window" - Gallery.move ( 20, 20 ) - sleep(2) - '///+Dock the <i>Gallery Beamer</i> - printlog "- dock the Gallery Beamer" - Gallery.Dock ( AlignTop ) - sleep(2) - '///+Close the <i>Gallery Beamer</i> (Tools / Gallery) - 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 - '///Activate and update all gallery themes (NET installation: Activate only!) - '///Open a new Writer document - '///+Tools / Gallery - '///+Click on each theme and update it (via context menu) - 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 - - '///Check the names for the gallery themes - '///Open a new Writer document - '///+Tools / Gallery - gApplication = "WRITER" - call hNewDocument - Kontext - call hOpenGallery - '///+Check the number of gallery themes. For StarOffice: should be 32. For OpenOffice.Org: should be 6. - 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 - '///+Check all names with a list which depends on language (<i>gTestToolPath</i>/graphics/udpate/input/gallery) - 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 - '/// Check the contextmenu for the gallery themes - '/// Open a new Writer document - '/// +Tools / Gallery - printlog "check the contextmenu for the gallery-themes" - gApplication = "WRITER" - call hNewDocument - call hOpenGallery - '/// +Testing <i>rename</i> and <i>properties</i> for each gallery theme (via context-menu) - '/// +<ul><li>Only the private gallery theme must be deleteable (different 3 entries in the context-menu than the rest)</li></ul> - 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 - '/// Open a new Writer document - '/// 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" - '/// Create a new gallery-theme - '/// + by clicking on <i>New Theme</i> - NewTheme.Click - '/// +Activate <i>General</i> tabpage and insert <b><i>TT-theme</b></i> 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" - '/// +Activate <i>Files</i> tabpage - Kontext - Active.SetPage TabDateien - Kontext "TabDateien" - printlog " - click 'add' without a selected file => insert-graphic-dialog has to be be visible" - '/// +Click on <i>Add</i> (If no file is selected the <i>Graphic-Insert</i> 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" - '///+Click on <i>Find Files</i> => <i>select-path</i> dialog will be visible - Kontext "TabDateien" - Suche.Click - sleep (1) - '/// +Insert [gTesttoolPath]/input/global/graf_inp as path-name as click on <i>Select</i> - Kontext "OeffnenDlg" - Pfad.SetText ( convertPath ( gTesttoolPath + "global\input\graf_inp" ) ) - sleep (1) - Auswaehlen.Click - sleep (10) - '/// +Click on <i>Add</i> for some graphics - printlog " - 'add' one by one" - Kontext "TabDateien" - DateiListe.Select 1 - WaitSlot(1000) - Hinzufuegen.Click - sleep (1) - DateiListe.Select 1 - Hinzufuegen.Click - sleep (1) - '/// +Click on <i>Add all</i> for rest of the graphics - '/// +<ul><li>apply-dialog -> cancel</li></ul> - '/// +click on <i>Add all</i> for rest of the graphics - printlog " - 'add all' for the rest of the files" - DateiListe.Select 1 - HinzufuegenAlle.Click - printlog " - apply-dialog -> cancel" - Kontext "ApplyGallery" - for j=1 to 100 - if ApplyGallery.Exists then - try - ApplyGallery.Cancel - catch - endcatch - else - if j>5 then j=101 - sleep (1) - end if - next j - Kontext "TabDateien" - if DateiListe.GetItemCount > 1 then - printlog " - 'add all' for the rest of the files" - DateiListe.Select 1 - HinzufuegenAlle.Click - sleep (2) - 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 - '/// +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 - gMouseClick 50,50 '/// make mouseclick to set focus ///' - Kontext "Gallery" - Gallerys.Select "TT-theme" - Gallerys.MouseMove ( 10, 10 ) - sleep (1) - Gallerys.OpenContextMenu - '/// +Update the entry (1. entry in context menu ) => cancel it - printlog " - update the entry => cancel the update" - 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 - '/// +Update it (1. entry in context menu ) - printlog " - update" - 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 - '/// +Rename it (3. entry in context menu) - 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" - '///+Add new files in properties (4. entry in context menu) - 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 - '/// +Delete the entry (2. entry in context menu) - printlog " - delete the entry ( 2. entry in context-menu )" - printlog " - messagebox -> no" - Kontext "Gallery" - Gallerys.Select "New TT-theme" - sleep (3) - 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 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 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 - '/// Open a new Writer document - '/// Tools / Gallery - printlog "open a writer and the gallery" - gApplication = "WRITER" - call hNewDocument - Kontext - call hOpenGallery - '/// Check the view for Background-pictures (JPEGs), for standard graphic files (Animation) and for <i>Sound</i> objects - 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 - '/// Test the list-view - '/// +Click on List-View-Button in toolbar - printlog "- list-view" - printlog " - open the list-view" - ListView.Click - sleep (1) - printlog " - Press Home + Enter to focus and enter Preview-mode." - '/// +Double-click on an object (preview has to be visible) - View.TypeKeys "<HOME>" - View.TypeKeys "<RETURN>" - sleep (2) - '/// +Back to normal view with Enter - View.TypeKeys "<RETURN>" - sleep (2) - '/// +Preview out of context menu on/off - printlog " - preview out of context menu on/off" - View.TypeKeys "<HOME>" - Sleep (2) - View.OpenContextMenu true - sleep (3) - hMenuSelectNr ( iPreview ) - sleep (3) - kontext "Gallery" - Sleep (2) - View.OpenContextMenu true - sleep (2) - hMenuSelectNr ( iPreview ) - sleep (3) - '/// +Title (FAT installation only) - 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) - '/// Should now be in Preview-mode. Check if we are. ///' - 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) - '/// From here, try switching to icon-view ///' - '///+Click on Icon-View-Button in toolbar - 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 "<HOME>" - printlog " - Enter to get out of Preview-mode" - '/// +Press Return on an object (preview has to be visible) - View.TypeKeys "<RETURN>" - sleep (2) - '/// +Back to normal view with Return - View.TypeKeys "<RETURN>" - sleep (2) - '/// +Preview out of context menu on/off - printlog " - preview out of context menu on/off" - View.TypeKeys "<HOME>" - sleep (3) - View.OpenContextMenu true - sleep (3) - hMenuSelectNr ( iPreview ) - sleep (3) - View.OpenContextMenu true - sleep (3) - hMenuSelectNr ( iPreview ) - sleep (3) - '/// +Title (FAT installation only) - 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 - - '/// If the MediaPlayer exists - close it ///' - 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 - '/// Test gallery-view -> insert gallery-object with context-menu (3D-Object (<i>internal object</i>), Animation (<i>as file</i>)) - 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 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 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 - '/// Test following for all applications (Writer, Calc, Impress, Draw) - 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" - - '/// +Open a new document - '/// +Open the Gallery - printlog gApplication 'Chr(13) - call hNewDocument - call hOpenGallery - '/// +Select 3D-theme (these are internal objects and not realy files) - '/// +<ul><li>on context menu there are only 2 entries for insert (copy, link) - '/// +<li>insert the object per <i>copy</i></li> - '/// +<li>insert the object per <i>link</i></li></ul> - '/// +Select Animation theme (these are realy files) - '/// +<ul><li>On context menu there are only 2 entries for insert (copy, link ) for Calc, Draw Impress</li> - '/// +<li>On context menu there are only 3 entries for insert (copy, link, background / page, paragraph ) for Writer</li> - '/// +<li>insert the object per <i>copy</i></li> - '/// +<li>insert the object per <i>link</i></li> - '/// +<li>Only for the Writer:<ul> - '/// +<li>Insert the object per background / page</li> - '/// +<li>insert the object per background / paragraph</li></ul></li></ul> - '/// +Close the Gallery - '/// +Close the document - '/// Since the GraphicObjectbar could disturb our testing, we close it if it is open ///' - ' 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 "<DOWN>,<UP>" - - sleep (3) - View.TypeKeys "<SHIFT F10>" ' 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 "<SHIFT F10>" 'OpenContextMenu - sleep (1) - hMenuSelectNr ( 1 ) - hMenuSelectNr ( 2 ) - sleep (3) - - printlog " - background -> page" - View.TypeKeys "<SHIFT F10>" 'OpenContextMenu - sleep (2) - hMenuSelectNr ( 1 ) - hMenuSelectNr ( 3 ) - hMenuSelectNr ( 1 ) - sleep (3) - - printlog " - background -> paragraph" - View.TypeKeys "<SHIFT F10>" '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 "<DOWN>,<UP>" - - sleep (1) - View.TypeKeys "<SHIFT F10>" 'OpenContextMenu - printlog " - copy" - sleep (3) - hMenuSelectNr ( 1 ) - hMenuSelectNr ( 1 ) - sleep (3) - - if j=2 then - View.TypeKeys "<SHIFT F10>" '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 - - '/// Test gallery view -> delete objects with context-menu ( Backgrounds (<i>internal object</i>), Animation (<i>file</i>), Sound (<i>file</i>)) - 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 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 - - '/// Open a new writer-doc - '/// Tools / Gallery - gApplication = "WRITER" - call hNewDocument - call hOpenGallery - '/// Delete one object in list-view and icon-view for 3D, Animation and Sound - 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 "<SHIFT F10>" '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 - - '/// Short check, if at least 2 files exist in the gallery, and if they are > 0 in size ///' - '/// One in the gallery folder itself and the other one in a subfolder. ///' - 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" ) ' - '/// Open a new document - call hNewDocument - for i = 0 to 1 - '/// Click to deselect any selected objects ///' - 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 - '///close the document - call hCloseDocument -endcase - |