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="lng_DicList" 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' Be sure that all variables are dimensioned: 37option explicit 38 39 40' REQUIRED VARIABLES for interface/service tests: 41 42' Required for com.sun.star.lang.XComponent: 43 Global oComponentInstance As Object ' it will be disposed 44 45 46Sub CreateObj() 47 48'************************************************************************* 49' COMPONENT: 50' lng.DicList 51'************************************************************************* 52On Error Goto ErrHndl 53 54 Dim bOK As Boolean 55 Dim oDic As Object 56 Dim oDic2 As Object 57 Dim vLocale As New com.sun.star.lang.Locale 58 59 bOK = true 60 61 vLocale.Language = "en" 62 vLocale.Country = "US" 63 vLocale.Variant = "WIN" 64 65 ' Insert object creation code here... 66 67 oObj = createUnoService("com.sun.star.lingu2.DicList") 68 69 ' creating a user defined dictionary for XSearchableDictionaryList 70 71 oObj.removeDictionary(oObj.getDictionaryByName("MyDictionary")) 72 oDic = oObj.createDictionary("NegativDic",vLocale,_ 73 com.sun.star.linguistic2.DictionaryType.NEGATIVE, "") 74 oDic2 = oObj.createDictionary("PositiveDic",vLocale,_ 75 com.sun.star.linguistic2.DictionaryType.POSITIVE, "") 76 oDic2.add("Positive", false, "") 77 oDic.add("Negative", true, "") 78 oObj.addDictionary(oDic) 79 oObj.addDictionary(oDic2) 80 oDic.setActive(true) 81 oDic2.setActive(true) 82 83 oComponentInstance = oObj 84 85Exit Sub 86ErrHndl: 87 Test.Exception() 88End Sub 89</script:module> 90