summaryrefslogtreecommitdiffstats
path: root/testautomation/graphics/optional/includes/global/g_stylist.inc
diff options
context:
space:
mode:
Diffstat (limited to 'testautomation/graphics/optional/includes/global/g_stylist.inc')
-rw-r--r--testautomation/graphics/optional/includes/global/g_stylist.inc1020
1 files changed, 1020 insertions, 0 deletions
diff --git a/testautomation/graphics/optional/includes/global/g_stylist.inc b/testautomation/graphics/optional/includes/global/g_stylist.inc
new file mode 100644
index 000000000000..fe9a1e28dabb
--- /dev/null
+++ b/testautomation/graphics/optional/includes/global/g_stylist.inc
@@ -0,0 +1,1020 @@
+'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@sun.com
+'*
+'* short description :
+'*
+'\*******************************************************************
+
+testcase tFormatStylistFlyer
+ Dim xPos%
+ Dim yPos%
+ Dim xSize%
+ Dim ySize%
+
+ printlog " - Format/Stylist : using all possible things to manipulate the flyer"
+ '/// open application ///'
+ Call hNewDocument
+ Kontext "Gestalter"
+ '/// Check if stylist is there. Expected: not there ///'
+ if Gestalter.NotExists = false Then
+ qaErrorLog " - Expected Stylist to be closed; But is Open. Check tests."
+ else
+ if lcase(gPlatform) = "osx" then
+ hTypekeys "<mod1 t>"
+ else
+ hTypekeys "<F11>" '/// open stylist by pressing key [F11] ///'
+ end if
+ sleep 1
+ end if
+ Kontext "Gestalter"
+ if Gestalter.NotExists then
+ Warnlog " No stylist popped up using F11; opening now via slotID"
+ FormatStylist
+ end if
+ '///+ save stylist position and size ///'
+ xPos% = Gestalter.GetPosX
+ yPos% = Gestalter.GetPosY
+ xSize% = Gestalter.GetSizeX
+ ySize% = Gestalter.GetSizeY
+ '///+ if Stylist is docked; undock ///'
+ if Gestalter.IsDocked then Gestalter.UnDock
+ printlog " - '///move stylist ///"
+ '///+ move stylist to 10,10 ///'
+ Gestalter.Move 10, 10
+ Sleep 1
+ '///+ move stylist to 300,400 ///'
+ Gestalter.Move 300, 400
+ Sleep 1
+ '///+ move stylist to 590,790 ///'
+ Gestalter.Move 590, 790
+ Sleep 1
+ '///+ move stylist back to saved start position ///'
+ Gestalter.Move xPos%, yPos%
+ Sleep 1
+
+ printlog " - '///size stylist ///"
+ '///+ change size to 200,200 ///'
+ Gestalter.Size 200, 200
+ Sleep 1
+ '///+ change size to 300,400 ///'
+ Gestalter.Size 300, 400
+ Sleep 1
+ '///+ change size to 150,250 ///'
+ Gestalter.Size 150, 250
+ Sleep 1
+ '///+ change size back to saved size ///'
+ Gestalter.Size xSize%, ySize%
+ Sleep 1
+
+ printlog " - Close stylist reopen stylist, check if appearence is same as before"
+ '/// save stylist position and size ///'
+ xPos% = Gestalter.GetPosX
+ yPos% = Gestalter.GetPosY
+ xSize% = Gestalter.GetSizeX
+ ySize% = Gestalter.GetSizeY
+ '/// close stylist Format->Stylist ///'
+ FormatStylist
+ Sleep 1
+ '/// open stylist Format->Stylist ///'
+ FormatStylist
+ sleep (1)
+ if xPos% <> Gestalter.GetPosX then Warnlog "The x-Pos. has changed : Should be -> '"+ xPos% + "' Is -> '"+ Gestalter.GetPosX +"'."
+ if yPos% <> Gestalter.GetPosY then Warnlog "The y-Pos. has changed : Should be -> '"+ yPos% + "' Is -> '"+ Gestalter.GetPosY +"'."
+ if xSize% <> Gestalter.GetSizeX then Warnlog "The x-Size has changed : Should be -> '"+ xSize% + "' Is -> '"+ Gestalter.GetSizeX +"'."
+ if ySize% <> Gestalter.GetSizeY then Warnlog "The y-Size has changed : Should be -> '"+ ySize% + "' Is -> '"+ Gestalter.GetSizeY +"'."
+
+ printlog " - dock stylist"
+ '/// dock stylist ///'
+ Gestalter.Dock
+ Sleep 1
+ if (NOT Gestalter.IsDocked) then
+ warnlog " stylist not docked but should"
+ endif
+ '/// UNdock stylist ///'
+ if (Gestalter.IsDocked) Then
+ Gestalter.UnDock
+ endif
+ Sleep 1
+
+ printlog " - maximize/minimize stylist"
+ '/// minimize stylist ///'
+ Gestalter.Minimize
+ Sleep 1
+ '/// maximize stylist ///'
+ Gestalter.Maximize
+ Sleep 1
+ if (NOT Gestalter.IsMax) then
+ warnlog " The stylist did not return to maximized state"
+ endif
+ '/// close stylist ///'
+ Gestalter.Close
+ Call hCloseDocument
+
+endcase 'tFormatStylistFlyer
+'--------------------------------------------------------
+testcase tFormatStylistDocuments
+
+ Dim xPos% as Integer
+ Dim yPos% as Integer
+ Dim xSize% as Integer
+ Dim ySize% as Integer
+
+ printlog " - Format/Stylist : check methods with more than 1 document"
+ Call hNewDocument
+ printlog " - Open stylist, check stylist in another document"
+ FormatStylist
+ Call hNewDocument
+ Kontext "Gestalter"
+ if (Gestalter.NotExists) then
+ warnlog " There is no stylist in the new document"
+ FormatStylist
+ endif
+
+ printlog " - Close all documents, reopen 1"
+ hFileCloseAll()
+ hNewDocument()
+
+ Kontext "Gestalter"
+ if (Gestalter.NotExists) then
+ warnlog " There is no stylist in the new document"
+ endif
+
+ printlog " - stylist in a document docked, in a new rechecked"
+ Gestalter.Dock
+ Sleep 3
+ hNewDocument
+ sleep 3
+ Kontext "Gestalter"
+ if NOT Gestalter.IsDocked then
+ warnlog " In the new document is the stylist not docked"
+ endif
+
+ printlog " - Close all documents, reopen one and check the docked stylist"
+ hFileCloseAll()
+ hNewDocument()
+
+ Kontext "Gestalter"
+ if NOT Gestalter.IsDocked then
+ warnlog " In the new document is the stylist not docked"
+ endif
+
+ printlog " - Close stylist using F11"
+ Gestalter.Undock
+ Sleep 1
+ if lcase(gPlatform) = "osx" then
+ hTypekeys "<mod1 t>"
+ else
+ hTypeKeys "<F11>"
+ end if
+ Kontext "Gestalter"
+ if Gestalter.exists then
+ warnlog " Stylist still exists - closing again"
+ Gestalter.Close
+ end if
+ Call hCloseDocument
+
+endcase 'tFormatStylistDocuments
+'--------------------------------------------------------
+testcase tFormatStylistTemplatesUse
+
+ Dim i as Integer
+ Dim save as integer
+
+ printlog "- Format/Stylist : use all templates"
+ hNewDocument
+ sleep 1
+ FormatStylist
+ sleep 1
+ Kontext "Gestalter"
+ if (Gestalter.NotExists) then
+ warnlog " There is no stylist open, trying again now"
+ FormatStylist
+ endif
+ printlog " - Presentation-templates"
+ if ( gApplication = "IMPRESS") then
+ TBGestalter.Click Praesentationsvorlagen
+ endif
+ save = Gruppenliste.GetSelIndex
+ for i=1 to Gruppenliste.GetItemCount
+ Gruppenliste.Select i
+ Sleep 1
+ next i
+
+ TBGestalter.Click Grafikvorlagen
+ Sleep 2
+ printlog " - Graphic-templates"
+ for i=1 to Gruppenliste.GetItemCount
+ Gruppenliste.Select i
+ Sleep 1
+ next i
+ sleep 1
+ Gruppenliste.Select save
+
+ kontext "Gestalter"
+ hCloseDialog( Gestalter, "Close" )
+
+ hFileCloseAll()
+
+endcase 'tFormatStylistTemplatesUse
+'--------------------------------------------------------
+testcase tFormatStylistTemplateCreate
+
+ goto endsub
+ dim i
+ dim Zaehler
+
+ printlog "- Format/stylist :Create template and use it"
+ Call hNewDocument
+ sleep 3
+ printlog " - create template for paragraph"
+ FormatStylesCatalog
+ Kontext "VorlagenKatalog"
+ sleep 2
+ printlog " " + Vorlagen.GetItemCount
+ Vorlagen.Select 1
+ sleep 3
+ Neu.Click
+ sleep 2
+ Kontext
+ Active.SetPage TabVerwalten
+ Kontext "TabVerwalten"
+ VorlagenName.SetText "ATesttool"
+ TabVerwalten.OK
+ sleep 2
+ Kontext "VorlagenKatalog"
+ sleep 1
+ VorlagenKatalog.Close
+ sleep 1
+
+ Printlog " - New created template will be deleted now"
+ FormatStylesCatalog
+ sleep 1
+ Kontext "Vorlagenkatalog"
+ sleep 1
+ Vorlagen.Select 1
+ sleep 1
+ zaehler=Ansicht.getItemCount
+ i=0
+ do
+ inc i
+ loop while ((Ansicht.getItemText(i) <> "ATesttool") AND (i <= zaehler))
+ if i>zaehler then
+ warnlog " error"
+ endif
+ Ansicht.Select i
+ sleep 1
+ Ansicht.TypeKeys "<SPACE>"
+ sleep 1
+ Loeschen.Click
+ Kontext "Active"
+ Active.Yes
+ sleep 1
+ Kontext "Vorlagenkatalog"
+ Vorlagenkatalog.Close
+ sleep 1
+ Kontext "DocumentDraw"
+ gMouseClick 90,90
+ hFileCloseAll()
+
+endcase 'tFormatStylistTemplateCreate
+'--------------------------------------------------------
+testcase tFormatStylistTemplateSelect
+
+ dim i as integer
+ dim sListDown(21) as string
+ dim sListUp(21) as string
+ dim sTemp as string
+
+ printlog " - Format/Stylist : select template"
+ Call hNewDocument
+ hTextrahmenErstellen ("This is a formatted text <Shift Home>",20,20,80,30)
+ printlog " - format text"
+ FormatCharacter
+ Kontext
+ Active.SetPage TabFont
+ Kontext "TabFont"
+ TabFont.OK
+
+ printlog " - choose format using stylist"
+ FormatStylist
+ Kontext "Gestalter"
+ sleep 1
+ ' going from bottom to top
+ Vorlagenliste.TypeKeys "<End>"
+ for i = 1 to 20
+ ListAppend(sListUp(), Vorlagenliste.GetText)
+ Vorlagenliste.TypeKeys "<Up>"
+ next i
+ ' going from top to bottom
+ Vorlagenliste.TypeKeys "<Home>"
+ for i = 1 to 20
+ ListAppend(sListDown(), Vorlagenliste.GetText)
+ Vorlagenliste.TypeKeys "<Down>"
+ next i
+ ' delete double entries in both lists (up/down)
+ sTemp = sListUp(20)
+ for i = 19 to 1 step -1
+ if (sListUp(i) = sTemp) then
+ printlog i
+ ListDelete(sListUp(), i+1)
+ endif
+ sTemp = sListUp(i)
+ next i
+ sTemp = sListDown(20)
+ for i = 19 to 1 step -1
+ if (sListDown(i) = sTemp) then
+ ListDelete(sListDown(), i+1)
+ endif
+ sTemp = sListDown(i)
+ next i
+ ' if there are double entries...
+ if (ListCount(sListUp()) <> ListCount(sListDown())) then
+ if (iSprache = 82) then ' WorkAround BUG: #111652#
+ warnLog "There are double entries in the list! Up: " + ListCount(sListUp()) + "; Down: " +ListCount(sListDown())
+ elseif (iSprache = 07) then
+ warnlog "There are missing entries in the list. Will be fixed in CWS the 06.02.2006. - FHA" 'Russian TODO -FHA
+ else
+ warnlog "There are double entries in the list! Up: " + ListCount(sListUp()) + "; Down: " +ListCount(sListDown())
+ endif
+ for i = ListCount(sListUp()) to 1 step -1
+ printlog "* " + i + ": '" + sListUp(i) + "'"
+ next i
+ endif
+ ' here this method has to stay, because it will also find some errors;
+ ' the method, that works even with an error in the list is shown in testcase tFormatStylistTemplateNew
+ hDoubleClickInList ( Vorlagenliste, glLocale (3) )
+ Gestalter.Close
+
+ printlog " - check Format"
+ FormatArea
+ Kontext
+ Active.SetPage TabArea
+ Kontext "TabArea"
+ 'TODO: TBO check criteria, that right template is used....
+ ' ???? if Farbe.IsChecked then Printlog "Standard template is used"
+ TabArea.OK
+ sleep 2
+ hCloseDocument
+
+endcase 'tFormatStylistTemplateSelect
+'---------------------------------------------------------
+testcase tFormatStylistTemplateNew
+
+ dim sListDown(21) as string
+ dim sListUp(21) as string
+ dim sTemp as string
+ dim i as integer
+
+ printlog "- Format/Stylist : New template from selection"
+ Call hNewDocument
+ hTextrahmenErstellen ("This text will soon be formatted and thereafter made as template",20,20,80,40)
+ sleep 1
+ hTypeKeys "<Return><Up><Shift End>"
+ FormatCharacter
+ Kontext
+ Active.SetPage TabFont
+ Kontext "TabFont"
+ TabFont.OK
+
+ printlog " - Create template from selection"
+ FormatStylist
+ Kontext "Gestalter"
+ TBGestalter.Click Grafikvorlagen
+ Sleep 1
+ TBGestalterRight.Click AusSelektion
+ Kontext "VorlageErzeugen"
+ VorlagenName.SetText "Testtool"
+ VorlageErzeugen.OK
+ printlog " - assign new graphic template to selected text"
+ hTextrahmenErstellen ("This is another text",40,40,70,50)
+ hTypeKeys "<Return><Up><Shift End>"
+ Kontext "Gestalter"
+ TBGestalter.Click Grafikvorlagen
+ sleep 1
+ ' test BUG: #111652# ' find illegal double entries in template list
+ ' going from bottom to top
+ Vorlagenliste.TypeKeys "<End>"
+ for i = 1 to 20
+ sTemp = Vorlagenliste.GetText
+ ListAppend(sListUp(), sTemp)
+ Vorlagenliste.TypeKeys "<Up>"
+ next i
+ ' going from top to bottom
+ Vorlagenliste.TypeKeys "<Home>"
+ for i = 1 to 20
+ ListAppend(sListDown(), Vorlagenliste.GetText)
+ Vorlagenliste.TypeKeys "<Down>"
+ next i
+ ' delete double entries in both lists (up/down)
+ sTemp = sListUp(20)
+ for i = 19 to 1 step -1
+ if (sListUp(i) = sTemp) then
+ ListDelete(sListUp(), i+1)
+ endif
+ sTemp = sListUp(i)
+ next i
+ sTemp = sListDown(20)
+ for i = 19 to 1 step -1
+ if (sListDown(i) = sTemp) then
+ ListDelete(sListDown(), i+1)
+ endif
+ sTemp = sListDown(i)
+ next i
+ ' if any double entries...
+ if (ListCount(sListUp()) <> ListCount(sListDown())) then
+ if (iSprache = 82) then ' WorkAround BUG: #111652#
+ warnLog "82: There are double entries in the list! Up: " + ListCount(sListUp()) + "; Down: " +ListCount(sListDown())
+ elseif (iSprache = 07) then
+ warnlog "There are missing entries in the list. Will be fixed in CWS the 06.02.2006. - FHA" 'Russian TODO -FHA
+ else
+ warnlog "There are double entries in the list! Up: " + ListCount(sListUp()) + "; Down: " +ListCount(sListDown())
+ for i = ListCount(sListDown()) to 1 step -1
+ printlog " - " + i + " " + sListDown(i)
+ next i
+ for i = ListCount(sListUp()) to 1 step -1
+ printlog " - " + i + " " + sListUp(i)
+ next i
+ endif
+ endif
+ Vorlagenliste.TypeKeys "<End>"
+ i = 0
+ do
+ inc i
+ sTemp = Vorlagenliste.GetText
+ Vorlagenliste.TypeKeys "<Up>"
+ loop while (("Testtool" <> sTemp) AND (i<20))
+ Vorlagenliste.TypeKeys "<Return>"
+ Kontext "Gestalter"
+ Gestalter.Close
+
+ Printlog " - check template"
+ FormatCharacter
+ Kontext
+ Active.SetPage TabFont
+ Kontext "TabFont"
+ TabFont.OK
+ hTypeKeys ("<escape>",2)
+ hCloseDocument
+
+endcase 'tFormatStylistTemplateNew
+'--------------------------------------------------------
+testcase tiFormatStylist
+
+ Dim Num1 as integer ' graphics : first line indent ; the one with 0,6cm in the summary
+ Dim Num2 as integer ' presentations : background ; just one tabpage pops up: Area
+ Dim Num3 as integer ' : background objects ; Line pops up
+ Dim Num4 as integer ' : notes ; font 20
+ Dim Num5 as integer ' : outline 1 ; where 9 items exist of
+
+ select case iSprache
+ case 01: Num1 = 3 : Num2 = 1 : Num3 = 2 : Num4 = 3 : Num5 = 4
+ case 07: Num1 = 3 : Num2 = 4 : Num3 = 2 : Num4 = 3 : Num5 = 1 'Russian TODO -FHA
+ case 31: Num1 = 1 : Num2 = 2 : Num3 = 3 : Num4 = 1 : Num5 = 5
+ case 33: Num1 = 3 : Num2 = 1 : Num3 = 3 : Num4 = 2 : Num5 = 5
+ case 34: Num1 = 2 : Num2 = 10 : Num3 = 12 : Num4 = 3 : Num5 = 4
+ case 36: Num1 = 2 : Num2 = 3 : Num3 = 4 : Num4 = 10 : Num5 = 6
+ case 39: Num1 = 2 : Num2 = 3 : Num3 = 2 : Num4 = 1 : Num5 = 5
+ case 45: Num1 = 11 : Num2 = 2 : Num3 = 2 : Num4 = 13 : Num5 = 5
+ case 46: Num1 = 2 : Num2 = 2 : Num3 = 3 : Num4 = 1 : Num5 = 4
+ case 48: Num1 = 11 : Num2 = 13 : Num3 = 11 : Num4 = 1 : Num5 = 5
+ case 49: Num1 = 1 : Num2 = 10 : Num3 = 11 : Num4 = 14 : Num5 = 1
+ case 55: Num1 = 4 : Num2 = 12 : Num3 = 11 : Num4 = 10 : Num5 = 1
+ ' case 81: Num1 = 9 : Num2 = 13 : Num3 = 14 : Num4 = 12 : Num5 = 1 Asian languages not testable, because locale dependant :-(
+ ' case 82: Num1 = 6 : Num2 = 11 : Num3 = 12 : Num4 = 10 : Num5 = 1
+ ' case 86: Num1 = 15 : Num2 = 13 : Num3 = 14 : Num4 = 12 : Num5 = 2
+ ' case 88: Num1 = 4 : Num2 = 13 : Num3 = 14 : Num4 = 3 : Num5 = 4
+ case else :
+ if (bAsianLan = FALSE) then
+ Warnlog "For the language " + iSprache +" nothing is prepared yet: find numbers of entries in stylist and insert here"
+ else
+ qaErrorLog "The Asian-office-languages aren't supported yet."
+ endif
+ goto endsub
+ end select
+
+ Call hNewDocument
+ sleep 2
+ Kontext "Gestalter"
+ if Gestalter.Exists Then
+ Warnlog "- Stylist exists, perhaps not closed last time a Impress doc was open"
+ Gestalter.Close
+ end if
+ sleep 1
+
+ FormatStylist
+ Kontext "Gestalter"
+ Grafikvorlagen.Click
+ sleep 1
+ Vorlagenliste.Select Num1 ' num1
+ sleep 1
+ Printlog "- open Grafic template Dialogs using the context menue , checking if all resources exist"
+ Vorlagenliste.OpenContextMenu
+ sleep 1
+ hMenuSelectNr (2)
+ sleep 1
+ call hWalkTheStyles
+ Kontext
+ Messagebox.SetPage TabText
+ Kontext "TabText"
+ sleep 1
+ TabText.Cancel
+ sleep 1
+
+ if (Ucase(gApplication) = "IMPRESS") AND (iSprache <> 07) then 'Russian TODO -FHA
+ Kontext "Gestalter"
+ Printlog "- presentation templates"
+ sleep 1
+ Praesentationsvorlagen.Click
+
+ Vorlagenliste.Select Num2
+ sleep 1
+ Vorlagenliste.OpenContextMenu
+ sleep 1
+ hMenuSelectNr (1)
+ sleep 1
+ Kontext
+ if Messagebox.exists (5) then
+ try
+ ' Messagebox.SetPage TabArea
+ Kontext "TabArea"
+ if TabArea.Exists = false then
+ warnlog "Where is TabArea?"
+ else
+ Printlog "TabArea exists, good."
+ TabArea.Cancel
+ endif
+ catch
+ warnlog "there might be another systemlocale -> I can't select the entries in the stylist via numbers :-("
+ endcatch
+ else
+ warnlog "tab area/Messagebox doesn't exist :-("
+ endif
+ Kontext "Gestalter"
+ sleep 1
+
+ Vorlagenliste.Select Num3
+ sleep 1
+ Vorlagenliste.OpenContextMenu
+ sleep 1
+ hMenuSelectNr (1)
+ sleep 1
+ call hWalkTheStyles (1,1)
+ Kontext
+ Messagebox.SetPage TabEinzuegeUndAbstaende
+ Kontext "TabEinzuegeUndAbstaende"
+ sleep 1
+ TabEinzuegeUndAbstaende.Cancel
+ sleep 1
+ Kontext "Gestalter"
+ sleep 1
+
+ Vorlagenliste.Select Num4
+ sleep 1
+ Vorlagenliste.OpenContextMenu
+ sleep 1
+ hMenuSelectNr (1)
+ sleep 1
+ Kontext
+ Messagebox.SetPage TabFont
+ kontext "TabFont"
+ Kontext
+ Messagebox.SetPage TabFontEffects
+ kontext "TabFontEffects"
+ Kontext
+ Messagebox.SetPage TabEinzuegeUndAbstaende
+ kontext "TabEinzuegeUndAbstaende"
+ sleep 1
+ TabEinzuegeUndAbstaende.Cancel
+ sleep 1
+ Kontext "Gestalter"
+ sleep 1
+
+ Vorlagenliste.Select Num5
+ sleep 1
+ Vorlagenliste.OpenContextMenu
+ sleep 1
+ hMenuSelectNr (1)
+ sleep 1
+ Kontext
+ Messagebox.SetPage TabFont
+ kontext "TabFont"
+ Kontext
+ Messagebox.SetPage TabFontEffects
+ kontext "TabFontEffects"
+ Kontext
+ Messagebox.SetPage TabEinzuegeUndAbstaende
+ kontext "TabEinzuegeUndAbstaende"
+ sleep 1
+ Kontext
+ Messagebox.SetPage TabBullet
+ Kontext "TabBullet"
+ sleep 1
+ Kontext
+ Messagebox.SetPage TabNumerierungsart
+ Kontext "TabNumerierungsart"
+ sleep 1
+ Kontext
+ Messagebox.SetPage TabGrafiken
+ Kontext "TabGrafiken"
+ sleep 1
+ Kontext
+ Messagebox.SetPage TabOptionenNumerierung
+ Kontext "TabOptionenNumerierung"
+ sleep 1
+ TabOptionenNumerierung.Cancel
+ sleep 1
+ endif
+ if lcase(gPlatform) = "osx" then
+ hTypekeys "<mod1 t>"
+ else
+ hTypeKeys "<F11>"
+ end if
+ sleep 1
+ Kontext "Gestalter"
+ if Gestalter.Exists Then Warnlog "- Stylist could not be closed pressing F11"
+ Call hCloseDocument
+
+endcase 'tiFormatStylist
+'---------------------------------------------------------
+sub hWalkTheStyles (optional a as integer,optional b as integer)
+ ' TODO: TBO DialogTest should go to Recource test!
+ dim i as integer
+
+ if isMissing (a) then a=1
+ if isMissing (b) then b=2
+ i=1
+ if a <= i AND i <= b then
+ Kontext
+ Messagebox.SetPage TabLinie
+ kontext "TabLinie"
+ Call DialogTest ( TabLinie )
+ Kontext
+ Messagebox.SetPage TabArea
+ kontext "TabArea"
+ Call DialogTest ( TabArea, 1 )
+ FillOptions.Select 1 ' NoFill.Check
+ Call DialogTest ( TabArea, 1 )
+ FillOptions.Select 2
+ Call DialogTest ( TabArea, 2 )
+ FillOptions.Select 3
+ Call DialogTest ( TabArea, 3 )
+ FillOptions.Select 4
+ Call DialogTest ( TabArea, 4 )
+ FillOptions.Select 5
+ Call DialogTest ( TabArea, 5 )
+ Kontext
+ Messagebox.SetPage TabSchatten
+ kontext "TabSchatten"
+ Anzeigen.check
+ Call DialogTest ( TabSchatten )
+ Kontext
+ Messagebox.SetPage TabTransparenz
+ kontext "TabTransparenz"
+ KeineTransparenz.Check
+ LineareTransparenz.Check
+ Transparenzverlauf.Check
+ Kontext
+ Messagebox.SetPage TabFont
+ kontext "TabFont"
+ Call DialogTest ( TabFont )
+ Kontext
+ Messagebox.SetPage TabFontEffects
+ kontext "TabFontEffects"
+ Kontext
+ Messagebox.SetPage TabEinzuegeUndAbstaende
+ kontext "TabEinzuegeUndAbstaende"
+ Call DialogTest ( TabEinzuegeUndAbstaende )
+ endif
+ i=2
+ if a <= i AND i <= b then
+ Kontext
+ Messagebox.SetPage TabVerwalten
+ kontext "TabVerwalten"
+ Call DialogTest ( TabVerwalten )
+ Kontext
+ Messagebox.SetPage TabText
+ Kontext "TabText"
+ Call DialogTest ( TabText )
+ Kontext
+ Messagebox.SetPage TabLauftext
+ Kontext "TabLauftext"
+ Call DialogTest ( TabLauftext )
+ Kontext
+ Messagebox.SetPage TabBemassung
+ Kontext "TabBemassung"
+ Call DialogTest ( TabBemassung )
+ Kontext
+ Messagebox.setpage TabVerbinder
+ Kontext "TabVerbinder"
+ Call Dialogtest ( TabVerbinder )
+ Kontext
+ Messagebox.setpage TabAusrichtungAbsatz
+ Kontext "TabAusrichtungAbsatz"
+ Links.Check
+ Rechts.Check
+ Zentriert.Check
+ Blocksatz.Check
+ Kontext
+ Messagebox.setpage TabTabulator
+ Kontext "TabTabulator"
+ Neu.click
+ AlleLoeschen.click
+ Neu.click
+ Loeschen.click
+ endif
+ i=3
+ if a <= i AND i <= b then
+ Kontext
+ Messagebox.SetPage TabBullet
+ Kontext "TabBullet"
+ sleep 1
+ Call DialogTest (TabBullet)
+ sleep 1
+ Kontext
+ Messagebox.SetPage TabNumerierungsart
+ Kontext "TabNumerierungsart"
+ sleep 1
+ Call DialogTest (TabNumerierungsart)
+ sleep 1
+ Kontext
+ Messagebox.SetPage TabGrafiken
+ Kontext "TabGrafiken"
+ sleep 1
+ Call DialogTest (TabGrafiken)
+ sleep 1
+ Kontext
+ Messagebox.SetPage TabOptionenNumerierung
+ Kontext "TabOptionenNumerierung"
+ sleep 1
+ Call DialogTest (TabOptionenNumerierung)
+ sleep 1
+ endif
+
+end sub 'hWalkTheStyles
+'---------------------------------------------------------
+testcase tFormatStylist
+
+ Dim sTemp as String
+ dim sSettings(20,3) ' control_name; control_type; value
+ dim i as integer
+ dim abctemp
+
+ Call hNewDocument
+ sleep 5
+
+ hTextrahmenErstellen ("I hate mondays...",20,20,80,40)
+ sleep 1
+ FormatStylist
+ sleep 1
+ Kontext "Stylist"
+ if (Stylist.NotExists) then
+ qaErrorLog "There is no stylist open, trying again now"
+ FormatStylist
+ endif
+ sleep 1
+ Vorlagenliste.TypeKeys "<End>"
+ Vorlagenliste.TypeKeys "<Up>"
+ Vorlagenliste.TypeKeys "<Up>"
+ sleep 1
+ Vorlagenliste.OpenContextMenu
+ sleep 1
+ hMenuSelectNr 1
+ sleep 1
+ Kontext
+ if Messagebox.exists (5) then
+ Messagebox.SetPage TabVerwalten
+ Kontext "TabVerwalten"
+ VorlagenName.SetText "1Newtheme"
+ sTemp = VorlagenName.getText
+ VerknuepftMit.getSelText
+ Bereich.getSelText
+ TabVerwalten.OK
+ endif
+ sleep 1
+ Kontext "Stylist"
+ hSelectInList(Vorlagenliste,sTemp)
+ sleep 1
+ Vorlagenliste.OpenContextMenu
+ sleep 1
+ hMenuSelectNr 2
+ sleep 1
+ Kontext
+ if Messagebox.exists (5) then
+ Messagebox.SetPage TabVerwalten
+ Kontext "TabVerwalten"
+ VorlagenName.setText("1Test")
+ TabVerwalten.OK
+ endif
+ sleep 1
+
+ ' hTextrahmenErstellen ("I hate mondays..., too",60,60,80,60)
+ ' sleep 1
+ ' FormatArea
+ ' i = 1
+ ' kontext "tabArea"
+ '' temp = Hatching
+ ' abctemp = 666666
+ ' printlog isobject(abctemp)
+ ' printlog isnumeric(abctemp)
+ ' sSettings(i,1) = Hatching
+ ' printlog isobject(sSettings(i,1))
+ ' printlog isnumeric(sSettings(i,1))
+ ' sSettings(i,2) = "CheckBox"
+ ' sSettings(i,3) = True
+ ' inc (i)
+ '' printlog " " + i
+ ' dim asgc as boolean
+ ' asgc = true
+ '' hWalkTheStyles2(asgc, sSettings(), temp)
+ ' ' hWalkTheStyles2(abctemp)
+ ' Kontext "TabArea"
+ ' TabArea.OK
+ Kontext "Stylist"
+ if (Stylist.NotExists) then
+ ErrorLog "There is no stylist open, should be."
+ else
+ if lcase(gPlatform) = "osx" then
+ hTypekeys "<mod1 t>"
+ else
+ hTypekeys "<F11>"
+ end if
+ Kontext "Stylist"
+ if (Stylist.Exists) then
+ ErrorLog "The Stylist should be closed now."
+ endif
+ endif
+ Call hCloseDocument
+
+endcase 'tFormatStylist
+'--------------------------------------------------------
+function hSelectInList (window, sEntry as String) as Boolean
+
+ Dim i as Integer
+ Dim sTemp as String
+ Dim sLastTemp as String
+
+ window.TypeKeys "<End>"
+ sTemp = ""
+ do
+ sLastTemp = sTemp
+ sTemp = window.GetText
+ window.TypeKeys "<Up>"
+ loop while ((sEntry <> sTemp) AND (sLastTemp <> sTemp))
+ if (sEntry = sTemp) then
+ window.TypeKeys "<Return>"
+ hSelectInList = TRUE
+ else
+ hSelectInList = FALSE
+ endif
+
+end function 'hSelectInList
+'---------------------------------------------------------
+function hWalkTheStyles2 (atemp)
+
+ 'function hWalkTheStyles2 (bSet as boolean, aSettings(), atemp as variant) as string
+ dim i as integer
+ dim x as integer
+ dim itemp
+ dim bSet
+ dim aSettings(5,5)
+ ' dim atemp
+
+ i=1
+ Kontext
+ printlog aSettings(i,3)
+ printlog aSettings(i,2)
+ printlog val(aSettings(i,1))
+ printlog atemp
+ Messagebox.SetPage TabArea
+ kontext "TabArea"
+ 'press button standard :-))))))
+ atemp = Hatching
+ printlog atemp
+
+ if aSettings(i,3) then
+ itemp = val(aSettings(i,1))
+ printlog isobject(atemp)
+ printlog isNumeric(atemp)
+ Hatching.check
+ atemp.check
+
+ else
+ ' aSettings(i,1).Uncheck
+ endif
+ 'print "baeh"
+ i=2
+ Kontext
+ Messagebox.SetPage TabSchatten
+ kontext "TabSchatten"
+
+ Kontext
+ Messagebox.SetPage TabVerwalten
+ kontext "TabVerwalten"
+ i=2
+ Kontext
+ Messagebox.SetPage TabLinie
+ kontext "TabLinie"
+ 'Context: *Line; Line Styles; Arrow Styles
+ i=3
+ Kontext
+ Messagebox.SetPage TabArea
+ kontext "TabArea"
+ 'Context: *Area; *Shadow; Transparency; Colors; Gradients; Hatching; Bitmaps
+ i=4
+ Kontext
+ Messagebox.SetPage TabSchatten
+ kontext "TabSchatten"
+ i=5
+ Kontext
+ Messagebox.SetPage TabTransparenz
+ kontext "TabTransparenz"
+ i=6
+ Kontext
+ Messagebox.SetPage TabFont
+ kontext "TabFont"
+ 'Context: *Font; *Font Effect; Position
+ i=7
+ Kontext
+ Messagebox.SetPage TabFontEffects
+ kontext "TabFontEffects"
+ i=8
+ Kontext
+ Messagebox.SetPage TabEinzuegeUndAbstaende
+ kontext "TabEinzuegeUndAbstaende"
+ 'Context: *Indents & Spacing; *Alignment; *Tabs
+ i=9
+ Kontext
+ Messagebox.SetPage TabText
+ Kontext "TabText"
+ 'Context: *Text; *Text Animation
+ i=10
+ Kontext
+ Messagebox.SetPage TabLauftext
+ Kontext "TabLauftext"
+ i=11
+ Kontext
+ Messagebox.SetPage TabBemassung
+ Kontext "TabBemassung"
+ i=12
+ Kontext
+ Messagebox.setpage TabVerbinder
+ Kontext "TabVerbinder"
+ i=13
+ Kontext
+ Messagebox.setpage TabAusrichtungAbsatz
+ Kontext "TabAusrichtungAbsatz"
+ i=14
+ Kontext
+ Messagebox.setpage TabTabulator
+ Kontext "TabTabulator"
+
+ ' Messagebox.SetPage TabBullet
+ ' Kontext "TabBullet"
+ ' sleep 1
+ ' Call DialogTest (TabBullet)
+ ' sleep 1
+ ' Kontext
+ ' Messagebox.SetPage TabNumerierungsart
+ ' Kontext "TabNumerierungsart"
+ ' sleep 1
+ ' Call DialogTest (TabNumerierungsart)
+ ' sleep 1
+ ' Kontext
+ ' Messagebox.SetPage TabGrafiken
+ ' Kontext "TabGrafiken"
+ ' sleep 1
+ ' Call DialogTest (TabGrafiken)
+ ' sleep 1
+ ' Kontext
+ ' Messagebox.SetPage TabOptionenNumerierung
+ ' Kontext "TabOptionenNumerierung"
+ ' sleep 1
+ ' Call DialogTest (TabOptionenNumerierung)
+ ' sleep 1
+end function 'hWalkTheStyles2
generated by cgit (git 2.34.1) at 2024-07-11 06:55:50 +0000