'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_group.inc,v $
'*
'* $Revision: 1.1 $
'*
'* last change: $Author: jsi $ $Date: 2008-06-16 10:42:40 $
'*
'* 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 tiGruppierung
'\********************************************************************

testcase tiGruppierung
 Dim PosX 		 'Variable fuer PositionX

 Call hNewDocument								   '/// new document  ///'
  sleep 3
  Kontext "DocumentImpress"
  sleep 2
  hRechteckErstellen (20,20,40,40)				   '/// create rectangle  ///'
  sleep 1
  hRechteckErstellen (60,60,70,10)				   '/// create 2nd rectangle ///'
  sleep 1
  hRechteckErstellen (50,90,70,40)				   '/// create 3rd rectangle ///'
  sleep 1
    Printlog "- Created 3 rectangles for group testing"
  gMouseClick (50,50)                              '/// Put the mouse-marker in the middle of the screen ///'
  EditSelectAll 						   '/// select all rectangles ///'
  if (lcase(gApplication) = "draw") then
     hOpenContextMenu
        sleep(2)
        hMenuSelectNr(12) ' Select "Group"
        sleep(2)
  else
     FormatGroupDraw							   '/// open context menue and group rectangles ///'
  endif
  sleep 1
    Printlog "- Get position and dimensions of elements"
  ContextPositionAndSize								'/// get dimensions of group ///'
  sleep 1
  Kontext
  Active.SetPage TabPositionAndSize
  Kontext "TabPositionAndSize"
  sleep 1
  PosX=PositionX.GetText
  TabPositionAndSize.OK
  sleep 1
  Kontext "DocumentImpress"
  gMouseClick 35,35
  sleep 1
  hTypeKeys "<F3>"							'/// entering group using key "F3" ///'
  sleep 3
   try
      EditCut										'/// cut rectangle out of document ///'
      sleep 1
      Warnlog "- Entering the group, no object within the group should have been selected"
   catch
      Printlog "- entered group, nothing selected"
   endcatch
  gMouseClick (35,35)
  gMouseMove (30,30,60,60)
  sleep 1
   Printlog "- Exit group"
'  DocumentImpress.OpenContextMenu							'/// leave group, compare dimensions ///'
'  sleep 1
'  hMenuSelectNr (13)
  hTypeKeys "<mod1 F3>"							'/// exit group using key "strg F3" ///'
  ' would be better to call the slot TBO!
  ContextPositionAndSize
  sleep 1
  Kontext
  Active.SetPage TabPositionAndSize
  Kontext "TabPositionAndSize"
  sleep 1
   if PosX = PositionX.GetText then
      Warnlog "- No change in position for X axis, even we changed position of 1 object within the group"
      TabPositionAndSize.OK
   else
      Printlog "- Moving within the group works"
      TabPositionAndSize.OK
   end if
  Call hCloseDocument									'/// close document  ///'
endcase
