testautomation/writer/required/includes/w_009_.inc

   1 '**************************************************************************
   2 ' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   3 '
   4 ' Copyright 2000, 2010 Oracle and/or its affiliates.
   5 '
   6 ' OpenOffice.org - a multi-platform office productivity suite
   7 '
   8 ' This file is part of OpenOffice.org.
   9 '
  10 ' OpenOffice.org is free software: you can redistribute it and/or modify
  11 ' it under the terms of the GNU Lesser General Public License version 3
  12 ' only, as published by the Free Software Foundation.
  13 '
  14 ' OpenOffice.org is distributed in the hope that it will be useful,
  15 ' but WITHOUT ANY WARRANTY; without even the implied warranty of
  16 ' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17 ' GNU Lesser General Public License version 3 for more details
  18 ' (a copy is included in the LICENSE file that accompanied this code).
  19 '
  20 ' You should have received a copy of the GNU Lesser General Public License
  21 ' version 3 along with OpenOffice.org.  If not, see
  22 ' <http://www.openoffice.org/license.html>
  23 ' for a copy of the LGPLv3 License.
  24 '
  25 '/************************************************************************
  26 '*                                                                **
  27 '* owner : helge.delfs@oracle.com                                    **
  28 '*                                                                **
  29 '* short description :   Testcases for the Help-Menu
  30 '*
  31 '\******************************************************************
  32
  33 sub w_009_
  34
  35     printLog Chr(13) + "--------- Menu Help (w_009_.inc) ----------"
  36     gApplication = "WRITER"
  37
  38     Call tHelpTip
  39     Call tHelpExtendedTips
  40     Call tHelpAboutStarOffice
  41
  42 end sub
  43
  44 '-----------------------------------------------------------
  45
  46 testcase tHelpTip
  47     PrintLog "- Help / Tip"
  48
  49     printlog " Open new document"
  50     Call hNewDocument
  51     printlog " Help / Tips"
  52     HelpTips
  53     WaitSlot (2000)
  54     printlog " Help / Tips"
  55     HelpTips
  56     printlog " Close active document"
  57     Call hCloseDocument
  58 endcase
  59
  60 '-----------------------------------------------------------
  61
  62 testcase tHelpExtendedTips
  63     PrintLog "- Help / Extended Tips"
  64
  65     printlog " Open new document"
  66     Call hNewDocument
  67     printlog " Help / Extended Help"
  68     HelpEntendedHelp
  69     WaitSlot (2000)
  70     printlog " Help / Extended Help"
  71     HelpEntendedHelp
  72     printlog " Close active document"
  73     Call hCloseDocument
  74 endcase
  75
  76 '-----------------------------------------------------------
  77
  78 testcase tHelpAboutStarOffice
  79     PrintLog "- Help / About StarOffice"
  80
  81     printlog " Open new document"
  82     Call hNewDocument
  83     printlog " Help / About"
  84     HelpAboutStarOffice
  85     Kontext "UeberStarWriter"
  86     DialogTest ( UeberStarWriter )
  87     printlog " In About dialog enter key <Strg+Alt+Del>"
  88     UeberStarWriter.TypeKeys "<Mod1 S><Mod1 D><Mod1 T>"
  89     printlog " Close About dialog"
  90     hCloseDialog( UeberStarWriter, "ok" )
  91     printlog " Close active document"
  92     Call hCloseDocument
  93 endcase
  94
  95 '-----------------------------------------------------------