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 2008 by Sun Microsystems, Inc.
   6 '*
   7 '* OpenOffice.org - a multi-platform office productivity suite
   8 '*
   9 '* $RCSfile: c_upd_helpmenu.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 08:06:07 $
  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 : oliver.craemer@sun.com
  35 '*
  36 '* short description : Resource Test - Help Menu
  37 '*
  38 '************************************************************************
  39 '*
  40 ' #1 tHelpOfficeHelp
  41 ' #1 tHelpWhatsThis
  42 ' #1 tHelpAbout
  43 '*
  44 '\***********************************************************************
  45
  46 sub c_upd_helpmenu
  47
  48     Printlog Chr(13) + "--------- Help Menu (c_upd_helpmenu.inc) ---------"
  49
  50     call tHelpOfficeHelp
  51     call tHelpWhatsThis
  52     call tHelpAbout
  53
  54
  55 end sub
  56
  57 '-----------------------------------------------------------
  58
  59 testcase tHelpOfficeHelp
  60 '///<u><b>Help – Star-/OpenOffice Help</b></u>
  61
  62     '/// Opening new spreadsheet document for getting defined starting environment
  63     printlog " Opening new spreadsheet document for getting defined starting environment"
  64     Call hNewDocument
  65     '/// Open the help application by 'Help – Star-/OpenOffice Help'
  66     printlog " Open the help application by 'Help – Star-/OpenOffice Help'"
  67     HelpContents
  68     Kontext "StarOfficeHelp"
  69     '/// Close help application
  70     printlog " Close help application"
  71     StarOfficeHelp.TypeKeys "<Mod1 F4>"
  72     If StarOfficeHelp.Exists then
  73         warnlog "StarOffice Help could not be closed?!"
  74     end if
  75     '/// Close starting document
  76     printlog " Close starting document"
  77     Call hCloseDocument
  78
  79 endcase
  80
  81 '-----------------------------------------------------------
  82
  83 testcase tHelpWhatsThis
  84 '///<u><b>Help – What's This?</b></u>
  85
  86     '/// Open new Spreadsheet document
  87     printlog " Open new Spreadsheet document"
  88     Call hNewDocument
  89     '/// Invoke the 'What's this help' by 'Help – What's This?'
  90     printlog " Invoke the 'What's this help' by 'Help – What's This?'"
  91     HelpWhatsThis
  92     '/// Close document
  93     printlog " Close document"
  94     Call hCloseDocument
  95
  96 endcase
  97
  98 '-----------------------------------------------------------
  99
 100 testcase tHelpAbout
 101 '///<u><b>Help – About</b></u>
 102
 103     '/// Open new Spreadsheet document
 104     printlog " Open new Spreadsheet document"
 105     Call hNewDocument
 106     '/// Open the 'About' window by 'Help – About Star-/OpenOffice'
 107     printlog " Open the 'About' window by 'Help – About Star-/OpenOffice'"
 108     HelpAboutStarOffice
 109     Kontext "UeberStarWriter"
 110     DialogTest ( UeberStarWriter )
 111     '/// Show build-ID and members by STRG-SDT
 112     printlog " Show build-ID and members by STRG-SDT"
 113     UeberStarWriter.TypeKeys "<Mod1 S><Mod1 D><Mod1 T>"
 114     '/// Close dialog with 'OK'
 115     printlog " Close dialog with 'OK'"
 116     UeberStarWriter.OK
 117     '/// Close document
 118     printlog " Close document"
 119     Call hCloseDocument
 120
 121 endcase
 122
 123 '-----------------------------------------------------------
 124
 125