blob: dd01a35228470d1b7f8b13062949009834bc5b3f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
|
'encoding UTF-8 Do not remove or change this line!
'**************************************************************************
' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
'
' Copyright 2000, 2010 Oracle and/or its affiliates.
'
' OpenOffice.org - a multi-platform office productivity suite
'
' 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 : wolfram.garten@sun.com
'*
'* short description :
'*
'************************************************************************************
' #1 tToolsOptionsMeasurementUnit
'\***********************************************************************************
testcase tToolsOptionsMeasurementUnit (sApplication as string)
dim i as integer
dim iCount as integer
dim iCount2 as integer
dim sUnitOptions as string
dim sUnitDialog as string
hNewDocument
sleep 1
ToolsOptions
hToolsOptions (sApplication,"General")
iCount2 = Masseinheit.GetSelIndex
printlog "current measurement unit is: " & iCount2
iCount = Masseinheit.GetItemCount
Kontext "ExtrasOptionenDlg"
ExtrasOptionenDlg.OK
printlog "----------------------"
printlog "Take Measurement Units from Graphics "
printlog "(1) reference from options; (2) BMP export dialog; (3) Format->3D Effects->Geometry"
' In graphics are some more; beside the general one from writer we see large ones: m, km, Miles, foot
for i=1 to iCount
ToolsOptions
hToolsOptions (sApplication,"General")
Masseinheit.select i
sUnitOptions = GetMeasUnit(Tabulatorabstand.getText) ' (1)
printlog "(" + i + "/" + iCount + "): '" + Masseinheit.getSelText + "' - " + sUnitOptions + " (1)"
Kontext "ExtrasOptionenDlg"
ExtrasOptionenDlg.OK
FileExport
Kontext "ExportierenDlg"
Dateiname.SetText "adagio"
Dateityp.Select "BMP - Windows Bitmap (.bmp)"
if AutomatischeDateinamenserweiterung.Exists then
AutomatischeDateinamenserweiterung.Check
else
warnlog( "Automatic Filename Extension checkbox is mising" )
endif
Speichern.Click
kontext "AlienWarning"
if AlienWarning.exists(5) then
warnlog "#i41983# Alien Warning on export not allowed"
AlienWarning.OK
endif
Kontext "Messagebox"
if Messagebox.Exists(2) then
Messagebox.Yes
endif
Sleep 3
Kontext "BMPOptionen"
Groesse.Check
sUnitDialog = getMeasUnit(Breite.getText) ' (2)
if (getMeasUnit(Hoehe.getText) <> sUnitDialog) then
warnlog " Measurement Unit is different for Width:'" + sUnitDialog + "' and Hight:'" + getMeasUnit(Hoehe.getText) + "'"
else
printlog "Measurement Unit is same for Width:'" + sUnitDialog + "' and Hight:'" + getMeasUnit(Hoehe.getText) + "'"
endif
if (sUnitOptions <> sUnitDialog) then
printlog "#109705# Measurement Unit is different for Options:'" + sUnitOptions + "' and BMP Dialog:'" + sUnitDialog + "' (1) <> (2)"
endif
BMPOptionen.Cancel
Format3D_Effects
Kontext "Drei_D_Effekte"
Geometrie.Click
sleep 1
if (getMeasUnit(Tiefe.getText) <> sUnitOptions) then
printlog "#109705# Measurement Unit is different for Options:'" + sUnitOptions + "' and Depth:'" + getMeasUnit(Tiefe.getText) + "' (1) <> (3)"
else
printlog "Measurement Unit is same for Options:'" + sUnitOptions + "' and Depth:'" + getMeasUnit(Tiefe.getText) + "' (3)"
endif
Drei_D_Effekte.close
FormatParagraph
Kontext
Messagebox.SetPage TabEinzuegeUndAbstaende
kontext "TabEinzuegeUndAbstaende"
sleep 1
if (getMeasUnit(Vonlinks.getText) <> sUnitOptions) then
warnlog "#109705# Measurement Unit is different for Options:'" + sUnitOptions + "' and Vonlinks:'" + getMeasUnit(Vonlinks.getText) + "' Paragraph"
else
printlog "Measurement Unit is same for Options:'" + sUnitOptions + "' and Vonlinks:'" + getMeasUnit(Vonlinks.getText) + "' Paragraph"
endif
TabEinzuegeUndAbstaende.cancel
next i
printlog "Setting back measurement to " & iCount2
ToolsOptions
hToolsOptions (sApplication,"General")
Masseinheit.Select(iCount2)
Kontext "ExtrasOptionenDlg"
ExtrasOptionenDlg.OK
hCloseDocument
endcase 'tToolsOptionsMeasurementUnit
|
