blob: 37df8f687e4b7f244a0437d61046b1333befc3a8 (
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
|
'encoding UTF-8 Do not remove or change this line!
'**************************************************************************
'* 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: g_dimensions.inc,v $
'*
'* $Revision: 1.1 $
'*
'* last change: $Author: jsi $ $Date: 2008-06-16 10:42: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 : wolfram.garten@sun.com
'*
'* short description :
'*
'***********************************************************************************
'*
' #1 tdFormatDimensioning
'*
'\***********************************************************************************
Sub testFormatDimensioning
call tdFormatDimensioning
End Sub
testcase tdFormatDimensioning
Dim ZaehlerMetrik
Dim i
Call hNewDocument
'/// Set min and max values for dimensioning ///'
FormatDimensioning
Kontext "Bemassung"
LinienDistanz.ToMin
PrintLog LinienDistanz.GetText + " = minimum value"
LinienDistanz.ToMax
PrintLog LinienDistanz.GetText + " = maximum value"
HLUeberhang.ToMin
PrintLog HLUeberhang.GetText + " = minimum value"
HLUeberhang.ToMax
PrintLog HLUeberhang.GetText + " = maximum value"
HLDistanz.ToMin
PrintLog HLDistanz.GetText + " = minimum value"
HLDistanz.ToMax
PrintLog HLDistanz.GetText + " = maximum value"
LinkeHL.ToMin
PrintLog LinkeHL.GetText + " = minimum value"
LinkeHL.ToMax
PrintLog LinkeHL.GetText + " = maximum valuet"
RechteHL.ToMin
PrintLog RechteHL.GetText + " = minimum value"
RechteHL.ToMax
PrintLog RechteHL.GetText + " = maximum value"
'/// set every metric unit ///'
MetrikList.GetItemCount
ZaehlerMetrik=MetrikList.GetItemCount
for i = 1 to ZaehlerMetrik
MetrikList.Select i
PrintLog MetrikList.GetSelText + " set"
next i
'/// check show unit ///'
MetrikAnzeigen.Check
'/// check "below reference edge ///'
AnzeigeUnterhalb.Check
'/// check parallel ///'
AnzeigeParallel.Check
'/// check automatic vertical ///'
AutomatischHorizontal.Check
'/// check automatic horizontal ///'
AutomatischVertikal.Check
sleep 2
Bemassung.OK
'/// control value changes and checkbox states ///'
FormatDimensioning
Kontext "Bemassung"
MetrikAnzeigen.GetState
AnzeigeUnterhalb.GetState
AnzeigeParallel.GetState
AutomatischHorizontal.GetState
AutomatischVertikal.GetState
if MetrikAnzeigen.GetState = 1 Then
PrintLog " show metric works"
else
WarnLog " show metric does not work"
end if
if AnzeigeUnterhalb.GetState= 1 Then
PrintLog " AnzeigeUnterhalb does work"
else
WarnLog " TriStateBox AnzeigeUnterhalb does not work"
end if
if AnzeigeParallel.GetState= 1 Then
PrintLog " AnzeigeParallel does work"
else
WarnLog " TriStateBox AnzeigeParallel does not work properly"
end if
Bemassung.OK
Call hCloseDocument
endcase
|
