testautomation/framework/required/includes/tools_customize.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 2000, 2010 Oracle and/or its affiliates.
   6 '
   7 ' OpenOffice.org - a multi-platform office productivity suite
   8 '
   9 ' This file is part of OpenOffice.org.
  10 '
  11 ' OpenOffice.org is free software: you can redistribute it and/or modify
  12 ' it under the terms of the GNU Lesser General Public License version 3
  13 ' only, as published by the Free Software Foundation.
  14 '
  15 ' OpenOffice.org is distributed in the hope that it will be useful,
  16 ' but WITHOUT ANY WARRANTY; without even the implied warranty of
  17 ' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18 ' GNU Lesser General Public License version 3 for more details
  19 ' (a copy is included in the LICENSE file that accompanied this code).
  20 '
  21 ' You should have received a copy of the GNU Lesser General Public License
  22 ' version 3 along with OpenOffice.org.  If not, see
  23 ' <http://www.openoffice.org/license.html>
  24 ' for a copy of the LGPLv3 License.
  25 '
  26 '/******************************************************************************
  27 '*
  28 '*  owner : gregor.hartmann@oracle.com
  29 '*
  30 '*  short description : Update Test for the Tools Customize Dialog
  31 '*
  32 '\******************************************************************************
  33
  34 testcase tUpdtCustomize( cApp as string )
  35
  36     printlog( "Tools/Customize dialog" )
  37
  38     if ( hCreateDocument() ) then
  39         if ( hToolsCustomizeOpen() ) then
  40             hUpdtToolsCustomizeKeyboard()
  41             hUpdtToolsCustomizeMenu()
  42             hUpdtToolsCustomizeToolbars()
  43             hUpdtToolsCustomizeEvents()
  44             hCloseDialog( TabCustomizeEvents, "cancel" )
  45         else
  46             warnlog( "Tools/Customize dialog did not open" )
  47         endif
  48         hDestroyDocument
  49     else
  50         warnlog( "Failed to create initial document" )
  51     endif
  52
  53 endcase
  54
  55 '*******************************************************************************
  56
  57 function hUpdtToolsCustomizeMenu()
  58
  59     const CFN = "hUpdtToolsCustomizeMenu::"
  60
  61     const MENUITEM_MOVE              = 1
  62     const MENUITEM_ADDSUBMENU        = 1
  63     const MENUITEM_RENAME            = 2
  64     const MENUITEM_DELETE            = 3
  65     const MENUITEM_MODIFY            = 2
  66     const MENUITEM_MODIFY_LARGE_MENU = 4
  67
  68     const APPLICATION_ONLY = 1
  69     const APPLICATION_AND_DOCUMENT    = 2
  70     const ITEMNAME = "tUpdtCustomize"
  71
  72     dim brc as boolean
  73
  74     dim iItems as integer
  75     dim iCurrentItem as integer
  76     dim iMenuListItems as integer
  77     dim iEntriesListItems as integer
  78
  79     printlog( "" )
  80     printlog( "Menu" )
  81
  82     hToolsCustomizeSelectTab( "Menu" )
  83     call DialogTest( TabCustomizeMenu )
  84
  85     printlog( CFN & "Click New..." )
  86     kontext "TabCustomizeMenu"
  87     BtnNew.click()
  88
  89     Kontext "MenuOrganiser"
  90     if ( MenuOrganiser.exists( 2 ) ) then
  91         printlog( CFN & "MenuOrganiser" )
  92         call DialogTest( MenuOrganiser )
  93
  94         printlog( CFN & "Down..." )
  95         ButtonDown.click()
  96
  97         printlog( CFN & "Up..." )
  98         ButtonUp.click()
  99
 100         printlog( CFN & "Name the new menu" )
 101         MenuName.setText( "tUpdtCustomize" )
 102
 103         'qaerrorlog( "#i60609# Undeclared listbox in menu organiser" )
 104         printlog( "TODO: Access the listbox in menuorganizer" )
 105
 106         printlog( CFN & "Close the menu with ok" )
 107         hCloseDialog( MenuOrganiser, "ok" )
 108     else
 109         warnlog( "Dialog <MenuOrganiser> did not open" )
 110     endif
 111
 112     printlog( CFN & "Click the menu listbutton" )
 113     kontext "TabCustomizeMenu"
 114     hOpenMenuButton( MenuBtn ) ' MenuBtn.OpenMenu()
 115
 116     printlog( CFN & "Select Move..." )
 117     hMenuSelectNr( MENUITEM_MOVE )
 118
 119     kontext "MenuOrganiser"
 120     if ( MenuOrganiser.exists( 2 ) ) then
 121         printlog( CFN & "Click UP" )
 122         ButtonUp.click()
 123
 124         kontext "MenuOrganiser"
 125         printlog( CFN & "Click DOWN" )
 126         ButtonDown.click()
 127
 128         printlog( CFN & "Cancel the dialog" )
 129         hCloseDialog( MenuOrganiser, "cancel" )
 130     else
 131         warnlog( "Dialog <MenuOrganizer> did not open" )
 132     endif
 133
 134     printlog( CFN & "Click the menu listbutton" )
 135     kontext "TabCustomizeMenu"
 136     hOpenMenuButton( MenuBtn ) ' MenuBtn.OpenMenu()
 137
 138     printlog( CFN & "Select Rename..." )
 139     hMenuSelectNr( MENUITEM_RENAME )
 140
 141     printlog( CFN & "Cancel the renaming-dialog" )
 142     kontext "RenameMenu"
 143     RenameMenu.cancel()
 144
 145     printlog( CFN & "Click the menu listbutton" )
 146     kontext "TabCustomizeMenu"
 147     hOpenMenuButton( MenuBtn ) ' MenuBtn.OpenMenu()
 148
 149     printlog( CFN & "Select Delete" )
 150     hMenuSelectNr( MENUITEM_DELETE )
 151
 152     kontext "TabCustomizeMenu"
 153     hUpdtToolsCustomizeScriptSelector( 3 )
 154
 155     printlog( CFN & "Check itemcount in SaveIn List" )
 156     kontext "TabCustomizeMenu"
 157     select case gApplication
 158     case "BACKGROUND"   :   brc = hToolsCustomizeTestSaveIn( APPLICATION_ONLY )
 159     case else           :   brc = hToolsCustomizeTestSaveIn( APPLICATION_AND_DOCUMENT )
 160     end select
 161     if ( not brc ) then warnlog( "Incorrect itemcount in listbox, see above" )
 162
 163     printlog( CFN & "Down..." )
 164     BtnDown.click()
 165
 166     printlog( CFN & "Up..." )
 167     BtnUp.click()
 168
 169     printlog( CFN & "Click the Modify-Button and select item 1 (Add submenu)" )
 170     kontext "TabCustomizeMenu"
 171
 172     if ( not hClickCommandButton( MENUITEM_ADDSUBMENU ) ) then
 173         warnlog( CFN & "Something went wrong when accessing the command button" )
 174         exit function
 175     endif
 176
 177     printlog( CFN & "Give the submenu a name, accept with OK" )
 178     kontext "CustomizeMenuName"
 179     call dialogtest( CustomizeMenuName )
 180     EingabeFeld.setText( ITEMNAME )
 181     CustomizeMenuName.ok()
 182
 183     printlog( CFN & "Find the new submenu in the list and select it" )
 184     WaitSlot()
 185     kontext "TabCustomizeMenu"
 186     iEntriesListItems = Entries.getItemCount()
 187     for iCurrentItem = 1 to iEntriesListItems
 188
 189         Entries.select( iCurrentItem )
 190         if ( Entries.getSelText() = ITEMNAME ) then
 191             exit for
 192         endif
 193
 194     next iCurrentItem
 195
 196
 197     printlog( CFN & "Click the Modify-Button and select to rename the item" )
 198     kontext "TabCustomizeMenu"
 199
 200     if ( not hClickCommandButton( 3 ) ) then
 201         warnlog( CFN & "Something went wrong when accessing the command button" )
 202         exit function
 203     endif
 204
 205     printlog( CFN & "Rename the item, accept with OK" )
 206     kontext "CustomizeMenuReName"
 207     call dialogtest( CustomizeMenuReName )
 208     EingabeFeld.setText( ITEMNAME & "1" )
 209     CustomizeMenuReName.ok()
 210
 211     printlog( CFN & "Verify that the name has been updated" )
 212     kontext "TabCustomizeMenu"
 213     if ( Entries.getSelText() <> ( ITEMNAME & "1" ) ) then
 214         warnlog( "Names do not match" )
 215     endif
 216
 217     printlog( CFN & "Click the Modify-Button and delete the current item" )
 218     kontext "TabCustomizeMenu"
 219
 220     if ( not hClickCommandButton( MENUITEM_MODIFY_LARGE_MENU ) ) then
 221         warnlog( CFN & "Something went wrong when accessing the command button" )
 222         exit function
 223     endif
 224
 225     printlog( CFN & "Click the Modify-Button and create a new group" )
 226     kontext "TabCustomizeMenu"
 227
 228     if ( not hClickCommandButton( MENUITEM_MODIFY ) ) then
 229         warnlog( CFN & "Something went wrong when accessing the command button" )
 230         exit function
 231     endif
 232
 233     ' Note: The current index for the delete-function is at pos 2.
 234     printlog( CFN & "Click the Modify-Button and delete the new group" )
 235     kontext "TabCustomizeMenu"
 236
 237     if ( not hClickCommandButton( MENUITEM_MODIFY ) ) then
 238         warnlog( CFN & "Something went wrong when accessing the command button" )
 239         exit function
 240     endif
 241
 242 end function
 243
 244 '*******************************************************************************
 245
 246 function hUpdtToolsCustomizeToolbars()
 247
 248     const CFN = "hUpdtToolsCustomizeToolbars::"
 249
 250     const DOCUMENT_ONLY = 1
 251     const APPLICATION_AND_DOCUMENT = 2
 252
 253     const MENUITEM_RENAME = 1
 254     const MENUITEM_DELETE = 2
 255     const MENUITEM_MODIFY = 4
 256
 257     const DIALOG_DELAY = 1
 258
 259     dim brc as boolean
 260     dim iCurrentItem as integer
 261
 262     printlog( "" )
 263     printlog( "Toolbars" )
 264
 265     brc = hToolsCustomizeSelectTab( "Toolbars" )
 266     call DialogTest( TabCustomizeToolbars )
 267
 268     printlog( CFN & "Click New..." )
 269     kontext "TabCustomizeToolbars"
 270     BtnNew.click()
 271
 272     kontext "NewToolbar"
 273     if ( NewToolbar.exists( DIALOG_DELAY ) ) then
 274         printlog( CFN & "NewToolbar" )
 275         call DialogTest( NewToolbar )
 276
 277         select case gApplication
 278         case "BACKGROUND"   :   brc = hToolsCustomizeTestSaveIn( DOCUMENT_ONLY )
 279         case else           :   brc = hToolsCustomizeTestSaveIn( APPLICATION_AND_DOCUMENT )
 280         end select
 281
 282         if ( not brc ) then warnlog( "Incorrect itemcount in listbox, see above" )
 283
 284         printlog( CFN & "Name the new toolbar for further usage" )
 285         ToolbarName.setText( "tUpdtCustomize" )
 286
 287         printlog( CFN & "Close NewToolbar dialog with OK" )
 288         hCloseDialog( NewToolbar, "ok" )
 289     else
 290         warnlog( CFN & "Could not access New Toolbar dialog" )
 291     endif
 292
 293     printlog( CFN & "Rename the toolbar via Toolbar-Button" )
 294     kontext "TabCustomizeToolbars"
 295     hOpenMenuButton( MenuBtn ) ' MenuBtn.OpenMenu()
 296
 297     printlog( "Select rename" )
 298     hMenuSelectNr( MENUITEM_RENAME )
 299
 300     printlog( CFN & "Cancel the dialog" )
 301     kontext "RenameToolbar"
 302     if ( RenameToolbar.exists( DIALOG_DELAY ) ) then
 303         call dialogtest( RenameToolbar )
 304         hCloseDialog( RenameToolbar, "Cancel" )
 305     else
 306         warnlog( CFN & "Could not access Toolbar renaming dialog" )
 307     endif
 308
 309     printlog( CFN & "Delete the toolbar via Toolbar-Button" )
 310     kontext "TabCustomizeToolbars"
 311     hOpenMenuButton( MenuBtn ) ' MenuBtn.OpenMenu()
 312
 313     printlog( "Select delete" )
 314     hMenuSelectNr( MENUITEM_DELETE )
 315
 316     kontext "TabCustomizeToolbars"
 317     hUpdtToolsCustomizeScriptSelector( 2 )
 318
 319     kontext "TabCustomizeToolbars"
 320     select case gApplication
 321     case "BACKGROUND"   :   brc = hToolsCustomizeTestSaveIn( DOCUMENT_ONLY )
 322     case else           :   brc = hToolsCustomizeTestSaveIn( APPLICATION_AND_DOCUMENT )
 323     end select
 324
 325     if ( not brc ) then warnlog( "Incorrect itemcount in listbox, see above" )
 326
 327     printlog( CFN & "Down..." )
 328     if ( BtnDown.isEnabled() ) then
 329         BtnDown.click()
 330     else
 331         qaerrorlog( "BtnDown is not enabled" )
 332     endif
 333
 334     printlog( CFN & "Up..." )
 335     if ( BtnUp.isEnabled() ) then
 336         BtnUp.click()
 337     else
 338         qaerrorlog( "BtnUp is not enabled" )
 339     endif
 340
 341     kontext "TabCustomizeToolbars"
 342     printlog( CFN & "Add command" )
 343     AddCommands.click()
 344
 345     kontext "ScriptSelector"
 346     if ( ScriptSelector.exists( DIALOG_DELAY ) ) then
 347         printlog( "ScriptSelector open." )
 348     else
 349         LibraryTreeList.typeKeys( "<HOME>" )
 350         for iCurrentItem = 1 to 5
 351             printlog( CFN & "LibraryTreeList: Moving down..." )
 352             LibraryTreeList.typeKeys( "<DOWN>" )
 353             if ( ScriptSelector.isEnabled() ) then exit for
 354         next iCurrentItem
 355     endif
 356
 357     call dialogtest( ScriptSelector )
 358
 359     printlog( CFN & "Close the Script Selector, back to ToolsCustomize dialog" )
 360     hCloseDialog( ScriptSelector, "cancel" )
 361
 362     kontext "TabCustomizeToolbars"
 363     printlog( CFN & "Click the Modify-button" )
 364
 365     if ( hClickCommandButton( 1 ) ) then
 366
 367         printlog( CFN & "Command button clicked successfully" )
 368         kontext "CustomizeToolbarsRename"
 369         UseBindings
 370         wait( 100 )
 371         if ( CustomizeToolbarsRename.exists( DIALOG_DELAY ) ) then
 372
 373             printlog( CFN & "Rename dialog is open" )
 374             call dialogtest( CustomizeToolbarsRename )
 375             EingabeFeld.setText( "Renamed item" )
 376
 377             printlog( CFN & "Close the dialog" )
 378             hCloseDialog( CustomizeToolbarsRename, "ok" )
 379         else
 380             warnlog( CFN & "CustomizeToolbarsRename could not be accessed" )
 381         endif
 382     else
 383         warnlog( CFN & "Something went wrong when accessing the command button" )
 384         exit function
 385     endif
 386
 387     kontext "TabCustomizeToolbars"
 388     if ( hClickCommandButton( 2 ) ) then
 389         printlog( CFN & "Successfully clicked second item on the command button" )
 390     else
 391         warnlog( CFN & "Something went wrong when accessing the command button" )
 392         exit function
 393     endif
 394
 395     kontext "TabCustomizeToolbars"
 396     waitslot
 397     printlog( CFN & "Deselect separator (if this is the current object)" )
 398     hDeselectSeparator()
 399
 400     kontext "TabCustomizeToolbars"
 401     if ( not hClickCommandButton( 3 ) ) then
 402         warnlog( CFN & "Something went wrong when accessing the command button" )
 403         exit function
 404     endif
 405
 406     waitslot
 407     kontext "TabCustomizeToolbars"
 408     printlog( CFN & "Click the Modify-button" )
 409     if ( hClickCommandButton( MENUITEM_MODIFY ) ) then
 410         printlog( CFN & "Successfully selected modify-item on the command button" )
 411     else
 412         warnlog( CFN & "Something went wrong when accessing the command button" )
 413         exit function
 414     endif
 415
 416     WaitSlot
 417     kontext "TabCustomizeToolbars"
 418     printlog( CFN & "Click the Modify-button" )
 419     if ( hClickCommandButton( 1 ) ) then
 420         printlog( CFN & "Successfully selected modify-item on the command button" )
 421     else
 422         warnlog( CFN & "Something went wrong when accessing the command button" )
 423         exit function
 424     endif
 425
 426     waitslot
 427     kontext "TabCustomizeToolbars"
 428     printlog( CFN & "Click the Modify-button" )
 429     hDeselectSeparator()
 430
 431     if ( hClickCommandButton( 5 ) ) then
 432         printlog( CFN & "Successfully selected modify-item on the command button" )
 433     else
 434         warnlog( CFN & "Something went wrong when accessing the command button" )
 435         exit function
 436     endif
 437
 438     kontext "ChangeIcon"
 439     printlog( CFN & "On the Change Icon dialog: Click to import an icon" )
 440     if ( ChangeIcon.exists( DIALOG_DELAY ) ) then
 441         call dialogtest( ChangeIcon )
 442         import.click()
 443
 444         printlog( CFN & "Cancel the FileOpen-dialog" )
 445         kontext "OeffnenDlg"
 446         call dialogtest( OeffnenDlg )
 447         hCloseDialog( OeffnenDlg, "cancel" )
 448
 449         printlog( CFN & "Close the Change Icon dialog with <ok>" )
 450         kontext "ChangeIcon"
 451         hCloseDialog( ChangeIcon, "ok" )
 452     else
 453         warnlog( CFN & "Could not access Change Icon dialog" )
 454     endif
 455
 456     waitslot
 457     kontext "TabCustomizeToolbars"
 458     printlog( CFN & "Click the Modify-button" )
 459     if ( hClickCommandButton( 3 ) ) then
 460         printlog( CFN & "Successfully selected modify-item on the command button" )
 461     else
 462         warnlog( CFN & "Something went wrong when accessing the command button" )
 463         exit function
 464     endif
 465
 466 end function
 467
 468
 469 '*******************************************************************************
 470
 471 function hUpdtToolsCustomizeEvents()
 472
 473     const CFN = "hUpdtToolsCustomizeEvents::"
 474     const APPLICATION_ONLY         = 1
 475     const APPLICATION_AND_DOCUMENT = 2
 476     const TAB_EVENTS               = 1
 477
 478     dim brc as boolean
 479
 480     printlog( "" )
 481     printlog( "Events" )
 482
 483     hToolsCustomizeSelectTab( "events" )
 484     if ( TabCustomizeEvents.exists() ) then
 485         if ( TabCustomizeEvents.isVisible() ) then
 486             call DialogTest( TabCustomizeEvents )
 487
 488             hUpdtToolsCustomizeScriptSelector( TAB_EVENTS )
 489
 490             kontext "TabCustomizeEvents"
 491             select case gApplication
 492             case "BACKGROUND"   :   brc = hToolsCustomizeTestSaveIn( APPLICATION_ONLY )
 493             case else           :   brc = hToolsCustomizeTestSaveIn( APPLICATION_AND_DOCUMENT )
 494             end select
 495
 496             if ( not brc ) then warnlog( "Incorrect itemcount in listbox, see above" )
 497
 498         else
 499             warnlog( "<TabCustomizeEvents> is not visible" )
 500         endif
 501     else
 502         warnlog( "<TabCustomizeEvents> did not open" )
 503     endif
 504
 505 end function
 506
 507 '*******************************************************************************
 508
 509 function hUpdtToolsCustomizeKeyboard() as boolean
 510
 511     const CFN = "hUpdtToolsCustomizeKeyboard::"
 512     const FIRST_CHANGEABLE_ITEM = 2
 513
 514     printlog( "" )
 515     printlog( "Keyboard" )
 516
 517     if ( gApplication = "BACKGROUND" ) then
 518         if ( not hToolsCustomizeSelectTab( "keyboard" ) ) then
 519             qaerrorlog( "#i61765# TabTastatur is missing when called from Backing Window" )
 520             hUpdtToolsCustomizeKeyboard() = false
 521             exit function
 522         endif
 523     endif
 524
 525     hToolsCustomizeSelectTab( "keyboard" )
 526
 527     kontext "TabTastatur"
 528     call DialogTest( TabTastatur )
 529
 530     ' no verification of functionality, this is an update test!
 531     kontext "TabTastatur"
 532     StarOffice.check()
 533     hSelectNode( Tastatur , FIRST_CHANGEABLE_ITEM )
 534     hSelectTopNode( bereich )
 535
 536     ' Workaround: It might still happen that the currently selected accelerator
 537     '             is "fixed" so we need to find another one that can be modified.
 538     do while ( not Aendern.isEnabled() )
 539         printlog( "Moving selection down by one, Control is not enabled" )
 540         Tastatur.TypeKeys( "<DOWN>" )
 541     loop
 542
 543     Aendern.click()
 544     Zuruecksetzen.click()
 545     hSelectNode( Tastatur , FIRST_CHANGEABLE_ITEM )
 546
 547     ' Workaround: It might still happen that the currently selected accelerator
 548     '             is "fixed" so we need to find another one that can be modified.
 549     do while ( not Aendern.isEnabled() )
 550         printlog( "Moving selection down by one, Control is not enabled" )
 551         Tastatur.TypeKeys( "<DOWN>" )
 552     loop
 553
 554     Aendern.click()
 555     Loeschen.click()
 556     Speichern.click()
 557
 558     kontext "SpeichernDlg"
 559     hCloseDialog( SpeichernDlg, "cancel" )
 560
 561     kontext "TabTastatur"
 562     Laden.click()
 563
 564     kontext "OeffnenDlg"
 565     hCloseDialog( OeffnenDlg, "cancel" )
 566
 567 end function
 568
 569 '*******************************************************************************
 570
 571 function hUpdtToolsCustomizeScriptSelector( iPageButton as integer ) as boolean
 572
 573     const CFN = "hUpdtToolsCustomizeScriptSelector::"
 574
 575     dim brc as boolean :  brc = true
 576     const TAB_EVENTS   = 1
 577     const TAB_TOOLBARS = 2
 578     const TAB_MENU     = 3
 579     const DIALOG_DELAY = 2
 580
 581     select case iPageButton
 582     case TAB_EVENTS
 583         kontext "TabCustomizeEvents"
 584         printlog( CFN & "Assign Macro... (1)" )
 585         AssignMacro.click()
 586     case TAB_TOOLBARS
 587         kontext "TabCustomizeToolbars"
 588         printlog( CFN & "Add... (2)" )
 589         AddCommands.click()
 590     case TAB_MENU
 591         kontext "TabCustomizeMenu"
 592         printlog( CFN & "Add... (3)" )
 593         AddCommands.click()
 594     case else
 595         warnlog( CFN & "Invalid function parameter" )
 596         hUpdtToolsCustomizeScriptSelector() = false
 597         exit function
 598     end select
 599
 600     kontext "ScriptSelector"
 601     if ( ScriptSelector.exists( DIALOG_DELAY ) ) then
 602         call DialogTest( ScriptSelector )
 603
 604         kontext "ScriptSelector"
 605         hCloseDialog( ScriptSelector, "cancel" )
 606     else
 607          warnlog( CFN & "Dialog <ScriptSelector> did not open" )
 608     endif
 609
 610     select case iPageButton
 611     case TAB_EVENTS   : kontext "TabCustomizeEvents"
 612     case TAB_TOOLBARS : kontext "TabCustomizeToolbars"
 613     case TAB_MENU     : kontext "TabCustomizeMenu"
 614     end select
 615
 616     hUpdtToolsCustomizeScriptSelector() = brc
 617
 618 end function
 619
 620 '*******************************************************************************
 621
 622 function hToolsCustomizeTestSaveIn( iItems as integer ) as boolean
 623
 624     const CFN = "hToolsCustomizeTestSaveIn::"
 625     dim iPresentItems as integer
 626
 627     iPresentItems = SaveIn.getItemCount()
 628
 629     if ( iPresentItems <> iItems ) then
 630         printlog( CFN & "Incorrect itemcount in SaveIn: " )
 631         printlog( CFN & "Expected: " & iItems )
 632         printlog( CFN & "Found...: " & iPresentItems )
 633         hToolsCustomizeTestSaveIn() = false
 634     else
 635         printlog( CFN & "Correct itemcount in SaveIn: " & iItems )
 636         hToolsCustomizeTestSaveIn() = true
 637     endif
 638
 639 end function
 640
 641 '*******************************************************************************
 642
 643 function hOpenMenuButton( oControl as object ) as integer
 644
 645     ' This function is very evil.
 646     ' It was written to hopefully workaround the infamous menubutton which is a button
 647     ' that - when clicked - opens a menu. This feature is shaky and depends on
 648     ' a lot of factors. There is a simple working implemantation in t_menu.inc
 649     ' which has the drawback of being absolutely slow, costing the tools_customize
 650     ' test a lot of time waiting for the control (30% of testtime spent waiting).
 651     ' This approach tries to be dynamic: Machines that can do it the fast way
 652     ' use it automatically, machines that are too slow get two retries with the
 653     ' slower approach.
 654     ' The menubutton is one of the last remaining places where none of the
 655     ' speed optmizations and enhancements apply, so neither WaitSlot() nor
 656     ' synchronous slot execution help here.
 657
 658     dim iClick as integer
 659     dim bUseSlowMethod as boolean : bUseSlowMethod = false
 660
 661     const CFN = "hOpenMenuButton: "
 662     const RC_FAILURE = -1
 663     const MAX_RETRIES = 3
 664     const DEFAULT_DELAY = 1000
 665
 666     hOpenMenuButton() = RC_FAILURE
 667
 668     for iClick = 1 to MAX_RETRIES
 669
 670         if ( bUseSlowMethod ) then
 671             wait( DEFAULT_DELAY )
 672             oControl.OpenMenu()
 673             wait( DEFAULT_DELAY * 3 )
 674         else
 675             oControl.click()
 676         endif
 677
 678         try
 679             hOpenMenuButton() = MenuGetItemCount
 680             printlog( CFN & "Success on " & iClick & ". attempt" )
 681             exit function
 682         catch
 683             qaerrorlog( CFN & "#i96753 - Failed to retrieve itemcount from Menu-/Command-button" )
 684             bUseSlowMethod = true
 685         endcatch
 686
 687     next iClick
 688
 689 end function
 690
 691 '*******************************************************************************
 692
 693 function hClickCommandButton( iItemToClick as integer ) as boolean
 694
 695     const CFN = "hClickCommandButton::"
 696     printlog( CFN & "Enter" )
 697
 698     dim brc as boolean 'a multi purpose boolean returnvalue
 699     dim iMenuItems as integer
 700
 701     iMenuItems = hOpenMenuButton( Command )
 702
 703     ' exit on error
 704     if ( iMenuItems < 0 ) then
 705         warnlog( CFN & "Menu apparently not open, giving up." )
 706         hClickCommandButton() = false
 707         exit function
 708     endif
 709
 710     hMenuSelectNr( iItemToClick )
 711     wait( 500 )
 712     ' check for the rename dialog (menu)
 713     kontext "CustomizeMenuReName"
 714     if ( CustomizeMenuReName.exists() ) then
 715         printlog( CFN & "Opened dialog: Rename Menu" )
 716         hClickCommandButton() = true
 717         exit function
 718     endif
 719
 720     ' check for the rename dialog (toolbar)
 721     kontext "CustomizeToolbarsRename"
 722     if ( CustomizeToolbarsRename.exists() ) then
 723         printlog( CFN & "Opened dialog: Rename Toolbar" )
 724         hClickCommandButton() = true
 725         exit function
 726     endif
 727
 728     printlog( CFN & "Exit" )
 729     hClickCommandButton() = true
 730
 731 end function