testautomation/framework/required/includes/basic_macroassignment.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: basic_macroassignment.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 12:19:03 $
  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 : joerg.skottke@sun.com
  35 '*
  36 '*  short description : Update-Test for some dialogs in Basic-IDE
  37 '*
  38 '\******************************************************************************
  39
  40 testcase tUpdtMacroAssignment
  41
  42     '///<H1>Update test for some dialogs in Basic-IDE</H1>
  43     '///<ul>
  44
  45     dim brc as boolean
  46
  47     '///+<li>Create a new document</li>
  48     hCreateDocument()
  49
  50     printlog( "Create a new BASIC-module for this document" )
  51
  52     '///+<li>Open the Basic organizer</li>
  53     brc = hOpenBasicOrganizerFromDoc()
  54
  55     '///+<li>Create a new module for the current document -> Basic IDE</li>
  56     brc = hCreateModuleForDoc( "tUpdtBasicIde" )
  57     if ( not brc ) then
  58         warnlog( "Failed to create a new BASIC module for this document" )
  59         brc = hDestroyDocument()
  60         goto endsub
  61     endif
  62
  63     '///+<li>Create a new Basic dialog</li>
  64     printlog( "Create a new BASIC-dialog" )
  65     brc = hNewDialog()
  66     if ( not brc ) then
  67         warnlog( "Failed to create a new BASIC-dialog" )
  68         hCloseBasicIde()
  69         brc = hDestroyDocument()
  70         goto endsub
  71     endif
  72
  73     '///+<li>Select the empty dialogpane in the dialog editor</li>
  74     printlog( "Select the Dialog-Pane from the DialogWindow" )
  75     brc = hSelectDialogPane()
  76     if ( not brc ) then
  77         warnlog( "Selecting failed: ToolsCollectionBar is in the way." )
  78         hCloseBasicIde()
  79     else
  80
  81         '///+<li>Open the ToolsCollectionBar (Basic controls)</li>
  82         printlog( "Show ToolsCollectionBar" )
  83         brc = hShowMacroControls()
  84         if ( not brc ) then
  85             warnlog( "ToolsCollectionBar is not open" )
  86         endif
  87
  88         '///+<li>Open the Property Browser (Properties page)</li>
  89         printlog( "Open the Property-Browser: TabGeneralControl" )
  90         brc = hOpenPropertyBrowser()
  91         if ( brc ) then
  92             call dialogtest( TabGeneralControl )
  93         else
  94             warnlog( "Property-Browser is not open, skipping further testing" )
  95         endif
  96
  97         '///+<li>Switch to the Events Page</li>
  98         if ( brc ) then
  99             brc = hSetPBTabPage( 2 )
 100         endif
 101
 102         if ( brc ) then
 103
 104             printlog( "Current Dialog: Property-Browser / Events-Page" )
 105             call dialogtest( TabEventsControl )
 106
 107             '///+<li>Click on the button for the Focus-Gained event</li>
 108             Kontext "TabEventsControl"
 109             printlog( "Click the button for the FocusGained-Event" )
 110             try
 111                 PBFocusGained.click()
 112             catch
 113                 warnlog( "#i64196# - Events missing on properties tab-page" )
 114                 goto skipevents
 115             endcatch
 116
 117             '///+<li>Click the Assign button on the Assign Macro dialog</li>
 118             Kontext "AssignMacro"
 119             printlog( "Current Dialog: Assign Macro" )
 120             call dialogtest( AssignMacro )
 121             printlog( "Click the Assign-Button on the Macro-Assignment-Dialog" )
 122             AssignButton.click()
 123
 124             '///+<li>Close the ScriptSelector with Cancel</li>
 125             Kontext "ScriptSelector"
 126             printlog( "Current Dialog: ScriptSelector" )
 127             call dialogtest( ScriptSelector )
 128             printlog( "Cancel the scriptselector" )
 129             ScriptSelector.cancel()
 130
 131             '///+<li>Close the Assign Macro dialog with Cacnel</li>
 132             Kontext "AssignMacro"
 133             printlog( "Current Dialog: Assign Macro" )
 134             printlog( "Cancel the Script-Assignement-Dialog" )
 135             AssignMacro.cancel()
 136
 137         endif
 138
 139         skipevents:
 140
 141         '///+<li>Close the Property Browser</li>
 142         printlog( "Current Dialog: Property-Browser" )
 143         printlog( "Close the Property-Browser, return to the document" )
 144         brc = hClosePropertyBrowser()
 145
 146         '///+<li>Close the Basic IDE</li>
 147         brc = hCloseBasicIde()
 148
 149     endif
 150
 151     '///+<li>Close the document</li>
 152     brc = hDestroyDocument()
 153     '///</ul>
 154
 155 endcase
 156