testautomation/framework/optional/includes/options_so_4.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: options_so_4.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 12:18:15 $
  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 : thorsten.bosbach@sun.com
  35 '*
  36 '* short description : options test (General/Memory/View)
  37 '*
  38 '\******************************************************************************
  39
  40 testcase func_StarOfficeGeneral_1
  41    gApplication = "WRITER"
  42   Dim sSave as String
  43   Dim ClipText as String
  44
  45 '///StarOffice / General => 'Years ( two digits )'  - functionality test
  46
  47  printlog " - other"
  48  printlog "   - years two digits => 1899"
  49 '///+open tools/option/StarOffice/general
  50 '///+save the default settings
  51    ToolsOptions
  52    hToolsOptions ( "StarOffice", "General" )
  53    sSave = Zweistellig.GetText
  54 '///+insert 1899 in 'Interpret as years between' and click OK for the options dialog
  55    Zweistellig.SetText "1899"
  56    Kontext "ExtrasOptionenDlg"
  57    ExtrasOptionenDlg.OK
  58    Sleep (2)
  59
  60 '///+open a calc-doc and insert 04.03.00 <Return>
  61    gApplication = "CALC"
  62    hNewDocument
  63    DocumentCalc.TypeKeys "04.03.00<return>"
  64    DocumentCalc.TypeKeys "<up>"
  65    DocumentCalc.TypeKeys "<F2><Home><Shift End>"
  66    Sleep (1)
  67    EditCopy
  68    DocumentCalc.TypeKeys "<Escape>"
  69 '///+select the cell and press F2 => now the correct date in the cell must be 04/03/1900
  70
  71    ClipText = GetClipboardText
  72    if ClipText <> "04.03.1900" AND ClipText <> "04/03/1900" then Warnlog "Wrong date not 04.03.1900 or 04/03/1900 :  => '" + ClipText + "'"
  73
  74 '///+close the calc doc
  75    hCloseDocument
  76
  77  printlog "   - years two digits => 2050"
  78 '///open tools/option/StarOffice/general
  79    ToolsOptions
  80    hToolsOptions ( "StarOffice", "General" )
  81 '///+insert 2050 in 'Interpret as years between' and click OK for the options dialog
  82    Zweistellig.SetText "2050"
  83    Kontext "ExtrasOptionenDlg"
  84    ExtrasOptionenDlg.OK
  85    Sleep (2)
  86
  87 '///+open a calc-doc and insert 04.03.00 <Return>
  88    gApplication = "CALC"
  89    hNewDocument
  90    DocumentCalc.TypeKeys "05.03.68<return>"
  91    DocumentCalc.TypeKeys "<up>"
  92    DocumentCalc.TypeKeys "<F2><Home><Shift End>"
  93    Sleep (1)
  94    EditCopy
  95    DocumentCalc.TypeKeys "<Escape>"
  96
  97 '///+select the cell and press F2 => now the correct date in the cell must be 04/03/1900
  98    ClipText = GetClipboardText
  99    if ClipText <> "05.03.2068" AND ClipText <> "05/03/2068" then Warnlog "Wrong date not 05.03.2068 or 05/03/2068 :  => '" + ClipText + "'"
 100
 101 '///+close the calc doc
 102    hCloseDocument
 103
 104 '///open tools/option/StarOffice/general and reset all to the default data ( 1930 )
 105  printlog "   - reset to default"
 106    ToolsOptions
 107    hToolsOptions ( "StarOffice", "General" )
 108    Zweistellig.SetText sSave
 109    Kontext "ExtrasOptionenDlg"
 110    ExtrasOptionenDlg.OK
 111    Sleep (2)
 112
 113    gApplication = "WRITER"
 114 endcase
 115
 116 ' > * > * > * > * > * > * > * > * > * > * > * > * > * > * > * > *
 117 ' > * > * > * > * > * > * > * > * > * > * > * > * > * > * > * > *
 118 testcase func_StarOfficeGeneral_2
 119   Dim bSave as Boolean
 120   Dim sSave as String
 121   Dim i as Integer, iTime as Integer
 122
 123   gApplication = "WRITER"
 124
 125 '///StarOffice / General => 'Help Agent'
 126 '///check the maximum and the minimum of display duration ( 60sec and 5sec )
 127 '///+save the data for help agent
 128 '///+tools / options / staroffice / general -> help agent
 129  printlog "tools / options / staroffice / general -> help agent"
 130  printlog "- check the minimum and the maximum of display duration for help agent ( 60sec and 5sec )"
 131  printlog "   activate the help agent options-dialog -> OK"
 132    ToolsOptions
 133    hToolsOptions ( "StarOffice", "General" )
 134    bSave = Aktivieren.IsChecked
 135    Aktivieren.Check
 136    Kontext "ExtrasOptionenDlg"
 137    ExtrasOptionenDlg.OK
 138    Sleep (2)
 139
 140 '///working with activated HelpAgent
 141 '///+open a new writer-doc
 142  printlog "- working with activated HelpAgent"
 143  printlog "  - check display duration of 10sec"
 144  printlog "    new writer-doc"
 145   gApplication = "WRITER"
 146   hNewDocument
 147
 148 '///+tools / options / staroffice / general -> help agent
 149 '///+activate the help agent for 10 seconds ( click reset to delete the ignore-list for helpagent )
 150  printlog "    tools / options / staroffice / general -> help agent -> duration to 10 -> "
 151  printlog "    click also reset to delete the ignore-list for help-agent -> options-dialog OK"
 152    ToolsOptions
 153    hToolsOptions ( "StarOffice", "General" )
 154    Zuruecksetzen.Click
 155    Kontext "ExtrasOptionenDlg"
 156    ExtrasOptionenDlg.OK
 157    Sleep (2)
 158
 159 '///+open Format/Character - Font-Tabpage => help-agent must be activated ( 10seconds )
 160 '///+check if agent closed after ~10sec
 161  printlog "    Format/Character - Font-Tabpage => help-agent must be activated"
 162  printlog "    check if agent closed after ~10sec"
 163    FormatCharacter
 164    Kontext
 165    active.SetPage TabFont
 166
 167    Kontext "HelpAgent"
 168    if HelpAgent.Exists(1) <> TRUE then
 169       Warnlog "The help agent wasn't activated for autocorrection!"
 170    else
 171       for i=1 to 20
 172          if HelpAgent.Exists then
 173             Sleep 1
 174          else
 175             iTime = i
 176             i=21
 177          end if
 178       next i
 179       if iTime < 9 then Warnlog "The help agent is closed faster than 9 seconds!"
 180       if iTime > 12 then Warnlog "The help agent isn't closed after 12 seconds!"
 181       if HelpAgent.Exists then
 182          Warnlog "The help agent isn't closed after 20 seconds, the test close it!"
 183          HelpAgent.Close
 184       end if
 185    end if
 186
 187    Kontext "TabFont"
 188    TabFont.Cancel
 189 '///+close the options-dialog and close the writer-doc
 190  printlog "    close options-dialog and close the writer-doc"
 191    hCloseDocument
 192
 193 '///check display duration of 40sec
 194 '///+new writer-doc
 195 '///+tools / options / staroffice / general -> help agent
 196 '///+activate the help agent for 40 seconds
 197  printlog " - check another display duration of 40sec"
 198  printlog "    new writer-doc"
 199    hNewDocument
 200  printlog "    tools / options / staroffice / general -> help agent -> duration to 40 -> options-dialog OK"
 201    ToolsOptions
 202    hToolsOptions ( "StarOffice", "General" )
 203    Aktivieren.Check
 204    Kontext "ExtrasOptionenDlg"
 205    ExtrasOptionenDlg.OK
 206    Sleep (2)
 207 '///+open Format/Character - Font-Tabpage => help-agent must be activated ( 40seconds )
 208 '///+check if agent closed after ~40sec
 209  printlog "    Format/Character - Font-Tabpage => help-agent must be activated"
 210  printlog "    check if agent closed after ~40sec"
 211    FormatCharacter
 212    Kontext
 213    active.SetPage TabFont
 214
 215    Kontext "HelpAgent"
 216    if HelpAgent.Exists(1) <> TRUE then
 217       Warnlog "The help agent wasn't activated for autocorrection!"
 218    else
 219       for i=1 to 60
 220          if HelpAgent.Exists then
 221             Sleep 1
 222          else
 223             iTime = i
 224             i=61
 225          end if
 226       next i
 227       if iTime < 35 then Warnlog "The help agent is closed faster than 35 seconds!"
 228       if iTime > 45 then Warnlog "The help agent isn't closed after 45 seconds!"
 229       if HelpAgent.Exists then
 230          Warnlog "The help agent isn't closed after 40 seconds, the test close it!"
 231          HelpAgent.Close
 232       end if
 233    end if
 234    Kontext "TabFont"
 235    TabFont.Cancel
 236
 237 '///+close the options-dialog and close the writer-doc
 238  printlog "    close options-dialog and close the writer-doc"
 239    hCloseDocument
 240
 241 '///check another display duration of 60sec
 242 '///+ new writer-doc
 243 '///+tools / options / staroffice / general -> help agent
 244 '///+activate the help agent for 60 seconds
 245  printlog " - check another display duration of 60sec"
 246  printlog "    new writer-doc"
 247    hNewDocument
 248  printlog "    tools / options / staroffice / general -> help agent -> duration to 60 -> options-dialog OK"
 249    ToolsOptions
 250    hToolsOptions ( "StarOffice", "General" )
 251    Aktivieren.Check
 252    Kontext "ExtrasOptionenDlg"
 253    ExtrasOptionenDlg.OK
 254    Sleep (2)
 255 '///+open Format/Character - Font-Tabpage => help-agent must be activated ( 60seconds )
 256 '///+check if agent closed after ~60sec
 257  printlog "    Format/Character - Font-Tabpage => help-agent must be activated"
 258    FormatCharacter
 259    Kontext
 260    active.SetPage TabFont
 261
 262    Kontext "HelpAgent"
 263    if HelpAgent.Exists(1) <> TRUE then
 264       Warnlog "The help agent wasn't activated for autocorrection!"
 265    else
 266       for i=1 to 80
 267          if HelpAgent.Exists then
 268             Sleep 1
 269          else
 270             iTime = i
 271             i=81
 272          end if
 273       next i
 274       if iTime < 55 then Warnlog "The help agent is closed faster than 55 seconds!"
 275       if iTime > 65 then Warnlog "The help agent isn't closed after 65 seconds!"
 276       if HelpAgent.Exists then
 277          Warnlog "The help agent isn't closed after 60 seconds, the test close it!"
 278          HelpAgent.Close
 279       end if
 280    end if
 281
 282    Kontext "TabFont"
 283    TabFont.Cancel
 284
 285 '///+close the options-dialog and close the writer-doc
 286  printlog "    close options-dialog and close the writer-doc"
 287    hCloseDocument
 288
 289 '///check if the help agent isn't active, when you ignore it 3 times ( inserted in the ignore-list )
 290 '///+ new writer-doc
 291 '///+tools / options / staroffice / general -> help agent
 292 '///+activate the help agent for 10 seconds
 293  printlog " - check if the help agent isn't active, when you ignore it 3 times ( inserted in the ignore-list )"
 294  printlog "    new writer-doc"
 295    hNewDocument
 296   printlog "    tools / options / staroffice / general -> help agent -> duration to 10 -> options-dialog OK"
 297   ToolsOptions
 298    hToolsOptions ( "StarOffice", "General" )
 299    Aktivieren.Check
 300    Kontext "ExtrasOptionenDlg"
 301    ExtrasOptionenDlg.OK
 302    Sleep (2)
 303 '///+open Format/Character - Font-Tabpage => help-agent should not be activated
 304  printlog "    Format/Character - Font-Tabpage => help-agent should not be activated"
 305    FormatCharacter
 306    Kontext
 307    active.SetPage TabFont
 308
 309    Kontext "HelpAgent"
 310    if HelpAgent.Exists then
 311       Warnlog "Ignore HelpAgent 3 time for the same slot does not work, HelpAgent is active!"
 312       HelpAgent.Close
 313    end if
 314    Kontext "TabFont"
 315    TabFont.Cancel
 316
 317 '///+close the options-dialog and close the writer-doc
 318  printlog "    close options-dialog and close the writer-doc"
 319    hCloseDocument
 320
 321 '///check if ignore-list can be deleted
 322 '///+ new writer-doc
 323 '///+tools / options / staroffice / general -> help agent
 324 '///+activate the help agent for 10 seconds and reset the ignore-list
 325  printlog " - check if ignore-list can be deleted"
 326  printlog "    new writer-doc"
 327    hNewDocument
 328   printlog "    tools / options / staroffice / general -> help agent -> click on reset -> options-dialog OK"
 329    ToolsOptions
 330    hToolsOptions ( "StarOffice", "General" )
 331    Aktivieren.Check
 332    Zuruecksetzen.Click
 333    Kontext "ExtrasOptionenDlg"
 334    ExtrasOptionenDlg.OK
 335    Sleep (2)
 336 '///+open Format/Character - Font-Tabpage => help-agent should not be activated
 337  printlog "    Format/Character - Font-Tabpage => help-agent should not be activated"
 338    FormatCharacter
 339    Kontext
 340    active.SetPage TabFont
 341
 342    Kontext "HelpAgent"
 343    if HelpAgent.Exists(2) <> TRUE then
 344       Warnlog "Ignore-list isn't reset, the HelpAgent is not active"
 345    else
 346       HelpAgent.Close
 347    end if
 348    Kontext "TabFont"
 349    TabFont.Cancel
 350
 351 '///+close the options-dialog and close the writer-doc
 352  printlog "    close options-dialog and close the writer-doc"
 353    hCloseDocument
 354
 355 '///working with deactivated HelpAgent
 356 '///+create a new writer-doc
 357 '///+tools / options / staroffice / general -> help agent
 358 '///+deactivate the help agent
 359  printlog " - working with deactivated the help agent"
 360  printlog "    new writer-doc"
 361    hNewDocument
 362   printlog "    tools / options / staroffice / general -> deactivate help agent -> options-dialog OK"
 363    ToolsOptions
 364    hToolsOptions ( "StarOffice", "General" )
 365    Aktivieren.UnCheck
 366    Kontext "ExtrasOptionenDlg"
 367    ExtrasOptionenDlg.OK
 368    Sleep (2)
 369
 370 '///+open Format/Character - Font-Tabpage => help-agent ust be activated ( 10seconds )
 371  printlog "    Format/Character - Font-Tabpage => help-agent ust be activated"
 372    FormatCharacter
 373    Kontext
 374    active.SetPage TabFont
 375
 376    Kontext "HelpAgent"
 377    if HelpAgent.Exists(1) = TRUE then
 378       Warnlog "The help agent was active!"
 379       HelpAgent.Close
 380    end if
 381    Kontext "TabFont"
 382    TabFont.Cancel
 383
 384 '///+close the options-dialog and close the writer-doc
 385  printlog "    close options-dialog and close the writer-doc"
 386    hCloseDocument
 387
 388 '///reset help-agent-options
 389  printlog "  - reset help-agent-options"
 390    ToolsOptions
 391    hToolsOptions ( "StarOffice", "General" )
 392    Aktivieren.Check
 393    Zuruecksetzen.Click
 394    if bSave = TRUE then Aktivieren.Check else Aktivieren.UnCheck
 395
 396    Kontext "ExtrasOptionenDlg"
 397    ExtrasOptionenDlg.OK
 398    Sleep (2)
 399 endcase
 400
 401 ' > * > * > * > * > * > * > * > * > * > * > * > * > * > * > * > *
 402 ' > * > * > * > * > * > * > * > * > * > * > * > * > * > * > * > *
 403 testcase func_StarOfficeGeneral_3
 404   Dim bStatus as Boolean
 405
 406   gApplication = "WRITER"
 407
 408 '///StarOffice / General => 'printing sets 'document modified' status'
 409 '///+open a new writer-doc and save it
 410
 411  printlog "StarOffice / General => 'printing sets 'document modified' status'"
 412  printlog "save a writer-doc"
 413    hNewDocument
 414    Kontext "DocumentWriter"
 415    DocumentWriter.TypeKeys "This is a file, for options test: <return> Tools / Options / StarOffice / General -> 'Printing sets 'document modified' status'"
 416    DocumentWriter.TypeKeys "<Return><Return>This file is created by an automated test. It can be trashed after one day!<Return>Today is " + Date
 417    hFileSaveAsKill ( gOfficePath + "user\work\opt.sxw" )
 418
 419  printlog "- open tools/option/StarOffice/general and save the state of the checkbox"
 420  printlog "- check it"
 421 '///+ open tools/option/StarOffice/general
 422 '///+'printing sets 'document modified' status' => checked
 423    ToolsOptions
 424    hToolsOptions ( "StarOffice", "General" )
 425    bStatus = DruckenStatus.IsChecked
 426    DruckenStatus.Check
 427    Kontext "ExtrasOptionenDlg"
 428    ExtrasOptionenDlg.OK
 429    Sleep (2)
 430 '///+ close options dialog with OK
 431
 432  printlog "- file/print and click OK at the print-dialog"
 433 '///+file / print and click OK at the print-dialog
 434    FilePrint
 435
 436    Kontext "Active"
 437    if Active.Exists() then
 438       warnlog( "Unexpected dialog, no default printer found (#108776?)" )
 439       Active.OK()
 440    else
 441       Kontext "DruckenDlg"
 442       DruckenDlg.OK
 443       Sleep (5)
 444    endif
 445
 446  printlog "- file/close"
 447 '///+file / close => a messagebox must warn about changes in the document
 448    FileClose
 449    Kontext "Active"
 450    if Active.Exists(2) <> TRUE then
 451       Warnlog "No warning, when this options is checked!"
 452    else
 453 '///+- cancel the messagebox
 454       Active.Cancel
 455    end if
 456
 457  printlog "- file/save"
 458 '///+file / save
 459    FileSave
 460
 461  printlog "- uncheck the checkbox"
 462 '///'printing sets 'document modified' status' => unchecked
 463    ToolsOptions
 464    hToolsOptions ( "StarOffice", "General" )
 465    DruckenStatus.UnCheck
 466    Kontext "ExtrasOptionenDlg"
 467    ExtrasOptionenDlg.OK
 468    Sleep (2)
 469
 470  printlog "- file/print"
 471 '///+file / print
 472    FilePrint
 473    Kontext "DruckenDlg"
 474    DruckenDlg.OK
 475    Sleep (5)
 476
 477  printlog "- file/close"
 478 '///+file / close => no modify of the document => no messagebox for warning
 479    FileClose
 480    Kontext "Active"
 481    if Active.Exists(2) then
 482       Warnlog "The document is modified, a messagebox came up at closing"
 483       Active.Yes
 484    end if
 485
 486  printlog "- reset this option"
 487 '///set this option to default
 488    ToolsOptions
 489    hToolsOptions ( "StarOffice", "General" )
 490    if bStatus = TRUE then DruckenStatus.Check else DruckenStatus.UnCheck
 491    Kontext "ExtrasOptionenDlg"
 492    ExtrasOptionenDlg.OK
 493    Sleep (2)
 494
 495 endcase
 496
 497 ' > * > * > * > * > * > * > * > * > * > * > * > * > * > * > * > *
 498 ' > * > * > * > * > * > * > * > * > * > * > * > * > * > * > * > *
 499 testcase func_StarOfficeGeneral_4
 500   Dim bStatus as Boolean
 501
 502   gApplication = "WRITER"
 503
 504 '///StarOffice / General => 'use StarOffice dialogs' ( only on windows systems )
 505
 506 '///check that system dialogs are used => state of the checkbox is unchecked
 507 '///+open a new writer-doc
 508    hNewDocument
 509  printlog "StarOffice / General => 'use StarOffice dialogs'"
 510    if gPlatgroup = "unx" then
 511       printlog "This feature is only available on windows systems"
 512    else
 513 '///+open tools/options/staroffice/general
 514  printlog "- open tools/options/staroffice/general and uncheck 'use StarOffice dialogs'"
 515       ToolsOptions
 516       hToolsOptions ( "StarOffice", "General" )
 517 '///+save state of 'use StarOffice dialogs' and uncheck it
 518       bStatus = StarOfficeDialogeBenutzen.IsChecked
 519       StarOfficeDialogeBenutzen.UnCheck
 520       Kontext "ExtrasOptionenDlg"
 521       ExtrasOptionenDlg.OK
 522       Sleep (2)
 523
 524 '///+file/open and check if the file-dialog is a system-dialog
 525  printlog "- file/open and check if the file-dialog is a system-dialog"
 526       FileOpen
 527       if ExistsSysDialog ( FilePicker ) = FALSE then
 528          Warnlog "The file-open-dialog is no system dialog"
 529          Kontext "OeffnenDlg"
 530          OeffnenDlg.Cancel
 531       else
 532          CloseSysDialog ( FilePicker )
 533       end if
 534
 535 '///check that StarOffice dialogs are used => state of the checkbox is checked
 536 '///+open tools/options/staroffice/general
 537  printlog Chr(13) + "check that StarOffice dialogs are used => state of the checkbox is checked"
 538  printlog "- open tools/options/staroffice/general"
 539       ToolsOptions
 540       hToolsOptions ( "StarOffice", "General" )
 541 '///+save state of 'use StarOffice dialogs' and uncheck it
 542       StarOfficeDialogeBenutzen.Check
 543       Kontext "ExtrasOptionenDlg"
 544       ExtrasOptionenDlg.OK
 545       Sleep (2)
 546
 547 '///+file/open and check if the file-dialog is a StarOffice-dialog
 548  printlog "- open tools/options/staroffice/general and check 'use StarOffice dialogs'"
 549       FileOpen
 550       Kontext "OeffnenDlg"
 551       if OeffnenDlg.Exists (1) <> TRUE then
 552          Warnlog "StarOffice dialogs are not used!"
 553          if ExistsSysDialog ( FilePicker ) then CloseSysDialog ( FilePicker )
 554       else
 555          OeffnenDlg.Cancel
 556       end if
 557
 558 '///reset the state of 'use StarOffice dialogs' to default
 559 '///+open tools/options/staroffice/general
 560  printlog Chr(13) + "reset the state of 'use StarOffice dialogs' to default"
 561       ToolsOptions
 562       hToolsOptions ( "StarOffice", "General" )
 563 '///+save state of 'use StarOffice dialogs' and uncheck it
 564       if bStatus = TRUE then StarOfficeDialogeBenutzen.Check else StarOfficeDialogeBenutzen.UnCheck
 565       Kontext "ExtrasOptionenDlg"
 566       ExtrasOptionenDlg.OK
 567       Sleep (2)
 568    end if
 569
 570    hCloseDocument
 571
 572 endcase
 573
 574
 575 ' > * > * > * > * > * > * > * > * > * > * > * > * > * > * > * > *
 576 ' > * > * > * > * > * > * > * > * > * > * > * > * > * > * > * > *
 577 testcase func_StarOfficeMemory_1
 578    Dim sSave as String
 579    Dim i, ilast as Integer
 580    gApplication = "WRITER"
 581
 582 '///StarOffice / Memory => 'Undo steps'
 583
 584  printlog " - save"
 585  printlog "    - undo"
 586  printlog "    - set number of steps => 1"
 587
 588 '///<b>undo-step = 1</b>
 589 '///+open a new writer-doc and tools/options/staroffice/memory
 590    hNewDocument
 591    ToolsOptions
 592    hToolsOptions ( "StarOffice", "Memory" )
 593 '///+save the default setting for 'Undo Steps' and set it to 1
 594    sSave = UndoSteps.GetText
 595    UndoSteps.SetText "1"
 596 '///+click OK for the options dialog
 597    Kontext "ExtrasOptionenDlg"
 598    ExtrasOptionenDlg.OK
 599    Sleep (2)
 600
 601 '///+write two words in the writer doc
 602    Kontext "DocumentWriter"
 603    DocumentWriter.TypeKeys "Hello "
 604    DocumentWriter.TypeKeys "friends "
 605
 606 '///+try edit/undo more than 1 times, after the first click the menu-item must be inactiv and the undo-button in the function bar too
 607    EditUndo
 608    try
 609       EditUndo
 610       Warnlog "More than 1 undo was possible!"
 611    catch
 612    endcatch
 613
 614 '///<b>undo-step = 15</b>
 615 '///+open tools/options/staroffice/memory
 616  printlog "    - set number of steps => 15"
 617    ToolsOptions
 618    hToolsOptions ( "StarOffice", "Memory" )
 619 '///+set 'Undo Steps' to 15
 620    UndoSteps.SetText "15"
 621 '///+click OK for the options dialog
 622    Kontext "ExtrasOptionenDlg"
 623    ExtrasOptionenDlg.OK
 624    Sleep (2)
 625
 626 '///+write a short text with more than 20 words
 627    Kontext "DocumentWriter"
 628    for i=1 to 20
 629       DocumentWriter.TypeKeys "Hello<return>"
 630    next i
 631    Sleep (2)
 632
 633 '///+check if you can use 'edit/undo' more than 15 times
 634    for i=1 to 20
 635       if i<16 then
 636          try
 637             EditUndo
 638          catch
 639             iLast = i-1
 640             Warnlog "The 15th undo was impossible! The test can do only " + iLast + " undos!  => BugID 83891"
 641          endcatch
 642       else
 643          try
 644             EditUndo
 645             Warnlog "More than 15 undo was possible!"
 646          catch
 647          endcatch
 648       end if
 649    next i
 650
 651 '///<b>undo-step = 99</b>
 652 '///+open tools/options/staroffice/memory
 653  printlog "    - set number of steps => 99"
 654    ToolsOptions
 655    hToolsOptions ( "StarOffice", "Memory" )
 656 '///+set 'Undo Steps' to 99
 657    UndoSteps.SetText "99"
 658    Kontext "ExtrasOptionenDlg"
 659    ExtrasOptionenDlg.OK
 660    Sleep (2)
 661
 662 '///+write a short text with more than 100 words
 663    Kontext "DocumentWriter"
 664    for i=1 to 102
 665       DocumentWriter.TypeKeys "Hello<return>"
 666    next i
 667
 668 '///+check if you can use 'edit/undo' more than 99 times
 669    for i=1 to 102
 670       if i<100 then
 671          try
 672             EditUndo
 673          catch
 674             iLast = i-1
 675             Warnlog "The 99th undo was impossible! The test can do only " + iLast + " undos!  => BugID 83891"
 676             i=105
 677          endcatch
 678       else
 679          try
 680             EditUndo
 681             Warnlog "More than 99 undo are possible!"
 682          catch
 683             i=105
 684          endcatch
 685       end if
 686    next i
 687
 688 '///close the document
 689    hCloseDocument
 690
 691 '///set this option to default
 692  printlog "    - reset the number of steps"
 693    ToolsOptions
 694    hToolsOptions ( "StarOffice", "Memory" )
 695    UndoSteps.SetText sSave
 696    Kontext "ExtrasOptionenDlg"
 697    ExtrasOptionenDlg.OK
 698    Sleep (2)
 699
 700 endcase
 701
 702 ' > * > * > * > * > * > * > * > * > * > * > * > * > * > * > * > *
 703 ' > * > * > * > * > * > * > * > * > * > * > * > * > * > * > * > *
 704 testcase func_StarOfficeView_1
 705   Dim bSave as Boolean
 706   Dim iSave as Integer
 707   Dim sSave as String
 708
 709 '///StarOffice / View => 'Display : Look & Feel' and 'Scaling'
 710 hNewDocument
 711 '///+open tools/options/staroffice/view
 712    ToolsOptions
 713    hToolsOptions ( "StarOffice", "View" )
 714  printlog " - view"
 715  printlog "   - display"
 716 '///scaling
 717  printlog "    - scaling"
 718 '///+save the default setting for scaling
 719    sSave = FontScale.GetText
 720 '///+set Scaling to 50
 721    FontScale.SetText "50"
 722    FontScale.More
 723    FontScale.Less
 724  printlog "      - " + FontScale.GetText
 725 '///+click OK for the options dialog
 726    Kontext "ExtrasOptionenDlg"
 727    ExtrasOptionenDlg.OK
 728    Sleep (2)
 729
 730 '///+open some dialogs/tab dialogs and flyer to have a look at it ( testtool only can test, if this feature doesn't crash )
 731    Call DialogTestForViewOptions
 732
 733 '///+open tools/options/staroffice/view
 734    ToolsOptions
 735    hToolsOptions ( "StarOffice", "View" )
 736 '///+set Scaling to 150
 737    FontScale.SetText "150"
 738    FontScale.More
 739    FontScale.Less
 740  printlog "      - " + FontScale.GetText
 741 '///+click OK for the options dialog
 742    Kontext "ExtrasOptionenDlg"
 743    ExtrasOptionenDlg.OK
 744    Sleep (2)
 745
 746 '///+open some dialogs/tab dialogs and flyer to have a look at it ( testtool only can test, if this feature doesn't crash )
 747    Call DialogTestForViewOptions
 748
 749 '///+open tools/options/staroffice/view
 750    ToolsOptions
 751    hToolsOptions ( "StarOffice", "View" )
 752 '///+set Scaling to default setting
 753    FontScale.SetText(sSave)
 754    FontScale.More
 755    FontScale.Less
 756  printlog "      - " + FontScale.GetText
 757 '///+click OK for the options dialog
 758    Kontext "ExtrasOptionenDlg"
 759    ExtrasOptionenDlg.OK
 760    Sleep (2)
 761    hclosedocument
 762 endcase
 763
 764 ' > * > * > * > * > * > * > * > * > * > * > * > * > * > * > * > *
 765 ' > * > * > * > * > * > * > * > * > * > * > * > * > * > * > * > *
 766 testcase func_StarOfficeView_2
 767    Dim iSave as Integer
 768
 769  printlog " - view"
 770  printlog "   - mouse positioning"
 771
 772 '///StarOffice / View => 'mouse positioning'
 773 '///+open a new writer doc
 774    hNewDocument
 775
 776 '///+open tools/options/staroffice/view
 777    ToolsOptions
 778    hToolsOptions ( "StarOffice", "View" )
 779 '///+save the default setting for 'mouse positioning'
 780    iSave = MousePositioning.GetSelIndex
 781 '///+select the 1st entry for 'mouse positioning'
 782    MousePositioning.Select 1
 783  printlog "      - " + MousePositioning.GetSelText
 784 '///+click OK for the options dialog
 785    Kontext "ExtrasOptionenDlg"
 786    ExtrasOptionenDlg.OK
 787    Sleep (2)
 788
 789 '///+move the mouse to position 1,1 on the writer doc
 790    Kontext "DocumentWriter"
 791    DocumentWriter.MouseMove 1, 1
 792
 793 '///+open some dialogs/tab dialogs and flyer to have a look at the mouse position ( testtool only can test, if this feature doesn't crash )
 794    DialogTestForViewOptions
 795
 796 '///+open tools/options/staroffice/view
 797    ToolsOptions
 798    hToolsOptions ( "StarOffice", "View" )
 799 '///+select the 2nd entry for 'mouse positioning'
 800    MousePositioning.Select 2
 801  printlog "      - " + MousePositioning.GetSelText
 802 '///+click OK for the options dialog
 803    Kontext "ExtrasOptionenDlg"
 804    ExtrasOptionenDlg.OK
 805    Sleep (2)
 806
 807 '///+move the mouse to position 1,1 on the writer doc
 808    Kontext "DocumentWriter"
 809    DocumentWriter.MouseMove 1, 1
 810
 811 '///+open some dialogs/tab dialogs and flyer to have a look at the mouse position ( testtool only can test, if this feature doesn't crash )
 812    DialogTestForViewOptions
 813
 814 '///+open tools/options/staroffice/view
 815    ToolsOptions
 816    hToolsOptions ( "StarOffice", "View" )
 817 '///+select the 3rd entry for 'mouse positioning'
 818    MousePositioning.Select 3
 819  printlog "      - " + MousePositioning.GetSelText
 820 '///+click OK for the options dialog
 821    Kontext "ExtrasOptionenDlg"
 822    ExtrasOptionenDlg.OK
 823    Sleep (2)
 824
 825 '///+move the mouse to position 1,1 on the writer doc
 826    Kontext "DocumentWriter"
 827    DocumentWriter.MouseMove 1, 1
 828
 829 '///+open some dialogs/tab dialogs and flyer to have a look at the mouse position ( testtool only can test, if this feature doesn't crash )
 830    DialogTestForViewOptions
 831
 832 '///+open tools/options/staroffice/view
 833    ToolsOptions
 834    hToolsOptions ( "StarOffice", "View" )
 835 '///+select the default setting for 'mouse positioning'
 836    MousePositioning.Select iSave
 837 '///+click OK for the options dialog
 838    Kontext "ExtrasOptionenDlg"
 839    ExtrasOptionenDlg.OK
 840    Sleep (2)
 841
 842 '///+close the writer doc
 843    hCloseDocument
 844 endcase
 845
 846