testautomation/graphics/optional/includes/global/g_group.inc

   1 'encoding UTF-8  Do not remove or change this line!
   2 '**************************************************************************
   3 '* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4 '*
   5 '* Copyright 2008 by Sun Microsystems, Inc.
   6 '*
   7 '* OpenOffice.org - a multi-platform office productivity suite
   8 '*
   9 '* $RCSfile: g_group.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 10:42:40 $
  14 '*
  15 '* This file is part of OpenOffice.org.
  16 '*
  17 '* OpenOffice.org is free software: you can redistribute it and/or modify
  18 '* it under the terms of the GNU Lesser General Public License version 3
  19 '* only, as published by the Free Software Foundation.
  20 '*
  21 '* OpenOffice.org is distributed in the hope that it will be useful,
  22 '* but WITHOUT ANY WARRANTY; without even the implied warranty of
  23 '* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  24 '* GNU Lesser General Public License version 3 for more details
  25 '* (a copy is included in the LICENSE file that accompanied this code).
  26 '*
  27 '* You should have received a copy of the GNU Lesser General Public License
  28 '* version 3 along with OpenOffice.org.  If not, see
  29 '* <http://www.openoffice.org/license.html>
  30 '* for a copy of the LGPLv3 License.
  31 '*
  32 '/************************************************************************
  33 '*
  34 '* Owner : wolfram.garten@sun.com
  35 '*
  36 '* short description :
  37 '*
  38 '*********************************************************************
  39 ' #1 tiGruppierung
  40 '\********************************************************************
  41
  42 testcase tiGruppierung
  43  Dim PosX                'Variable fuer PositionX
  44
  45  Call hNewDocument                                                                 '/// new document  ///'
  46   sleep 3
  47   Kontext "DocumentImpress"
  48   sleep 2
  49   hRechteckErstellen (20,20,40,40)                                 '/// create rectangle  ///'
  50   sleep 1
  51   hRechteckErstellen (60,60,70,10)                                 '/// create 2nd rectangle ///'
  52   sleep 1
  53   hRechteckErstellen (50,90,70,40)                                 '/// create 3rd rectangle ///'
  54   sleep 1
  55     Printlog "- Created 3 rectangles for group testing"
  56   gMouseClick (50,50)                              '/// Put the mouse-marker in the middle of the screen ///'
  57   EditSelectAll                                                    '/// select all rectangles ///'
  58   if (gApplication = "DRAW") then
  59      hOpenContextMenu
  60         sleep(2)
  61         hMenuSelectNr(12) ' Select "Group"
  62         sleep(2)
  63   else
  64      FormatGroupDraw                                                       '/// open context menue and group rectangles ///'
  65   endif
  66   sleep 1
  67     Printlog "- Get position and dimensions of elements"
  68   ContextPositionAndSize                                                                '/// get dimensions of group ///'
  69   sleep 1
  70   Kontext
  71   Active.SetPage TabPositionAndSize
  72   Kontext "TabPositionAndSize"
  73   sleep 1
  74   PosX=PositionX.GetText
  75   TabPositionAndSize.OK
  76   sleep 1
  77   Kontext "DocumentImpress"
  78   gMouseClick 35,35
  79   sleep 1
  80   hTypeKeys "<F3>"                                                      '/// entering group using key "F3" ///'
  81   sleep 3
  82    try
  83       EditCut                                                                           '/// cut rectangle out of document ///'
  84       sleep 1
  85       Warnlog "- Entering the group, no object within the group should have been selected"
  86    catch
  87       Printlog "- entered group, nothing selected"
  88    endcatch
  89   gMouseClick (35,35)
  90   gMouseMove (30,30,60,60)
  91   sleep 1
  92    Printlog "- Exit group"
  93 '  DocumentImpress.OpenContextMenu                                                      '/// leave group, compare dimensions ///'
  94 '  sleep 1
  95 '  hMenuSelectNr (13)
  96   hTypeKeys "<mod1 F3>"                                                 '/// exit group using key "strg F3" ///'
  97   ' would be better to call the slot TBO!
  98   ContextPositionAndSize
  99   sleep 1
 100   Kontext
 101   Active.SetPage TabPositionAndSize
 102   Kontext "TabPositionAndSize"
 103   sleep 1
 104    if PosX = PositionX.GetText then
 105       Warnlog "- No change in position for X axis, even we changed position of 1 object within the group"
 106       TabPositionAndSize.OK
 107    else
 108       Printlog "- Moving within the group works"
 109       TabPositionAndSize.OK
 110    end if
 111   Call hCloseDocument                                                                   '/// close document  ///'
 112 endcase