1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
|
'encoding UTF-8 Do not remove or change this line!
'**************************************************************************
' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
'
' Copyright 2000, 2010 Oracle and/or its affiliates.
'
' OpenOffice.org - a multi-platform office productivity suite
'
' This file is part of OpenOffice.org.
'
' OpenOffice.org is free software: you can redistribute it and/or modify
' it under the terms of the GNU Lesser General Public License version 3
' only, as published by the Free Software Foundation.
'
' OpenOffice.org is distributed in the hope that it will be useful,
' but WITHOUT ANY WARRANTY; without even the implied warranty of
' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
' GNU Lesser General Public License version 3 for more details
' (a copy is included in the LICENSE file that accompanied this code).
'
' You should have received a copy of the GNU Lesser General Public License
' version 3 along with OpenOffice.org. If not, see
' <http://www.openoffice.org/license.html>
' for a copy of the LGPLv3 License.
'
'/************************************************************************
'*
'* Owner : wolfram.garten@sun.com
'*
'* short description :
'*
'\*****************************************************************
sub d_002
call tdEditCrossFading()
call tdEditLayer()
end sub
'*******************************************************************************
testcase tdEditCrossFading
printlog " open application "
Call hNewDocument
printlog " create 2 rectangles "
gMouseClick 50,50
Call hRechteckErstellen ( 10, 10, 20, 40 )
Call hRechteckErstellen ( 30, 30, 50, 60 )
printlog " Edit-YSelect All "
EditSelectAll
try
printlog " Edit->Cross-fading "
EditCrossFading
catch
warnlog "EditCrossFading not accessible :-("
endcatch
Kontext "Ueberblenden"
Call DialogTest ( Ueberblenden )
printlog " Change : 'Increments'; 1 more, 1 less "
Schritte.More
Schritte.Less
printlog " Change: Cross-fading attributes; uncheck, check "
Attributierung.uncheck
Attributierung.check
printlog " Change: same orientation; uncheck, check "
GleicheOrientierung.Uncheck
GleicheOrientierung.Check
printlog " cancel dialog 'Cross-fading'; uncheck, check "
Ueberblenden.Cancel
printlog " close application "
Call hCloseDocument
endcase 'tdEditCrossFading
'------------------------------------------------------------------------------
testcase tdEditLayer
printlog " open application "
Call hNewDocument
printlog " View->Layer "
ViewLayer
printlog " Edit->Layer->Insert "
InsertLayer
Kontext "EbeneEinfuegenDlg"
Call DialogTest ( EbeneEinfuegenDlg )
printlog " Change: Set another name for the layer "
EbenenName.SetText "SomeThing"
printlog " Change: Visible; uncheck, check "
Sichtbar.UnCheck
Sichtbar.Check
printlog " Change: Printable; uncheck, check "
Druckbar.UnCheck
Druckbar.Check
printlog " Change: Locked; check, uncheck "
Gesperrt.Check
Gesperrt.UnCheck
EbeneEinfuegenDlg.OK
printlog " (Edit->Layer->Modify is tested in format-menu-test) "
printlog " Edit->Layer->Rename "
EditLayerRename
kontext "DocumentDrawImpress"
LayerTabBar.TypeKeys "Apply!!<Return>" , true
printlog " Edit->Layer->Delete "
EditDeleteLayer
printlog " Messagebox: really delete? YES "
Kontext "Messagebox"
Messagebox.Yes
sleep (2)
printlog " View->Layer "
ViewLayer
printlog " close application "
Call hCloseDocument
endcase 'tdEditLayer
'------------------------------------------------------------------------------
|