testautomation/graphics/optional/includes/global/g_clipexport2.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: g_clipexport2.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 10:42:39 $
  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 :
  37 '*
  38 '*******************************************************************
  39 '*
  40 ' #1 MakeTextSquare             :Inserts a text frame with content
  41 ' #1 MakeRectangle              :Inserts a Rectangle
  42 ' #1 MakeCircle                 :Inserts a circle if not Writer or Calc
  43 ' #1 Make3dObject               :Inserts a 3DObject if not Writer or Calc
  44 ' #1 MakeCurveObject            :Inserts Curve Object if not Writer or Calc
  45 ' #1 MakeLineObject             :Inserts line object if not writer or calc
  46 ' #1 MakeConnectorObject        :Inserts Connector object if not wirter or calc
  47 ' #1 MakeFormattedTextLine      :Insert a formatted text line
  48 ' #1 Formfunctions              :Inserts a push button
  49 ' #1 Objectplugin               :Inserting a Plugin
  50 '*
  51 '\*******************************************************************
  52
  53 sub MakeTextSquare
  54
  55     printlog "---------   Testing: TextSquare   ---------"
  56     Call hTextRahmenErstellen ("This is a text-frame",15,20,40,30)
  57     gMouseClick 10,10
  58     SetKontextApplication
  59
  60 end sub
  61 '-------------------------------------------------------------------------------
  62 sub MakeRectangle
  63
  64     printlog "we run rectangle"
  65     Call hRechteckErstellen (15,15,30,30)
  66
  67 end sub
  68
  69 '-------------------------------------------------------------------------------
  70 sub MakeCircle
  71
  72     printlog "Create Circle"
  73     if gApplication = "WRITER" then
  74         Warnlog "Cant make circle in this application"
  75         goto endsub
  76     end if
  77     if gApplication = "CALC" then
  78         Warnlog "Cant make circle in this application"
  79         goto endsub
  80     end if
  81     printlog "we run Circle"
  82     Kontext "Toolbar"
  83     Ellipsen.Click
  84     sleep 1
  85     gMouseDown (15,15)
  86     gMouseMove (15,15,30,30)
  87     gMouseUp (30,30)
  88     sleep 1
  89
  90 end sub
  91
  92 '-------------------------------------------------------------------------------
  93 sub Make3dObject
  94
  95     printlog "Create 3dObject"
  96     if (Ucase(gApplication) = "CALC") then
  97         warnlog "Cant make circle in this application"
  98         goto endsub
  99     end if
 100     if (Ucase(gApplication) = "WRITER") then
 101         warnlog "Cant make circle in this application"
 102         goto endsub
 103     end if
 104
 105     printlog "we run 3d-Object"
 106     kontext "Toolbar"
 107     if Drei_D_Objekte.exists then
 108         Drei_D_Objekte.tearoff
 109         Kontext "ThreeDObjectsbar"
 110         sleep 1
 111         Wuerfel.click
 112         gMouseDown (15,15)
 113         gMouseMove (15,15,35,35)
 114         gMouseUp (35,35)
 115         Kontext "ThreeDObjectsbar"
 116         ThreeDObjectsbar.close
 117     else
 118         if (gApplication = "DRAW") then
 119             sleep 1
 120             hMenuselectNr (1)
 121             sleep 1
 122             hMenuItemCheck (11)
 123             sleep 2
 124             Drei_D_Objekte.tearoff
 125             Kontext "ThreeDObjectsbar"
 126             sleep 1
 127             Wuerfel.click
 128             sleep 1
 129             gMouseDown (15,15)
 130             gMouseMove (15,15,35,35)
 131             gMouseUp (35,35)
 132             Kontext "ThreeDObjectsbar"
 133             ThreeDObjectsbar.close
 134             sleep 2
 135             kontext "Toolbar"
 136             sleep 1
 137             hMenuselectNr (1)
 138             sleep 1
 139             hMenuItemUnCheck (11)
 140             sleep 1
 141         else
 142             sleep 1
 143             hMenuselectNr (1)
 144             sleep 1
 145             hMenuItemCheck (11)
 146             sleep 2
 147             Drei_D_Objekte.tearoff
 148             Kontext "ThreeDObjectsbar"
 149             sleep 1
 150             Wuerfel.click
 151             sleep 1
 152             gMouseDown (15,15)
 153             gMouseMove (15,15,35,35)
 154             gMouseUp (35,35)
 155             Kontext "ThreeDObjectsbar"
 156             ThreeDObjectsbar.close
 157             sleep 2
 158             kontext "Toolbar"
 159             sleep 1
 160             hMenuselectNr (1)
 161             sleep 1
 162             hMenuItemUnCheck (11)
 163             sleep 1
 164         endif
 165     end if
 166
 167 end sub
 168
 169 '-------------------------------------------------------------------------------
 170 sub MakeCurveObject
 171
 172     if (Ucase(gApplication) = "WRITER") then
 173         warnlog "Cant make circle in this application"
 174         goto endsub
 175     end if
 176     if (Ucase(gApplication) = "CALC") then
 177         warnlog "Cant make circle in this application"
 178         goto endsub
 179     end if
 180
 181     printlog "we run Curve-object"
 182     kontext "Toolbar"
 183     Toolbar.OpenContextMenu
 184     sleep 1
 185     hMenuselectNr (1)
 186     sleep 1
 187     hMenuItemCheck (7)
 188     sleep 1
 189     Kurven.Click
 190     sleep 1
 191     gMouseDown (10,25)
 192     gMouseMove (10,25,30,35)
 193     gMouseUp (30,35)
 194     gMouseClick 90,90
 195     sleep 1
 196     kontext "Toolbar"
 197     Toolbar.OpenContextMenu
 198     sleep 1
 199     hMenuselectNr (1)
 200     sleep 1
 201     hMenuItemUnCheck (7)
 202     sleep 1
 203
 204 end sub
 205
 206 '-------------------------------------------------------------------------------
 207 sub MakeLineObject
 208
 209     if gApplication = "WRITER" then
 210         warnlog "Currently no support for line-object in this application"
 211         goto endsub
 212     end if
 213     if gApplication = "CALC" then
 214         warnlog "Currently no support for line-object in this application"
 215         goto endsub
 216     end if
 217     printlog "we run Line-object"
 218     sleep 1
 219     Kontext "Toolbar"
 220     Linien.TearOff
 221     Kontext "Arrowshapes"
 222     sleep 1
 223     Leftarrow.Click
 224     sleep 1
 225     SetKontextApplication
 226     gMouseDown (10,15)
 227     gMouseMove 10,15,20,27
 228     gMouseUp (20,27)
 229     sleep 1
 230     Kontext "Arrowshapes"
 231     Arrowshapes.Close
 232
 233 end sub
 234
 235 '-------------------------------------------------------------------------------
 236 sub MakeConnectorObject
 237
 238     if gApplication = "WRITER" then
 239         warnlog "Cant make connector in this application"
 240         goto endsub
 241     end if
 242     if gApplication = "CALC" then
 243         warnlog "Cant make connector in this application"
 244         goto endsub
 245     end if
 246     printlog "we run Connector-object"
 247     if gApplication = "DRAW" then
 248         sleep 1
 249         kontext "Toolbar"
 250         sleep 1
 251         Verbinder.TearOff    ' Insert connector
 252         kontext "Connectorsbar"
 253         sleep 1
 254         Verbinder.Click
 255         Connectorsbar.Close
 256         sleep 1
 257         SetKontextApplication
 258         gMouseDown (10,17)
 259         gMouseMove (10,17,30,37)
 260         gMouseUp (30,37)
 261     end if
 262     if gApplication = "IMPRESS" then
 263         kontext "Toolbar"
 264         sleep 1
 265         Verbinder.TearOff   ' Insert connector
 266         kontext "Connectorsbar"
 267         sleep 1
 268         Verbinder.Click
 269         Connectorsbar.Close
 270         sleep 1
 271         SetKontextApplication
 272         gMouseDown (10,17)
 273         gMouseMove (10,17,30,37)
 274         gMouseUp (30,37)
 275     end if
 276
 277 end sub
 278
 279 '-------------------------------------------------------------------------------
 280 sub MakeFormattedTextLine
 281
 282     dim Zufall, iWaitIndex as integer
 283     Kontext "TextObjectbar"
 284     if TextObjectbar.Exists then
 285         printlog "   TextObjectbar.Exists = " + TextObjectbar.Exists
 286     else
 287         ViewToolbarsTextFormatting
 288         sleep (2)
 289     end if
 290
 291     hTypeKeys "This is a text which we will format in some different ways."
 292     hTypeKeys "<SHIFT HOME>" 'Marked the inserted text. (= now ready for formatting)
 293     Kontext "TextObjectbar"
 294     Printlog "   - choose random font"
 295     randomize
 296     Zufall=((20*Rnd)+1)
 297     'Schriftart.GetItemcount
 298     Text1 = Schriftart.GetSelText
 299     Printlog "   -Font: '" + Schriftart.GetSelText + "' selected."
 300
 301     Kontext "TextObjectbar"
 302     sleep (2)
 303     Printlog "   - Change size of Font"
 304     Schriftgroesse.Select (Zufall)
 305     Printlog "   - Fontsize set to '" + Schriftgroesse.GetSelText + "'."
 306     Text2 = Schriftgroesse.GetSelText
 307     Kontext "TextObjectbar"
 308     Fett.Click
 309     sleep (2)
 310     Printlog "   - Font attribute set to bold."
 311     Text4 = Fett.GetState(2)
 312
 313     Kontext "TextObjectbar"
 314     Kursiv.Click
 315     sleep (2)
 316     Printlog "   - Font attribute set to cursive."
 317     Text5 = Kursiv.GetState(2)
 318
 319     Kontext "TextObjectbar"
 320     Unterstrichen.Click
 321     sleep (2)
 322     Printlog "   - Font attribute set to underlined."
 323     Text6 = Unterstrichen.GetState(2)
 324
 325     Kontext "TextObjectbar"
 326     Blocksatz.Click
 327     sleep (2)
 328     Printlog "   - Text set to Justified."
 329     Text7 = Blocksatz.GetState(2)
 330
 331     SetKontextApplication
 332
 333 end sub 'MakeFormattedTextLine
 334
 335 '--------------------------------------------------------------------------------------------------------
 336 sub Formfunctions
 337     gMouseMove2 (50, 20)
 338     if (Ucase(gApplication) = "IMPRESS") then
 339         kontext "Toolbar"
 340         sleep 1
 341         Toolbar.OpenContextMenu ' enable forms button in menuebar
 342         sleep 1
 343         hMenuselectNr (6)
 344         sleep 1
 345         hMenuItemCheck (14)
 346         sleep 1
 347         WL_WRITER_Formular.TearOff  ' use fromsbutton
 348     else
 349         kontext "Toolbar"
 350         sleep 1
 351         Toolbar.OpenContextMenu ' enable forms button in menuebar
 352         sleep 1
 353         hMenuselectNr (5)
 354         sleep 1
 355         hMenuItemCheck (14)
 356         sleep 1
 357         WL_WRITER_Formular.TearOff  ' use fromsbutton
 358     endif
 359     printlog "  enabled 'forms' button and clicked it"
 360     sleep 1
 361     kontext "FormControls"
 362     if (Pushbutton.IsEnabled = FALSE) then
 363         DesigneModus.click            ' use forms menue, go into design mode
 364     endif
 365     Pushbutton.Click              ' use a pushbutton
 366     Sleep 1
 367     gMouseDown (50,20)
 368     gMouseMove (50, 20,70, 40)' create a pushbutton
 369     gMouseUp (70,40)
 370
 371     FormatControl
 372     Kontext "ControlPropertiesDialog"
 373     sleep 1
 374     ControlPropertiesDialog.Close
 375     formatform
 376     Kontext "ControlPropertiesDialog"
 377     sleep 1
 378     ControlPropertiesDialog.Close
 379
 380     sleep 5 ' needed, otherwise the context menue will get closed...
 381
 382     if (Ucase(gApplication) = "IMPRESS") then
 383         kontext "Toolbar"
 384         Toolbar.OpenContextMenu ' disable forms button in menuebar
 385         sleep 1
 386         hMenuselectNr (9)
 387     else
 388         kontext "Toolbar"
 389         Toolbar.OpenContextMenu ' disable forms button in menuebar
 390         sleep 1
 391         hMenuselectNr (8)
 392     endif
 393 end sub
 394
 395 '--------------------------------------------------------------------------------------------------------
 396 sub Objectplugin
 397
 398     printlog "Insert Object-plugin"
 399     'Call hNewDocument
 400
 401     InsertObjectPlugin
 402     Kontext "PlugInEinfuegen"
 403     'DialogTest ( PlugInEinfuegen)
 404     Durchsuchen.click
 405     Kontext "OeffnenDlg"
 406     'Call DialogTest ( OeffnenDlg )
 407     if OeffnenDlg.exists (5) then
 408         OeffnenDlg.Cancel
 409     else
 410         warnlog "Open file dialog didn't come up"
 411     endif
 412     sleep 5
 413     Kontext "PlugInEinfuegen"
 414     if PlugInEinfuegen.exists then
 415         DateiUrl.SetText (ConvertPath ( gTesttoolpath + "graphics\required\input\sample.mov" ))
 416         printlog "Type something into the option field"
 417         'Optionen               so3:MultiLineEdit:MD_INSERT_OBJECT_PLUGIN:ED_PLUGINS_OPTIONS
 418         Optionen.SetText "Fiddler's Green"
 419         sleep 1
 420         Optionen.TypeKeys "<HOME>"
 421         Optionen.TypeKeys "<SHIFT><END>"
 422         Optionen.TypeKeys "<delete>"
 423         PlugInEinfuegen.Ok
 424     else
 425         warnlog "Insert plugin isn't visible"
 426     endif
 427     sleep (5)
 428     kontext "Messagebox"
 429     if Messagebox.exists (5) then
 430         warnlog "Messagebox: " + Messagebox.gettext
 431         Messagebox.ok
 432     endif
 433 end sub
 434
 435 '--------------------------------------------------------------------------------------------------------