diff options
Diffstat (limited to 'testautomation/graphics/optional/includes/global/g_clipexport3.inc')
-rwxr-xr-x | testautomation/graphics/optional/includes/global/g_clipexport3.inc | 1235 |
1 files changed, 588 insertions, 647 deletions
diff --git a/testautomation/graphics/optional/includes/global/g_clipexport3.inc b/testautomation/graphics/optional/includes/global/g_clipexport3.inc index 563691496242..0011c5b31d97 100755 --- a/testautomation/graphics/optional/includes/global/g_clipexport3.inc +++ b/testautomation/graphics/optional/includes/global/g_clipexport3.inc @@ -1,7 +1,7 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** '* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* +'* '* Copyright 2008 by Sun Microsystems, Inc. '* '* OpenOffice.org - a multi-platform office productivity suite @@ -53,23 +53,19 @@ '\******************************************************************* Sub Get_Position_Size_Attributes - '///Getting values from the position and size dialog - + Printlog " Get_Position_Size_Attributes Starts" - '/// Bring up the attributes for the object we just created ///' FormatPositionAndSize - '/// Get and save the attributes ///' sleep 1 - '/// Position-values ///' Kontext Select Case gApplication - Case "WRITER" : active.SetPage TabPositionAndSizeWriter - Kontext "TabPositionAndSizeWriter" - Case else : active.SetPage TabPositionAndSize - Kontext "TabPositionAndSize" + Case "WRITER" : active.SetPage TabPositionAndSizeWriter + Kontext "TabPositionAndSizeWriter" + Case else : active.SetPage TabPositionAndSize + Kontext "TabPositionAndSize" End Select sleep 1 @@ -78,717 +74,662 @@ Sub Get_Position_Size_Attributes 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 + 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" - '/// Switch back to tabpage 'Position' to avoid problems later ///' - '/// And then close dialog TabPositionAndSize with 'OK' ///' - 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 - '/// Geting Attributes from Area Dialog printlog " Get_Colour_Attributes Starts" - - '/// Open Format-Area and get the values considering colors and borders ///' - FormatArea - Kontext "TabArea" - Kontext - Active.setpage TabArea - Kontext "TabArea" - - + + 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 - - '/// Gradient ///' - 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 - - '/// Hatching ///' - 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 - - '/// Increments ///' - 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 - - - '/// Shadow ///' - 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 - - - '/// Transparency ///' - 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 - - - '/// Gradient ///' - 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 - - - '/// Colors ///' - 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 - - '/// TabFarbverlaeufe ///' - 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 - - - '/// Hatching ///' - Kontext - Active.setpage TabSchraffuren - Kontext "TabSchraffuren" - - HatchingDistance = Abstand.GetText - HatchingAngle = Winkel.GetText - 'Definition - HatchingLineType = Linientyp.GetSelText - HatchingLineColor = Linienfarbe.GetSelText - HatchingLineTable = Tabelle.GetItemText - - - '/// TabBitmap ///' - 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" - + 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 - '/// Pasting object and comparing attributes with the stored values printlog " Check_Position_Size_Attributes Starts" - - '/// Paste object with EditPaste ///' + sleep 1 - EditPaste + EditPaste sleep (5) - - '/// Bring up the attributes for the object we just created ///' + FormatPositionAndSize - - '/// Get and save the attributes ///' - sleep 1 - if gApplication = "WRITER" then - Kontext "TabPositionAndSizeWriter" - Kontext - active.SetPage TabPositionAndSizeWriter - Kontext - active.SetPage TabPositionAndSizeWriter - Kontext "TabPositionAndSizeWriter" - sleep 1 - - '/// Position-values ///' - - '/// Size-values ///' - 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 - - '/// Switch back to tabpage 'Position' to avoid problems later ///' - Kontext "TabPositionAndSizeWriter" - Kontext - Active.setpage TabPositionAndSizeWriter - Kontext "TabPositionAndSizeWriter" - - '/// Close dialog TabPositionAndSize with 'OK' ///' - TabPositionAndSizeWriter.OK - - else - Kontext - active.SetPage TabPositionAndSize - Kontext "TabPositionAndSize" - sleep 1 - - '/// Position-values ///' - - '/// Size-values ///' - 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 - - '/// Switch back to tabpage 'Position' to avoid problems later ///' - Kontext "TabPositionAndSize" - Kontext - Active.setpage TabPositionAndSize - Kontext "TabPositionAndSize" - - '/// Close dialog TabPositionAndSize with 'OK' ///' - TabPositionAndSize.OK - endif - - SetKontextApplication - sleep 3 - printlog " Check_Position_Size_Attributes Ends" - + + 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 - '/// Checking text formatting of pasted object - + printlog " Check_Text_Formatting Starts" - '/// Paste object with EditPaste ///' sleep (1) EditPaste sleep (3) - '/// Select the text and bring up the attributes for it. ///' select case (gApplication) - case "DRAW" : hTypeKeys "<RETURN>" - hTypeKeys "<SHIFT HOME>" 'Mark the whole text' - case "IMPRESS" : hTypeKeys "<RETURN>" - hTypeKeys "<SHIFT HOME>" '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 "<MOD1 HOME>" -' hTypeKeys "<SHIFT HOME>" 'Mark the whole text' - case else : warnlog " the test has not been configured for this application ( '" + gApplication + "' ). Please notify testwriter." + case "DRAW" : hTypeKeys "<RETURN>" + hTypeKeys "<SHIFT HOME>" 'Mark the whole text' + case "IMPRESS" : hTypeKeys "<RETURN>" + hTypeKeys "<SHIFT HOME>" '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 "<MOD1 HOME>" + ' hTypeKeys "<SHIFT HOME>" '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) + 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." - '/// check state for button 'Bold' ///' - if Fett.GetState(2) <> Text4 then warnlog " Bold should be: " + Text4 + " but was: " + Fett.GetState(2) - - Kontext "TextObjectbar" - Printlog " - Font attribute cursive" - '/// check state for button 'Italic' ///' - 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" - '/// check state for button 'Underline' ///' - 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" - '/// check state for button '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 - '/// Set kontext to the application ///' - SetKontextApplication - printlog " Check_Text_Formatting Ends" - -end sub '/// Here ends the Sub "Check_Text_Formatting" ///' - -'---------------------------------------------------------------------------------------------------- + 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" - - '/// Open Format-Area and get the values considering colors and borders ///' + FormatArea - - Kontext "TabArea" - Kontext - Active.setpage TabArea - Kontext "TabArea" - + + 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 - - '/// Gradient ///' - 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 - - '/// Hatching ///' - 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 - - '/// Increments ///' - 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 - - '/// Tabpage: Shadow ///' - 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 - - '/// Tab-page: Transparency ///' - 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 + + If AreaColourListValue <> ColourList.GetSelText then + WarnLog " Area ColourList doesn't have the right Colour selected." + printlog " AreaColourListValue = " + AreaColourListValue + " should be = " + ColourList.GetSelText end if - - '/// Gradient ///' - 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 - - '/// Colors ///' - 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. - case 33 : If Farbmodell.GetSelIndex = 1 then '/// French ///' - 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 - case else : If Farbmodell.GetSelIndex = 1 then '/// English ///' - 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 - - '/// Tab-Page: Colors ///' - 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 - - '/// Hatching ///' - Kontext - Active.setpage TabSchraffuren - Kontext "TabSchraffuren" - - HatchingDistance = Abstand.GetText - HatchingAngle = Winkel.GetText - 'Definition - HatchingLineType = Linientyp.GetSelText - HatchingLineColor = Linienfarbe.GetSelText - HatchingLineTable = Tabelle.GetItemText - - '/// TabBitmap ///' - Kontext - Active.setpage TabBitmap - Kontext "TabBitmap" - - BitmapForeground = Vordergrund.GetSelText - BitmapBackground = Hintergrund.GetSelText - BitmapTable = Tabelle.GetSelText - - '/// Close the TabArea-window ///' - Kontext - Active.setpage TabArea - Kontext "TabArea" - TabArea.Cancel - - '/// Set kontext to the application ///' - SetKontextApplication - - printlog "Check_Colors_Borders_Attributes Ends" - - Printlog "End of one application" - -endsub '/// Here ends the Sub "Check_Colors_Borders_Attributes" ///' - -'---------------------------------- Set the Kontext to the current Application ----------------------------------' + + 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 + 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 - printlog "Copied object from application: " + FromApp2 '/// Since the first application is Draw by default, we'll skip that one. ///' - gApplication = "DRAW" - ToApp = "DRAW" - printlog "to app has changed to: " + gApplication - Call hNewDocument - SetKontextApplication - + 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 - + 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 - + 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 - + 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 - '/// Close the application / switch to the next - - 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 + + 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 - '/// Open second application ///' - Call hNewDocument + Call hNewDocument SetKontextApplication - + end sub '-------------------------------------------------------------------------------------------------------- |