update dev300-m58
[ooovba.git] / testautomation / writer / optional / w_chinesetranslate.bas
blob65fbc3f3c17101841ff225a132c7f3e942fdf0c0
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: w_chinesetranslate.bas,v $
11 '* $Revision: 1.1 $
13 '* last change: $Author: fredrikh $ $Date: 2008-06-18 09:11:25 $
15 '* This file is part of OpenOffice.org.
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.
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).
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.
32 '/************************************************************************
34 '* owner : helge.delfs@sun.com
36 '* short description : Test Chinese Translation
38 '\*******************************************************************
40 sub main
42 Dim StartZeit
43 Dim bAsianLanguage as Boolean
44 Dim DefaultLanguage as String
46 StartZeit = Now()
48 use "writer\tools\includes\w_tools.inc"
49 use "writer\tools\includes\w_tool3.inc"
50 use "writer\optional\includes\tools\tools1.inc"
51 use "writer\optional\includes\tools\tools2.inc"
52 use "writer\optional\includes\chinesetranslate\w_chinesetranslate1.inc"
53 use "writer\optional\includes\chinesetranslate\w_chinesetranslate2.inc"
55 printlog Chr(13) + "Loading of Include - Files takes: " + Wielange ( StartZeit )
56 printlog Chr(13) + "******* Writer - Level 1 - Test *******"
58 Call hStatusIn ( "writer", "w_chinesetranslate.bas" , "Chinese Translation" )
60 printlog Chr(13) + " - Test Chinese Translation"
62 'Enable 'Asian Language support' ON
63 bAsianLanguage = ActiveDeactivateAsianSupport(TRUE)
64 ' Set default language(asian) for document is "Simplified Chinese"
65 DefaultLanguage = fSetAsian(fGetLanguageName(86))
67 printlog Chr(13) + " -- Default setting -- "
69 'Don't need to run this case - tDefaultSetting_1
70 Call tDefaultSetting_1
71 Call tDefaultSetting_2
72 Call tDefaultSetting_3
74 printlog Chr(13) + " -- Standard Function -- "
75 Call tChineseTranslate_1
76 Call tChineseTranslate_2
77 Call tChineseTranslate_3
78 Call tChineseTranslate_4
79 Call tChineseTranslate_5
81 printlog Chr(13) + " -- Chinese Dictionary -- "
82 Call tChineseTranslate_6
83 Call tChineseTranslate_7
84 Call tChineseTranslate_8
85 Call tChineseTranslate_9
86 Call tChineseTranslate_10
87 Call tChineseTranslate_11
89 printlog Chr(13) + " -- Undo/Redo -- "
90 Call tUndoRedo
92 'Set default language(asian) to default
93 Call fSetAsian(DefaultLanguage)
94 'Set the 'Asian Language support' to default
95 if bAsianLanguage = FALSE then
96 Call ActiveDeactivateAsianSupport(FALSE)
97 end if
99 Call hStatusOut
101 Printlog Chr(13) + "End of Level 1 Test - Chinese Conversion"
102 Printlog "Duration: "+ WieLange ( StartZeit )
103 Printlog "Date: " + Date + " Time: " + Time
105 end sub
107 sub LoadIncludeFiles
108 use "global\system\includes\master.inc"
109 use "global\system\includes\gvariabl.inc"
110 Call GetUseFiles
111 gApplication = "WRITER"
112 end Sub