1cdf0e10cSrcweir<?xml version="1.0" encoding="UTF-8"?>
2cdf0e10cSrcweir<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
3cdf0e10cSrcweir<script:module xmlns:script="http://openoffice.org/2000/script" script:name="awt_UnoControlDateFieldModel" script:language="StarBasic">
4cdf0e10cSrcweir
5cdf0e10cSrcweir
6cdf0e10cSrcweir'*************************************************************************
7cdf0e10cSrcweir'
8*3e6afcd2SAndrew Rist'  Licensed to the Apache Software Foundation (ASF) under one
9*3e6afcd2SAndrew Rist'  or more contributor license agreements.  See the NOTICE file
10*3e6afcd2SAndrew Rist'  distributed with this work for additional information
11*3e6afcd2SAndrew Rist'  regarding copyright ownership.  The ASF licenses this file
12*3e6afcd2SAndrew Rist'  to you under the Apache License, Version 2.0 (the
13*3e6afcd2SAndrew Rist'  "License"); you may not use this file except in compliance
14*3e6afcd2SAndrew Rist'  with the License.  You may obtain a copy of the License at
15*3e6afcd2SAndrew Rist'
16*3e6afcd2SAndrew Rist'    http://www.apache.org/licenses/LICENSE-2.0
17*3e6afcd2SAndrew Rist'
18*3e6afcd2SAndrew Rist'  Unless required by applicable law or agreed to in writing,
19*3e6afcd2SAndrew Rist'  software distributed under the License is distributed on an
20*3e6afcd2SAndrew Rist'  "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
21*3e6afcd2SAndrew Rist'  KIND, either express or implied.  See the License for the
22*3e6afcd2SAndrew Rist'  specific language governing permissions and limitations
23*3e6afcd2SAndrew Rist'  under the License.
24cdf0e10cSrcweir'
25cdf0e10cSrcweir'*************************************************************************
26cdf0e10cSrcweir
27cdf0e10cSrcweir
28*3e6afcd2SAndrew Rist
29*3e6afcd2SAndrew Rist
30cdf0e10cSrcweirSub RunTest()
31cdf0e10cSrcweir
32cdf0e10cSrcweir'*************************************************************************
33cdf0e10cSrcweir' SERVICE:
34cdf0e10cSrcweir' com.sun.star.awt.UnoControlDateFieldModel
35cdf0e10cSrcweir'*************************************************************************
36cdf0e10cSrcweirOn Error Goto ErrHndl
37cdf0e10cSrcweir    Dim bOK As Boolean
38cdf0e10cSrcweir
39cdf0e10cSrcweir
40cdf0e10cSrcweir    PropertyTester.TestProperty("BackgroundColor")
41cdf0e10cSrcweir
42cdf0e10cSrcweir    PropertyTester.TestProperty("Border")
43cdf0e10cSrcweir
44cdf0e10cSrcweir    PropertyTester.TestProperty("Date")
45cdf0e10cSrcweir
46cdf0e10cSrcweir    PropertyTester.TestProperty("DateMax")
47cdf0e10cSrcweir
48cdf0e10cSrcweir    PropertyTester.TestProperty("DateMin")
49cdf0e10cSrcweir
50cdf0e10cSrcweir    PropertyTester.TestProperty("Enabled")
51cdf0e10cSrcweir
52cdf0e10cSrcweir    PropertyTester.TestProperty("DateFormat")
53cdf0e10cSrcweir
54cdf0e10cSrcweir    PropertyTester.TestProperty("FontDescriptor")
55cdf0e10cSrcweir
56cdf0e10cSrcweir    PropertyTester.TestProperty("Printable")
57cdf0e10cSrcweir
58cdf0e10cSrcweir    PropertyTester.TestProperty("ReadOnly")
59cdf0e10cSrcweir
60cdf0e10cSrcweir    PropertyTester.TestProperty("Spin")
61cdf0e10cSrcweir
62cdf0e10cSrcweir    PropertyTester.TestProperty("StrictFormat")
63cdf0e10cSrcweir
64cdf0e10cSrcweir    PropertyTester.TestProperty("Tabstop")
65cdf0e10cSrcweir
66cdf0e10cSrcweir    PropertyTester.TestProperty("TextColor")
67cdf0e10cSrcweir
68cdf0e10cSrcweir    PropertyTester.TestProperty("HelpText")
69cdf0e10cSrcweir
70cdf0e10cSrcweir    PropertyTester.TestProperty("HelpURL")
71cdf0e10cSrcweir
72cdf0e10cSrcweir	PropertyTester.TestProperty("DateShowCentury")
73cdf0e10cSrcweir
74cdf0e10cSrcweir	PropertyTester.TestProperty("Dropdown")
75cdf0e10cSrcweir
76cdf0e10cSrcweir	PropertyTester.TestProperty("FontEmphasisMark")
77cdf0e10cSrcweir
78cdf0e10cSrcweir	PropertyTester.TestProperty("FontRelief")
79cdf0e10cSrcweir
80cdf0e10cSrcweir	PropertyTester.TestProperty("TextLineColor")
81cdf0e10cSrcweir
82cdf0e10cSrcweirExit Sub
83cdf0e10cSrcweirErrHndl:
84cdf0e10cSrcweir    Test.Exception()
85cdf0e10cSrcweir    bOK = false
86cdf0e10cSrcweir    resume next
87cdf0e10cSrcweirEnd Sub
88cdf0e10cSrcweir</script:module>
89