testautomation/dbaccess/optional/includes/ctrl_Several1.inc

   1 'encoding UTF-8  Do not remove or change this line!
   2 '**************************************************************************
   3 '* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4 '*
   5 '* Copyright 2008 by Sun Microsystems, Inc.
   6 '*
   7 '* OpenOffice.org - a multi-platform office productivity suite
   8 '*
   9 '* $RCSfile: ctrl_Several1.inc,v $
  10 '*
  11 '* $Revision: 1.1.68.1 $
  12 '*
  13 '* last change: $Author: msc $ $Date: 2008/10/07 09:51:29 $
  14 '*
  15 '* This file is part of OpenOffice.org.
  16 '*
  17 '* OpenOffice.org is free software: you can redistribute it and/or modify
  18 '* it under the terms of the GNU Lesser General Public License version 3
  19 '* only, as published by the Free Software Foundation.
  20 '*
  21 '* OpenOffice.org is distributed in the hope that it will be useful,
  22 '* but WITHOUT ANY WARRANTY; without even the implied warranty of
  23 '* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  24 '* GNU Lesser General Public License version 3 for more details
  25 '* (a copy is included in the LICENSE file that accompanied this code).
  26 '*
  27 '* You should have received a copy of the GNU Lesser General Public License
  28 '* version 3 along with OpenOffice.org.  If not, see
  29 '* <http://www.openoffice.org/license.html>
  30 '* for a copy of the LGPLv3 License.
  31 '*
  32 '/************************************************************************
  33 '*
  34 '* owner : marc.neumann@sun.com
  35 '*
  36 '* short description : Control Serveral Part 1 - check each control and each property
  37 '*
  38 '\***********************************************************************
  39
  40 sub ctrl_Several1
  41
  42     call fSwitchAutopilotOff(true) ' has to run first to switch off the autopilot
  43
  44     call tCheckBox         ' tested properties: Tristate, Enabled, Label field
  45     call tTextBox          ' tested properties: Background color, Additional Info, Scrollbars, Password
  46     call tFormattedField   ' tested properties: Value max, Value min, Formatting
  47     call tPushButton       ' tested properties: Graphic, Alignment, Default button, Toggle, Take Focus
  48     call tOptionButton     ' tested properties: Print, Reference value, Default status
  49     call tListBox          ' tested properties: Line count, Multiselection, List Entries, Default selection
  50     call tComboBox         ' tested properties: Auto fill, Max text length, Hide selection, Border color
  51     call tLabelField       ' tested properties: Alignment, Help text
  52
  53     call fSwitchAutopilotOff(false)
  54
  55 end sub
  56
  57 '--------------------------------------------------------------------------------------
  58 ' todo: testcase: tTextBox and tLabelFild contain 'multiline' settings, but HelpID disappeared - has to be reworked
  59 '--------------------------------------------------------------------------------------
  60
  61 testcase tCheckBox
  62
  63     '/// Open a new document,
  64     printlog "Open a new document,"
  65         call hNewDocument
  66     Kontext "DocumentWriter"
  67             DocumentWriter.TypeKeys "tt_doc" , true
  68         sleep(1)
  69
  70         Kontext "FormControls"
  71     addControl("Label", 40, 30, 50, 40)
  72     addControl("CheckBox", 55, 30, 65, 40 )
  73
  74     call fOpenControlPropertyBrowser
  75
  76     Kontext "ControlPropertiesTabControl"
  77         ControlPropertiesTabControl.setPage TabGeneralControl       'make shure that tabpage general in property is choosen
  78         sleep(2)
  79     '/// set properties: Label - therefore needed: a present label field
  80     printlog "set properties: Label - therefore needed: a present label field"
  81     Kontext "TabGeneralControl"
  82         LabelFieldButton.Click
  83         sleep(1)
  84     Kontext "LabelFieldSelection"
  85         LabelFieldSelection.TypeKeys "<DOWN>",TRUE
  86         LabelFieldSelection.TypeKeys "<DOWN>",TRUE
  87         sleep(1)
  88         LabelFieldSelection.OK
  89         sleep(1)
  90     '/// set properties: Tristate, Enabled
  91             call fSetControlProperty("CheckBox","TriState","2")
  92             sleep(1)
  93         call fSetControlProperty("CheckBox","Enabled","1")        'listbox property: no
  94             sleep(1)
  95     '/// close control property browser
  96     Kontext "ControlPropertiesDialog"
  97         ControlPropertiesDialog.close
  98         sleep(1)
  99     '/// save the document
 100     printlog "save the document"
 101     hFileSaveAsKill ( gOfficePath + ConvertPath("user/work/TT_CheckBox.odt"))
 102         hCloseDocument
 103     sleep(1)
 104     '/// reload the document
 105     printlog "reload the document"
 106         hFileOpen ( gOfficePath + ConvertPath("user/work/TT_CheckBox.odt"))
 107
 108     call fSwitchControlDesignMode()
 109
 110     Kontext "DocumentWriter"
 111         DocumentWriter.TypeKeys "<SHIFT F4>"
 112         sleep(1)
 113         DocumentWriter.TypeKeys "<TAB>" ' select the second control
 114         sleep(1)
 115
 116     call fOpenControlPropertyBrowser
 117
 118     '/// check if the values are saved
 119     printlog "check if the values are saved"
 120     sleep(2)
 121     Kontext "TabGeneralControl"
 122             TabGeneralControl.TypeKeys "<TAB>" , true ' this tab is importent, I don't not why but it is.
 123             sleep(1)
 124
 125     if fGetControlProperty("CheckBox","TriState") <> "2" then
 126         warnlog "the value 'tristate' is not saved correctly"
 127     endif
 128
 129     if fGetControlProperty("CheckBox","Enabled") <> "1" then
 130         warnlog "the value 'enabled' is not saved correctly"
 131     endif
 132
 133     printlog "property character set text: " & LabelField.getText
 134     if LabelField.getText = "" then
 135         warnlog "the value 'label' is not saved correctly"
 136     endif
 137
 138     call closePropertyBrowserAndDocument()
 139
 140 endcase
 141 '--------------------------------------------------------------------------------------
 142
 143 testcase tTextBox
 144
 145     '/// Open a new document,
 146     printlog "Open a new document,"
 147         call hNewDocument
 148     Kontext "DocumentWriter"
 149             DocumentWriter.TypeKeys "tt_doc" , true
 150         sleep(1)
 151
 152         Kontext "FormControls"
 153     addControl("Edit", 40, 40, 30, 30)
 154
 155     call fOpenControlPropertyBrowser
 156
 157     Kontext "ControlPropertiesTabControl"
 158         ControlPropertiesTabControl.setPage TabGeneralControl       'make shure that tabpage general in property is choosen
 159         sleep(2)
 160     '/// set properties: Background color, Additional Info, Scrollbars, Password
 161         printlog "set properties"
 162         call fSetControlProperty("TextBox","Background","92")
 163         call fSetControlProperty("TextBox","AdditionalInfo","my only friend the end.")
 164         call fSetControlProperty("TextBox","TextType","2")      'needed for activate scrollbar
 165         call fSetControlProperty("TextBox","Scrollbars","4")
 166         call fSetControlProperty("TextBox","TextType","1")      'needed for activate password
 167         call fSetControlProperty("TextBox","Password","p")
 168     '/// close control property browser
 169     Kontext "ControlPropertiesDialog"
 170         ControlPropertiesDialog.close
 171     '/// save the document
 172     printlog "save the document"
 173     hFileSaveAsKill ( gOfficePath + ConvertPath("user/work/TT_TextBox.odt"))
 174         hCloseDocument
 175         sleep(1)
 176     '/// reload the document
 177     printlog "reload the document"
 178         hFileOpen ( gOfficePath + ConvertPath("user/work/TT_TextBox.odt"))
 179
 180     call fSwitchControlDesignMode()
 181
 182     Kontext "DocumentWriter"
 183         DocumentWriter.TypeKeys "<SHIFT F4>"
 184         sleep(1)
 185
 186     call fOpenControlPropertyBrowser
 187
 188     '/// check if the values are saved
 189     printlog "check if the values are saved"
 190     sleep(2)
 191     Kontext "TabGeneralControl"
 192             TabGeneralControl.TypeKeys "<TAB>" , true ' this tab is importent, I don't not why but it is.
 193
 194     if fGetControlProperty("TextBox","Background") <> "92" then
 195         warnlog "the value: background is not saved"
 196     endif
 197
 198     if fGetControlProperty("TextBox","AdditionalInfo") <> "my only friend the end." then
 199         warnlog "the AdditionalInfo value is not saved"
 200     endif
 201     call fSetControlProperty("TextBox","TextType","2")      'needed for activate scrollbar
 202     sleep(1)
 203     if fGetControlProperty("TextBox","Scrollbars") <> "4" then
 204         warnlog "the value: Scrollbars are not saved"
 205     endif
 206     call fSetControlProperty("TextBox","TextType","1")      'needed for activate password
 207     sleep(1)
 208     if fGetControlProperty("TextBox","Password") <> "p" then
 209         warnlog "the value: Password is not saved"
 210     endif
 211
 212     call closePropertyBrowserAndDocument()
 213
 214 endcase
 215 '--------------------------------------------------------------------------------------
 216
 217 testcase tFormattedField
 218
 219     '/// Open a new document,
 220         printlog "Open a new document,"
 221         call hNewDocument
 222     Kontext "DocumentWriter"
 223             DocumentWriter.TypeKeys "tt_doc" , true
 224         sleep(1)
 225
 226         Kontext "FormControls"
 227     addControl("FormattedField", 50, 20, 60, 30)
 228
 229     call fOpenControlPropertyBrowser
 230
 231     Kontext "ControlPropertiesTabControl"
 232         ControlPropertiesTabControl.setPage TabGeneralControl       'make shure that tabpage general in property is choosen
 233         sleep(2)
 234     '/// set ValueMin to 2 and ValueMax to 9 and any Formatting
 235         printlog "set ValueMin to 2 and ValueMax to 9 and any Formatting"
 236     Kontext "TabGeneralControl"     'set any formatting
 237         FormatkeyButton.Click
 238     Kontext "TabZahlen"
 239         TabZahlen.TypeKeys "<DOWN>", true
 240         TabZahlen.TypeKeys "<RETURN>", true
 241         sleep(1)
 242         fsetControlProperty("FormattedField","ValueMax","9")
 243         sleep(1)
 244         fsetControlProperty("FormattedField","ValueMin","2")
 245     '/// close control property browser
 246     Kontext "ControlPropertiesDialog"
 247         ControlPropertiesDialog.close
 248     '/// save the document
 249     printlog "save the document"
 250     hFileSaveAsKill ( gOfficePath + ConvertPath("user/work/TT_FormattedField.odt"))
 251         hCloseDocument
 252     sleep(1)
 253     '/// reload the document
 254     printlog "reload the document"
 255         hFileOpen ( gOfficePath + ConvertPath("user/work/TT_FormattedField.odt"))
 256
 257     call fSwitchControlDesignMode()
 258
 259     Kontext "DocumentWriter"
 260         DocumentWriter.TypeKeys "<SHIFT F4>"
 261         sleep(1)
 262
 263     call fOpenControlPropertyBrowser
 264
 265     '/// check if the values are saved
 266         printlog "check if the values are saved"
 267         sleep(2)
 268     Kontext "TabGeneralControl"
 269             TabGeneralControl.TypeKeys "<TAB>" , true ' this tab is importent, I don't not why but it is.
 270     if fgetControlProperty("FormattedField","ValueMax") = "" then
 271         warnlog "the value ValueMax is not saved"
 272     endif
 273     if fgetControlProperty("FormattedField","ValueMin") = "" then
 274         warnlog "the value ValueMin is not saved"
 275     endif
 276     if fgetControlProperty("FormattedField","Formatkey") = "" then
 277         warnlog "the value ValueMin is not saved"
 278     endif
 279
 280     call closePropertyBrowserAndDocument()
 281
 282 endcase
 283 '--------------------------------------------------------------------------------------
 284
 285 testcase tPushButton
 286
 287     '/// Open a new document,
 288         printlog "Open a new document,"
 289         call hNewDocument
 290     Kontext "DocumentWriter"
 291             DocumentWriter.TypeKeys "tt_doc" , true
 292         sleep(1)
 293
 294     Kontext "FormControls"
 295     addControl("PushButton", 50, 20, 60, 30)
 296
 297     call fOpenControlPropertyBrowser
 298
 299     Kontext "ControlPropertiesTabControl"
 300         ControlPropertiesTabControl.setPage TabGeneralControl       'make shure that tabpage general in property is choosen
 301         sleep(2)
 302     '/// set a graphic for this button
 303     printlog "set a graphic for this button"
 304         Kontext "TabGeneralControl"
 305     call fSetControlProperty("PushButton","Graphics", gOfficePath + ConvertPath("share/gallery/bullets/blkpearl.gif"))
 306     '/// set further properties: default button, toggle, graphics alignment
 307     printlog "set further properties"
 308     call fSetControlProperty("PushButton","DefaultButton","2")           'listbox property: yes
 309     call fSetControlProperty("PushButton","ToggleProp","2")                  'listbox property: yes
 310     call fSetControlProperty("PushButton","GraphicsAlignment","5")
 311     call fSetControlProperty("PushButton","TakeFocus","1")
 312     '/// close control property browser
 313     Kontext "ControlPropertiesDialog"
 314         ControlPropertiesDialog.close
 315     '/// save the document
 316     printlog "save the document"
 317     hFileSaveAsKill ( gOfficePath + ConvertPath("user/work/TT_PushButton.odt"))
 318     hCloseDocument
 319     sleep(1)
 320     '/// reload the document
 321     printlog "reload the document"
 322         hFileOpen ( gOfficePath + ConvertPath("user/work/TT_PushButton.odt"))
 323     '/// check if the graphic still displayed
 324     printlog "check if the graphic still displayed"
 325     call fSwitchControlDesignMode()
 326
 327     Kontext "DocumentWriter"
 328         DocumentWriter.TypeKeys "<SHIFT F4>"
 329         sleep(1)
 330
 331     call fOpenControlPropertyBrowser
 332
 333     '/// check if everything is saved right
 334         printlog "check if everything is saved right"
 335         dim bScrOK as boolean       'control variable if all properties are correct
 336         bScrOK = true
 337         dim sGraphics as String     'variable for graphics path
 338     'check if the graphic is saved
 339         sGraphics = fGetControlProperty("PushButton","Graphics")
 340     if Right(sGraphics,12) <> "blkpearl.gif" then
 341         warnlog "The graphics file name is not saved"
 342         bScrOK = false
 343     endif
 344     if fGetControlProperty("PushButton","GraphicsAlignment") <> "5" then
 345         warnlog "the pushbutton is not saved with property: Graphics Alignment"
 346         bScrOK = false
 347     endif
 348     'check if the default button is saved
 349     if fGetControlProperty("PushButton","DefaultButton") <> "2" then
 350         warnlog "the pushbutton is not saved with property: Default Button"
 351         bScrOK = false
 352     endif
 353     if fGetControlProperty("PushButton","ToggleProp") <> "2" then
 354         warnlog "the pushbutton is not saved with property: Toggle"
 355         bScrOK = false
 356     endif
 357     if fGetControlProperty("PushButton","TakeFocus") <> "1" then
 358         warnlog "the pushbutton is not saved with property:  Take Focus on click"
 359         bScrOK = false
 360     endif
 361         sleep(1)
 362     if bScrOK = true then printlog "Pushbutton was saved correctly"
 363
 364     call closePropertyBrowserAndDocument()
 365
 366 endcase
 367 '--------------------------------------------------------------------------------------
 368
 369 testcase tOptionButton
 370
 371     '/// Open a new document,
 372         printlog "Open a new document,"
 373         call hNewDocument
 374     Kontext "DocumentWriter"
 375             DocumentWriter.TypeKeys "tt_doc" , true
 376         sleep(1)
 377
 378     Kontext "FormControls"
 379     addControl("RadioButton", 50, 20, 60, 30)
 380
 381     call fOpenControlPropertyBrowser
 382
 383     Kontext "ControlPropertiesTabControl"
 384         ControlPropertiesTabControl.setPage TabGeneralControl       'make shure that tabpage general in property is choosen
 385         sleep(2)
 386     '/// set properties: Print, Reference value, Default status
 387         printlog "set properties"
 388         call fSetControlProperty("Radiobutton","Printable","1")         'listbox property: no
 389         call fSetControlProperty("Radiobutton","ReferenceValue","777")
 390         call fSetControlProperty("Radiobutton","DefaultState","2")      'listbox property: selected
 391     '/// close control property browser
 392     Kontext "ControlPropertiesDialog"
 393         ControlPropertiesDialog.close
 394
 395     '/// save the document
 396     printlog "save the document"
 397     hFileSaveAsKill ( gOfficePath + ConvertPath("user/work/TT_Optionbutton.odt"))
 398         hCloseDocument
 399     sleep(1)
 400
 401     '/// reload the document
 402     printlog "reload the document"
 403         hFileOpen ( gOfficePath + ConvertPath("user/work/TT_Optionbutton.odt"))
 404
 405     call fSwitchControlDesignMode()
 406
 407     Kontext "DocumentWriter"
 408         DocumentWriter.TypeKeys "<SHIFT F4>"
 409         sleep(1)
 410         call fOpenControlPropertyBrowser
 411
 412     '/// check if property values are inserted
 413     printlog "check if property values are inserted"
 414     Kontext "TabGeneralControl"
 415         dim bScrOK as boolean       'control variable if all properties are correct
 416         bScrOK = true
 417     if fGetControlProperty("Radiobutton","Printable") <> "1" then
 418         warnlog "the Optionbutton is not saved with property: Print"
 419         bScrOK = false
 420     endif
 421     if fGetControlProperty("Radiobutton","ReferenceValue") <> "777" then
 422         warnlog "the Optionbutton is not saved with property: ReferenceValue"
 423         bScrOK = false
 424     endif
 425     if fGetControlProperty("Radiobutton","DefaultState") <> "2" then
 426         warnlog "the Optionbutton is not saved with property: ReferenceValue"
 427         bScrOK = false
 428     endif
 429     if bScrOK = true then printlog "Optionbutton was saved correctly"
 430
 431     call closePropertyBrowserAndDocument()
 432
 433 endcase
 434 '--------------------------------------------------------------------------------------
 435
 436 testcase tListBox
 437
 438     '/// Open a new document,
 439     printlog "Open a new document,"
 440         call hNewDocument
 441     Kontext "DocumentWriter"
 442         DocumentWriter.TypeKeys "tt_doc" , true
 443             sleep(1)
 444
 445     Kontext "FormControls"
 446     addControl("ListBox", 50, 20, 60, 30)
 447
 448     call fOpenControlPropertyBrowser
 449
 450     Kontext "ControlPropertiesTabControl"
 451         ControlPropertiesTabControl.setPage TabGeneralControl       'make shure that tabpage general in property is choosen
 452         sleep(2)
 453     '/// set properties: default selection, line count, list entries, multiselection
 454     printlog "set properties"
 455     Kontext "TabGeneralControl"
 456     'set property: list entries
 457         call fSetControlProperty("ListBox","ListEntries","My only friend the end.")
 458     'set property: line count
 459         call fSetControlProperty("ListBox","DropDown","2")    'needed for activate line count
 460         sleep (1)
 461         call fSetControlProperty("ListBox","LineCount","10")
 462         sleep (1)
 463     'set property: multiselection
 464         call fSetControlProperty("ListBox","Multiselection","2")    'yes
 465         sleep (1)
 466     'set property: default selection
 467         call fSetControlProperty("ListBox","DefaultSelection2","88")
 468     '/// close control property browser
 469     Kontext "ControlPropertiesDialog"
 470         ControlPropertiesDialog.close
 471
 472     '/// save the document
 473     printlog "save the document"
 474     hFileSaveAsKill ( gOfficePath + ConvertPath("user/work/TT_ListBox.odt"))
 475         hCloseDocument
 476     sleep(1)
 477
 478     '/// reload the document
 479     printlog "reload the document"
 480         hFileOpen ( gOfficePath + ConvertPath("user/work/TT_ListBox.odt"))
 481
 482     call fSwitchControlDesignMode()
 483
 484     Kontext "DocumentWriter"
 485         DocumentWriter.TypeKeys "<SHIFT F4>"
 486         sleep(1)
 487
 488     call fOpenControlPropertyBrowser
 489
 490     '/// check if property values are inserted
 491         printlog "check if property values are inserted"
 492     Kontext "TabGeneralControl"
 493         dim bScrOK as boolean       'control variable if all properties are correct
 494         bScrOK = true
 495     '(special field - cannot be read out)
 496     'if fGetControlProperty("ListBox","ListEntries") = "" then
 497         'warnlog "the listbox is not saved with property: ListEntries"
 498         'bScrOK = false
 499     'endif
 500     '(special field - cannot be read out)
 501     'if fGetControlProperty("ListBox","DefaultSelection2") = "" then
 502         'warnlog "the listbox is not saved with property: DefaultSelection2"
 503         'bScrOK = false
 504     'endif
 505     if fGetControlProperty("ListBox","LineCount") <> "10" then
 506         warnlog "the listbox is not saved with property: LineCount"
 507         bScrOK = false
 508     endif
 509     if fGetControlProperty("ListBox","Multiselection") <> "2" then
 510         warnlog "the listbox is not saved with property: Multiselection"
 511         bScrOK = false
 512     endif
 513     if bScrOK = true then printlog "listbox was saved correctly"
 514
 515     call closePropertyBrowserAndDocument()
 516
 517 endcase
 518 '--------------------------------------------------------------------------------------
 519
 520 testcase tComboBox
 521
 522     '/// Open a new document,
 523     printlog "Open a new document,"
 524         call hNewDocument
 525     Kontext "DocumentWriter"
 526             DocumentWriter.TypeKeys "tt_doc" , true
 527         sleep(1)
 528
 529     Kontext "FormControls"
 530     addControl("ComboBox", 50, 20, 60, 30)
 531
 532     call fOpenControlPropertyBrowser
 533
 534     Kontext "ControlPropertiesTabControl"
 535         ControlPropertiesTabControl.setPage TabGeneralControl       'make shure that tabpage general in property is choosen
 536         sleep(2)
 537     '/// set properties: Auto fill, Max text length, Hide Selection, Border color
 538         printlog "set properties"
 539     Kontext "TabGeneralControl"
 540         call fSetControlProperty("ComboBox","MaxTextLen","6")
 541         call fSetControlProperty("ComboBox","AutoComplete","1")    'no
 542         call fSetControlProperty("ComboBox","HideSelection","1")   'no
 543         call fSetControlProperty("ComboBox","Border","3")          'needed to activate Border Color
 544         call fSetControlProperty("ComboBox","BorderColor","13")
 545     '/// close control property browser
 546     Kontext "ControlPropertiesDialog"
 547         ControlPropertiesDialog.close
 548
 549     '/// save the document
 550     printlog "save the document"
 551     hFileSaveAsKill ( gOfficePath + ConvertPath("user/work/TT_ComboBox.odt"))
 552         hCloseDocument
 553     sleep(1)
 554
 555     '/// reload the document
 556     printlog "reload the document"
 557         hFileOpen ( gOfficePath + ConvertPath("user/work/TT_ComboBox.odt"))
 558
 559     call fSwitchControlDesignMode()
 560
 561     Kontext "DocumentWriter"
 562         DocumentWriter.TypeKeys "<SHIFT F4>"
 563         sleep(1)
 564
 565     call fOpenControlPropertyBrowser
 566
 567     '/// check if property values are inserted
 568     printlog "check if property values are inserted"
 569     Kontext "TabGeneralControl"
 570         dim bScrOK as boolean       'control variable if all properties are correct
 571         bScrOK = true
 572     if fGetControlProperty("ComboBox","MaxTextLen") <> "6" then
 573         warnlog "the combobox is not saved with property: MaxTextLen"
 574         bScrOK = false
 575     endif
 576     if fGetControlProperty("ComboBox","AutoComplete") <> "1" then
 577         warnlog "the combobox is not saved with property: AutoComplete"
 578         bScrOK = false
 579     endif
 580     if fGetControlProperty("ComboBox","HideSelection") <> "1" then
 581         warnlog "the combobox is not saved with property: Hide Selection"
 582         bScrOK = false
 583     endif
 584     if fGetControlProperty("ComboBox","BorderColor") <> "13" then
 585         warnlog "the combobox is not saved with property: Border Color"
 586         bScrOK = false
 587     endif
 588     if bScrOK = true then printlog "Combobox was saved correctly"
 589
 590     call closePropertyBrowserAndDocument()
 591
 592 endcase
 593 '--------------------------------------------------------------------------------------
 594
 595 testcase tLabelField
 596
 597     '/// Open a new document,
 598     printlog "Open a new document,"
 599         call hNewDocument
 600     Kontext "DocumentWriter"
 601             DocumentWriter.TypeKeys "tt_doc" , true
 602         sleep(1)
 603
 604     Kontext "FormControls"
 605     addControl("Label", 50, 20, 60, 30)
 606
 607     call fOpenControlPropertyBrowser
 608
 609     Kontext "ControlPropertiesTabControl"
 610         ControlPropertiesTabControl.setPage TabGeneralControl       'make shure that tabpage general in property is choosen
 611         sleep(2)
 612     '/// set properties: alignment, multiline, help text
 613         printlog "set properties"
 614         call fSetControlProperty("LabelField","Align","4")        'set to right
 615         call fSetControlProperty("LabelField","HelpText","Filled in Text")
 616     '/// close control property browser
 617     Kontext "ControlPropertiesDialog"
 618         ControlPropertiesDialog.close
 619
 620     '/// save the document
 621     printlog "save the document"
 622     hFileSaveAsKill ( gOfficePath + ConvertPath("user/work/TT_LabelField.odt"))
 623         hCloseDocument
 624     sleep(1)
 625
 626     '/// reload the document
 627     printlog "reload the document"
 628         hFileOpen ( gOfficePath + ConvertPath("user/work/TT_LabelField.odt"))
 629
 630     call fSwitchControlDesignMode()
 631
 632     Kontext "DocumentWriter"
 633         DocumentWriter.TypeKeys "<SHIFT F4>"
 634         sleep(1)
 635
 636     call fOpenControlPropertyBrowser
 637
 638     '/// check if the values are saved
 639         printlog "check if the values are saved"
 640         sleep(2)
 641     Kontext "TabGeneralControl"
 642             TabGeneralControl.TypeKeys "<TAB>" , true ' this tab is importent, I don't not why but it is.
 643     if fGetControlProperty("LabelField","Align") <> "4" then
 644         warnlog "the value: align is not saved"
 645     endif
 646      if fGetControlProperty("LabelField","HelpText") <> "Filled in Text" then
 647         warnlog "the value: HelpText is not saved"
 648     endif
 649
 650     call closePropertyBrowserAndDocument()
 651
 652 endcase
 653
 654