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_UnoControlNumericFieldModel" 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
35
36
37
38
39Sub RunTest()
40
41'*************************************************************************
42' SERVICE:
43' com.sun.star.awt.UnoControlNumericFieldModel
44'*************************************************************************
45On Error Goto ErrHndl
46    Dim bOK As Boolean
47    Dim newVal, oldVal As Long
48
49    PropertyTester.TestProperty("BackgroundColor")
50
51    PropertyTester.TestProperty("Border")
52
53    PropertyTester.TestProperty("DecimalAccuracy")
54
55    PropertyTester.TestProperty("Enabled")
56
57    PropertyTester.TestProperty("FontDescriptor")
58
59    PropertyTester.TestProperty("ShowThousandsSeparator")
60
61    PropertyTester.TestProperty("Printable")
62
63    PropertyTester.TestProperty("ReadOnly")
64
65    PropertyTester.TestProperty("Spin")
66
67    PropertyTester.TestProperty("StrictFormat")
68
69    PropertyTester.TestProperty("Tabstop")
70
71    PropertyTester.TestProperty("TextColor")
72
73    Test.StartMethod("Value")
74    bOK = true
75    oldVal = oObj.Value
76    Out.Log("value before: "+oldVal)
77    if (oldVal &lt;&gt; 999) then
78        oObj.Value = 999
79    else
80        oObj.Value = 1000
81    endif
82    newVal = oObj.Value
83    Out.Log("value after: "+newVal)
84    bOK = bOK AND (newVal &lt;&gt; oldVal)
85    Test.MethodTested("Value",bOK)
86
87    Test.StartMethod("ValueMax")
88    bOK = true
89    oldVal = oObj.ValueMax
90    Out.Log("value before: "+oldVal)
91    if (oldVal &lt;&gt; 10000) then
92        oObj.ValueMax = 10000
93    else
94        oObj.ValueMax = 10001
95    endif
96    newVal = oObj.ValueMax
97    Out.Log("value after: "+newVal)
98    bOK = bOK AND (newVal &lt;&gt; oldVal)
99    Test.MethodTested("ValueMax",bOK)
100
101    Test.StartMethod("ValueMin")
102    bOK = true
103    oldVal = oObj.ValueMin
104    Out.Log("value before: "+oldVal)
105    if (oldVal &lt;&gt; -10000) then
106        oObj.ValueMin = -10000
107    else
108        oObj.ValueMin = -10001
109    endif
110    newVal = oObj.ValueMin
111    Out.Log("value after: "+newVal)
112    bOK = bOK AND (newVal &lt;&gt; oldVal)
113    Test.MethodTested("ValueMin",bOK)
114
115    PropertyTester.TestProperty("ValueStep")
116
117    PropertyTester.TestProperty("HelpText")
118
119    PropertyTester.TestProperty("HelpURL")
120
121    PropertyTester.TestProperty("FontEmphasisMark")
122
123    PropertyTester.TestProperty("FontRelief")
124
125    PropertyTester.TestProperty("TextLineColor")
126
127Exit Sub
128ErrHndl:
129    Test.Exception()
130    bOK = false
131    resume next
132End Sub
133</script:module>
134