1<?xml version="1.0" encoding="UTF-8"?>
2<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
3<script:module xmlns:script="http://openoffice.org/2000/script" script:name="awt_UnoControlCurrencyFieldModel" script:language="StarBasic">
4
5
6'*************************************************************************
7'
8' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
9'
10' Copyright 2000, 2010 Oracle and/or its affiliates.
11'
12' OpenOffice.org - a multi-platform office productivity suite
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
34
35Sub RunTest()
36
37'*************************************************************************
38' SERVICE:
39' com.sun.star.awt.UnoControlCurrencyFieldModel
40'*************************************************************************
41On Error Goto ErrHndl
42    Dim bOK As Boolean
43    Dim newVal, oldVal As Long
44
45
46    PropertyTester.TestProperty("BackgroundColor")
47
48    PropertyTester.TestProperty("Border")
49
50    PropertyTester.TestProperty("CurrencySymbol")
51
52    PropertyTester.TestProperty("DecimalAccuracy")
53
54    PropertyTester.TestProperty("Enabled")
55
56    PropertyTester.TestProperty("FontDescriptor")
57
58    PropertyTester.TestProperty("ShowThousandsSeparator")
59
60    PropertyTester.TestProperty("Printable")
61
62    PropertyTester.TestProperty("ReadOnly")
63
64    PropertyTester.TestProperty("Spin")
65
66    PropertyTester.TestProperty("StrictFormat")
67
68    PropertyTester.TestProperty("Tabstop")
69
70    PropertyTester.TestProperty("TextColor")
71
72    Test.StartMethod("Value")
73    bOK = true
74    oldVal = oObj.Value
75    Out.Log("value before: "+oldVal)
76    if (oldVal &lt;&gt; 999) then
77        oObj.Value = 999
78    else
79        oObj.Value = 1000
80    endif
81    newVal = oObj.Value
82    Out.Log("value after: "+newVal)
83    bOK = bOK AND (newVal &lt;&gt; oldVal)
84    Test.MethodTested("Value",bOK)
85
86    Test.StartMethod("ValueMax")
87    bOK = true
88    oldVal = oObj.ValueMax
89    Out.Log("value before: "+oldVal)
90    if (oldVal &lt;&gt; 1000000) then
91        oObj.ValueMax = 1000000
92    else
93        oObj.ValueMax = 1000001
94    endif
95    newVal = oObj.ValueMax
96    Out.Log("value after: "+newVal)
97    bOK = bOK AND (newVal &lt;&gt; oldVal)
98    Test.MethodTested("ValueMax",bOK)
99
100    Test.StartMethod("ValueMin")
101    bOK = true
102    oldVal = oObj.ValueMin
103    Out.Log("value before: "+oldVal)
104    if (oldVal &lt;&gt; -1000000) then
105        oObj.ValueMin = -1000000
106    else
107        oObj.ValueMin = -1000001
108    endif
109    newVal = oObj.ValueMin
110    Out.Log("value after: "+newVal)
111    bOK = bOK AND (newVal &lt;&gt; oldVal)
112    Test.MethodTested("ValueMin",bOK)
113
114    PropertyTester.TestProperty("ValueStep")
115
116    PropertyTester.TestProperty("HelpText")
117
118    PropertyTester.TestProperty("HelpURL")
119
120    PropertyTester.TestProperty("FontEmphasisMark")
121
122    PropertyTester.TestProperty("FontRelief")
123
124    PropertyTester.TestProperty("PrependCurrencySymbol")
125
126    PropertyTester.TestProperty("TextLineColor")
127
128Exit Sub
129ErrHndl:
130    Test.Exception()
131    bOK = false
132    resume next
133End Sub
134</script:module>
135