diff options
| author | Ivo Hinkelmann <ihi@openoffice.org> | 2009-11-23 16:33:39 +0000 |
|---|---|---|
| committer | Ivo Hinkelmann <ihi@openoffice.org> | 2009-11-23 16:33:39 +0000 |
| commit | 7d8ad2213bcd3caa2cc4bbf02695933d534fd028 (patch) | |
| tree | 45f78333bcb68b32f012c4b552249494d99f0f3c /testautomation/writer/tools | |
| parent | CWS-TOOLING: integrate CWS cmcfixes64 (diff) | |
| download | core-7d8ad2213bcd3caa2cc4bbf02695933d534fd028.tar.gz core-7d8ad2213bcd3caa2cc4bbf02695933d534fd028.zip | |
CWS-TOOLING: integrate CWS fwk125
2009-11-19 08:11:20 +0100 jsk r277554 : fwk125: #i105760# - removed warnlog, re-enabled autotest e_help.bas
2009-11-16 16:21:49 +0100 tl r277521 : #i106571# fixed locale list for dictionaries to get rid of duplicate entries
2009-11-12 08:47:31 +0100 hde r277469 : rework of hyphenation
2009-11-11 15:25:16 +0100 hde r277462 : rework of hyphenation
2009-11-11 15:24:09 +0100 hde r277461 : rework of hyphenation
2009-11-11 13:52:02 +0100 hde r277453 : new include for hyphenation tools
2009-11-10 12:28:51 +0100 tl r277427 : #i102304# fix for hyphenation dialog
2009-11-10 12:00:10 +0100 mav r277425 : #i10000# A workaround for pch and windows headers conflict
2009-11-10 11:58:32 +0100 mav r277424 : #i10000# A workaround for pch and windows headers conflict
2009-11-09 15:47:59 +0100 kso r277414 : #i16732# fixed url matching.
2009-11-09 11:51:40 +0100 mav r277406 : #i10000# use precompiled headers
2009-11-08 23:53:03 +0100 mav r277399 : #i10000# fix warning
2009-11-08 23:50:23 +0100 mav r277398 : #i10000# adapt for unix
2009-11-08 23:49:52 +0100 mav r277397 : #i10000# adapt for unix
2009-11-08 21:26:06 +0100 mav r277396 : CWS-TOOLING: rebase CWS fwk125 to branches/OOO320@277373 (milestone: OOO320:m4)
2009-11-06 16:30:27 +0100 ab r277394 : #i106100# Hold references to packages to speed up further calls to getDeployedPackages()
2009-11-06 15:58:48 +0100 mav r277392 : #i102464# check the Windows ACL
2009-11-06 15:58:23 +0100 mav r277391 : #i102464# check the Windows ACL
2009-11-04 11:54:06 +0100 tl r277342 : #i106497# incorrectly found 'supported languages' fixed
2009-11-04 10:40:51 +0100 tl r277335 : #i106571# dictionary updates for Polish and Swedish.
2009-10-28 09:54:41 +0100 tl r277236 : #i106100# context menu performance
2009-10-27 15:47:05 +0100 tl r277213 : #i106100# context menu performance
2009-10-23 17:31:56 +0200 mav r277170 : #i106075# use correct path to inprocserv.dll
2009-10-23 16:07:27 +0200 mav r277168 : #i105760# seek the temporary file to beginning also for URL case
2009-10-23 11:03:58 +0200 mav r277134 : CWS-TOOLING: rebase CWS fwk125 to branches/OOO320@276942 (milestone: OOO320:m2)
Diffstat (limited to 'testautomation/writer/tools')
| -rw-r--r-- | testautomation/writer/tools/includes/w_tools_hyphenation.inc | 85 |
1 files changed, 85 insertions, 0 deletions
diff --git a/testautomation/writer/tools/includes/w_tools_hyphenation.inc b/testautomation/writer/tools/includes/w_tools_hyphenation.inc new file mode 100644 index 000000000000..c49c07a7f3f2 --- /dev/null +++ b/testautomation/writer/tools/includes/w_tools_hyphenation.inc @@ -0,0 +1,85 @@ +'************************************************************************** +'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +'* +'* Copyright 2008 by Sun Microsystems, Inc. +'* +'* OpenOffice.org - a multi-platform office productivity suite +'* +'* $RCSfile: w_tools_hyphenation.inc,v $ +'* +'* $Revision: 1.2 $ +'* +'* last change: $Author: vg $ $Date: 2008-08-18 12:43:40 $ +'* +'* This file is part of OpenOffice.org. +'* +'* OpenOffice.org is free software: you can redistribute it and/or modify +'* it under the terms of the GNU Lesser General Public License version 3 +'* only, as published by the Free Software Foundation. +'* +'* OpenOffice.org is distributed in the hope that it will be useful, +'* but WITHOUT ANY WARRANTY; without even the implied warranty of +'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +'* GNU Lesser General Public License version 3 for more details +'* (a copy is included in the LICENSE file that accompanied this code). +'* +'* You should have received a copy of the GNU Lesser General Public License +'* version 3 along with OpenOffice.org. If not, see +'* <http://www.openoffice.org/license.html> +'* for a copy of the LGPLv3 License. +'* +'/****************************************************************** +'* ** +'* owner : helge.delfs@sun.com ** +'* ** +'* short description : Misc tools for writer hyphenation tests ** +'* ** +'\****************************************************************** + + + +function fPrepareHyphenationDocument(testWord as string) + + Dim SpaceTickCount as integer + + SpaceTickCount = 1 + Do + Call wTypeKeys "<Mod1 Home>" + Call wTypeKeys "<Down>" + Call wTypeKeys "<Mod1 Shift Right>" + try + EditCopy + catch + endcatch + if trim(GetClipboardText) <> testWord then + EditSearchAndReplace + Kontext "FindAndReplace" + SearchFor.SetText testWord + SearchNow.Click + Kontext "Active" + if Active.Exists then + if Active.GetRT = 304 then + try + active.Yes + catch + Warnlog Active.Gettext + Active.ok + endcatch + end if + end if + Kontext "FindAndReplace" + FindAndReplace.Close + Call wTypeKeys "<Mod1 Left>" + Call wTypeKeys "<Space>" + inc SpaceTickCount + if SpaceTickCount >= 30 then + fPrepareHyphenationDocument = false + exit do + end if + else + fPrepareHyphenationDocument = true + exit do + end if + Loop + +end function |