testautomation/writer/optional/w_shortcuts.bas

   1 '**************************************************************************
   2 '* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   3 '*
   4 '* Copyright 2008 by Sun Microsystems, Inc.
   5 '*
   6 '* OpenOffice.org - a multi-platform office productivity suite
   7 '*
   8 '* $RCSfile: w_shortcuts.bas,v $
   9 '*
  10 '* $Revision: 1.2 $
  11 '*
  12 '* last change: $Author: fredrikh $ $Date: 2008-06-26 08:18:21 $
  13 '*
  14 '* This file is part of OpenOffice.org.
  15 '*
  16 '* OpenOffice.org is free software: you can redistribute it and/or modify
  17 '* it under the terms of the GNU Lesser General Public License version 3
  18 '* only, as published by the Free Software Foundation.
  19 '*
  20 '* OpenOffice.org is distributed in the hope that it will be useful,
  21 '* but WITHOUT ANY WARRANTY; without even the implied warranty of
  22 '* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  23 '* GNU Lesser General Public License version 3 for more details
  24 '* (a copy is included in the LICENSE file that accompanied this code).
  25 '*
  26 '* You should have received a copy of the GNU Lesser General Public License
  27 '* version 3 along with OpenOffice.org.  If not, see
  28 '* <http://www.openoffice.org/license.html>
  29 '* for a copy of the LGPLv3 License.
  30 '*
  31 '/************************************************************************
  32 '*
  33 '* owner : helge.delfs@sun.com
  34 '*
  35 '* short description : Test of shortcuts in writer
  36 '*
  37 '\***********************************************************************
  38
  39 sub main
  40     Dim StartTime
  41     StartTime = Now()
  42
  43     '/// This test is based on the following spec:
  44     '/// Localized Shortcuts
  45     '/// http://specs.openoffice.org/g11n/menus/LocalizedShortcuts.sxw
  46
  47     use "writer\tools\includes\w_tools.inc"
  48     use "writer\optional\includes\shortcut\w_shortcuts.inc"
  49
  50     printlog Chr(13) + "Loading of Include - Files takes: " + Wielange ( StartTime )
  51     printlog Chr(13) + "******* Writer - Shortcut - Test *******"
  52
  53     Call hStatusIn ( "writer", "w_shortcuts.bas","Writer Shortcut-Test" )
  54         Call tShortcutGlobalNew
  55         Call tShortcutGlobalOpen
  56         Call tShortcutGlobalSave
  57         Call tShortcutGlobalSaveAs
  58         Call tShortcutSelectAll
  59         Call tShortcutFindAndReplace
  60         Call tShortcutBold
  61         Call tShortcutItalic
  62         Call tShortcutUnderline
  63         Call tShortcutDoubleUnderline
  64         Call tShortcutAlign
  65         Call tShortcutSuperscript
  66         Call tShortcutSubscript
  67         Call tShortcutPasteUnformattedText
  68     Call hStatusOut
  69
  70     Printlog Chr(13) + "End of Shortcut - Test :"
  71     Printlog "Duration: "+ WieLange ( StartTime )
  72     Printlog "Date: " +  Date + "    Time: " + Time
  73
  74 end sub
  75
  76 sub LoadIncludeFiles
  77     use "global\system\includes\master.inc"
  78     use "global\system\includes\gvariabl.inc"
  79     Call GetUseFiles
  80     gApplication = "WRITER"
  81 end sub