testautomation/writer/optional/includes/drawing/w_drawing_tools2.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: w_drawing_tools2.inc,v $
  10 '*
  11 '* $Revision: 1.2 $
  12 '*
  13 '* last change: $Author: vg $ $Date: 2008-08-18 12:25:59 $
  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 : helge.delfs@sun.com
  35 '*
  36 '* short description : Test of the drawing tools - group
  37 '*
  38 '\***********************************************************************
  39
  40 sub w_drawing_tools2
  41
  42     printLog Chr(13) + "- Test of the drawing tools 2 -- Group"
  43     'Group objects
  44     Call tGroup_1                'Generate a objects group via menu Format/Group/Group
  45     Call tGroup_2                'Generate a objects group via contextmenu Format/Group/Group
  46     Call tGroup_3                'Menu entries may not be enabled if less then two objects are selected
  47     Call tGroup_4                'Name a selected object group  via Menu Format/Name object
  48     Call tGroup_5                'Name a selected object group via context menu Name object
  49     Call tGroup_6                'Edit object group via Menu Format/Group/Edit Group
  50     Call tGroup_7                'Edit object group via context menu Group/Edit Group
  51     Call tGroup_8                'Leave object group  via Menu Format/Group/Exit Group
  52     Call tGroup_9                'Leave object group via context menu Group/Exit Group
  53     Call tGroup_10               'Create new objects inside the group ,Undo new created objects before leaving the group
  54     Call tGroup_11               'Create new objects inside the group ,Undo new created objects after leaving the group
  55     Call tGroup_12               'Save and reload document while editing a group
  56     Call tEncapsulatedGroup_1    'Group objects inside the group
  57
  58 end sub
  59
  60 '-------------------------------------------------------------------------
  61
  62 testcase  tGroup_1
  63
  64     PrintLog "- Generate a objects group via menu Format/Group/Group"
  65
  66     Call hNewDocument
  67
  68     PrintLog "- Insert 2 drawing objects (rectangle and ellipse)"
  69     Call wZeichenobjektEinfuegen("RECHTECK", 32, 30, 50, 65, false)
  70     Sleep 1
  71     Call wZeichenobjektEinfuegen("ELLIPSE",  40, 45, 60, 70, false)
  72     Sleep 1
  73     Call wObjektSelektieren ( 30, 28, 70, 80 )
  74     Sleep 1
  75
  76       PrintLog "- via menu Format/Group/Group objects."
  77     try
  78         FormatGroupGroup
  79     catch
  80         Warnlog "Something wrong when creating group via menu - Format/Group/Group."
  81     endcatch
  82
  83     Call hCloseDocument
  84
  85 endcase
  86
  87 '-------------------------------------------------------------------------
  88
  89 testcase  tGroup_2
  90
  91     PrintLog "- Generate a objects group via contextmenu Format/Group/Group"
  92
  93     Call hNewDocument
  94
  95       PrintLog "- Insert 2 drawing objects (rectangle and ellipse)"
  96     Call wZeichenobjektEinfuegen("RECHTECK", 32, 30, 50, 65, false)
  97     Sleep 1
  98     Call wZeichenobjektEinfuegen("ELLIPSE",  40, 45, 60, 70, false)
  99     Sleep 1
 100     Call wObjektSelektieren ( 30, 28, 70, 80 )
 101     Sleep 1
 102
 103       PrintLog "- via contextmenu Group/Group objects."
 104     try
 105         Call wOpenContextMenu
 106         Call hMenuSelectNr(10)
 107         Call hMenuSelectNr(1)
 108     catch
 109         Warnlog "Something wrong when creating group via contextmenu Group/Group"
 110     endcatch
 111
 112     Call hCloseDocument
 113
 114 endcase
 115
 116 '-------------------------------------------------------------------------
 117
 118 testcase  tGroup_3
 119
 120     PrintLog "- Menu entries may not be enabled if less then two objects are selected."
 121
 122     Call hNewDocument
 123
 124     PrintLog "- Insert 2 drawing objects (rectangle and ellipse)"
 125     Call wZeichenobjektEinfuegen("RECHTECK", 30, 30, 50, 65, false)
 126     Sleep 1
 127     Call wZeichenobjektEinfuegen("ELLIPSE",  40, 45, 60, 70, false)
 128     Sleep 1
 129
 130       PrintLog "- Only select 1 object."
 131     Call gMouseClick(32,32)
 132     Sleep 1
 133
 134       PrintLog "- via menu Format/Group/Group objects."
 135     try
 136         FormatGroupGroup
 137         Warnlog "Should NOT generate the group when less then two objects are selected!"
 138     catch
 139     endcatch
 140
 141     Call hCloseDocument
 142
 143 endcase
 144
 145 '-------------------------------------------------------------------------
 146
 147 testcase  tGroup_4
 148
 149     Dim sGroupName as String
 150
 151     sGroupName = "myTestGroup"
 152
 153     PrintLog "- Name a selected object group  via Menu Format/Name object"
 154
 155     Call hNewDocument
 156
 157     PrintLog "- Insert 2 drawing objects (rectangle and ellipse)"
 158     Call wZeichenobjektEinfuegen("RECHTECK", 32, 30, 50, 65, false)
 159     Sleep 1
 160     Call wZeichenobjektEinfuegen("ELLIPSE",  40, 45, 60, 70, false)
 161     Sleep 1
 162     Call wObjektSelektieren ( 30, 28, 70, 80 )
 163     Sleep 1
 164
 165       PrintLog "- via menu Format/Group/Group objects."
 166     FormatGroupGroup
 167     Sleep 1
 168
 169     try
 170         FormatNameObject
 171         Kontext "NameDlgObject"
 172         NameField.SetText sGroupName
 173         NameDlgObject.OK
 174     catch
 175         Warnlog "Something wrong when Naming the group"
 176     endcatch
 177
 178       PrintLog "- let the focus out of the group."
 179     Call gMouseClick(5,5)
 180
 181     Call wNavigatorAuswahl( 12 , 1 )
 182     Sleep 1
 183
 184     try
 185         FormatNameObject
 186         Sleep 1
 187         Kontext "NameDlgObject"
 188         if  NameField.GetText <> sGroupName then Warnlog "The group name is wrong !"
 189         NameDlgObject.Cancel
 190     catch
 191         Warnlog "Something wrong when checking the group name"
 192     endcatch
 193
 194     Call wNavigatorClose
 195
 196     Call hCloseDocument
 197
 198 endcase
 199
 200 '-------------------------------------------------------------------------
 201
 202 testcase  tGroup_5
 203
 204     Dim sGroupName as String
 205
 206     sGroupName = "myTestGroup"
 207
 208     PrintLog "- Name a selected object group via context menu Name object "
 209
 210     Call hNewDocument
 211
 212     PrintLog "- Insert 2 drawing objects (rectangle and ellipse)"
 213     Call wZeichenobjektEinfuegen("RECHTECK", 32, 30, 50, 65, false)
 214     Sleep 1
 215     Call wZeichenobjektEinfuegen("ELLIPSE",  40, 45, 60, 70, false)
 216     Sleep 1
 217     Call wObjektSelektieren ( 28, 28, 70, 80 )
 218     Sleep 1
 219
 220     PrintLog "- via menu Format/Group/Group objects"
 221     FormatGroupGroup
 222     Sleep 1
 223
 224     try
 225         Call wOpenContextMenu
 226         Call hMenuSelectNr(6)
 227         Kontext "NameDlgObject"
 228         NameField.SetText sGroupName
 229         NameDlgObject.OK
 230     catch
 231         Warnlog "Something wrong when Naming the group"
 232     endcatch
 233
 234     PrintLog "- let the focus out of the group."
 235     Call gMouseClick(95,95)
 236
 237     Call wNavigatorAuswahl( 12 , 1 )
 238     Sleep 1
 239
 240     try
 241         Call wOpenContextMenu
 242         Call hMenuSelectNr(6)
 243         Kontext "NameDlgObject"
 244         if  NameField.GetText <> sGroupName then Warnlog "The group name is wrong !"
 245         NameDlgObject.Cancel
 246     catch
 247         Warnlog "Something wrong when checking the group name"
 248     endcatch
 249
 250     Call wNavigatorClose
 251     Call hCloseDocument
 252
 253 endcase
 254
 255 '-------------------------------------------------------------------------
 256
 257 testcase  tGroup_6
 258
 259     Dim sPositionX1 as String
 260     Dim sPositionY1 as String
 261     Dim sPositionX2 as String
 262     Dim sPositionY2 as String
 263
 264     PrintLog "- Edit object group  via Menu Format/Group/Enter Group"
 265
 266     Call hNewDocument
 267
 268     PrintLog "- Insert 2 drawing objects (rectangle and ellipse) , generate a group."
 269     Call wZeichenobjektEinfuegen("RECHTECK", 32, 32, 50, 65, false)
 270     Sleep 1
 271     Call gMouseClick(34,34)
 272     Sleep 1
 273     Call fPositionAndSize("TabPositionAndSizeWriter")
 274     sPositionX1  =  Horizontalby.Gettext
 275     sPositionY1  =  Verticalby.Gettext
 276     TabPositionAndSizeWriter.Cancel
 277     Sleep 2
 278     Call gMouseClick(80,80)
 279     Sleep 1
 280
 281     Call wZeichenobjektEinfuegen("ELLIPSE",  40, 40, 60, 70, false)
 282     Sleep 2
 283     Call gMouseClick(50,50)
 284     Sleep 1
 285     Call fPositionAndSize("TabPositionAndSizeWriter")
 286     sPositionX2  =  Horizontalby.Gettext
 287     sPositionY2  =  Verticalby.Gettext
 288     TabPositionAndSizeWriter.Cancel
 289     Sleep 2
 290     Call gMouseClick(80,80)
 291
 292     Call wObjektSelektieren ( 28, 28, 70, 80 )
 293     Sleep 2
 294     FormatGroupGroup
 295     Sleep 1
 296
 297     PrintLog "- Format/Group/Enter Group."
 298     FormatGroupEditGroup
 299     Sleep 1
 300
 301     PrintLog "- Set the focus to ellipse, and move it."
 302     Call gMouseClick(50,50)
 303     Sleep 1
 304     Call wTypeKeys "<Right>",2
 305
 306     PrintLog "- Set the focus to rectangle , check if it is moved (Should NOT)"
 307     Call gMouseClick(35,35)
 308     Call fPositionAndSize("TabPositionAndSizeWriter")
 309     if Horizontalby.Gettext <> sPositionX1 then Warnlog "Rectangle should NOT be moved: X Not -> "+sPositionX1+"  but -> "+ Horizontalby.Gettext
 310     if Verticalby.Gettext   <> sPositionY1 then Warnlog "Rectangle should NOT be moved: Y Not -> "+sPositionY1+"  but -> "+ Verticalby.Gettext
 311     TabPositionAndSizeWriter.Cancel
 312
 313     PrintLog "- Set the focus to ellipse , check if it is moved (Should)"
 314     Call wTypeKeys "<TAB>"
 315     Call fPositionAndSize("TabPositionAndSizeWriter")
 316     if Horizontalby.Gettext = sPositionX2 then Warnlog "ellipse should be moved"
 317     if Verticalby.Gettext   = sPositionY2 then Warnlog "ellipse should be moved"
 318     TabPositionAndSizeWriter.Cancel
 319
 320     Call hCloseDocument
 321
 322 endcase
 323
 324 '-------------------------------------------------------------------------
 325
 326 testcase  tGroup_7
 327
 328     Dim sPositionX1 as String
 329     Dim sPositionY1 as String
 330     Dim sPositionX2 as String
 331     Dim sPositionY2 as String
 332
 333     PrintLog "- Edit object group via context menu Group/Enter Group"
 334
 335     Call hNewDocument
 336
 337     PrintLog "- Insert 2 drawing objects (rectangle and ellipse) , generate a group."
 338     Call wZeichenobjektEinfuegen("RECHTECK", 32, 32, 50, 65, false)
 339     Sleep 1
 340     Call gMouseClick(40,40)
 341     Sleep 1
 342     Call fPositionAndSize("TabPositionAndSizeWriter")
 343     sPositionX1  =  Horizontalby.Gettext
 344     sPositionY1  =  Verticalby.Gettext
 345     TabPositionAndSizeWriter.Cancel
 346     Sleep 2
 347     Call gMouseClick(80,80)
 348     Sleep 1
 349
 350     Call wZeichenobjektEinfuegen("ELLIPSE",  40, 40, 60, 70, false)
 351     Sleep 2
 352     Call gMouseClick(50,50)
 353     Call fPositionAndSize("TabPositionAndSizeWriter")
 354     sPositionX2  =  Horizontalby.Gettext
 355     sPositionY2  =  Verticalby.Gettext
 356     TabPositionAndSizeWriter.Cancel
 357     Sleep 2
 358     Call gMouseClick(80,80)
 359
 360     Call wObjektSelektieren ( 28, 28, 70, 80 )
 361     Sleep 2
 362     FormatGroupGroup
 363     Sleep 1
 364
 365       PrintLog "- Context menu Group/Enter Group."
 366     Call wOpenContextMenu
 367     Call hMenuSelectNr(12)
 368     Sleep 1
 369     Call hMenuSelectNr(2)
 370     Sleep 1
 371
 372       PrintLog "- Set the focus to ellipse , and move it."
 373     Call gMouseClick(50,50)
 374     Sleep 1
 375     Call wTypeKeys "<Right>",2
 376
 377       PrintLog "- Set the focus to rectangle , check if it is moved (Should NOT)."
 378     Call gMouseClick(40,40)
 379     Call fPositionAndSize("TabPositionAndSizeWriter")
 380     if Horizontalby.Gettext <> sPositionX1 then Warnlog "Rectangle should NOT be moved: X Not -> "+sPositionX1+"  but -> "+ Horizontalby.Gettext
 381     if Verticalby.Gettext   <> sPositionY1 then Warnlog "Rectangle should NOT be moved: Y Not -> "+sPositionY1+"  but -> "+ Verticalby.Gettext
 382     TabPositionAndSizeWriter.Cancel
 383
 384       PrintLog "- Set the focus to ellipse , check if it is moved (Should)."
 385     Call wTypeKeys "<TAB>"
 386     Call fPositionAndSize("TabPositionAndSizeWriter")
 387     if Horizontalby.Gettext = sPositionX2 then Warnlog "ellipse should be moved"
 388     if Verticalby.Gettext   = sPositionY2 then Warnlog "ellipse should be moved"
 389     TabPositionAndSizeWriter.Cancel
 390
 391     Call hCloseDocument
 392
 393 endcase
 394
 395 '-------------------------------------------------------------------------
 396
 397 testcase  tGroup_8
 398
 399     Dim sPositionX as String
 400     Dim sPositionY as String
 401
 402     PrintLog "- Leave object group  via Menu Format/Group/Exit Group"
 403
 404     Call hNewDocument
 405
 406     PrintLog "- Insert 2 drawing objects (rectangle and ellipse) , generate a group."
 407     Call wZeichenobjektEinfuegen("RECHTECK", 32, 32, 50, 65, false)
 408     Sleep 1
 409     Call gMouseClick(34,34)
 410     Sleep 1
 411     Call fPositionAndSize("TabPositionAndSizeWriter")
 412     sPositionX = Horizontalby.Gettext
 413     sPositionY = Verticalby.Gettext
 414     TabPositionAndSizeWriter.Cancel
 415
 416     Call gMouseClick(80,80)
 417     Call wZeichenobjektEinfuegen("ELLIPSE",  40, 45, 60, 70, false)
 418     Sleep 1
 419     Call wObjektSelektieren ( 28, 28, 70, 80 )
 420     Sleep 1
 421
 422     FormatGroupGroup
 423     Sleep 1
 424
 425       PrintLog "- Format/Group/Edit Group."
 426     FormatGroupEditGroup
 427     Sleep 1
 428
 429       PrintLog "- Leave group via Format/Group/Exit Group."
 430     FormatGroupExitGroup   'after this group , the focus should be on the group
 431     Sleep 1
 432
 433       PrintLog "- Set the focus to ellipse(in fact, the focus is on the group), and move it."
 434     Call gMouseClick(50,50)
 435     Sleep 1
 436     Kontext "DocumentWriter"
 437     Call wTypeKeys "<Right>",2
 438     Call wTypeKeys "<Down>"
 439
 440       PrintLog "- Set the focus to rectangle (in fact, the focus is still on the group) ,"
 441       PrintLog "- check if it is moved . Group is moved , Rectangle is moved ..."
 442     Call gMouseClick(45,45)
 443     Call fPositionAndSize("TabPositionAndSizeWriter")
 444     if Horizontalby.Gettext = sPositionX then Warnlog "Rectangle X should be moved!"
 445     if Verticalby.Gettext   = sPositionY then Warnlog "Rectangle Y should be moved!"
 446     TabPositionAndSizeWriter.Cancel
 447
 448     Call hCloseDocument
 449
 450 endcase
 451
 452 '-------------------------------------------------------------------------
 453
 454 testcase  tGroup_9
 455
 456     Dim sPositionX as String
 457     Dim sPositionY as String
 458
 459     PrintLog "- Leave object group  via context Menu Format/Group/Exit Group"
 460
 461     Call hNewDocument
 462
 463     PrintLog "- Insert 2 drawing objects (rectangle and ellipse) , generate a group."
 464     Call wZeichenobjektEinfuegen("RECHTECK", 32, 32, 50, 65, false)
 465     Sleep 1
 466     Call gMouseClick(35,35)
 467     Sleep 1
 468     Call fPositionAndSize("TabPositionAndSizeWriter")
 469     sPositionX = Horizontalby.Gettext
 470     sPositionY = Verticalby.Gettext
 471     TabPositionAndSizeWriter.Cancel
 472
 473     Call gMouseClick(80,80)
 474     Sleep 1
 475     Call wZeichenobjektEinfuegen("ELLIPSE",  40, 45, 60, 70, false)
 476     Sleep 1
 477     Call wObjektSelektieren ( 28, 28, 70, 80 )
 478     Sleep 1
 479     FormatGroupGroup
 480     Sleep 1
 481
 482     PrintLog "- Format/Group/Edit Group."
 483     FormatGroupEditGroup
 484     Sleep 1
 485
 486     PrintLog "- Leave group via context menu Group/Exit Group."
 487     Call gMouseClick(35,50)
 488     Sleep 1
 489     Call wOpenContextMenu
 490     Sleep 2
 491     call hMenuSelectNr(12)
 492     Sleep 2
 493     Call hMenuSelectNr(1)       'after this group , the focus should be on the group
 494     Sleep 2
 495
 496       PrintLog "- Set the focus to ellipse(in fact, the focus is on the group), and move it."
 497     Call gMouseClick(50,50)
 498     Kontext "DocumentWriter"
 499     Call wTypeKeys "<Right>",2
 500     Call wTypeKeys "<Down>"
 501
 502       PrintLog "- Set the focus to rectangle (in fact, the focus is still on the group) ,"
 503       PrintLog "- check if it is moved . Group is moved , Rectangle is moved ..."
 504     Call gMouseClick(45,45)
 505     Call fPositionAndSize("TabPositionAndSizeWriter")
 506     if Horizontalby.Gettext = sPositionX then Warnlog "Rectangle X should be moved!"
 507     if Verticalby.Gettext   = sPositionY then Warnlog "Rectangle Y should be moved!"
 508     TabPositionAndSizeWriter.Cancel
 509
 510     Call hCloseDocument
 511
 512 endcase
 513
 514 '-------------------------------------------------------------------------
 515
 516 testcase  tGroup_10
 517
 518     PrintLog "- create new objects inside the group ,"
 519     PrintLog "  Undo new created objects before leaving the group"
 520
 521     Call hNewDocument
 522
 523     PrintLog "- Insert 2 drawing objects (rectangle and ellipse) , generate a group "
 524     Call wZeichenobjektEinfuegen("RECHTECK", 32, 32, 50, 35, false)
 525     Sleep 1
 526     Call wZeichenobjektEinfuegen("ELLIPSE",  40, 60, 50, 80, false)
 527     Sleep 1
 528     Call wObjektSelektieren ( 30, 30, 55, 85 )
 529     Sleep 1
 530
 531     FormatGroupGroup
 532     Sleep 1
 533
 534     PrintLog "- insert another object (rectangle) in the group"
 535     Call wZeichenobjektEinfuegen("RECHTECK", 35, 40, 45, 55)
 536     Sleep 1
 537
 538     PrintLog "- Format/Group/Edit Group."
 539     Call gMouseClick(32,32)
 540     Sleep 1
 541     FormatGroupEditGroup
 542     Sleep 1
 543
 544       PrintLog "- Undo new created object( rectangle) before leaving the group."
 545     EditUndo
 546     Sleep 1
 547
 548     Call gMouseClick(35,40)    'set focus in the rectangle , in fact, the rectangle should be undone now.
 549     Sleep 1
 550     try
 551         Call fPositionAndSize("TabPositionAndSizeWriter")
 552         TabPositionAndSizeWriter.Cancel
 553         Warnlog "Undo before leaving the group is FAILED!"
 554     catch
 555     endcatch
 556
 557     Call hCloseDocument
 558
 559 endcase
 560
 561 '-------------------------------------------------------------------------
 562
 563 testcase  tGroup_11
 564
 565     PrintLog "- create new objects inside the group ,"
 566     PrintLog "  Undo new created objects after leaving the group"
 567     Call hNewDocument
 568
 569     PrintLog "- Insert 2 drawing objects (rectangle and ellipse) , generate a group "
 570     Call wZeichenobjektEinfuegen("RECHTECK", 30, 30, 50, 35, false)
 571     Sleep 1
 572     Call wZeichenobjektEinfuegen("ELLIPSE",  30, 60, 50, 80, false)
 573     Sleep 1
 574     Call wObjektSelektieren ( 28, 28, 55, 85 )
 575     Sleep 1
 576
 577     FormatGroupGroup
 578     Sleep 1
 579
 580     PrintLog "- insert another object (rectangle) in the group"
 581     Call wZeichenobjektEinfuegen("RECHTECK", 35, 40, 45, 55, false)
 582     Sleep 2
 583     PrintLog "- Format/Group/Edit Group"
 584     Call gMouseClick(32,32)
 585     Sleep 3
 586     FormatGroupEditGroup
 587     Sleep 1
 588
 589     PrintLog "- Leave the group , Format/Group/Exit Group"
 590     FormatGroupExitGroup
 591     Sleep 1
 592
 593     PrintLog "- Undo new created object( rectangle) after leaving the group"
 594     EditUndo
 595     Sleep 1
 596
 597     Call gMouseClick(37,42)    'set focus in the rectangle , in fact, the rectangle should be undone now.
 598     Sleep 1
 599     try
 600         Call fPositionAndSize("TabPositionAndSizeWriter")
 601         TabPositionAndSizeWriter.Cancel
 602         Warnlog "Undo before leaving the group is FAILED!"
 603     catch
 604     endcatch
 605
 606     Call hCloseDocument
 607
 608 endcase
 609
 610 '-------------------------------------------------------------------------
 611
 612 testcase  tGroup_12
 613
 614     Dim sDocument as String
 615
 616     PrintLog "- Edit object group  via Menu Format/Group/Edit Group"
 617
 618     sDocument = ConvertPath ( gOfficePath +"user\work\tGroup_12.odt")
 619     if hFileExists ( sDocument ) then app.kill ( sDocument )
 620
 621     Call hNewDocument
 622
 623     PrintLog "- Insert 2 drawing objects (rectangle and ellipse) , generate a group "
 624     Call wZeichenobjektEinfuegen("RECHTECK", 32, 32, 50, 65, false)
 625     Sleep 1
 626     Call wZeichenobjektEinfuegen("ELLIPSE",  40, 45, 60, 70, false)
 627     Sleep 1
 628     Call wObjektSelektieren ( 30, 30, 70, 80 )
 629     Sleep 1
 630
 631     FormatGroupGroup
 632     Sleep 1
 633
 634       PrintLog "- Format/Group/Edit Group"
 635     FormatGroupEditGroup
 636     Sleep 1
 637
 638     PrintLog "- Save document"
 639     Call hFileSaveAsKill(sDocument)
 640
 641     PrintLog "- close document"
 642     Call hCloseDocument
 643
 644       PrintLog "- Open previous saved document "
 645     Call hFileOpen (sDocument)
 646     Call sMakeReadOnlyDocumentEditable
 647     Kontext "DocumentWriter"
 648     Call gMouseClick(34,34)    'set focus in the group
 649
 650     PrintLog "- try formatGroupEditGroup"
 651     try
 652         FormatGroupEditGroup
 653     catch
 654         Warnlog "It should be in the group mode!"
 655     endcatch
 656
 657     PrintLog "- close document"
 658     Call hCloseDocument
 659
 660 endcase
 661
 662 '-------------------------------------------------------------------------
 663
 664 testcase  tEncapsulatedGroup_1
 665
 666     PrintLog "- Group objects inside the group ,Encapsulated Group"
 667
 668     Call hNewDocument
 669
 670       PrintLog "- Insert 2 drawing objects (rectangle and ellipse) , generate a group "
 671
 672     Call wZeichenobjektEinfuegen("RECHTECK", 32, 32, 50, 65, false)
 673     Sleep 1
 674     Call wZeichenobjektEinfuegen("ELLIPSE",  40, 45, 60, 70, false)
 675     Sleep 1
 676     Call wObjektSelektieren ( 28, 28, 70, 80 )
 677     Sleep 1
 678
 679     FormatGroupGroup
 680     Sleep 1
 681
 682     Call gMouseClick(90,90)    'set focus outside of the group
 683
 684       PrintLog "- insert 2 drawing objects (rectangle and ellipse) in the group"
 685     Call wZeichenobjektEinfuegen("RECHTECK", 35, 40, 38, 45, false)
 686     Call wZeichenobjektEinfuegen("ELLIPSE",  52, 40, 78, 45, false)
 687     Call wObjektSelektieren ( 28, 38, 80, 48 )
 688
 689     try
 690           PrintLog "- generate a new group"
 691         FormatGroupGroup
 692           PrintLog "- edit the new group"
 693         FormatGroupEditGroup
 694           PrintLog "- leave the new group"
 695         FormatGroupExitGroup
 696           PrintLog "- Undo the new group"
 697         FormatGroupUnGroup
 698     catch
 699         Warnlog "Something wrong where operating the Encapsulated group!"
 700     endcatch
 701
 702     Call hCloseDocument
 703
 704 endcase