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
38Sub RunTest()
39
40'*************************************************************************
41' SERVICE:
42' com.sun.star.awt.UnoControlNumericFieldModel
43'*************************************************************************
44On Error Goto ErrHndl
45    Dim bOK As Boolean
46    Dim newVal, oldVal As Long
47
48    PropertyTester.TestProperty("BackgroundColor")
49
50    PropertyTester.TestProperty("Border")
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; 10000) then
91        oObj.ValueMax = 10000
92    else
93        oObj.ValueMax = 10001
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; -10000) then
105        oObj.ValueMin = -10000
106    else
107        oObj.ValueMin = -10001
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("TextLineColor")
125
126Exit Sub
127ErrHndl:
128    Test.Exception()
129    bOK = false
130    resume next
131End Sub
132</script:module>
133