changed structure which will be included into the CWS process.

1 files changed, 794 insertions, 0 deletions

diff --git a/testautomation/graphics/optional/includes/global/g_clipexport3.inc b/testautomation/graphics/optional/includes/global/g_clipexport3.inc
new file mode 100755
index 000000000000..1abd421f5a53
--- /dev/null
+++ b/testautomation/graphics/optional/includes/global/g_clipexport3.inc
@@ -0,0 +1,794 @@
+'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
+'*
+'* $RCSfile: g_clipexport3.inc,v $
+'*
+'* $Revision: 1.1 $
+'*
+'* last change: $Author: jsi $ $Date: 2008-06-16 10:42:39 $
+'*
+'* 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 : 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
+    '///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" 
+    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
+
+    '/// 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"
+    
+    
+    ' /// 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"
+    
+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
+    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"
+    
+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 (lCase(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."
+    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."
+   '/// 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 (lCase(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" ///'
+
+'----------------------------------------------------------------------------------------------------
+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"
+    
+    ' /// 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
+        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 ----------------------------------'
+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
+
+     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
+     
+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
+    '/// 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  :   exit sub
+       End select
+    next ToAppCounter
+    '/// Open second application ///'
+        Call hNewDocument
+    SetKontextApplication
+    
+end sub
+
+'--------------------------------------------------------------------------------------------------------