'encoding UTF-8 Do not remove or change this line! '************************************************************************* ' ' Licensed to the Apache Software Foundation (ASF) under one ' or more contributor license agreements. See the NOTICE file ' distributed with this work for additional information ' regarding copyright ownership. The ASF licenses this file ' to you under the Apache License, Version 2.0 (the ' "License"); you may not use this file except in compliance ' with the License. You may obtain a copy of the License at ' ' http://www.apache.org/licenses/LICENSE-2.0 ' ' Unless required by applicable law or agreed to in writing, ' software distributed under the License is distributed on an ' "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY ' KIND, either express or implied. See the License for the ' specific language governing permissions and limitations ' under the License. ' '************************************************************************* '* '* short description : Control Serveral Part 1 - check each control and each property '* '\*********************************************************************** sub ctrl_Several1 call fSwitchAutopilotOff(true) ' has to run first to switch off the autopilot call tCheckBox ' tested properties: Tristate, Enabled, Label field call tTextBox ' tested properties: Background color, Additional Info, Scrollbars, Password call tFormattedField ' tested properties: Value max, Value min, Formatting call tPushButton ' tested properties: Graphic, Alignment, Default button, Toggle, Take Focus call tOptionButton ' tested properties: Print, Reference value, Default status call tListBox ' tested properties: Line count, Multiselection, List Entries, Default selection call tComboBox ' tested properties: Auto fill, Max text length, Hide selection, Border color call tLabelField ' tested properties: Alignment, Help text call fSwitchAutopilotOff(false) end sub '-------------------------------------------------------------------------------------- ' todo: testcase: tTextBox and tLabelFild contain 'multiline' settings, but HelpID disappeared - has to be reworked '-------------------------------------------------------------------------------------- testcase tCheckBox '/// Open a new document, printlog "Open a new document," call hNewDocument Kontext "DocumentWriter" DocumentWriter.TypeKeys "tt_doc" , true sleep(1) Kontext "FormControls" addControl("Label", 40, 30, 50, 40) addControl("CheckBox", 55, 30, 65, 40 ) call fOpenControlPropertyBrowser Kontext "ControlPropertiesTabControl" ControlPropertiesTabControl.setPage TabGeneralControl 'make shure that tabpage general in property is choosen sleep(2) '/// set properties: Label - therefore needed: a present label field printlog "set properties: Label - therefore needed: a present label field" Kontext "TabGeneralControl" LabelFieldButton.Click sleep(1) Kontext "LabelFieldSelection" LabelFieldSelection.TypeKeys "",TRUE LabelFieldSelection.TypeKeys "",TRUE sleep(1) LabelFieldSelection.OK sleep(1) '/// set properties: Tristate, Enabled call fSetControlProperty("CheckBox","TriState","2") sleep(1) call fSetControlProperty("CheckBox","Enabled","1") 'listbox property: no sleep(1) '/// close control property browser Kontext "ControlPropertiesDialog" ControlPropertiesDialog.close sleep(1) '/// save the document printlog "save the document" hFileSaveAsKill ( gOfficePath + ConvertPath("user/work/TT_CheckBox.odt")) hCloseDocument sleep(1) '/// reload the document printlog "reload the document" hFileOpen ( gOfficePath + ConvertPath("user/work/TT_CheckBox.odt")) call fSwitchControlDesignMode() Kontext "DocumentWriter" DocumentWriter.TypeKeys "" sleep(1) DocumentWriter.TypeKeys "" ' select the second control sleep(1) call fOpenControlPropertyBrowser '/// check if the values are saved printlog "check if the values are saved" sleep(2) Kontext "TabGeneralControl" TabGeneralControl.TypeKeys "" , true ' this tab is importent, I don't not why but it is. sleep(1) if fGetControlProperty("CheckBox","TriState") <> "2" then warnlog "the value 'tristate' is not saved correctly" endif if fGetControlProperty("CheckBox","Enabled") <> "1" then warnlog "the value 'enabled' is not saved correctly" endif printlog "property character set text: " & LabelField.getText if LabelField.getText = "" then warnlog "the value 'label' is not saved correctly" endif call closePropertyBrowserAndDocument() endcase '-------------------------------------------------------------------------------------- testcase tTextBox '/// Open a new document, printlog "Open a new document," call hNewDocument Kontext "DocumentWriter" DocumentWriter.TypeKeys "tt_doc" , true sleep(1) Kontext "FormControls" addControl("Edit", 40, 40, 30, 30) call fOpenControlPropertyBrowser Kontext "ControlPropertiesTabControl" ControlPropertiesTabControl.setPage TabGeneralControl 'make shure that tabpage general in property is choosen sleep(2) '/// set properties: Background color, Additional Info, Scrollbars, Password printlog "set properties" call fSetControlProperty("TextBox","Background","92") call fSetControlProperty("TextBox","AdditionalInfo","my only friend the end.") call fSetControlProperty("TextBox","TextType","2") 'needed for activate scrollbar call fSetControlProperty("TextBox","Scrollbars","4") call fSetControlProperty("TextBox","TextType","1") 'needed for activate password call fSetControlProperty("TextBox","Password","p") '/// close control property browser Kontext "ControlPropertiesDialog" ControlPropertiesDialog.close '/// save the document printlog "save the document" hFileSaveAsKill ( gOfficePath + ConvertPath("user/work/TT_TextBox.odt")) hCloseDocument sleep(1) '/// reload the document printlog "reload the document" hFileOpen ( gOfficePath + ConvertPath("user/work/TT_TextBox.odt")) call fSwitchControlDesignMode() Kontext "DocumentWriter" DocumentWriter.TypeKeys "" sleep(1) call fOpenControlPropertyBrowser '/// check if the values are saved printlog "check if the values are saved" sleep(2) Kontext "TabGeneralControl" TabGeneralControl.TypeKeys "" , true ' this tab is importent, I don't not why but it is. if fGetControlProperty("TextBox","Background") <> "92" then warnlog "the value: background is not saved" endif if fGetControlProperty("TextBox","AdditionalInfo") <> "my only friend the end." then warnlog "the AdditionalInfo value is not saved" endif call fSetControlProperty("TextBox","TextType","2") 'needed for activate scrollbar sleep(1) if fGetControlProperty("TextBox","Scrollbars") <> "4" then warnlog "the value: Scrollbars are not saved" endif call fSetControlProperty("TextBox","TextType","1") 'needed for activate password sleep(1) if fGetControlProperty("TextBox","Password") <> "p" then warnlog "the value: Password is not saved" endif call closePropertyBrowserAndDocument() endcase '-------------------------------------------------------------------------------------- testcase tFormattedField '/// Open a new document, printlog "Open a new document," call hNewDocument Kontext "DocumentWriter" DocumentWriter.TypeKeys "tt_doc" , true sleep(1) Kontext "FormControls" addControl("FormattedField", 50, 20, 60, 30) call fOpenControlPropertyBrowser Kontext "ControlPropertiesTabControl" ControlPropertiesTabControl.setPage TabGeneralControl 'make shure that tabpage general in property is choosen sleep(2) '/// set ValueMin to 2 and ValueMax to 9 and any Formatting printlog "set ValueMin to 2 and ValueMax to 9 and any Formatting" Kontext "TabGeneralControl" 'set any formatting FormatkeyButton.Click Kontext "TabZahlen" TabZahlen.TypeKeys "", true TabZahlen.TypeKeys "", true sleep(1) fsetControlProperty("FormattedField","ValueMax","9") sleep(1) fsetControlProperty("FormattedField","ValueMin","2") '/// close control property browser Kontext "ControlPropertiesDialog" ControlPropertiesDialog.close '/// save the document printlog "save the document" hFileSaveAsKill ( gOfficePath + ConvertPath("user/work/TT_FormattedField.odt")) hCloseDocument sleep(1) '/// reload the document printlog "reload the document" hFileOpen ( gOfficePath + ConvertPath("user/work/TT_FormattedField.odt")) call fSwitchControlDesignMode() Kontext "DocumentWriter" DocumentWriter.TypeKeys "" sleep(1) call fOpenControlPropertyBrowser '/// check if the values are saved printlog "check if the values are saved" sleep(2) Kontext "TabGeneralControl" TabGeneralControl.TypeKeys "" , true ' this tab is importent, I don't not why but it is. if fgetControlProperty("FormattedField","ValueMax") = "" then warnlog "the value ValueMax is not saved" endif if fgetControlProperty("FormattedField","ValueMin") = "" then warnlog "the value ValueMin is not saved" endif if fgetControlProperty("FormattedField","Formatkey") = "" then warnlog "the value ValueMin is not saved" endif call closePropertyBrowserAndDocument() endcase '-------------------------------------------------------------------------------------- testcase tPushButton '/// Open a new document, printlog "Open a new document," call hNewDocument Kontext "DocumentWriter" DocumentWriter.TypeKeys "tt_doc" , true sleep(1) Kontext "FormControls" addControl("PushButton", 50, 20, 60, 30) call fOpenControlPropertyBrowser Kontext "ControlPropertiesTabControl" ControlPropertiesTabControl.setPage TabGeneralControl 'make shure that tabpage general in property is choosen sleep(2) '/// set a graphic for this button printlog "set a graphic for this button" Kontext "TabGeneralControl" call fSetControlProperty("PushButton","Graphics", gOfficePath + ConvertPath("share/gallery/bullets/blkpearl.gif")) '/// set further properties: default button, toggle, graphics alignment printlog "set further properties" call fSetControlProperty("PushButton","DefaultButton","2") 'listbox property: yes call fSetControlProperty("PushButton","ToggleProp","2") 'listbox property: yes call fSetControlProperty("PushButton","GraphicsAlignment","5") call fSetControlProperty("PushButton","TakeFocus","1") '/// close control property browser Kontext "ControlPropertiesDialog" ControlPropertiesDialog.close '/// save the document printlog "save the document" hFileSaveAsKill ( gOfficePath + ConvertPath("user/work/TT_PushButton.odt")) hCloseDocument sleep(1) '/// reload the document printlog "reload the document" hFileOpen ( gOfficePath + ConvertPath("user/work/TT_PushButton.odt")) '/// check if the graphic still displayed printlog "check if the graphic still displayed" call fSwitchControlDesignMode() Kontext "DocumentWriter" DocumentWriter.TypeKeys "" sleep(1) call fOpenControlPropertyBrowser '/// check if everything is saved right printlog "check if everything is saved right" dim bScrOK as boolean 'control variable if all properties are correct bScrOK = true dim sGraphics as String 'variable for graphics path 'check if the graphic is saved sGraphics = fGetControlProperty("PushButton","Graphics") if Right(sGraphics,12) <> "blkpearl.gif" then warnlog "The graphics file name is not saved" bScrOK = false endif if fGetControlProperty("PushButton","GraphicsAlignment") <> "5" then warnlog "the pushbutton is not saved with property: Graphics Alignment" bScrOK = false endif 'check if the default button is saved if fGetControlProperty("PushButton","DefaultButton") <> "2" then warnlog "the pushbutton is not saved with property: Default Button" bScrOK = false endif if fGetControlProperty("PushButton","ToggleProp") <> "2" then warnlog "the pushbutton is not saved with property: Toggle" bScrOK = false endif if fGetControlProperty("PushButton","TakeFocus") <> "1" then warnlog "the pushbutton is not saved with property: Take Focus on click" bScrOK = false endif sleep(1) if bScrOK = true then printlog "Pushbutton was saved correctly" call closePropertyBrowserAndDocument() endcase '-------------------------------------------------------------------------------------- testcase tOptionButton '/// Open a new document, printlog "Open a new document," call hNewDocument Kontext "DocumentWriter" DocumentWriter.TypeKeys "tt_doc" , true sleep(1) Kontext "FormControls" addControl("RadioButton", 50, 20, 60, 30) call fOpenControlPropertyBrowser Kontext "ControlPropertiesTabControl" ControlPropertiesTabControl.setPage TabGeneralControl 'make shure that tabpage general in property is choosen sleep(2) '/// set properties: Print, Reference value, Default status printlog "set properties" call fSetControlProperty("Radiobutton","Printable","1") 'listbox property: no call fSetControlProperty("Radiobutton","ReferenceValue","777") call fSetControlProperty("Radiobutton","DefaultState","2") 'listbox property: selected '/// close control property browser Kontext "ControlPropertiesDialog" ControlPropertiesDialog.close '/// save the document printlog "save the document" hFileSaveAsKill ( gOfficePath + ConvertPath("user/work/TT_Optionbutton.odt")) hCloseDocument sleep(1) '/// reload the document printlog "reload the document" hFileOpen ( gOfficePath + ConvertPath("user/work/TT_Optionbutton.odt")) call fSwitchControlDesignMode() Kontext "DocumentWriter" DocumentWriter.TypeKeys "" sleep(1) call fOpenControlPropertyBrowser '/// check if property values are inserted printlog "check if property values are inserted" Kontext "TabGeneralControl" dim bScrOK as boolean 'control variable if all properties are correct bScrOK = true if fGetControlProperty("Radiobutton","Printable") <> "1" then warnlog "the Optionbutton is not saved with property: Print" bScrOK = false endif if fGetControlProperty("Radiobutton","ReferenceValue") <> "777" then warnlog "the Optionbutton is not saved with property: ReferenceValue" bScrOK = false endif if fGetControlProperty("Radiobutton","DefaultState") <> "2" then warnlog "the Optionbutton is not saved with property: ReferenceValue" bScrOK = false endif if bScrOK = true then printlog "Optionbutton was saved correctly" call closePropertyBrowserAndDocument() endcase '-------------------------------------------------------------------------------------- testcase tListBox '/// Open a new document, printlog "Open a new document," call hNewDocument Kontext "DocumentWriter" DocumentWriter.TypeKeys "tt_doc" , true sleep(1) Kontext "FormControls" addControl("ListBox", 50, 20, 60, 30) call fOpenControlPropertyBrowser Kontext "ControlPropertiesTabControl" ControlPropertiesTabControl.setPage TabGeneralControl 'make shure that tabpage general in property is choosen sleep(2) '/// set properties: default selection, line count, list entries, multiselection printlog "set properties" Kontext "TabGeneralControl" 'set property: list entries call fSetControlProperty("ListBox","ListEntries","My only friend the end.") 'set property: line count call fSetControlProperty("ListBox","DropDown","2") 'needed for activate line count sleep (1) call fSetControlProperty("ListBox","LineCount","10") sleep (1) 'set property: multiselection call fSetControlProperty("ListBox","Multiselection","2") 'yes sleep (1) 'set property: default selection call fSetControlProperty("ListBox","DefaultSelection2","88") '/// close control property browser Kontext "ControlPropertiesDialog" ControlPropertiesDialog.close '/// save the document printlog "save the document" hFileSaveAsKill ( gOfficePath + ConvertPath("user/work/TT_ListBox.odt")) hCloseDocument sleep(1) '/// reload the document printlog "reload the document" hFileOpen ( gOfficePath + ConvertPath("user/work/TT_ListBox.odt")) call fSwitchControlDesignMode() Kontext "DocumentWriter" DocumentWriter.TypeKeys "" sleep(1) call fOpenControlPropertyBrowser '/// check if property values are inserted printlog "check if property values are inserted" Kontext "TabGeneralControl" dim bScrOK as boolean 'control variable if all properties are correct bScrOK = true '(special field - cannot be read out) 'if fGetControlProperty("ListBox","ListEntries") = "" then 'warnlog "the listbox is not saved with property: ListEntries" 'bScrOK = false 'endif '(special field - cannot be read out) 'if fGetControlProperty("ListBox","DefaultSelection2") = "" then 'warnlog "the listbox is not saved with property: DefaultSelection2" 'bScrOK = false 'endif if fGetControlProperty("ListBox","LineCount") <> "10" then warnlog "the listbox is not saved with property: LineCount" bScrOK = false endif if fGetControlProperty("ListBox","Multiselection") <> "2" then warnlog "the listbox is not saved with property: Multiselection" bScrOK = false endif if bScrOK = true then printlog "listbox was saved correctly" call closePropertyBrowserAndDocument() endcase '-------------------------------------------------------------------------------------- testcase tComboBox '/// Open a new document, printlog "Open a new document," call hNewDocument Kontext "DocumentWriter" DocumentWriter.TypeKeys "tt_doc" , true sleep(1) Kontext "FormControls" addControl("ComboBox", 50, 20, 60, 30) call fOpenControlPropertyBrowser Kontext "ControlPropertiesTabControl" ControlPropertiesTabControl.setPage TabGeneralControl 'make shure that tabpage general in property is choosen sleep(2) '/// set properties: Auto fill, Max text length, Hide Selection, Border color printlog "set properties" Kontext "TabGeneralControl" call fSetControlProperty("ComboBox","MaxTextLen","6") call fSetControlProperty("ComboBox","AutoComplete","1") 'no call fSetControlProperty("ComboBox","HideSelection","1") 'no call fSetControlProperty("ComboBox","Border","3") 'needed to activate Border Color call fSetControlProperty("ComboBox","BorderColor","13") '/// close control property browser Kontext "ControlPropertiesDialog" ControlPropertiesDialog.close '/// save the document printlog "save the document" hFileSaveAsKill ( gOfficePath + ConvertPath("user/work/TT_ComboBox.odt")) hCloseDocument sleep(1) '/// reload the document printlog "reload the document" hFileOpen ( gOfficePath + ConvertPath("user/work/TT_ComboBox.odt")) call fSwitchControlDesignMode() Kontext "DocumentWriter" DocumentWriter.TypeKeys "" sleep(1) call fOpenControlPropertyBrowser '/// check if property values are inserted printlog "check if property values are inserted" Kontext "TabGeneralControl" dim bScrOK as boolean 'control variable if all properties are correct bScrOK = true if fGetControlProperty("ComboBox","MaxTextLen") <> "6" then warnlog "the combobox is not saved with property: MaxTextLen" bScrOK = false endif if fGetControlProperty("ComboBox","AutoComplete") <> "1" then warnlog "the combobox is not saved with property: AutoComplete" bScrOK = false endif if fGetControlProperty("ComboBox","HideSelection") <> "1" then warnlog "the combobox is not saved with property: Hide Selection" bScrOK = false endif if fGetControlProperty("ComboBox","BorderColor") <> "13" then warnlog "the combobox is not saved with property: Border Color" bScrOK = false endif if bScrOK = true then printlog "Combobox was saved correctly" call closePropertyBrowserAndDocument() endcase '-------------------------------------------------------------------------------------- testcase tLabelField '/// Open a new document, printlog "Open a new document," call hNewDocument Kontext "DocumentWriter" DocumentWriter.TypeKeys "tt_doc" , true sleep(1) Kontext "FormControls" addControl("Label", 50, 20, 60, 30) call fOpenControlPropertyBrowser Kontext "ControlPropertiesTabControl" ControlPropertiesTabControl.setPage TabGeneralControl 'make shure that tabpage general in property is choosen sleep(2) '/// set properties: alignment, multiline, help text printlog "set properties" call fSetControlProperty("LabelField","Align","4") 'set to right call fSetControlProperty("LabelField","HelpText","Filled in Text") '/// close control property browser Kontext "ControlPropertiesDialog" ControlPropertiesDialog.close '/// save the document printlog "save the document" hFileSaveAsKill ( gOfficePath + ConvertPath("user/work/TT_LabelField.odt")) hCloseDocument sleep(1) '/// reload the document printlog "reload the document" hFileOpen ( gOfficePath + ConvertPath("user/work/TT_LabelField.odt")) call fSwitchControlDesignMode() Kontext "DocumentWriter" DocumentWriter.TypeKeys "" sleep(1) call fOpenControlPropertyBrowser '/// check if the values are saved printlog "check if the values are saved" sleep(2) Kontext "TabGeneralControl" TabGeneralControl.TypeKeys "" , true ' this tab is importent, I don't not why but it is. if fGetControlProperty("LabelField","Align") <> "4" then warnlog "the value: align is not saved" endif if fGetControlProperty("LabelField","HelpText") <> "Filled in Text" then warnlog "the value: HelpText is not saved" endif call closePropertyBrowserAndDocument() endcase