'encoding UTF-8 Do not remove or change this line! '************************************************************************** ' 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 ' ' for a copy of the LGPLv3 License. ' '/************************************************************************ '* '* owner : marc.neumann@oracle.com '* '* short description : Data Source Administrator '* '\*********************************************************************** sub ctrl_General call tLoad_Save_Print call tAutomaticControlFocus1 call tAutomaticControlFocus2' call tPosAndSize_Protect_Position call tPosAndSize_Protect_Size call tPosAndSize_Keyboard call tPosAndSize_Dialog call tPosAndSize_KeepRatio 'TODO Control the Setting on tabpage Rotation & Slant (should be inactive). call tTabStop call tActivationOrder call tAddFields end sub '-------------------------------------------------------------------------------------- testcase tLoad_Save_Print dim iXMLElementCount as integer dim i as integer '/// Load the document TT_All_Controls.odt hFileOpen ( gTesttoolPath + ConvertPath("dbaccess/optional/input/TT_All_Controls.odt")) 'TODO: Are all controlls shown right (color, fonts etc.)? '/// save the doc under a diffrent name. hFileSaveAsKill ( gOfficePath + ConvertPath("user/work/TT_All_Controls.odt")) '/// Reload & compare it with the origin doc. hCloseDocument hFileOpen ( gOfficePath + ConvertPath("user/work/TT_All_Controls.odt")) hCloseDocument 'TODO: Print the doc & compare it with the origin. '(Attention: Background can't be printed colored (Task: 57223)). endcase '-------------------------------------------------------------------------------------- testcase tAutomaticControlFocus1 '/// Open a new document, printlog "Open a new document," call hNewDocument Kontext "DocumentWriter" DocumentWriter.TypeKeys "tt_doc" , true sleep(1) call hToolbarSelect("FormControls",true) Kontext "FormControls" Edit.Click sleep(2) '/// insert a Text Boxes printlog "insert three Text Boxes" call hDrawingWithSelection ( 40, 40, 55, 55 ) sleep(2) Kontext "FormControls" ControlProperties.Click sleep(2) fSetControlProperty("Edit","DefaultValue","tt_control") sleep(1) '/// activate the Automatic control focus. printlog "activate the Automatic control focus." call hToolbarSelect("FormDesignTools",true) Kontext "FormDesignTools" AutoControlFocus.Click sleep(2) '/// save the document printlog "save the document" hFileSaveAsKill ( gOfficePath + ConvertPath("user/work/TT_Control_Test1.odt")) sleep(1) hCloseDocument sleep(1) '/// reload the document printlog "reload the document" hFileOpen ( gOfficePath + ConvertPath("user/work/TT_Control_Test1.odt")) ' /// check if the control has the focus after reload. printlog " check if the second control has the focus after reload." Kontext "DocumentWriter" DocumentWriter.TypeKeys "" , true sleep(1) DocumentWriter.TypeKeys "" , true sleep(1) DocumentWriter.TypeKeys "" , true sleep(1) if GetClipboard <> "tt_control" then warnlog "The control has not the focus. The document has the focus." endif hCloseDocument endcase '-------------------------------------------------------------------------------------- testcase tAutomaticControlFocus2 '/// Open a new document, printlog "Open a new document," call hNewDocument Kontext "DocumentWriter" DocumentWriter.TypeKeys "tt_doc" , true sleep(1) call hToolbarSelect("FormControls",true) Kontext "FormControls" Edit.Click sleep(1) '/// insert three Text Boxes printlog "insert three Text Boxes" call hDrawingWithSelection ( 50, 20, 60, 30 ) sleep(2) Kontext "FormControls" ControlProperties.Click sleep(2) fSetControlProperty("Edit","DefaultValue","tt_control1") call hDrawingWithSelection ( 50, 40, 60, 50 ) sleep(2) ' open and close the form property browser to get the focus Kontext "FormControls" ControlProperties.Click sleep(2) ControlProperties.Click sleep(2) fSetControlProperty("Edit","TabOrder","1") ' open and close the property browser Kontext "FormControls" ControlProperties.Click sleep(2) ControlProperties.Click sleep(2) fSetControlProperty("Edit","DefaultValue","tt_control2") sleep(1) call hDrawingWithSelection ( 50, 60, 60, 70 ) sleep(2) ' open and close the form property browser to get the focus Kontext "FormControls" ControlProperties.Click sleep(2) ControlProperties.Click sleep(2) fSetControlProperty("Edit","DefaultValue","tt_control3") '/// activate the Automatic control focus. printlog "activate the Automatic control focus." call hToolbarSelect("FormDesignTools",true) Kontext "FormDesignTools" AutoControlFocus.Click sleep(2) '/// save the document printlog "save the document" hFileSaveAsKill ( gOfficePath + ConvertPath("user/work/TT_Control_Test2.odt")) hCloseDocument sleep(1) '/// reload the document printlog "reload the document" hFileOpen ( gOfficePath + ConvertPath("user/work/TT_Control_Test2.odt")) ' /// check if the second control has the focus after reload. printlog " check if the second control has the focus after reload." Kontext "DocumentWriter" DocumentWriter.TypeKeys "" , true sleep(1) DocumentWriter.TypeKeys "" , true sleep(1) DocumentWriter.TypeKeys "" , true sleep(1) if GetClipboard <> "tt_control2" then warnlog "The wrong control has the focus." endif hCloseDocument endcase '-------------------------------------------------------------------------------------- testcase tPosAndSize_Keyboard dim sPosX as String dim sPosY as String dim sWidth as String dim sHeight as String '/// Open a new document, printlog "Open a new document," call hNewDocument sleep(1) call hToolbarSelect("FormControls",true) Kontext "FormControls" Edit.Click '/// insert a Text Box printlog "insert a Text Box" Kontext "DocumentWriter" DocumentWriter.MouseDown ( 45, 45 ) DocumentWriter.MouseMove ( 55, 55 ) DocumentWriter.MouseUp ( 55, 55 ) sleep(2) '/// open the position and size dialog. printlog "open the position and size dialog." call fOpenPositionAndSizeDialog '/// remember the settings. printlog "remember the settings." Kontext "TabPositionAndSizeWriter" sPosX = HorizontalBy.getText() sPosY = Verticalby.getText() sWidth = Width.getText() sHeight = Height.getText() TabPositionAndSizeWriter.OK sleep(2) Kontext "DocumentWriter" gMouseClick(50,50) sleep(2) '/// move the control via keyboard printlog "move the control via keyboard" DocumentWriter.TypeKeys "" , true DocumentWriter.TypeKeys "" , true DocumentWriter.TypeKeys "" , true DocumentWriter.TypeKeys "" , true DocumentWriter.TypeKeys "" , true sleep(2) '/// open the position and size dialog printlog "open the position and size dialog" call fOpenPositionAndSizeDialog Kontext "TabPositionAndSizeWriter" '/// check the settings. printlog "check the settings." if sPosX = HorizontalBy.getText() then warnlog "The X position has not change." endif if sPosY = VerticalBy.getText() then warnlog "The Y position has not change." endif if sWidth = Width.getText() then warnlog "The width position has not change." endif if sHeight = Height.getText() then warnlog "The height position has not change." endif TabPositionAndSizeWriter.OK sleep(1) hCloseDocument endcase '-------------------------------------------------------------------------------------- testcase tPosAndSize_Dialog dim sPosX as String dim sPosY as String dim sWidth as String dim sHeight as String dim sText as String '/// Open a new document, printlog "Open a new document," call hNewDocument Kontext "DocumentWriter" DocumentWriter.TypeKeys "tt_doc" , true sleep(1) call hToolbarSelect("FormControls",true) Kontext "FormControls" Edit.Click sleep(1) '/// insert a Text Box printlog "insert a Text Box" call hDrawingWithSelection ( 40, 40, 60, 60 ) sleep(2) '/// open the position and size dialog printlog "open the position and size dialog" call fOpenPositionAndSizeDialog '/// set values for X , Y , width and height printlog "set values for X , Y , width and height" Kontext "TabPositionAndSizeWriter" ' uncheck KeepRatio because maybe it have set from a test before. KeepRatio.UnCheck HorizontalBy.setText("3") VerticalBy.setText("3") Width.setText("3") Height.setText("3") sleep(1) TabPositionAndSizeWriter.OK sleep(2) '/// open the position and size dialog printlog "open the position and size dialog" call fOpenPositionAndSizeDialog Kontext "TabPositionAndSizeWriter" '/// check the settings. printlog "check the settings." sText = HorizontalBy.getText() if Instr(sText,"3") = 0 then warnlog "The X position has not changed." endif sText = VerticalBy.getText() if Instr(sText,"3") = 0 then warnlog "The Y position has not changed." endif sText = Width.getText() if Instr(sText,"3") = 0 then warnlog "The width has not changed." endif sText = Height.getText() if Instr(sText,"3") = 0 then warnlog "The height has not changed." endif TabPositionAndSizeWriter.OK sleep(1) hCloseDocument endcase '-------------------------------------------------------------------------------------- testcase tPosAndSize_Protect_Position dim sPosX as String dim sPosY as String '/// Open a new document, printlog "Open a new document," call hNewDocument Kontext "DocumentWriter" DocumentWriter.TypeKeys "tt_doc" , true sleep(1) call hToolbarSelect("FormControls",true) Kontext "FormControls" Edit.Click sleep(1) '/// insert a Text Box printlog "insert a Text Box" call hDrawingWithSelection ( 40, 40, 60, 60 ) sleep(2) '/// open the position and size dialog printlog "open the position and size dialog" call fOpenPositionAndSizeDialog Kontext "TabPositionAndSizeWriter" sPosX = HorizontalBy.getText() sPosY = VerticalBy.getText() '/// check protect position printlog "check protect position" ProtectPosition.Check TabPositionAndSizeWriter.OK sleep(2) Kontext "DocumentWriter" gMouseClick(50,50) sleep(2) 'Kontext "DocumentWriter" '/// test if is possible to move the control via keyboard printlog "test if is possible to move the control via keyboard" DocumentWriter.TypeKeys "" , true DocumentWriter.TypeKeys "" , true sleep(2) '/// open the position and size dialog printlog "open the position and size dialog" call fOpenPositionAndSizeDialog Kontext "TabPositionAndSizeWriter" '/// check the settings, if the position is changed. printlog "check the settings, if the position is changed." if sPosX <> HorizontalBy.getText() then warnlog "The X position has change although the protect position is checked." endif if sPosY <> VerticalBy.getText() then warnlog "The Y position has change although the protect position is checked." endif TabPositionAndSizeWriter.OK sleep(1) hCloseDocument endcase '-------------------------------------------------------------------------------------- testcase tPosAndSize_KeepRatio dim sWidth as String dim sHeight as String '/// Open a new document, printlog "Open a new document," call hNewDocument Kontext "DocumentWriter" DocumentWriter.TypeKeys "tt_doc" , true sleep(1) call hToolbarSelect("FormControls",true) Kontext "FormControls" Edit.Click sleep(1) '/// insert a Text Box printlog "insert a Text Box" call hDrawingWithSelection ( 40, 40, 60, 60 ) sleep(2) '/// open the position and size dialog printlog "open the position and size dialog" call fOpenPositionAndSizeDialog sleep(1) '/// set a width and height. printlog "set a width and height." Kontext "TabPositionAndSizeWriter" KeepRatio.UnCheck Width.setText("4") sleep(1) Height.setText("2") sleep(1) '/// check keep ratio printlog "check keep ratio" KeepRatio.Check sleep(1) Width.setText("6") sleep(1) '/// check if keep ratio is working printlog "check if keep ratio is working" if Instr(Height.getText(),"3") = -1 then warnlog "The height doesn't keep the ratio" endif TabPositionAndSizeWriter.OK sleep(2) '/// open the position and size dialog printlog "open the position and size dialog" call fOpenPositionAndSizeDialog Kontext "TabPositionAndSizeWriter" '/// check the settings. printlog "check the settings." if Instr(Width.getText(),"6") = -1 then warnlog "The width isn't correct. " + Width.getText()+" instead of 6." endif if Instr(Height.getText(),"3") = -1 then warnlog "The height isn't correct. " + height.getText()+" instead of 3." endif TabPositionAndSizeWriter.OK sleep(1) hCloseDocument endcase '-------------------------------------------------------------------------------------- testcase tPosAndSize_Protect_Size dim sWidth as String dim sHeight as String '/// Open a new document, printlog "Open a new document," call hNewDocument Kontext "DocumentWriter" DocumentWriter.TypeKeys "tt_doc" , true sleep(1) call hToolbarSelect("FormControls",true) Kontext "FormControls" Edit.Click sleep(1) '/// insert a Text Box printlog "insert a Text Box" call hDrawingWithSelection ( 40, 40, 60, 60 ) sleep(2) '/// open the position and size dialog printlog "open the position and size dialog" call fOpenPositionAndSizeDialog Kontext "TabPositionAndSizeWriter" sWidth = Width.getText() sHeight = Height.getText() '/// check protect size printlog "check protect size" ProtectSize.Check TabPositionAndSizeWriter.OK sleep(2) Kontext "DocumentWriter" gMouseClick(50,50) sleep(2) 'Kontext "DocumentWriter" '/// test is is possible to change the size of the control via keyboard printlog "test is is possible to change the size of the control via keyboard" DocumentWriter.TypeKeys "" , true DocumentWriter.TypeKeys "" , true DocumentWriter.TypeKeys "" , true sleep(2) '/// open the position and size dialog printlog "open the position and size dialog" call fOpenPositionAndSizeDialog Kontext "TabPositionAndSizeWriter" '/// check the settings printlog "check the settings" if sWidth <> Width.getText() then warnlog "The width has change although the protect size is checked." endif if sHeight <> Height.getText() then warnlog "The height has change although the protect size is checked." endif TabPositionAndSizeWriter.OK sleep(1) hCloseDocument endcase '------------------------------------------------------------------------- testcase tTabStop '/// Open a new document, printlog "Open a new document," call hNewDocument Kontext "DocumentWriter" DocumentWriter.TypeKeys "tt_doc" , true sleep(1) call hToolbarSelect("FormControls",true) Kontext "FormControls" Edit.Click sleep(1) '/// insert one Text Box printlog "insert one Text Box" call hDrawingWithSelection ( 50, 20, 60, 30 ) sleep(2) '/// open the control propery browser printlog "open the control propery browser" call fOpenControlPropertyBrowser '/// the the default text to tt_control1 printlog "the the default text to tt_control1" call fSetControlProperty("TextBox","DefaultValue","tt_control1") ' close the property browser Kontext "FormControls" ControlProperties.Click sleep(1) '/// insert again one Text Box printlog "insert again one Text Box" call hDrawingWithSelection ( 50, 40, 60, 50 ) sleep(2) '/// open the property browser printlog "open the property browser" call fOpenControlPropertyBrowser '/// set the Order property to 2 printlog "set the Order property to 2" call fSetControlProperty("TextBox","Order","2") 'close and reopen the control property browser to get the default focus call fOpenControlPropertyBrowser '/// set the DefaultValue property to tt_control2 call fSetControlProperty("TextBox","DefaultValue","tt_control2") 'close the control propery browser Kontext "FormControls" ControlProperties.Click '/// insert again one Text Box printlog "insert again one Text Box" call hDrawingWithSelection ( 50, 60, 60, 70 ) sleep(2) ' open and close the form property browser to get the focus call fOpenControlPropertyBrowser '/// set the Order property to 1 printlog "set the Order property to 1" call fSetControlProperty("TextBox","Order","1") 'close and reopen the control property browser to get the default focus call fOpenControlPropertyBrowser '/// set the DeaultValue property to tt_control3 printlog "set the DeaultValue property to tt_control3" call fSetControlProperty("TextBox","DefaultValue","tt_control3") call hToolbarSelect("FormDesignTools",true) Kontext "FormDesignTools" '/// activate the AutomaticControlFocus printlog "activate the AutomaticControlFocus" AutoControlFocus.Click sleep(1) '/// turn of the design view printlog "turn of the design view" Kontext "FormControls" SwitchControlDesignMode.Click printlog "after designview click" sleep(4) '/// check if the right control has the focus printlog "check if the right control has the focus" Kontext "DocumentWriter" DocumentWriter.TypeKeys "" , true sleep(1) DocumentWriter.TypeKeys "" , true sleep(1) DocumentWriter.TypeKeys "" , true sleep(1) if GetClipboard = "tt_doc" then warnlog "The control has not the focus. The document has the focus." elseif GetClipboard <> "tt_control3" then warnlog "The wrong control has the focus." endif '/// check that tyou travel to the right controls via TAB printlog "check that tyou travel to the right controls via TAB" DocumentWriter.TypeKeys "" , true sleep(1) DocumentWriter.TypeKeys "" , true sleep(1) DocumentWriter.TypeKeys "" , true sleep(1) DocumentWriter.TypeKeys "" , true sleep(1) if GetClipboard <> "tt_control2" then warnlog "The wrong control has the focus." endif hCloseDocument endcase '-------------------------------------------------------------------------------------- testcase tActivationOrder Dim sSelText as string '/// Open a new document, printlog "Open a new document," call hNewDocument Kontext "DocumentWriter" DocumentWriter.TypeKeys "tt_doc" , true sleep(1) call hToolbarSelect("FormControls",true) Kontext "FormControls" Edit.Click sleep(1) '/// insert one Text Box printlog "insert one Text Box" call hDrawingWithSelection ( 50, 20, 60, 30 ) sleep(2) '/// open the control property browser printlog "open the control property browser" call fOpenControlPropertyBrowser '/// set the Name Property to tt_control1 printlog "set the Name Property to tt_control1" call fSetControlProperty("TextBox","NameText","tt_control1") 'close and reopen the control property browser to get the default focus call fOpenControlPropertyBrowser '/// set the DefaultValue Property to tt_control1 printlog "set the DefaultValue Property to tt_control1" call fSetControlProperty("TextBox","DefaultValue","tt_control1") sleep(1) ' close the property browser Kontext "FormControls" ControlProperties.Click '/// insert one Text Box printlog "insert one Text Box" call hDrawingWithSelection ( 50, 40, 60, 50 ) sleep(2) '/// open the control property browser printlog "open the control property browser" call fOpenControlPropertyBrowser '/// set the Name Property to tt_control2 printlog "set the Name Property to tt_control2" call fSetControlProperty("TextBox","NameText","tt_control2") 'close and reopen the control property browser to get the default focus call fOpenControlPropertyBrowser '/// set the DefaultValue Property to tt_control2 call fSetControlProperty("TextBox","DefaultValue","tt_control2") ' close the property browser Kontext "FormControls" ControlProperties.Click '/// insert one Text Box printlog "insert one Text Box" call hDrawingWithSelection ( 50, 60, 60, 70 ) sleep(2) '/// open the control property browser printlog "open the control property browser" call fOpenControlPropertyBrowser '/// set the Name Property to tt_control3 call fSetControlProperty("TextBox","NameText","tt_control3") 'close and reopen the control property browser to get the default focus call fOpenControlPropertyBrowser '/// set the Defaultvalue property to tt_control3 call fSetControlProperty("TextBox","DefaultValue","tt_control3") '/// open the tab order dialog printlog "open the tab order dialog" call fOpenTabOrder ' IndexKLiener printlog "IndexKLiener" Kontext "ActivationOrder" sleep(1) ControlList.TypeKeys "" , true ' to select the first entry sleep(1) ControlList.TypeKeys "" , true sleep(1) sSelText = ControlList.getSelText() if sSelText <> "tt_control1" then warnlog "Wrong control on first position in activation order dialog.(" + sSelText + ")" endif sleep(1) ControlList.TypeKeys "" , true sleep(1) sSelText = ControlList.getSelText() if sSelText <> "tt_control2" then warnlog "Wrong control on second position in activation order dialog.(" + sSelText + ")" endif sleep(1) ControlList.TypeKeys "" , true sleep(1) sSelText = ControlList.getSelText() if sSelText <> "tt_control3" then warnlog "Wrong control on third position in activation order dialog.(" + sSelText + ")" endif sleep(1) MoveUp.Click sleep(1) ControlList.TypeKeys "" , true sleep(1) ControlList.TypeKeys "" , true sSelText = ControlList.getSelText() if sSelText <> "tt_control3" then warnlog "The move up button in activation order dialog doesn't work.(" + sSelText + ")" endif ActivationOrder.OK sleep(1) printlog "open TabOrder dialog" call fOpenTabOrder Kontext "ActivationOrder" sleep(1) ControlList.TypeKeys "" , true ' to select the first entry sleep(1) ControlList.TypeKeys "" , true sleep(1) sSelText = ControlList.getSelText() if sSelText <> "tt_control1" then warnlog "Wrong control on first position in activation order dialog.(" + sSelText + ")" endif sleep(1) MoveDown.Click sleep(1) ControlList.TypeKeys "" , true sleep(1) ControlList.TypeKeys "" , true sSelText = ControlList.getSelText() if sSelText <> "tt_control1" then warnlog "The move down button in activation order dialog doesn't work.(" + sSelText + ")" endif ActivationOrder.OK sleep(1) call hToolbarSelect("FormDesignTools",true) Kontext "FormDesignTools" '/// activate the AutomaticControlFocus printlog "activate the AutomaticControlFocus" AutoControlFocus.Click sleep(1) '/// turn of the design view printlog "turn of the design view" Kontext "FormControls" SwitchControlDesignMode.Click printlog "after designview click" sleep(4) Kontext "DocumentWriter" DocumentWriter.TypeKeys "" , true sleep(1) DocumentWriter.TypeKeys "" , true sleep(1) DocumentWriter.TypeKeys "" , true sleep(1) if GetClipboard = "tt_doc" then warnlog "The control has not the focus. The document has the focus." elseif GetClipboard <> "tt_control3" then warnlog "The wrong control has the focus. (" + GetClipboard + ")" endif DocumentWriter.TypeKeys "" , true sleep(1) DocumentWriter.TypeKeys "" , true sleep(1) DocumentWriter.TypeKeys "" , true sleep(1) DocumentWriter.TypeKeys "" , true sleep(1) if GetClipboard = "tt_doc" then warnlog "The control has not the focus. The document has the focus." elseif GetClipboard <> "tt_control1" then warnlog "The wrong control has the focus. (" + GetClipboard + ")" endif DocumentWriter.TypeKeys "" , true sleep(1) DocumentWriter.TypeKeys "" , true sleep(1) DocumentWriter.TypeKeys "" , true sleep(1) DocumentWriter.TypeKeys "" , true sleep(1) if GetClipboard = "tt_doc" then warnlog "The control has not the focus. The document has the focus." elseif GetClipboard <> "tt_control2" then warnlog "The wrong control has the focus. (" + GetClipboard + ")" endif printlog "turn of the design view" Kontext "FormControls" SwitchControlDesignMode.Click printlog "after designview click" sleep(4) printlog "open TabOrder dialog" call fOpenTabOrder Kontext "ActivationOrder" AutoOrder.Click sleep(1) ActivationOrder.OK sleep(1) Kontext "FormControls" '/// turn off the design view printlog "turn of the design view" SwitchControlDesignMode.Click sleep(2) Kontext "DocumentWriter" DocumentWriter.TypeKeys "" , true sleep(1) DocumentWriter.TypeKeys "" , true sleep(1) DocumentWriter.TypeKeys "" , true sleep(1) if GetClipboard = "tt_doc" then warnlog "The control has not the focus. The document has the focus." elseif GetClipboard <> "tt_control1" then warnlog "The wrong control has the focus.(" + GetClipboard + ")" endif DocumentWriter.TypeKeys "" , true sleep(1) DocumentWriter.TypeKeys "" , true sleep(1) if GetClipboard = "tt_doc" then warnlog "The control has not the focus. The document has the focus." elseif GetClipboard <> "tt_control2" then warnlog "The wrong control has the focus.(" + GetClipboard + ")" endif DocumentWriter.TypeKeys "" , true sleep(1) DocumentWriter.TypeKeys "" , true sleep(1) if GetClipboard = "tt_doc" then warnlog "The control has not the focus. The document has the focus." elseif GetClipboard <> "tt_control3" then warnlog "The wrong control has the focus.(" + GetClipboard + ")" endif sleep(1) call hCloseDocument endcase '------------------------------------------------------------------------- testcase tAddFields Dim sControlName1 as String Dim sControlName2 as String '/// Open a new document, printlog "Open a new document," call hNewDocument Kontext "DocumentWriter" DocumentWriter.TypeKeys "tt_doc" , true sleep(1) call hToolbarSelect("FormControls",true) Kontext "FormControls" Edit.Click sleep(1) '/// insert three Text Boxes printlog "insert three Text Boxes" call hDrawingWithSelection ( 50, 20, 60, 30 ) sleep(2) Kontext "FormControls" FormProperties.Click sleep(1) Kontext "FormPropertiesDialog" FormPropertiesTabControl.SetPage TabDataForm Kontext "TabDataForm" sleep(1) DataSource.Select "Bibliography" TabDataForm.typeKeys("") sleep(1) Content.Select "biblio" TabDataForm.typeKeys("") sleep(1) Kontext "FormControls" FormProperties.Click sleep(1) call hToolbarSelect("FormDesignTools",true) Kontext "FormDesignTools" AddField.Click sleep(1) Kontext "FeldAuswahl" Liste.Select 1 sControlName1 = Liste.getSelText Liste.TypeKeys "" sleep(3) Kontext "FormDesignTools" ShowFmExplorer.Click sleep(1) Kontext "FormularNavigator" Liste.TypeKeys "" , true Liste.TypeKeys "" , 4, true sControlName2 = Liste.getSelText if sControlName1 <> sControlName2 then warnlog "The control name is not the same as the fieldname. controlname = " + sControlName2 + " fieldname = " + sControlName1 endif sleep (2) call hCloseDocument endcase function fOpenPositionAndSizeDialog call hToolbarSelect("FormDesignTools",true) Kontext "FormDesignTools" PositionAndSizeDialog.Click fOpenPositionAndSizeDialog=true end function '------------------------------------------------------------------------- function fOpenTabOrder printlog "open FormControls Toolbar" call hToolbarSelect("FormDesignTools",true) Kontext "FormDesignTools" TabDialog.Click fOpenTabOrder=true end function '-------------------------------------------------------------------------