'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_area.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 :
'*
'**************************************************************************************
' #1 tiFormatArea
' #1 tdFormatArea1
'\*************************************************************************************

testcase tiFormatArea
   Dim i
   Dim Zaehler
   dim Entf$

   hNewDocument            '/// New impress document ///'
   hRechteckErstellen (20,20,60,60)         '/// create rectangle ///'
   Printlog "  - Change Format"          '/// change format for the rectangle ///'
   FormatArea
   Kontext
   active.SetPage TabArea
   Kontext "TabArea"
   FillOptions.Select 5  '/// apply bitmap as texture ///'
   BitmapList.Select 3   '/// Select "Water" ///'
   Tile.Check            '/// tile bitmap ///'
   Kontext
   active.SetPage TabSchatten
   kontext "TabSchatten"
   Anzeigen.Check           '/// apply shadow ///'
   Entfernung.SetText "30"          '/// set angle to 30ó�����///'
   Entf$=Entfernung.GetText          '/// change distance ///'
   Farbe.Select 15           '/// select color 15///'
   TabSchatten.OK           '/// close dialog ///'
   Sleep 3

  Printlog "  - Test various formats"
   FormatArea            '/// Format area, check if changes are saved for this object ///'
   Kontext
   active.SetPage TabArea
   Kontext "TabArea"
   if NOT FillOptions.GetSelIndex = 5 then
      Warnlog "Bitmap is not checked"
   else
      if BitmapList.GetSelIndex <> 3 then Warnlog "Wrong bitmap used. "+ BitmapAuswahl.GetSelIndex
      if NOT Tile.IsChecked then Warnlog "Tile is not checked"
'      if Original.IsChecked then Warnlog "Original is not checked"
'      if NOT Relativ.IsChecked then Warnlog "Relative is not checked"
'      if Breite.GetText <> "90 %" then Warnlog "Width is not 90%, it is:  "+Breite.GetText
'      if XOffset.GetText <> "30 %" then Warnlog "XOffset is not 30%, it is:  "+XOffset.GetText
'      if NOT Zeile.IsChecked then Warnlog "Line is not checked"
'      if Verschiebung.GetText <> "20 %" then Warnlog "Displace is not 20%, it is:  " + Verschiebung.GetText
      Kontext
      active.SetPage TabSchatten
      kontext "TabSchatten"
      if NOT Anzeigen.IsChecked then
         Warnlog "Show shadows is not checked"
      else
         if Entfernung.GetText <> Entf$ then Warnlog "Distance is not " + Entf$ + " it is: "+ Entfernung.GetText
         if Farbe.GetSelIndex <> 15 then Warnlog "Wrong color for shadow. It is: "+ Farbe.GetSelIndex
      end if
  end if
   TabSchatten.Cancel

   hCloseDocument              '/// close document ///'
endcase

testcase tdFormatArea1

Dim i
Dim j
Dim k
Dim m
Dim n
Dim Winkel_1 as string
Dim ZaehlerFarbe
Dim ZaehlerVerlauf
Dim ZaehlerSchraffur
Dim ZaehlerBitmap
Dim ColorName$
    ColorName$ = "Bullshit"
  dim Zaehler as integer

 Call hNewDocument         '/// new document ///'
  sleep 3
  Call hRechteckErstellen (30,30,70,70)       '/// create rectangle ///'
  sleep 2
  FormatArea          '/// format area ///'
  Kontext
  Active.SetPage TabArea
  Kontext "TabArea"
  FillOptions.Select 1         '/// Select no fill ///'
  sleep 2
  TabArea.OK
  sleep 1
  FormatArea
  Kontext
  Active.SetPage TabArea
  Kontext "TabArea"
  sleep 1          '/// control if changes are still there after closing and reopening dialog ///'
  FillOptions.Select 3'/// check gradient and select 1 ///'
  ZaehlerVerlauf = GradientList.GetItemCount
   for j = 1 To 2
    GradientList.Select j
       TabArea.OK
       FormatArea
       Kontext
       Active.SetPage TabArea
       Kontext "TabArea"
       PrintLog GradientList.GetSelText
   next j
  FillOptions.Select 4         '/// select hatching, control after closing and reopening dialog if changes are recognized ///'
  HatchingList.GetItemCount
  ZaehlerSchraffur = HatchingList.GetItemCount
   for k=1 to 2'ZaehlerSchraffur
       HatchingList.Select k
       TabArea.OK
       FormatArea
       Kontext
       Active.SetPage TabArea
       Kontext "TabArea"
       PrintLog HatchingList.GetSelText
  next k

  FillOptions.Select 5          '/// check bitmap, control if changes are permanent after closing and reopening dialog ///'
  BitmapList.GetItemCount
  ZaehlerBitmap = BitmapList.GetItemCount
   for n=1 to ZaehlerBitmap
       BitmapList.Select n
       TabArea.OK
       FormatArea
       sleep 1
       Kontext
       Active.SetPage TabArea
       Kontext "TabArea"
       PrintLog BitmapList.GetSelText
   next n

  if Tile.IsChecked = False Then Tile.Check      '/// check tile ///'
'  if Anpassen.IsEnabled = False Then PrintLog " Option Tile activated"
'  if Anpassen.IsEnabled = True Then WarnLog " Option Tile not activated"
'  if Relativ.IsChecked = False Then
'     SetClipboard Breite.GetText
'     Relativ.Check
'   If Breite.GetText = GetClipboardText Then
'   WarnLog "  Relative isnt working"
'   else
'   PrintLog "   Relative works"
'   end if
'  end if
'
'  if Kacheln.IsChecked = True Then Kacheln.UnCheck
'  Anpassen.Check
'  if Relativ.IsEnabled = True Then WarnLog "   Option Anpassen konnte nicht aktiviert werden"
'  if not Relativ.IsEnabled Then PrintLog "   Option Anpassen funktioniert"
'  Anpassen.Uncheck
'  Original.Check
'  if Breite.IsEnabled And Hoehe.IsEnabled = True Then WarnLog "   Button Original funktioniert nicht"
'  if Breite.IsEnabled And Hoehe.IsEnabled = False Then PrintLog "   Button Original funktioniert"
'  Kacheln.Check
'  setClipboard XOffset.GetText
'  XOffset.More 3
'  if XOffset.GetText <> GetClipboardText Then PrintLog "   Position XOffset funktioniert"
'  if XOffset.GetText = GetClipboardText Then WarnLog "    Position XOffset funktioniert nicht"
'  SetClipboard YOffset.GetText
'  YOffset.More 5
'  if YOffset.GetText <> GetClipboardText Then PrintLog "   Position YOffset funktioniert"
'  if YOffset.GetText = GetClipboardText Then WarnLog "    Position YOffset funktioniert nicht"
'  PrintLog "        TabArea fertig"
  Kontext
  Active.SetPage TabSchatten
  Kontext "TabSchatten"
   sleep 1
  if Anzeigen.IsChecked = True Then Anzeigen.UnCheck     '/// uncheck shadow ///'
   sleep 1
  if Entfernung.IsEnabled = False Then        '/// check if shadow related controls are disabled with no shadow ///'
     PrintLog "   Show shadow works"
  else
     WarnLog "   Show shadow does not work"
  end if

  Anzeigen.Check         '/// check shadow ///'
  SetClipboard Entfernung.GetText       '/// change distance ///'
  Entfernung.More 4
  if GetClipboardText = Entfernung.GetText Then
     WarnLog "   Distance does not work"
  else
     PrintLog "   Distance does work"
  end if
  Farbe.Select 5         '/// change shadow color ///'

  Kontext
  Active.SetPage TabFarben
  Kontext "TabFarben"
  Farbe.Select 24
   sleep 1
  Farbe.Select 18
   sleep 1
  Farbe.Select 7
  Farbname.SetText "Bullshit"       '/// change color ///'
  Aendern.Click
   sleep 1
  TabFarben.OK
  FormatArea
  Kontext
  Active.SetPage TabArea
  Kontext "TabArea"
  FillOptions.Select 2
  if ColourList.GetSelText = "Bullshit" Then
     PrintLog " Color selection changed "
  else
     WarnLog " Color selection not changed"
  end if
  Kontext
  Active.SetPage TabFarben
  Kontext "TabFarben"
  Farbmodell.Select 1

 Kontext
 Active.SetPage TabFarben        '/// test RGB color model ///'
 Kontext "TabFarben"
 Farbmodell.Select 1        '/// switch to RGB values ///' ' 33:RVB,CMJN
 printlog "   Selected colourmodel RGB?: "+Farbmodell.GetSelText
   if left(Farbmodell.GetSelText,1) <> "R" then warnlog "not RGB selected ? :-("
 try
   R.SetText "50"
   G.SetText "10"
   B.SetText "90"
 catch
   warnlog "RGB text fields are not enabled :-("
 endcatch
 Aendern.Click
 TabFarben.OK
 Kontext "DocumentDraw"
 FormatArea
 Kontext
 Active.SetPage TabFarben
 Kontext "TabFarben"
 if (R.GetText = "50" And G.GetText = "10" And B.GetText = "90") Then
    PrintLog "Changes in RGB done"
 else
    WarnLog " Chancges in RGB values not recognized, instead of R=50 , G=10 und B=90  it is " +R.GetText + " " + G.GetText + " " + B.GetText
 end if
 Farbe.Select 10
 FarbName.SetText "Brighter"        '/// add a color ///'
 Hinzufuegen.Click
 Farbe.Select "Brighter"
 Loeschen.Click          '/// delete color ///'
 Kontext "Active"
 Active.Yes
 Kontext
 Active.SetPage TabFarben
 Kontext "TabFarben"
 Bearbeiten.Click         '/// edit color ///'
 Kontext  "FarbeDlg"
 FarbeDlg.OK
 sleep 2
 Kontext
 Active.SetPage TabFarben
 Kontext "TabFarben"
 TabFarben.OK
 FormatArea
 Kontext
 Active.SetPage TabFarben
 Kontext "TabFarben"
 TabFarben.OK

 FormatArea
 Kontext
 Active.SetPage TabFarbverlaeufe
 Kontext "TabFarbverlaeufe"
 TabFarbverlaeufe.OK
 sleep 2

FormatArea
 sleep 2
 Kontext
 Active.SetPage TabTransparenz
 Kontext "TabTransparenz"
 KeineTransparenz.Check         '/// check if controls are disabled if transparence is disabled ///'
    Printlog "- No transparency is checked, all controls should be disabled."
  if MFLinTransparenz.IsEnabled Then Warnlog "- Transparency enabled"
  if TransparenzverlaufTyp.IsEnabled Then Warnlog "- Graidient enabled"
  if MFZentrumX.IsEnabled Then Warnlog "- Center X enabled"
  if MFZentrumY.IsEnabled Then Warnlog "- Center Y enabled"
  if MFWinkel.IsEnabled Then Warnlog "- Angle enabled"
  if MFRand.IsEnabled Then Warnlog "- Border enabled"
  if MFStartwert.IsEnabled Then Warnlog "- Start value enabled"
  if MFEndwert.IsEnabled Then Warnlog "- End value enabled"

 LineareTransparenz.Check        '/// check linear tranparency ///'
    Printlog "- Set transparency to linear, all controls should be enabled now"  '/// control if related controls are now enabled ///'
  sleep 1
  MFLinTransparenz.ToMax        '/// change values of controls ///'
   if MFLinTransparenz.GetText <>"100%" Then Warnlog "- Maximum value not correct"
  MFLinTransparenz.ToMin
   if MFLinTransparenz.GetText <>"0%" Then Warnlog "- Minimum value not correct"
   if TransparenzverlaufTyp.IsEnabled Then Warnlog "- Gradient enabled"
   if MFZentrumX.IsEnabled Then Warnlog "- Centrum X enabled"
   if MFZentrumY.IsEnabled Then Warnlog "- Centrum Y enabled"
   if MFWinkel.IsEnabled Then Warnlog "- Angle enabled"
   if MFRand.IsEnabled Then Warnlog "- Border enabled"
   if MFStartwert.IsEnabled Then Warnlog "- Start value enabled"
   if MFEndwert.IsEnabled Then Warnlog "- End value enabled"

 Transparenzverlauf.Check
    Printlog "- Gradient for transprency enabled"
  if MFLinTransparenz.IsEnabled = "false" Then Warnlog "- Transparency disabled"
  if TransparenzverlaufTyp.IsEnabled = "false"  Then Warnlog "- Gradient disabled"
  if MFZentrumX.IsEnabled = "false" Then Warnlog "- Center X disabled"
  if MFZentrumY.IsEnabled = "false" Then Warnlog "- Center Y disabled"
  if MFWinkel.IsEnabled = "false" Then Warnlog "- Anlge disabled"
  if MFRand.IsEnabled = "false" Then Warnlog "- Border disabled"
  if MFStartwert.IsEnabled = "false" Then Warnlog "- Start value disabled"
  if MFEndwert.IsEnabled = "false" Then Warnlog "- End value disabled"

    Printlog "- Check if changed values are saved"

  Zaehler=TransparenzverlaufTyp.GetItemCount
  for i=1 to Zaehler
      TransparenzverlaufTyp.Select i
      SetClipboard Transparenzverlauftyp.GetSelText
      TabTransparenz.OK
     sleep 2
    FormatArea
     sleep 1
      Kontext
      Active.SetPage TabTransparenz        '/// check if values are saved after closing and reopening dialog ///'
      Kontext "TabTransparenz"
       if not Transparenzverlauftyp.GetSelIndex = i Then Warnlog "- Values are not correct for gradient transparency"
   next i
  TransparenzverlaufTyp.Select 2
   if MFZentrumX.IsEnabled Then Warnlog "- Center X should not be enabled"
   if MFZentrumY.IsEnabled Then Warnlog "- Center Y should not be enabled"
   MFWinkel.SetText "45"
   Winkel_1 = MFWinkel.GetText
   TabTransparenz.OK
   sleep 2
   FormatArea
   sleep 2
   Kontext
   Active.SetPage TabTransparenz
   Kontext "TabTransparenz"
    if TransparenzverlaufTyp.GetSelIndex <>2 Then
       Warnlog "- Second menu-item is not choosen"
    end if
    TransparenzverlaufTyp.Select 3
     if MFWinkel.GetText <> Winkel_1 then Warnlog "- The inserted value is not accepted"
     if MFWinkel.GetText <> Winkel_1 Then TransparenzverlaufTyp.Select 3
     if MFWinkel.IsEnabled Then Warnlog " - Angle should not be active when Radial is choosen"
    sleep 1
    MFZentrumX.SetText "30"
    MFZentrumY.SetText "30"
    TabTransparenz.OK
    sleep 2
    FormatArea
    sleep 2
    Kontext
    Active.SetPage TabTransparenz
    Kontext "TabTransparenz"
     if MFZentrumX.GetText <> "30%" Then Warnlog "- Setted value for Center X is not applied."
     if MFZentrumY.GetText <> "30%" Then Warnlog "- Setted value for Center Y is not applied."
    MFRand.SetText "10"
    MFStartwert.SetText "20"
    MFEndwert.SetText "30"
    TabTransparenz.OK
    sleep 2
    FormatArea
    sleep 2
    Kontext
    Active.SetPage TabTransparenz
    Kontext "TabTransparenz"
     if MFRand.GetText <> "10%" Then Warnlog "- Border-value was not set."
     if MFEndwert.GetText <> "30%" Then Warnlog "- End-value was not set."
     if MFStartwert.GetText <> "20%" Then Warnlog "- Start-value was not set."
    TabTransparenz.OK

 Call hCloseDocument          '/// close document ///'

endcase

