'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@sun.com '* '* short description : Procedures for the Clipboard-Export-Test '* '******************************************************************* '* ' #1 Get_Position_Size_Attributes :Getting values from the position and size dialog ' #1 Get_Colour_Attributes :Geting Attributes from Area Dialog ' #1 Check_Position_Size_Attributes :Pasting object and comparing attributes with the stored values ' #1 Check_Text_Formatting :Checking text formatting of pasted object ' #1 Check_Colors_Borders_Attributes : ' #1 SetKontextApplication :- ' #1 New_Draw :- ' #1 New_Impress :- ' #1 New_Calc :- ' #1 New_Writer :- ' #1 Choose_Toapplication :- '* '\******************************************************************* Sub Get_Position_Size_Attributes Printlog " Get_Position_Size_Attributes Starts" FormatPositionAndSize sleep 1 Kontext Select Case gApplication Case "WRITER" : active.SetPage TabPositionAndSizeWriter Kontext "TabPositionAndSizeWriter" Case else : active.SetPage TabPositionAndSize Kontext "TabPositionAndSize" End Select sleep 1 ' /// Size-values ///' PositionWidth = Width.GetText PositionHeight = Height.GetText if KeepRatio.IsChecked then SetText.PositionKeepRatio = "TRUE" if ProtectPosition.IsChecked then SetText.PositionProtectPosition = "TRUE" if ProtectSize.IsChecked then SetText.PositionProtectSize = "TRUE" sleep 1 Kontext Select Case gApplication Case "WRITER" : active.SetPage TabPositionAndSizeWriter Kontext "TabPositionAndSizeWriter" TabPositionAndSizeWriter.OK Case else : active.SetPage TabPositionAndSize Kontext "TabPositionAndSize" TabPositionAndSize.OK End Select sleep 1 SetKontextApplication sleep 3 Printlog " Get_Position_Size_Attributes Ends" end sub '------------------------------------------------------------------------------- sub Get_Colour_Attributes printlog " Get_Colour_Attributes Starts" FormatArea Kontext "TabArea" Kontext Active.setpage TabArea Kontext "TabArea" ' /// Area ///' FillOptions.Select 2 if FillOptions.GetSelIndex <> 2 then Errorlog "Couldnt click on 'Color' in FormatArea" AreaColourListValue = ColourList.GetSelText printlog "AreaColourListValue = " + AreaColourListValue sleep 1 FillOptions.Select 3 if FillOptions.GetSelIndex <> 3 then Errorlog "Couldnt click on .Gradient. in FormatArea" AreaGradientListValue = GradientList.GetSelText 'AreaGradientValue = "TRUE" If Automatic.IsVisible then If Automatic.IsChecked then AreaAutomaticValue = "TRUE" Else If Increments.IsVisible then AreaIncrementsValue = Increments.GetText End if End if FillOptions.Select 4 if FillOptions.GetSelIndex <> 4 then Errorlog "Couldnt click on 'Hatching' in FormatArea" AreaHatchingListValue = HatchingList.GetSelText 'Then = "TRUE" ' lista If BackgroundColour.IsVisible then If BackgroundColour.IsChecked then AreaBackgroundColourValue = BackgroundColour.GetText End if End if If BackgroundColourList.IsVisible then AreaBackgroundColourListValue = BackgroundColourList.GetSelText End if FillOptions.Select 5 if FillOptions.GetSelIndex <> 5 then Errorlog "Couldnt click on 'Hatching' in FormatArea" AreaBitmapListValue = BitmapList.GetSelText If Original.IsChecked then AreaOriginalListValue = "TRUE" Else If Relative.IsChecked then AreaRelativeValue = "TRUE" AreaWidthValue = Width.GetText AreaHeightValue = Height.GetText Else AreaWidthValue = Width.GetText AreaHeightValue = Height.GetText End if End if If Tile.IsChecked then AreaTileValue = "TRUE" If Stretch.IsChecked then AreaStretchValue = "TRUE" If Row.IsChecked then AreaRowValue = "TRUE" AreaOffsetValue = Offset.GetText End if If Column.IsChecked then AreaColumnValue = "TRUE" AreaOffsetValue = Offset.GetText End if sleep 1 Kontext "TabArea" Kontext Active.setpage TabSchatten Kontext "TabSchatten" If Anzeigen.IsChecked then ShadowUseShadowsValue = "TRUE" ShadowDistanceValue = Entfernung.GetText ShadowColorValue = Farbe.GetText ShadowTransparencyValue = Transparenz.GetText end if sleep 1 Kontext Active.SetPage TabTransparenz Kontext "TabTransparenz" if KeineTransparenz.IsEnabled = FALSE then warnlog " Couldnt check 'No transparency' in Area - Transparency'" else KeineTransparenz.Check end if If KeineTransparenz.IsChecked then LineareTransparenz.Check If LineareTransparenz.IsChecked then TransparencyTransparencyValue = MFLinTransparenz.GetText End if Transparenzverlauf.Check If Transparenzverlauf.IsChecked then TransparencyGradientType = TransparenzverlaufTyp.GetItemText TransparencyMFZentrumX = MFZentrumX.GetText TransparencyMFZentrumY = MFZentrumY.GetText TransparencyMFWinkel = MFWinkel.GetText TransparencyMFRand = MFRand.GetText TransparencyMFStartwert = MFStartwert.GetText TransparencyMFEndwert = MFEndwert.GetText End if sleep 1 Kontext Active.setpage TabFarben Kontext "TabFarben" ColorName = FarbName.GetText ColorColor = Farbe.GetItemText ColorModel = Farbmodell.GetSelText printlog " The colormodel is: " + ColorModel if ColorModel = "RGB" then ColorR = R.GetText ColorG = G.GetText ColorB = B.GetText elseif ColorModel = "RVB" then ColorR = R.GetText ColorG = G.GetText ColorB = B.GetText else ColorC = C.GetText ColorM = M.GetText ColorY = Y.GetText ColorK = K.GetText endif Kontext Active.setpage TabFarbverlaeufe Kontext "TabFarbverlaeufe" GradientsType = Typ.GetItemText GradientsCenterX = ZentrumX.GetText GradientsCenterZ = ZentrumY.GetText GradientsAngle = Winkel.GetText GradientsBorder = Rand.GetText GradientsFromColor = Von.GetItemText GradientsFromValue = VonWert.GetText GradientsToColor = Bis.GetItemText GradientsToValue = BisWert.GetText Kontext Active.setpage TabSchraffuren Kontext "TabSchraffuren" HatchingDistance = Abstand.GetText HatchingAngle = Winkel.GetText 'Definition HatchingLineType = Linientyp.GetSelText HatchingLineColor = Linienfarbe.GetSelText HatchingLineTable = Tabelle.GetItemText Kontext Active.setpage TabBitmap Kontext "TabBitmap" BitmapForeground = Vordergrund.GetSelText BitmapBackground = Hintergrund.GetSelText BitmapTable = Tabelle.GetSelText Kontext Active.setpage TabArea Kontext "TabArea" TabArea.Cancel printlog " Get_Colour_Attributes ends" end sub '------------------------------------------------------------------------------- sub Check_Position_Size_Attributes printlog " Check_Position_Size_Attributes Starts" sleep 1 EditPaste sleep (5) FormatPositionAndSize sleep 1 if gApplication = "WRITER" then Kontext "TabPositionAndSizeWriter" Kontext active.SetPage TabPositionAndSizeWriter Kontext active.SetPage TabPositionAndSizeWriter Kontext "TabPositionAndSizeWriter" sleep 1 If LiberalMeasurement(PositionWidth, Width.GetText) <> TRUE then QaErrorLog "PositionWidth is: " + Width.GetText + " should be: '" + PositionWidth + "'. Possibly caused by i71631." If LiberalMeasurement(PositionHeight, Height.GetText) <> TRUE then QaErrorLog "PositionHeight is: " + Height.GetText + " should be: '" + PositionHeight + "'. Possibly caused by i71631." If PositionKeepRatio = "TRUE" then If KeepRatio.IsChecked = "FALSE" then Warnlog "KeepRatio isnt checked" End if If PositionProtectPosition = "TRUE" then If ProtectPosition.IsChecked = "FALSE" then Warnlog "ProtectPosition isnt checked" End if If PositionProtectSize = "TRUE" then If ProtectSize.IsChecked = "FALSE" then Warnlog "ProtectPosition isnt checked" End if sleep 1 Kontext "TabPositionAndSizeWriter" Kontext Active.setpage TabPositionAndSizeWriter Kontext "TabPositionAndSizeWriter" TabPositionAndSizeWriter.OK else Kontext active.SetPage TabPositionAndSize Kontext "TabPositionAndSize" sleep 1 If LiberalMeasurement(PositionWidth, Width.GetText) <> TRUE then QaErrorLog "PositionWidth is: " + Width.GetText + " should be: " + PositionWidth + "'. Possibly caused by i71631." If LiberalMeasurement(PositionHeight, Height.GetText) <> TRUE then QaErrorLog "PositionHeight is: " + Height.GetText + " should be: " + PositionHeight + "'. Possibly caused by i71631." If PositionKeepRatio = "TRUE" then If KeepRatio.IsChecked = "FALSE" then Warnlog "KeepRatio isnt checked" End if If PositionProtectPosition = "TRUE" then If ProtectPosition.IsChecked = "FALSE" then Warnlog "ProtectPosition isnt checked" End if If PositionProtectSize = "TRUE" then If ProtectSize.IsChecked = "FALSE" then Warnlog "ProtectPosition isnt checked" End if sleep 1 Kontext "TabPositionAndSize" Kontext Active.setpage TabPositionAndSize Kontext "TabPositionAndSize" TabPositionAndSize.OK endif SetKontextApplication sleep 3 printlog " Check_Position_Size_Attributes Ends" end sub '---------------------------------------------------------------------------------------------------- sub Check_Text_Formatting printlog " Check_Text_Formatting Starts" sleep (1) EditPaste sleep (3) select case (gApplication) case "DRAW" : hTypeKeys "" hTypeKeys "" 'Mark the whole text' case "IMPRESS" : hTypeKeys "" hTypeKeys "" 'Mark the whole text' case "WRITER" : EditSelectAll 'Since there is currently only (should only be) one object (the text) in the document. case "CALC" : hTypeKeys "" ' hTypeKeys "" 'Mark the whole text' case else : warnlog " the test has not been configured for this application ( '" + gApplication + "' ). Please notify testwriter." end select sleep (2) Kontext "TextObjectbar" if TextObjectbar.Exists = FALSE then ViewToolbarsTextFormatting sleep (1) endif Printlog " - Check if the Fontname is still the same." if Schriftart.GetSelText <> Text1 then warnlog " Fontname should be: " + Text1 + " but was: " + Schriftart.GetSelText sleep (2) Printlog " - Check if the Text still has the same Size." if Schriftgroesse.GetSelText <> Text2 then warnlog " Fontsize should be: " + Text2 + " but was: " + Schriftgroesse.GetSelText Kontext "TextObjectbar" Printlog " - Check if the Font-attribute is set to Bold." if Fett.GetState(2) <> Text4 then warnlog " Bold should be: " + Text4 + " but was: " + Fett.GetState(2) Kontext "TextObjectbar" Printlog " - Font attribute cursive" if Kursiv.GetState(2) <> Text5 then warnlog " Italic should be: " + Text5 + " but was: " + Kursiv.GetState(2) Kontext "TextObjectbar" Printlog " - Check if the Font-attribute is set to Underlined" sleep (2) if Unterstrichen.GetState(2) <> Text6 then warnlog " Underline should be: " + Text6 + " but was: " + Unterstrichen.GetState(2) Kontext "TextObjectbar" if (gApplication) = "CALC" then kontext "FormatObjectBar" Printlog " - Check if the Font-attribute is set to Justified" if Block.GetState(2) <> Text7 then warnlog " Justified should be: " + Text7 + " but was: " + Blocksatz.GetState(2) else if Blocksatz.GetState(2) <> Text7 then warnlog " Justified should be: " + Text7 + " but was: " + Blocksatz.GetState(2) endif SetKontextApplication printlog " Check_Text_Formatting Ends" '---------------------------------------------------------------------------------------------------- sub Check_Colors_Borders_Attributes printlog " Check_Colors_Borders_Attributes Starts" FormatArea Kontext "TabArea" Kontext Active.setpage TabArea Kontext "TabArea" ' /// Area ///' FillOptions.Select 2 if FillOptions.GetSelIndex <> 2 then Errorlog "Couldnt click on 'Color' in FormatArea" If AreaColourListValue <> ColourList.GetSelText then WarnLog " Area ColourList doesn't have the right Colour selected." printlog " AreaColourListValue = " + AreaColourListValue + " should be = " + ColourList.GetSelText end if sleep 1 FillOptions.Select 3 if FillOptions.GetSelIndex <> 3 then Errorlog "Couldnt click on 'Gradient.' in FormatArea" If AreaGradientListValue <> GradientList.GetSelText then WarnLog "Area GradientList has changed it's value." If Automatic.IsVisible then If AreaAutomaticValue = "TRUE" then If Automatic.IsChecked then Printlog " Area Automatic Value is correct" Else WarnLog " Area Automatic Value wasnt checked. It should have been." End if End if Else If Increments.IsVisible then If AreaIncrementsValue <> Increments.GetText then WarnLog "Area Increments has changed." End if End if FillOptions.Select 4 if FillOptions.GetSelIndex <> 4 then Errorlog "Couldnt click on 'Hatching' in FormatArea" If AreaHatchingListValue <> HatchingList.GetSelText then Errorlog "Area HatchingList has changed it's value." If BackgroundColour.IsVisible then If BackgroundColour.IsChecked then If AreaBackgroundColourValue <> BackgroundColour.GetText then Errorlog "Area Background Color has changed it's value." end if end if If BackgroundColourList.IsVisible then If AreaBackgroundColourListValue <> BackgroundColourList.GetSelText then Errorlog "Area Background ColourList has changed it's value." End if FillOptions.Select 5 if FillOptions.GetSelIndex <> 5 then Errorlog "Couldnt click on 'Color' in FormatArea" If BitmapList.IsVisible then If AreaBitmapListValue <> BitmapList.GetSelText then Errorlog "Area Bitmap List has changed it's value." else warnlog " No Area-Bitmap-List visible!" end if If Original.IsChecked = "TRUE" then If AreaOriginalListValue <> "TRUE" then Errorlog "Original List has changed it's value." Else If Relative.IsChecked = "TRUE" then If AreaRelativeValue <> "TRUE" then Errorlog "Area Relative has changed it's value." = "TRUE" If AreaWidthValue <> Width.GetText then Errorlog "AreaWidthValue has changed." If AreaHeightValue <> Height.GetText then Errorlog "AreaHeightValue has changed." Else If AreaWidthValue <> Width.GetText then Errorlog "AreaWidthValue has changed." If AreaHeightValue <> Height.GetText then Errorlog "AreaHeightValue has changed." End if End if If Tile.IsChecked then If AreaTileValue <> "TRUE" then Errorlog "AreaTileValue has changed." End if If Stretch.IsChecked then If AreaStretchValue <> "TRUE" then Errorlog "AreaStretchValue has changed." End if If Row.IsChecked then If AreaRowValue <> "TRUE" then Errorlog "AreRowValue has changed." If AreaOffsetValue <> Offset.GetText then Errorlog "AreaOffsetValue has changed." End if If Column.IsChecked then If AreaColumnValue <> "TRUE" then Errorlog "AreaColumnValue has changed." If AreaOffsetValue <> Offset.GetText then Errorlog "AreaOffsetValue has changed." End if sleep 1 Kontext "TabArea" Kontext Active.setpage TabSchatten Kontext "TabSchatten" If Anzeigen.IsChecked then ShadowUseShadowsValue = "TRUE" ShadowDistanceValue = Entfernung.GetText ShadowColorValue = Farbe.GetText ShadowTransparencyValue = Transparenz.GetText end if sleep 1 Kontext Active.SetPage TabTransparenz Kontext "TabTransparenz" if KeineTransparenz.IsEnabled = FALSE then warnlog " Couldnt check 'No transparency' in Area - Transparency'" else KeineTransparenz.Check end if If KeineTransparenz.IsChecked then LineareTransparenz.Check If LineareTransparenz.IsChecked then TransparencyTransparencyValue = MFLinTransparenz.GetText end if Transparenzverlauf.Check If Transparenzverlauf.IsChecked then TransparencyGradientType = TransparenzverlaufTyp.GetItemText TransparencyMFZentrumX = MFZentrumX.GetText TransparencyMFZentrumY = MFZentrumY.GetText TransparencyMFWinkel = MFWinkel.GetText TransparencyMFRand = MFRand.GetText TransparencyMFStartwert = MFStartwert.GetText TransparencyMFEndwert = MFEndwert.GetText end if sleep 1 Kontext Active.setpage TabFarben Kontext "TabFarben" ColorName = FarbName.GetText ColorColor = Farbe.GetItemText ColorModel = Farbmodell.GetSelText printlog " " + ColorModel select case iSprache ' Prepared for future language-problematics. if ColorR <> R.GetText then Warnlog "Wrong R-Color. Should be: " + ColorR + " but was: " + R.GetText if ColorG <> G.GetText then Warnlog "Wrong V-Color. Should be: " + ColorG + " but was: " + G.GetText if ColorB <> B.GetText then Warnlog "Wrong B-Color. Should be: " + ColorB + " but was: " + B.GetText Else if ColorC <> C.GetText then Warnlog "Wrong C-Color. Should be: " + ColorC + " but was: " + C.GetText if ColorM <> M.GetText then Warnlog "Wrong M-Color. Should be: " + ColorM + " but was: " + M.GetText if ColorY <> Y.GetText then Warnlog "Wrong J-Color. Should be: " + ColorY + " but was: " + Y.GetText if ColorK <> K.GetText then Warnlog "Wrong N-Color. Should be: " + ColorK + " but was: " + K.GetText End if if ColorR <> R.GetText then Warnlog "Wrong R-Color. Should be: " + ColorR + " but was: " + R.GetText if ColorG <> G.GetText then Warnlog "Wrong G-Color. Should be: " + ColorG + " but was: " + G.GetText if ColorB <> B.GetText then Warnlog "Wrong B-Color. Should be: " + ColorB + " but was: " + B.GetText Else if ColorC <> C.GetText then Warnlog "Wrong C-Color. Should be: " + ColorC + " but was: " + C.GetText if ColorM <> M.GetText then Warnlog "Wrong M-Color. Should be: " + ColorM + " but was: " + M.GetText if ColorY <> Y.GetText then Warnlog "Wrong Y-Color. Should be: " + ColorY + " but was: " + Y.GetText if ColorK <> K.GetText then Warnlog "Wrong K-Color. Should be: " + ColorK + " but was: " + K.GetText End if end select Kontext Active.setpage TabFarbverlaeufe Kontext "TabFarbverlaeufe" GradientsType = Typ.GetItemText GradientsCenterX = ZentrumX.GetText GradientsCenterZ = ZentrumY.GetText GradientsAngle = Winkel.GetText GradientsBorder = Rand.GetText GradientsFromColor = Von.GetItemText GradientsFromValue = VonWert.GetText GradientsToColor = Bis.GetItemText GradientsToValue = BisWert.GetText Kontext Active.setpage TabSchraffuren Kontext "TabSchraffuren" HatchingDistance = Abstand.GetText HatchingAngle = Winkel.GetText 'Definition HatchingLineType = Linientyp.GetSelText HatchingLineColor = Linienfarbe.GetSelText HatchingLineTable = Tabelle.GetItemText Kontext Active.setpage TabBitmap Kontext "TabBitmap" BitmapForeground = Vordergrund.GetSelText BitmapBackground = Hintergrund.GetSelText BitmapTable = Tabelle.GetSelText Kontext Active.setpage TabArea Kontext "TabArea" TabArea.Cancel SetKontextApplication printlog "Check_Colors_Borders_Attributes Ends" Printlog "End of one application" '---------------------------------- Set the Kontext to the current Application ----------------------------------' sub SetKontextApplication sleep 1 Select Case gApplication Case "DRAW" Kontext "DocumentDraw" ' Printlog "gApplication / Kontext is now: DocumentDraw" sleep 1 Case "IMPRESS" Kontext "DocumentImpress" ' Printlog "gApplication / Kontext is now: DocumentImpress" sleep 1 Case "WRITER" Kontext "DocumentWriter" ' Printlog "gApplication / Kontext is now: DocumentWriter" sleep 1 Case "CALC" Kontext "DocumentCalc" ' Printlog "gApplication / Kontext is now: DocumentCalc" sleep 1 end select sleep 1 end sub '------------------------- Part with "create new windows" --------------------- sub New_Draw gApplication = "DRAW" ToApp = "DRAW" printlog "to app has changed to: " + gApplication Call hNewDocument SetKontextApplication end sub '------------------------------------------------------------------------------- sub New_Impress printlog "Copied object from application: " + FromApp2 gApplication = "IMPRESS" ToApp = "IMPRESS" printlog "to app has changed to: " + gApplication Call hNewDocument SetKontextApplication end sub '------------------------------------------------------------------------------- sub New_Calc printlog "Copied object from application: " + FromApp2 gApplication = "CALC" ToApp = "CALC" printlog "to app has changed to: " + gApplication Call hNewDocument SetKontextApplication end sub '------------------------------------------------------------------------------- sub New_Writer printlog "Copied object from application: " + FromApp2 gApplication = "WRITER" ToApp = "WRITER" printlog "to app has changed to: " + gApplication Call hNewDocument SetKontextApplication end sub '------------------------------------------------------------------------------- sub Choose_Toapplication For ToAppCounter = 1 to 4 Select case ToAppCounter case "1" : Call hCloseDocument printlog "to app: " + gApplication ' Since the first application is Draw by default, we'll skip that one. ToApp = "DRAW" case "2" : Call hCloseDocument gApplication = "IMPRESS" printlog "to app: " + gApplication ToApp = "IMPRESS" case "3" : Call hCloseDocument gApplication = "CALC" printlog "to app: " + gApplication ToApp = "CALC" case "4" : Call hCloseDocument gApplication = "WRITER" printlog "to app: " + gApplication ToApp = "WRITER" case else : goto endsub End select next ToAppCounter Call hNewDocument SetKontextApplication end sub '--------------------------------------------------------------------------------------------------------