diff options
Diffstat (limited to 'qadevOOo/tests/basic/ifc/awt')
100 files changed, 5837 insertions, 0 deletions
diff --git a/qadevOOo/tests/basic/ifc/awt/UnoControlButtonModel/awt_UnoControlButtonModel.xba b/qadevOOo/tests/basic/ifc/awt/UnoControlButtonModel/awt_UnoControlButtonModel.xba new file mode 100644 index 000000000000..d55c0adca69a --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/UnoControlButtonModel/awt_UnoControlButtonModel.xba @@ -0,0 +1,84 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="awt_UnoControlButtonModel" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + +Sub RunTest() + +'************************************************************************* +' SERVICE: +' com.sun.star.awt.UnoControlButtonModel +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + + PropertyTester.TestProperty("BackgroundColor") + + PropertyTester.TestProperty("DefaultButton") + + PropertyTester.TestProperty("Enabled") + + PropertyTester.TestProperty("FontDescriptor") + + PropertyTester.TestProperty("Label") + + PropertyTester.TestProperty("Printable") + + PropertyTester.TestProperty("Tabstop") + + PropertyTester.TestProperty("TextColor") + + PropertyTester.TestProperty("HelpText") + + PropertyTester.TestProperty("HelpURL") + + PropertyTester.TestProperty("PushButtonType", Array(0,1,2,3)) + + PropertyTester.TestProperty("FontEmphasisMark") + + PropertyTester.TestProperty("FontRelief") + + PropertyTester.TestProperty("ImageAlign") + + PropertyTester.TestProperty("ImageURL") + + PropertyTester.TestProperty("State") + + PropertyTester.TestProperty("TextLineColor") + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/awt/UnoControlButtonModel/script.xlb b/qadevOOo/tests/basic/ifc/awt/UnoControlButtonModel/script.xlb new file mode 100644 index 000000000000..575dc0d406db --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/UnoControlButtonModel/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="awt_UnoControlButtonModel" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="awt_UnoControlButtonModel"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/awt/UnoControlCheckBoxModel/awt_UnoControlCheckBoxModel.xba b/qadevOOo/tests/basic/ifc/awt/UnoControlCheckBoxModel/awt_UnoControlCheckBoxModel.xba new file mode 100644 index 000000000000..779c47611918 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/UnoControlCheckBoxModel/awt_UnoControlCheckBoxModel.xba @@ -0,0 +1,80 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="awt_UnoControlCheckBoxModel" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + + + +Sub RunTest() + +'************************************************************************* +' SERVICE: +' com.sun.star.awt.UnoControlCheckBoxModel +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + + PropertyTester.TestProperty("Enabled") + + PropertyTester.TestProperty("FontDescriptor") + + PropertyTester.TestProperty("Label") + + PropertyTester.TestProperty("Printable") + + PropertyTester.TestProperty("State", Array(0, 1, 2)) + + PropertyTester.TestProperty("Tabstop") + + PropertyTester.TestProperty("TextColor") + + PropertyTester.TestProperty("TriState") + + PropertyTester.TestProperty("HelpText") + + PropertyTester.TestProperty("HelpURL") + + PropertyTester.TestProperty("FontEmphasisMark") + + PropertyTester.TestProperty("FontRelief") + + PropertyTester.TestProperty("TextLineColor") + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/awt/UnoControlCheckBoxModel/script.xlb b/qadevOOo/tests/basic/ifc/awt/UnoControlCheckBoxModel/script.xlb new file mode 100644 index 000000000000..bb8edace5f96 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/UnoControlCheckBoxModel/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="awt_UnoControlCheckBoxModel" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="awt_UnoControlCheckBoxModel"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/awt/UnoControlComboBoxModel/awt_UnoControlComboBoxModel.xba b/qadevOOo/tests/basic/ifc/awt/UnoControlComboBoxModel/awt_UnoControlComboBoxModel.xba new file mode 100644 index 000000000000..781b03931675 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/UnoControlComboBoxModel/awt_UnoControlComboBoxModel.xba @@ -0,0 +1,95 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="awt_UnoControlComboBoxModel" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + + +Sub RunTest() + +'************************************************************************* +' SERVICE: +' com.sun.star.awt.UnoControlComboBoxModel +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + PropertyTester.TestProperty("Autocomplete") + + PropertyTester.TestProperty("BackgroundColor") + + PropertyTester.TestProperty("Border") + + PropertyTester.TestProperty("Dropdown") + + PropertyTester.TestProperty("Enabled") + + PropertyTester.TestProperty("FontDescriptor") + + PropertyTester.TestProperty("LineCount") + + PropertyTester.TestProperty("MaxTextLen") + + PropertyTester.TestProperty("Printable") + + PropertyTester.TestProperty("ReadOnly") + + PropertyTester.TestProperty("StringItemList") + + PropertyTester.TestProperty("Tabstop") + + PropertyTester.TestProperty("Text") + + PropertyTester.TestProperty("TextColor") + + PropertyTester.TestProperty("HelpText") + + PropertyTester.TestProperty("HelpURL") + + + PropertyTester.TestProperty("FontEmphasisMark") + + PropertyTester.TestProperty("FontRelief") + + PropertyTester.TestProperty("TextLineColor") + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/awt/UnoControlComboBoxModel/script.xlb b/qadevOOo/tests/basic/ifc/awt/UnoControlComboBoxModel/script.xlb new file mode 100644 index 000000000000..042089bbce64 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/UnoControlComboBoxModel/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="awt_UnoControlComboBoxModel" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="awt_UnoControlComboBoxModel"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/awt/UnoControlContainerModel/awt_UnoControlContainerModel.xba b/qadevOOo/tests/basic/ifc/awt/UnoControlContainerModel/awt_UnoControlContainerModel.xba new file mode 100644 index 000000000000..6c313fbc79c9 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/UnoControlContainerModel/awt_UnoControlContainerModel.xba @@ -0,0 +1,65 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="awt_UnoControlContainerModel" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + +Sub RunTest() + +'************************************************************************* +' SERVICE: +' com.sun.star.awt.UnoControlContainerModel +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + + PropertyTester.TestProperty("BackgroundColor") + + PropertyTester.TestProperty("Enabled") + + PropertyTester.TestProperty("Border") + + PropertyTester.TestProperty("Printable") + + PropertyTester.TestProperty("Text") + + PropertyTester.TestProperty("HelpText") + + PropertyTester.TestProperty("HelpURL") + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/awt/UnoControlContainerModel/script.xlb b/qadevOOo/tests/basic/ifc/awt/UnoControlContainerModel/script.xlb new file mode 100644 index 000000000000..9cf1130d81fd --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/UnoControlContainerModel/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="awt_UnoControlContainerModel" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="awt_UnoControlContainerModel"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/awt/UnoControlCurrencyFieldModel/awt_UnoControlCurrencyFieldModel.xba b/qadevOOo/tests/basic/ifc/awt/UnoControlCurrencyFieldModel/awt_UnoControlCurrencyFieldModel.xba new file mode 100644 index 000000000000..929b2f044ea2 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/UnoControlCurrencyFieldModel/awt_UnoControlCurrencyFieldModel.xba @@ -0,0 +1,134 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="awt_UnoControlCurrencyFieldModel" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + +Sub RunTest() + +'************************************************************************* +' SERVICE: +' com.sun.star.awt.UnoControlCurrencyFieldModel +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim newVal, oldVal As Long + + + PropertyTester.TestProperty("BackgroundColor") + + PropertyTester.TestProperty("Border") + + PropertyTester.TestProperty("CurrencySymbol") + + PropertyTester.TestProperty("DecimalAccuracy") + + PropertyTester.TestProperty("Enabled") + + PropertyTester.TestProperty("FontDescriptor") + + PropertyTester.TestProperty("ShowThousandsSeparator") + + PropertyTester.TestProperty("Printable") + + PropertyTester.TestProperty("ReadOnly") + + PropertyTester.TestProperty("Spin") + + PropertyTester.TestProperty("StrictFormat") + + PropertyTester.TestProperty("Tabstop") + + PropertyTester.TestProperty("TextColor") + + Test.StartMethod("Value") + bOK = true + oldVal = oObj.Value + Out.Log("value before: "+oldVal) + if (oldVal <> 999) then + oObj.Value = 999 + else + oObj.Value = 1000 + endif + newVal = oObj.Value + Out.Log("value after: "+newVal) + bOK = bOK AND (newVal <> oldVal) + Test.MethodTested("Value",bOK) + + Test.StartMethod("ValueMax") + bOK = true + oldVal = oObj.ValueMax + Out.Log("value before: "+oldVal) + if (oldVal <> 1000000) then + oObj.ValueMax = 1000000 + else + oObj.ValueMax = 1000001 + endif + newVal = oObj.ValueMax + Out.Log("value after: "+newVal) + bOK = bOK AND (newVal <> oldVal) + Test.MethodTested("ValueMax",bOK) + + Test.StartMethod("ValueMin") + bOK = true + oldVal = oObj.ValueMin + Out.Log("value before: "+oldVal) + if (oldVal <> -1000000) then + oObj.ValueMin = -1000000 + else + oObj.ValueMin = -1000001 + endif + newVal = oObj.ValueMin + Out.Log("value after: "+newVal) + bOK = bOK AND (newVal <> oldVal) + Test.MethodTested("ValueMin",bOK) + + PropertyTester.TestProperty("ValueStep") + + PropertyTester.TestProperty("HelpText") + + PropertyTester.TestProperty("HelpURL") + + PropertyTester.TestProperty("FontEmphasisMark") + + PropertyTester.TestProperty("FontRelief") + + PropertyTester.TestProperty("PrependCurrencySymbol") + + PropertyTester.TestProperty("TextLineColor") + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/awt/UnoControlCurrencyFieldModel/script.xlb b/qadevOOo/tests/basic/ifc/awt/UnoControlCurrencyFieldModel/script.xlb new file mode 100644 index 000000000000..5c30de64c3d9 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/UnoControlCurrencyFieldModel/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="awt_UnoControlCurrencyFieldModel" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="awt_UnoControlCurrencyFieldModel"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/awt/UnoControlDateFieldModel/awt_UnoControlDateFieldModel.xba b/qadevOOo/tests/basic/ifc/awt/UnoControlDateFieldModel/awt_UnoControlDateFieldModel.xba new file mode 100644 index 000000000000..f4ce19b0c3c3 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/UnoControlDateFieldModel/awt_UnoControlDateFieldModel.xba @@ -0,0 +1,93 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="awt_UnoControlDateFieldModel" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + +Sub RunTest() + +'************************************************************************* +' SERVICE: +' com.sun.star.awt.UnoControlDateFieldModel +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + + PropertyTester.TestProperty("BackgroundColor") + + PropertyTester.TestProperty("Border") + + PropertyTester.TestProperty("Date") + + PropertyTester.TestProperty("DateMax") + + PropertyTester.TestProperty("DateMin") + + PropertyTester.TestProperty("Enabled") + + PropertyTester.TestProperty("DateFormat") + + PropertyTester.TestProperty("FontDescriptor") + + PropertyTester.TestProperty("Printable") + + PropertyTester.TestProperty("ReadOnly") + + PropertyTester.TestProperty("Spin") + + PropertyTester.TestProperty("StrictFormat") + + PropertyTester.TestProperty("Tabstop") + + PropertyTester.TestProperty("TextColor") + + PropertyTester.TestProperty("HelpText") + + PropertyTester.TestProperty("HelpURL") + + PropertyTester.TestProperty("DateShowCentury") + + PropertyTester.TestProperty("Dropdown") + + PropertyTester.TestProperty("FontEmphasisMark") + + PropertyTester.TestProperty("FontRelief") + + PropertyTester.TestProperty("TextLineColor") + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/awt/UnoControlDateFieldModel/script.xlb b/qadevOOo/tests/basic/ifc/awt/UnoControlDateFieldModel/script.xlb new file mode 100644 index 000000000000..e6df7c36ad13 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/UnoControlDateFieldModel/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="awt_UnoControlDateFieldModel" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="awt_UnoControlDateFieldModel"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/awt/UnoControlDialogElement/awt_UnoControlDialogElement.xba b/qadevOOo/tests/basic/ifc/awt/UnoControlDialogElement/awt_UnoControlDialogElement.xba new file mode 100644 index 000000000000..e43f59078e63 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/UnoControlDialogElement/awt_UnoControlDialogElement.xba @@ -0,0 +1,66 @@ +<?xml version="1.0" encoding="UTF-8"?> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="awt_UnoControlDialogElement" script:language="StarBasic"> + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + +' Be sure that all variables are dimensioned: +option explicit + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.awt.UnoControlDialogElement +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + PropertyTester.TestProperty("Height") + + PropertyTester.TestProperty("Name") + + PropertyTester.TestProperty("PositionX") + + PropertyTester.TestProperty("PositionY") + + PropertyTester.TestProperty("Step") + + PropertyTester.TestProperty("TabIndex") + + PropertyTester.TestProperty("Tag") + + PropertyTester.TestProperty("Width") + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/awt/UnoControlDialogElement/script.xlb b/qadevOOo/tests/basic/ifc/awt/UnoControlDialogElement/script.xlb new file mode 100644 index 000000000000..89e4478a99ea --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/UnoControlDialogElement/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> + <library:library xmlns:library="http://openoffice.org/2000/library" library:name="awt_UnoControlDialogElement" library:readonly="false" library:passwordprotected="false"> + <library:element library:name="awt_UnoControlDialogElement"/> + </library:library> diff --git a/qadevOOo/tests/basic/ifc/awt/UnoControlDialogModel/awt_UnoControlDialogModel.xba b/qadevOOo/tests/basic/ifc/awt/UnoControlDialogModel/awt_UnoControlDialogModel.xba new file mode 100644 index 000000000000..803bb0f589fa --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/UnoControlDialogModel/awt_UnoControlDialogModel.xba @@ -0,0 +1,82 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="awt_UnoControlDialogModel" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + + +Sub RunTest() + +'************************************************************************* +' SERVICE: +' com.sun.star.awt.UnoControlDialogModel +'************************************************************************* +On Error Goto ErrHndl + + + PropertyTester.TestProperty("BackgroundColor") + + PropertyTester.TestProperty("Enabled") + + PropertyTester.TestProperty("FontDescriptor") + + PropertyTester.TestProperty("Title") + + PropertyTester.TestProperty("TextColor") + + PropertyTester.TestProperty("Sizeable") + + PropertyTester.TestProperty("Closeable") + + PropertyTester.TestProperty("FontEmphasisMark") + + PropertyTester.TestProperty("FontRelief") + + PropertyTester.TestProperty("HelpText") + + PropertyTester.TestProperty("HelpURL") + + PropertyTester.TestProperty("Moveable") + + PropertyTester.TestProperty("TextLineColor") + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/awt/UnoControlDialogModel/script.xlb b/qadevOOo/tests/basic/ifc/awt/UnoControlDialogModel/script.xlb new file mode 100644 index 000000000000..2620497dbca1 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/UnoControlDialogModel/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="awt_UnoControlDialogModel" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="awt_UnoControlDialogModel"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/awt/UnoControlEditModel/awt_UnoControlEditModel.xba b/qadevOOo/tests/basic/ifc/awt/UnoControlEditModel/awt_UnoControlEditModel.xba new file mode 100644 index 000000000000..8b8897e24304 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/UnoControlEditModel/awt_UnoControlEditModel.xba @@ -0,0 +1,96 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="awt_UnoControlEditModel" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + + + +Sub RunTest() + +'************************************************************************* +' SERVICE: +' com.sun.star.awt.UnoControlEditModel +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + + PropertyTester.TestProperty("Align") + + PropertyTester.TestProperty("BackgroundColor") + + PropertyTester.TestProperty("Border") + + PropertyTester.TestProperty("EchoChar") + + PropertyTester.TestProperty("Enabled") + + PropertyTester.TestProperty("FontDescriptor") + + PropertyTester.TestProperty("HardLineBreaks") + + PropertyTester.TestProperty("HScroll") + + PropertyTester.TestProperty("MaxTextLen") + + PropertyTester.TestProperty("MultiLine") + + PropertyTester.TestProperty("Printable") + + PropertyTester.TestProperty("ReadOnly") + + PropertyTester.TestProperty("Tabstop") + + PropertyTester.TestProperty("Text") + + PropertyTester.TestProperty("TextColor") + + PropertyTester.TestProperty("VScroll") + + PropertyTester.TestProperty("HelpText") + + PropertyTester.TestProperty("HelpURL") + + PropertyTester.TestProperty("FontEmphasisMark") + + PropertyTester.TestProperty("FontRelief") + + PropertyTester.TestProperty("TextLineColor") + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/awt/UnoControlEditModel/script.xlb b/qadevOOo/tests/basic/ifc/awt/UnoControlEditModel/script.xlb new file mode 100644 index 000000000000..2d5fed3dde2a --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/UnoControlEditModel/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="awt_UnoControlEditModel" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="awt_UnoControlEditModel"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/awt/UnoControlFileControlModel/awt_UnoControlFileControlModel.xba b/qadevOOo/tests/basic/ifc/awt/UnoControlFileControlModel/awt_UnoControlFileControlModel.xba new file mode 100644 index 000000000000..e1503c8db41b --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/UnoControlFileControlModel/awt_UnoControlFileControlModel.xba @@ -0,0 +1,82 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="awt_UnoControlFileControlModel" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + + + +Sub RunTest() + +'************************************************************************* +' SERVICE: +' com.sun.star.awt.UnoControlFileControlModel +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + + PropertyTester.TestProperty("BackgroundColor") + + PropertyTester.TestProperty("Border") + + PropertyTester.TestProperty("Enabled") + + PropertyTester.TestProperty("FontDescriptor") + + PropertyTester.TestProperty("FontEmphasisMark") + + PropertyTester.TestProperty("FontRelief") + + PropertyTester.TestProperty("Printable") + + PropertyTester.TestProperty("Tabstop") + + PropertyTester.TestProperty("Text") + + PropertyTester.TestProperty("TextColor") + + PropertyTester.TestProperty("TextLineColor") + + PropertyTester.TestProperty("HelpText") + + PropertyTester.TestProperty("HelpURL") + + PropertyTester.TestProperty("ReadOnly") + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/awt/UnoControlFileControlModel/script.xlb b/qadevOOo/tests/basic/ifc/awt/UnoControlFileControlModel/script.xlb new file mode 100644 index 000000000000..6a8d0cd06aa6 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/UnoControlFileControlModel/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="awt_UnoControlFileControlModel" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="awt_UnoControlFileControlModel"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/awt/UnoControlFixedLineModel/awt_UnoControlFixedLineModel.xba b/qadevOOo/tests/basic/ifc/awt/UnoControlFixedLineModel/awt_UnoControlFixedLineModel.xba new file mode 100644 index 000000000000..06143238c33c --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/UnoControlFixedLineModel/awt_UnoControlFixedLineModel.xba @@ -0,0 +1,78 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="awt_UnoControlFixedLineModel" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + + +Sub RunTest() + +'************************************************************************* +' SERVICE: +' com.sun.star.awt.UnoControlFixedLineModel +'************************************************************************* +On Error Goto ErrHndl + + + PropertyTester.TestProperty("Enabled") + + PropertyTester.TestProperty("FontDescriptor") + + PropertyTester.TestProperty("HelpText") + + PropertyTester.TestProperty("HelpURL") + + PropertyTester.TestProperty("Label") + + PropertyTester.TestProperty("Orientation") + + PropertyTester.TestProperty("Printable") + + PropertyTester.TestProperty("TextColor") + + PropertyTester.TestProperty("FontEmphasisMark") + + PropertyTester.TestProperty("FontRelief") + + PropertyTester.TestProperty("TextLineColor") + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/awt/UnoControlFixedLineModel/script.xlb b/qadevOOo/tests/basic/ifc/awt/UnoControlFixedLineModel/script.xlb new file mode 100644 index 000000000000..8a4820d1748c --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/UnoControlFixedLineModel/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="awt_UnoControlFixedLineModel" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="awt_UnoControlFixedLineModel"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/awt/UnoControlFixedTextModel/awt_UnoControlFixedTextModel.xba b/qadevOOo/tests/basic/ifc/awt/UnoControlFixedTextModel/awt_UnoControlFixedTextModel.xba new file mode 100644 index 000000000000..a6266d0f68cd --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/UnoControlFixedTextModel/awt_UnoControlFixedTextModel.xba @@ -0,0 +1,82 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="awt_UnoControlFixedTextModel" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + + + +Sub RunTest() + +'************************************************************************* +' SERVICE: +' com.sun.star.awt.UnoControlFixedTextModel +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + + PropertyTester.TestProperty("Align") + + PropertyTester.TestProperty("BackgroundColor") + + PropertyTester.TestProperty("Border") + + PropertyTester.TestProperty("Enabled") + + PropertyTester.TestProperty("FontDescriptor") + + PropertyTester.TestProperty("Label") + + PropertyTester.TestProperty("MultiLine") + + PropertyTester.TestProperty("Printable") + + PropertyTester.TestProperty("TextColor") + + PropertyTester.TestProperty("HelpText") + + PropertyTester.TestProperty("HelpURL") + + PropertyTester.TestProperty("FontEmphasisMark") + + PropertyTester.TestProperty("FontRelief") + + PropertyTester.TestProperty("TextLineColor") + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/awt/UnoControlFixedTextModel/script.xlb b/qadevOOo/tests/basic/ifc/awt/UnoControlFixedTextModel/script.xlb new file mode 100644 index 000000000000..1afae23f637f --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/UnoControlFixedTextModel/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="awt_UnoControlFixedTextModel" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="awt_UnoControlFixedTextModel"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/awt/UnoControlFormattedFieldModel/awt_UnoControlFormattedFieldModel.xba b/qadevOOo/tests/basic/ifc/awt/UnoControlFormattedFieldModel/awt_UnoControlFormattedFieldModel.xba new file mode 100644 index 000000000000..13123db2711c --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/UnoControlFormattedFieldModel/awt_UnoControlFormattedFieldModel.xba @@ -0,0 +1,141 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="awt_UnoControlFormattedFieldModel" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + + + +Sub RunTest() + +'************************************************************************* +' SERVICE: +' com.sun.star.awt.UnoControlFormattedFieldModel +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim newVal, oldVal As Long + + PropertyTester.TestProperty("Align") + + PropertyTester.TestProperty("BackgroundColor") + + PropertyTester.TestProperty("Border") + + PropertyTester.TestProperty("EffectiveDefault") + + Test.StartMethod("EffectiveValue") + bOK = true + oldVal = oObj.EffectiveValue + Out.Log("value before: "+oldVal) + if (oldVal <> 9999) then + oObj.EffectiveValue = 9999 + else + oObj.EffectiveValue = 10000 + endif + newVal = oObj.EffectiveValue + Out.Log("value after: "+newVal) + bOK = bOK AND (newVal <> oldVal) + Test.MethodTested("EffectiveValue",bOK) + + Test.StartMethod("EffectiveMax") + bOK = true + oldVal = oObj.EffectiveMax + Out.Log("value before: "+oldVal) + if (oldVal <> 100000) then + oObj.EffectiveMax = 100000 + else + oObj.EffectiveMax = 100001 + endif + newVal = oObj.EffectiveMax + Out.Log("value after: "+newVal) + bOK = bOK AND (newVal <> oldVal) + Test.MethodTested("EffectiveMax",bOK) + + Test.StartMethod("EffectiveMin") + bOK = true + oldVal = oObj.EffectiveMin + Out.Log("value before: "+oldVal) + if (oldVal <> -100000) then + oObj.EffectiveMin = -100000 + else + oObj.EffectiveMin = -100001 + endif + newVal = oObj.EffectiveMin + Out.Log("value after: "+newVal) + bOK = bOK AND (newVal <> oldVal) + Test.MethodTested("EffectiveMin",bOK) + + + PropertyTester.TestProperty("Enabled") + + PropertyTester.TestProperty("FontDescriptor") + + PropertyTester.TestProperty("FormatKey") + + PropertyTester.TestProperty("FormatsSupplier") + + PropertyTester.TestProperty("MaxTextLen") + + PropertyTester.TestProperty("Printable") + + PropertyTester.TestProperty("ReadOnly") + + PropertyTester.TestProperty("Spin") + + PropertyTester.TestProperty("StrictFormat") + + PropertyTester.TestProperty("Tabstop") + + PropertyTester.TestProperty("Text") + + PropertyTester.TestProperty("TextColor") + + PropertyTester.TestProperty("HelpText") + + PropertyTester.TestProperty("HelpURL") + + PropertyTester.TestProperty("FontEmphasisMark") + + PropertyTester.TestProperty("FontRelief") + + PropertyTester.TestProperty("TextLineColor") + + PropertyTester.TestProperty("TreatAsNumber") + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/awt/UnoControlFormattedFieldModel/script.xlb b/qadevOOo/tests/basic/ifc/awt/UnoControlFormattedFieldModel/script.xlb new file mode 100644 index 000000000000..323535b485e2 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/UnoControlFormattedFieldModel/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="awt_UnoControlFormattedFieldModel" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="awt_UnoControlFormattedFieldModel"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/awt/UnoControlGroupBoxModel/awt_UnoControlGroupBoxModel.xba b/qadevOOo/tests/basic/ifc/awt/UnoControlGroupBoxModel/awt_UnoControlGroupBoxModel.xba new file mode 100644 index 000000000000..2be838ae72a0 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/UnoControlGroupBoxModel/awt_UnoControlGroupBoxModel.xba @@ -0,0 +1,74 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="awt_UnoControlGroupBoxModel" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + + + +Sub RunTest() + +'************************************************************************* +' SERVICE: +' com.sun.star.awt.UnoControlGroupBoxModel +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + + PropertyTester.TestProperty("Enabled") + + PropertyTester.TestProperty("FontDescriptor") + + PropertyTester.TestProperty("Label") + + PropertyTester.TestProperty("Printable") + + PropertyTester.TestProperty("TextColor") + + PropertyTester.TestProperty("HelpText") + + PropertyTester.TestProperty("HelpURL") + + PropertyTester.TestProperty("FontEmphasisMark") + + PropertyTester.TestProperty("FontRelief") + + PropertyTester.TestProperty("TextLineColor") + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/awt/UnoControlGroupBoxModel/script.xlb b/qadevOOo/tests/basic/ifc/awt/UnoControlGroupBoxModel/script.xlb new file mode 100644 index 000000000000..8bf009c7ad32 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/UnoControlGroupBoxModel/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="awt_UnoControlGroupBoxModel" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="awt_UnoControlGroupBoxModel"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/awt/UnoControlImageControlModel/awt_UnoControlImageControlModel.xba b/qadevOOo/tests/basic/ifc/awt/UnoControlImageControlModel/awt_UnoControlImageControlModel.xba new file mode 100644 index 000000000000..c77f88d0042c --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/UnoControlImageControlModel/awt_UnoControlImageControlModel.xba @@ -0,0 +1,72 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="awt_UnoControlImageControlModel" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + + + +Sub RunTest() + +'************************************************************************* +' SERVICE: +' com.sun.star.awt.UnoControlImageControlModel +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + + PropertyTester.TestProperty("BackgroundColor") + + PropertyTester.TestProperty("Border") + + PropertyTester.TestProperty("Enabled") + + PropertyTester.TestProperty("ImageURL") + + PropertyTester.TestProperty("Printable") + + PropertyTester.TestProperty("HelpText") + + PropertyTester.TestProperty("HelpURL") + + PropertyTester.TestProperty("ScaleImage") + + PropertyTester.TestProperty("Tabstop") + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/awt/UnoControlImageControlModel/script.xlb b/qadevOOo/tests/basic/ifc/awt/UnoControlImageControlModel/script.xlb new file mode 100644 index 000000000000..78f757c5fae6 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/UnoControlImageControlModel/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="awt_UnoControlImageControlModel" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="awt_UnoControlImageControlModel"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/awt/UnoControlListBoxModel/awt_UnoControlListBoxModel.xba b/qadevOOo/tests/basic/ifc/awt/UnoControlListBoxModel/awt_UnoControlListBoxModel.xba new file mode 100644 index 000000000000..5de3bb3a9794 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/UnoControlListBoxModel/awt_UnoControlListBoxModel.xba @@ -0,0 +1,90 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="awt_UnoControlListBoxModel" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + + + +Sub RunTest() + +'************************************************************************* +' SERVICE: +' com.sun.star.awt.UnoControlListBoxModel +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + + PropertyTester.TestProperty("BackgroundColor") + + PropertyTester.TestProperty("Border") + + PropertyTester.TestProperty("Dropdown") + + PropertyTester.TestProperty("Enabled") + + PropertyTester.TestProperty("FontDescriptor") + + PropertyTester.TestProperty("LineCount") + + PropertyTester.TestProperty("MultiSelection") + + PropertyTester.TestProperty("Printable") + + PropertyTester.TestProperty("SelectedItems") + + PropertyTester.TestProperty("StringItemList") + + PropertyTester.TestProperty("Tabstop") + + PropertyTester.TestProperty("TextColor") + + PropertyTester.TestProperty("HelpText") + + PropertyTester.TestProperty("HelpURL") + + PropertyTester.TestProperty("FontEmphasisMark") + + PropertyTester.TestProperty("FontRelief") + + PropertyTester.TestProperty("ReadOnly") + + PropertyTester.TestProperty("TextLineColor") + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/awt/UnoControlListBoxModel/script.xlb b/qadevOOo/tests/basic/ifc/awt/UnoControlListBoxModel/script.xlb new file mode 100644 index 000000000000..1748dfbeff32 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/UnoControlListBoxModel/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="awt_UnoControlListBoxModel" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="awt_UnoControlListBoxModel"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/awt/UnoControlModel/awt_UnoControlModel.xba b/qadevOOo/tests/basic/ifc/awt/UnoControlModel/awt_UnoControlModel.xba new file mode 100644 index 000000000000..bdffcb1337e8 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/UnoControlModel/awt_UnoControlModel.xba @@ -0,0 +1,59 @@ +<?xml version="1.0" encoding="UTF-8"?> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="awt_UnoControlModel" script:language="StarBasic"> + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.awt.UnoControlModel +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + +' + PropertyTester.TestProperty("DefaultControl") + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/awt/UnoControlModel/script.xlb b/qadevOOo/tests/basic/ifc/awt/UnoControlModel/script.xlb new file mode 100644 index 000000000000..583895a0bcd4 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/UnoControlModel/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> + <library:library xmlns:library="http://openoffice.org/2000/library" library:name="awt_UnoControlModel" library:readonly="false" library:passwordprotected="false"> + <library:element library:name="awt_UnoControlModel"/> + </library:library> diff --git a/qadevOOo/tests/basic/ifc/awt/UnoControlNumericFieldModel/awt_UnoControlNumericFieldModel.xba b/qadevOOo/tests/basic/ifc/awt/UnoControlNumericFieldModel/awt_UnoControlNumericFieldModel.xba new file mode 100644 index 000000000000..55c389124214 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/UnoControlNumericFieldModel/awt_UnoControlNumericFieldModel.xba @@ -0,0 +1,132 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="awt_UnoControlNumericFieldModel" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + + + +Sub RunTest() + +'************************************************************************* +' SERVICE: +' com.sun.star.awt.UnoControlNumericFieldModel +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim newVal, oldVal As Long + + PropertyTester.TestProperty("BackgroundColor") + + PropertyTester.TestProperty("Border") + + PropertyTester.TestProperty("DecimalAccuracy") + + PropertyTester.TestProperty("Enabled") + + PropertyTester.TestProperty("FontDescriptor") + + PropertyTester.TestProperty("ShowThousandsSeparator") + + PropertyTester.TestProperty("Printable") + + PropertyTester.TestProperty("ReadOnly") + + PropertyTester.TestProperty("Spin") + + PropertyTester.TestProperty("StrictFormat") + + PropertyTester.TestProperty("Tabstop") + + PropertyTester.TestProperty("TextColor") + + Test.StartMethod("Value") + bOK = true + oldVal = oObj.Value + Out.Log("value before: "+oldVal) + if (oldVal <> 999) then + oObj.Value = 999 + else + oObj.Value = 1000 + endif + newVal = oObj.Value + Out.Log("value after: "+newVal) + bOK = bOK AND (newVal <> oldVal) + Test.MethodTested("Value",bOK) + + Test.StartMethod("ValueMax") + bOK = true + oldVal = oObj.ValueMax + Out.Log("value before: "+oldVal) + if (oldVal <> 10000) then + oObj.ValueMax = 10000 + else + oObj.ValueMax = 10001 + endif + newVal = oObj.ValueMax + Out.Log("value after: "+newVal) + bOK = bOK AND (newVal <> oldVal) + Test.MethodTested("ValueMax",bOK) + + Test.StartMethod("ValueMin") + bOK = true + oldVal = oObj.ValueMin + Out.Log("value before: "+oldVal) + if (oldVal <> -10000) then + oObj.ValueMin = -10000 + else + oObj.ValueMin = -10001 + endif + newVal = oObj.ValueMin + Out.Log("value after: "+newVal) + bOK = bOK AND (newVal <> oldVal) + Test.MethodTested("ValueMin",bOK) + + PropertyTester.TestProperty("ValueStep") + + PropertyTester.TestProperty("HelpText") + + PropertyTester.TestProperty("HelpURL") + + PropertyTester.TestProperty("FontEmphasisMark") + + PropertyTester.TestProperty("FontRelief") + + PropertyTester.TestProperty("TextLineColor") + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/awt/UnoControlNumericFieldModel/script.xlb b/qadevOOo/tests/basic/ifc/awt/UnoControlNumericFieldModel/script.xlb new file mode 100644 index 000000000000..0755e1320b9a --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/UnoControlNumericFieldModel/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="awt_UnoControlNumericFieldModel" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="awt_UnoControlNumericFieldModel"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/awt/UnoControlPatternFieldModel/awt_UnoControlPatternFieldModel.xba b/qadevOOo/tests/basic/ifc/awt/UnoControlPatternFieldModel/awt_UnoControlPatternFieldModel.xba new file mode 100644 index 000000000000..096ee101f54c --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/UnoControlPatternFieldModel/awt_UnoControlPatternFieldModel.xba @@ -0,0 +1,90 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="awt_UnoControlPatternFieldModel" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + + + +Sub RunTest() + +'************************************************************************* +' SERVICE: +' com.sun.star.awt.UnoControlPatternFieldModel +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + + PropertyTester.TestProperty("BackgroundColor") + + PropertyTester.TestProperty("Border") + + PropertyTester.TestProperty("EditMask") + + PropertyTester.TestProperty("Enabled") + + PropertyTester.TestProperty("FontDescriptor") + + PropertyTester.TestProperty("LiteralMask") + + PropertyTester.TestProperty("Printable") + + PropertyTester.TestProperty("ReadOnly") + + PropertyTester.TestProperty("StrictFormat") + + PropertyTester.TestProperty("Tabstop") + + PropertyTester.TestProperty("Text") + + PropertyTester.TestProperty("TextColor") + + PropertyTester.TestProperty("HelpText") + + PropertyTester.TestProperty("HelpURL") + + PropertyTester.TestProperty("FontEmphasisMark") + + PropertyTester.TestProperty("FontRelief") + + PropertyTester.TestProperty("MaxTextLen") + + PropertyTester.TestProperty("TextLineColor") + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/awt/UnoControlPatternFieldModel/script.xlb b/qadevOOo/tests/basic/ifc/awt/UnoControlPatternFieldModel/script.xlb new file mode 100644 index 000000000000..b37bb62f8f7e --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/UnoControlPatternFieldModel/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="awt_UnoControlPatternFieldModel" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="awt_UnoControlPatternFieldModel"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/awt/UnoControlProgressBarModel/awt_UnoControlProgressBarModel.xba b/qadevOOo/tests/basic/ifc/awt/UnoControlProgressBarModel/awt_UnoControlProgressBarModel.xba new file mode 100644 index 000000000000..c14ed80fd151 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/UnoControlProgressBarModel/awt_UnoControlProgressBarModel.xba @@ -0,0 +1,74 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="awt_UnoControlProgressBarModel" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + + + +Sub RunTest() + +'************************************************************************* +' SERVICE: +' com.sun.star.awt.UnoControlProgressBarModel +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + + PropertyTester.TestProperty("BackgroundColor") + + PropertyTester.TestProperty("Border") + + PropertyTester.TestProperty("Enabled") + + PropertyTester.TestProperty("FillColor") + + PropertyTester.TestProperty("HelpText") + + PropertyTester.TestProperty("HelpURL") + + PropertyTester.TestProperty("Printable") + + PropertyTester.TestProperty("ProgressValue") + + PropertyTester.TestProperty("ProgressValueMax") + + PropertyTester.TestProperty("ProgressValueMin") + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/awt/UnoControlProgressBarModel/script.xlb b/qadevOOo/tests/basic/ifc/awt/UnoControlProgressBarModel/script.xlb new file mode 100644 index 000000000000..388de9e782d6 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/UnoControlProgressBarModel/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="awt_UnoControlProgressBarModel" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="awt_UnoControlProgressBarModel"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/awt/UnoControlRadioButtonModel/awt_UnoControlRadioButtonModel.xba b/qadevOOo/tests/basic/ifc/awt/UnoControlRadioButtonModel/awt_UnoControlRadioButtonModel.xba new file mode 100644 index 000000000000..4babfe686c5b --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/UnoControlRadioButtonModel/awt_UnoControlRadioButtonModel.xba @@ -0,0 +1,78 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="awt_UnoControlRadioButtonModel" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + + + +Sub RunTest() + +'************************************************************************* +' SERVICE: +' com.sun.star.awt.UnoControlRadioButtonModel +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + + PropertyTester.TestProperty("Enabled") + + PropertyTester.TestProperty("FontDescriptor") + + PropertyTester.TestProperty("Label") + + PropertyTester.TestProperty("Printable") + + PropertyTester.TestProperty("State", Array(0,1)) + + PropertyTester.TestProperty("Tabstop") + + PropertyTester.TestProperty("TextColor") + + PropertyTester.TestProperty("HelpText") + + PropertyTester.TestProperty("HelpURL") + + PropertyTester.TestProperty("FontEmphasisMark") + + PropertyTester.TestProperty("FontRelief") + + PropertyTester.TestProperty("TextLineColor") + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/awt/UnoControlRadioButtonModel/script.xlb b/qadevOOo/tests/basic/ifc/awt/UnoControlRadioButtonModel/script.xlb new file mode 100644 index 000000000000..e3e8530eb508 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/UnoControlRadioButtonModel/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="awt_UnoControlRadioButtonModel" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="awt_UnoControlRadioButtonModel"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/awt/UnoControlScrollBarModel/awt_UnoControlScrollBarModel.xba b/qadevOOo/tests/basic/ifc/awt/UnoControlScrollBarModel/awt_UnoControlScrollBarModel.xba new file mode 100644 index 000000000000..103266b45df2 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/UnoControlScrollBarModel/awt_UnoControlScrollBarModel.xba @@ -0,0 +1,76 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="awt_UnoControlScrollBarModel" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + + + +Sub RunTest() + +'************************************************************************* +' SERVICE: +' com.sun.star.awt.UnoControlScrollBarModel +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + + PropertyTester.TestProperty("BlockIncrement") + + PropertyTester.TestProperty("Border") + + PropertyTester.TestProperty("Enabled") + + PropertyTester.TestProperty("HelpText") + + PropertyTester.TestProperty("HelpURL") + + PropertyTester.TestProperty("LineIncrement") + + PropertyTester.TestProperty("Orientation") + + PropertyTester.TestProperty("Printable") + + PropertyTester.TestProperty("ScrollValue") + + PropertyTester.TestProperty("ScrollValueMax") + + PropertyTester.TestProperty("VisibleSize") + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/awt/UnoControlScrollBarModel/script.xlb b/qadevOOo/tests/basic/ifc/awt/UnoControlScrollBarModel/script.xlb new file mode 100644 index 000000000000..00d8fd9cf3e7 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/UnoControlScrollBarModel/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="awt_UnoControlScrollBarModel" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="awt_UnoControlScrollBarModel"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/awt/UnoControlTimeFieldModel/awt_UnoControlTimeFieldModel.xba b/qadevOOo/tests/basic/ifc/awt/UnoControlTimeFieldModel/awt_UnoControlTimeFieldModel.xba new file mode 100644 index 000000000000..f7fbdf2c94a1 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/UnoControlTimeFieldModel/awt_UnoControlTimeFieldModel.xba @@ -0,0 +1,91 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="awt_UnoControlTimeFieldModel" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + + + +Sub RunTest() + +'************************************************************************* +' SERVICE: +' com.sun.star.awt.UnoControlTimeFieldModel +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + PropertyTester.TestProperty("BackgroundColor") + + PropertyTester.TestProperty("Border") + + PropertyTester.TestProperty("Enabled") + + PropertyTester.TestProperty("FontDescriptor") + + PropertyTester.TestProperty("FontEmphasisMark") + + PropertyTester.TestProperty("FontRelief") + + PropertyTester.TestProperty("HelpText") + + PropertyTester.TestProperty("HelpURL") + + PropertyTester.TestProperty("Printable") + + PropertyTester.TestProperty("ReadOnly") + + PropertyTester.TestProperty("Spin") + + PropertyTester.TestProperty("StrictFormat") + + PropertyTester.TestProperty("Tabstop") + + PropertyTester.TestProperty("TextColor") + + PropertyTester.TestProperty("TextLineColor") + + PropertyTester.TestProperty("Time") + + PropertyTester.TestProperty("TimeFormat") + + PropertyTester.TestProperty("TimeMax") + + PropertyTester.TestProperty("TimeMin") + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/awt/UnoControlTimeFieldModel/script.xlb b/qadevOOo/tests/basic/ifc/awt/UnoControlTimeFieldModel/script.xlb new file mode 100644 index 000000000000..482f6d802418 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/UnoControlTimeFieldModel/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="awt_UnoControlTimeFieldModel" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="awt_UnoControlTimeFieldModel"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/awt/XButton/awt_XButton.xba b/qadevOOo/tests/basic/ifc/awt/XButton/awt_XButton.xba new file mode 100644 index 000000000000..c01f3669a326 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/XButton/awt_XButton.xba @@ -0,0 +1,92 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="awt_XButton" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + +Dim bAL_actionPerformed As Boolean + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.awt.XButton +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim oListener As Object + + Out.Log("create com.sun.star.awt.XActionListener") + oListener = createUNOListener("AL_", "com.sun.star.awt.XActionListener") + + Test.StartMethod("addActionListener()") + bAL_actionPerformed = False + oObj.addActionListener(oListener) + Out.Log("Can be checked only interactively !!!") + bOK = True + Test.MethodTested("addActionListener()", bOK) + + Test.StartMethod("removeActionListener()") + oObj.removeActionListener(oListener) + bOK = true + Test.MethodTested("removeActionListener()", bOK) + + Test.StartMethod("setLabel()") + oObj.setLabel("XButton Label") + bOK = True + Test.MethodTested("setLabel()", bOK) + + Test.StartMethod("setActionCommand()") + oObj.setActionCommand("XButtonComand") + bOK = True + Test.MethodTested("setActionCommand()", bOK) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub + +Sub AL_disposing +End Sub + +Sub AL_actionPerformed + Out.Log("CallBack for ActionListener actionPerformed was called.") + bAL_actionPerformed = true +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/awt/XButton/script.xlb b/qadevOOo/tests/basic/ifc/awt/XButton/script.xlb new file mode 100644 index 000000000000..7ef5c2ab0762 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/XButton/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="awt_XButton" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="awt_XButton"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/awt/XCheckBox/awt_XCheckBox.xba b/qadevOOo/tests/basic/ifc/awt/XCheckBox/awt_XCheckBox.xba new file mode 100644 index 000000000000..30036638c4a2 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/XCheckBox/awt_XCheckBox.xba @@ -0,0 +1,107 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="awt_XCheckBox" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + +Dim bIL_itemStateChanged As Boolean + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.awt.XCheckBox +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim oListener As Object + + bIL_itemStateChanged = False + out.log("create listener for item events") + oListener = createUnoListener("IL_", "com.sun.star.awt.XItemListener") + + Test.StartMethod("addItemListener()") + oObj.addItemListener(oListener) + out.log("Can be checked only interactively !!!") + bOK = True + Test.MethodTested("addItemListener()", bOK) + + Test.StartMethod("removeItemListener()") + oObj.removeItemListener(oListener) + bOK = True + Test.MethodTested("removeItemListener()", bOK) + + Test.StartMethod("getState()") + Test.StartMethod("setState()") + Dim state, newState As Integer + state = oObj.getState() + Out.Log("current state of check-box: " + state) + newState = 0 + If state = 0 Then + newState = 1 + EndIf + Out.Log("set new state: " + newState) + oObj.setState(newState) + bOK = (newState = oObj.getState()) + Test.MethodTested("getState()", bOK) + Test.MethodTested("setState()", bOK) + + Test.StartMethod("setLabel()") + oObj.setLabel("XCheckBox test") + bOK = true + Test.MethodTested("setLabel()", bOK) + + Test.StartMethod("enableTriState()") + oObj.enableTriState(True) + bOK = true + Test.MethodTested("enableTriState()", bOK) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub + +Sub IL_disposing +End Sub + +Sub IL_itemStateChanged + Out.Log("CallBack for ItemListener itemStateChanged was called.") + bIL_itemStateChanged = true +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/awt/XCheckBox/script.xlb b/qadevOOo/tests/basic/ifc/awt/XCheckBox/script.xlb new file mode 100644 index 000000000000..2b7206d80a00 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/XCheckBox/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="awt_XCheckBox" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="awt_XCheckBox"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/awt/XComboBox/awt_XComboBox.xba b/qadevOOo/tests/basic/ifc/awt/XComboBox/awt_XComboBox.xba new file mode 100644 index 000000000000..574a6f6576a0 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/XComboBox/awt_XComboBox.xba @@ -0,0 +1,146 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="awt_XComboBox" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + +Dim bIL_itemStateChanged, bAL_actionPerformed As Boolean + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.awt.XComboBox +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim oIListener, oAListener As Object + + bIL_itemStateChanged = False + oIListener = createUnoListener("IL_", "com.sun.star.awt.XItemListener") + + Test.StartMethod("addItemListener()") + oObj.addItemListener(oIListener) + bOK = True + Test.MethodTested("addItemListener()", bOK) + + Test.StartMethod("removeItemListener()") + oObj.removeItemListener(oIListener) + bOK = True + Test.MethodTested("removeItemListener()", bOK) + + bAL_actionPerformed = False + oAListener = createUnoListener("AL_", "com.sun.star.awt.XActionListener") + Test.StartMethod("addActionListener()") + oObj.addActionListener(oAListener) + bOK = True + Test.MethodTested("addActionListener()", bOK) + + Test.StartMethod("removeActionListener()") + oObj.removeActionListener(oAListener) + bOK = True + Test.MethodTested("removeActionListener()", bOK) + + Dim itemCount As Integer + Test.StartMethod("getItemCount()") + itemCount = oObj.getItemCount() + bOK = itemCount > 0 or itemCount = 0 + Test.MethodTested("getItemCount()", bOK) + + Test.StartMethod("addItem()") + oObj.addItem("Item1", itemCount) + bOK = oObj.getItemCount() = (itemCount + 1) + Test.MethodTested("addItem()", bOK) + + Dim itemNames As Variant + itemNames = Array("Item2", "Item3") + Dim oldCount As Integer + oldCount = oObj.getItemCount() + Test.StartMethod("addItems()") + oObj.addItems(itemNames(), oldCount) + bOK = (oldCount + 2) = oObj.getItemCount() + Test.MethodTested("addItems()", bOK) + + Test.StartMethod("getItem()") + bOK = (oObj.getItem(itemCount) = "Item1") + Test.MethodTested("getItem()", bOK) + + Test.StartMethod("getItems()") + itemNames = oObj.getItems() + Dim i As Integer + bOK = True + Dim iname As String + For i = itemCount to itemCount + 2 + iname = "Item" + (i + 1) + bOK = bOK and itemNames(i) = iname + out.log(iname + " " + itemNames(i)) + Next i + Test.MethodTested("getItems()", bOK) + + Test.StartMethod("removeItems()") + oObj.removeItems(0, oObj.getItemCount()) + bOK = oObj.getItemCount = 0 + Test.MethodTested("removeItems()", bOK) + + Dim lineCount As Integer + Test.StartMethod("getDropDownLineCount()") + lineCount = oObj.getDropDownLineCount() + bOK = True + Test.MethodTested("getDropDownLineCount()", bOK) + + Test.StartMethod("setDropDownLineCount()") + oObj.setDropDownLineCount(lineCount + 1) + bOK = oObj.getDropDownLineCount() = lineCount + 1 + Test.MethodTested("setDropDownLineCount()", bOK) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub + +Sub IL_itemStateChanged + Out.Log("CallBack for ItemListener itemStateChanged was called.") + bIL_itemStateChanged = true +End Sub + +Sub AL_actionPerformed + Out.Log("CallBack for ActionListener actionPerformed was called.") + bAL_actionPerformed = true +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/awt/XComboBox/script.xlb b/qadevOOo/tests/basic/ifc/awt/XComboBox/script.xlb new file mode 100644 index 000000000000..042993e00091 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/XComboBox/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="awt_XComboBox" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="awt_XComboBox"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/awt/XControl/awt_XControl.xba b/qadevOOo/tests/basic/ifc/awt/XControl/awt_XControl.xba new file mode 100644 index 000000000000..e66aadc3b22b --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/XControl/awt_XControl.xba @@ -0,0 +1,123 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="awt_XControl" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + +'************************************************************************* +' This Interface/Service test depends on the following GLOBAL variables, +' which must be specified in the object creation: + +'Global oModel As Object +'Global oContext As Object +'Global oWinpeer As Object +'Global oToolkit As Object + +'************************************************************************* + + + + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.awt.XControl +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + If isNull(oContext) then + Out.Log("'oContext' as global variable required!") + End If + If isNull(oWinpeer) then + Out.Log("'oWinper' as global variable required!") + End If + If isNull(oToolkit) then + Out.Log("'oToolkit' as global variable required!") + End If + + Test.StartMethod("setContext()") + bOK = true + oObj.setContext(oContext) + Test.MethodTested("setContext()", bOK) + + Test.StartMethod("getContext()") + bOK = hasUnoInterfaces(oObj.getContext(), "com.sun.star.uno.XInterface") + Test.MethodTested("getContext()", bOK) + + Test.StartMethod("createPeer()") + bOK = true + oObj.createPeer(oToolkit, oWinpeer) + Test.MethodTested("createPeer()", bOK) + + Test.StartMethod("getPeer()") + bOK = hasUnoInterfaces(oObj.getPeer(),"com.sun.star.awt.XWindowPeer") + Test.MethodTested("getPeer()", bOK) + + Test.StartMethod("setModel()") + bOK = true + oObj.setModel(oModel) + Test.StartMethod("getModel()") + bOK = bOK AND hasUnoInterfaces(oObj.getModel(), "com.sun.star.awt.XControlModel") + Test.MethodTested("setModel()", bOK) + Test.MethodTested("getModel()", bOK) + + Test.StartMethod("getView()") + bOK = hasUnoInterfaces(oObj.getView(), "com.sun.star.awt.XView") + Test.MethodTested("getView()", bOK) + + Test.StartMethod("setDesignMode()") + bOK = true + oObj.setDesignMode(true) + Test.StartMethod("isDesignMode()") + bOk = bOk AND oObj.isDesignMode() + oObj.setDesignMode(false) + bOk = bOk AND NOT oObj.isDesignMode() + Test.MethodTested("setDesignMode()", bOK) + Test.MethodTested("isDesignMode()", bOK) + + Test.StartMethod("isTransparent()") + bOk = VarType(oObj.isTransparent()) = 11 + Test.MethodTested("isTransparent()", bOK) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/awt/XControl/script.xlb b/qadevOOo/tests/basic/ifc/awt/XControl/script.xlb new file mode 100644 index 000000000000..1f8c19a30aa1 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/XControl/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="awt_XControl" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="awt_XControl"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/awt/XControlContainer/awt_XControlContainer.xba b/qadevOOo/tests/basic/ifc/awt/XControlContainer/awt_XControlContainer.xba new file mode 100644 index 000000000000..518671293db0 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/XControlContainer/awt_XControlContainer.xba @@ -0,0 +1,104 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="awt_XControlContainer" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +'************************************************************************* +' This Interface/Service test depends on the following GLOBAL variables, +' which must be specified in the object creation: + +'Global oXControl1 as Object +'Global oXControl2 as Object + +'************************************************************************* + + + + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.awt.XControlContainer +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + If isNull(oXControl1) then + Out.Log("'oXControl1' as global variable required!") + End If + If isNull(oXControl2) then + Out.Log("'oXControl2' as global variable required!") + End If + + Dim vGetControls As Variant + Dim oGetControl As Object + + Test.StartMethod("setStatusText()") + bOK = true + oObj.setStatusText("testing XControlContainer::setStatusText(String)") + Test.MethodTested("setStatusText()", bOK) + + Test.StartMethod("addControl()") + bOK = true + oObj.addControl("Control1", oXControl1) + oObj.addControl("Control2", oXControl2) + Test.StartMethod("getControls()") + vGetControls = oObj.getControls() +Dim nControls As Integer + nControls = uBound(vGetControls) + bOK = bOK AND (nControls >= 1) + Test.MethodTested("addControl()", bOK) + Test.MethodTested("getControls()", bOK) + + Test.StartMethod("getControl()") + oGetControl = oObj.getControl("Control1") + bOK = bOK AND NOT isNull(oGetControl) + Test.MethodTested("getControl()", bOK) + + Test.StartMethod("removeControl()") + bOK = true + oObj.removeControl(oXControl2) + Test.StartMethod("getControls()") + vGetControls = oObj.getControls() + bOK = bOK AND ((nControls - ubound(vGetControls)) = 1) + Test.MethodTested("removeControl()", bOK) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/awt/XControlContainer/script.xlb b/qadevOOo/tests/basic/ifc/awt/XControlContainer/script.xlb new file mode 100644 index 000000000000..a9d5ee8ca37b --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/XControlContainer/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="awt_XControlContainer" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="awt_XControlContainer"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/awt/XCurrencyField/awt_XCurrencyField.xba b/qadevOOo/tests/basic/ifc/awt/XCurrencyField/awt_XCurrencyField.xba new file mode 100644 index 000000000000..94e0acfe8bc2 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/XCurrencyField/awt_XCurrencyField.xba @@ -0,0 +1,144 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="awt_XCurrencyField" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.awt.XCurrencyField +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + Test.StartMethod("getValue()") + Dim value As Double + value = oObj.getValue() + bOK = True + Test.MethodTested("getValue()", bOK) + + Test.StartMethod("setValue()") + oObj.setValue(value + 1.1) + bOK = oObj.getValue() = (value + 1.1) + Test.MethodTested("setValue()", bOK) + + Test.StartMethod("getMin()") + Dim min As Double + min = oObj.getMin() + bOK = True + Test.MethodTested("getMin()", bOK) + + Test.StartMethod("setMin()") + oObj.setMin(min + 1.1) + bOK = oObj.getMin() = (min + 1.1) + Test.MethodTested("setMin()", bOK) + + Test.StartMethod("getMax()") + Dim max As Double + max = oObj.getMax() + bOK = True + Test.MethodTested("getMax()", bOK) + + Test.StartMethod("setMax()") + oObj.setMax(max + 1.1) + bOK = oObj.getMax() = (max + 1.1) + Test.MethodTested("setMax()", bOK) + + Test.StartMethod("getFirst()") + Dim first As Double + first = oObj.getFirst() + bOK = True + Test.MethodTested("getFirst()", bOK) + + Test.StartMethod("setFirst()") + oObj.setFirst(first + 1.1) + bOK = oObj.getFirst() = first + 1.1 + Test.MethodTested("setFirst()", bOK) + + Test.StartMethod("getLast()") + Dim last As Double + last = oObj.getLast() + bOK = True + Test.MethodTested("getLast()", bOK) + + Test.StartMethod("setLast()") + oObj.setLast(last + 1.1) + bOK = oObj.getLast() = (last + 1.1) + Test.MethodTested("setLast()", bOK) + + Test.StartMethod("getSpinSize()") + Dim spinSize As Double + spinSize = oObj.getSpinSize() + bOK = True + Test.MethodTested("getSpinSize()", bOK) + + Test.StartMethod("setSpinSize()") + oObj.setSpinSize(spinSize + 1.1) + bOK = oObj.getSpinSize() = (spinSize + 1.1) + Test.MethodTested("setSpinSize()", bOK) + + Test.StartMethod("getDecimalDigits()") + Dim digits As Integer + digits = oObj.getDecimalDigits() + bOK = True + Test.MethodTested("getDecimalDigits()", bOK) + + Test.StartMethod("setDecimalDigits()") + oObj.setDecimalDigits(digits + 1) + bOK = oObj.getDecimalDigits() = (digits + 1) + Test.MethodTested("setDecimalDigits()", bOK) + + Test.StartMethod("isStrictFormat()") + Dim strict As Boolean + strict = oObj.isStrictFormat() + bOK = True + Test.MethodTested("isStrictFormat()", bOK) + + Test.StartMethod("setStrictFormat()") + oObj.setStrictFormat(Not strict) + bOK = oObj.isStrictFormat() <> strict + Test.MethodTested("setStrictFormat()", bOK) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/awt/XCurrencyField/script.xlb b/qadevOOo/tests/basic/ifc/awt/XCurrencyField/script.xlb new file mode 100644 index 000000000000..54cb2fa783c1 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/XCurrencyField/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="awt_XCurrencyField" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="awt_XCurrencyField"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/awt/XDataTransferProviderAccess/awt_XDataTransferProviderAccess.xba b/qadevOOo/tests/basic/ifc/awt/XDataTransferProviderAccess/awt_XDataTransferProviderAccess.xba new file mode 100644 index 000000000000..7184cc654875 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/XDataTransferProviderAccess/awt_XDataTransferProviderAccess.xba @@ -0,0 +1,117 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="awt_XDataTransferProviderAccess" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.awt.XDataTransferProviderAccess +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + ' Here create a window for testing getDragGestureRecognizer(), getDragSource(), getDropTarget() methods + Dim oWndDescr As new com.sun.star.awt.WindowDescriptor + Dim oBounds As new com.sun.star.awt.Rectangle + oWndDescr.Type = com.sun.star.awt.WindowClass.TOP + oWndDescr.WindowServiceName = "" + oWndDescr.ParentIndex = -1 + oBounds.X = 10 : oBounds.Y = 20 + oBounds.Width = 110 : oBounds.Height = 120 + oWndDescr.Bounds = oBounds + with com.sun.star.awt.WindowAttribute + oWndDescr.WindowAttributes = .CLOSEABLE AND .MOVEABLE AND .SIZEABLE AND .BORDER AND .SHOW + end with + + Dim oWnd As Object + oWnd = oObj.createWindow(oWndDescr) + + Test.StartMethod("getDragGestureRecognizer()") + bOK = true + Dim oRecognizer As Object + oRecognizer = oObj.getDragGestureRecognizer(oWnd) + Out.Log("Recognizer is NULL : " & isNULL(oRecognizer)) + bOK = bOK AND NOT isNULL(oRecognizer) + if (bOK) then + bOK = bOK AND hasUnoInterfaces(oRecognizer, "com.sun.star.datatransfer.dnd.XDragGestureRecognizer") + if (NOT bOK) then Out.Log("Returned object doesn't support XDragGestureRecognizer interface.") + end if + Test.MethodTested("getDragGestureRecognizer()", bOK) + + Test.StartMethod("getDragSource()") + bOK = true + Dim oDragSource As Object + oDragSource = oObj.getDragSource(oWnd) + Out.Log("DragSource is NULL : " & isNULL(oDragSource)) + bOK = bOK AND NOT isNULL(oDragSource) + if (bOK) then + bOK = bOK AND hasUnoInterfaces(oDragSource, "com.sun.star.datatransfer.dnd.XDragSource") + if (NOT bOK) then Out.Log("Returned object doesn't support XDragSource interface.") + end if + Test.MethodTested("getDragSource()", bOK) + + Test.StartMethod("getDropTarget()") + bOK = true + Dim oDropTarget As Object + oDropTarget = oObj.getDropTarget(oWnd) + Out.Log("DropTarget is NULL : " & isNULL(oDropTarget)) + bOK = bOK AND NOT isNULL(oDropTarget) + if (bOK) then + bOK = bOK AND hasUnoInterfaces(oDropTarget, "com.sun.star.datatransfer.dnd.XDropTarget") + if (NOT bOK) then Out.Log("Returned object doesn't support XDropTarget interface.") + end if + Test.MethodTested("getDropTarget()", bOK) + + Test.StartMethod("getClipboard()") + bOK = true + Dim oClipboard As Object + oClipboard = oObj.getClipboard("") + Out.Log("Clipboard is NULL : " & isNULL(oClipboard)) + bOK = bOK AND NOT isNULL(oClipboard) + if (bOK) then + bOK = bOK AND hasUnoInterfaces(oClipboard, "com.sun.star.datatransfer.clipboard.XClipboard") + if (NOT bOK) then Out.Log("Returned object doesn't support XClipboard interface.") + end if + Test.MethodTested("getClipboard()", bOK) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/awt/XDataTransferProviderAccess/script.xlb b/qadevOOo/tests/basic/ifc/awt/XDataTransferProviderAccess/script.xlb new file mode 100644 index 000000000000..e574ae92bd2b --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/XDataTransferProviderAccess/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="awt_XDataTransferProviderAccess" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="awt_XDataTransferProviderAccess"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/awt/XDateField/awt_XDateField.xba b/qadevOOo/tests/basic/ifc/awt/XDateField/awt_XDateField.xba new file mode 100644 index 000000000000..c6b2d9589415 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/XDateField/awt_XDateField.xba @@ -0,0 +1,123 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="awt_XDateField" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.awt.XDateField +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + + Test.StartMethod("setDate()") + bOK = true + oObj.setDate(5087) + Test.StartMethod("getDate()") + bOK = bOK AND (oObj.getDate() = 5087) + Test.MethodTested("setDate()", bOK) + Test.MethodTested("getDate()", bOK) + + Test.StartMethod("setMin()") + bOK = true + oObj.setMin(4978) + Test.StartMethod("getMin()") + bOK = bOK AND (oObj.getMin() = 4978) + Test.MethodTested("setMin()", bOK) + Test.MethodTested("getMin()", bOK) + + Test.StartMethod("setMax()") + bOK = true + oObj.setMax(27856) + Test.StartMethod("getMax()") + bOK = bOK AND (oObj.getMax() = 27856) + Test.MethodTested("setMax()", bOK) + Test.MethodTested("getMax()", bOK) + + Test.StartMethod("setFirst()") + bOK = true + oObj.setFirst(5118) + Test.StartMethod("getFirst()") + bOK = bOK AND (oObj.getfirst() = 5118) + Test.MethodTested("setFirst()", bOK) + Test.MethodTested("getFirst()", bOK) + + Test.StartMethod("setLast()") + bOK = true + oObj.setLast(23450) + Test.StartMethod("getLast()") + bOK = bOK AND (oObj.getLast() = 23450) + Test.MethodTested("setLast()", bOK) + Test.MethodTested("getLast()", bOK) + + Test.StartMethod("setLongFormat()") + bOK = true + oObj.setLongFormat(true) + Test.StartMethod("isLongFormat()") + bOK = bOK AND oObj.isLongFormat() + oObj.setLongFormat(false) + bOK = bOK AND NOT oObj.isLongFormat() + Test.MethodTested("setLongFormat()", bOK) + Test.MethodTested("isLongFormat()", bOK) + + Test.StartMethod("isEmpty()") + bOK = true + oObj.setDate(6321) + bOK = bOK AND NOT oObj.isEmpty() + Test.StartMethod("setEmpty()") + oObj.setEmpty() + Test.MethodTested("setEmpty()", bOK) + Test.MethodTested("isEmpty()", bOK) + + Test.StartMethod("setStrictFormat()") + bOK = true + oObj.setStrictFormat(true) + Test.StartMethod("isStrictFormat()") + bOK = bOK AND oObj.isStrictFormat() + oObj.setStrictFormat(false) + bOK = bOK AND NOT oObj.isStrictFormat() + Test.MethodTested("setStrictFormat()", bOK) + Test.MethodTested("isStrictFormat()", bOK) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/awt/XDateField/script.xlb b/qadevOOo/tests/basic/ifc/awt/XDateField/script.xlb new file mode 100644 index 000000000000..afba59a0a5b0 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/XDateField/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="awt_XDateField" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="awt_XDateField"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/awt/XDialog/awt_XDialog.xba b/qadevOOo/tests/basic/ifc/awt/XDialog/awt_XDialog.xba new file mode 100644 index 000000000000..2e4e4608324d --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/XDialog/awt_XDialog.xba @@ -0,0 +1,73 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="awt_XDialog" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.awt.XDialog +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + Test.StartMethod("setTitle()") + oObj.setTitle("XDialog test") + bOK = True + Test.MethodTested("setTitle()", bOK) + + Test.StartMethod("getTitle()") + bOK = oObj.getTitle() = "XDialog test" + Test.MethodTested("getTitle()", bOK) + + Test.StartMethod("execute()") + bOK = True + Test.MethodTested("execute()", bOK) + + Test.StartMethod("endExecute()") + bOK = True + Test.MethodTested("endExecute()", bOK) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/awt/XDialog/script.xlb b/qadevOOo/tests/basic/ifc/awt/XDialog/script.xlb new file mode 100644 index 000000000000..6a9a7b8477c2 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/XDialog/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="awt_XDialog" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="awt_XDialog"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/awt/XFixedText/awt_XFixedText.xba b/qadevOOo/tests/basic/ifc/awt/XFixedText/awt_XFixedText.xba new file mode 100644 index 000000000000..c318aec30576 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/XFixedText/awt_XFixedText.xba @@ -0,0 +1,87 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="awt_XFixedText" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.awt.XFixedText +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + Test.StartMethod("getText()") + Dim strText As String + strText = oObj.getText() + If IsNULL(strText) Then + strText = "XFixedText" + EndIf + bOK = True + Test.MethodTested("getText()", bOK) + + Test.StartMethod("setText()") + bOK = true + oObj.setText(strText + "_") + bOK = oObj.getText() = (strText + "_") + Test.MethodTested("setText()", bOK) + + Test.StartMethod("getAlignment()") + Dim align As Integer + align = oObj.getAlignment() + bOK = True + Test.MethodTested("getAlignment()", bOK) + + Test.StartMethod("setAlignment()") + If align = com.sun.star.awt.TextAlign.CENTER Then + align = com.sun.star.awt.TextAlign.LEFT + Else + align = com.sun.star.awt.TextAlign.CENTER + EndIf + oObj.setAlignment(align) + bOK = oObj.getAlignment() = align + Test.MethodTested("setAlignment()", bOK) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/awt/XFixedText/script.xlb b/qadevOOo/tests/basic/ifc/awt/XFixedText/script.xlb new file mode 100644 index 000000000000..7692bb7aabc4 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/XFixedText/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="awt_XFixedText" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="awt_XFixedText"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/awt/XItemListener/awt_XItemListener.xba b/qadevOOo/tests/basic/ifc/awt/XItemListener/awt_XItemListener.xba new file mode 100644 index 000000000000..b40c8505ee24 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/XItemListener/awt_XItemListener.xba @@ -0,0 +1,82 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="awt_XItemListener" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + +'************************************************************************* +' This Interface/Service test depends on the following GLOBAL variables, +' which must be specified in the object creation: + +'Global bIL_itemStateChanged As Boolean +'Global oEventItemListener As Object + +'************************************************************************* + + + + + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.awt.XItemListener +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + Dim event As new com.sun.star.awt.ItemEvent + event.Selected = 1 + event.Highlighted = 2 + Test.StartMethod("itemStateChanged()") + oObj.itemStateChanged(event) + wait(200) + if isNull(oEventItemListener) OR isEmpty(oEventItemListener) then + Out.Log("Event object is NULL, listener was called: " + bIL_itemStateChanged) + bOK = false + else + bOK = bIL_itemStateChanged And (oEventItemListener.Selected = 1) And (oEventItemListener.Highlighted = 2) + end if + Test.MethodTested("itemStateChanged()", bOK) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/awt/XItemListener/script.xlb b/qadevOOo/tests/basic/ifc/awt/XItemListener/script.xlb new file mode 100644 index 000000000000..efe46b4089dd --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/XItemListener/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="awt_XItemListener" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="awt_XItemListener"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/awt/XLayoutConstrains/awt_XLayoutConstrains.xba b/qadevOOo/tests/basic/ifc/awt/XLayoutConstrains/awt_XLayoutConstrains.xba new file mode 100644 index 000000000000..df864affc44e --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/XLayoutConstrains/awt_XLayoutConstrains.xba @@ -0,0 +1,75 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="awt_XLayoutConstrains" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.awt.XLayoutConstrains +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim oSize As Object + + Test.StartMethod("getMinimumSize()") + bOK = true + oSize = oObj.com_sun_star_awt_XLayoutConstrains_getMinimumSize() + Out.Log("Size is (" & oSize.Width & " X " & oSize.Height & ")") + Test.MethodTested("getMinimumSize()", bOK) + + Test.StartMethod("getPreferredSize()") + bOK = true + oSize = oObj.getPreferredSize() + Out.Log("Size is (" & oSize.Width & " X " & oSize.Height & ")") + Test.MethodTested("getPreferredSize()", bOK) + + Test.StartMethod("calcAdjustedSize()") + bOK = true + oSize = oObj.calcAdjustedSize(oSize) + Out.Log("Size is (" & oSize.Width & " X " & oSize.Height & ")") + Test.MethodTested("calcAdjustedSize()", bOK) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/awt/XLayoutConstrains/script.xlb b/qadevOOo/tests/basic/ifc/awt/XLayoutConstrains/script.xlb new file mode 100644 index 000000000000..f303a250268e --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/XLayoutConstrains/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="awt_XLayoutConstrains" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="awt_XLayoutConstrains"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/awt/XListBox/awt_XListBox.xba b/qadevOOo/tests/basic/ifc/awt/XListBox/awt_XListBox.xba new file mode 100644 index 000000000000..f7ebe0b1603d --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/XListBox/awt_XListBox.xba @@ -0,0 +1,239 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="awt_XListBox" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + +Dim bIL_itemStateChanged, bAL_actionPerformed As Boolean + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.awt.XListBox +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + + Test.StartMethod("addItemListener()") + Dim oIListener As Object + oIListener = createUnoListener("IL_", "com.sun.star.awt.XItemListener") + bIL_itemStateChanged = False + oObj.addItemListener(oIListener) + Out.Log("Can be checked only interactively !!!") + bOK = True + Test.MethodTested("addItemListener()", bOK) + + Test.StartMethod("removeItemListener()") + oObj.removeItemListener(oIListener) + bOK = True + Test.MethodTested("removeItemListener()", bOK) + + Test.StartMethod("addActionListener()") + Dim oAListener As Object + oAListener = createUnoListener("AL_", "com.sun.star.awt.XActionListener") + bAL_actionPerformed = False + Out.Log("Can be checked only interactively !!!") + oObj.addActionListener(oAListener) + bOK = True + Test.MethodTested("addActionListener()", bOK) + + Test.StartMethod("removeActionListener()") + oObj.removeActionListener(oAListner) + bOK = True + Test.MethodTested("removeActionListener()", bOK) + + Test.StartMethod("getItemCount()") + Dim itemCount As Integer + itemCount = oObj.getItemCount() + bOK = itemCount > 0 Or itemCount = 0 + Test.MethodTested("getItemCount()", bOK) + + Test.StartMethod("addItem()") + oObj.addItem("Item1", itemCount) + bOK = oObj.getItemCount() = (itemCount + 1) + Test.MethodTested("addItem()", bOK) + + Test.StartMethod("addItems()") + Dim oldCount As Integer + oldCount = oObj.getItemCount() + Dim items As Variant + items = Array("Item2", "Item3") + oObj.addItems(items, oldCount) + bOK = oObj.getItemCount() = (oldCount + 2) + Test.MethodTested("addItems()", bOK) + + Test.StartMethod("getItem()") + Dim item As String + item = oObj.getItem(itemCount) + bOK = (item = "Item1") + Test.MethodTested("getItem()", bOK) + + Test.StartMethod("getItems()") + Dim itms As Variant + itms = oObj.getItems() + bOK = True + Dim i As Integer + Dim iName As String + For i = itemCount to itemCount + 2 + iName = "Item" + (i + 1) + bOK = bOK And (iName = itms(i)) + Next i + Test.MethodTested("getItems()", bOK) + + Test.StartMethod("getSelectedItemPos()") + oObj.selectItemPos(1, True) + bOK = (oObj.getSelectedItemPos() = 1) + Test.MethodTested("getSelectedItemPos()", bOK) + + Test.StartMethod("setMultipleMode()") + oObj.setMultipleMode(True) + bOK = True + Test.MethodTested("setMultipleMode()", bOK) + + Test.StartMethod("selectItemsPos()") + Dim selItems As Variant + selItems = Array(0, 2) + oObj.selectItemsPos(selItems, True) + bOK = True + Test.MethodTested("selectItemsPos()", bOK) + + Test.StartMethod("getSelectedItemsPos()") + Dim cnt As Integer + cnt = oObj.getItemCount() + For i = 0 to cnt + oObj.selectItemPos(i, False) + Next i + selItems = Array(0, 2) + oObj.selectItemsPos(selItems, True) + Dim selItemsPos As Variant + selItemsPos = oObj.getSelectedItemsPos() + Out.Log("Selected items position:") + For i = 0 to ubound(selItemsPos) + Out.log(selItemsPos(i)) + Next i + bOK = (ubound(selItemsPos) = 1) And (selItemsPos(0) = "0") And (selItemsPos(1) = "2") + Test.MethodTested("getSelectedItemsPos()", bOK) + + Test.StartMethod("selectItem()") + bOK = true + oObj.selectItem("Item3", True) + Test.MethodTested("selectItem()", bOK) + + Test.StartMethod("getSelectedItem()") + cnt = oObj.getItemCount() + For i = 0 to cnt + oObj.selectItemPos(i, False) + Next i + oObj.selectItem("Item3", True) + bOK = (oObj.getSelectedItem() = "Item3") + Test.MethodTested("getSelectedItem()", bOK) + + Test.StartMethod("getSelectedItems()") + bOK = true + cnt = oObj.getItemCount() + For i = 0 to cnt + oObj.selectItemPos(i, False) + Next i + oObj.selectItemsPos(selItems, True) + items = oObj.getSelectedItems() + Out.Log("Selected items:") + For i = 0 to ubound(items) + Out.log(items(i)) + Next i + bOK = (ubound(items) = 1) And (oObj.getItem(0) = items(0)) And (oObj.getItem(2) = items(1)) + Test.MethodTested("getSelectedItems()", bOK) + + Test.StartMethod("selectItemPos()") + cnt = oObj.getItemCount() + For i = 0 to cnt + oObj.selectItemPos(i, False) + Next i + oObj.selectItemPos(1, True) + bOK = True + Test.MethodTested("selectItemPos()", bOK) + + Test.StartMethod("isMutipleMode()") + bOK = oObj.isMutipleMode() + Test.MethodTested("isMutipleMode()", bOK) + + Test.StartMethod("makeVisible()") + bOK = true + oObj.makeVisible(2) + Test.MethodTested("makeVisible()", bOK) + + Test.StartMethod("getDropDownLineCount()") + Dim lineCount As Integer + lineCount = oObj.getDropDownLineCount() + bOK = True + Test.MethodTested("getDropDownLineCount()", bOK) + + Test.StartMethod("setDropDownLineCount()") + oObj.setDropDownLineCount(lineCount + 1) + bOK = oObj.getDropDownLineCount() = (lineCount + 1) + Test.MethodTested("setDropDownLineCount()", bOK) + + Test.StartMethod("removeItems()") + cnt = oObj.getItemCount() + oObj.removeItems(0, cnt) + bOK = oObj.getItemCount() = 0 + Test.MethodTested("removeItems()", bOK) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub + +Sub IL_itemStateChanged + bIL_itemStateChanged = True + Out.Log("CallBack for ItemListener itemStateChanged was called.") +End Sub + +Sub AL_actionPerformed + bAL_actionPerformed = True + Out.Log("CallBack for ActionListener actionPerformed was called.") +End Sub + +Sub AL_disposing +End Sub + +Sub IL_disposing +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/awt/XListBox/script.xlb b/qadevOOo/tests/basic/ifc/awt/XListBox/script.xlb new file mode 100644 index 000000000000..ddb31adf4ec6 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/XListBox/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="awt_XListBox" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="awt_XListBox"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/awt/XNumericField/awt_XNumericField.xba b/qadevOOo/tests/basic/ifc/awt/XNumericField/awt_XNumericField.xba new file mode 100644 index 000000000000..672245ed381b --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/XNumericField/awt_XNumericField.xba @@ -0,0 +1,157 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="awt_XNumericField" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.awt.XNumericField +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim oldVal, newVal As Variant + + Test.StartMethod("getValue()") + Test.StartMethod("setValue()") + bOK = true + oldVal = oObj.getValue() + Out.Log("value before: "+oldVal) + oObj.setValue(oldVal+20) + newVal = oObj.getValue() + Out.Log("value after: "+newVal) + bOK = bOK AND (oldVal <> newVal) + Test.MethodTested("setValue()", bOK) + Test.MethodTested("getValue()", bOK) + + Test.StartMethod("getMin()") + Test.StartMethod("setMin()") + bOK = true + oldVal = oObj.getMin() + Out.Log("value before: "+oldVal) + oObj.setMin(oldVal+20) + newVal = oObj.getMin() + Out.Log("value after: "+newVal) + bOK = bOK AND (oldVal <> newVal) + Test.MethodTested("setMin()", bOK) + Test.MethodTested("getMin()", bOK) + + Test.StartMethod("getMax()") + Test.StartMethod("setMax()") + bOK = true + oldVal = oObj.getMax() + Out.Log("value before: "+oldVal) + oObj.setMax(oldVal+20) + newVal = oObj.getMax() + Out.Log("value after: "+newVal) + bOK = bOK AND (oldVal <> newVal) + Test.MethodTested("setMax()", bOK) + Test.MethodTested("getMax()", bOK) + + Test.StartMethod("getFirst()") + Test.StartMethod("setFirst()") + bOK = true + oldVal = oObj.getFirst() + Out.Log("value before: "+oldVal) + oObj.setFirst(oldVal+20) + newVal = oObj.getFirst() + Out.Log("value after: "+newVal) + bOK = bOK AND (oldVal <> newVal) + Test.MethodTested("setFirst()", bOK) + Test.MethodTested("getFirst()", bOK) + + Test.StartMethod("getLast()") + Test.StartMethod("setLast()") + bOK = true + oldVal = oObj.getLast() + Out.Log("value before: "+oldVal) + oObj.setLast(oldVal+20) + newVal = oObj.getLast() + Out.Log("value after: "+newVal) + bOK = bOK AND (oldVal <> newVal) + Test.MethodTested("setLast()", bOK) + Test.MethodTested("getLast()", bOK) + + Test.StartMethod("getSpinSize()") + Test.StartMethod("setSpinSize()") + bOK = true + oldVal = oObj.getSpinSize() + Out.Log("value before: "+oldVal) + oObj.setSpinSize(oldVal+20) + newVal = oObj.getSpinSize() + Out.Log("value after: "+newVal) + bOK = bOK AND (oldVal <> newVal) + Test.MethodTested("setSpinSize()", bOK) + Test.MethodTested("getSpinSize()", bOK) + + Test.StartMethod("getDecimalDigits()") + Test.StartMethod("setDecimalDigits()") + bOK = true + oldVal = oObj.getDecimalDigits() + Out.Log("value before: "+oldVal) + oObj.setDecimalDigits(oldVal+20) + newVal = oObj.getDecimalDigits() + Out.Log("value after: "+newVal) + bOK = bOK AND (oldVal <> newVal) + Test.MethodTested("setDecimalDigits()", bOK) + Test.MethodTested("getDecimalDigits()", bOK) + + Test.StartMethod("isStrictFormat()") + Test.StartMethod("setStrictFormat()") + bOK = true + oldVal = oObj.isStrictFormat() + Out.Log("value before: "+oldVal) + if (oldVal) then + oObj.setStrictFormat(false) + else + oObj.setStrictFormat(true) + endif + newVal = oObj.isStrictFormat() + Out.Log("value after: "+newVal) + bOK = bOK AND (oldVal <> newVal) + Test.MethodTested("setStrictFormat()", bOK) + Test.MethodTested("isStrictFormat()", bOK) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/awt/XNumericField/script.xlb b/qadevOOo/tests/basic/ifc/awt/XNumericField/script.xlb new file mode 100644 index 000000000000..3c306c572dc4 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/XNumericField/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="awt_XNumericField" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="awt_XNumericField"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/awt/XPatternField/awt_XPatternField.xba b/qadevOOo/tests/basic/ifc/awt/XPatternField/awt_XPatternField.xba new file mode 100644 index 000000000000..142cce73bf34 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/XPatternField/awt_XPatternField.xba @@ -0,0 +1,99 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="awt_XPatternField" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.awt.XPatternField +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim oldVal, newVal As Variant + Dim eMask, lMask, eMaskOld, lMaskOld As String + + Test.StartMethod("getMasks()") + Test.StartMethod("setMasks()") + bOK = true + oObj.getMasks(eMaskOld, lMaskOld) + Out.Log("value before: {"+eMaskOld+", "+lMaskOld+"}") + oObj.setMasks(eMaskOld+"__NEW", lMaskOld+"__NEW") + oObj.getMasks(eMask, lMask) + Out.Log("value after: {"+eMask+", "+lMask+"}") + bOK = bOK AND (eMask <> eMaskOld) AND (lMask <> lMaskOld) + Test.MethodTested("setMasks()", bOK) + Test.MethodTested("getMasks()", bOK) + + Test.StartMethod("getString()") + Test.StartMethod("setString()") + bOK = true + oldVal = oObj.getString() + Out.Log("value before: "+oldVal) + oObj.setString(oldVal+"__NEW") + newVal = oObj.getString() + Out.Log("value after: "+newVal) + bOK = bOK AND (oldVal <> newVal) + Test.MethodTested("setString()", bOK) + Test.MethodTested("getString()", bOK) + + Test.StartMethod("isStrictFormat()") + Test.StartMethod("setStrictFormat()") + bOK = true + oldVal = oObj.isStrictFormat() + Out.Log("value before: "+oldVal) + if (oldVal) then + oObj.setStrictFormat(false) + else + oObj.setStrictFormat(true) + endif + newVal = oObj.isStrictFormat() + Out.Log("value after: "+newVal) + bOK = bOK AND (oldVal <> newVal) + Test.MethodTested("setStrictFormat()", bOK) + Test.MethodTested("isStrictFormat()", bOK) + + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/awt/XPatternField/script.xlb b/qadevOOo/tests/basic/ifc/awt/XPatternField/script.xlb new file mode 100644 index 000000000000..5ff8b132fb5e --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/XPatternField/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="awt_XPatternField" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="awt_XPatternField"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/awt/XRadioButton/awt_XRadioButton.xba b/qadevOOo/tests/basic/ifc/awt/XRadioButton/awt_XRadioButton.xba new file mode 100644 index 000000000000..df81b1fe7ea0 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/XRadioButton/awt_XRadioButton.xba @@ -0,0 +1,98 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="awt_XRadioButton" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.awt.XRadioButton +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim newVal, oldVal As Variant + Dim oListener As Object + Dim listenerCalled As Boolean + + 'Flag should be 'true', because itemStateListener called only interactively + listenerCalled = true + oListener = createUNOListener("iSC_","com.sun.star.awt.XItemListener") + + Test.StartMethod("addItemListener()") + Test.StartMethod("removeItemListener()") + oObj.addItemListener(oListener) + oObj.removeItemListener(oListener) + bOK = true AND listenerCalled + Test.MethodTested("addItemListener()", bOK) + Test.MethodTested("removeItemListener()", bOK) + + Test.StartMethod("getState()") + Test.StartMethod("setState()") + bOK = true + oldVal = oObj.getState() + Out.Log("value before: "+oldVal) + if (oldVal) then + oObj.setState(false) + else + oObj.setState(true) + endif + newVal = oObj.getState() + Out.Log("value after: "+newVal) + bOK = bOK AND (oldVal <> newVal) + Test.MethodTested("getState()", bOK) + Test.MethodTested("setState()", bOK) + + Test.StartMethod("setLabel()") + bOK = true + oObj.setLabel("newLabel") + Test.MethodTested("setLabel()", bOK) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub + +Sub iSC_itemStateChanged() + Out.Log("CallBack for oListener itemStateChanged was called.") + listenerCalled = true +End Sub + +</script:module> diff --git a/qadevOOo/tests/basic/ifc/awt/XRadioButton/script.xlb b/qadevOOo/tests/basic/ifc/awt/XRadioButton/script.xlb new file mode 100644 index 000000000000..64dc7ba570bf --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/XRadioButton/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="awt_XRadioButton" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="awt_XRadioButton"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/awt/XSpinField/awt_XSpinField.xba b/qadevOOo/tests/basic/ifc/awt/XSpinField/awt_XSpinField.xba new file mode 100644 index 000000000000..c2322aa120ff --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/XSpinField/awt_XSpinField.xba @@ -0,0 +1,126 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="awt_XSpinField" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.awt.XSpinField +'************************************************************************* +On Error Goto ErrHndl + + Test.StartMethod("addSpinListener()") + Dim oListener As Object + oListener = createUnoListener("SL_", "com.sun.star.awt.XSpinListener") + initListener() + oObj.addSpinListener(oListener) + Test.MethodTested("addSpinListener()", True) + + Test.StartMethod("up()") + oObj.up() + wait(1000) + Test.MethodTested("up()", bUpCalled) + + Test.StartMethod("down()") + oObj.down() + wait(1000) + Test.MethodTested("down()", bDownCalled) + + Test.StartMethod("first()") + oObj.first() + wait(1000) + Test.MethodTested("first()", bFirstCalled) + + Test.StartMethod("last()") + oObj.last() + wait(1000) + Test.MethodTested("last()", bLastCalled) + + Test.StartMethod("removeSpinListener()") + oObj.removeSpinListener(oListener) + initListener() + oObj.up() + wait(1000) + Test.MethodTested("removeSpinListener()", Not bUpCalled) + + Test.StartMethod("enableRepeat()") + oObj.enableRepeat(true) + oObj.enableRepeat(false) + Test.MethodTested("enableRepeat()", True) +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub + +Dim bUpCalled As Boolean +Dim bDownCalled As Boolean +Dim bFirstCalled As Boolean +Dim bLastCalled As Boolean + +Sub initListener() + bUpCalled = false + bDownCalled = false + bFirstCalled = false + bLastCalled = false +End Sub + +Sub SL_up() + Out.log("Listener up called") + bUpCalled = true +End Sub + +Sub SL_down() + Out.log("Listener down called") + bDownCalled = true +End Sub + +Sub SL_first() + Out.log("Listener first called") + bFirstCalled = true +End Sub + +Sub SL_last() + Out.log("Listener last called") + bLastCalled = true +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/awt/XSpinField/script.xlb b/qadevOOo/tests/basic/ifc/awt/XSpinField/script.xlb new file mode 100644 index 000000000000..40bea8c120fe --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/XSpinField/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="awt_XSpinField" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="awt_XSpinField"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/awt/XTabController/awt_XTabController.xba b/qadevOOo/tests/basic/ifc/awt/XTabController/awt_XTabController.xba new file mode 100644 index 000000000000..50a77a5c8411 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/XTabController/awt_XTabController.xba @@ -0,0 +1,116 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="awt_XTabController" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + +'************************************************************************* +' This Interface/Service test depends on the following GLOBAL variables, +' which must be specified in the object creation: + +' Global oXTabControllerModel as Object +' Global oXTabControllerContainer as Object +' Global bHasNoModel as Boolean + +'************************************************************************* + + + + + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.awt.XTabController +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim vControls As Variant + Dim n As Integer + + Out.Log("This interface is DEPRECATED !!!") + Out.Log("All test results are OK now") + + Test.StartMethod("setModel()") + Test.StartMethod("getModel()") + oObj.setModel(oXTabControllerModel) + bOK = (bHasNoModel = True) or hasUnoInterfaces(oObj.getModel(), "com.sun.star.awt.XTabControllerModel") + Test.MethodTested("setModel()", true) + Test.MethodTested("getModel()", bOK) + + Test.StartMethod("setContainer()") + Test.StartMethod("getContainer()") + oObj.setContainer(oXTabControllerContainer) + bOK = hasUnoInterfaces(oObj.getContainer(), "com.sun.star.awt.XControlContainer") + Test.MethodTested("setContainer()", true) + Test.MethodTested("getContainer()", bOK) + + Test.StartMethod("getControls()") + bOK = true + vControls = oObj.getcontrols() + For n = uBound(vControls) To lBound(vControls) + bOK = bOK AND hasUnoInterfaces(vControls(n), "com.sun.star.awt.XControl") + Next + Test.MethodTested("getControls()", true) + + Test.StartMethod("autoTabOrder()") + oObj.autoTabOrder() + bOK = true + Test.MethodTested("autoTabOrder()", true) + + Test.StartMethod("activateTabOrder()") + oObj.activateTabOrder() + bOK = true + Test.MethodTested("activateTabOrder()", true) + + Test.StartMethod("activateFirst()") + oObj.activateFirst() + bOK = true + Test.MethodTested("activateFirst()", true) + + Test.StartMethod("activateLast()") + oObj.activateLast() + bOK = true + Test.MethodTested("activateLast()", true) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/awt/XTabController/script.xlb b/qadevOOo/tests/basic/ifc/awt/XTabController/script.xlb new file mode 100644 index 000000000000..e49913869b6d --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/XTabController/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="awt_XTabController" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="awt_XTabController"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/awt/XTabControllerModel/awt_XTabControllerModel.xba b/qadevOOo/tests/basic/ifc/awt/XTabControllerModel/awt_XTabControllerModel.xba new file mode 100644 index 000000000000..df229ef05820 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/XTabControllerModel/awt_XTabControllerModel.xba @@ -0,0 +1,117 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="awt_XTabControllerModel" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + +'************************************************************************* +' This Interface/Service test depends on the following GLOBAL variables, +' which must be specified in the object creation: + +' Global XTabControlModel1 as Object +' Global XTabControlModel2 as Object + +'************************************************************************* + + + + + + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.awt.XTabControllerModel +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim ModelSeq1(0), ModelSeq2(0) As Variant + Dim ReturnModel(), ReturnSeq2(), ReturnSeq1() As Variant + Dim ReturnName, cName As String + + cName = "XTabControllerModel" + + Test.StartMethod("setGroupControl()") + bOK = true + oObj.setGroupControl(false) + Test.StartMethod("getGroupControl()") + bOK = bOK AND NOT oObj.getGroupControl() + oObj.setGroupControl(true) + bOK = bOK AND oObj.getGroupControl() + Test.MethodTested("getGroupControl()", bOK) + Test.MethodTested("setGroupControl()", bOK) + + Test.StartMethod("setControlModels()") + bOK = true + ModelSeq1(0) = XTabControlModel1 + oObj.setControlModels(ModelSeq1()) + Test.StartMethod("getControlModels()") + ReturnSeq1 = oObj.getControlModels() + bOK = bOk AND (uBound(ReturnSeq1()) = uBound(ModelSeq1())) + Test.MethodTested("setControlModels()", bOK) + Test.MethodTested("getControlModels()", bOK) + + Test.StartMethod("setGroup()") + bOK = true + ModelSeq2(0) = XTabControlModel2 + oObj.setGroup(ModelSeq2(), cName) + Test.StartMethod("getGroup()") + oObj.getGroup(0,ReturnSeq2(), ReturnName) + bOK = bOK AND (ReturnName = cName) + bOK = bOK AND (uBound(ReturnSeq2()) = uBound(ModelSeq2())) + Test.MethodTested("setGroup()", bOK) + Test.MethodTested("getGroup()", bOK) + + Test.StartMethod("getGroupCount()") + bOK = true + bOK = bOK AND (oObj.getGroupCount() > 0) + bOK = bOK AND isNumeric(oObj.getGroupCount()) + Test.MethodTested("getGroupCount()", bOK) + + Test.StartMethod("getGroupByName()") + bOK = true + oObj.getGroupByName(cName, ReturnModel()) + Test.MethodTested("getGroupByName()", bOK) + + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/awt/XTabControllerModel/script.xlb b/qadevOOo/tests/basic/ifc/awt/XTabControllerModel/script.xlb new file mode 100644 index 000000000000..43a9143774e6 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/XTabControllerModel/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="awt_XTabControllerModel" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="awt_XTabControllerModel"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/awt/XTextComponent/awt_XTextComponent.xba b/qadevOOo/tests/basic/ifc/awt/XTextComponent/awt_XTextComponent.xba new file mode 100644 index 000000000000..29e77fe4b900 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/XTextComponent/awt_XTextComponent.xba @@ -0,0 +1,191 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="awt_XTextComponent" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + +Dim bCB1_textChanged As Boolean +Dim bCB2_textChanged As Boolean + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.awt.XTextComponent +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim oListener1 As Object, oListener2 As Object + Dim vSelection As new com.sun.star.awt.Selection + Dim vSelectionSelection As new com.sun.star.awt.Selection + Dim vGetSelection As new com.sun.star.awt.Selection + Dim vInsertSelection As new com.sun.star.awt.Selection + Dim cGetText As String + Dim len2set As Integer + + Out.Log("create two com.sun.star.awt.XTextListener") + oListener1 = createUNOListener("CB1_", "com.sun.star.awt.XTextListener") + oListener2 = createUNOListener("CB2_", "com.sun.star.awt.XTextListener") + + Test.StartMethod("setText()") + bOK = true + Dim cText As String + cText = "XTextComponent: setText()" + oObj.setText(cText) + Test.StartMethod("getText()") + bOK = bOK AND (cText = oObj.getText()) + Test.MethodTested("setText()", bOK) + Test.MethodTested("getText()", bOK) + + Test.StartMethod("insertText()") + bOK = true + oObj.setText("setSelection") + vInsertSelection.Min = 0 + vInsertSelection.Max = 3 + oObj.insertText(vInsertSelection,"new") + Out.Log("result of getText is: '" + oObj.getText() +"'. It sould be 'newSelection'") + bOK = bOK AND (oObj.getText() = "newSelection") + Test.MethodTested("insertText()", bOK) + + + Test.StartMethod("setSelection()") + bOK = true + vSelectionSelection.Min = 2 + vSelectionSelection.Max = 3 + oObj.setSelection(vSelectionSelection) + Test.StartMethod("getSelection()") + vGetSelection = oObj.getSelection() + bOK = bOK AND (vGetSelection.Min = vSelectionSelection.Min) AND _ + (vGetSelection.Max = vSelectionSelection.Max) + Test.MethodTested("setSelection()", bOK) + Test.MethodTested("getSelection()", bOK) + + Test.StartMethod("getSelectedText()") + bOK = true + oObj.setText("getSelectedText") + vSelectionSelection.Min = 0 + vSelectionSelection.Max = 3 + oObj.setSelection(vSelectionSelection) + Out.Log("result of getSelectedText is: '" + oObj.getSelectedText() +"'. It sould be 'get'") + bOK = bOK AND (oObj.getSelectedText() = "get") + Test.MethodTested("getSelectedText()", bOK) + + Test.StartMethod("setEditable()") + bOK = true + oObj.setEditable(true) + Test.StartMethod("isEditable()") + bOK = bOK AND oObj.isEditable() + oObj.setEditable(false) + bOK = bOK AND NOT oObj.isEditable() + oObj.setEditable(true) + bOK = bOK AND oObj.isEditable() + Test.MethodTested("setEditable()", bOK) + Test.MethodTested("isEditable()", bOK) + + Test.StartMethod("setMaxTextLen()") + bOK = true + if (oObj.getMaxTextLen = 12) then + len2set = 10 + else + len2set = 12 + endif + oObj.setMaxTextLen(len2set) + oObj.setText("0123456789ABCDE") + cGetText = oObj.getText() + Out.Log("result of Len(cGetText) is: '" + Len(cGetText) + "'. It sould be >'" + len2set+"' ") + bOK = bOK AND (Len(cGetText) > len2set) + Test.MethodTested("setMaxTextLen()", bOK) + + Test.StartMethod("getMaxTextLen()") + bOK = true + if (oObj.getMaxTextLen = 12) then + len2set = 10 + else + len2set = 12 + endif + oObj.setMaxTextLen(len2set) + Out.Log("result of getMaxTextLen is: '" + oObj.getMaxTextLen() +"'. It sould be '"+len2set+"'") + bOK = bOK AND (oObj.getMaxTextLen() = len2set) + Test.MethodTested("getMaxTextLen()", bOK) + + bCB1_textChanged = false + bCB2_textChanged = false + + Test.StartMethod("addTextListener()") + bOK = true + oObj.addTextListener(oListener1) + oObj.addTextListener(oListener2) + oObj.setText("addTextListener") + Wait(500) + bOK = bOK AND bCB1_textChanged AND bCB2_textChanged + Test.MethodTested("addTextListener()", bOK) + + bCB1_textChanged = false + bCB2_textChanged = false + + Test.StartMethod("removeTextListener()") + bOK = true + oObj.removeTextListener(oListener1) + oObj.setText("removeTextListener") + Wait(500) + bOK = bOK AND NOT bCB1_textChanged AND bCB2_textChanged + oObj.removeTextListener(oListener2) + Test.MethodTested("removeTextListener()", bOK) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub + +Sub CB1_disposing() +End Sub + +Sub CB2_disposing() +End Sub + +' Listener call backs for com.sun.star.awt.XTextListener +Sub CB1_textChanged + Out.Log("CallBack for Listener1 textChanged was called.") + bCB1_textChanged = true +End Sub +Sub CB2_TextChanged + Out.Log("CallBack for Listener2 textChanged was called.") + bCB2_textChanged = true +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/awt/XTextComponent/script.xlb b/qadevOOo/tests/basic/ifc/awt/XTextComponent/script.xlb new file mode 100644 index 000000000000..d684dbfe551a --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/XTextComponent/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="awt_XTextComponent" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="awt_XTextComponent"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/awt/XTextLayoutConstrains/awt_XTextLayoutConstrains.xba b/qadevOOo/tests/basic/ifc/awt/XTextLayoutConstrains/awt_XTextLayoutConstrains.xba new file mode 100644 index 000000000000..4460b1797620 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/XTextLayoutConstrains/awt_XTextLayoutConstrains.xba @@ -0,0 +1,70 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="awt_XTextLayoutConstrains" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.awt.XTextLayoutConstrains +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim nCols, nLines As Integer + Dim nSize As new com.sun.star.awt.Size + + Test.StartMethod("getMinimumSize()") + bOK = true + nSize = oObj.com_sun_star_awt_XTextLayoutContrains_getMinimumSize(0,0) + bOK = bOK AND (nSize.Width <> 0) AND (nSize.Height <> 0) + Test.MethodTested("getMinimumSize()", bOK) + + Test.StartMethod("getColumnsAndLines()") + bOK = true + oObj.getColumnsAndLines(nCols, nLines) + bOK = bOK AND (nCols <> 0) AND (nLines <> 0) + Test.MethodTested("getColumnsAndLines()", bOK) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/awt/XTextLayoutConstrains/script.xlb b/qadevOOo/tests/basic/ifc/awt/XTextLayoutConstrains/script.xlb new file mode 100644 index 000000000000..93f6fb13380c --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/XTextLayoutConstrains/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="awt_XTextLayoutConstrains" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="awt_XTextLayoutConstrains"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/awt/XTextListener/awt_XTextListener.xba b/qadevOOo/tests/basic/ifc/awt/XTextListener/awt_XTextListener.xba new file mode 100644 index 000000000000..a5a2a5b56d5f --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/XTextListener/awt_XTextListener.xba @@ -0,0 +1,62 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="awt_XTextListener" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.awt.XTextListener +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim tEvent As new com.sun.star.awt.TextEvent + + Test.StartMethod("textChanged()") + bOK = true + oObj.textChanged(tEvent) + Test.MethodTested("textChanged()", bOK) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/awt/XTextListener/script.xlb b/qadevOOo/tests/basic/ifc/awt/XTextListener/script.xlb new file mode 100644 index 000000000000..3fe2449e8555 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/XTextListener/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="awt_XTextListener" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="awt_XTextListener"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/awt/XTimeField/awt_XTimeField.xba b/qadevOOo/tests/basic/ifc/awt/XTimeField/awt_XTimeField.xba new file mode 100644 index 000000000000..15b1847754c7 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/XTimeField/awt_XTimeField.xba @@ -0,0 +1,145 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="awt_XTimeField" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.awt.XTimeField +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim oldVal, newVal As Variant + + Test.StartMethod("getTime()") + Test.StartMethod("setTime()") + bOK = true + oldVal = oObj.getTime() + Out.Log("value before: "+oldVal) + oObj.setTime(oldVal+20) + newVal = oObj.getTime() + Out.Log("value after: "+newVal) + bOK = bOK AND (oldVal <> newVal) + Test.MethodTested("setTime()", bOK) + Test.MethodTested("getTime()", bOK) + + Test.StartMethod("getMin()") + Test.StartMethod("setMin()") + bOK = true + oldVal = oObj.getMin() + Out.Log("value before: "+oldVal) + oObj.setMin(oldVal+20) + newVal = oObj.getMin() + Out.Log("value after: "+newVal) + bOK = bOK AND (oldVal <> newVal) + Test.MethodTested("setMin()", bOK) + Test.MethodTested("getMin()", bOK) + + Test.StartMethod("getMax()") + Test.StartMethod("setMax()") + bOK = true + oldVal = oObj.getMax() + Out.Log("value before: "+oldVal) + oObj.setMax(oldVal+20) + newVal = oObj.getMax() + Out.Log("value after: "+newVal) + bOK = bOK AND (oldVal <> newVal) + Test.MethodTested("setMax()", bOK) + Test.MethodTested("getMax()", bOK) + + Test.StartMethod("getFirst()") + Test.StartMethod("setFirst()") + bOK = true + oldVal = oObj.getFirst() + Out.Log("value before: "+oldVal) + oObj.setFirst(oldVal+20) + newVal = oObj.getFirst() + Out.Log("value after: "+newVal) + bOK = bOK AND (oldVal <> newVal) + Test.MethodTested("setFirst()", bOK) + Test.MethodTested("getFirst()", bOK) + + Test.StartMethod("getLast()") + Test.StartMethod("setLast()") + bOK = true + oldVal = oObj.getLast() + Out.Log("value before: "+oldVal) + oObj.setLast(oldVal+20) + newVal = oObj.getLast() + Out.Log("value after: "+newVal) + bOK = bOK AND (oldVal <> newVal) + Test.MethodTested("setLast()", bOK) + Test.MethodTested("getLast()", bOK) + + + Test.StartMethod("isEmpty()") + Test.StartMethod("setEmpty()") + bOK = true + oldVal = oObj.isEmpty() + if ( NOT oldVal) then + oObj.setEmpty() + bOK = oObj.isEmpty() + endif + Test.MethodTested("setEmpty()", bOK) + Test.MethodTested("isEmpty()", bOK) + + Test.StartMethod("isStrictFormat()") + Test.StartMethod("setStrictFormat()") + bOK = true + oldVal = oObj.isStrictFormat() + Out.Log("value before: "+oldVal) + if (oldVal) then + oObj.setStrictFormat(false) + else + oObj.setStrictFormat(true) + endif + newVal = oObj.isStrictFormat() + Out.Log("value after: "+newVal) + bOK = bOK AND (oldVal <> newVal) + Test.MethodTested("setStrictFormat()", bOK) + Test.MethodTested("isStrictFormat()", bOK) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/awt/XTimeField/script.xlb b/qadevOOo/tests/basic/ifc/awt/XTimeField/script.xlb new file mode 100644 index 000000000000..1f318d574a02 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/XTimeField/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="awt_XTimeField" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="awt_XTimeField"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/awt/XToolkit/awt_XToolkit.xba b/qadevOOo/tests/basic/ifc/awt/XToolkit/awt_XToolkit.xba new file mode 100644 index 000000000000..57afd42d5139 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/XToolkit/awt_XToolkit.xba @@ -0,0 +1,168 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="awt_XToolkit" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.awt.XToolkit +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + Test.StartMethod("getDesktopWindow()") + bOK = true + Dim oWindow As Object + oWindow = oObj.getDesktopWindow() + Out.Log("Desktop window is NULL : " & isNULL(oWindow)) + ' Has "OK" status always, because Desktop component + ' currently is not supported as visible. + Test.MethodTested("getDesktopWindow()", bOK) + + Test.StartMethod("getWorkArea()") + bOK = true + Dim oRect As Object + oRect = oObj.getWorkArea() + Out.Log("WorkArea is NULL : " & isNULL(oRect)) + if (NOT isNULL(oRect)) then + Out.Log("Returned rectangle is: (" & oRect.X & ", " & oRect.Y & ", " & oRect.Width & ", " & oRect.Height & ")") + end if + Test.MethodTested("getWorkArea()", bOK) + + Test.StartMethod("createWindow()") + bOK = true + Dim oWndDescr As new com.sun.star.awt.WindowDescriptor + Dim oBounds As new com.sun.star.awt.Rectangle + oWndDescr.Type = com.sun.star.awt.WindowClass.TOP + oWndDescr.WindowServiceName = "" + oWndDescr.ParentIndex = -1 + oBounds.X = 10 : oBounds.Y = 20 + oBounds.Width = 110 : oBounds.Height = 120 + oWndDescr.Bounds = oBounds + with com.sun.star.awt.WindowAttribute + oWndDescr.WindowAttributes = .CLOSEABLE AND .MOVEABLE AND .SIZEABLE AND .BORDER AND .SHOW + end with + + Dim oWnd As Object + oWnd = oObj.createWindow(oWndDescr) + Out.Log("Window is NULL : " & isNULL(oWnd)) + bOK = bOK AND NOT isNULL(oWnd) + if (bOK) then + bOK = bOK AND hasUnoInterfaces(oWnd, "com.sun.star.awt.XWindowPeer") + if (NOT bOK) then Out.Log("Returned object doesn't support XWindowPeer interface.") + end if + Test.MethodTested("createWindow()", bOK) + + Test.StartMethod("createWindows()") + bOK = true + Dim oWndDescrs(1) As Object + Dim oWndDescr1 As new com.sun.star.awt.WindowDescriptor + Dim oBounds1 As new com.sun.star.awt.Rectangle + oWndDescr1.Type = com.sun.star.awt.WindowClass.TOP + oWndDescr1.WindowServiceName = "" + 'oWndDescr1.Parent = 0 + oWndDescr1.ParentIndex = -1 + oBounds1.X = 10 : oBounds1.Y = 20 + oBounds1.Width = 110 : oBounds1.Height = 120 + oWndDescr1.Bounds = oBounds1 + with com.sun.star.awt.WindowAttribute + oWndDescr1.WindowAttributes = .CLOSEABLE AND .MOVEABLE AND .SIZEABLE AND .BORDER AND .SHOW + end with + Dim oWndDescr2 As new com.sun.star.awt.WindowDescriptor + Dim oBounds2 As new com.sun.star.awt.Rectangle + oWndDescr2.Type = com.sun.star.awt.WindowClass.TOP + oWndDescr2.WindowServiceName = "" + 'oWndDescr2.Parent = 0 + oWndDescr2.ParentIndex = -1 + oBounds2.X = 10 : oBounds2.Y = 20 + oBounds2.Width = 110 : oBounds2.Height = 120 + oWndDescr2.Bounds = oBounds2 + with com.sun.star.awt.WindowAttribute + oWndDescr2.WindowAttributes = .CLOSEABLE AND .MOVEABLE AND .SIZEABLE AND .BORDER AND .SHOW + end with + + oWndDescrs(0) = oWndDescr1 + oWndDescrs(1) = oWndDescr2 + + Dim oWindows As Object + + oWindows = oObj.createWindows(oWndDescrs()) + bOK = bOK AND ubound(oWindows) = 1 + bOK = bOK AND hasUnoInterfaces(oWindows(0), "com.sun.star.awt.XWindowPeer") + bOK = bOK AND hasUnoInterfaces(oWindows(1), "com.sun.star.awt.XWindowPeer") + + Test.MethodTested("createWindows()", bOK) + + Test.StartMethod("createScreenCompatibleDevice()") + bOK = true + Dim oDevice As Object + oDevice = oObj.createScreenCompatibleDevice(123, 456) + Out.Log("Device is NULL : " & isNULL(oDevice)) + bOK = bOK AND NOT isNULL(oDevice) + if (bOK) then + bOK = bOK AND hasUnoInterfaces(oDevice, "com.sun.star.awt.XDevice") + if (NOT bOK) then Out.Log("Returned object doesn't support XDevice interface.") + end if + Test.MethodTested("createScreenCompatibleDevice()", bOK) + + Test.StartMethod("createRegion()") + bOK = true + Dim oRegion As Object + oRegion = oObj.createRegion() + Out.Log("Region is NULL : " & isNULL(oRegion)) + bOK = bOK AND NOT isNULL(oRegion) + if (bOK) then + bOK = bOK AND hasUnoInterfaces(oRegion, "com.sun.star.awt.XRegion") + if (NOT bOK) then Out.Log("Returned object doesn't support XRegion interface.") + if (bOK) then + oRect = oRegion.getBounds + Out.Log("Returned region's bounds are: (" & oRect.X & ", " & oRect.Y & ", " & oRect.Width & ", " & oRect.Height & ")") + end if + end if + + Test.MethodTested("createRegion()", bOK) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/awt/XToolkit/script.xlb b/qadevOOo/tests/basic/ifc/awt/XToolkit/script.xlb new file mode 100644 index 000000000000..24a288f1f84a --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/XToolkit/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="awt_XToolkit" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="awt_XToolkit"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/awt/XTopWindow/awt_XTopWindow.xba b/qadevOOo/tests/basic/ifc/awt/XTopWindow/awt_XTopWindow.xba new file mode 100644 index 000000000000..7e69cee5760b --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/XTopWindow/awt_XTopWindow.xba @@ -0,0 +1,138 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="awt_XTopWindow" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.awt.XTopWindow +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim list1 As Object, list2 As Object + Dim aDoc As Object + + list1 = createUnoListener("L1_", "com.sun.star.awt.XTopWindowListener") + list2 = createUnoListener("L2_", "com.sun.star.awt.XTopWindowListener") + + l1Called = false + l2Called = false + + Test.StartMethod("addTopWindowListener()") + bOK = true + + oObj.addTopWindowListener(list1) + oObj.addTopWindowListener(list2) + + Test.StartMethod("removeTopWindowListener()") + oObj.removeTopWindowListener(list1) + + Out.Log("Creating a doc ...") + aDoc = utils.createDocument("swriter", "Window On Top") + Out.Log("Doc created.") + wait(1000) + + Test.StartMethod("toFront()") + bOK = true + activated = false + deactivated = false + oObj.toFront() + wait(1000) + bOK = bOK AND activated AND NOT deactivated + Test.MethodTested("toFront()", bOK) + + Test.StartMethod("toBack()") + bOK = true + activated = false + deactivated = false + oObj.toBack() + wait(1000) + bOK = bOK AND deactivated AND NOT activated + Test.MethodTested("toBack()", bOK) + + Out.Log("Disposing a doc ...") + aDoc.dispose() + Out.Log("Doc disposed.") + wait(1000) + + bOK = L2Called + Test.MethodTested("addTopWindowListener()", bOK) + bOK = bOK AND NOT L1Called + Test.MethodTested("removeTopWindowListener()", bOK) + + Test.StartMethod("setMenuBar()") + bOK = true + Dim menu As Object + menu = createUnoService("com.sun.star.awt.MenuBar") + menu.insertItem(1, "MenuItem", com.sun.star.awt.MenuItemStyle.CHECKABLE, 1) + oObj.setMenuBar(menu) + Test.MethodTested("setMenuBar()", bOK) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub + +Dim L1Called As Boolean +Dim L2Called As Boolean + +Dim activated As Boolean +Dim deactivated As Boolean + +Sub L1_windowActivated() + L1Called = true +End Sub +Sub L1_windowDeactivated() + L1Called = true +End Sub + +Sub L2_windowActivated() + L2Called = true + activated = true + Out.Log("Activated ...") +End Sub +Sub L2_windowDeactivated() + L2Called = true + deactivated = true + Out.Log("Deactivated ...") +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/awt/XTopWindow/script.xlb b/qadevOOo/tests/basic/ifc/awt/XTopWindow/script.xlb new file mode 100644 index 000000000000..3d6045b6752d --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/XTopWindow/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="awt_XTopWindow" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="awt_XTopWindow"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/awt/XView/awt_XView.xba b/qadevOOo/tests/basic/ifc/awt/XView/awt_XView.xba new file mode 100644 index 000000000000..18911ee8be17 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/XView/awt_XView.xba @@ -0,0 +1,92 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="awt_XView" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + +'************************************************************************* +' This Interface/Service test depends on the following GLOBAL variables, +' which must be specified in the object creation: + +' Global oGraphics as Object + +'************************************************************************* + + + + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.awt.XView +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim oGetGraphics As Object + Dim vSize As Variant + + Test.StartMethod("setGraphics()") + bOK = true + oObj.setGraphics(oGraphics) + Test.StartMethod("getGraphics()") + oGetGraphics = oObj.getGraphics() + bOK = bOK AND hasUnoInterfaces(oGetGraphics , "com.sun.star.awt.XGraphics") + Test.MethodTested("setGraphics()", bOK) + Test.MethodTested("getGraphics()", bOK) + + Test.StartMethod("getSize()") + vSize = oObj.getSize() + bOK = (vSize.Height <> 0) + Test.MethodTested("getSize()", bOK) + + Test.StartMethod("draw()") + bOk = true + oObj.draw(20,20) + Test.MethodTested("draw()", bOK) + + Test.StartMethod("setZoom()") + bOK = true + oObj.setZoom(2,2) + Test.MethodTested("setZoom()", bOK) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/awt/XView/script.xlb b/qadevOOo/tests/basic/ifc/awt/XView/script.xlb new file mode 100644 index 000000000000..b65b2ad1e3ee --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/XView/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="awt_XView" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="awt_XView"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/awt/XWindow/awt_XWindow.xba b/qadevOOo/tests/basic/ifc/awt/XWindow/awt_XWindow.xba new file mode 100644 index 000000000000..175ff95d1ef5 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/XWindow/awt_XWindow.xba @@ -0,0 +1,482 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="awt_XWindow" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + +'************************************************************************* +' This Interface/Service test depends on the following GLOBAL variables, +' which must be specified in the object creation: + + +'************************************************************************* +' Global oXWindow as Object +' Global oCtrlShape as Variant (could be NULL) + + +Dim bCB1_windowResized As Boolean +Dim bCB2_windowResized As Boolean +Dim bCB1_windowMoved As Boolean +Dim bCB2_windowMoved As Boolean +Dim bCB1_windowHidden As Boolean +Dim bCB2_windowHidden As Boolean +Dim bCB1_windowShown As Boolean +Dim bCB2_windowShown As Boolean +Dim bCB1_disposing As Boolean +Dim bCB2_disposing As Boolean +Dim bCB3_focusGained As Boolean +Dim bCB4_focusGained As Boolean +Dim bCB3_focusLost As Boolean +Dim bCB4_focusLost As Boolean + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.awt.XWindow +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + If isNull(oXWindow) Then + Out.Log("Could not get relation 'oXWindow' !") + End If + Dim oListener1 As Object, oListener2 As Object + Dim oListener3 As Object, oListener4 As Object + Dim oListener5 As Object, oListener6 As Object + Dim oListener7 As Object, oListener8 As Object + Dim oListener9 As Object, oListener10 As Object + Dim oListener11 As Object, oListener12 As Object + Dim size As Variant, pos As Variant + + bCB1_windowResized = false + bCB2_windowResized = false + bCB1_windowMoved = false + bCB2_windowMoved = false + bCB1_windowHidden = false + bCB2_windowHidden = false + bCB1_windowShown = false + bCB2_windowShown = false + bCB1_disposing = false + bCB2_disposing = false + bCB3_focusGained = false + bCB4_focusLost = false + bCB3_focusGained = false + bCB4_focusLost = false + + Out.Log("create two com.sun.star.awt.XWindowListener") + oListener1 = createUNOListener("CB1_", "com.sun.star.awt.XWindowListener") + oListener2 = createUNOListener("CB2_", "com.sun.star.awt.XWindowListener") + Out.Log("create two com.sun.star.awt.XFocusListener") + oListener3 = createUNOListener("CB3_", "com.sun.star.awt.XFocusListener") + oListener4 = createUNOListener("CB4_", "com.sun.star.awt.XFocusListener") + Out.Log("create two com.sun.star.awt.XKeyListener") + oListener5 = createUNOListener("CB5_", "com.sun.star.awt.XKeyListener") + oListener6 = createUNOListener("CB6_", "com.sun.star.awt.XKeyListener") + Out.Log("create two com.sun.star.awt.XMouseListener") + oListener7 = createUNOListener("CB7_", "com.sun.star.awt.XMouseListener") + oListener8 = createUNOListener("CB8_", "com.sun.star.awt.XMouseListener") + Out.Log("create two com.sun.star.awt.XMouseMotionListener") + oListener9 = createUNOListener("CB9_", "com.sun.star.awt.XMouseMotinListener") + oListener10 = createUNOListener("CB10_", "com.sun.star.awt.XMouseMotinListener") + Out.Log("create two com.sun.star.awt.XPaintListener") + oListener11 = createUNOListener("CB11_", "com.sun.star.awt.XPaintListener") + oListener12 = createUNOListener("CB12_", "com.sun.star.awt.XPaintListener") + + Test.StartMethod("setPosSize()") + bOK = true + oObj.setPosSize(250,250,250,250,com.sun.star.awt.PosSize.POSSIZE) + Out.Log("oObj.setPosSize(250,250,250,250,com.sun.star.awt.PosSize.POSSIZE") + Test.StartMethod("getPosSize()") + Dim vRectangle As Variant + vRectangle = oObj.getPosSize() + Out.Log("Returned Values: X=" + vRectangle.X + " Y=" + vRectangle.Y _ + + " WIDTH=" + vRectangle.WIDTH + " HEIGTH=" + vRectangle.HEIGHT + bOK = bOK AND vRectangle.X = 250 + bOK = bOK AND vRectangle.Y = 250 + bOK = bOK AND vRectangle.Width = 250 + bOK = bOK AND vRectangle.Height = 250 + Test.MethodTested("setPosSize()", bOK) + Test.MethodTested("getPosSize()", bOK) + + Test.StartMethod("setVisible()") + bOK = true + oObj.setVisible(false) + oObj.setVisible(true) + Test.MethodTested("setVisible()", bOK) + + Test.StartMethod("setEnable()") + bOK = true + oObj.setEnable(false) + oObj.setEnable(true) + Test.MethodTested("setEnable()", bOK) + + Test.StartMethod("setFocus()") + bOK = true + oObj.setFocus() + oXWindow.setFocus() + oObj.setFocus() + Test.MethodTested("setFocus()", bOK) + + Test.StartMethod("addWindowListener()") + bOK = true + oObj.addWindowListener(oListener1) + oObj.addWindowListener(oListener2) + oObj.setVisible(false) + oObj.setVisible(true) + if NOT isNull(oCtrlShape) then + size = oCtrlShape.Size + size.Width = size.Width + 100 + size.Height = size.Height + 100 + oCtrlShape.Size = size + + pos = oCtrlShape.Position + pos.X = pos.X + 100 + pos.Y = pos.Y + 100 + oCtrlShape.Position = pos + else + Out.Log("oObj.setPosSize(300,300,300,300,com.sun.star.awt.PosSize.POSSIZE)") + oObj.setPosSize(300,300,300,300,com.sun.star.awt.PosSize.POSSIZE) + end if + wait(1000) + bOK = bOK AND bCB1_windowResized AND bCB2_windowResized AND bCB1_windowMoved AND _ + bCB2_windowMoved AND bCB1_windowHidden AND bCB2_windowHidden AND _ + bCB1_windowShown AND bCB2_windowShown AND NOT bCB1_disposing AND NOT _ + bCB2_disposing + Test.MethodTested("addWindowListener()", bOK) + + Test.StartMethod("removeWindowListener()") + bOK = true + bCB1_windowResized = false + bCB2_windowResized = false + bCB1_windowMoved = false + bCB2_windowMoved = false + bCB1_windowHidden = false + bCB2_windowHidden = false + bCB1_windowShown = false + bCB2_windowShown = false + bCB1_disposing = false + bCB2_disposing = false + oObj.removeWindowListener(oListener2) + oObj.setVisible(false) + oObj.setVisible(true) + oObj.setVisible(false) + oObj.setVisible(true) + if NOT isNull(oCtrlShape) then + size = oCtrlShape.Size + size.Width = size.Width + 100 + size.Height = size.Height + 100 + oCtrlShape.Size = size + + pos = oCtrlShape.Position + pos.X = pos.X + 100 + pos.Y = pos.Y + 100 + oCtrlShape.Position = pos + else + Out.Log("oObj.setPosSize(300,300,300,300,com.sun.star.awt.PosSize.POSSIZE)") + oObj.setPosSize(301,301,301,301,com.sun.star.awt.PosSize.POSSIZE) + end if + wait(200) + bOK = bOK AND bCB1_windowResized AND NOT bCB2_windowResized AND bCB1_windowMoved AND NOT _ + bCB2_windowMoved AND bCB1_windowHidden AND NOT bCB2_windowHidden AND _ + bCB1_windowShown AND NOT bCB2_windowShown AND NOT bCB1_disposing AND NOT _ + bCB2_disposing + oObj.removeWindowListener(oListener1) + Test.MethodTested("removeWindowListener()", bOK) + + Test.StartMethod("addFocusListener()") + bOK = true + oObj.addFocusListener(oListener3) + oObj.addFocusListener(oListener4) + oObj.setFocus() + wait(200) + oXWindow.setFocus() + wait(200) + oObj.setFocus() + wait(200) + bOK = bOK AND bCB3_focusGained AND bCB4_focusLost AND bCB3_focusGained AND bCB4_focusLost + Test.MethodTested("addFocusListener()", bOK) + + Test.StartMethod("removeFocusListener()") + bOK = true + bCB3_focusGained = false + bCB4_focusLost = false + bCB3_focusGained = false + bCB4_focusLost = false + oObj.removeFocusListener(oListener4) + oObj.setFocus() + wait(200) + oXWindow.setFocus() + wait(200) + oObj.setFocus() + wait(200) + bOK = bOK AND bCB3_focusGained AND NOT bCB4_focusLost AND bCB3_focusGained AND NOT bCB4_focusLost + oObj.removeFocusListener(oListener3) + Test.MethodTested("removeFocusListener()", bOK) + +'*************************************************************************************** +'* LISTENERS which needs interactions * +'*************************************************************************************** +'* +'* The following listener tests need interactions. That means i.e. a +'* com.sun.star.awt.XKeyListener needs action from the keyboard. This is not possible in +'* the automatic API-Testing. To test the listener you can set a breakpoint at the +'* specific function call. Then do interaction which should call the listener. It must be +'* pop up a message box. +'* +'*************************************************************************************** + + Test.StartMethod("addKeyListener()") + bOK = true + Out.Log("Not realy tested! Please see comments in Basic-Source.") + oObj.addKeyListener(oListener5) + oObj.addKeyListener(oListener6) + bOK = bOK AND true + Test.MethodTested("addKeyListener()", bOK) + + Test.StartMethod("removeKeyListener()") + bOK = true + Out.Log("Not realy tested! Please see comments in Basic-Source.") + oObj.removeKeyListener(oListener5) + bOK = bOK AND true + oObj.removeKeyListener(oListener6) + Test.MethodTested("removeKeyListener()", bOK) + + Test.StartMethod("addMouseListener()") + bOK = true + Out.Log("Not realy tested! Please see comments in Basic-Source.") + oObj.addMouseListener(oListener7) + oObj.addMouseListener(oListener8) + bOK = bOK AND true + Test.MethodTested("addMouseListener()", bOK) + + Test.StartMethod("removeMouseListener()") + bOK = true + Out.Log("Not realy tested! Please see comments in Basic-Source.") + oObj.removeMouseListener(oListener7) + bOK = bOK AND true + oObj.removeMouseListener(oListener8) + Test.MethodTested("removeMouseListener()", bOK) + + Test.StartMethod("addMouseMotionListener()") + bOK = true + Out.Log("Not realy tested! Please see comments in Basic-Source.") + oObj.addMouseMotionListener(oListener9) + oObj.addMouseMotionListener(oListener10) + bOK = bOK AND true + Test.MethodTested("addMouseMotionListener()", bOK) + + Test.StartMethod("removeMouseMotionListener()") + bOK = true + Out.Log("Not realy tested! Please see comments in Basic-Source.") + oObj.removeMouseMotionListener(oListener9) + bOK = bOK AND true + oObj.removeMouseMotionListener(oListener10) + Test.MethodTested("removeMouseMotionListener()", bOK) + + Test.StartMethod("addPaintListener()") + bOK = true + Out.Log("Not realy tested! Please see comments in Basic-Source.") + oObj.addPaintListener(oListener11) + oObj.addPaintListener(oListener12) + bOK = bOK AND true + Test.MethodTested("addPaintListener()", bOK) + + Test.StartMethod("removePaintListener()") + bOK = true + Out.Log("Not realy tested! Please see comments in Basic-Source.") + oObj.removePaintListener(oListener11) + bOK = bOK AND true + oObj.removePaintListener(oListener12) + Test.MethodTested("removePaintListener()", bOK) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub + +' Listener call backs for com.sun.star.awt.XWindowListener +Sub CB1_windowResized + Out.Log("CallBack for Listener1 windowResized was called.") + bCB1_windowResized = true +End Sub +Sub CB2_windowResized + Out.Log("CallBack for Listener2 windowResized was called.") + bCB2_windowResized = true +End Sub +Sub CB1_windowMoved + Out.Log("CallBack for Listener1 windowMoved was called.") + bCB1_windowMoved = true +End Sub +Sub CB2_windowMoved + Out.Log("CallBack for Listener2 windowMoved was called.") + bCB2_windowMoved = true +End Sub +Sub CB1_windowHidden + Out.Log("CallBack for Listener1 windowHidden was called.") + bCB1_windowHidden = true +End Sub +Sub CB2_windowHidden + Out.Log("CallBack for Listener2 windowHidden was called.") + bCB2_windowHidden = true +End Sub +Sub CB1_windowShown + Out.Log("CallBack for Listener1 windowShown was called.") + bCB1_windowShown = true +End Sub +Sub CB2_windowShown + Out.Log("CallBack for Listener2 windowShown was called.") + bCB2_windowShown = true +End Sub +Sub CB1_disposing + Out.Log("CallBack for Listener1 disposing was called") + bCB1_disposing = true +End Sub +Sub CB2_disposing + Out.Log("CallBack for Listener2 disposing was called") + bCB2_disposing = true +End Sub + +' Listener call backs for com.sun.star.awt.XFocusListener +Sub CB3_focusGained + Out.Log("CallBack for Listener3 'focusGained' was called") + bCB3_focusGained = true +End Sub +Sub CB4_focusGained + Out.Log("CallBack for Listener4 'focusGained' was called") + bCB4_focusGained = true +End Sub +Sub CB3_focusLost + Out.Log("CallBack for Listener3 'focusLost' was called") + bCB3_focusLost = true +End Sub +Sub CB4_focusLost + Out.Log("CallBack for Listener4 'focusLost' was called") + bCB4_focusLost = true +End Sub +Sub CB3_disposing +End Sub +Sub CB4_disposing +End Sub + +' Listener call backs for com.sun.star.awt.XKeyListener +' They will never be called beause of no interaction in API-Testing +Sub CB5_keyPressed + MsgBox("CallBack for Listener5 'keyPressed' was called") +End Sub +Sub CB6_keyPressed + MsgBox("CallBack for Listener6 'keyPressed' was called") +End Sub +Sub CB5_keyReleased + MsgBox("CallBack for Listener5 'keyReleased' was called") +End Sub +Sub CB6_keyReleased + MsgBox("CallBack for Listener6 'keyReleased' was called") +End Sub +Sub CB5_disposing +End Sub +Sub CB6_disposing +End Sub + + +' Listener call backs for com.sun.star.awt.XMouseListener +' They will never be called beause of no interaction in API-Testing +Sub CB7_mousePressed + MsgBox("CallBack for Listener7 'mousePressed' was called") +End Sub +Sub CB8_mousePressed + MsgBox("CallBack for Listener8 'mousePressed' was called") +End Sub +Sub CB7_mouseReleased + MsgBox("CallBack for Listener8 'mouseReleased' was called") +End Sub +Sub CB8_mouseReleased + MsgBox("CallBack for Listener8 'mouseReleased' was called") +End Sub +Sub CB7_mouseEntered + MsgBox("CallBack for Listener7 'mouseEntered' was called") +End Sub +Sub CB8_mouseEntered + MsgBox("CallBack for Listener8 'mouseEntered' was called") +End Sub +Sub CB7_mouseExited + MsgBox("CallBack for Listener7 'mouseExited' was called") +End Sub +Sub CB8_mouseExited + MsgBox("CallBack for Listener8 'mouseExited' was called") +End Sub +Sub CB7_disposing +End Sub +Sub CB8_disposing +End Sub + + +' Listener call backs for com.sun.star.awt.XMouseMotionListener +' They will never be called beause of no interaction in API-Testing +Sub CB9_mouseDragged + MsgBox("CallBack for Listener9 'mouseDragged' was called") +End Sub +Sub CB10_mouseDragged + MsgBox("CallBack for Listener10 'mouseDragged' was called") +End Sub +Sub CB9_mouseMoved + MsgBox("CallBack for Listener9 'mouseMoved' was called") +End Sub +Sub CB10_mouseMoved + MsgBox("CallBack for Listener10 'mouseMoved' was called") +End Sub +Sub CB9_disposing +End Sub +Sub CB10_disposing +End Sub + + +' Listener call backs for com.sun.star.awt.XMouseMotionListener +' They will never be called beause of no interaction in API-Testing +Sub CB11_windowPaint + MsgBox("CallBack for Listener11 'windowPaint' was called") +End Sub +Sub CB12_windowPaint + MsgBox("CallBack for Listener12 'windowPaint' was called") +End Sub +Sub CB11_disposing +End Sub +Sub CB12_disposing +End Sub + +</script:module> diff --git a/qadevOOo/tests/basic/ifc/awt/XWindow/script.xlb b/qadevOOo/tests/basic/ifc/awt/XWindow/script.xlb new file mode 100644 index 000000000000..4ae24a18c765 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/XWindow/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="awt_XWindow" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="awt_XWindow"/> +"</library:library> |