testautomation/spreadsheet/required/includes/c_upd_helpmenu.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 : oliver.craemer@oracle.com
  29 '*
  30 '* short description : Resource Test - Help Menu
  31 '*
  32 '************************************************************************
  33 '*
  34 ' #1 tHelpOfficeHelp
  35 ' #1 tHelpWhatsThis
  36 ' #1 tHelpAbout
  37 '*
  38 '\***********************************************************************
  39
  40 sub c_upd_helpmenu
  41
  42     Printlog Chr(13) + "--------- Help Menu (c_upd_helpmenu.inc) ---------"
  43
  44     call tHelpOfficeHelp
  45     call tHelpWhatsThis
  46     call tHelpAbout
  47
  48
  49 end sub
  50
  51 '-----------------------------------------------------------
  52
  53 testcase tHelpOfficeHelp
  54 '///<u><b>Help – Star-/OpenOffice Help</b></u>
  55
  56     '/// Opening new spreadsheet document for getting defined starting environment
  57     printlog " Opening new spreadsheet document for getting defined starting environment"
  58     Call hNewDocument
  59     '/// Open the help application by 'Help – Star-/OpenOffice Help'
  60     printlog " Open the help application by 'Help – Star-/OpenOffice Help'"
  61     HelpContents
  62     Kontext "StarOfficeHelp"
  63     '/// Close help application
  64     printlog " Close help application"
  65     StarOfficeHelp.TypeKeys "<Mod1 F4>"
  66     If StarOfficeHelp.Exists then
  67         warnlog "StarOffice Help could not be closed?!"
  68     end if
  69     '/// Close starting document
  70     printlog " Close starting document"
  71     Call hCloseDocument
  72
  73 endcase
  74
  75 '-----------------------------------------------------------
  76
  77 testcase tHelpWhatsThis
  78 '///<u><b>Help – What's This?</b></u>
  79
  80     '/// Open new Spreadsheet document
  81     printlog " Open new Spreadsheet document"
  82     Call hNewDocument
  83     '/// Invoke the 'What's this help' by 'Help – What's This?'
  84     printlog " Invoke the 'What's this help' by 'Help – What's This?'"
  85     HelpWhatsThis
  86     '/// Close document
  87     printlog " Close document"
  88     Call hCloseDocument
  89
  90 endcase
  91
  92 '-----------------------------------------------------------
  93
  94 testcase tHelpAbout
  95 '///<u><b>Help – About</b></u>
  96
  97     '/// Open new Spreadsheet document
  98     printlog " Open new Spreadsheet document"
  99     Call hNewDocument
 100     '/// Open the 'About' window by 'Help – About Star-/OpenOffice'
 101     printlog " Open the 'About' window by 'Help – About Star-/OpenOffice'"
 102     HelpAboutStarOffice
 103     Kontext "UeberStarWriter"
 104     DialogTest ( UeberStarWriter )
 105     '/// Show build-ID and members by STRG-SDT
 106     printlog " Show build-ID and members by STRG-SDT"
 107     UeberStarWriter.TypeKeys "<Mod1 S><Mod1 D><Mod1 T>"
 108     '/// Close dialog with 'OK'
 109     printlog " Close dialog with 'OK'"
 110     UeberStarWriter.OK
 111     '/// Close document
 112     printlog " Close document"
 113     Call hCloseDocument
 114
 115 endcase
 116
 117 '-----------------------------------------------------------
 118
 119