testautomation/dbaccess/optional/includes/ctrl_TextControl.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_TextControl.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 07:43: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 : marc.neumann@sun.com
  35 '*
  36 '* short description : Text Control
  37 '*
  38 '\***********************************************************************
  39
  40 sub ctrl_TextControl
  41
  42     call tTextControl
  43     call tRichTextControl
  44     call tRichTextControlDraw
  45
  46 end sub
  47 '--------------------------------------------------------------------------------------
  48 testcase tTextControl
  49
  50     '/// Open a new document,
  51     printlog "Open a new document,"
  52         call hNewDocument
  53     Kontext "DocumentWriter"
  54         DocumentWriter.TypeKeys "tt_doc" , true
  55         sleep(1)
  56
  57     call hToolbarSelect("FormControls",true)
  58
  59         Kontext "FormControls"
  60         Edit.Click
  61         sleep(1)
  62         '/// insert a text box
  63     printlog "insert a text box"
  64     call hDrawingWithSelection ( 50, 20, 60, 30 )
  65     sleep(1)
  66         Kontext "FormControls"
  67         ControlProperties.Click
  68         sleep(2)
  69     '/// set properties: Background color, Horizontal scrollbar, Vertical scrollbar, Password
  70     printlog "set properties"
  71         fsetControlProperty("TextBox","Background","92")
  72     fsetControlProperty("TextBox","TextType","3")
  73     '/// save the document
  74     printlog "save the document"
  75         hFileSaveAsKill ( gOfficePath + ConvertPath("user/work/TT_TextBox.odt"))
  76         hCloseDocument
  77     sleep(1)
  78     '/// reload the document
  79     printlog "reload the document"
  80         hFileOpen ( gOfficePath + ConvertPath("user/work/TT_TextBox.odt"))
  81
  82     call hToolbarSelect("FormControls",true)
  83
  84         Kontext "FormControls"
  85      SwitchControlDesignMode.Click
  86     Kontext "DocumentWriter"
  87      DocumentWriter.TypeKeys "<SHIFT F4>"
  88     sleep(1)
  89     Kontext "FormControls"
  90      try
  91         ControlProperties.Click
  92      catch
  93         warnlog "error while open the control properties browser"
  94         call hCloseDocument
  95         goto endsub
  96      endcatch
  97     '/// check if the values are saved
  98     printlog "check if the values are saved"
  99         sleep(2)
 100     if fgetControlProperty("TextBox","Background") <> "92" then
 101         warnlog "the value: background is not saved"
 102     endif
 103
 104     if fgetControlProperty("TextBox","TextType") <> "3" then
 105         warnlog "the value: TextType is not saved"
 106     endif
 107     sleep(1)
 108     hCloseDocument
 109 endcase
 110 '--------------------------------------------------------------------------------------
 111 testcase tRichTextControl
 112
 113     '/// Open a new document,
 114     printlog "Open a new document,"
 115         call hNewDocument
 116     Kontext "DocumentWriter"
 117         DocumentWriter.TypeKeys "tt_doc" , true
 118         sleep(1)
 119
 120     call hToolbarSelect("FormControls",true)
 121
 122         Kontext "FormControls"
 123         Edit.Click
 124         sleep(1)
 125         '/// insert a text box
 126     printlog "insert a text box"
 127     call hDrawingWithSelection ( 50, 20, 60, 30 )
 128     sleep(2)
 129         Kontext "FormControls"
 130         ControlProperties.Click
 131         sleep(2)
 132     '/// set properties: Background color, Horizontal scrollbar, Vertical scrollbar, Password
 133     printlog "set properties"
 134         fsetControlProperty("TextBox","TextType","3")
 135     '/// turn off the design view
 136     printlog "turn off the design view"
 137
 138     call hToolbarSelect("FormControls",true)
 139
 140         Kontext "FormControls"
 141         SwitchControlDesignMode.Click
 142     '/// insert some text in the control
 143     printlog "insert some text in the control"
 144     Kontext "DocumentWriter"
 145         sleep(1)
 146         DocumentWriter.TypeKeys "<MOD1 F5>" , true
 147         sleep(1)
 148         DocumentWriter.TypeKeys "this is a blind text" , true
 149         sleep(1)
 150         DocumentWriter.TypeKeys "<SHIFT MOD1 LEFT>" ,2, true
 151         sleep(1)
 152         FormatStyleStrikeThrough
 153         sleep(1)
 154     '/// save the document
 155     printlog "save the document"
 156         hFileSaveAsKill ( gOfficePath + ConvertPath("user/work/TT_RichTextBox.odt"))
 157         hCloseDocument
 158     sleep(1)
 159     '/// reload the document
 160     printlog "reload the document"
 161         hFileOpen ( gOfficePath + ConvertPath("user/work/TT_RichTextBox.odt"))
 162     Kontext "DocumentWriter"
 163         DocumentWriter.TypeKeys "<MOD1 F5>" , true
 164         qaerrorlog "workaround for issue 102010"
 165         DocumentWriter.TypeKeys "<RIGHT>" , true
 166         DocumentWriter.TypeKeys "<LEFT>" , true
 167         sleep(1)
 168         DocumentWriter.TypeKeys "<MOD1 SHIFT END>" , true
 169         sleep(1)
 170         DocumentWriter.TypeKeys "<MOD1 C>" , true
 171         sleep(1)
 172         'printlog "getClipboard = " + getClipboard
 173         if ( getClipboard <> "this is a blind text" ) then
 174             warnlog "The text in the control is not saved (" + getClipboard() + ")"
 175         end if
 176         DocumentWriter.TypeKeys "<END>" , true
 177         sleep(1)
 178         DocumentWriter.TypeKeys "<SHIFT MOD1 LEFT>" ,2, true
 179         sleep(1)
 180         FormatCharacter
 181         Kontext
 182             active.SetPage TabFontEffects
 183         Kontext "TabFontEffects"
 184         if StrikeThrough.getSelIndex() <> 2 then
 185             warnlog "StrikeThrought is not set"
 186         else
 187             printlog "StrikeThrought is set"
 188         end if
 189         TabFontEffects.Cancel
 190
 191         sleep(1)
 192
 193     hCloseDocument
 194 endcase
 195 '--------------------------------------------------------------------------------------
 196 testcase tRichTextControlDraw
 197
 198     '/// Open a new document,
 199     printlog "Open a new document,"
 200         gApplication = "DRAW"
 201     call hNewDocument
 202     Kontext "DocumentDraw"
 203         DocumentDraw.TypeKeys "tt_doc" , true
 204         sleep(1)
 205
 206     call hToolbarSelect("FormControls",true)
 207
 208     Kontext "DocumentDraw"
 209     DocumentDraw.MouseDown ( 20, 20 )
 210     sleep(1)
 211     DocumentDraw.MouseUp ( 20, 20 )
 212     sleep(1)
 213     Kontext "FormControls"
 214     sleep(1)
 215         Edit.Click
 216         sleep(1)
 217     call hDrawingWithSelection ( 50, 20, 60, 30 )
 218     sleep(2)
 219         Kontext "FormControls"
 220         ControlProperties.Click
 221         sleep(2)
 222     '/// set properties: Background color, Horizontal scrollbar, Vertical scrollbar, Password
 223     printlog "set properties"
 224         fsetControlProperty("TextBox","TextType","3")
 225     '/// turn off the design view
 226     printlog "turn off the design view"
 227
 228     printlog "close control property browser"
 229     Kontext "ControlPropertiesDialog"
 230         ControlPropertiesDialog.close
 231
 232     call hToolbarSelect("FormControls",true)
 233
 234         Kontext "FormControls"
 235         SwitchControlDesignMode.Click
 236     '/// insert some text in the control
 237     printlog "insert some text in the control"
 238     Kontext "DocumentDraw"
 239         sleep(1)
 240         DocumentDraw.TypeKeys "<MOD1 F5>" , true
 241         sleep(1)
 242         DocumentDraw.TypeKeys "<MOD1 F5>" , true
 243         sleep(1)
 244         DocumentDraw.TypeKeys "this is a blind text" , true
 245         sleep(1)
 246         DocumentDraw.TypeKeys "<SHIFT MOD1 LEFT>" ,2, true
 247         sleep(1)
 248         FormatStyleStrikeThrough
 249         sleep(1)
 250     '/// save the document
 251     printlog "save the document"
 252         hFileSaveAsKill ( gOfficePath + ConvertPath("user/work/TT_RichTextBox.odg"),gDrawFilter)
 253         hCloseDocument
 254     sleep(1)
 255     '/// reload the document
 256     printlog "reload the document"
 257         hFileOpen ( gOfficePath + ConvertPath("user/work/TT_RichTextBox.odg"))
 258     Kontext "DocumentDraw"
 259         DocumentDraw.TypeKeys "<MOD1 F5>" , true
 260         sleep(1)
 261             DocumentDraw.TypeKeys "<MOD1 F5>" , true
 262             qaerrorlog "workaround for issue 102010"
 263             DocumentDraw.TypeKeys "<RIGHT>" , true
 264         DocumentDraw.TypeKeys "<LEFT>" , true
 265         sleep(1)
 266         DocumentDraw.TypeKeys "<MOD1 SHIFT END>" , true
 267         sleep(1)
 268         DocumentDraw.TypeKeys "<MOD1 C>" , true
 269         sleep(1)
 270         printlog "getClipboard = " + getClipboard
 271         if ( getClipboard <> "this is a blind text" ) then
 272             warnlog "The text in the control is not saved"
 273         end if
 274         DocumentDraw.TypeKeys "<END>" , true
 275         sleep(1)
 276         DocumentDraw.TypeKeys "<SHIFT MOD1 LEFT>" ,2, true
 277         sleep(1)
 278         FormatCharacter
 279         Kontext
 280             active.SetPage TabFontEffects
 281         Kontext "TabFontEffects"
 282         if StrikeThrough.getSelIndex() <> 2 then
 283             warnlog "StrikeThrought is not set (issue 32921)"
 284         else
 285             printlog "StrikeThrought is set"
 286         end if
 287         TabFontEffects.Cancel
 288
 289         sleep(1)
 290
 291     hCloseDocument
 292 endcase
 293 '--------------------------------------------------------------------------------------
 294 '--------------------------------------------------------------------------------------
 295 '--------------------------------------------------------------------------------------
 296