testautomation/graphics/optional/includes/impress/i_headerfooter.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: i_headerfooter.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 10:42:41 $
  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 : wolfram.garten@sun.com
  35 '*
  36 '* short description : Tests the header-footer-function in Impress
  37 '*
  38 '*******************************************************************
  39 '*
  40 ' #1 tiHeaderFooterSlide
  41 ' #1 tiHeaderFooterNotesHandout
  42 '*
  43 '\*******************************************************************
  44
  45 dim numbervalue1 as integer
  46 dim value2 as String
  47 dim value3 as String
  48
  49 '------------------------------------------------------------------------------
  50
  51 testcase tiHeaderFooterSlide
  52     '/// This part checks the first Tabpage of the Header and Footer Dialog
  53
  54     Call hNewDocument           '/// Open New document
  55     kontext "drawimpress"
  56     try
  57        ViewHeaderAndFooter          '/// View - Header And Footer
  58        sleep(1)
  59     catch
  60        warnlog " Could'nt open ViewHeaderAndFooter!" '/// Warnlog for not opening dialog
  61     endcatch
  62
  63     printlog " Testing TabHeaderFooterSlide."
  64     kontext "TabHeaderFooterSlide"
  65
  66     '/// Check Date And Time on first tab
  67     if DateTime.Exists = TRUE AND DateTimeFixed.isVisible = TRUE then '/// Testing date and time checkbox
  68         DateTime.UnCheck
  69         sleep(1)
  70         DateTime.Check
  71         sleep(1)
  72
  73         if DateTime.IsChecked then
  74             printlog " DateTimeFormat-checkbox works."
  75         else
  76             warnlog " Something wrong with the DateTime-checkbox!"
  77         endif
  78
  79     else
  80         warnlog "DateTime does not exist or is not visible."
  81     endif
  82
  83     '/// Checking if DateTime checkbox setting is remembered...
  84     DateTime.Uncheck
  85     printlog " Date Time is unchecked now."
  86     Apply.Click
  87     ViewHeaderAndFooter
  88
  89     if DateTime.isChecked then
  90         warnlog " Settings of Date Time not remembered!"
  91     else
  92         printlog " Setting of date Time is remembered."
  93     endif
  94     DateTime.Check
  95
  96    '/// Check DateTimeFixed can be checked/unchecked
  97     if DateTimeFixed.Exists = TRUE AND DateTimeFixed.isVisible = TRUE then
  98         DateTimeFixed.Check
  99         sleep(1)
 100
 101         if DateTimeFixed.isChecked = TRUE AND DateTimeVariable.IsChecked = FALSE then
 102             printlog " Datetimefixed-checkbox seem to work."
 103         else
 104             warnlog " Datetimefixed-checkbox isnt checked or DateTimeVariable is checked!"
 105         endif
 106
 107     else
 108         warnlog " DateTimeFixed doesnt exist or is not visible!"
 109     endif
 110
 111     '/// Can text be inserted in the "fixed"-field?
 112     if DateTimeFixedText.exists = TRUE AND DateTimeFixedText.isVisible = TRUE then
 113         DateTimeFixedText.settext "lalala"
 114
 115         if DateTimeFixedText.gettext <> "lalala" then
 116             errorlog " Could'nt write a text to the DateTimeFixedText-field!"
 117         else
 118             printlog " Text is the same."
 119         endif
 120
 121     else
 122         warnlog " DateTimeFixedText doesnt exist or is not visible!"
 123     endif
 124
 125     '/// Checking if DateTimeFixed and Text setting is remembered...
 126     DateTime.Check
 127     DateTimeFixed.Check
 128     DateTimeFixedText.settext "lalala"
 129     Apply.Click
 130     ViewHeaderAndFooter
 131
 132     if DateTimeFixedText.gettext <> "lalala" then
 133         warnlog " Text in DateTimeFixedText is not the same!"
 134     else
 135         printlog " Text was saved."
 136     endif
 137     DateTimeFixedText.settext ""
 138
 139     '/// Can I change to "Variable" and check it?
 140     if DateTimeVariable.exists = TRUE AND DateTimeVariable.isVisible = TRUE then
 141         DateTimeVariable.Check
 142         sleep(1)
 143
 144         if DateTimeVariable.IsChecked AND DateTimeFixed.IsChecked = FALSE then
 145             printlog " DateTimeVariable-checkbox works."
 146         else
 147             warnlog " Something wrong with the DateTimeVariable-checkbox or DateTimeFormat is checked!"
 148         endif
 149
 150     else
 151         warnlog " DateTimeVariable doesnt exist or is not visible!"
 152     endif
 153
 154     '/// Is the Variable setting saved?
 155     Apply.Click
 156     ViewHeaderAndFooter
 157     if DateTimeVariable.isChecked then
 158         printlog " Variable Setting gets saved."
 159     else
 160         warnlog " Variable setting does not get saved!"
 161     endif
 162
 163     '/// Checking DateTimeFormat box
 164     if DateTimeFormat.exists = TRUE AND DateTimeFormat.isVisible = TRUE then
 165         numbervalue1 = DateTimeFormat.getitemcount     '/// Get the number of choices
 166         printlog " DateTimeFormat equals: " + numbervalue1
 167         value2 = DateTimeFormat.getseltext             '/// Get the text for the choosen entry
 168         printlog " Tries to get ", numbervalue1 & "."
 169         DateTimeFormat.select ( numbervalue1 - 1 )     '/// Select the last entry
 170         value3 = DateTimeFormat.getseltext             '/// Get the text for the last entry
 171         printlog " DateTimeFormat is: " + value3
 172
 173         if value2 = value3 then
 174             errorlog " More options for Date should exist!"   '/// Check if the first and last are the same.
 175             DateTimeFormat.select value2                   '/// Choose the original state
 176         else
 177             printlog " DateTimeFormat box works."
 178         endif
 179
 180         '/// Checking if settings of DateTimeFormat box get saved
 181         Apply. Click
 182         ViewHeaderAndFooter
 183         if DateTimeFormat.GetSelText = value3 then
 184             printlog " DateTimeFormat settings get saved."
 185         else
 186             warnlog " DateTimeFormat settings did not get saved!"
 187         endif
 188
 189     else
 190         warnlog " DateTimeFormat doesnt exist or is not visible."
 191     endif
 192
 193     '/// Checking DateTimeLanguage box
 194     if DateTimeLanguage.exists = TRUE AND DateTimeLanguage.isVisible = TRUE then
 195         numbervalue1 = DateTimeLanguage.GetItemCount   '/// Get the number of choices
 196         DateTimeFormat.select 1                        '/// Choose the first entry
 197         value2 = DateTimeLanguage.GetSelText           '/// Get the text for the choosen entry
 198         DateTimeLanguage.select ( numbervalue1 - 1 )   '/// Select the last entry
 199         value3 = DateTimeLanguage.GetSelText           '/// Get the text for the last entry
 200
 201         if value2 = value3 then
 202             errorlog " More options for Date should exist!"   '/// Check  if the first and last aare the same.
 203             DateTimeLanguage.select value2                 '/// Choose the original state
 204             value3 = DateTimeLanguage.GetSelText
 205             else
 206                 printlog " DateTimeLanguage box works."
 207             endif
 208
 209         '/// Checking if language settings get saved
 210         Apply.Click
 211         ViewHeaderAndFooter
 212         if DateTimeLanguage.GetSelText = value3 then
 213             printlog " DateTimeLanguage settings get saved."
 214         else
 215             warnlog " DateTimeLanguage do not get saved!"
 216         endif
 217
 218     else
 219         warnlog " DateTime doesnt exist or is not visible!"
 220     endif
 221
 222     '/// Checking Footer checkbox
 223     if Footer.exists = TRUE AND Footer.isVisible = TRUE then
 224         Footer.Check
 225         sleep(1)
 226
 227         if Footer.IsChecked then
 228             printlog " Footer-checkbox works."
 229         else
 230             errorlog " Something wrong with the Footer-checkbox!"
 231         endif
 232
 233     else
 234         warnlog " Footer checkbox doesnt exist or is not visible!"
 235     endif
 236
 237     '/// Checking if Footer setting gest saved
 238     Footer.Uncheck
 239     Apply.Click
 240     ViewHeaderAndFooter
 241     if Footer.IsChecked then
 242         warnlog " Footer settings do not get saved!"
 243     else
 244         printlog " Footer settings saved."
 245     endif
 246     Footer.Check
 247
 248     '/// Checking if text can be inserted in FooterFixedText
 249     if FooterFixedText.exists = TRUE AND FooterFixedText.isVisible = TRUE then
 250         FooterFixedText.SetText "lalala"
 251
 252         if FooterFixedText.GetText <> "lalala" then
 253             errorlog " Could'nt write a text to the FooterFixedText-field!"
 254         else
 255             printlog " FooterFixedText works."
 256         endif
 257
 258     else
 259         warnlog " Footer doesnt exist or is not visible!"
 260     endif
 261
 262     '/// Checking if Footer text gets saved.
 263     Apply.Click
 264     ViewHeaderAndFooter
 265
 266     if FooterFixedText.GetText <>"lalala" then
 267         errorlog " Text does not get saved!"
 268     else
 269         printlog " FooterFixedText works."
 270
 271     endif
 272     FooterFixedText.SetText ""
 273
 274    '/// Checking Slidenumber checkbox
 275     if Donotshowonfirstslide.exists = TRUE AND Donotshowonfirstslide.isVisible = TRUE then
 276         Slidenumber.Check
 277         sleep(1)
 278
 279         if Slidenumber.IsChecked then
 280             printlog " Slidenumber-checkbox works"
 281         else
 282             warnlog " Something wrong with the slidenumber-checkbox!"
 283         endif
 284     else
 285         warnlog " Do not show on first slide doesnt exist or is not visible!"
 286     endif
 287
 288     '/// Checking if Slidenumber gets saved.
 289     Apply.Click
 290     ViewHeaderAndFooter
 291
 292     if Slidenumber.IsChecked then
 293         printlog " Slidenumber setting is remembered."
 294     else
 295         warnlog " Slidenumber setting is not remembered!"
 296     endif
 297
 298     '/// Checking "Do not show on first slide" checkbox
 299     if Donotshowonfirstslide.exists = TRUE AND Donotshowonfirstslide.isVisible = TRUE then
 300         Donotshowonfirstslide.UnCheck
 301         sleep(1)
 302         Donotshowonfirstslide.Check
 303         if Donotshowonfirstslide.IsChecked then
 304             printlog " Do not show on first slide-checkbox works"
 305         else
 306             errorlog " Something wrong with the Do not show on first slide-checkbox!"
 307         endif
 308     else
 309         warnlog " Do not show on first slide doesnt exist or is not visible!"
 310     endif
 311
 312     '/// Checking if Do not show on first slide is saved.
 313     Apply.Click
 314     ViewHeaderAndFooter
 315
 316     if Donotshowonfirstslide.IsChecked then
 317         printlog " Do not show on first slide setting is saved."
 318     else
 319         warnlog " Do not show on first slide setting is not saved!"
 320     endif
 321
 322     '/// Closing dialog with cancel
 323     sleep 1
 324     TabHeaderFooterSlide.Cancel
 325     sleep 1
 326     kontext "drawimpress"
 327     sleep 1
 328
 329     '/// Close document
 330     Call hCloseDocument
 331
 332 endcase
 333
 334 '----------------------------------------------------------------------------
 335
 336 testcase tiHeaderFooterNotesHandout
 337         '/// This part checks the second Tabpage of the Header and Footer Dialog for notes and handout
 338
 339     Call hNewDocument           '/// Open New document
 340     kontext "drawimpress"
 341     try
 342         ViewHeaderAndFooter          '/// View - Header And Footer
 343         sleep(1)
 344     catch
 345         warnlog " Could'nt open ViewHeaderAndFooter!" '/// Warnlog for not opening dialog
 346     endcatch 'goto endcase
 347     kontext " TabHeaderFooterSlide"
 348
 349     '/// Change tabpage to HeaderFooterNotesHandout
 350     printlog " Testing TabHeaderFooterNotesHandout."
 351     sleep 2
 352     kontext
 353     active.setpage TabHeaderFooterNotesHandout
 354     sleep 2
 355     kontext "TabHeaderFooterNotesHandout"
 356
 357     '/// Checking Header checkbox
 358     if Header.exists = TRUE AND Header.isVisible = TRUE then
 359         Header.UnCheck
 360         sleep(1)
 361         Header.Check
 362         sleep(1)
 363
 364         if Header.isChecked then
 365             printlog " Header-checkbox works."
 366         else
 367             warnlog " Header-checkbox doesn't work!"
 368         endif
 369
 370     else
 371         warnlog " Header doesnt exist or is not visible!"
 372     endif
 373
 374     '/// Checking if Header setting is saved.
 375     Header.Uncheck
 376     ApplyToAll.Click
 377     ViewHeaderAndFooter
 378     kontext
 379     active.setpage TabHeaderFooterNotesHandout
 380     kontext "TabHeaderFooterNotesHandout"
 381
 382     if Header.IsChecked then
 383         warnlog " Header should not be checked!"
 384     else
 385         printlog " Header not checked."
 386         Header.Check
 387     endif
 388
 389     '/// Checking if header text can be inserted
 390     if HeaderFixedText.exists = TRUE AND HeaderFixedText.isVisible = TRUE then
 391         HeaderFixedText.settext "lalala"
 392         sleep(1)
 393
 394         if HeaderFixedText.gettext <> "lalala" then
 395             warnlog " HeaderFixedText is wrong!"
 396         else
 397             printlog " HeaderFixedText works."
 398         endif
 399     else
 400         warnlog " HeaderFixedText doesnt exist or is not visible!"
 401     endif
 402
 403     '/// Checking if text is saved.
 404     ApplyToAll.Click
 405     ViewHeaderAndFooter
 406     kontext
 407     active.setpage TabHeaderFooterNotesHandout
 408     kontext "TabHeaderFooterNotesHandout"
 409     if HeaderFixedText.gettext <> "lalala" then
 410         warnlog " HeaderFixedText does not get saved!"
 411     else
 412         printlog " HeaderFixedText gets saved."
 413     endif
 414     HeaderFixedText.SetText ""
 415
 416     '/// Checking Date And Time checkbox
 417     if DateTime.exists = TRUE AND DateTime.isVisible = TRUE then
 418         DateTime.UnCheck
 419         sleep(1)
 420         DateTime.Check
 421         sleep(1)
 422
 423         if DateTime.isChecked then
 424             printlog " DateAndTime-checkbox works."
 425         else
 426             warnlog " DateAndTime-checkbox doesnt work!"
 427         endif
 428
 429     else
 430         warnlog " DateTime doesnt exist or is not visible!"
 431     endif
 432
 433     '/// Checking if Date and Time setting is saved.
 434     DateTime.Uncheck
 435     ApplyToAll.Click
 436     ViewHeaderAndFooter
 437     kontext
 438     active.setpage TabHeaderFooterNotesHandout
 439     kontext "TabHeaderFooterNotesHandout"
 440
 441     if DateTime.IsChecked then
 442         warnlog " DateTime is not saved!"
 443     else
 444         printlog " DateTime gets saved."
 445     endif
 446     DateTime.Check
 447
 448     '/// Check DateTimeFixed can be checked/unchecked
 449     if DateTimeFixed.exists = TRUE AND DateTimeFixed.isVisible = TRUE then
 450
 451         if DateTimeFixed.isChecked then
 452             errorlog "DateTimeFixed shouldnt be checked at this point"
 453             DateTimeVariable.check
 454             sleep(1)
 455         else
 456             printlog " DateTimeFixed not checked."
 457         endif
 458
 459         if DateTimeFixed.isChecked then
 460             warnlog " Datetimefixed-checkbox doesnt work!"
 461         else
 462              DateTimeFixed.check
 463             if DateTimeFixed.isChecked then
 464                 printlog " Datetimefixed checkbox works."
 465             else
 466                 warnlog " DateTimeFixed is not checked!"
 467             endif
 468         endif
 469     else
 470         warnlog " DateTimeFixed doesnt exist or is not visible!"
 471     endif
 472
 473     '/// Can text be inserted in the "fixed"-field?
 474     if DateTimeFixedText.exists = TRUE AND DateTimeFixedText.isVisible = TRUE then
 475         DateTimeFixedText.settext "lalala"
 476
 477         if DateTimeFixedText.gettext <> "lalala" then
 478             errorlog " Error with writing in the DateTimeFixedText-field!"
 479         else
 480             printlog " DateTimeFixedText works."
 481         endif
 482
 483         '/// Checking if DateTimeFixedText gets saved.
 484         ApplyToAll.Click
 485         ViewHeaderAndFooter
 486         kontext
 487         active.setpage TabHeaderFooterNotesHandout
 488         kontext "TabHeaderFooterNotesHandout"
 489
 490         if DateTimeFixedText.GetText <> "lalala" then
 491             warnlog " DateTimeFixedText does not get saved!"
 492         else
 493             printlog " DateTimeFixedText gets saved."
 494         endif
 495
 496     else
 497         warnlog "DateTimeFixedText doesnt exist or is not visible"
 498     endif
 499
 500     '/// Can it be changed to "Variable" and checked?
 501     if DateTimeVariable.exists = TRUE AND DateTimeVariable.isVisible = TRUE then
 502         DateTimeVariable.Check
 503         sleep(1)
 504
 505         if DateTimeVariable.IsChecked AND DateTimeFixed.IsChecked = FALSE then
 506             printlog " DateTimeVariable-checkbox works."
 507         else
 508             warnlog " Something wrong with the DateTimeVariable-checkbox or DateTimeFormat is checked!"
 509         endif
 510
 511         '/// Checking if DateTimeVariable setting gets saved.
 512         ApplyToAll.Click
 513         ViewHeaderAndFooter
 514         kontext
 515         active.setpage TabHeaderFooterNotesHandout
 516         kontext "TabHeaderFooterNotesHandout"
 517
 518         if DateTimeVariable.IsChecked then
 519             printlog " Variable setting gets saved."
 520         else
 521             warnlog " Variable setting does not get saved!"
 522         endif
 523
 524     else
 525         warnlog " DateTimeVariable doesnt exist or is not visible"
 526     endif
 527
 528     '/// Checking format dropdown box
 529     numbervalue1 = DateTimeFormat.getitemcount           '/// Get the number of choices
 530     printlog " DateTimeFormat equals: " + numbervalue1
 531     value2 = DateTimeFormat.getseltext             '/// Get the text for the choosen entry
 532     printlog " Tries to get ", numbervalue1
 533
 534     if DateTimeFormat.exists = TRUE AND DateTimeFormat.isVisible = TRUE then
 535         DateTimeFormat.select ( numbervalue1 - 1 )     '/// Select the last entry
 536         value3 = DateTimeFormat.getseltext             '/// Get the text for the last entry
 537         printlog " DateTimeFormat is: " + value3
 538
 539         if value2 = value3 then
 540             errorlog " More options for Date should exist."   '/// Check if the first and last are the same.
 541             DateTimeFormat.select value2                   '/// Choose the original state
 542         else
 543             printlog " DateTimeFormat works."
 544         endif
 545
 546         '/// Checking if DateTimeFormat setting gets saved.
 547         ApplyToAll.Click
 548         ViewHeaderAndFooter
 549         kontext
 550         active.setpage TabHeaderFooterNotesHandout
 551         kontext "TabHeaderFooterNotesHandout"
 552
 553         if DateTimeFormat.GetSelText = value3 then
 554             printlog " DateTimeFormat setting gets saved."
 555         else
 556             warnlog " DateTimeFormat setting does not get saved!"
 557         endif
 558
 559     else
 560         warnlog "DateTimeFormat does not exist or is not visible."
 561     endif
 562
 563     if DateTimeLanguage.exists = TRUE AND DateTimeLanguage.isVisible = TRUE then
 564         numbervalue1 = DateTimeLanguage.getitemcount   '/// Get the number of choices
 565         DateTimeFormat.select 1                        '/// Choose the first entry
 566         value2 = DateTimeLanguage.getseltext           '/// Get the text for the choosen entry
 567         DateTimeLanguage.select ( numbervalue1 - 1 )   '/// Select the last entry
 568         value3 = DateTimeLanguage.getseltext           '/// Get the text for the last entry
 569
 570         if value2 = value3 then
 571             errorlog " More options for Date should exist!"   '/// Check if the first and last are the same.
 572         else
 573             printlog " Footer works."
 574         endif
 575
 576         '/// Checking if DateTimeLanguage setting gets saved.
 577         ApplyToAll.Click
 578         ViewHeaderAndFooter
 579         kontext
 580         active.setpage TabHeaderFooterNotesHandout
 581         kontext "TabHeaderFooterNotesHandout"
 582
 583         if DateTimeLanguage.GetSelText = value3 then
 584             printlog " DateTimeLanguage setting gets saved."
 585         else
 586             warnlog " DateTimeLanguage setting does not get saved!"
 587         endif
 588     else
 589         warnlog " DateTimeLanguage does not exist!"
 590     endif
 591
 592         '/// Checking Footer checkbox.
 593         if Footer.exists = TRUE AND Footer.isVisible = TRUE then
 594             Footer.UnCheck
 595             sleep(1)
 596         else
 597             warnlog " Footer does not exists!"
 598         endif
 599
 600         if Footer.IsChecked = TRUE then
 601             warnlog "Footer should NOT be checked at this point"
 602         else
 603             Footer.Check
 604         endif
 605
 606         '///Check if Footer setting is saved.
 607         Footer.Uncheck
 608         ApplyToAll.Click
 609         ViewHeaderAndFooter
 610         kontext
 611         active.setpage TabHeaderFooterNotesHandout
 612         kontext "TabHeaderFooterNotesHandout"
 613
 614         if Footer.IsChecked then
 615             warnlog " Footer should not be checked!"
 616         else
 617             printlog " Footer is not checked."
 618         endif
 619         Footer.Check
 620
 621
 622
 623     '/// Checking if Footer text can be inserted
 624     if FooterFixedText.exists = TRUE AND FooterFixedText.isVisible = TRUE then
 625         FooterFixedText.SetText "lalala"
 626         sleep(1)
 627
 628         if FooterFixedText.GetText <> "lalala" then
 629             errorlog " Could'nt write a text to the FooterFixedText-field!"
 630         else
 631             printlog " FooterFixedText works."
 632         endif
 633
 634     else
 635         warnlog " FooterFixedText does not exists!"
 636     endif
 637
 638     '///Checking if Footer text is saved.
 639     ApplyToAll.Click
 640     ViewHeaderAndFooter
 641     kontext
 642     active.setpage TabHeaderFooterNotesHandout
 643     kontext "TabHeaderFooterNotesHandout"
 644
 645     if FooterFixedText.GetText <> "lalala" then
 646         warnlog " FooterFixedText does not get saved!"
 647     else
 648         printlog " FooterFixedText gets saved."
 649     endif
 650
 651     '/// Checking Slidenumber checkbox
 652     if Slidenumber.exists = TRUE AND Slidenumber.isVisible = TRUE then
 653         Slidenumber.UnCheck
 654         sleep(1)
 655
 656         if Slidenumber.IsChecked = TRUE then
 657             warnlog " Slidenumber should NOT be checked at this point!"
 658         else
 659             Slidenumber.Check
 660         endif
 661
 662         '/// Checking if Slidenumber setting is saved.
 663         ApplyToAll.Click
 664         ViewHeaderAndFooter
 665         kontext
 666         active.setpage TabHeaderFooterNotesHandout
 667         kontext "TabHeaderFooterNotesHandout"
 668
 669         if Slidenumber.IsChecked then
 670             printlog " Slidenumber setting get saved."
 671         else
 672             warnlog " Slidenumber setting does not get saved!"
 673         endif
 674
 675     else
 676         warnlog " Slidenumber does'nt exist or is not visible!"
 677     endif
 678
 679     '/// Close dialog with cancel
 680     sleep 1
 681     TabHeaderFooterNotesHandout.Cancel
 682     sleep 1
 683     kontext "drawimpress"
 684     sleep 1
 685
 686    '/// Close document
 687     Call hCloseDocument
 688
 689 endcase
 690
 691 '-------------------------------------------------------------------------------